root/as/cmd/SUBL/subl_r1_r2.casl

/* [<][>][^][v][top][bottom][index][help] */
;;; SUBL r1,r2
MAIN    START
BEGIN   LD      GR1,A
        LD      GR2,B
        SUBL    GR1,GR2
        RET
A       DC      3
B       DC      1
        END

/* [<][>][^][v][top][bottom][index][help] */