as/app/calc_addl.casl

   1 MAIN    START
   2         XOR     GR1,GR1
   3         XOR     GR2,GR2
   4 LOOP    LD      GR2,GR1
   5         CALL    INL
   6         JOV     OV
   7         AND     GR0,GR0
   8         JZE     FIN
   9         CPL     GR0,=#FFFF
  10         JZE     NAN
  11         ADDL    GR1,GR2
  12         JOV     OV
  13         CALL    OUTL
  14         JUMP    LOOP
  15 OV      OUT     OVMSG,MLEN1
  16         CALL    OUTL
  17         JUMP    LOOP
  18 NAN     OUT     NANMSG,MLEN2
  19         JUMP    LOOP
  20 FIN     RET
  21 OVMSG   DC      'Over 65535'
  22 MLEN1   DC      10
  23 NANMSG  DC      'Not A Number'
  24 MLEN2   DC      12
  25         END