CPM3/ZPM3 Cleanup

Source/CPM3/@banks.txt

@@ -1,28 +0,0 @@
-COMMON		8F	??
-CPMSYS		8E	00
-HBIOS		8D	??
-TPA		8C	01
-BUFS		8B	02
-
-8D:7000 -> 8E:0300
-
-
-00 -> 8E
-01 -> 8C
-02 -> 8B
-03 -> 8A
-...
-
-if bnk = 0, then hbbnk = 8EH (BID_USR)
-else hbbnk = 8DH  (BID_BIOS) - bnk
-
-	or	a
-	jr	z,bank0
-	neg			; 2 -> -2
-	add	8DH		; 8D - 2 = 8B
-	jp	HBX_SETBNK
-bank0:
-	ld	a,(8EH)
-	jp	HBX_SETBNK
-	ret
-

Source/CPM3/Build.cmd

@@ -24,7 +24,7 @@ rem pause
 rem Resident CPM3
 echo.
 echo.
-echo *** Resident BIOS ***
+echo *** Resident CPM3 BIOS ***
 echo.
 copy optres.lib options.lib
 copy genres.dat gencpm.dat
@@ -43,7 +43,7 @@ rem pause
 rem Banked CPM3
 echo.
 echo.
-echo *** Banked BIOS ***
+echo *** Banked CPM3 BIOS ***
 echo.
 copy optbnk.lib options.lib
 copy genbnk.dat gencpm.dat
@@ -59,6 +59,25 @@ zx GENCPM -AUTO -DISPLAY
 copy cpm3.sys cpm3bnk.sys
 rem pause
 
+rem Banked ZPM3
+echo.
+echo.
+echo *** Banked ZPM3 BIOS ***
+echo.
+copy optzpm.lib options.lib
+copy genbnk.dat gencpm.dat
+zx RMAC -BIOSKRNL
+zx RMAC -SCB
+zx Z80ASM -BOOT/MF
+zx Z80ASM -CHARIO/MF
+zx Z80ASM -MOVE/MF
+zx Z80ASM -DRVTBL/MF
+zx Z80ASM -DISKIO/MF
+zx LINK -ZPMBIOS3[B]=BIOSKRNL,SCB,BOOT,CHARIO,MOVE,DRVTBL,DISKIO
+rem zx GENCPM -AUTO -DISPLAY
+rem copy cpm3.sys zpm3.sys
+rem pause
+
 rem *** Resident ***
 rem copy cpm3res.sys cpm3.sys
 rem copy genres.dat getcpm.dat

Source/CPM3/Clean.cmd

@@ -3,7 +3,7 @@ setlocal
 
 if exist bios3.spr del bios3.spr
 if exist bnkbios3.spr del bnkbios3.spr
-if exist swpbios3.spr del swpbios3.spr
+if exist zpmbios3.spr del zpmbios3.spr
 if exist *.rel del *.rel
 if exist cpmldr.com del cpmldr.com
 if exist *.err del *.err

Source/CPM3/boot.z80

@@ -38,7 +38,7 @@ tpa$bank	equ 0
 	if banked
 
 	; Clone page zero from bank 0 to additional banks
-	ld	b,2			; last bank
+	ld	b,3			; last bank
 	ld	c,0			; src bank
 init$2:
 	push	bc			; save bank id's
@@ -250,7 +250,7 @@ stpsiz	equ	$ - stpimg
 
 ?ldccp:
 
-	if drvswap
+	if zpm
 
 	; Swap A: and system drive (make A: the system drive)
 	ld	bc,(@dtbl)		; get drive A DPH
@@ -614,6 +614,27 @@ bin2bcd1:
 	pop	bc
 	ret
 
+	if zpm
+
+signon$msg	db	13,10,'ZPM3'
+	if banked
+		db	' [BANKED]'
+	endif
+		db	' on HBIOS v'
+		biosver
+		db	13,10,13,10,0
+		
+ccp$msg		db	13,10,'BIOS Err on '
+ccp$msg$drv	db	'?'
+		db	': No ZCCP.COM file',0
+
+
+ccp$fcb		db	0,'ZCCP    ','COM',0,0,0,0
+		ds	16
+fcb$nr		db	0,0,0
+
+	else
+
 signon$msg	db	13,10,'CP/M v3.0'
 	if banked
 		db	' [BANKED]'
@@ -631,6 +652,8 @@ ccp$fcb		db	0,'CCP     ','COM',0,0,0,0
 		ds	16
 fcb$nr		db	0,0,0
 
+	endif
+
 @bootdu		db	0
 hdspv		db	2		; slices per volume for hard disks (must be >= 1)
 

Source/CPM3/genbnk.dat

@@ -8,7 +8,7 @@ MEMTOP   = FD
 BNKSWT   = Y
 COMBAS   = 80
 LERROR   = Y
-NUMSEGS  = 02
+NUMSEGS  = 03
 MEMSEG00 = 01,43,00
 MEMSEG01 = 0E,72,02
 MEMSEG02 = 01,7F,03

Source/CPM3/optbnk.lib

@@ -5,4 +5,4 @@ false	equ not true
 
 banked	equ true
 
-drvswap	equ false
+zpm	equ false

Source/CPM3/optres.lib

@@ -5,4 +5,4 @@ false	equ not true
 
 banked	equ false
 
-drvswap	equ false
+zpm	equ false

Source/CPM3/optzpm.lib

@@ -6,4 +6,4 @@ false	equ not true
 
 banked	equ true
 
-drvswap	equ true
+zpm	equ true