diff options
Diffstat (limited to 'z180/ddtz.180')
| -rw-r--r-- | z180/ddtz.180 | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/z180/ddtz.180 b/z180/ddtz.180 index aa4e977..4411549 100644 --- a/z180/ddtz.180 +++ b/z180/ddtz.180 @@ -958,11 +958,11 @@ do_op_mod: jr l0b58h
; divide x/y
-; x: hl
-; y: de
+; hl: x
+; de: y
; return:
-; x/y: hl
-; rem: de
+; hl: q (x/y)
+; de: r (x%y)
DIV_HL_DE:
push bc
@@ -971,6 +971,11 @@ DIV_HL_DE: ld c,l
ld hl,0 ;r = 0
ld a,16 ;count
+
+; de: x (x shifted out, q shifted in)
+; bc: y
+; hl: r (initially 0)
+
l0b89h:
ex de,hl ;x
add hl,hl ;x <<= 1
@@ -986,7 +991,7 @@ l0b89h: div_no_restore:
dec a
jr nz,l0b89h
- ex de,hl
+ ex de,hl ;hl: q de: r
pop bc
ret
@@ -6240,9 +6245,9 @@ vartabe: ;------------------------------------------
- .phase sysram_start+stacksize
+ .phase sysram_start+bs$stack$size
$stack:
-$stcka equ $ - stacksize
+$stcka equ $ - bs$stack$size
curphse defl $
.dephase
|