File: highlight.asm-picsrc

package info (click to toggle)
kf6-syntax-highlighting 6.13.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 47,568 kB
  • sloc: xml: 197,750; cpp: 12,850; python: 3,023; sh: 955; perl: 546; ruby: 488; pascal: 393; javascript: 161; php: 150; jsp: 132; lisp: 131; haskell: 124; ada: 119; ansic: 107; makefile: 96; f90: 94; ml: 85; cobol: 81; yacc: 71; csh: 62; erlang: 54; sql: 51; java: 47; objc: 37; awk: 31; asm: 30; tcl: 29; fortran: 18; cs: 10
file content (60 lines) | stat: -rw-r--r-- 1,115 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
                ; 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