X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/3c56f4c2ba4bfa53c22bd0b70453012dd94dee3e..aa1cd3a9e22307c7f0733c3c80c85d3329f5038b:/cbios/bioskrnl.180?ds=sidebyside

diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180
index 0610b31..989b53c 100644
--- a/cbios/bioskrnl.180
+++ b/cbios/bioskrnl.180
@@ -79,7 +79,7 @@ ccp	equ	0100h		; Console Command Processor gets loaded
 	public ?mltio,?flush,?mov,?tim,?bnksl,?stbnk,?xmov
 
 	extrn bs$stack
-	extrn _b0call
+	extrn _b0hlcall
 
 
     ; BIOS Jump vector.
@@ -131,7 +131,7 @@ ccp	equ	0100h		; Console Command Processor gets loaded
 ?ioctl	jp	ioctl		;
 
 
-	rept	48
+	rept	32
 	 db	'|'
 	endm
 boot$stack:
@@ -147,7 +147,7 @@ boot:
 	out0	(cbr),a
 	ld	a,USR$CBAR
 	out0	(cbar),a
-	ld	sp,boot$stack
+	ld	sp,bs$stack
 
 	call	hwinit		; first time hardware initialisation
 
@@ -191,6 +191,7 @@ d$init$next:
 	cseg	; following in resident memory
 
 boot$1:
+	ld	sp,boot$stack
 	call	set$jumps
 	call	?ldccp		; fetch CCP for first time
 	jp	ccp
@@ -478,16 +479,15 @@ seldsk:
 	ld	a,(hl)
 	ld	(@RDRV),a
 	jr	nz,notfirst	; examine login bit
-	ld	hl,-6
+
+	ld	hl,-6		; call LOGIN
 	add	hl,de
 	ld	a,(hl)
 	inc	hl
 	ld	h,(hl)
 	ld	l,a
-	ld	(bs$stack),sp
-	ld	sp,bs$stack
-	call	ijphl		; call LOGIN
-	ld	sp,(bs$stack)
+	call	_b0hlcall
+
 notfirst:
 	ld	hl,(@xdph)	; recover DPH pointer
 	ret
@@ -565,15 +565,13 @@ sectrn:
 	;		extended disk parameter header (XDPH).
 
 read:
-	ld	(bs$stack),sp
-	ld	sp,bs$stack
 	ld	a,1
 	ld	(@op),a
 	ld	ix,(@xdph)	; get drive descriptor pointer
 	ld	l,(ix-8)	; get read routine entry
 	ld	h,(ix-7)
-	call	ijphl		; call LOGIN
-	ld	sp,(bs$stack)
+
+	call	_b0hlcall
 	ret
 
 	; WRITE
@@ -582,15 +580,13 @@ read:
 	;		extended disk parameter header (XDPH).
 
 write:
-	ld	(bs$stack),sp
-	ld	sp,bs$stack
 	ld	a,2
 	ld	(@op),a
 	ld	ix,(@xdph)	; get drive descriptor pointer
 	ld	l,(ix-10)	; get write routine entry
 	ld	h,(ix- 9)
-	call	ijphl		; call LOGIN
-	ld	sp,(bs$stack)
+
+	call	_b0hlcall
 	ret