X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=doc%2Fcasl2lib%2Finl%2Fcall_inl.casl;h=b16d6924b95275dd535b125de404174a2b908378;hp=28c6a9c5c4620a5c6e5164d0004aee5918adb2a6;hb=refs%2Ftags%2Fv0.1p18;hpb=a624efdf4ae3a309dd991ec148eaa4c4ec565b93 diff --git a/doc/casl2lib/inl/call_inl.casl b/doc/casl2lib/inl/call_inl.casl index 28c6a9c..b16d692 100644 --- 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 @@ -18,8 +19,8 @@ LENOV OUT LENOVMSG,MLEN3 FIN RET OVMSG DC 'Over 65535' MLEN1 DC 10 -NANMSG DC 'Not A Number' -MLEN2 DC 12 +NANMSG DC 'Not integer' +MLEN2 DC 11 LENOVMSG DC 'Str too long. Stop' MLEN3 DC 18 END