MACRO 00050021 HEWAPT &PARM 00100021 EJECT 00150021 *********************************************************************** 00200021 * * 00210000 * 10/02/73 LEVEL=06 * 00220002 * * 00230000 * ------------ * 00250021 * CODE GENERATION FOR - 10/02/73 - HEWAPT MACRO FOLLOWS * 00300002 * ------------ * 00350021 *********************************************************************** 00400021 AIF ('&PARM' EQ 'A').CSECT 00450021 *** EQUATES FOR DSECT DEFINITIONS 00500021 HEWLKLED EQU 0 00550021 HEWLCLDB EQU 0 00600021 APTDSECT DSECT 00650021 .CSECT ANOP 00700021 DC C'STARTAPT' 00710000 PDSE1 DS CL8 MEMBER OR ALIAS NAME 00750021 PDSE2 DS CL3 RELATIVE DA OF FIRST RECORD-TTR 00800021 PDSE3 DS CL1 C-BYTE 00850021 *INITIAL VALUE=0 BIT 0 ALIAS INDICATOR 00900021 *INITIAL VALUE=0 BITS 1-2 NUMBER OF TTR'S IN USERS DATA 00950021 *INITIAL VALUE=0 BITS 3-7 LENGTH OF USERS DATA IN HALF WORDS 01000021 PDSE4 DS CL4 RELATIVE DA OF FIRST TEXT RECORD TTR0 01050021 PDSE5 DS CL3 RELATIVE DA OF NOTE LIST OR SCTR-XLATION TABLE 01100021 PDSE6 DS CL1 L-BYTE-NUMBER OF TTR'S IF NOTE LIST PRESENT 01150021 * 01200021 PDSE7 DS CL1 FIRST ATTRIBUTE BYTE 01250021 * 01300021 *INITIAL VALUE=0 BIT 0 REENTERABLE 01350021 *INITIAL VALUE=0 BIT 1 RESUABLE 01400021 *INITIAL VALUE=0 BIT 2 OVERLAY 01450021 *INITIAL VALUE=0 BIT 3 TEST 01500021 *INITIAL VALUE=0 BIT 4 ONLY LOADABLE 01550021 *INITIAL VALUE=0 BIT 5 BLOCK-SCATTER 01600021 *INITIAL VALUE=1 BIT 6 EXECUTABLE 01650021 *INITIAL VALUE=0 BIT 7 MODULE CONTAINS 1 TEXT RECORD + NO RLD'S 01700021 * 01750021 PDSE8 DS CL1 SECOND ATTRIBUTE BYTE 01800021 * 01850021 *INITIAL VALUE=1 BIT 0 ON MEANS OUTPUT LOAD MOD NOT DC 01900021 *INITIAL VALUE=1 BIT 1 ORIGIN OF FIRST TEXT RECORD IS ZERO 01950021 *INITIAL VALUE=1 BIT 2 ENTRY POINT ASSIGN BY LINKAGE EDITOR IS 0 02000021 *INITIAL VALUE=1 BIT 3 MODULE CONTAINS NO RLD ITEMS 02050021 *INITIAL VALUE=0 BIT 4 MODULE CAN BE RE-PROCESSED BY LINKAGE ED. 02100021 *INITIAL VALUE=0 BIT 5 MODULE DOES NOT CONTAIN SYMBOL CARDS 02150021 *INITIAL VALUE=1 BIT 6 MODULE WAS CREATED BY LINK EDITOR F V2 02200021 *INITIAL VALUE=0 BIT 7 REFRESHABLE 02250021 * 02300021 PDSE9 DS CL3 TOTAL CONTIGUOUS MAIN STORAGE REQUIREMENTS OF 02350021 * THIS MODULE 02400021 PDSE10 DS CL2 LENGTH OF FIRST TEXT RECORD 02450021 PDSE11 DS CL3 ENTRY POINT ADDRESS 02500021 PDSE12 DS CL3 EDITOR ASSIGN ORIGIN OF FIRST TEXT RECORD 02550021 PDSAPFLG EQU X'08' THIS BIT ON IN FIRST BYTE OF PDSE12 Y01048 02560000 * INDICATES AUTH CODE IN LAST 2 BYTES Y01048 02570000 * OF PDS DIRECTORY Y01048 02580000 **** 02600021 **** THE FOLLOWING 4 ITEMS ARE FOR SCATTER FORMAT ONLY 02650021 **** 02700021 PDSE13 DS CL2 NUMBER OF BYTES IN SCATTER LIST 02750021 PDSE14 DS CL2 NUMBER OF BYTES IN THE TRANSLATION TABLE 02800021 PDSE15 DS CL2 ESDID OF THE FIRST TEXT RECORD 02850021 PDSE16 DS CL2 ESDID OF THE CONTROL SECTION CONTAINING THE 02900021 * ENTRY POINT 02950021 **** 03000021 **** THE FOLLOWING TWO ITEMS ARE INCLUDED WHEN AN ALIAS NAME IS SPECIFI 03050021 **** ED AND EITHER THE REENTERABLE OR REUSABLE OPTION IS SPECIFIED 03100021 **** 03150021 PDSE17 DS CL3 ENTRY POINT OF MAIN MEMBER NAME 03200021 PDSE18 DS CL8 MEMBER NAME OF MODULE 03250021 **** 03300021 **** THIS ENDS THE PARTITION DATA SET DIRECTORY 03350021 **** 03400021 SPACE 2 03450021 REGSA DS 18F 18 FULL WORD SAVE AREA FOR DATA MANAGEMENT 03500021 IOCT DS 6F I/O CONTROL TABLE 4 BYTES PER ENTRY 03550021 * ALSO USED AS STORAGE AREA BY HEWLFSCD AND HEWLFREL 03600021 * 03650021 APT0 DS CL1 FIRST BYTE--ALL PURPOSE INDICATORS 03700021 * 03750021 *INITIAL VALUE=0 BIT 0 NCAL 03800021 *INITIAL VALUE=0 BIT 1 XREF 03850021 *INITIAL VALUE=0 BIT 2 MAP 03900021 *INITIAL VALUE=0 BIT 3 LET 03950021 *INITIAL VALUE=0 BIT 4 LOG 04000021 *INITIAL VALUE=0 BIT 5 XCAL 04050021 *INITIAL VALUE=0 BIT 6 TXT/RLD 04100021 *INITIAL VALUE=0 BIT 7 SOME LIBRARY CARD WAS READ 04150021 * 04200021 APT1 DS CL1 SECOND BYTE--ALL PURPOSE INDICATORS 04250021 * 04300021 *INITIAL VALUE=0 BIT 0 MORE INCLUDE TO COME 04350021 *INITIAL VALUE=0 BIT 1 AUTO-LIB CALL IN OPERATION 04400021 *INITIAL VALUE=0 BIT 2 OBJECT OR LOAD MODULE 04450021 *INITIAL VALUE=0 BIT 3 DELETE INDICATOR 04500021 *INITIAL VALUE=0 BIT 4 ENTRY POINT RECEIVED 04550021 *INITIAL VALUE=1 BIT 5 SYMBOLIC OR ABSOLUTE ENTRY 04600021 *INITIAL VALUE=0 BIT 6 ENTRY CARD RECEIVED 04650021 *INITIAL VALUE=0 BIT 7 ESD-WRITE INDICATOR 04700021 * 04750021 APT2 DS CL1 THIRD BYTE--ALL PURPOSE INDICATORS 04800021 * 04850021 *INITIAL VALUE=0 BIT 0 NO LENGTH RECEIVED 04900021 *INITIAL VALUE=0 BIT 1 NO LENGTH INDICATION 04950021 *INITIAL VALUE=0 BIT 2 FIRST TEXT RECORD 05000021 *INITIAL VALUE=0 BIT 3 STATUS INDICATOR RECEIVED 05050021 *INITIAL VALUE=0 BIT 4 INCLUDE PREVIOUSLY INITIATED 05100021 *INITIAL VALUE=0 BIT 5 I/O OVERLAP BIT 05150021 *INITIAL VALUE=0 BIT 6 IN MODULE INDICATOR 05200021 *INITIAL VALUE=0 BIT 7 PROGRAMMER PUNCHED CARD CONTINUATION 05250021 * 05300021 APT3 DS CL1 FOURTH BYTE--ALL PURPOSE INDICATORS 05350021 * 05400021 *INITIAL VALUE=0 BIT 0 END OF FILE 05450021 *INITIAL VALUE=0 BIT 1 NAME CARD RECEIVED-END OF INPUT FOR L.M. 05500021 *INITIAL VALUE=0 BIT 2 END OF INPUT (/*) -END OF SYSLIN INPUT 05550021 *INITIAL VALUE=0 BIT 3 TO STOW AS REPLACEMENT 05600021 *INITIAL VALUE=0 BIT5 FIRST TEXT OF SEGMENT 05650021 *INITIAL VALUE=0 BIT 4 FIRST TEXT OF LOAD MODULE 05700021 *INITIAL VALUE=0 BIT 6 RLDS FOR GROUP 05750021 *INITIAL VALUE=0 BIT 7 SYSLIB OPENED 05800021 SPACE 2 05850021 CTTR DS F TTR0 FOR CESD(1ST RECORD) IF MAP OR XREF 05900021 CSNO DS H CURRENT SEGMENT NUMBER 05950021 CRNO DS H CURRENT REGION NUMBER 06000021 PRAL DS F PSUEDO REGISTER ACCUMULATIVE LENGTH 06050021 SPACE 2 06100021 * 06150021 *** ADDRESSES OF ALL TABLES USED DURING PROCESSING *** 06200021 * 06250021 FLCD DS F ADDRESS OF FIRST LINE CESD LINES DELETED 06300021 RCCE DS F ADDRESS OF END OF REPLACE/CHANGE CHAIN 06350021 RCCB DS F ADDRESS OF REPLACE/CHANGE CHAIN BEGINNING 06400021 ALCB DS F ADDRESS OF ALIAS CHAIN BEGINNING 06450021 OVCMBGAD DS 1F ADDRESS OF OVERLAY CHAIN BEGINNING 06500021 SGT1 DS 1F ADDRESS OF SEGTAB1 - 1 06550021 CLLT DS 1F ADDRESS OF CALLS LIST TABLE 06600021 TNT1 DS 1F ADDRESS OF TEXT NOTE LIST 1 06650021 RNT1 DS 1F ADDRESS OF RLD NOTE LIST 1 06700021 RLDINPAD DS 1F ADDR. OR RLD INPUT BUFFER 1ST PASS 06750021 RECNT DS 1F ADDRESS OF RELOCATION CONSTANT TABLE - 4 06800021 * ALSO RENUMBERING TABLE - 4 06850021 TXTIO DS 1F ADDRESS OF TEXT I/O TABLE 06900021 ALAS DS 1F ADDRESS OF ALIAS TABLE 06950021 DLKT DS 1F ADDRESS OF DELINK TABLE - 5 07000021 CHESD DS 1F ADDRESS OF COMPOSITE ESD - 16 07050021 SELST DS 1F ADDRESS OF SECOND PASS ENTRY LIST 07100021 TNLS2 DS 1F ADDRESS OF TEXT NOTE LIST 2 07150021 RNLS2 DS 1F ADDRESS OF RLD NOTE LIST 2 07200021 TTRLIST DS 1F ADDRESS OF TTR LIST 07250021 RLDOUTBF DS 1F ADDR. OF OUTPUT RLD BUFFER-2ND PASS 07300021 HIARADD DS 1F ADDRESS OF HIAR (HIERARCHY) TABLE 07350021 ORDRADR DS 1F ADDRESS OF ORDER TABLE S01904 07360021 SPACE 2 07400021 INCBRKPT DS 1F ADDRESS OF BREAKING POINT IN INCL CHAIN 07700021 CRRTINCL DS 1F ADDRESS OF CURRENTLY INCLUDED ESD ITEM 07750021 SPACE 2 07800021 * 07850021 *** CAPACITIES OF ALL TABLES USED DURING PROCESSING 07900021 * 07950021 ENRNX DS 1H MAX. NO. OF ENTRIES IN RNT TABLE 07960002 ENCDX DS 1H MAX. NO. OF ENTRIES IN C/HESD TABLES 08000021 ENT1X DS 1H MAX. NO. OF ENTRIES IN TEXT NOTE LIST 1 08050021 ENR1X DS 1H MAX. NO. OF ENTRIES IN RLD NOTE LIST 1 08100021 ENT2X DS 1H MAX. NO. OF ENTRIES IN TEXT NOTE LIST 2 08150021 ENR2X DS 1H MAX. NO. OF ENTRIES IN RLD NOTE LIST 2 08200021 ENTOX DS 1H MAX. NO. OF BYTES IN TEXT I/O TABLE 08250021 ENCLX DS 1H MAX. NO. OF BYTES IN CALLS LIST 08300021 ENDTX DS 1H MAX. NO. OF ENTRIES IN DELINK TABLE 08350021 ENS1X DS 1H MAX. NO. OF SEGMENTS 08400021 BUFSIZ DS 1H SIZE OF BUFFER 08450021 HESD DS 1F ADDRESS OF HESD TABLE - 8 08500021 ENELTX DS 1H MAX. NUMBER OF ENTRIES IN 2ND PASS ENTRY LIST 08550021 ENT1X1 DS 1H MAX. NO. OF ENTRIES IN TEXT NOTE LIST 1 08560021 * BEFORE REALLOCATION - USED ONLY IF TABLES WERE REALLOCATED 08570021 ENR1X1 DS 1H MAX. NO. OF ENTRIES IN RLD NOTE LIST 1 08580021 * BEFORE REALLOCATION - USED ONLY IF TABLES WERE REALLOCATED 08590021 SPACE 2 S21016 08600021 *********************************************************************** 08650021 * * 08700021 * ADDITIONS TO THE ALL PURPOSE TABLE FOR IDR SUPPORT * 08750021 * S21016 * 08800021 *********************************************************************** 08850021 SPACE 2 S21016 08900021 IDRTRLEN DS H MAXIMUM LENGTH OF IDR S21016 08950021 * TRANSLATOR DATA TABLE S21016 09000021 IDRTILEN DS H MAXIMUM LENGTH OF IDR OX04245 09010002 * TRANSLATOR ID TABLE OX04245 09020002 IDRUDLEN DS H MAXIMUM LENGTH OF IDR S21016 09050021 * USER DATA TABLE S21016 09100021 IDRZPLEN DS H MAXIMUM LENGTH OF IDR S21016 09150021 * IMASPZAP DATA TABLE S21016 09200021 * THE FOLLOWING FOUR WORDS CAN NOT BE MOVED AFTER THEIR XM4950 09210002 * RELATED IDR CONSTANTS AND CAN NOT BE SHUFFLED AS TO XM4950 09220003 * ORDER WITHOUT SHUFFLING ALL OTHER IDR CONTANTS IN THE APT XM4950 09230003 IDRTRTAB DS F STARTING ADDRESS OF IDR S21016 09250021 * TRANSLATOR DATA TABLE S21016 09300021 IDRTITAB DS F STARTING ADDRESS OF IDR OX04245 09302002 * TRNSLATOR ID TABLE OX04245 09304002 IDRUDTAB DS F STARTING ADDRESS OF IDR S21016 09310003 * USER DATA TABLE S21016 09320003 IDRZPTAB DS F STARTING ADDRESS OF IDR S21016 09330003 * IMASPZAP DATA TABLE S21016 09340003 IDRTREND DS F ADDRESS OF NEXT AVAILABLE S21016 09350021 * (UNUSED) BYTE OF IDR S21016 09400021 * TRANSLATOR DATA TABLE S21016 09450021 IDRTIEND DS F ADDRESS OF NEXT AVAIL OX04245 09500002 * (UNUSED) BYTE OF IDR OX04245 09550002 * TRANSLATOR ID TABLE OX04245 09560002 IDRUDEND DS F ADDRESS OF NEXT AVAILABLE S21016 09600021 * (UNUSED) BYTE OF IDR USER S21016 09650021 * DATA TABLE S21016 09700021 IDRZPEND DS F ADDRESS OF NEXT AVAILABLE S21016 09850021 * (UNUSED) BYTE OF IDR S21016 09900021 * IMASPZAP DATA TABLE S21016 09950021 SPACE 2 S21016 10000021 ENRLD2X DS 1H MAX. SIZE OF INPUT RLD BUFFER-1ST PASS 10050021 ENSPX DC H'0' 2 BYTES USED BY HEWLKOUT 10100021 LSTS DS 1F L LAST SEGMENT IN EACH REGION (REGION 1-4) 10150021 EPSM DS CL8 ENTRY POINT SYMBOL OR END CARD ADDRESS/SYMBOL 10200021 * ALSO USED AS STORAGE AREA BY HEWLFSCD AND HEWLFREL 10250021 SPACE 2 10300021 * 10350021 *** CURRENT USAGE OF ALL TABLES USED DURING PROCESSING *** 10400021 * 10450021 ENT1C DS H CURRENT NUMBER OF ENTRIES IN TXT NOTE LIST 1 10500021 ENR1C DS H CURRENT NUMBER OF ENTRIES IN RLD NOTE LIST 1 10550021 ENITC DS H CURRENT NUMBER OF BYTES IN TXT I/O CNTL TABLE 10600021 ENIRC DS H CURRENT NUMBER OF BYTES IN RLD I/O CNTL TABLE 10650021 ENTOC DS H CURRENT NUMBER OF BYTES IN TXT I/O TABLE 10700021 ENCLC DS H CURRENT NUMBER OF BYTES IN CALLS LIST 10750021 ENS1C DS H CURRENT NUMBER OF ENTRIES IN SEGTAB1 10800021 ENASC DS H CURRENT NUMBER OF ENTRIES IN ALIAS TABLE 10850021 ENDTC DS H CURRENT NUMBER OF ENTRIES IN DELINK TABLE 10900021 ENRNC DS H CURRENT NUMBER OF ENTRIES IN RNT TABLE XM1692 10910000 * ALWAYS EQUAL TO MAXIMUM NUMBER DUE TO LR 10920002 * PROCESSING WHICH MUST TURN ON DEPEND FLAGS 10930002 * FOR SD ITEMS NOT YET RECEIVED 10940002 ENCDC DS H CURRENT NUMBER OF ENTRIES IN H/CESD TABLE 10950021 ENELTC DS H CURRENT NUMBER OF ENTRIES IN 2PASS ENTRY LIST 11000021 ENT2C DS H CURRENT NUMBER OF ENTRIES IN TXT NOTE LIST 2 11050021 ENR2C DS H CURRENT NUMBER OF ENTRIES IN RLD NOTE LIST 2 11100021 ENSPC DC H'00' HIGHEST SEGMENT NUMBER WITH TEXT 11150021 * THE FOLLOWING FOUR FIELDS MAY NOT BE MOVED IN THE APT 11152002 * TO A LOCATION THAT IS BEFORE THEIR RELATED IDR CONSTANTS 11154003 * THE HALFWORD FILLERS MUST BE LEFT IN AND THE ORDER OF 11156003 * THE OCCURRENCE OF THESE FIELDS CAN NOT BE CHANGED WITHOUT 11158003 * CHANGING THE ORDER OF ALL OTHER IDR CONSTANTS 11158403 DS 0F 11158803 IDRTRCUR DS H CURR # BYTES IN IDR TRANS DATA TABLE XM4950 11160003 DS 0F 11162003 IDRTICUR DS H CURR # BYTES IN IDR TRANS ID TABLE OX04245 11164002 DS 0F OX04245 11168002 IDRUDCUR DS H CURR # BYTES IN IDR USER DATA TABLE XM4950 11170003 DS 0F 11172003 IDRZPCUR DS H CURR # BYTES IN IDR ZAP DATA TABLE XM4950 11180003 ORDRCUR DS H CURRENT NUMBER OF BYTES IN ORDER TABLE S01904 11200021 ORDRMAX DS H MAX. NO. OF BYTES IN ORDER TABLE S01904 11210021 BITMAP DS 2F BIT SWITCHES DENOTING ERROR MESSAGES LOGGED 11220003 BITMAP2 DS 2F ADDITIONAL BIT SWITCHES DENOTING ERROR S21016 11230003 * MESSAGES LOGGED S21016 11240003 LINECNT DS 1H LINES ON THIS PAGE 11242003 HISEV DS 1H HIGHEST SEVERITY MESSAGE 11244003 SPACE 2 11250021 SYSRTN DS 2F TWO WDS FOR REGISTER 13-14 TO RETURN TO SCHED. 11300021 SPACES DS 18F SAVE AREA FOR TEMPORARY DEBUGGING 11350021 * ALSO USED AS STORAGE AREA BY HEWLFSCD AND HEWLFREL 11400021 AIF ('&PARM' EQ 'A').DC3 11450021 ERDIG DS F ADDRESS OF HEWLFLOG 11500021 AGO .DC4 11550021 .DC3 ANOP 11600021 ERDIG DC V(HEWLFLOG) ADDRESS OF HEWLFLOG 11650021 .DC4 ANOP 11700021 AIF ('&PARM' EQ 'A').DC31 11710021 ERDIGA DS F ADDRESS OF HEWLFALK S01904 11720021 AGO .DC41 11730021 .DC31 ANOP 11740021 ERDIGA DC V(HEWLFALK) ADDRESS OF HEWLFALK S01904 11742021 .DC41 ANOP 11744021 SSI DS 1F SYSTEM STATUS INDICATOR (FOR APT) 11750021 FFCADR DS 1F HIGHEST ADDRESS RETAINED BY ALLOCATOR 11800021 LIBNAME DS 8C NAME OF LIBRARY 11850021 LIBOPEN DS 8C NAME OF LIBRARY NOW OPEN 11900021 AIF ('&PARM' EQ 'A').DC11 11950021 DS H 12000021 AGO .DC12 12050021 .DC11 ANOP 12100021 APT000 BR 14 SYNAD FOR PRINTER 12150021 .DC12 ANOP 12200021 SAVATS DS 3C ATTRIBUTES SAVE AREA 12250021 SPACE 2 12300021 APTSWS DS 1C SWITCHES 12350021 * BITS 0-3 SPARE 12400021 *INITIAL VALUE=0 BIT 4 BIT MAP PROCESSED 12450021 *INITIAL VALUE=0 BIT 5 LINKAGE EDITOR INPUT RECEIVED 12500021 *INITIAL VALUE=0 BIT 6 SYM RECEIVED 12550021 *INITIAL VALUE=0 BIT 7 ESD RECEIVED 12600021 TSOBIT EQU X'80' TSO OR NOT S99999 12650021 CSTOW EQU X'40' RESERVED FOR CSTOW OPTION S99999 12700021 ABSREL EQU X'20' 0 -- RELOCATABLE S99999 12750021 * 1 -- ABSOLUTE S99999 12800021 OVRDE EQU X'10' DCBS OVERRIDE S99999 12850021 SPACE 2 12900021 * 12950021 NEWSW DC XL1'00' SWITCHES FOR DETERMINING CONTROL 13000021 * 13050021 *INITIAL VALUE=0 BIT 0 IF OFF INDICATES 1ST TIME IN INT 13100021 *INITIAL VALUE=1 BIT 1 MAP/XREF ENTERED FROM INTERMEDIATE PROC. 13150021 * IF 0, ENTERED FROM FINAL PROCESSOR 13200021 *INITIAL VALUE=0 BIT 2 ALL RLDS IN CORE 13250021 * IF 1, THE RLDS ARE NOT IN CORE 13300021 *INITIAL VALUE=0 BIT 3 MAP/XREF NOT IN CONTROL 13350021 * IF 1, MAP/XREF IN CONTROL 13400021 *INITIAL VALUE=0 BIT 4 NORMAL PRINTING ON SYSPRINT 13450021 * IF 1, ABORT IMMEDIATELY-NO PRINTING 13500021 *INITIAL VALUE=0 BIT 5 HIERARCHY 13550021 *INITIAL VALUE=0 BIT 6 SPARE 13600021 *INITIAL VALUE=0 BIT 7 INDICATES PURGE TO TXT/RLD PROCESSOR 13650021 SPACE 2 13700021 * 13750021 NEWSW2 DC XL1'00' SWITCHES FOR SECOND PASS PROCESSING 13800021 * 13850021 *INITIAL VALUE=0 BIT0 MORE RLDS EXIST FOR CURRENT ID 13900021 *INITIAL VALUE=0 BIT1 SPLIT RLD IN OUTPUT BUFFER 13950021 *INITIAL VALUE=0 BIT2 R AND P POINTER HAS BEEN SAVED 14000021 *INITIAL VALUE=0 BIT3 RELATIVE RELOCATION FACTOR NEEDED 14050021 * IF 1, ABSOLUTE RELOCATION FACTOR NEEDED 14100021 *INITIAL VALUE=0 BIT4 SPLIT RLD HAS BEEN SAVED IN HESD PREFIX 14150021 *INITAIL VALUE=0 BIT5 NO RLDS EXIST FOR LAST TEXT OF SEGMENT 14200021 * OR LAST TEXT OF MODULE 14250021 *INITIAL VALUE=0 BIT6 SPLIT RLD IS PRECEDED BY R AND P PTRS. 14300021 *INITIAL VALUE=0 BIT7 R AND P PTRS FOR CURRENT CHAIN ARE IN BFR 14350021 SPACE 2 14400021 APTSW2 DS XL1 SWITCHES S99999 14450021 ENQBIT EQU X'80' OFF=ENQ'ED; ON=NO ENQ S99999 14500021 * EQU X'40' RESERVED 14510000 SHRSYSMD EQU X'20' OFF = SYSLMOD NOT SHARED A49330 14520000 * ON = SYSLMOD SHARED DASD A49330 14530000 REINTRY EQU X'10' OFF = FIRST TIME THRU INT A51444 14540000 * ON = NOT FIRST TIME THRU A51444 14542000 SPACE 2 S99999 14550021 APTSW3 DS XL1 SWITCHES S99999 14600021 SPACE 2 S99999 14650021 APTSW4 DS XL1 SWITCHES S99999 14700021 EJECT 14710000 ***** 14720000 * 14730000 * EQUATES TO SUPPORT THE REALLOCATE CODE AND TO STANDARDIZE 14740000 * THE CONSTANTS FOR TABLE SIZE AND WEIGHT COMPUTATION 14744000 * 14746000 ***** 14748000 WT1 EQU X'0000' WEIGHT FOR RLD INP BUF TABLE (1ST PASS) 14748400 WT2 EQU X'0000' WEIGHT FOR ALIAS TABLE 14749200 WT3 EQU X'0120' WEIGHT FOR CESD TABLE 14749600 WT4 EQU X'0000' WEIGHT FOR HESD TABLE 14749700 WT5 EQU X'0090' WEIGHT FOR HESD TABLE (SECOND) 14749800 WT6 EQU X'0054' WEIGHT FOR TEXT NOTE LIST 2 TABLE 14749900 WT7 EQU X'003A' WEIGHT FOR RLD NOTE LIST 2 TABLE 14766600 WT8 EQU X'0030' WEIGHT FOR TEXT I/O TABLE 14776600 WT9 EQU X'0048' WEIGHT FOR RNT/RELOC CONSTANT TABLES 14778600 WT10 EQU X'0018' WEIGHT FOR DELINK TABLE 14780600 WT11 EQU X'0000' WEIGHT FOR RLD O/P BUF TABLE (2ND PASS) 14782600 WT12 EQU X'0015' WEIGHT FOR TEXT NOTE LIST 1 TABLE 14783000 WT13 EQU X'000E' WEIGHT FOR RLD NOTE LIST 1 TABLE 14783100 WT14 EQU X'001C' WEIGHT FOR ORDER TABLE 14783200 WT15 EQU X'0012' WEIGHT FOR HIERARCHY TABLE 14788800 WT16 EQU X'0000' WEIGHT FOR SEGMENT TABLE 14790800 WT17 EQU X'0060' WEIGHT FOR CALLS LIST TABLE 14792800 WT18 EQU X'0060' WEIGHT FOR ENTRY LIST TABLE 14793200 WT19 EQU X'000C' WEIGHT FOR IDR TRANSLATOR DATA TABLE OX04245 14793602 WT20 EQU X'0058' WEIGHT FOR IDR USER DATA TABLE 14794000 WT21 EQU X'002C' WEIGHT FOR IDR ZAP DATA TABLE 14794100 WT22 EQU X'002D' WEIGHT FOR TRANSLATOR ID TABLE OX04245 14797602 MIN1 EQU X'0100' MINSIZE FOR RLD INP BUF TABLE (1ST PASS) 14801202 MIN2 EQU X'00A0' MINSIZE FOR ALIAS TABLE 14804702 MIN3 EQU X'1200' MINSIZE FOR CESD TABLE 14808200 MIN4 EQU X'0008' MINSIZE FOR HESD TABLE 14818200 MIN5 EQU X'0900' MINSIZE FOR HESD TABLE (SECOND) 14820200 MIN6 EQU X'0540' MINSIZE FOR TEXT NOTE LIST 2 TABLE 14820600 MIN7 EQU X'03A0' MINSIZE FOR RLD NOTE LIST 2 TABLE 14821000 MIN8 EQU X'0300' MINSIZE FOR TEXT I/O TABLE 14821400 MIN9 EQU X'0480' MINSIZE FOR RNT/RELOC CONSTANT TABLES 14821800 MIN10 EQU X'0180' MINSIZE FOR DELINK TABLE 14821900 MIN11 EQU X'0300' MINSIZE FOR RLD O/P BUF TABLE (2ND PASS) 14822000 MIN12 EQU X'0150' MINSIZE FOR TEXT NOTE LIST 1 TABLE 14822100 MIN13 EQU X'00E8' MINSIZE FOR RLD NOTE LIST 1 TABLE 14826700 MIN14 EQU X'01C8' MINSIZE FOR ORDER TABLE 14828700 MIN15 EQU X'0120' MINSIZE FOR HIERARCHY TABLE 14830700 MIN16 EQU X'0100' MINSIZE FOR SEGMENT TABLE 14831100 MIN17 EQU X'0600' MINSIZE FOR CALLS LIST TABLE 14831200 MIN18 EQU X'0600' MINSIZE FOR ENTRY LIST TABLE 14831300 MIN19 EQU X'00C0' MINSIZE FOR IDR TRANSLATOR DATA TABLE OX04245 14831402 MIN20 EQU X'03C0' MINSIZE FOR IDR USER DATA TABLE 14836000 MIN21 EQU X'01C7' MINSIZE FOR IDR ZAP DATA TABLE 14838100 MIN22 EQU X'00D0' MINSIZE FOR TRANSLATOR ID TABLE OX04245 14838502 ADDSIMP EQU WT1+WT3+WT8+WT9+WT10+WT12+WT13+WT14+WT19+WT20+WT21+WT22 14840102 * ADDSIMP IS THE SUM OF THE WEIGHTS OF THE 'NORMAL' OR OX04245 14840502 * 'ALWAYS USED' TABLES 14840600 ROUNDSIM EQU ((ADDSIMP+15)/16)*16 ROUNDS UP ADDSIMP TO FW BDY 14840700 ADDHIAR EQU ADDSIMP+WT15 TOTAL WEIGHTS FOR HIARCHY 14852500 ROUNHIAR EQU ((ADDHIAR+15)/16)*16 ROUNDS UP ADDHIAR TO FW BDY 14862500 ADDOVLY EQU ADDSIMP+WT16+WT17+WT18 TOTAL WEIGHTS FOR OVLY 14864500 ROUNOVLY EQU ((ADDOVLY+15)/16)*16 ROUNDS UP ADDOVLY TO FW BDY 14868400 ADDSIMPM EQU MIN1+MIN3+MIN8+MIN9+MIN10+MIN12+MIN13+MIN14+MIN19+MIN20+*14870400 MIN21+MIN22 ADDSIMPM SUMS THE MINIMUM SIZES FOR THE 14872402 * 'NORMAL' TABLES OX04245 14876302 NORMTABS EQU ((ADDSIMPM+15)/16)*16 ROUNDS TO FW BDY 14878400 ADDOVLYM EQU ADDSIMPM+MIN16+WT17+WT18 SUM SIZES FOR OVLY 14878800 OVLATABS EQU ((ADDOVLYM+15)/16)*16 ROUNDS TO FW BDY 14879200 ADDHIARM EQU ADDSIMPM+MIN15 SUM OF SIZES FOR HIAR TABLES 14879600 HIARTABS EQU ((ADDHIARM+15)/16)*16 ROUNDS TO FW BDY 14880000 EJECT , S21016 14880400 IDRSWS DS XL1 IDR SWITCHES S21016 14884300 * ****************************************************** S21016 14888200 * * BIT DESCRIPTIONS * S21016 14900021 * ****************************************************** S21016 14950021 * * SYMBOLIC * * * MEANING OF BIT * S21016 15000021 * * NAME OF * BIT * MASK * WHEN TURNED ON * S21016 15050021 * * MASK * * * (VALUE = 1) * S21016 15100021 * ****************************************************** S21016 15150021 * * N/A * 0 * X'80' * RESERVED * S21016 15200021 * ****************************************************** S21016 15250021 * * N/A * 1 * X'40' * RESERVED * S21016 15300021 * ****************************************************** S21016 15350021 * * N/A * 2 * X'20' * RESERVED * S21016 15400021 * ****************************************************** S21016 15450021 * * * * * THE LAST IDR ITEM * S21016 15500021 * * * * * PROCESSED WAS NOT * S21016 15550021 * * PARTENT * 3 * X'10' * COMPLETE (IT IS * S21016 15600021 * * * * * EXPECTED TO BE * S21016 15650021 * * * * * CONTINUED ON THE * S21016 15700021 * * * * * NEXT INPUT RECORD) * S21016 15750021 * ****************************************************** S21016 15800021 * * * * * DOUBLE IDR ENTRY ON * S21016 15850021 * * DBLOBJ * 4 * X'08' * AN OBJ MOD END REC * S21016 15900021 * * * * * BEING PROCESSED * S21016 15950021 * ****************************************************** S21016 16000021 * * USEIDR * 5 * X'04' * IDENTIFY CONTROL * S21016 16050021 * * * * * CARD BEING PROCESSED * S21016 16100021 * ****************************************************** S21016 16150021 * * * * * OBJECT MODULE END * S21016 16200021 * * OBJIDR * 6 * X'02' * CARD BEING PROCESSED * S21016 16250021 * * * * * FOR IDR INPUT DATA * S21016 16300021 * ****************************************************** S21016 16350021 * * LMDIDR * 7 * X'01' * LOAD MODULE IDR * S21016 16400021 * * * * * BEING PROCESSED * S21016 16450021 * ****************************************************** S21016 16500021 * NOTE--INITIAL VALUE OF ALL BITS IS ZERO (SET BY HEWLFINT) S21016 16550021 *RESVRD EQU X'80' EQUATES OF S21016 16600021 *RESVRD EQU X'40' SYMBOLIC S21016 16650021 *RESVRD EQU X'20' NAMES S21016 16700021 PARTENT EQU X'10' FOR S21016 16750021 DBLOBJ EQU X'08' MASKS S21016 16800021 USEIDR EQU X'04' AS S21016 16850021 OBJIDR EQU X'02' SPECIFIED S21016 16900021 LMDIDR EQU X'01' ABOVE S21016 16950021 *** *** 16960002 *** MAP OF INTERNAL TRANSLATOR IDR DATA TABLE *** 16980002 *** *** 16990002 TRNAME EQU 0 TRANSLATOR NAME OX04245 16992002 VVMM EQU 10 VERSION/MOD LEVEL OX04245 16994002 * OF TRANSLATOR OX04245 16996002 TRNAME2 EQU 12 2ND TRANSLATOR NAME OX04245 16998002 VVMM2 EQU 22 VERSION/MOD LEVEL OX04245 16998402 * OF 2ND TRANSLATOR OX04245 16998802 *** *** 16999202 *** MAP OF INTERNAL TRANSLATOR IDR ID TABLE *** 16999602 *** *** 16999702 INDCTR EQU 0 INDICATOR OX04245 16999802 * X'00' = ONE TRANSLATOR OX04245 16999902 * DESCRIPTION OX04245 17003202 * X'01' = TWO TRANSLATOR OX04245 17005202 * DESCRIPTIONS OX04245 17005602 NAMEPTR EQU 1 POINTER TO CORRESPOND OX04245 17006002 * ENTRY IN TRANS IDR DATA OX04245 17006402 * TABLE OX04245 17006502 YYDDD EQU 3 DATE OF TRANSLATION OX04245 17006602 YYDDD2 EQU 6 2ND DATE OF TRANSLATION OX04245 17009902 EJECT , S21016 17013402 APT4 DS XL1 ALL PURPOSE INDICATOR S01904 17016702 * 17020021 *INITIAL VALUE=0 BIT0 TABLES INITIALLY ALLOCATED S01904 17030021 *INITIAL VALUE=0 BIT1 TABLES REALLOCATED S01904 17040021 *INITIAL VALUE=0 BIT2 INTERMEDIATE PASS PROCESSING S01904 17042021 *INITIAL VALUE=0 BIT3 SECOND PASS PROCESSING S01904 17044021 *INITIAL VALUE=0 BIT4 ORDERING REQUIRED S01904 17046021 *INITIAL VALUE=0 BIT5 PAGE BOUNDARY ALIGNMENT REQUIRED S01904 17048021 *INITIAL VALUE=0 BIT6 ALIGN ON 2K PAGE BOUNDARY S01904 17048421 *INITIAL VALUE=0 BIT7 SPARE S01904 17048821 * 17048921 *THE FOLLOWING ARE THE SYMBOLS USED IN REFERENCING APT4 17049021 REALOCTE EQU X'C0' ALL ALLOCATION DONE S01904 17049121 INALOCTD EQU X'80' TABLES INITIALLY ALLOCATED S01904 17059221 REALOCTD EQU X'40' TABLES REALLOCATED S01904 17069221 INTRPS EQU X'20' INTERMEDIATE PASS PROCESSING S01904 17069621 SCDPS EQU X'10' SECOND PASS PROCESSING S01904 17073021 ORDERR EQU X'08' ORDERING REQUIRED S01904 17075021 PAGEE EQU X'04' PAGE ALIGNMENT REQUIRED S01904 17075821 ALIGN2 EQU X'02' ALIGN OF 2K PAGE BOUNDARY S01904 17076221 * 17076321 SPACE 3 17076421 * 17079821 MAXBF DC H'40' MAXIMUM BLOCKING FACTOR 17089921 * 17100021 SPACE 2 17150021 *** 17200021 *** I/O CONTROL BLOCKS FOR BUFFER LOCATIONS AND CAPACITIES *** 17250021 *** 17300021 HEWLCRBB DC A(DECBLIB) ADDRESS OF SYSLIB DECB 17350021 DC F'0' 1ST LIBRARY BUFFER 17400021 DC F'0' 2ND LIBRARY BUFFER 17450021 DC H'0' BLKSIZE 17500021 DC H'80' LRECL 17550021 DC H'1' BLKFCTR 17600021 DC H'1' NUMBER OF RECORDS LEFT IN BUFFER 17650021 DC F'0' ADDRESS OF CURRENT RECORD 17700021 DC X'80000000' READSW SET TO FIRST READ 17750021 * 17800021 HEWLCRBN DC A(DECBLIN) ADDRESS OF SYSLIN DECB 17850021 DC F'0' 1ST SYSLIN BUFFER 17900021 DC F'0' 2ND SYSLIN BUFFER 17950021 DC H'0' BLKSIZE 18000021 DC H'80' LRECL 18050021 DC H'1' BLKFCTR 18100021 DC H'1' NUMBER OF RECORDS LEFT IN BUFFER 18150021 DC F'0' ADDRESS OF CURRENT RECORD 18200021 DC X'80000000' READSW SET TO FIRST READ 18250021 * 18300021 AIF ('&PARM' EQ 'A').DC9 18350021 HEWLCWBB DS F 18400021 AGO .DC10 18450021 .DC9 ANOP 18500021 HEWLCWBB DC A(HEWLCPDB) ADDRESS OF SYSPRINT DCB 18550021 .DC10 ANOP 18600021 DC F'0' 1ST SYSPRINT BUFFER 18650021 DC F'0' 2ND SYSPRINT BUFFER 18700021 DC H'0' BLKSIZE 18750021 DC H'121' LRECL 18800021 DC H'1' BLKFCTR 18850021 DC H'1' NUMBER OF RECORDS LEFT IN BUFFER 18900021 DC F'0' ADDRESS OF CURRENT RECORD 18950021 DC X'80000000' WRITESW SET TO FIRST WRITE 19000021 * 19050021 SPACE 2 19100021 RLDOUT1 DC F'0' ADDR OF FIRST RLD OUTPUT BUFFER-1ST PASS 19150021 RLDINBF1 EQU RLDOUT1 ADDR OF FIRST RLD INPUT BUFFER-2ND PASS 19200021 RLDOUT2 DC F'0' ADDR OF SECOND RLD OUTPUT BUFFER-1ST PASS 19250021 RLDINBF2 EQU RLDOUT2 ADDR OF SECOND RLD INPUT BUFFER-2ND PASS 19300021 TXTBFBEG DC F'0' ADDR OF START OF TEXT BUFFER 19350021 TXTBFEND DC F'0' ADDR OF END OF TEXT BUFFER 19400021 MULTSIZE DC F'0' SIZE OF SYSLMOD MULTIPLICITY-OR RECORD 19450021 UT1SIZE DC F'0' SIZE OF SYSUT1 RECORD 19500021 SZSYSUT1 DC F'0' SYSUT1 MAX. NUMBER BYTES PER TRACK 19550021 RLDSIZE DC F'0' SIZE OF EACH RLD BUFFER 1ST PASS-IN 19600021 * 2ND PASS-OUT 19650021 VALUE1 DC F'0' SIZE VALUE1 FOR LE MAX. ALLOWABLE STORAGE 19700021 VALUE2 DC F'0' SIZE VALUE2 FOR LE LOAD MODULE BUFFER 19750021 MSGONE DC X'00000000' INDICATES 1ST MESSAGE FROM MOPT 19800021 MSGTWO DC X'00000000' INDICATES 2ND MESSAGE FROM MOPT 19850021 MSGTHREE DC X'00000000' INDICATES 3RD MESSAGE FROM MOPT 19900021 * 19950021 HEWLCLAC DC A(HEWLCRBN) ADDRESS OF CURRENT READ BLOCK 20000021 SPACE 2 20050021 DS 0F 20100021 AIF ('&PARM' EQ 'A').DC7 20150021 READ DECBLIN,SF,HEWLKLED,,,MF=L 20200021 * 20250021 READ DECBLIB,SF,HEWLCLDB,,,MF=L CREATE DECB FOR SYSLIB 20300021 AGO .DC8 20350021 .DC7 ANOP 20400021 READ DECBLIN,SF,HEWLCSDB,,,MF=L CREATE DECB FOR SYSLIN 20450021 * 20500021 READ DECBLIB,SF,HEWLFLDB,,,MF=L CREATE DECB FOR SYSLIB 20550021 .DC8 ANOP 20600021 DS 0F 20650021 SPACE 3 20660021 ****************************************************************** 20662021 COREADR DS F ADDRESS OF STORAGE AREA OBTAINED THROUGH GETMAIN 20670021 CORELEN DS F LENGTH OF STORAGE AREA OBTAINED 20680021 BRNCHSV DS 16F SAVE AREA 20690021 APTAPF DS 0CL2 DEFAULT LGTH AND AUTH CODE Y01048 20692000 APTAPFCT DS CL1 FOR THIS LKED STEP Y01048 20694000 APTAPFAC DS CL1 ONE BYTE LGTH & ONE BYTE CODE Y01048 20696000 PDSAPF DS 0CL2 CURRENT AUTH CODE FOR THIS Y01048 20698000 PDSAPFCT DS CL1 ITERATION OF THE LINK EDIT Y01048 20698400 PDSAPFAC DS CL1 CAN BE CHANGED BY SETCODE Y01048 20698800 DC C'MAPT' END OF HEWLFAPT INDICATOR 20700021 *********************************************************************** 20750021 * ------------ * 20800021 * CODE GENERATION FOR - 10/02/73 - HEWAPT MACRO ENDS * 20850002 * ------------ * 20900021 *********************************************************************** 20950021 MEND 21000021