; Blank line
loop sleep ; Label and operation
incf 6,1 ; Operation with 2 parameters
goto loop ; Operation with 1 parameter

#define X Y
#defin ; incomplete
#undefine X

number equ 5

label_#v((number + 1) * 5)_suffix equ 0x10

db .34,O'35',O'93',0xAf,0xady,a'a',a'ap,A'\'

any macro parm
movlw parm
endm
any 33

; Shift reg left
slf macro reg
clrc
rlf reg,f
endm

; Scale W by “factor”. Result in “reg”, W unchanged.
scale macro reg, factor
if (factor == 1)
movwf reg ; 1 X is easy
else
scale reg, (factor / 2) ; W * (factor / 2)
slf reg,f ; double reg
if ((factor & 1) == 1) ; if lo-bit set ..
addwf reg,f ; .. add W to reg
endif
endif
endm

scale tmp,D'10'

movwf tmp
clrc
rlf tmp,f
addwf tmp,f

spin macro n
movlw n
addlw 0xff
btfss STATUS,Z
goto $-2
endm

LOOP: BTFSS flag,0x00
GOTO LOOP


BTFSS flag,0x00
GOTO $ - 1