User Tools

Site Tools


ibm:vm370-lib:macro:ldrst.macro_src

LDRST Source

References

Source Listing

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