projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactoring TEST.mk
[YACASL2.git]
/
as
/
casl2lib
/
test
/
inl
/
inl.casl
diff --git
a/as/casl2lib/test/inl/inl.casl
b/as/casl2lib/test/inl/inl.casl
index
b76c51f
..
28c6a9c
100644
(file)
--- a/
as/casl2lib/test/inl/inl.casl
+++ b/
as/casl2lib/test/inl/inl.casl
@@
-8,13
+8,18
@@
LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
JZE NAN
CALL OUTL
JUMP LOOP
JZE NAN
CALL OUTL
JUMP LOOP
-OV OUT OVMSG,MLEN1
+OV CPL GR0,=#FFFF
+ JZE LENOV
+ OUT OVMSG,MLEN1
JUMP LOOP
NAN OUT NANMSG,MLEN2
JUMP LOOP
JUMP LOOP
NAN OUT NANMSG,MLEN2
JUMP LOOP
+LENOV OUT LENOVMSG,MLEN3
FIN RET
OVMSG DC 'Over 65535'
MLEN1 DC 10
NANMSG DC 'Not A Number'
MLEN2 DC 12
FIN RET
OVMSG DC 'Over 65535'
MLEN1 DC 10
NANMSG DC 'Not A Number'
MLEN2 DC 12
+LENOVMSG DC 'Str too long. Stop'
+MLEN3 DC 18
END
END