Commit | Line | Data |
---|---|---|
39bec121 TW |
1 | * asg/eval test substitution symbols |
2 | * .eval value, symbol | |
3 | * .asg "string", symbol | |
4 | * .asg string, symbol | |
5 | .global L1,L2,L3,newlabel,end | |
6 | .sslist ; list line substitutions | |
7 | .text | |
8 | .asg *ar0+, INC ; replace a complete operand | |
9 | .asg ar0, FP ; replace a sub-operand | |
10 | .asg "add #1,a", doit ; macro-style | |
11 | .asg newlabel, LABEL ; replace a label | |
12 | .asg .word 0, PSEUDO ; replace with a directive | |
13 | ||
14 | L1: add #100,a | |
15 | L2: ld *FP+,a | |
16 | L3: ld INC,a | |
17 | .asg 0,L2 | |
18 | LABEL: add #L2,a | |
19 | doit | |
20 | .asg 0, x | |
21 | .loop 5 | |
22 | .eval x+1,x | |
23 | .word x | |
24 | .endloop | |
25 | PSEUDO | |
26 | ||
27 | * Tests from 5.3.2 | |
28 | .asg AR0,FP | |
29 | .asg *AR1+,Ind | |
30 | .asg *AR1+0b,Rc_Prop | |
31 | .asg "string",strng ; NOTE: """string""" not supported | |
32 | .asg "a,b,c",parms | |
33 | .asg 1,counter | |
34 | .loop 100 | |
35 | .word counter | |
36 | .eval counter + 1, counter | |
37 | .endloop | |
38 | end: .word 0x100 | |
39 | .end |