Merge branch 'master' of dragon:/home/dav/yacasl2
[YACASL2.git] / test / system / casl2 / lib_inl / inl.casl
1 ;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
2 MAIN    START
3 LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
4         JOV     OV
5         AND     GR0,GR0
6         JZE     FIN
7         CPL     GR0,=#FFFF
8         JZE     NAN
9         CALL    OUTL
10         JUMP    LOOP
11 OV      CPL     GR0,=#FFFF
12         JZE     LENOV
13         OUT     OVMSG,MLEN1
14         JUMP    LOOP
15 NAN     OUT     NANMSG,MLEN2
16         JUMP    LOOP
17 LENOV   OUT     LENOVMSG,MLEN3
18 FIN     RET
19 OVMSG   DC      'Over 65535'
20 MLEN1   DC      10
21 NANMSG  DC      'Not A Number'
22 MLEN2   DC      12
23 LENOVMSG DC     'Str too long. Stop'
24 MLEN3   DC      18
25         END