100 \	P?S/8 RELEASE FIXUP
 110 \
 120 \	P?S/8 SYSTEM GENERATION DUMP FILE FOR PATCHING THE 8Z RELEASE
 130 \
 140 \	LAST EDIT:	04-FEB-2022	20:00:00	VRS
 150 \
 160 \	RUN THIS AFTER THE OTHER GENERATION SCRIPTS.  THESE CHANGES WERE
 170 \	ORIGINALLY HAND APPLIED WITH BLKODT BY CJL.  WE USE DUMP INSTEAD
 180 \	HERE, TO FACILITATE AUTOMATING THE PROCESS.  (BLKODT DOES NOT
 190 \	ACCEPT FILE INPUT, AND WE DON'T REALLY WANT TO ENTER THIS BY
 200 \	HAND EACH TIME.)
 210 \
 220 \	THESE PATCHES ARE ALSO RE-ORDERED FROM THIER PRESENTATION IN
 230 \	"PQS8 VERSION 8Z CHANGE LOG.PDF", TO BETTER OPTIMIZE TAPE MOTION.
 240 \
 250 \	THESE PATCHES ARE NOT EMBODIED IN THE SOURCE CODE.
 260 \
 270 \	SET THE SYSTEM DATE ON THE RELEASE MEDIA.
 280 ZA	0:0
 290 010/	5440 	\FRIDAY AUGUST 28, 2015
 300 	$
 310 \
 320 \ "CHARACTERS:" CHANGED TO "BYTES:" IN THE LEFT COMMAND OF KEYBOARD MONITOR.
 330 ZA	0:7
 340 171/	7771
 350 172/	0231
 360 173/	2405
 370 174/	2372
 380 175/	4000
 390 \
 400 \ ALSO PATCH THIS AREA TO RELOAD THE CATALOG:
 410 166/	5376
 420 176/	4134
 430 177/	5401
 440 	$
 450 \
 460 \ 10-JUL-2015 PAL FIX. (AVOIDS XP45CH, USES A PAGE 0 TEMPORARY.)
 470 ZA	0:266
 480 001/	3174
 490 012/	1174
 500 	$
 510 \
 520 \ 19-AUG-2015 PAL FIX FOR ASMIFM, ASMIFN, ASMIFZ DIRECTIVES.
 530 ZA	0:277
 540 010/	2375
 550 	$
 560 \
 570 \ NOTE: SOME BACK-TRACKING MOTION OF THE TAPE HERE.
 580 \
 590 \	EPOCH SHOULD BE (YEAR-1960)/8 (EXPRESSED IN OCTAL FOR DUMP).
 600 \
 610 \	FOR YEAR 2022, THIS EVALUATES TO 7.  THE PEPS RELEASE USED 6,
 620 \	HOWEVER, AND OUR GOAL IS TO REPRODUCE THAT, SO WE DO TOO.
 630 \
 640 \	YOU WILL LIKELY WANT TO EDIT FOR 7 OR MORE, THEN RE-RUN THIS
 650 \	SCRIPT TO GET A SYSTEM THAT HANDLES DATES CORRECTLY.
 660 \
 670 \	ZAP "PAL"
 680 \	PAL LIVES AT 0:252.  PATCH BLOCK 3 OFFSET 0162
 690 ZA	0:255
 700 162/	6
 710 	$
 720 \   	ZAP "MAP"
 730 \	MAP LIVES AT 0:354.  PATCH BLOCK 7 OFFSET 0000
 740 ZA	0:363
 750 000/	6
 760 	$
 770 \	ZAP "DATE"
 780 \	DATE LIVES AT 0:414.  PATCH BLOCK 0, OFFSET 0000
 790 ZA	0:414
 800 000/	6
 810 	$
 820 \	ZAP "PRINT"
 830 \	PRINT LIVES AT 0:426.  PATCH BLOCK 12 OFFSET 0000
 840 ZA	0:440
 850 000/	6
 860 	$
 870 \	ZAP "SYSTAT"
 880 \	SYSTAT LIVES AT 0:604.  PATCH BLOCK 7 OFFSET 0140
 890 ZA	0:613
 900 140/	6
 910 	$
 920 \	ZAP "DIRECT"
 930 \	DIRECT LIVES AT 0:620.  PATCH BLOCK 7, OFFSET 0021
 940 ZA	0:627
 950 021/	6
 960 	$
 970 EXIT				\END OF PATCH FILE