root/as/cmd/SUBA/suba_r_adr__as1.casl

;;; SUBA r,adr 演算結果が負数(r < adr)
MAIN    START
        LD      GR1,A
        SUBA    GR1,B
        RET
A       DC      #FFEC           ; -20
B       DC      #FFF6           ; -10
        END