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