projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b76c51f2823dae54ea563df068edb69af257a278
[YACASL2.git]
/
as
/
casl2lib
/
test
/
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 OUT OVMSG,MLEN1
12
JUMP LOOP
13
NAN OUT NANMSG,MLEN2
14
JUMP LOOP
15
FIN RET
16
OVMSG DC 'Over 65535'
17
MLEN1 DC 10
18
NANMSG DC 'Not A Number'
19
MLEN2 DC 12
20
END