hjguitarplayer
- 26th August 2015, 20:51
Can somebody please explain to me why/how the following errors are being generated
after I compile the code shown below these errors?
[ERROR] reenterpbp.bas (95) : Syntax Error
[ERROR] reenterpbp.bas (128) : Syntax Error
[ERROR] reenterpbp.bas (128) : Redefinition of LABEL Vars_Saved
I have looked at the line numbers in the ReEnterpbp.bas file that is "Included" in the code below and I can't figure out
why they are being generated. There is something here that I'm not understanding.
The following code is for a 12F683, zero crossing detection, found and referenced in these forums.
'===12F683======
@ __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _MCLRE_OFF & _CP_ON & _FCMEN_OFF & _IESO_OFF & _PWRTE_OFF
CLEAR
OSCCON =%01110001
DEFINE OSC 8
CMCON0 =7
TRISIO =%00001000
GPIO =0
ADCON0 =0
ANSEL =0
CCP1CON=0
ZeroLine VAR GPIO.3
Out VAR GPIO.5
CountVal VAR WORD
INCLUDE "DT_INTS-14_MOD.bas" ; Base Interrupt System ; Attention ! Modified file !
INCLUDE "ReEnterPBP.bas" ; Include if using PBP interrupts
PAUSE 20
ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler GPIF_INT, _KES, PBP, yes
endm
INT_CREATE
ENDASM
IOC.3 = 1
@ INT_ENABLE GPIF_INT
Begin:
CountVal=0
Start:
SELECT CASE CountVal
CASE IS > 200
CountVal=0
CASE IS > 100
Out=0
CASE IS > 50
Out=1
END SELECT
GOTO Start
KES:
IF ZeroLine THEN CountVal=CountVal + 1
@ INT_RETURN
END
Thanks!
HJ
after I compile the code shown below these errors?
[ERROR] reenterpbp.bas (95) : Syntax Error
[ERROR] reenterpbp.bas (128) : Syntax Error
[ERROR] reenterpbp.bas (128) : Redefinition of LABEL Vars_Saved
I have looked at the line numbers in the ReEnterpbp.bas file that is "Included" in the code below and I can't figure out
why they are being generated. There is something here that I'm not understanding.
The following code is for a 12F683, zero crossing detection, found and referenced in these forums.
'===12F683======
@ __config _INTRC_OSC_NOCLKOUT & _WDT_OFF & _MCLRE_OFF & _CP_ON & _FCMEN_OFF & _IESO_OFF & _PWRTE_OFF
CLEAR
OSCCON =%01110001
DEFINE OSC 8
CMCON0 =7
TRISIO =%00001000
GPIO =0
ADCON0 =0
ANSEL =0
CCP1CON=0
ZeroLine VAR GPIO.3
Out VAR GPIO.5
CountVal VAR WORD
INCLUDE "DT_INTS-14_MOD.bas" ; Base Interrupt System ; Attention ! Modified file !
INCLUDE "ReEnterPBP.bas" ; Include if using PBP interrupts
PAUSE 20
ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler GPIF_INT, _KES, PBP, yes
endm
INT_CREATE
ENDASM
IOC.3 = 1
@ INT_ENABLE GPIF_INT
Begin:
CountVal=0
Start:
SELECT CASE CountVal
CASE IS > 200
CountVal=0
CASE IS > 100
Out=0
CASE IS > 50
Out=1
END SELECT
GOTO Start
KES:
IF ZeroLine THEN CountVal=CountVal + 1
@ INT_RETURN
END
Thanks!
HJ