projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
CASLファイルとテストの整理
[YACASL2.git]
/
as
/
casl2lib_driver
/
inl.casl
1
;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.caslg
2
MAIN START
3
LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
4
JOV NAN
5
AND GR0,GR0
6
JZE FIN
7
CALL OUTL
8
JUMP LOOP
9
NAN OUT NANMSG,MLEN
10
JUMP LOOP
11
FIN RET
12
NANMSG DC 'Not A Number'
13
MLEN DC 12
14
END