root/as/app/calc_addl.casl

;;; casl2 -M768 calc_addl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
MAIN    START
        XOR     GR1,GR1
        XOR     GR2,GR2
LOOP    LD      GR2,GR1
        CALL    INL
        JOV     OV
        AND     GR0,GR0
        JZE     FIN
        CPL     GR0,=#FFFF
        JZE     NAN
        ADDL    GR1,GR2
        JOV     OV
        CALL    OUTL
        JUMP    LOOP
OV      OUT     OVMSG,MLEN1
        CALL    OUTL
        JUMP    LOOP
NAN     OUT     NANMSG,MLEN2
        JUMP    LOOP
FIN     RET
OVMSG   DC      'Over 65535'
MLEN1   DC      10
NANMSG  DC      'Not A Number'
MLEN2   DC      12
        END