X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/958f610fd7c11481fae54d758bf34619d161554a..afbcea2d821d1166ae347338ae52a64f3ee51e57:/cbios/sdio.180

diff --git a/cbios/sdio.180 b/cbios/sdio.180
index d934ef4..28ed4dd 100644
--- a/cbios/sdio.180
+++ b/cbios/sdio.180
@@ -164,9 +164,6 @@ sd$init7:
 ;     relative drive number in @rdrv (8 bits)	+1
 
 sd$login:
-	ld	(sdstack),sp
-	ld	sp,sdstack
-
 	xor	a
 	ld	(residual),a
 	ld	hl,send_msg+1
@@ -198,9 +195,6 @@ sd$login:
 
 	ld	a,(recv_msg_rc)
 	or	a
-
-	ld	sp,(sdstack)
-
 	ret	z
 	ld	hl,0
 	ld	(@xdph),hl
@@ -236,9 +230,6 @@ sd$write:
 	ret
 
 rwc_new_sectors:
-	ld	(sdstack),sp
-	ld	sp,sdstack
-
 	ld	b,1		; assume 1 sector to transfer
 	ld	a,(@cnt)
 	or	a
@@ -289,8 +280,7 @@ retry:
 	call	msg.recv
 	ld	a,(recv_msg_rc)
 	or	a
-;	ret	z		; check status and return to BDOS if no error
-	jr	z,exit
+	ret	z		; check status and return to BDOS if no error
 
 	ld	hl,print_details
 	call	pr.errors
@@ -308,8 +298,6 @@ retry:
 	dec	c
 e_exit:
 	ld	a,c
-exit:
-	ld	sp,(sdstack)
 	ret
 
 ;-------------------------------------------------------------------------------
@@ -403,10 +391,4 @@ fr$msg19:	db	'FR_INVALID_PARAMETER,',0
 fr$msg20:	db	'short read/write,',0
 		db	0
 
-	rept	80
-	 db	07CH
-	endm
-sdstack::
-	dw	0
-
 	end