\	P?S/8 EPOCH FIXUP
\
\	P?S/8 SYSTEM GENERATION DUMP FILE FOR SETTING THE EPOCH
\
\	LAST EDIT:	30-JAN-2022	20:00:00	VRS
\
\	RUN THIS AFTER THE OTHER GENERATION SCRIPTS TO RESET THE EPOCH.
\	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.
\
\	SINCE ALL COMMON SYSTEM PROGRAMS ALREADY EXIST BY THIS TIME, DON'T
\	FORGET TO RAISE THE CORE SIZE AND/OR USE /C!
\
\	ZAP "DATE"
\	DATE LIVES AT 0:414.  PATCH BLOCK 0, OFFSET 0000
ZA	0:414
0000/	6
	$
\	ZAP "DIRECT"
\	DIRECT LIVES AT 0:620.  PATCH BLOCK 7, OFFSET 0021
ZA	0:627
0021/	6
	$
\   	ZAP "MAP"
\	MAP LIVES AT 0:354.  PATCH BLOCK 7 OFFSET 0000
ZA	0:363
0021/	6
	$
\	ZAP "PAL"
\	PAL LIVES AT 0:252.  PATCH BLOCK 3 OFFSET 0162
ZA	0:255
0162/	6
	$
\	ZAP "PRINT"
\	PRINT LIVES AT 0:426.  PATCH BLOCK 12 OFFSET 0000
ZA	0:440
0000/	6
	$
\	ZAP "SYSTAT"
\	SYSTAT LIVES AT 0:604.  PATCH BLOCK 7 OFFSET 0140
ZA	0:613
0140/	6
	$
EXIT				\END OF PATCH FILE