* 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