From: Leo C <erbl259-lmu@yahoo.de>
Date: Thu, 19 May 2016 12:51:11 +0000 (+0200)
Subject: Minor bugfixes: clear multi sector count on drive change, ?pmsg
X-Git-Tag: hexrel-6.7~9
X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/commitdiff_plain/d628fed86c7f55f9d15e1bc24af4d2bdb42f96d6

Minor bugfixes: clear multi sector count on drive change, ?pmsg
---

diff --git a/cbios/.gitignore b/cbios/.gitignore
index 679ec97..5e87359 100644
--- a/cbios/.gitignore
+++ b/cbios/.gitignore
@@ -9,7 +9,7 @@ bnkbdos3.spr
 bnkbios3.spr
 resbdos3.spr
 modebaud.inc
-cpm3_*.sys
+cpm3*.sys
 *.zip
 autorevision.cache
 version.inc
diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180
index daa4610..dc04ed1 100644
--- a/cbios/bioskrnl.180
+++ b/cbios/bioskrnl.180
@@ -51,6 +51,7 @@ ccp	equ	0100h		; Console Command Processor gets loaded
 	extrn @dtbl			; table of pointers to XDPHs
 	public @adrv,@rdrv,@trk,@sect	; parameters for disk I/O
 	public @dma,@dbnk,@cnt		;    ''       ''   ''  ''
+	public @xdph
 
     ; memory control
 
@@ -432,7 +433,9 @@ bnksel:
 seldsk:
 	ld	a,c		; save drive select code
 	ld	(@adrv),a
-	ld	b,0		; create index from drive code
+	xor	a
+	ld	(@cnt),a
+	ld	b,a		; create index from drive code
 	ld	hl,@dtbl
 	add	hl,bc		; get pointer to dispatch table
 	add	hl,bc
diff --git a/cbios/utils.180 b/cbios/utils.180
index d9300aa..613cec0 100644
--- a/cbios/utils.180
+++ b/cbios/utils.180
@@ -208,13 +208,13 @@ div_no_restore:			;
 	push	de
 pmsg$loop:
 	ld	a,(hl)
+	inc	hl
 	or	a
 	jr	z,pmsg$exit
 	ld	c,a
 	push	hl
 	call	?cono
 	pop	hl
-	inc	hl
 	jr	pmsg$loop
 pmsg$exit:
 	pop	de
diff --git a/cbios/z180reg.inc b/cbios/z180reg.inc
index 8b93984..52b6129 100644
--- a/cbios/z180reg.inc
+++ b/cbios/z180reg.inc
@@ -150,8 +150,8 @@ dcntl	equ	IOBASE+32h	;DMA/WAIT Control
 	b2m IWI0,4		;
 	b2m DMS1,3		;DREQi Select (Edge/Level)
 	b2m DMS0,2		;
-	b2m DIMA1,1		;DMA Ch1 I/O Memory Mode Select
-	b2m DIMA0,0
+	b2m DIM1,1		;DMA Ch1 I/O Memory Mode Select
+	b2m DIM0,0
 M_MWI	equ M_MWI1 + M_MWI0
 M_IWI	equ M_IWI1 + M_IWI0