RA EQU 0x05 RB EQU 0x06 addl MACRO fr,L movlw L addwf fr,F ENDM add MACRO fr1,fr2 movf fr2,W addwf fr1,F ENDM addb MACRO fr,Port,bit btfsc Port,bit incf fr,F ENDM andl MACRO fr,Lt movlw Lt andwf fr,F ENDM and MACRO fr1,fr2 movf fr2,W andwf fr1,F ENDM cjal MACRO fr,L,addr movlw L^0FFh subwf fr,W btfsc 3,0 goto addr ENDM cja MACRO fr1,fr2,addr movf fr1,W subwf fr2,W btfss 3,0 goto addr ENDM cjael MACRO fr,L,addr movlw L subwf fr,W btfsc 3,0 goto addr ENDM cjae MACRO fr1,fr2,addr movf fr2,W subwf fr1,W btfsc 3,0 goto addr ENDM cjbl MACRO fr,L,addr movlw L subwf fr,W btfss 3,0 goto addr ENDM cjb MACRO fr1,fr2,addr movf fr2,W subwf fr1,W btfss 3,0 goto addr ENDM cjbel MACRO fr,L,addr movlw L^0FFh addwf fr,W btfss 3,0 goto addr ENDM cjbe MACRO fr1,fr2,addr movf fr1,W subwf fr2,W btfsc 3,0 goto addr ENDM cjel MACRO fr,L,addr movlw L subwf fr,W btfsc 3,2 goto addr ENDM cje MACRO fr1,fr2,addr movf fr2,W subwf fr1,W btfsc 3,2 goto addr ENDM cjnel MACRO fr,L,addr movlw L subwf fr,W btfss 3,2 goto addr ENDM cjne MACRO fr1,fr2,addr movf fr2,W subwf fr1,W btfss 3,2 goto addr ENDM clc MACRO bcf 3,0 ENDM csal MACRO fr,L movlw L^0ffh addwf fr,W btfss 3,0 ENDM csa MACRO fr1,fr2 movf fr1,W subwf fr2,W btfsc 3,0 ENDM csael MACRO fr,L movlw L subwf fr,W btfss 3,0 ENDM csae MACRO fr1,fr2 movf fr2,W subwf fr1,W btfss 3,0 ENDM csbl MACRO fr,L movlw L subwf fr,W btfsc 3,0 ENDM csb MACRO fr1,fr2 movf fr2,W subwf fr1,W btfsc 3,0 ENDM csbel MACRO fr,L movlw L^0FFh addwf fr,W btfsc 3,0 ENDM csbe MACRO fr1,fr2 movf fr1,W subwf fr2,W btfss 3,0 ENDM csel MACRO fr,L movlw L subwf fr,W btfss 3,2 ENDM cse MACRO fr1,fr2 movf fr2,W subwf fr1,W btfss 3,2 ENDM csnel MACRO fr,L movlw L subwf fr,W btfsc 3,2 ENDM csne MACRO fr1,fr2 movf fr2,W subwf fr1,W btfsc 3,2 ENDM djnz MACRO fr,addr decfsz fr,F goto addr ENDM jb MACRO Port,bit,addr btfsc Port,bit goto addr ENDM jc MACRO addr btfsc 3,0 goto addr ENDM jnb MACRO Port,bit,addr btfss Port,bit goto addr ENDM jnc MACRO addr btfss 3,0 goto addr ENDM jz MACRO addr btfsc 3,2 goto addr ENDM jnz MACRO addr btfss 3,2 goto addr ENDM movl MACRO fr,L movlw L movwf fr ENDM mov MACRO fr1,fr2 movf fr2,W movwf fr1 ENDM movb MACRO Port1,bit1,Port2,bit2 btfss Port2,bit2 bcf Port1,bit1 btfsc Port2,bit2 bsf Port1,bit1 ENDM movnb MACRO Port1,bit1,Port2,bit2 btfsc Port2,bit2 bcf Port1,bit1 btfss Port2,bit2 bsf Port1,bit1 ENDM neg MACRO fr comf fr,F incf fr ENDM not MACRO fr comf fr,F ENDM or MACRO fr1,fr2 movf fr2,W iorwf fr1,F ENDM orl MACRO fr,L movlw L iorwf fr,F ENDM sb MACRO Port,bit btfss Port,bit ENDM sc MACRO btfss 3,0 ENDM snb MACRO Port,bit btfsc Port,bit ENDM snc MACRO btfsc 3,0 ENDM sz MACRO btfss 3,2 ENDM snz MACRO btfsc 3,2 ENDM subl MACRO fr,L movlw L subwf fr,F ENDM sub MACRO fr1,fr2 movf fr2,W subwf fr1,F ENDM subb MACRO fr,Port,bit btfss Port,bit decf fr,F ENDM swapwf MACRO fr xorwf fr,F xorwf fr,W xorwf fr,F ENDM test MACRO fr movf fr,F ENDM tb MACRO fr,bit ;toggle bit movlw 1<<bit xorwf fr ENDM xorl MACRO fr,L movlw L xorwf fr,F ENDM xor MACRO fr1,fr2 mov fr2,W xorwf fr1,F ENDM Wait MACRO fr ;Delay of 3*(fr-1)+2 decfsz fr,F goto $-1 ENDM Delay MACRO fr,L ;Delay L Tcycles (775 > L > 6) movlw (L-3)/3 movwf fr Wait fr movlw 9+3*((L-7)/3)-L addwf PCL,F nop nop ENDM Lngcall MACRO dest movlw HIGH dest movwf pclath call dest movlw HIGH $ movwf pclath ENDM
.