デバッガー機能を追加
[YACASL2.git] / 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