;;; casl2 div0_call0.casl div0.casl outl.casl
MAIN    START
BEGIN   LD      GR1,X
        LD      GR2,Y
        CALL    DIVL
        LD      GR1,GR0
        CALL    OUTL
        LD      GR1,GR3
        CALL    OUTL
        RET
X       DC      123
Y       DC      10       
        END