projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
オペランドに文字定数が指定された場合の動作を修正
[YACASL2.git]
/
as
/
FUNC
/
divl1.casl
diff --git
a/as/FUNC/divl1.casl
b/as/FUNC/divl1.casl
index
f7bb887
..
9fd2fab
100644
(file)
--- a/
as/FUNC/divl1.casl
+++ b/
as/FUNC/divl1.casl
@@
-9,8
+9,8
@@
DIVL START
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
ST GR2,Y ; YにGR2の初期値を保存
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
ST GR2,Y ; YにGR2の初期値を保存
-
LAD GR0,0
; GR0の初期化
-
LAD GR3,0
; GR3の初期化
+
XOR GR0,GR0
; GR0の初期化
+
XOR GR3,GR3
; GR3の初期化
LAD GR4,1 ; GR4の初期化。対象ビットを表す
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓
LAD GR4,1 ; GR4の初期化。対象ビットを表す
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓