100 \	P?S/8 EPOCH FIXUP
 110 \
 120 \	P?S/8 SYSTEM GENERATION DUMP FILE FOR SETTING THE EPOCH
 130 \
 140 \	LAST EDIT:	30-JAN-2022	20:00:00	VRS
 150 \
 160 \	RUN THIS AFTER THE OTHER GENERATION SCRIPTS TO RESET THE EPOCH.
 170 \	EPOCH SHOULD BE (YEAR-1960)/8 (EXPRESSED IN OCTAL FOR DUMP).
 180 \
 190 \	FOR YEAR 2022, THIS EVALUATES TO 7.  THE PEPS RELEASE USED 6,
 200 \	HOWEVER, AND OUR GOAL IS TO REPRODUCE THAT, SO WE DO TOO.
 210 \
 220 \	YOU WILL LIKELY WANT TO EDIT FOR 7 OR MORE, THEN RE-RUN THIS
 230 \	SCRIPT TO GET A SYSTEM THAT HANDLES DATES CORRECTLY.
 240 \
 250 \	SINCE ALL COMMON SYSTEM PROGRAMS ALREADY EXIST BY THIS TIME, DON'T
 260 \	FORGET TO RAISE THE CORE SIZE AND/OR USE /C!
 270 \
 280 \	ZAP "DATE"
 290 \	DATE LIVES AT 0:414.  PATCH BLOCK 0, OFFSET 0000
 300 ZA	0:414
 310 0000/	6
 320 	$
 330 \	ZAP "DIRECT"
 340 \	DIRECT LIVES AT 0:620.  PATCH BLOCK 7, OFFSET 0021
 350 ZA	0:627
 360 0021/	6
 370 	$
 380 \   	ZAP "MAP"
 390 \	MAP LIVES AT 0:354.  PATCH BLOCK 7 OFFSET 0000
 400 ZA	0:363
 410 0021/	6
 420 	$
 430 \	ZAP "PAL"
 440 \	PAL LIVES AT 0:252.  PATCH BLOCK 3 OFFSET 0162
 450 ZA	0:255
 460 0162/	6
 470 	$
 480 \	ZAP "PRINT"
 490 \	PRINT LIVES AT 0:426.  PATCH BLOCK 12 OFFSET 0000
 500 ZA	0:440
 510 0000/	6
 520 	$
 530 \	ZAP "SYSTAT"
 540 \	SYSTAT LIVES AT 0:604.  PATCH BLOCK 7 OFFSET 0140
 550 ZA	0:613
 560 0140/	6
 570 	$
 580 EXIT				\END OF PATCH FILE