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
|
* asg/eval test substitution symbols
* .eval value, symbol
* .asg "string", symbol
* .asg string, symbol
.global L1,L2,L3,newlabel,end
.sslist ; list line substitutions
.text
.asg *ar0+, INC ; replace a complete operand
.asg ar0, FP ; replace a sub-operand
.asg "add #1,a", doit ; macro-style
.asg newlabel, LABEL ; replace a label
.asg .word 0, PSEUDO ; replace with a directive
L1: add #100,a
L2: ld *FP+,a
L3: ld INC,a
.asg 0,L2
LABEL: add #L2,a
doit
.asg 0, x
.loop 5
.eval x+1,x
.word x
.endloop
PSEUDO
* Tests from 5.3.2
.asg AR0,FP
.asg *AR1+,Ind
.asg *AR1+0b,Rc_Prop
.asg "string",strng ; NOTE: """string""" not supported
.asg "a,b,c",parms
.asg 1,counter
.loop 100
.word counter
.eval counter + 1, counter
.endloop
end: .word 0x100
.end
|
