;;; ABSを呼び出す
MAIN    START
        LAD     GR2,0
MLOOP   CPA     GR2,MLEN
        JZE     MFIN
        LD      GR1,MVAL,GR2
        CALL    OUTA
        CALL    ABS
        JOV     PUTOV
        JMI     PUTM
        OUT     PLUS,=1
        JUMP    PUTD
PUTM    OUT     MINUS,=1
        JUMP    PUTD
PUTOV   OUT     OV,=2
PUTD    CALL    OUTA
        OUT     SEP,MLEN
        LAD     GR2,1,GR2
        JUMP    MLOOP
MFIN    RET
MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
MLEN    DC      8
SEP     DC      '--------'
PLUS    DC      '+'
MINUS   DC      '-'
OV      DC      'OV'
        END