Alice Cambell says:
Here are some macros i've been using and fiddling with. They are not complete, and a few might not even be right, but it would get you started:alice
;motmacro.asm list p=16c84 radix dec #include p16c84.inc __CONFIG _LP_OSC & _WDT_OFF &_PWRTE_ON & _CP_OFF ;---------------------------------------------------- ;cpu equates (memory map) status equ 0x03 porta equ 0x05 portb equ 0x06 trisa equ 0x85 trisb equ 0x86 ;yes i know, but i hate uppercase. cblock 0x10 temp tempa wtemp answer endc c = 0 z = 2 w = 0 ;work reg f = 1 ;file reg _pd = 3 _to = 4 ;----------------------------------------------------- org 0x00 nop ;this program is mostly used in simulator. goto tryout ;------------------------------------------------------ ;various macros in no particular order ;macro area ;compare literal in work cmpl macro value ;nondestructive movwf wtemp sublw value swapf wtemp,f swapf wtemp,w endm ;compare file in work cmpf macro file movwf wtemp movfw file subwf wtemp,w endm ;branch not equal bne MACRO fr1,fr2,address movf fr2,W subwf fr1,W btfss 3,2 goto address ENDM ;branch if equal beq MACRO fr1,fr2,address movf fr2,W subwf fr1,W btfsc 3,2 goto address ENDM ;branch if less blo macro address btfss status,c goto address endm ;branch if higher bhi macro address btfsc status,c goto address ENDM ;branch if plus-- test bit 7 set bpl macro file,address ;???? movfw file andlw b'10000000' btfsc status,z goto address ENDM ;branch if minus-- test bit 7 set bmi macro file,address ;???? movfw file andlw b'10000000' btfss status,z goto address ENDM ;branch less than or same bls MACRO fr1,fr2,address movf fr1,W subwf fr2,W btfsc 3,0 goto address ENDM bhs MACRO fr1,fr2,address movf fr2,W subwf fr1,W btfsc 3,0 goto address ENDM cmp macro file movwf wtemp movfw file subwf wtemp,w endm txa MACRO address movfw indf ENDM ldx MACRO address movwf fsr ENDM atx MACRO address movfw indf ENDM ldaf MACRO address movfw address ENDM ldal MACRO L movlw L ENDM bra MACRO address goto address ENDM rts MACRO RETURN ENDM sta MACRO address movwf address ENDM jsr MACRO address call address EMDM jmp MACRO address goto address ENDM sub MACRO address,fr1 ;CHECK THAT FILE SUBTRACTS FROM WORK movfw fr1 subwf address,F ENDM nega MACRO MOVWF wtemp comf wtemp,w ENDM stx MACRO movwf fsr ENDM ;sta movwf whatever sbc MACRO address subwf address, F ENDM subw MACRO address subwf address,f ENDM ;---------------------------------------------------- tryout movlw .8 movwf tempa movlw .8 movwf temp movlw .5 nop cmp tempa bhi true ; bne temp,tempa,true ; movwf answer false stopit goto stopit true orbit goto orbit ;---------------------------------------- end
Code: