LANC code 12F675

I found this code some years ago and do not know its source. There was only a text descrption of the circuit. I don't understand what the xxxx_ACTIVE subroutines are pulsing GPIO.0 for. GPIO.3 and 5 are in/out and 2 is for an LED. Any ideas?

DEVICE 12F675
'WORKING STANDARD LANC CONTROL FOR 12F675 CHECKED 10/05/2004
'THIS VERSION USE A BC107 AS OPEN COLLECTOR ON THE SIGNAL INPUT
'AS OPPOSED TO TH 2N 2907 PNP TRANSISTOR WHICH HAD A PROBLEM THAT
'THE VOLTAGE IS NOT PULLED TO GROUND BUT TO AROUND 0.8V WHEN LOW
'THE SOFTWARE NO OUTPUT AND INVERTED DATA STREAM ALSO INVERTING THE STOP BIT AND
'START BIT
'WHICH COULD NOT BE DONE BY JUST SPECIFYING DATA INVERTED WHEN USING RSOUT
SET_OSCCAL
'OSCCAL=$60 ' PROGRAM WITH PROTECTION ON WATCHDOG OFF ,INTERNAL OSC,MCLR OFF,
CMCON=7
ADCON0=0
ANSEL=0
CONFIG WDT_OFF , PWRTE_ON ,MCLRE_OFF


ALL_DIGITAL=TRUE
DECLARE XTAL 4
DECLARE RSIN_PIN GPIO.3
DECLARE RSIN_MODE TRUE
DECLARE SERIAL_BAUD 9600
DECLARE RSIN_TIMEOUT 20000
DECLARE RSOUT_PIN GPIO.5
DECLARE RSOUT_MODE TRUE
SYMBOL LED =GPIO.2
DIM GAP,FBYTE0,FBYTE1,FBYTE2,FBYTE3,FBYTE4,FBYTE5,FBYT E6,FBYTE7,COMMAND,DO_AGAIN
DIM REC_STATUS,FLIPFLOP,TRIGGER
DIM GAPCOUNT AS WORD
DIM OLD AS BYTE
DIM FAULT_COUNTER AS WORD
TRISIO=%011010

start: INPUT GPIO.5
FBYTE0=%00011000^$FF
GOTO MAIN

GAP_TIME: GAPCOUNT=0
DO: IF GPIO.3 <>1 THEN GOTO GAP_TIME
GAPCOUNT=GAPCOUNT+1
IF GAPCOUNT <150 THEN GOTO DO


COMMANDOUT: 'OUTPUT GPIO.5
WHILE GPIO.3=1 :WEND
'RSOUT FBYTE0
OUTPUT GPIO.5
SET GPIO.5 'START BIT
DELAYUS 94 '11100111
CLEAR GPIO.5 'FIRST LSB BIT
DELAYUS 104 'BIT1
DELAYUS 104 'BIT2
DELAYUS 104 'BIT3
SET GPIO.5
DELAYUS 104 'BIT4
DELAYUS 104 'BIT5
CLEAR GPIO.5
DELAYUS 104 'BIT6
DELAYUS 104 'BIT7
DELAYUS 104 'BIT8
DELAYUS 104 'STOP BIT
INPUT GPIO.5

WHILE GPIO.3=1 :WEND

'RSOUT COMMAND
OUTPUT GPIO.5
SET GPIO.5
DELAYUS 94 'STOP BIT

IF COMMAND=$3A THEN
CLEAR GPIO.5
DELAYUS 104 'BIT1 LSB
SET GPIO.5
DELAYUS 104 'BIT2
CLEAR GPIO.5
DELAYUS 104 'BIT3
SET GPIO.5
DELAYUS 104 'BIT4
DELAYUS 104 'BIT5
DELAYUS 104 'BIT6
CLEAR GPIO.5
DELAYUS 104 'BIT7
DELAYUS 104 'BIT8
DELAYUS 104 'STOP BIT


ELSE
'RSOUT COMMAND

CLEAR GPIO.5
DELAYUS 104 'BIT1 LSB
DELAYUS 104 'BIT2
DELAYUS 104 'BIT3
DELAYUS 104 'BIT4
SET GPIO.5
DELAYUS 104 'BIT5
DELAYUS 104 'BIT6
CLEAR GPIO.5
DELAYUS 104 'BIT7
DELAYUS 104 'BIT8
DELAYUS 104 'STOP BIT
INPUT GPIO.5
ENDIF





FBYTE2=RSIN
FBYTE3=RSIN
FBYTE4=RSIN
FBYTE5=RSIN
FBYTE6=RSIN

RETURN

INTERPRET: LET FBYTE4=FBYTE4^$FF
IF FBYTE4=OLD THEN GOTO DONE
LET OLD=FBYTE4
IF FBYTE4=$02 THEN GOSUB STOP_ACTIVE
IF FBYTE4=$01 THEN GOSUB FAULT_ACTIVE
IF FBYTE4=$04 THEN GOSUB RECORD_ACTIVE
IF FBYTE4=$32 THEN GOSUB FAULT_ACTIVE
IF FBYTE4=$62 THEN GOSUB FAULT_ACTIVE

DONE: RETURN

STOP_ACTIVE: REC_STATUS=0
CLEAR GPIO.2 ' RECORDING IS ACTIVE LED
SET GPIO.0 'PULSE1
DELAYMS 500
CLEAR GPIO.0
DELAYMS 500
SET GPIO.0 'PULSE2
DELAYMS 500
CLEAR GPIO.0
DELAYMS 500
SET GPIO.0 'PULSE3
DELAYMS 500
CLEAR GPIO.0
RETURN

FAULT_ACTIVE: FAULT_COUNTER=0
SET GPIO.0 'PULSE1
DELAYMS 100
CLEAR GPIO.0
DELAYMS 100
SET GPIO.0 'PULSE2
DELAYMS 100
CLEAR GPIO.0
DELAYMS 100
SET GPIO.0 'PULSE3
DELAYMS 100
CLEAR GPIO.0
DELAYMS 100
SET GPIO.0 'PULSE4
DELAYMS 100
CLEAR GPIO.0
DELAYMS 100
SET GPIO.0 'PULSE5
DELAYMS 100
CLEAR GPIO.0
RETURN

RECORD_ACTIVE: REC_STATUS=1
SET GPIO.0
SET GPIO.2 ' RECORDING IS ACTIVE LED
DELAYMS 3000
CLEAR GPIO.0
RETURN

MONITOR: WHILE GPIO.1=0
TRIGGER=0
WEND

'TRIGGER=GPIO.1
IF TRIGGER=1 THEN GOTO DONEMON
IF TRIGGER =0 THEN GOSUB INVRECSTATUS

DONEMON: RETURN


INVRECSTATUS: IF REC_STATUS =1 THEN FLIPFLOP=0
IF REC_STATUS =0 THEN FLIPFLOP=1
REC_STATUS=FLIPFLOP
RETURN

LOAD_COMMAND: IF REC_STATUS=0 THEN COMMAND=$30'^$FF 'NEW COMMAND = STOP
IF REC_STATUS=1 THEN COMMAND=$3A'^$FF 'NEW COMMAND = REC
RETURN

MAIN: GAP=0 : GAPCOUNT=0 : FBYTE1=0 : FBYTE2=0 : FBYTE3=0 : FBYTE4=0
FBYTE5=0 : FBYTE6=0 : FBYTE7=0 : DO_AGAIN=0
TRIGGER=0 : FLIPFLOP=0 : FAULT_COUNTER=0 : gpio.0=0 : gpio.2=0
COMMAND=$00^$FF
'SET GPIO.5
RERUN: DO_AGAIN=0
AGAIN3: GAPCOUNT=0
GOSUB GAP_TIME
DO_AGAIN =DO_AGAIN+1
IF DO_AGAIN<=5 THEN GOTO AGAIN3
GOSUB INTERPRET
'DELAYMS 1000 ' WAIT WHILE TRIGGER MIGHT STILL BE ACTIVATED
GOSUB MONITOR
IF TRIGGER=0 THEN GOSUB LOAD_COMMAND
'CHANGED ON 9/9/2003 'IF TRIGGER=1 THEN GOSUB LOAD_COMMAND
TRIGGER=1
GOTO RERUN

END

That's PDS Proton... on a PBP forum :eek: ;)
SET GPIO.x will translate to GPIO.x = 1 or HIGH GPIO.x (ASM BSF)
Clear GPIO.x, will translate GPIO.x=0 (ASM BCF)

Rsout = DEBUG

DelayMS = PAUSE
DelayUs = PAUSEUS

ALL_DIGITAL = should be something like ANSEL=0 AND CMCON = 7

Now just translate it to PBP, build the circuit,. and you're half done :)

No wonder I could not find it in a PicBasic Pro search! I just dug out my v2.45 and had not even tried to compile it. Still not sure what the toggling of GPIO.0 is about.

Quote:

---

Originally Posted by mister_e

That's PDS Proton... on a PBP forum :eek: ;)
SET GPIO.x will translate to GPIO.x = 1 or HIGH GPIO.x (ASM BSF)
Clear GPIO.x, will translate GPIO.x=0 (ASM BCF)

Rsout = DEBUG

DelayMS = PAUSE
DelayUs = PAUSEUS

ALL_DIGITAL = should be something like ANSEL=0 AND CMCON = 7

Now just translate it to PBP, build the circuit,. and you're half done :)

---

Quote:

---

Originally Posted by MikeDD

Still not sure what the toggling of GPIO.0 is about.

---

Well... when I was writing code for my LANC control a while back, I used some blinking LED's as very basic debugging indicators - it looks like this code does the same.
After various commands, etc, the code does some blinky LED stuff in order for the PIC to let the user know that everything is working OK. Also looks like some error status might be reported too.

Arch

As this project may be interesting to me, I attempted to convert the proton version...

it ended with something like that, but I haven't got time to test it yet

(*debugin* part, schematics, and some other loops aren't quite clear for me yet....)


'** LANC CONTROL FOR *12F683 modified, BUT NOT TESTED at all yet
'** THIS VERSION USE A BC107 AS OPEN COLLECTOR ON THE SIGNAL INPUT
'** AS OPPOSED TO TH 2N 2907 PNP TRANSISTOR WHICH HAD A PROBLEM THAT
'** THE VOLTAGE IS NOT PULLED TO GROUND BUT TO AROUND 0.8V WHEN LOW
'** THE SOFTWARE NO OUTPUT AND INVERTED DATA STREAM ALSO INVERTING
'** THE STOP BIT AND START BIT WHICH COULD NOT BE DONE BY JUST
'** SPECIFYING DATA INVERTED WHEN USING RSOUT

;** DEVICE 12F683

;** //Check INC file setup!!!!
;set in INC file => device pic12F683, intrc_osc_noclkout, wdt_off, mclr_on, protect_off ;

;;;Include "modedefs.bas" si jamais on utilise des routines SERIN/SEROUT

ANSEL = %00000000 ' No Analog input, set all digital
CMCON0 = %00000111 ' turn comparators off 07H
TRISIO = %111010 ' inputs port1,3,4 outputs 0
GPIO = %000000 ' outputs low << very important it seems!!
OSCCON = %01100000 ' Internal 4MHz osc set speed
INTCON = 0 'Do not use PBP interrupts

define OSC 4 '4mhz clock internal

'Output on GPIO.5
DEFINE DEBUG_REG GPIO
DEFINE DEBUG_BIT 5 ' GPIO.5
DEFINE DEBUG_BAUD 9600 ' 2400 bps
DEFINE DEBUG_MODE 0 ' 1 = inverted, 0 = true

'Input on GPIO.4
DEFINE DEBUGIN_REG GPIO ' Set Debugin pin port
DEFINE DEBUGIN_BIT 4 ' Set Debugin pin bit
'Other unspecified params are taken from DEBUG settings

;;DECLARE RSIN_PIN GPIO.3 >> switched for GPIO.4
;;DECLARE RSIN_MODE TRUE
;;DECLARE SERIAL_BAUD 9600
;;DECLARE RSIN_TIMEOUT 20000
;;DECLARE RSOUT_PIN GPIO.5
;;DECLARE RSOUT_MODE TRUE

;;;;;Translation to test fron Proton code, si marche pas essaye Array[]??
FBYTE0 VAR BYTE
FBYTE1 VAR BYTE
FBYTE2 VAR BYTE
FBYTE3 VAR BYTE
FBYTE4 VAR BYTE
FBYTE5 VAR BYTE
FBYTE6 VAR BYTE
FBYTE7 VAR BYTE
COMMAND VAR BYTE
OLD VAR BYTE
flshLight VAR BYTE

DO_AGAIN VAR BIT
REC_STATUS VAR BIT
TRIGGER VAR BIT

GAPCOUNT VAR WORD

LED_act VAR GPIO.2 'Activity LED

start:
INPUT GPIO.5
FBYTE0=%00011000^$FF ; $FF = %11111111
GOTO MAIN

GAP_TIME:
GAPCOUNT=0

DO:
IF GPIO.4 <>1 THEN GOTO GAP_TIME
GAPCOUNT=GAPCOUNT+1
IF GAPCOUNT <150 THEN GOTO DO

COMMANDOUT:
'OUTPUT GPIO.5 ;; Delete?
WHILE GPIO.3=1 :WEND ;; Check Syntax.

'RSOUT **FBYTE0**
OUTPUT GPIO.5 ;Writing on the LANC line..
GPIO.5 = 1 'START BIT
PAUSEUS 94 '11100111 #E7h?????? inverted >> %00011000 = #18h would make sense
GPIO.5 = 0 'FIRST LSB BIT
PAUSEUS 104 'BIT1
PAUSEUS 104 'BIT2
PAUSEUS 104 'BIT3
GPIO.5 = 1
PAUSEUS 104 'BIT4
PAUSEUS 104 'BIT5
GPIO.5 = 0
PAUSEUS 104 'BIT6
PAUSEUS 104 'BIT7
PAUSEUS 104 'BIT8
PAUSEUS 104 'STOP BIT
INPUT GPIO.5 ;Listening on the LANC line..

WHILE GPIO.4=1 :WEND ; ??Waiting for Start bit??

'RSOUT COMMAND
OUTPUT GPIO.5 ;Writing on the LANC line..
GPIO.5 = 1
PAUSEUS 94 'STOP BIT

IF COMMAND=$3A THEN ; #3Ah <=> #58d <=> %00111010 (??send inverted as %11000101)
GPIO.5 = 0
PAUSEUS 104 'BIT1 LSB
GPIO.5 = 1
PAUSEUS 104 'BIT2
GPIO.5 = 0
PAUSEUS 104 'BIT3
GPIO.5 = 1
PAUSEUS 104 'BIT4
PAUSEUS 104 'BIT5
PAUSEUS 104 'BIT6
GPIO.5 = 0
PAUSEUS 104 'BIT7
PAUSEUS 104 'BIT8
PAUSEUS 104 'STOP BIT
ELSE
'RSOUT COMMAND; $30 <=> #30h <=> #48d <=> %00110000 (??send inv as %11001111)

GPIO.5 = 0
PAUSEUS 104 'BIT1 LSB
PAUSEUS 104 'BIT2
PAUSEUS 104 'BIT3
PAUSEUS 104 'BIT4
GPIO.5 = 1
PAUSEUS 104 'BIT5
PAUSEUS 104 'BIT6
GPIO.5 = 0
PAUSEUS 104 'BIT7
PAUSEUS 104 'BIT8
PAUSEUS 104 'STOP BIT
INPUT GPIO.5 ;Listening on the LANC line..
ENDIF

;;FBYTE2=RSIN ;;replaced proton code
;;FBYTE3=RSIN ;;FBYTE4=RSIN ;;FBYTE5=RSIN ;;FBYTE6=RSIN

DEBUGIN [FBYTE2]
DEBUGIN [FBYTE3]
DEBUGIN [FBYTE4]
DEBUGIN [FBYTE5]
DEBUGIN [FBYTE6]

RETURN ;----------------------------------------------

INTERPRET:

FBYTE4=FBYTE4^$FF ;; just an Inverter?
IF FBYTE4=OLD THEN GOTO DONE
OLD=FBYTE4
;;; should invert all BYTE before sending!?
;;; DEBUG 1, "LANC:",FBYTE0,FBYTE1,FBYTE2,FBYTE3,FBYTE4,FBYTE5, FBYTE6,FBYTE7,">"
IF FBYTE4=$02 THEN GOSUB STOP_ACTIVE
IF FBYTE4=$01 THEN GOSUB FAULT_ACTIVE
IF FBYTE4=$04 THEN GOSUB RECORD_ACTIVE
IF FBYTE4=$32 THEN GOSUB FAULT_ACTIVE
IF FBYTE4=$62 THEN GOSUB FAULT_ACTIVE

DONE:
RETURN ;----------------------------------------------

STOP_ACTIVE:

REC_STATUS=0
GPIO.2 = 0 ' RECORDING IS ACTIVE LED

for flshLight=1 to 5
GPIO.0 = 1 'PULSE LED/Port
PAUSE 500
GPIO.0 = 0
PAUSE 500
next flshLight

RETURN ;----------------------------------------------

FAULT_ACTIVE:

for flshLight=1 to 5
GPIO.0 = 1 'PULSE LED/Port
PAUSE 100
GPIO.0 = 0
PAUSE 100
next flshLight

RETURN ;----------------------------------------------

RECORD_ACTIVE:
REC_STATUS=1
GPIO.0 = 1
GPIO.2 = 1 ' RECORDING IS ACTIVE LED
PAUSE 3000
GPIO.0 = 0

RETURN ;----------------------------------------------

MONITOR:
WHILE GPIO.1=0 'Input switch!
TRIGGER=0
WEND

IF TRIGGER = 1 THEN GOTO DONEMON
IF TRIGGER = 0 THEN GOSUB INVRECSTATUS


DONEMON:
RETURN ;----------------------------------------------


INVRECSTATUS:
REC_STATUS = REC_STATUS^1 ;;Flipflop

RETURN ;----------------------------------------------

LOAD_COMMAND:

IF REC_STATUS=0 THEN COMMAND=$30'^$FF 'NEW COMMAND = STOP
IF REC_STATUS=1 THEN COMMAND=$3A'^$FF 'NEW COMMAND = REC RETURN

MAIN:
GAPCOUNT=0
FBYTE1=0
FBYTE2=0
FBYTE3=0
FBYTE4=0
FBYTE5=0
FBYTE6=0
FBYTE7=0
DO_AGAIN=0
TRIGGER=0
gpio.0=0
gpio.2=0
COMMAND=$00^$FF

RERUN:
DO_AGAIN=0

AGAIN3:
GAPCOUNT=0
GOSUB GAP_TIME
DO_AGAIN =DO_AGAIN+1
'Resend data at least 5 times (lanc needs at least 3 valid command to exe.)
IF DO_AGAIN<=5 THEN GOTO AGAIN3

GOSUB INTERPRET
'PAUSE 1000 ' WAIT WHILE TRIGGER MIGHT STILL BE ACTIVATED
GOSUB MONITOR

IF TRIGGER=0 THEN GOSUB LOAD_COMMAND
TRIGGER=1
GOTO RERUN

END