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 14L1: add #100,a 15L2: ld *FP+,a 16L3: ld INC,a 17 .asg 0,L2 18LABEL: 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 38end: .word 0x100 39 .end 40