100 ARG,	TAD	CHAR		/ARGUMENT EVALUATOR
 110 	TAD	(-",)		/GOOD TERMINATOR?
 120 PSYSIO,	SZA CLA			/SKIP IF SO
 130 	POPJ			/RETURN IF NOT
 140 	PUSHJ;	EVAL-1		/EVALUATE SECOND ARGUMENT
 150 	IAC			/INDICATE SKIP RETURN
 160 	POPJ			/RETURN
 170 
 180 	PAGE
 190 
 200 	NEND=	.		/END OF RELOCATABLE PATCH CODE
 210 	EJECT
 220 /	ONCE-ONLY CODE STARTS HERE.
 230 
 240 	*BONCE			/OVER DEFAULT ONCE-ONLY AREA
 250 
 260 PBASE,	TAD	BOTTOM		/\
 270 	TAD	(-200+1)	/ \ESTABLISH
 280 	AND	P7600/[7600]	/ /BASE ADDRESS
 290 	DCA	PBASE		//
 300 	TAD	PBASE		/\
 310 	TAD	(NSTART&177-1)	/ >ESTABLISH NEW LIMIT
 320 	DCA	BOTTOM		//
 330 	TAD	PBASE		/\
 340 	TAD	(XBLK&177)	/ >INSERT FBLK
 350 	DCA I	(FNTABF+14)	//
 360 	TAD	PBASE		/\
 370 	TAD	(XWRD&177)	/ >INSERT FWRD
 380 	DCA I	(FNTABF+15)	//
 390 	TAD	PBASE		/\
 400 	TAD	(XAND&177)	/ >INSERT FAND
 410 	DCA I	(FNTABF+16)	//
 420 	TAD	PBASE		/\
 430 	TAD	(ARG&177)	/ \
 440 	DCA I	(LARG1)		/  \
 450 	TAD I	(LARG1)		/   >FIXUP ADDRESS CONSTANTS
 460 	DCA I	(LARG2)		/  /
 470 	TAD I	(LARG2)		/ /
 480 	DCA I	(LARG3)		//
 490 	TAD	BOTTOM		/\
 500 	IAC			/ >SETUP MOVE BASE
 510 	DCA	PBASE		//
 520 	TAD I	LNSTART		/\
 530 	DCA I	PBASE		/ \
 540 	ISZ	LNSTART		/  \MOVE DOWN PATCH TO
 550 	ISZ	PBASE		/  /WHERE IT BELONGS
 560 	ISZ	MOVCNT		/ /
 570 	JMP	.-5		//
 580 	DCA I	(BEOFZAP)	/REPAIR LOADER
 590 	JMP I	(BEOFZAP)	/RESUME LOADING
 600 	EJECT
 610 LNSTART,NSTART			/POINTER TO NSTART
 620 MOVCNT,	NSTART-NEND		/CODE MOVE COUNTER
 630 
 640 	PAGE
 650 
 660 	*BEOFZAP		/OVER LOADER
 670 
 680 	SKP			/MAKE IT COME TO US
 690 
 700 	$			/THAT'S ALL FOLK!