;; CASL2LIB > DIVAを呼び出し、-32767 / 255 の商と剰余を表示
MAIN    START
BEGIN   LD      GR1,A
        LD      GR2,B
        CALL    DIVA
        JOV     ERR
        LD      GR1,GR0
        CALL    OUTA
        LD      GR1,GR3
        CALL    OUTA
        JUMP    FIN
ERR     OUT     EMSG,ELEN
FIN     RET
A       DC      -32767
B       DC      255
EMSG    DC      'error'
ELEN    DC      5
        END