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