as/app/calc_addl.casl

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