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
/
misc
/
divl0.casl
diff --git
a/as/misc/divl0.casl
b/as/misc/divl0.casl
index
28357a9
..
7eb4d64
100644
(file)
--- a/
as/misc/divl0.casl
+++ b/
as/misc/divl0.casl
@@
-2,9
+2,9
@@
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
-DIVL
START
+DIVL
0
START
PUSH 0,GR1
PUSH 0,GR1
- AND GR2,GR2 ; (GR2 = 0)の場合、D
YZ
へジャンプ
+ AND GR2,GR2 ; (GR2 = 0)の場合、D
IVZERO
へジャンプ
JZE DIVZERO ; ↓
LAD GR0,0 ; GR0を初期化
LD GR3,GR1 ; GR3 <- GR1
JZE DIVZERO ; ↓
LAD GR0,0 ; GR0を初期化
LD GR3,GR1 ; GR3 <- GR1