From: Leo C <erbl259-lmu@yahoo.de>
Date: Tue, 26 Apr 2016 09:08:27 +0000 (+0200)
Subject: seldsk bugfix: allways store relativ drive to @RDRV
X-Git-Tag: hexrel-6.7~10
X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/commitdiff_plain/5c4f36fafe99b41935db08f56e59afc55df8b540

seldsk bugfix: allways store relativ drive to @RDRV
---

diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180
index 6ead6c3..daa4610 100644
--- a/cbios/bioskrnl.180
+++ b/cbios/bioskrnl.180
@@ -444,19 +444,21 @@ seldsk:
 	or	h
 	ret	z 		; if no entry in table, no disk
 
-	ld	a,e		; examine login bit
-	and	1
-	ret	nz
-
-	push	ix
-	ld	ix,(@xdph)
-	ld	a,(ix-2)
-	ld	(@RDRV),a	; get relative drive
-	ld	l,(ix-6)	; get address of LOGIN routine
-	ld	h,(ix-5)
-	ex	(sp),ix
-	pop	de
+	bit	0,e		; login bit to zero flag
+	ex	de,hl
+	ld	hl,-2		; get relative drive
+	add	hl,de
+	ld	a,(hl)
+	ld	(@RDRV),a
+	jr	nz,notfirst	; examine login bit
+	ld	hl,-6
+	add	hl,de
+	ld	a,(hl)
+	inc	hl
+	ld	h,(hl)
+	ld	l,a
 	call	ipchl		; call LOGIN
+notfirst:
 	ld	hl,(@xdph)	; recover DPH pointer
 	ret
 
diff --git a/cbios/utils.180 b/cbios/utils.180
index 8157aba..d9300aa 100644
--- a/cbios/utils.180
+++ b/cbios/utils.180
@@ -99,7 +99,7 @@ add_hla:
 ;--------------------------------------------------------------------
 ; rounded div 32 by 16 bit
 ;
-;	HLDE:	Dividend (x)
+;	DEHL:	Dividend (x)
 ;	BC:	Divisor  (y)
 ;    return:
 ;	HLDE: 	Rounded Quotient (q)