\	P?S/8 RELEASE FIXUP
\
\	P?S/8 SYSTEM GENERATION DUMP FILE FOR PATCHING THE 8Z RELEASE
\
\	LAST EDIT:	04-FEB-2022	20:00:00	VRS
\
\	RUN THIS AFTER THE OTHER GENERATION SCRIPTS.  THESE CHANGES WERE
\	ORIGINALLY HAND APPLIED WITH BLKODT BY CJL.  WE USE DUMP INSTEAD
\	HERE, TO FACILITATE AUTOMATING THE PROCESS.  (BLKODT DOES NOT
\	ACCEPT FILE INPUT, AND WE DON'T REALLY WANT TO ENTER THIS BY
\	HAND EACH TIME.)
\
\	THESE PATCHES ARE ALSO RE-ORDERED FROM THIER PRESENTATION IN
\	"PQS8 VERSION 8Z CHANGE LOG.PDF", TO BETTER OPTIMIZE TAPE MOTION.
\
\	THESE PATCHES ARE NOT EMBODIED IN THE SOURCE CODE.
\
\	SET THE SYSTEM DATE ON THE RELEASE MEDIA.
ZA	0:0
010/	5440 	\FRIDAY AUGUST 28, 2015
	$
\
\	KEYBOARD MONITOR LIVES AT 0:1.  PATCH BLOCK 5, OFFSET 0145
\	7600 TO ALWAYS REWIND (SIMH).
\	7600 FOR REWIND IF ^R.
ZA	0:6
145/	7650
145/	7600
	$
\
\ "CHARACTERS:" CHANGED TO "BYTES:" IN THE LEFT COMMAND OF KEYBOARD MONITOR.
ZA	0:7
171/	7771
172/	0231
173/	2405
174/	2372
175/	4000
\
\ ALSO PATCH THIS AREA TO RELOAD THE CATALOG:
166/	5376
176/	4134
177/	5401
	$
\
\	PATCH KEYBOARD MONITOR BLOCK 10, OFFSET 0023 TO ALLOW BLANK LINES.
\	PREVIOUSLY, MAKING A LINE BLANK WOULD CAUSE IT TO BE ERASED.  NOW,
\	BLANK LINES ARE ALLOWED, AND THE ERASE COMMAND MUST BE USED TO
\	REMOVE LINES.
ZA	0:11
0023/	7450
0023/	7410
	$
\
\ 10-JUL-2015 PAL FIX. (AVOIDS XP45CH, USES A PAGE 0 TEMPORARY.)
ZA	0:266
001/	3174
012/	1174
	$
\
\ 19-AUG-2015 PAL FIX FOR ASMIFM, ASMIFN, ASMIFZ DIRECTIVES.
ZA	0:277
010/	2375
	$
\
\ NOTE: SOME BACK-TRACKING MOTION OF THE TAPE HERE.
\
\	EPOCH SHOULD BE (YEAR-1960)/8 (EXPRESSED IN OCTAL FOR DUMP).
\
\	FOR YEAR 2022, THIS EVALUATES TO 7.  THE PEPS RELEASE USED 6,
\	HOWEVER, AND OUR GOAL IS TO REPRODUCE THAT, SO WE DO TOO.
\
\	YOU WILL LIKELY WANT TO EDIT FOR 7 OR MORE, THEN RE-RUN THIS
\	SCRIPT TO GET A SYSTEM THAT HANDLES DATES CORRECTLY.
\
\	ZAP "PAL"
\	PAL LIVES AT 0:252.  PATCH BLOCK 3 OFFSET 0162
ZA	0:255
162/	6
	$
\   	ZAP "MAP"
\	MAP LIVES AT 0:354.  PATCH BLOCK 7 OFFSET 0000
ZA	0:363
000/	6
	$
\	ZAP "DATE"
\	DATE LIVES AT 0:414.  PATCH BLOCK 0, OFFSET 0000
ZA	0:414
000/	6
	$
\	ZAP "PRINT"
\	PRINT LIVES AT 0:426.  PATCH BLOCK 12 OFFSET 0000
ZA	0:440
000/	6
	$
\	ZAP "SYSTAT"
\	SYSTAT LIVES AT 0:604.  PATCH BLOCK 7 OFFSET 0140
ZA	0:613
140/	6
	$
\	ZAP "DIRECT"
\	DIRECT LIVES AT 0:620.  PATCH BLOCK 7, OFFSET 0021
ZA	0:627
021/	6
	$
EXIT				\END OF PATCH FILE