Subversion Repositories openrisc

* 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