projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6c770fad77484857e9c3cce8ec97f68326b0030a
[YACASL2.git]
/
as
/
casl2lib
/
sample
/
call_inl.casl
1
;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
2
MAIN START
3
LOOP CALL INL ; GR1に数値、GR2に文字列の長さ
4
JOV NAN
5
JMI BIG
6
LD GR2,GR2
7
JZE FIN
8
CALL OUTL
9
JUMP LOOP
10
NAN OUT NANMSG,NANLEN
11
JUMP LOOP
12
BIG OUT BIGMSG,BIGLEN
13
JUMP LOOP
14
FIN RET
15
NANMSG DC 'Not a number'
16
NANLEN DC 12
17
BIGMSG DC 'Over 65535'
18
BIGLEN DC 10
19
END