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