projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
comet2コマンド実行時のリセット位置を変更
[YACASL2.git]
/
as
/
FUNC
/
outd_q15.casl
diff --git
a/as/FUNC/outd_q15.casl
b/as/FUNC/outd_q15.casl
index
9792d4d
..
4728936
100644
(file)
--- a/
as/FUNC/outd_q15.casl
+++ b/
as/FUNC/outd_q15.casl
@@
-23,7
+23,7
@@
STDN LD GR5,='0' ; 「0」をSTR領域に格納
LD GR5,='.' ; 「.」をSTR領域に格納
ST GR5,STR,GR4 ; ↓
LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
LD GR5,='.' ; 「.」をSTR領域に格納
ST GR5,STR,GR4 ; ↓
LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
-;; GR1の内容を小数値と見なし、10進数
æ
\96
\87
å
\97
ã
\81
«å¤
\89
æ
\8f
\9b
ã
\81
\97
ã
\81
¦STRã
\81
«æ ¼ç´
\8d
+;; GR1の内容を小数値と見なし、10進数
ã
\81
®æ
\96
\87
å
\97
å
\88
\97
ã
\81
«å¤
\89
æ
\8f
\9b
ã
\81
\97
ã
\81
¦STRã
\81
«æ ¼ç´
\8d
TODIG AND GR1,GR1 ; GR1が0の場合は、ループを脱出
JZE PRT ; ↓
CALL MUL ; GR1とGR2の、積をGR1、オーバーフロー値をGR3に格納
TODIG AND GR1,GR1 ; GR1が0の場合は、ループを脱出
JZE PRT ; ↓
CALL MUL ; GR1とGR2の、積をGR1、オーバーフロー値をGR3に格納
@@
-43,7
+43,7
@@
STR DS 20
LEN DS 1
END
;; GR1の値を10倍にし、GR3にオーバーフロー値を格納
LEN DS 1
END
;; GR1の値を10倍にし、GR3にオーバーフロー値を格納
-MUL START
+MUL
START
PUSH 0,GR5
PUSH 0,GR6
LAD GR3,0 ; GR3は、オーバーフロー値を格納
PUSH 0,GR5
PUSH 0,GR6
LAD GR3,0 ; GR3は、オーバーフロー値を格納