X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/a8eb521f94848a627a3fe470e34f62b13c157d34..refs/tags/hexrel-6.2:/z180/ddtz.180

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