Warning, /frameworks/syntax-highlighting/autotests/input/highlight.asm-picsrc is written in an unsupported language. File is not indexed.
0001 ; Blank line 0002 loop sleep ; Label and operation 0003 incf 6,1 ; Operation with 2 parameters 0004 goto loop ; Operation with 1 parameter 0005 0006 #define X Y 0007 #defin ; incomplete 0008 #undefine X 0009 0010 number equ 5 0011 0012 label_#v((number + 1) * 5)_suffix equ 0x10 0013 0014 db .34,O'35',O'93',0xAf,0xady,a'a',a'ap,A'\' 0015 0016 any macro parm 0017 movlw parm 0018 endm 0019 any 33 0020 0021 ; Shift reg left 0022 slf macro reg 0023 clrc 0024 rlf reg,f 0025 endm 0026 0027 ; Scale W by “factor”. Result in “reg”, W unchanged. 0028 scale macro reg, factor 0029 if (factor == 1) 0030 movwf reg ; 1 X is easy 0031 else 0032 scale reg, (factor / 2) ; W * (factor / 2) 0033 slf reg,f ; double reg 0034 if ((factor & 1) == 1) ; if lo-bit set .. 0035 addwf reg,f ; .. add W to reg 0036 endif 0037 endif 0038 endm 0039 0040 scale tmp,D'10' 0041 0042 movwf tmp 0043 clrc 0044 rlf tmp,f 0045 addwf tmp,f 0046 0047 spin macro n 0048 movlw n 0049 addlw 0xff 0050 btfss STATUS,Z 0051 goto $-2 0052 endm 0053 0054 LOOP: BTFSS flag,0x00 0055 GOTO LOOP 0056 0057 0058 BTFSS flag,0x00 0059 GOTO $ - 1 0060