projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
casl2libとtestを整理
[YACASL2.git]
/
as
/
casl2lib
/
outl.casl
diff --git
a/as/casl2lib/outl.casl
b/as/casl2lib/outl.casl
index
a7a6d15
..
bf16e79
100644
(file)
--- a/
as/casl2lib/outl.casl
+++ b/
as/casl2lib/outl.casl
@@
-1,4
+1,5
@@
;;; GR1に格納された値を、10進数の整数値(0〜65535)として表示
+;;; 依存プログラム: DIVL, REV
OUTL START
RPUSH
LAD GR2,10 ; GR2に10進数の「10」を格納。
@@
-29,7
+30,7
@@
PRT ST GR4,LEN ; LEN <- GR4
OUT STR,LEN ; 文字列を出力
RPOP
RET
-STR DS 17
+STR DS 17
; 符号付き2進数で表記した場合を想定
LEN DS 1
NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
END