Code:
TRISC = %11101111 ' set PORTC I/O
D_Lck var Portc.4
D_Flg var bit
Report var byte[4]
DEFINE DEBUG_REG PORTA
DEFINE DEBUG_BIT 0 ; if not used for pwr
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_MODE 0
pause 2000
Debug "Start",13 ,10
Debug 13 ,10 ,"D_Lck",9 ,"!D_Lck",9, "~D_Lck",9, "D_Flg",9, "!D_Flg",9, "~D_Flg" ,9, "R+!L" ,9, "R+~L" ,9, "R+!F" ,9, "R+~F"
main:
PORTC.4=!PORTC.4
D_Flg=D_Lck
Debug 13 ,10 ,"WRONG"
Report[0] = !D_Lck + 48
Report[1] = ~D_Lck + 48
Report[2] = !D_Flg + 48
Report[3] = ~D_Flg + 48
Debug 13 ,10 ,#D_Lck,9 , #!D_Lck,9, #~D_Lck ,9, # D_Flg ,9, #!D_Flg, 9,# ~ D_Flg ,9,# Report[0] ,9,# Report[1] ,9,# Report[2] ,9,# Report[3]
Debug 13 ,10 ,"CORRECT"
Report[0] = (!D_Lck&1) + 48
Report[1] = (~D_Lck&1) + 48
Report[2] = (!D_Flg&1) + 48
Report[3] = (~D_Flg&1) + 48
Debug 13 ,10 ,#D_Lck,9 , #!D_Lck,9, #~D_Lck ,9, # D_Flg ,9, #!D_Flg, 9,# ~ D_Flg ,9,# Report[0] ,9,# Report[1] ,9,# Report[2] ,9,# Report[3]
pause 1000
goto main
Bookmarks