;;; GR1を絶対値に変換する
ABS     START
        AND     GR1,GR1
        JPL     FIN
        JZE     FIN
        XOR     GR1,=#FFFF
        ADDA    GR1,=1
FIN     RET
        END