Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50520/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
**************