Merge pull request #50 from wwarthen/master

CP/M 3 RTC Fix, ZPM3 Hard Disk Image

Source/CPM3/biosldr.z80

@@ -64,13 +64,15 @@ boot1:
 	call	writestr
 	
 	call	cin
-	call	cout
-
+	
 	push	af
+	call	cout
 	ld	de,crlf
 	call	writestr
 	pop	af
 	
+	ld	sp,(stksav)
+	
 	sub	'0'
 	jr	c,boot1
 	cp	10		; !!! Need to test against max disk unit num !!!
@@ -118,9 +120,6 @@ dsk$login1:
 	inc	hl
 	ld	(hl),d		; udpate MSB
 
-
-	
-	ld	sp,(stksav)
 	ret
 	
 wboot:
@@ -253,41 +252,19 @@ xmove:
 	halt
 	
 cin:
-	; save incoming registers (af is output)
-	push	bc
-	push	de
-	push	hl
-
 	; input character from console via hbios
 	ld	c,0D0H			; console unit to c
 	ld	b,00H			; hbios func: input char
 	call	0FFF0H			; hbios reads character
 	ld	a,e			; move character to a for return
-
-	; restore registers (af is output)
-	pop	hl
-	pop	de
-	pop	bc
 	ret
 
 cout:
-	; save all incoming registers
-	push	af
-	push	bc
-	push	de
-	push	hl
-
 	; output character to console via hbios
 	ld	e,a			; output char to e
 	ld	c,0D0H			; console unit to c
 	ld	b,01H			; hbios func: output char
 	call	0FFF0H			; hbios outputs character
-
-	; restore all registers
-	pop	hl
-	pop	de
-	pop	bc
-	pop	af
 	ret
 
 writestr:
@@ -296,7 +273,9 @@ writestr1:
 	ld	a,(de)
 	cp	'$'			; test for string terminator
 	jp	z,writestr2
+	push	de
 	call	cout
+	pop	de
 	inc	de
 	jp	writestr1
 writestr2:
@@ -473,7 +452,7 @@ alvbuf	ds	512	; length (ALV) = ((DSM+1)/4)
 dirbuf	ds	512	; sector buffer
 dtabuf	ds	512	; sector buffer
 
-	ds	32
+	ds	64
 stack	equ	$
 stksav	dw	0
 

Source/CPM3/boot.z80

@@ -110,7 +110,6 @@ cinit$3:
 	ld	(hl),0			; Set table terminator
 
 dinit:
-
 	; loop through all disk devices to count hard disk units
 	ld	b,0F8h			; SYS GET
 	ld	c,010h			; Disk Drive Unit Count
@@ -119,12 +118,12 @@ dinit:
 	ld	a,b			; count to a
 	or	a			; set flags
 	ret	z			; !!! handle zero devices (albeit poorly) !!!
-;
+
 	; loop thru devices to count total hard disk volumes
 	push	bc			; save the device count
 	ld	c,0			; use c as device list index
 	ld	e,0			; init e for hard disk volume count
-;
+
 dinit2:
 	push	bc			; save loop control
 	call	dinit3			; check drive
@@ -133,7 +132,7 @@ dinit2:
 	djnz	dinit2			; loop
 	pop	bc			; restore unit count in b
 	jr	dinit4			; continue
-;
+
 dinit3:
 	push	de			; save de (hard disk volume counter)
 	ld	b,017h			; hbios func: report device info
@@ -144,7 +143,7 @@ dinit3:
 	ret	c			; nope, return
 	inc	e			; increment hard disk count
 	ret				; and return
-;
+
 dinit4:	; set slices per volume (hdspv) based on hard disk volume count
 	ld	a,e			; hard disk volume count to a
 	ld	e,8			; assume 8 slices per volume
@@ -154,20 +153,19 @@ dinit4:	; set slices per volume (hdspv) based on hard disk volume count
 	dec	a			; dec accum to check for count = 2
 	jr	z,dinit5		; yes, skip ahead to implement 4 hdspv
 	ld	e,2			; in all other cases, we use 2 hdspv
-;
+
 dinit5:
 	ld	a,e			; slices per volume value to accum
 	ld	(hdspv),a		; save it
-;
+
 	; setup to enumerate devices to build drvmap
 	ld	b,0F8h			; SYS GET
 	ld	c,010h			; Disk Drive Unit Count
 	rst	08			; e := disk unit count
 	ld	b,e			; count to b
 	ld	c,0			; use c as device list index
-	;ld	hl,dph0			; point to first dph
 	ld	hl,0			; dph index
-;
+
 dinit6:	; loop thru all units available
 	push	bc			; preserve loop control
 	push	hl			; preserve dph pointer
@@ -197,9 +195,7 @@ dinit6a:
 	ld	(hl),a			; zero msb
 	inc	hl			; next byte
 	djnz	dinit6a
-
 	ret				; finished
-;
 dinit7:	; process unit
 	ld	e,0			; initialize slice index
 	ld	b,1			; default loop counter
@@ -209,7 +205,7 @@ dinit7:	; process unit
 	jr	c,dinit8		; nope, leave loop count at 1
 	ld	a,(hdspv)		; get slices per volume to accum
 	ld	b,a			; move to b for loop counter
-;
+
 dinit8:
 	; d=unit, e=slice, l=dph#
 	ld	a,l			; dph # to accum
@@ -233,12 +229,17 @@ dinit8:
 	djnz	dinit8			; loop till done with unit
 	ret
 
-addhla:
-	add	a,l
-	ld	l,a
-	ret	nc
-	inc	h
-	ret
+; RomWBW CBIOS page zero stamp starts at $40
+; $40-$41: Marker ('W', ~'W')
+; $42-$43: Version bytes: major/minor, update/patch
+; $44-$45: CBIOS Extension Info address
+
+stploc	equ	40h
+stpimg	db	'W',~'W'		; marker
+	db	rmj << 4 | rmn		; first byte of version info
+	db	rup << 4 | rtp		; second byte of version info
+	dw	cbx			; address of cbios ext data
+stpsiz	equ	$ - stpimg
 
 	cseg	; boot loading most be done from resident memory
 	
@@ -248,6 +249,7 @@ addhla:
 ?ldccp:
 	; First time, load the CCP.COM file into TPA
 	ld	a,(@sysdr)		; get system boot drive
+	;ld	(4),a			; save in page zero (zpm?)
 	inc	a			; drive + 1 for FCB
 	ld	(ccp$fcb),a		; stuff into FCB
 	add	'A' - 1			; drive letter
@@ -359,9 +361,12 @@ rl$1:
 	jr	?ldccp
 
 	endif
-
+	
 ?time:
-
+	; per CP/M 3 docs, *must* preserve HL, DE
+	push	hl
+	push	de
+	
 	; branch to get or set routine
 	ld	a,c		; get switch value
 	or	a		; test for zero
@@ -385,7 +390,7 @@ rl$1:
 	ld	a,(tim$sec)	; get second from time buf
 	ld	(@sec),a        ; ... and put in SCB
 	
-	ret
+	jr	time$ret
 
 time$set:
 	; CPM date/time in SCB -> RTC
@@ -406,8 +411,15 @@ time$set:
 	ld	hl,tim$buf	; ... from time buffer
 	rst	08		; do it
 	
+	jr	time$ret
+
+time$ret:
+	; restore HL, DE
+	pop	de
+	pop	hl
 	ret
 
+
 date2cpm:
 	; Convert YYMMSS from time buffer at HL
 	; into offset from CPM epoch and store
@@ -497,6 +509,38 @@ daystbl:
 	dw	304		; November
 	dw	334		; December
 
+		; RTC time buffer (all values packed bcd)
+tim$buf:
+tim$yr		db	80h
+tim$mon		db	05h
+tim$day		db	10h
+tim$hr		db	01h
+tim$min		db	02h
+tim$sec		db	03h
+
+open:
+	ld	c,15
+	jp	bdos
+
+setdma:
+	ld	c,26
+	jp	bdos
+
+setmulti:
+	ld	c,44
+	jp	bdos
+
+read:
+	ld	c,20
+	jp	bdos
+	
+addhla:
+	add	a,l
+	ld	l,a
+	ret	nc
+	inc	h
+	ret
+
 bcd2bin:
 	; convert A from packed bcd to binary
 	push	bc
@@ -534,22 +578,6 @@ bin2bcd1:
 	pop	bc
 	ret
 
-open:
-	ld	c,15
-	jp	bdos
-
-setdma:
-	ld	c,26
-	jp	bdos
-
-setmulti:
-	ld	c,44
-	jp	bdos
-
-read:
-	ld	c,20
-	jp	bdos
-
 signon$msg	db	13,10,'CP/M v3.0'
 	if banked
 		db	' [BANKED]'
@@ -557,7 +585,7 @@ signon$msg	db	13,10,'CP/M v3.0'
 		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 CCP.COM file',0
@@ -570,27 +598,6 @@ fcb$nr		db	0,0,0
 @bootdu		db	0
 hdspv		db	2		; slices per volume for hard disks (must be >= 1)
 
-		; RTC time buffer (all values packed bcd)
-tim$buf:
-tim$yr		db	0
-tim$mon		db	0
-tim$day		db	0
-tim$hr		db	0
-tim$min		db	0
-tim$sec		db	0
-
-; RomWBW CBIOS page zero stamp starts at $40
-; $40-$41: Marker ('W', ~'W')
-; $42-$43: Version bytes: major/minor, update/patch
-; $44-$45: CBIOS Extension Info address
-
-stploc	equ	40h
-stpimg	db	'W',~'W'		; marker
-	db	rmj << 4 | rmn		; first byte of version info
-	db	rup << 4 | rtp		; second byte of version info
-	dw	cbx			; address of cbios ext data
-stpsiz	equ	$ - stpimg
-
 ; The following section contains key information and addresses for the
 ; RomWBW CBIOS.  A pointer to the start of this section is stored with
 ; with the CBX data in page zero at $44 (see above).

Source/Images/BuildHD.ps1

@@ -11,7 +11,7 @@ if (!(Test-Path('Blank.tmp'))) {Set-Content -Value $Blank -Encoding byte -Path '
 
 "Creating hard disk images..."
 #for ($Dsk=0; $Dsk -lt 2; $Dsk++)
-foreach ($Dsk in @("hd0","hd1","hd_cpm3"))
+foreach ($Dsk in @("hd0","hd1","hd_cpm3","hd_zpm3"))
 {
 	"Generating Hard Disk ${Dsk}..."
 	for ($Slice=0; $Slice -lt 4; $Slice++)

Source/Images/hd_zpm3/s0/u0/WBW.TXT

@@ -0,0 +1,16 @@
+With the following exceptions, the files in this directory
+came from the CP/M 3 binary distribution on "The Unofficial
+CP/M Web site" at http://www.cpm.z80.de/binary.html.
+
+As documented in the "README.1ST" file, the included
+files have been patched with all applicable DRI patches
+per CPM3FIX.PAT.
+
+In addition, the following have been added:
+
+- INITDIR.COM was not included.  The copy included is the
+  original DRI distribution, with both patches installed.
+
+- ZSID6.COM is the original DRI ZSID distribution, but
+  patched to use RST 6 instead of RST 7 to avoid conflicting
+  with mode 1 interrupts.

Source/Images/hd_zpm3/s1/u0/CHAPTER1.DOC

@@ -0,0 +1,2 @@
+Thió ió chapteò 1.
+

Source/Images/hd_zpm3/s1/u0/CHAPTER2.DOC

@@ -0,0 +1,2 @@
+Thió ió chapteò 2.
+

Source/Images/hd_zpm3/s1/u0/CHAPTER3.DOC

@@ -0,0 +1,2 @@
+Thió ió chapteò 3.
+

Source/Images/hd_zpm3/s1/u0/DIARY.DOC

@@ -0,0 +1,74 @@
+                           Trið Diary
+
+Septembeò 10
+
+Whaô  á wonderfuì citù Londoî is¡  We'vå beeî herå twï  dayó  anä �
+havå  beeî  literallù runninç froí onå touò  tï  another®   We'rå �
+prettù  exhausted¬ anä looë ferwarä tï explorinç á fe÷ sightó  oî �
+ouò own.
+
+Thió  morninç wå tooë á touò thaô begaî aô Trafalgaò Square®   Wå �
+tooë  thå  undergrounä (theiò worä foò subway©  froí  ouò  hotel®  �
+We'vå  founä  thå  Londoî undergrounä tï bå á greaô  waù  tï  geô �
+arounä  anä  lesó  costlù thaî taxis®  Wå haä  á  whirlwinä  touò �
+seeinç  Parliament¬  thå Toweò oæ London¬ Toweò Bridge¬  anä  thå �
+changinç  oæ thå guarä aô thå palace®  Mosô impressivå  werå  thå �
+crowî jeweló iî thå Toweò oæ London.
+
+Wå  havå beiî tourinç sï mucè thaô thió afternoon¬ wå decideä  tï �
+dï  á  littlå  shopping®   Wå wenô tï onå  oæ  thå  worlä  famouó �
+departmenô  stores®  Thå enormitù oæ thå placå waó  overwhelming®  �
+Wå founä wå werå morå comfortablå shoppinç inthå smalleò shops® É �
+boughô á wooì scaræ anä á teá set.
+
+Hydå Parë ió walkinç distancå froí ouò hotel®  Sï aô thå enä oæ á �
+hectiã day¬ wå decideä á strolì througè thå parë waó jusô whaô wå �
+needed®   Wå endeä uð sittinç oî á parë bencè foò abouô aî  hour® �
+Thå peoplå-watchinç waó fun®  Alì thå classiã Englisè  characteró �
+passeä  beforå uó ­­ meî iî derbù ható anä piî  stripes¬  nannieó �
+pushinç babù carriages¬ anä bobbieó amonç them.
+
+Ouò  morninç  touò  guidå saiä nï visiô  tï  Londoî  ió  completå �
+withouô  teá  aô thå Ritú Hotel®  Sï froí Hydå Park wå  walkeä  á �
+shorô distancå uð Picadillù anä haä á mosô memorablå testime®  Iô �
+waó  reallù á smalì meal¬ witè hoô disheó beinç offereä witè  thå �
+usuaì farå oæ scones¬ cookies¬ anä cakes.
+
+Afteò sufficientlù stuffinç ourselveó aô teatime¬ wå walkeä á biô �
+more®  Buô thå Londoî rusè houò goô tï uó sï wå decideä tï taëe iî �
+á moviå ratheò thaî trù tï geô bacë tï thå hotel®  Somehow¬  I'vå �
+gotteî enougè energù tï writå thió entrù iî mù trið diary®   I'vå �
+haä á trulù wonderfuì daù®  É lovå thió city.
+
+Septembeò 12
+
+I'vå  goô tï catcè uð oî twï dayó oæ diarù entries®  Wå  wenô  tï �
+thå theateò lasô night¬ anä goô bacë tï thå hoteì toï latå tï  dï �
+anù writing.
+
+Yesterday¬  wå tooë á breaë froí organizeä tours¬ anä decideä  tï �
+visiô  severaì  Londoî siteó oî ouò own®  Iî thå morninç  wå  wenô  tï �
+Westminsteò  Abbey®  Wå boughô á guidebooë anä tooë  á  leisurelù �
+touò oæ thå church®  
+
+Iî thå afternoon¬ wå visiteä thå Britisè Museum®  Thå placå ió sï �
+hugå  thaô iô ió impossiblå tï eveî thinë oæ coverinç iô  alì  iî �Šonå afternoon®  Buô wå tooë á quicë touò anä sa÷ thå Magná Carta¬ �
+thå Rosettá Stone¬ anä á hugå collectioî oæ originaì  manuscriptó �
+anä  musicaì scoreó ­­ Bach¬ Handel¬ Beethoven¬  Keats¬  Shelley¬ �
+Dickenó, anä manù more.
+
+Today¬  wå lefô Londoî anä tooë á daù touò tï Stratforä-oî-Avon¬  thå �
+birthplacå  oæ Williaí Shakespeare®  Wå wenô bù buó witè á  largå �
+grouð  buô thå touò guidå waó sï welì informeä thaô iô  waó  welì �
+wortè  it®  Wå covereä á loô iî onå daù anä eveî tooë timå foò  á �
+leisurelù luncè aô á locaì hotel.
+
+Stratforä-oî-Avoî   ió  á  picturesquå  littlå  towî  anä   stilì �
+maintainó  itó  Elizabethaî  flavor®   Mosô  buildingó  arå   thå �
+originaló  anä havå beeî verù welì preserved®  Wå enjoyeä  seeinç �
+alì thå siteó relateä tï Shakespeare'ó life.
+
+Tomorro÷ ió ouò lasô daù iî London®  We'lì havå tï makå thå  mosô �
+oæ it!
+
+

Source/Images/hd_zpm3/s1/u0/HYEXCEPT.TXT

@@ -0,0 +1,358 @@
+CON-TROL-LABLE
+EQ-UABLE
+IN-SA-TIABLE
+NE-GO-TIABLE
+SO-CIABLE
+TURN-TABLE
+UN-CON-TROLLABLE
+UN-SO-CIABLE
+
+DE-PEND-ENT
+IN-DE-PEND-ENT
+
+ANY-THING
+BAL-DING
+DAR-LING
+DUMP-LING
+ERR-ING
+EVE-NING
+EVERY-THING
+FAR-THING
+FOUND-LING
+INK-LING
+MAIN-SPRING
+NEST-LING
+OFF-SPRING
+PLAY-THING
+SAP-LING
+SHOE-STRING
+SIB-LING
+SOME-THING
+STAR-LING
+STER-LING
+UN-ERR-ING
+UP-SWING
+WEAK-LING
+YEAR-LING
+
+CIV-I-LIZE
+CRYS-TAL-LIZE
+IM-MO-BI-LIZE
+ME-TA-BO-LIZE
+MO-BI-LIZE
+MO-NOP-O-LIZE
+STA-BI-LI*ZE
+TAN-TA-LIZE
+UN-CIV-I-LIZED
+
+PAL-ATE
+IN-CLEM-ENT
+BAR-ON-ESS
+LI-ON-ESS
+EU-LOGY
+PED-A-GOGY
+LUS-CIOUS
+AT-MOS-PHERE
+MET-AL
+NON-METAL
+PET-AL
+POST-AL
+RENT-AL
+CAT-ION
+COM-BAT-IVE
+STAT-URE
+BECK-ON
+BES-TIAL
+COM-A-TOSE
+COME-BACK
+CO-ME-DIAN
+COMP-TROLLER
+CONE-FLOWER
+CO-NUN-DRUM
+EQUIPPED
+HANDLE-BAR
+INCH-WORM
+INK-BLOT
+INN-KEEPER
+IN-TE-RIOR
+MIN-IS-TER
+MIN-IS-TRY
+NONE-THE-LESS
+QUA-DRILLE
+SOM-ER-SAULT
+SU-PE-RIOR
+U-NA-NIM-ITY
+U-NAN-I-MOUS
+UNC-TUOUS
+DEBT-OR
+AC-KNOW-LEDGE
+DE-DUCT-I*BLE
+EX-ACT-I-TUDE
+IN-EX-ACT-I-TUDE
+PRE-DICT-*ABLE
+RE-SPECT-*ABLE
+UN-PRE-DICT-ABLE
+VICT-UAL
+NEEDLE-WORK
+IDLER
+BUFF-ER
+OFF-BEAT
+OFF-HAND
+OFF-PRINT
+OFF-SHOOT
+OFF-SHORE
+STIFF-EN
+LEFT-IST
+LEFT-OVER
+LIFT-OFF
+SOFT-HEARTED
+EGG-SHELL
+EGG-PLANT
+EGG-NOG
+EGG-HEAD
+COGNAC
+FOR-EIGN-ER
+VIGNETTE
+HOGS-HEAD
+CHILD-ISH
+ELD-EST
+GOLD-EN
+HOLD-OUT
+HOLD-OVER
+HOLD-UP
+SELF-ISH
+BULL-ISH
+CREST-FALLEN
+DIS-TILL-*E*RY
+FALL-OUT
+LULL-ABY
+ROLL-AWAY
+SELL-OUT
+WALL-EYE
+PSALM-IST
+ELSE-WHERE
+FALSE-HOOD
+CON-SULT-ANT
+VOLT-AGE
+RE-SOLV-ABLE
+RE-VOLV-ER
+SOLV-ABLE
+UN-SOLV-ABLE
+BEACH-COMBER
+BOMB-ER
+CLIMB-ER
+PLUMB-ER
+DAMP-EN
+DAMP-EST
+CLINCH-ER
+LAUNCH-ER
+LUNCH-EON
+RANCH-ER
+TRENCH-ANT
+AN-NOUNCER
+BOUNCER
+FENCER
+HENCE-FORTH
+MINCE-MEAT
+SI-LENCER
+BIND-ERY
+BOUND-ARY
+COM-MEND-*A-*T*ORY
+DE-PEND-ABLE
+EX-PEND-ABLE
+FIEND-ISH
+LAND-OWNER
+OUT-LAND-ISH
+ROUND-ABOUT
+SEND-OFF
+STAND-OUT
+UN-DER-STAND-ABLE
+CHANGE-OVER
+HANG-OUT
+HANG-OVER
+HA-RANGUE
+ME-RINGUE
+ORANGE-ADE
+TONGUE
+VENGE-ANCE
+SENSE-LESS
+AC-COUNT-ANT
+ANT-ACID
+ANT-EATER
+COUNT-ESS
+PER-CENT-*AGE
+REP-RE-SENTATIVE
+ANT-HILL
+PENT-HOUSE
+AC-CEPT-ABLE
+AC-CEPTOR
+ADAPT-ABLE
+ADAPT-ER
+CRYPT-ANALYSIS
+IN-TER-RU*P*T-*I*BLE
+AN-TIQ-UI*TY
+INEQ-UITY
+INIQ-UITY
+LIQ-UEFY
+LIQ-UID
+LIQ-UI-D*A*T*E
+LIQ-UI-D*A-*T*ION
+LIQ-UOR
+PRE-REQ-UI-SITE
+REQ-UI-SI-TION
+SUB-SEQUENCE
+U-BIQ-UI-TOUS
+AB-SORB-ENT
+CARB-ON
+HERBAL
+IM-PERT-TURB-ABLE
+ARCH-ERY
+ARCH-AN-GEL
+RE-SEARCH-ER
+UN-SEARCH-ABLE
+AC-CORD-ANCE
+BOARD-ER
+CHORDAL
+HARD-EN
+HARD-EST
+HAZ-ARD-OUS
+JEOP-ARD-IZE
+RE-CORDER
+STAND-ARD-IZE
+STEW-ARD-ESS
+YARD-AGE
+SURF-ER
+MORGUE
+CURL-I-CUE
+AF-FIRM-*A*T*IVE
+CON-FORM-*ITY
+DE-FORM-ITY
+IN-FORM-A*NT
+NON-CON-FORM-IST
+CAV-ERN-OUS
+DIS-CERN-IBLE
+MOD-ERN-IZE
+TURN-ABOUT
+TURN-OVER
+UN-GOV-ERN-ABLE
+WEST-ERN-IZE
+HARP-IST
+SHARPEN
+TORQUE
+COARS-EN
+IR-RE-VERS-IBLE
+NURSE-MAID
+NURS-ERY
+RE-HEARS-AL
+RE-VERS-IBLE
+WORS-EN
+ART-IST
+CON-VERT-IBLE
+COURT-YARD
+FORE-SHORT-EN
+HEART-ACHE
+HEART-ILY
+SHORT-EN
+APART-HEID
+COURT-HOUSE
+EARTH-EN-WARE
+NORTH-EAST
+NORTH-ERN
+PORT-HOLE
+NERV-OUS
+OB-SERV-A*BLE
+OB-SERVER
+PRE-SERV-*A*T*I*VE
+SERV-ER
+
+SERV-ICE-ABLE
+PRE-SCHOOL
+CON-DE-SCEND
+CRE-SCENDO
+DE-CRE-SCENDO
+DE-SCEND-ENT
+DE-SCENT
+PLEB-I-SCITE
+RE-SCIND
+SEA-SCAPE
+ASKANCE
+SNAKE-SKIN
+WHISK-ER
+COLE-SLAW
+RATTLE-SNAKE
+CLASS-IFY
+CLASS-ROOM
+CROSS-OVER
+DIS-MISS-*AL
+EX-PRESS-*I*BLE
+IM-PASS-ABLE
+LESS-EN
+PASS-ABLE
+TOSS-UP
+UN-CLASS-I-FIED
+AR-MI-STICE
+ASTIG-MA-TISM
+ASTIR
+ASTONISH-MENT
+BLAST-OFF
+BY-STAND-ER
+CANDLE-STICK
+CAST-AWAY
+CAST-OFF
+CON-TEST-ANT
+CO-STAR
+DE-TEST-ABLE
+DI-GEST-IBLE
+EAST-ERN
+EX-IST-ENCE
+FORE-STALL
+IN-CON-TEST-ABLE
+IN-DI-GES*T-*I*BLE
+IN-EX-HAUST-IBLE
+LIFE-STYLE
+LIME-STONE
+LIVE-STOCK
+MILE-STONE
+NON-EX-IST-ENT
+PER-SIST-ENT
+PHO-TO-STAT
+RE-START-ED
+RE-STATE-MENT
+RE-STORE
+SHY-STER
+SIDE-STEP
+SMOKE-STACK
+SUG-GEST-*I*BLE
+THERMO-STAT
+WASTE-BAS-KET
+WASTE-LAND
+MAST-HEAD
+POST-HU-MOUS
+PRIEST-HOOD
+SIDE-SWIPE
+WATT-METER
+BE-TWEEN
+KIB-ITZER
+BUZZ-ER
+AL-GO-RITHM
+BIB-LI-OG-RAPHY
+BI-NO-MIAL
+CEN-TER
+COM-PUT-A*BIL-ITY
+DEC-LA-RA-TION
+DE-GREE
+ES-TAB-LISH
+GEN-ER-ATOR
+HAP-HAZARD
+NEG-LI-GIBLE
+PE-RI-ODIC
+POLY-NO-MIAL
+PRE-VIOUS
+PROB-ABIL-ITY
+PROB-ABLE
+PRO-CE-DURE
+PUB-LI-CA-TION
+PUB-LISH
+RE-PLACE-MENT
+WHEN-EVER
+

Source/Images/hd_zpm3/s1/u0/PRINT.TST

@@ -0,0 +1,143 @@
+.hePRINT.TST                                Features of Your Printer
+.f1                                                         WordStar
+.f2                                                       Print test 
+.f3                                                           Page #
+.oj on
+                    WordStaò anä Youò Printer
+
+WordStar‚  workó  witè á widå rangå oæ printeró anä offeró  yoõ  á �
+varietù  oæ prinô enhancements®  Whetheò youò printeò caî producå �
+thå  prinô enhancementó outlineä iî thió documenô dependó oî  itó �
+capabilities®   Pleaså notå thaô noô alì printeró arå capablå  oæ �
+showinç alì thå exampleó below.
+
+Speciaì Printinç Capabilities
+
+WordStaò supportó thå followinç speciaì printinç capabilities:
+
+     ª    Boldface¬ Doublå strike
+     *    Italics/Alternatå ribboî color
+     *    Strikå out
+     *    Overprinô (aó iî co^te)
+     *    Noncontinuouó underline¬ anä
+.ul on
+     *    Continuouó underline
+.ul off
+     
+     *    SuperScript¬ SubScript
+
+     *    anä almosô anù combinatioî -­ WordStar
+
+Characteò Width
+
+Somå  printeró  wilì  supporô  WordStar‚  commandó  foò   variablå �
+characteò widths®�
+
+.cw 24
+µ characteró peò inch®  (.C× 24)
+.cw 20
+¶ characteró peò inch®  (.C× 20)
+.cw 14
+8.¶ characteró peò inch®  (.C× 14)
+.cw 12
+1° characteró peò inch®  (.C× 12)
+.cw 10
+1² characteró peò inch®  (.C× 10)
+.cw 7
+17.± characteró peò inch®  (.C× 7)
+.cw 12
+
+Youò printeò caî alsï bå seô tï "toggle¢ betweeî normaì pitcè anä �
+alternatå pitch:
+
+     Thió  sentencå ió printeä witè thå normaì 1°-pitcè  setting¬ �
+     
theî toggleä tï 1² pitch¬ theî bacë tï normal.

+.cw 7
+
+Yoõ caî alsï changå thå normaì anä alternatå characteò widths:
+
+.cw 14
+.rm 55
+     Thå  "normal¢ characteò widtè ió 1´ (8.¶ cpi©  anä �
+     thå 
alternatå characteò widtè ió · (17.± cpi).
+.pa
Š.rm 65
+.cw 10
+
+.cw 12
+Linå Height
+
+Yoõ caî alsï uså differenô linå heights.
+
+.lh 16
+Thió ió aî examplå oæ variablå linå height®  (.LÈ 1¶ ­ ³ lpi)
+.lh 12
+Thió ió aî examplå oæ variablå linå height®  (.LÈ 1² ­ ´ lpi)
+.lh 8
+Thió ió aî examplå oæ variablå linå height®  (.LÈ ¸  ­ ¶ lpi)
+.lh 6
+Thió ió aî examplå oæ variablå linå heighô®  (.LÈ ¶  ­ ¸ lpi)
+.lh 8
+
+Proportionaì Printing
+
+.ps on
+.uj on
+WordStar‚  alsï supportó proportionaì printinç foò  mosô  printeró �
+thaô  havå  it®   Yoõ  selecô  proportionaì  fontó  bù   changinç �
+characteò widthó aó iî thå followinç examples:�
+
+.cw 22
+Thió ió characteò widtè 22.
+.cw 11
+Thió ió characteò widtè 11.
+.cw 9
+Thió ió characteò widtè 9.
+.cw 7
+Thió ió characteò widtè 7.
+.uj dis
+.ps off
+.cw 12
+
+Other
+
+Phantoí Spacå¬ Phantoí Rubout
+
+WordStaò maù allo÷ yoõ tï prinô speciaì characteró (foò  example¬ �
+á  paragrapè  sigî  oò centó sign© bù  usinç  thå  phantoí  spacå �
+commanä (^PF© oò thå phantoí rubouô commanä (^PG© iî á  document®  �
+Foò  youò  printer¬ thå phantoí spacå characteò isº  ¬  anä  thå �
+phantoí rubouô characteò isº .
+
+Switchinç tï Drafô Mode
+
+.lq off
+Doô matriø printeò driveró allo÷ switchinç froí NLÑ (neaò  letteò �
+quality© modå tï drafô modå foò fasteò printing.
+.lq on
+
+Microspacå Justification
+
+.uj on
+WordStar‚   allowó  microspacå  justification¬  iæ  youò   printeò �
+supportó  it¬ tï producå evenlù spaceä wordó iî  justifieä  text®  �
+Microspacinç spreadó thå whitå spacå betweeî wordó (anä sometimeó �
+betweeî thå letteró oæ eacè word© aó evenlù aó possible®    
+.uj dis
+.pa
ŠLookinç Aô Thió Filå Onscreen
+
+Iæ  yoõ wanô tï seå thå embeddeä commandó thaô produceä thå  texô �
+yoõ arå no÷ reading¬ follo÷ theså steps:
+
+1    Aô thå Openinç Menu¬ presó D‚ tï ediô á document.
+
+²    Aô thå prompô foò filename¬ typå print.tsô anä presó Enter.
+
+Noticå thaô thå texô onscreeî includeó somå characteró thaô don'ô �
+appeaò  iî  thå  printeä copy®  Foò example¬ á  headinç  linå  ió �
+identifieä  bù  thå  doô  commanä .he®   Wordó  iî  boldfacå  arå �
+surroundeä bù ^Â anä appeaò eitheò highlighteä oò iî á  differenô �
+coloò oî youò screen.
+
+Tï continuå viewinç thå contentó oæ thió file¬ ¬ presó ^C®  Presó �
+^R‚ tï movå iî thå otheò direction.
+

Source/Images/hd_zpm3/s1/u0/README

@@ -0,0 +1,15 @@
+This  disk  contains  an updated printer  driver  file  for  your 
+WordStar,  CP/M Edition, Release 4.  This file corrects  problems 
+you may have experienced with form feeds, page length, and right- 
+justified proportional spacing.  
+
+Follow  the instructions on page xxii of the  WordStar  Reference 
+Guide for creating a new WSPRINT.OVR file.  Substitute a copy  of 
+this  WSPRINT disk (make sure it is a boot disk) for the copy  of 
+your original PRINT disk in step 2.
+
+
+     
+
+
+

Source/Images/hd_zpm3/s1/u0/RULER.DOC

@@ -0,0 +1,22 @@
+                         Thå Ruleò Line
+
+Thió  documenô  ió seô uð tï teacè yoõ abouô ruleò  lines®   Thió �
+texô  waó writteî usinç thå defaulô lefô anä righô marginó  oæ  ± �
+anä  65®   Wå didn'ô changå anù tabó here®  Next¬  wå  wanteä  tï  �
+changå  botè  marginó  tï  indenô thå texô®   Wå  useä  doô �
+commands®  Witè doô commands¬ thå ne÷ marginó arå saveä wheî  yoõ �
+exiô anä savå thå document.�
+.lm10
+.rm45
+         Ne÷  marginó  changå thå  ruleò  anä �
+         text®   Watcè thå ruleò linå aó  yoõ �
+         movå  thå cursoò througè thió  text®  �
+         WordStaò wilì continuå tï holä theså �
+         marginó untiì yoõ enteò anotheò  doô �
+         ãommand.  
+.lm1
+.rm65
+Margiî  changeó brinç thå ruleò anä thå texô bacë tï thå  defaulô �
+settingó oncå again.
+
+

Source/Images/hd_zpm3/s1/u0/SAMPLE1.DOC

@@ -0,0 +1,17 @@
+                            Itinerary
+
+Depart    Datå     Time        Arrive     Date     Time
+
+Florence  10¯3±    08:30 a     Rome       10¯31    05:3µ p
+Romå      11¯05    08:00 a     Naples     11/05    12:2· p    
+
+Noô includeä iî thå rateó are
+.lm10
+.rm55
+
+         Transfeò  services¬ sightseeing¬ mealó  excepô �
+         aó specified¬ tipó tï statioî porters¬  wines¬ �
+         spirits¬   mineraì waters¬  laundry¬   theateò �
+         tickets¬ anä otheò itemó oæ á similaò personaì �
+         nature® 
+

Source/Images/hd_zpm3/s1/u0/SAMPLE2.DOC

@@ -0,0 +1,15 @@
+
+Excursions
+
+
+Daù ± 
+Florencå-Romeº  Leavå aô 8:3° aí bù deluxå motorcoach®  Arrivå aô �
+Romå iî thå afternoon® 
+
+Daù ² 
+Romeº   Morninç  anä afternooî citù  sightseeinç  bù  motorcoach®  �
+Englisè speakinç guidå optional.
+
+Farå iî firsô clasó hotelsº  $100.00®  Batè optionaìº  $25.00® 
+
+

Source/Images/hd_zpm3/s1/u0/SAMPLE3.DOC

@@ -0,0 +1,5 @@
+Daù 8
+Romå-Naplesº   Deparô  aô 8:0° aí bù CIAÔ deluxå  motorcoacè  viá �
+Formia®   Arrivå  Napleó  aô  luncè  time®   Afternooî   optionaì �
+excursioî tï Phlegreaî Fieldó anä Sulphuò Mine®  
+

Source/Images/hd_zpm3/s1/u0/TABLE.DOC

@@ -0,0 +1,17 @@
+                                 TABLĹ II
+
+                    CENTRIFUGAĚ FORCĹ CALIBRATIOÎ DATA
+
+__________________________________________________________________
+  Elemenô NoŽ |  Maximuí ç ü Minimuí ç ü Averagĺ ç ü Spreaä iî ç |
+______________|____________|___________|___________|_____________|
+      ą       ü    2.2ą    ü   1.6ľ    ü   1.9ł    |     0.5ś    |
+              ü    2.2°    ü   1.6ľ    ü   1.9ł    ü     0.5°    |
+      ˛       ü    2.4¸    ü   2.2ľ    ü   2.3ś    ü     0.2ł    |
+              ü    2.5°    ü   2.2˛    ü   2.3ś    ü     0.2¸    |
+      ł       ü    3.0¸    ü   2.5š    ü   2.8´    ü     0.4š    |
+              ü    3.1˛    ü   2.5¸    ü   2.8ľ    ü     0.5´    |
+      ´       ü    3.0ˇ    ü   2.6°    ü   2.8´    ü     0.4ˇ    |
+              ü    3.1°    ü   2.6°    ü   2.8ľ    ü     0.5°    |
+
+

Source/Images/hd_zpm3/s1/u0/TEXT.DOC

@@ -0,0 +1,94 @@
+                       Gulliver'ó Travels
+                             Parô I
+
+                      Á Voyagå tï Lilliput
+
+                             Chap® I
+
+
+Mù fatheò haä á smalì estatå iî Nottinghamshire» É waó thå  thirä �
+oæ  fivå  sons®  Hå senô må tï Emanueì Collegå  iî  Cambridgå  aô �
+fourteeî  yearó  old¬ wherå É resideä threå  years¬  anä  applieä �
+myselæ  closå  tï mù studiesº buô thå chargå  oæ  maintaininç  må �
+(althougè  É haä á verù scantù allowance© beinç toï greaô  foò  á �
+narro÷  fortune¬  É waó bounä apprenticå tï Mr® Jameó  Bates¬  aî �
+eminenô surgeoî iî London¬ witè whoí É continueä fouò years»  anä �
+mù  fatheò  no÷ anä theî sendinç må smalì sumó oæ money¬  É  laiä �
+theí  ouô  iî  learninç  navigation¬  anä  otheò  partó  oæ   thå �
+mathematics¬  usefuì tï thoså whï intenä tï travel¬ aó  É  alwayó �
+believeä iô woulä bå somå timå oò otheò mù fortunå tï do® Wheî  É �
+lefô Mr® Bates¬ É wenô dowî tï mù father» wherå bù thå assistancå �
+oæ  hií anä mù unclå John¬ anä somå otheò relations¬ É goô  fortù �
+pounds¬  anä á promiså oæ thirtù poundó á yeaò tï maintaiî må  aô �
+Leydenº  therå  É  studieä physiã twï  yearó  anä  seveî  months¬ �
+knowinç iô woulä bå usefuì iî lonç voyages.
+
+Sooî  afteò mù returî froí Leyden¬ É waó recommended¬ bù mù  gooä �
+masteò Mr® Bates¬ tï bå surgeoî tï thå "Swallow,¢ Captaiî Abrahaí �
+Panneì  commander» witè whoí É continueä threå yearó anä á  half¬ �
+makinç  á  voyagå oò twï intï thå Levant¬ anä somå  otheò  parts® �
+Wheî  É  camå back¬ É resolveä tï settlå iî Londoî tï  whicè  Mr® �
+Bates¬ mù master¬ encourageä me¬ anä bù hií É waó recommendeä  tï �
+severaì  patients® É tooë parô oæ á smalì houså iî thå Olä  Jury» �
+anä  beinç  adviseä tï alteò maù condition¬ É marrieä  Mrs®  Marù �
+Burton¬ seconä daughteò tï Mr® Edmunä Burton¬ hosieò iî  Newgatå-�
+street¬ witè whoí É receiveä fouò hundreä poundó foò á portion.
+
+But¬ mù gooä masteò Bateó dyinç iî twï yearó after¬ anä É  havinç �
+fe÷  friends¬ mù businesó begaî tï fail» foò mù consciencå  woulä �
+noô  suffeò må tï imitatå thå baä practicå oæ toï manù  amonç  mù �
+brethren®   Havinç thereforå consulteä witè mù wife¬ anä somå  oæ �
+mù  acquaintance¬ É determineä tï gï agaiî tï sea® É waó  surgeoî �
+successivelù  iî  twï ships¬ anä madå severaì  voyages¬  foò  siø �
+years¬ tï thå Easô anä Wesô-Indies¬ bù whicè É goô somå  additioî �
+tï  mù fortune® Mù houró oæ leisurå É spenô iî readinç  thå  besô �
+authors¬  ancienô anä modern¬ beinç alwayó provideä witè  á  gooä �
+numbeò oæ books» anä wheî É waó ashore¬ iî observinç thå  manneró �
+anä  dispositionó  oæ  thå  people¬ aó  welì  aó  learninç  theiò �
+language¬  whereiî É haä á greaô facilitù bù thå strengtè  oæ  mù �
+memory.
+
+Thå  lasô  oæ theså voyageó noô provinç verù  fortunate¬  É  gre÷ �
+wearù  oæ thå sea¬ anä intendeä tï staù aô homå witè mù wifå  anä �
+family®   É  removeä froí thå Olä Jurù tï Fetteò-Lane¬  anä  froí �
+thencå tï Wapping¬ hopinç tï geô businesó amonç thå sailors»  buô �
+iô woulä noô turî tï account® Afteò threå yearó expectatioî  thaô �Šthingó woulä mend¬ É accepteä aî advantageouó offeò froí  Captaiî �
+Williaí  Prichard¬  masteò oæ thå "Antelope,¢ whï  waó  makinç  á �
+voyagå  tï thå Soutè-Sea® Wå seô saiì froí Bristoì Maù  4¬  1699¬ �
+anä ouò voyagå waó verù prosperous.
+
+Iô  woulä noô bå proper¬ foò somå reasons¬ tï troublå thå  readeò �
+witè  thå  particularó oæ ouò adventureó iî thoså  seasº  leô  iô �
+sufficå  tï  inforí him¬ thaô iî ouò passagå froí thencå  tï  thå �
+Easô-Indies¬ wå werå driveî bù á violenô storí tï thå  nortè-wesô �
+oæ  Vaî Diemen'ó Land® Bù aî observation¬ wå founä  ourselveó  iî �
+thå  latitudå oæ 3° degreeó ² minuteó south® Twelvå oæ  ouò  cre÷ �
+werå  deaä bù immoderatå labouò anä ilì food¬ thå resô werå iî  á �
+verù  weaë  condition® Oî thå fiftè oæ November¬  whicè  waó  thå �
+beginninç oæ summeò iî thoså parts¬ thå weatheò beinç verù  hazy¬ �
+thå  seameî  spieä á rock¬ withiî halæ á cable'ó  lengtè  oæ  thå �
+ship»  buô thå winä waó sï strong¬ thaô wå werå  driveî  directlù �
+upoî  it¬ anä immediatelù split® Siø oæ thå crew¬ oæ whoí  É  waó �
+one¬  havinç leô dowî thå boaô intï thå sea¬ madå á shifô tï  geô �
+cleaò oæ thå ship¬ anä thå rock® Wå roweä bù mù computatioî abouô �
+threå leagues¬ tilì wå werå ablå tï worë nï longer¬ beinç alreadù �
+spenô  witè  labouò  whilå wå werå iî  thå  ship®   Wå  thereforå �
+trusteä ourselveó tï thå mercù oæ thå waves¬ anä iî abouô halæ aî �
+houò thå boaô waó overseô bù á suddeî flurrù froí thå north® Whaô �
+becamå mù companionó iî thå boat¬ aó welì aó oæ thoså whï escapeä �
+oî  thå  rock¬  oò werå lefô iî thå vessel¬ É  cannoô  tell»  buô �
+concludå  theù werå alì lost® Foò mù owî part¬ É swaí aó  fortunå �
+directeä  me¬ anä waó pusheä forwarä bù winä anä tide®   É  ofteî �
+leô mù legó droð anä coulä feeì nï bottomº buô wheî É waó  almosô �
+gone¬  anä ablå tï strugglå nï longer¬ É founä myselæ  withiî  mù �
+depth» anä bù thió timå thå storí waó mucè abated® Thå  declivitù �
+waó  sï  small¬  thaô É walkeä neaò á milå beforå É  goô  tï  thå �
+shore¬  whicè  É  conjectureä  waó abouô  eighô  o'clocë  iî  thå �
+evening® É theî advanceä forwarä neaò halæ á mile¬ buô coulä  noô �
+discoveò anù sigî oæ houseó oò inhabitants» aô leasô É waó iî  sï �
+weaë  á condition¬ thaô É diä noô observå them® É  waó  extremelù �
+tired¬ anä witè that¬ anä thå heaô oæ thå weather¬ anä abouô halæ �
+á pinô oæ brandù thaô É dranë aó É lefô thå ship¬ É founä  myselæ �
+mucè inclineä tï sleep.
+
+

Source/Images/hd_zpm3/s1/u0/WSINDEX.XCL

@@ -0,0 +1,232 @@
+A
+ABOUT
+ABOVE
+ACROSS
+AFTER
+AFTERWARDS
+AGAIN
+AGAINST
+AGO
+AHEAD
+ALIKE
+ALL
+ALMOST
+ALONE
+ALONG
+ALREADY
+ALSO
+ALTHOUGH
+ALTOGETHER
+ALWAYS
+AMONG
+AN
+AND
+ANOTHER
+ANY
+ANYMORE
+ANYONE
+ANYTHING
+ANYWAY
+ANYWHERE
+ARE
+AREN'T
+AROUND
+AS
+ASIDE
+AT
+AVAILABLE
+AWAY
+B
+BE
+BECAUSE
+BEEN
+BEFORE
+BEFOREHAND
+BELOW
+BENEATH
+BESIDES
+BETWEEN
+BEYOND
+BUT
+BY
+C
+D
+DID
+DIDN'T
+DO
+DOES
+DOESN'T
+DONE
+DON'T
+DOWN
+DOWNRIGHT
+E
+EACH
+EITHER
+ELSE
+EVEN
+EVER
+EXCEPT
+F
+FINALLY
+FOR
+FROM
+G
+H
+HAD
+HADN'T
+HAPPEN
+HAS
+HASN'T
+HAVE
+HAVEN'T
+HE
+HER
+HERE
+HERE'S
+HERS
+HIM
+HIS
+HOW
+HOWEVER
+I
+IF
+IN
+INTO
+IS
+ISN'T
+IT
+ITS
+ITSELF
+IT'LL
+IT'S
+I'D
+I'LL
+I'M
+I'VE
+J
+JUST
+K
+KNOW
+KNOWING
+KNOWS
+L
+LIKE
+M
+MAYBE
+ME
+MY
+N
+NO
+NONE
+NOR
+NOT
+NOW
+O
+OF
+OFF
+OFTEN
+OH
+ON
+ONLY
+ONTO
+OR
+OTHER
+OTHERWISE
+OUR
+OURS
+OUT
+OVER
+P
+Q
+R
+S
+SHE
+SINCE
+SO
+SOME
+SOON
+SOONER
+SUCH
+T
+THAN
+THAT
+THAT'S
+THE
+THEIR
+THEM
+THEMSELVES
+THEN
+THERE
+THEREFORE
+THERE'LL
+THERE'S
+THESE
+THEY
+THEY'D
+THEY'LL
+THEY'RE
+THEY'VE
+THIS
+THOSE
+THOUGH
+THROUGH
+THROUGHOUT
+THUS
+TIL
+TO
+TOGETHER
+TOO
+U
+UN
+UNDER
+UNTIL
+UP
+US
+V
+VALUE
+VALUED
+VERY
+W
+WAS
+WASN'T
+WE
+WE'D
+WE'LL
+WE'RE
+WE'VE
+WHAT
+WHATEVER
+WHATEVER'S
+WHAT'S
+WHEN
+WHENEVER
+WHERE
+WHEREAS
+WHEREVER
+WHERE'S
+WHETHER
+WHICH
+WHICHEVER
+WHILE
+WHO
+WHOSE
+WHY
+WILL
+WITH
+WITHIN
+WITHOUT
+WON'T
+X
+YES
+YET
+YOU
+YOUR
+YOURS
+YOURSELF
+YOU'D
+YOU'LL
+YOU'RE
+YOU'VE
+Z
+

Source/ZPM3/Build.cmd

@@ -9,14 +9,14 @@ set ZXBINDIR=%TOOLS%/cpm/bin/
 set ZXLIBDIR=%TOOLS%/cpm/lib/
 set ZXINCDIR=%TOOLS%/cpm/include/
 
-copy ..\ZCCP\ccp.com zccp.com
+copy ..\ZCCP\ccp.com .
 copy ..\ZCCP\zinstal.zpm .
-copy ..\ZCCP\startzpm.com
+copy ..\ZCCP\startzpm.com .
 copy ..\CPM3\genbnk.dat .
 rem copy ..\CPM3\bios3.spr .
 copy ..\CPM3\bnkbios3.spr .
 copy ..\CPM3\gencpm.com .
-copy ..\CPM3\biosldr.rel
+copy ..\CPM3\biosldr.rel .
 
 rem ZPM Loader
 echo.
@@ -33,13 +33,11 @@ echo *** Banked ZPM3 ***
 echo.
 copy genbnk.dat gencpm.dat
 zx gencpm -auto -display
-if exist zpm3.sys del zpm3.sys
-ren cpm3.sys zpm3.sys
 rem pause
 
-if not exist ../../Binary/hd_cpm3.img goto :eof
+if not exist ../../Binary/hd_zpm3.img goto :eof
 
-rem Update cpm_hd.img
+rem Update hd_zpm3.img
 echo.
 echo.
 echo *** Update Disk Image ***
@@ -49,15 +47,19 @@ for %%f in (
   autotog.com
   clrhist.com
   setz3.com
-  zpm3.sys
-  zccp.com
+  cpm3.sys
+  ccp.com
   zinstal.zpm
   startzpm.com
+  makedos.com
+  bnkbdos3.spr
+  resbdos3.spr
+  zpm3.sub
 ) do call :upd_img %%f
 goto :eof
 
 :upd_img
 echo   %1...
-cpmrm.exe -f wbw_hd0 ../../Binary/hd_cpm3.img 0:%1
-cpmcp.exe -f wbw_hd0 ../../Binary/hd_cpm3.img %1 0:%1
+cpmrm.exe -f wbw_hd0 ../../Binary/hd_zpm3.img 0:%1
+cpmcp.exe -f wbw_hd0 ../../Binary/hd_zpm3.img %1 0:%1
 goto :eof

Source/ZPM3/Clean.cmd

@@ -12,7 +12,6 @@ if exist system.odd del system.odd
 if exist biosldr.rel del biosldr.rel
 if exist *.sym del *.sym
 if exist zpmldr.com del zpmldr.com
-if exist zccp.com del zccp.com
 if exist startzpm.com del startzpm.com
 if exist gencpm.com del gencpm.com
 if exist *.dat del *.dat

Source/ZPM3/zpm3.sub

@@ -0,0 +1,4 @@
+b:copy zinstal.zpm a:
+b:copy startzpm.com a:
+zpmldr
+