;;; SUBL r,adr,x
MAIN    START
BEGIN   LD      GR1,A
        LAD     GR2,1
        SUBL    GR1,A,GR2
        RET
A       DC      5
        DC      2
        END