SUBA    START
        LAD    GR1,
        LAD    GR2,100
        SUBA   GR1,GR2
        LAD    GR2,
        
        ST     GR1,RSLT
        RET
RSLT    DS     1
        END