projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
異常終了時の返り値を0から1へ変更
[YACASL2.git]
/
doc
/
casl2lib
/
inl
/
call_inl.casl
diff --git
a/doc/casl2lib/inl/call_inl.casl
b/doc/casl2lib/inl/call_inl.casl
index
28c6a9c
..
b16d692
100644
(file)
--- a/
doc/casl2lib/inl/call_inl.casl
+++ b/
doc/casl2lib/inl/call_inl.casl
@@
-1,4
+1,5
@@
-;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
+;;; casl2 -M1024 call_inl.casl $CASL2LIB/inl.casl $CASL2LIB/str2l.casl $CASL2LIB/mull.casl \
+;;; $CASL2LIB/outl.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl
MAIN START
LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
JOV OV
MAIN START
LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
JOV OV
@@
-18,8
+19,8
@@
LENOV OUT LENOVMSG,MLEN3
FIN RET
OVMSG DC 'Over 65535'
MLEN1 DC 10
FIN RET
OVMSG DC 'Over 65535'
MLEN1 DC 10
-NANMSG DC 'Not
A Numb
er'
-MLEN2 DC 1
2
+NANMSG DC 'Not
integ
er'
+MLEN2 DC 1
1
LENOVMSG DC 'Str too long. Stop'
MLEN3 DC 18
END
LENOVMSG DC 'Str too long. Stop'
MLEN3 DC 18
END