Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50521/loader.cfc
There are 2 other files named loader.cfc in the archive. Click here to see a list.
			LOADER.CFC
			----------

Modifications to use LOADER with CHAINB:

The following file comparision is based on WMU System Modification
#610.5(December 3 1973) LOADER version 57(151).

FILE 1)  DSKC:LOADER.MAC  CREATED:  0000  01-JUN-1973
FILE 2)  DSKB:LOADER.MAC  CREATED:  0933  26-OCT-1973

**************
1)2	IFNDEF SPCHN,<SPCHN==0>
1)	IFNDEF DIDAL,<DIDAL==1>
****
2)2	IFNDEF SPCHN,<SPCHN==1>
2)	IFNDEF DIDAL,<DIDAL==1>
**************
1)22		CAIG	Q,.JBHDA	;IS THERE ANY CODE LOADED THERE?
1)		SETZB	Q,HVAL		;NO, CLEAR ALL INDICATIONS OF IT
****
2)22	;NOCUT+		S.M. #610.5	NDG/ 10-12-73
2)		CAIGE	Q,.JBHDA	;ID THERE ANY CODE LOADED THERE?
2)		SETZB	Q,HVAL		;NO, CLEAR ALL INDICATIONS OF IT
**************
1)66		SKIPL	VSW		;USER DOESN'T WANT REENT OTS?
1)		TRNE	F,NOHI!SEGFL!SEENHI	;USER SET SEGMENT OR HI CODE SEEN?
****
2)66	IFE L,<
2)		SKIPL	VSW		;USER DOESN'T WANT REENT OTS?
2)		TRNE	F,NOHI!SEGFL!SEENHI	;USER SET SEGMENT OR HI CODE SEEN?
**************
1)84	ALGBLK:	SKIPE	OWNLNG		;FIRST TIME THIS PROG?
1)		JRST	ALGB1		;NO, JUST CHAINED SYMBOL INFO
1)		PUSHJ P,RWORD		;READ 3RD WORD
****
2)84	; ALGBLK	SPR 10-11,416 (10-15-73)		NDG/ 10-26-73
2)	;		TWO LINES DELETED
2)	ALGBLK:
2)		PUSHJ P,RWORD		;READ 3RD WORD
**************