MACRO 00001000
LDRST 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
LDRST DSECT 00003000
GPRSAV DS 3F REGISTERS 9-12 00004000
LOCSAV DS F BASE REGISTER A(DMSLDRA) 00005000
RETT DS F RETURN REGISTER FOR DMSLSB 00006000
LOCCT DS F (LOCCNT) NEXT LOAD LOCATION 00007000
BRAD DS F (STRTADDR) START EXECUTION ADDRESS 00008000
TBLREF DS F (ALDRTBL) TOP OF LOADER TABLE 00009000
FLAG1 DS X LOADER SWITCHES (PERMANENT) 00010000
* 00011000
ABSOLUTE EQU X'80' ABSOLUTE LOADING 00012000
FSTXTADR EQU X'40' FIRST TEXT ADDRESS SAVED 00013000
COMMONEX EQU X'20' COMMON ENTRIES EXIST IN LOADER TABLE 00014000
PREXIST EQU X'10' PR ENTRIES EXEIST IN LOADER TABLE 00015000
ENDCDADR EQU X'08' ALLOW END CARD ADDRESS 00016000
NOERASE EQU X'04' DON'T ERASE THE LOAD MAP 00017000
WORKFILE EQU X'02' WORK FILE (SYSUT1) EXISTS 00018000
NODUP EQU X'01' DO NOT TYPE MSG 202W @VM08875 00018100
* 00019000
FLAG2 DS X LOADER SWITCHES (PERMANENT) 00020000
* 00021000
STRINITC EQU X'80' CALL STRINIT ON LOADMOD 00022000
NOMAP EQU X'40' DO NOT CREATE A LOAD MAP 00023000
APRILB EQU X'20' REP CARD PROCESSING CONTROL 00024000
NOAUTO EQU X'10' NO AUTOMATIC TEXT DECK CHECKING 00025000
TYPE EQU X'08' TYPE LOAD MAP AT TERMINAL 00026000
NOREP EQU X'04' NO REP CARD PRINTING 00027000
NOINV EQU X'02' NO INVALID CARD TYPEOUT 00028000
NOLIBE EQU X'01' NO AUTOMATIC TXT LIBRARY SEARCHING 00029000
* 00030000
TBLCT DS H NUMBER OF ENTRIES IN LOADER TABLE 00031000
FLAG3 DS X MORE FLAGS @VA01699 00032100
CMD EQU X'80' PROCESSING NAMES FROM CMD LI@VA01699 00032200
DS X UNUSED @VA01699 00032300
DS 5H UNUSED @VA01699 00032400
RLDCONST DS F RELOCATION CONSTANT 00034000
PARMLIST DS F UPDATED PARAMETER LIST POINTER 00035000
RETREG DS F RETURN REGISTER 00036000
SPEC DS 200F 10 CARD INPUT BUFFER 00037000
ESIDTB DS 512H 512 ESD ENTRIES/OBJECT DECK 00038000
APSV DS 16F REGISTER SAVE AREA FOR SUBROUTINE CALLS 00039000
TEMPST DS F TEMPORARY RLD ROUTINE STORAGE 00040000
TMPLOC DS F TEMPORARY STORAGE 00041000
CRDPTR DS F INPUT CARD POINTER 00042000
FILE DS D SAVE LOCATION FOR DMSLIB 00043000
READBUF DS 2F INPUT READ PARAMETER LIST 00044000
FNAME DS 2F FILE NAME 00045000
FTYPE DS 2F FILE TYPE 00046000
FMODE DS H FILE MODE 00047000
RITEM DS H NUMBER OF ITEMS 00048000
RADD DS F BUFFER ADDRESS 00049000
RLENG DS F BUFFER LENGTH 00050000
RFIX DS H FIXED/VARIABLE FLAG BYTE 00051000
RNUM DS H NUMBER OF ITEMS 00052000
NUMBYTE DS F NUMBER OF BYTES ACTUALLY READ 00053000
FINIS DS 7F FINIS PARAMETER LIST 00054000
FLAGS DS X LOADER SWITCHES (NON PERMANENT) 00055000
* 00056000
START EQU X'80' START EXECUTION REQUESTED 00057000
ONEDYNA EQU X'40' ONE CALL TO DYNALOAD PER TEXT FILE 00058000
ESD1ST EQU X'20' FIRST ESD DATA ITEM THIS CARD 00059000
NOSLCADR EQU X'10' NO ADDRESS FIELD IN SLC CARD 00060000
SETLIB EQU X'08' SET UP FOR LIBRARY SEARCHING 00061000
CLOSELIB EQU X'04' CLEAR TXT LIB SEARCHING 00062000
LUNDEF EQU X'02' UNDEFINED ENTRIES EXIST IN LOADER TABLE 00063000
RESET EQU X'01' RESET 'ENTRY' SPECIFIED 00064000
DS 3X LIBRARY SEARCH WORK AREA POINTER 00065000
SYSUT1 DS 11F RLD WORK FILE PLISTS 00066000
TYPLIN DS 2F TYPLIN PARAMETER LIST 00067000
TYPEAD DS 2F TYPLIN BUFFER ADDRESS 00068000
DSKLIN DS 7F DISK PARAMETER LIST FOR LOAD MAP 00069000
DSKAD DS 13X 00070000
HEXCON DS 14X 00071000
PACK EQU HEXCON 00072000
UNPACK EQU HEXCON+5 00073000
OUTPUT DS X 00074000
OUTBUF DS 100X OUTPUT BUFFER FOR LOAD MAP AND TERMINAL PRINTING 00075000
PRVCNT DS H ADDRESS OF NEXT PR 'LOAD ADDRESS' 00076000
SAV67 DS 2F TEMPORARY SAVE OF REGS 6 AND 7 00077000
ENTNAME DS CL8 ENTRY NAME (RESET 'ENTRY' OR ENTRY CONTROL CARD) 00078000
ENTADR DS F ENTRY NAME'S LOADER TABLE LOCATION 00079000
MEMBOUND DS F LOW EXTEND OF FREE STORAGE (FREELOWE) 00080000
PLISTSAV DS 64D LOAD (INCLUDE) PARAMETER LIST SAVED 00081000
REG13SAV DS F ADDRESS OF LDRST 00082000
EPARMLST DS F saved EPLIST pointer from R0 HRC309DM 00082200
EPLSAVE DS 3F save registers used during EPLIST processing HRC309DM 00082400
FRSTSDID DS X FIRST SECTION DEFINITION ID 00083000
ENDFREE DS 0D 00084000
NEED EQU (ENDFREE-LDRST)/8 00085000
SPACE 2 @VA01699 00085010
* THE FOLLOWING EQUATES REFER TO DISPLACEMENTS AND FLAGS @VA01699 00085020
* IN THE REFTABLE ENTRY USUALLY POINTED TO BY REGISTER 12. @VA01699 00085030
SPACE 1 @VA01699 00085040
REFNAME EQU 0 OFFSET OF 8-BYTE NAME FIELD @VA01699 00085050
REFLG1 EQU 8 OFFSET OF FLAG BYTE ONE @VA01699 00085060
REFPRB EQU X'7C' PR - BYTE ALIGNMENT @VA01699 00085070
REFPRH EQU X'7D' PR - HALFWORD ALIGNMENT @VA01699 00085080
REFPRF EQU X'7E' PR - FULLWORD ALIGNMENT @VA01699 00085090
REFPRD EQU X'7F' PR - DOUBLEWORD ALIGNMENT @VA01699 00085100
REFUND EQU X'80' UNDEFINED SYMBOL @VA01699 00085110
REFCXD EQU X'81' RESOLVE CXD @VA01699 00085120
REFCOM EQU X'82' DEFINE COMMON AREA @VA01699 00085130
REFWEX EQU X'83' WEAK EXTERNAL REFERENCE @VA01699 00085140
REFNOB EQU X'90' LIBE CARD - NONOBLIGATORY @VA01699 00085150
REFLIB EQU X'10' SINGLE BIT FOR NONOBLIG @VA01699 00085160
REFINFO EQU 9 OFFSET OF RELOC FACTOR OR MAX@VA01699 00085170
REFVAL EQU 13 OFFSET OF ABS OR ASGN VALUE @VA01699 00085180
REFLG2 EQU 16 OFFSET OF FLAG BYTE TWO @VA01699 00085190
REFCMD EQU X'80' CMD LINE NAME-MUST RESOLVE@VA01699 00085200
REFICS EQU X'08' ICS - ALTER CSECT LENGTH @VA11353 00085210
REFLBT EQU X'04' TEXT LOCATED IN LIBRARY @VA11353 00085220
REFCSD EQU X'02' DEFINE CONTROL SECTION @VA11353 00085230
REFNEG EQU X'01' NEGATIVE RELOCATION FACTOR @VA11353 00085240
REFADDR EQU 17 OFFSET OF ADDRESS FIELD @VA11353 00085250
EJECT 00086000
POP PRINT 00086100
MEND 00087000