Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - patch.mac
There are 11 other files named patch.mac in the archive. Click here to see a list.
TITLE	PATCH - PATCH AREA FOR T.S. MONITOR
SUBTTL	A. FRANZ/RAP  TS3.19  4 JAN 72  V003
	SEARCH	F,S

	$RELOC
	$LOW
;THIS PROGRAM SHOULD BE LOADED AFTER LAST NEEDED PROGRAM
;BUT BEFORE EXEC DDT, AND ONCE

ENTRY PATCH
INTERN PAT,PATEND
PATCH:	BLOCK 300
PAT=PATCH+10	;DEFINE PAT OFFSET SOME SO WE
		;  HAVE SOME ROOM FOR POKE. UUO
PATEND=.-1	;DEFINE LAST LOC. IN PATCH AREA AS A WARNING AND FOR FILDDT

;SET JOBDDT NON-ZERO SO SYMBOLS WILL BE SAVED.

ZZ=.
LOC 74
	EXP 401
RELOC ZZ

	END