]>
Commit | Line | Data |
---|---|---|
a5f4bc30 SC |
1 | ! .ALTERNATE |
2 | ! | |
3 | ||
4 | !foo MACRO string | |
5 | ! LOCAL lab1, lab2 | |
6 | !lab1: DATA.L lab2 | |
7 | !lab2: SDATA string | |
8 | ! ENDM | |
9 | ! | |
10 | ||
11 | ! foo "An example" | |
12 | ! LOCAL lab1, lab2 | |
13 | !lab1: DATA.L lab2 | |
14 | LL0001: .long LL0002 | |
15 | !lab2: SDATA "An example" | |
b74e86ec | 16 | LL0002: .byte 65,110,32,101,120,97,109,112,108,101 |
a5f4bc30 SC |
17 | ! foo "using LOCAL" |
18 | ! LOCAL lab1, lab2 | |
19 | !lab1: DATA.L lab2 | |
20 | LL0003: .long LL0004 | |
21 | !lab2: SDATA "using LOCAL" | |
b74e86ec | 22 | LL0004: .byte 117,115,105,110,103,32,76,79,67,65,76 |
a5f4bc30 SC |
23 | ! |
24 | ||
25 | !! test of LOCAL directive | |
26 | ! test of LOCAL directive | |
27 | ! | |
28 | ||
29 | !chk_err MACRO limit | |
30 | ! LOCAL skip !! frob | |
31 | ! LOCAL zap,dog,barf | |
32 | !barf: cmp ax,limit !! check value against | |
33 | ! !! limit | |
34 | ! jle skip !! skip call if OK | |
35 | !skip: call error | |
36 | ! foo dog | |
37 | ! zap dog | |
38 | ! nop | |
39 | ! ENDM | |
40 | ! | |
41 | ||
42 | ! chk_err 5 | |
43 | ! LOCAL skip | |
44 | ! LOCAL zap,dog,barf | |
45 | !barf: cmp ax,5 | |
46 | LL0008: cmp ax,5 | |
47 | ! | |
48 | ! jle skip | |
49 | jle LL0005 | |
50 | !skip: call error | |
51 | LL0005: call error | |
52 | ! foo dog | |
53 | ! LOCAL lab1, lab2 | |
54 | !lab1: DATA.L lab2 | |
55 | LL0009: .long LL000a | |
56 | !lab2: SDATA dog | |
57 | LL000a: .byte 76,76,48,48,48,55 | |
58 | ! zap dog | |
59 | LL0006 LL0007 | |
60 | ! nop | |
61 | nop | |
62 | ! chk_err 10 | |
63 | ! LOCAL skip | |
64 | ! LOCAL zap,dog,barf | |
65 | !barf: cmp ax,10 | |
66 | LL000e: cmp ax,10 | |
67 | ! | |
68 | ! jle skip | |
69 | jle LL000b | |
70 | !skip: call error | |
71 | LL000b: call error | |
72 | ! foo dog | |
73 | ! LOCAL lab1, lab2 | |
74 | !lab1: DATA.L lab2 | |
75 | LL000f: .long LL0010 | |
76 | !lab2: SDATA dog | |
77 | LL0010: .byte 76,76,48,48,48,100 | |
78 | ! zap dog | |
79 | LL000c LL000d | |
80 | ! nop | |
81 | nop | |
82 | ! | |
83 | ||
84 | ! | |
85 | ||
86 | ! END |