* %GOTO PLSPRI; /* 00100000 MACRO 00200000 TPRIOR 00300000 .*A000000-999999 @X31X8X0 00400000 .* C281000,286000,290000,294000,309000,686000,693000,699000, @Y17XAXF 00410000 .* C704000,723000 @Y17XAXF 00420000 .* D094000,282000-284000,287000-288000,291000-292000,295000- @Y17XAXF 00430000 .* D296000,310000,454000,687000-690000,694000-696000,700000- @Y17XAXF 00440000 .* D701000,705000-707000,724000-725000 @Y17XAXF 00450000 SPACE 00500000 .*A825000-826000 S22025 00600000 .*A696500-699000 S22026 00700000 .*C884700 S22026 00800000 .*C412000 SA50190 00900000 .*C020000,892600 @Z30X8XE 01000000 .*C864000,982300-982600 @OS76497 01100000 * 01200000 * TPRIOR DSECT UPDATED 6/7/74 @Z30X8XE 01300000 .* TPRIOR DSECT CONVERTED TO BILINGUAL BY LEVEL 5 - 9/18/72 S22024 01400000 .*A887040-887160,990200-995200 Y05330 01500000 .*C601600-603000 @OX21052 01500182 * 01600000 * ERB 01700000 * 01800000 PRIINTRQ EQU X'E4' . TO REQUEST FULL BUFFERS 01900000 * FROM DISK I/O 02000000 * TO REQUEST EMPTY BUFFERS 02100000 * FROM BUFFER REQUEST QCB 02200000 * USED BY SEND SCHEDULER 02300000 * USED BY RECEIVE SCHEDULER 02400000 * USED BY GET SCHEDULER 02500000 * USED BY PUT SCHEDULER 02600000 * 02700000 PRIFSPCI EQU X'E8' . TO REQUEST EMPTY BUFFERS 02800000 * FROM BUFFER REQUEST QCB 02900000 * TO REQUEST FULL BUFFERS 03000000 * FROM DISK I/O 03100000 * USED BY PCI APPENDAGE 03200000 * (FIRST TIME) 03300000 * 03320000 PRITOTCL EQU X'E8' . POST OF CLEANUP ELEM TO TOTE TO 03340000 * INITIATE TEST CLEANUP @Y17XAXF 03360000 * 03400000 PRISBPCI EQU X'E0' . SAME AS ABOVE, EXCEPT ALL 03500000 * BUT FIRST TIME 03600000 * 03700000 PRIDSKRQ EQU X'EC' . TO REQUEST AN EMPTY UNIT BY 03800000 * CHAINING THE ERB ON THE 03900000 * BUFFER RETURN QCB 04000000 * USED BY CPB CLEANUP 04100000 * 04200000 PRISBT EQU X'EC' . PRIORITY FOR ELEMENT POSTED 04230000 * TO IEDQSBT @YM07020 04260000 PRIACTIV EQU X'E4' . IN POSTING ERB TO ACTIVATE 04300000 * QCB TO REQUEST BUILDING 04400000 * OF AN INITIAL CONTACT PGM 04500000 * AND EXCP FOR LINE 04600000 * USED BY CPB CLEANUP 04700000 * USED BY BUFFER REQUEST 04800000 * USED BY BUFFER RETURN 04900000 * 05000000 PRIDKEOB EQU X'E0' . TO ENABLE EOB TO RECALL 05100000 * TO POST TO EOBCHECK AFTER 05200000 * EOB ERROR 05300000 * USED BY CPB CLEANUP 05400000 * USED BY CPB INITIALIZATION 05500000 * MUST BE LOWER PRIORITY THAN 05600000 * PRIMHBFR 05700000 * 05800000 PRIRECAL EQU X'E0' . TO REQUEST FROM DISK I/O A 05900000 * COPY OF HEADER 06000000 * USED BY ALL ROUTINES 06100000 * REQUESTING RECALLED 06200000 * HEADERS 06300000 * 06400000 PRIRCQCB EQU X'E0' . TO RETURN THE ERB TO ANY 06500000 * ROUTINE SPECIFIED IN 06600000 * LCBRCQCB 06700000 * USED BY MH TO RETURN TO 06800000 * BUFFER DISPOSITION 06900000 * USED BY CPB CLEANUP AFTER 07000000 * RECALL 07100000 * 07200000 PRIAPERB EQU X'D0' . TO REQUEST FULL BUFFERS 07300000 * USED BY APPLICATION PROG 07400000 * 07500000 * BUFFER 07600000 * 07700000 PRIEDISP EQU X'E0' . TO POST ERB TO ITSELF ON SEND 07800000 * OPERATIONS WHEN AN ERROR 07900000 * OCCURS BEFORE EOM 08000000 * USED BY DISPOSITION 08100000 * MUST BE LOWER THAN PRIMHBFR 08200000 * 08300000 PRIMHBFR EQU X'E4' . TO HAVE A BUFFER PROCESSED 08400000 * BY MH 08500000 * USED BY PCI APPENDAGE 08600000 * USED BY CPB CLEANUP 08700000 * USED BY LINE END APPENDAGE 08800000 * AFTER POSITIVE RESPONSE 08900000 * TO ADDRESSING 09000000 * 09100000 PRIERBFR EQU X'E3' TO HAVE AN ERROR BUFFER X03039 09200000 * PROCESSED BY MH X03039 09300000 * X03039 09500000 PRIUREQ EQU X'E8' . TO REQUEST AN EMPTY 09600000 * UNIT FOR INSERT 09700000 * FUNCTION IN MH 09800000 * USED BY UNIT REQUEST 09900000 * MUST BE HIGHER THAN PRIMHBFR 10000000 * 10100000 PRIAPBFR EQU X'DC' . TO POST A BUFFER TO AN 10200000 * APPLICATION PROGRAM 10300000 * USED BY MBH 10400000 * 10500000 PRILNEND EQU X'E4' . TO HAVE DISPOSITION FINISH 10600000 * PROCESSING MACROS AND 10700000 * CLEANUP THE LINE 10800000 * USED BY LINE END APPENDAGE 10900000 * (SEND-LAST BUFFER ONLY) 11000000 * 11100000 PRIRCBFR EQU X'E0' . TO RETURN A DUPLICATE HEADER 11200000 * TO A SPECIFIED ROUTINE 11300000 * USED BY CPB CLEANUP 11400000 * USED BY DESTINATION SCHEDULER 11500000 * 11600000 PRIBFRTB EQU X'E0' . TO RETURN A BUFFER OR UNIT 11700000 * SA50190 11800000 * TO AVAILABLE BUFFER POOL 11900000 * USED BY PCI APPENDAGE 12000000 * USED BY CPB CLEANUP 12100000 * USED BY CPB INITIALIZATION 12200000 * USED BY DESTINATION SCHEDULER 12300000 * USED BY MH 12400000 * 12500000 PRIDSKBF EQU X'EC' . TO GIVE A UNIT TO CPB CLEANUP 12600000 * USED BY BUFFER RETURN 12700000 * 12800000 PRICOPY EQU X'E0' . TO HAVE A MESSAGE COPIED TO 12900000 * A DIFFERENT DATA SET 13000000 * USED BY DESTINATION SCHEDULER 13100000 * 13200000 PRIDESTQ EQU X'E4' . TO PUT A BUFFER ON A MESSAGE 13300000 * QUEUE 13400000 * USED BY MH 13500000 * USED BY DESTINATION SCHEDULER 13600000 * 13700000 PRIDKWRT EQU X'E4' . TO HAVE A FULL BUFFER WRITTEN 13800000 * ON DISK 13900000 * USED BY DESTINATION SCHEDULER 14000000 * 14100000 PRIDKSRV EQU X'EC' . TO HAVE A MESSAGE FLAGGED 14200000 * SERVICED 14300000 * USED BY BUFFER CLEANUP 14400000 * 14500000 PRIDKCNC EQU X'E0' . TO HAVE A MESSAGE CANCELED 14600000 * IN THE MESSAGE QUEUE 14700000 * USED BY CANCEL MESSAGE 14800000 * 14900000 PRIDKINT EQU X'E0' . TO HAVE A MESSAGE INTERCEPTED 15000000 * USED BY INTERCEPT 15100000 * 15200000 PRICKPLN EQU X'EC' . TO POST THE LCB TO CHECKPOINT 15300000 * REQUESTING A CHECKPOINT 15400000 * USED BY BUFFER DISPOSITION 15500000 * 15600000 PRIMULTR EQU X'E0' . TO POST THE LCB TO THE 15700000 * MULTIPLE ROUTE ROUTINE 15800000 * TO CONTINUE 15900000 * USED BY BUFFER DISPOSITION 16000000 * USED BY TLIST SUBTASK 16100000 * 16200000 PRIOPCTL EQU X'DC' . TO POST AN OPERATOR CONTROL 16300000 * BUFFER 16400000 * USED BY MH 16500000 * USED TO POST FROM OPCTL@Y17XAXF 16530000 * TO NSL @Y17XAXF 16560000 * 16600000 PRIDSPLB EQU X'DF' . TO POST LAST BUFFER OF 16700000 * MESSAGE TO DISPOSITION 16800000 * USED BY MH 16900000 * USED BY OPNDST/CLSDST X03039 17000000 * MUST BE LOWER THAN ANY PCI 17100000 * POST OF AN ERB 17200000 * 17300000 PRIONLT EQU X'DC' . TO REQUEST ON LINE TEST 17400000 * USED BY MH 17500000 * 17600000 PRIPIUCP EQU X'00' . PACKED RU TO IEDPMD USED FOR 17700000 * IDENTIFICATION PURPOSES ONLY - 17704000 * WILL NEVER BE POSTED 17708000 * @Y17XAXF 17712000 PRILUSR EQU X'DA' . DEACTIVATE TO LUS TO TERMINATE 17716000 * A SESSION @Y17XAXF 17720000 PRIAIPL EQU X'DE' . TO INDICATE TO IPL/DUMP@Y17XAXF 17724000 * THAT AN LCB HAS BEEN @Y17XAXF 17800000 * POSTED TO REQUEST IPL @Y17XAXF 17900000 * AND OR ACTIVATE @Y17XAXF 18000000 * @Y17XAXF 18100000 PRIFIDIN EQU X'E4' . FID POST PRIORITY FROM @Y17XAXF 18200000 * PATH CONTROL INBOUND @Y17XAXF 18300000 * @Y17XAXF 18400000 PRISCPIN EQU PRIFIDIN+1 . SSCP INPUT-MUST BE @Y17XAXF 18500000 * HIGHER THAN FID POST @Y17XAXF 18600000 * PRIORITY @Y17XAXF 18700000 * @Y17XAXF 18800000 PRIFLDH EQU PRIMHBFR BTU PRIORITY TO FLDH @Y17XAXF 18900000 * QCB @Y17XAXF 19000000 * @Y17XAXF 19100000 PRICHKPT EQU X'EC' . PRIORITY USED BY @Y17XAXF 19200000 * CHECKPOINT TO POST @Y17XAXF 19300000 * AVTCCELE @Y17XAXF 19400000 * @Y17XAXF 19500000 PRIHIFLG EQU X'E9' . HIGHEST PRIORITY THAT @Y17XAXF 19600000 * HAS ASSOCIATED FLAG @Y17XAXF 19700000 * BYTE @Y17XAXF 19800000 * @Y17XAXF 19900000 PRIPLCB EQU X'E8' . PLCB/LC/ POST TO VE, @Y17XAXF 20000000 * Z1,V1 @Y17XAXF 20100000 * @Y17XAXF 20200000 PRIFRCDC EQU X'C4' . FORCE DEACTIVATE REQUEST OPCE 20300000 * IN 3705 CLEANUP @Y17XAXF 20305000 * @Y17XAXF 20310000 PRISSBUF EQU X'E2' . PRIORITY THAT BUFFERS @PI03742 20315000 * TPOSTED TO SSCP @Y17XAXF 20400000 * @Y17XAXF 20500000 PRISIBRQ EQU X'E5' . GET AND FREE SIB @Y17XAXF 20600000 * REQUEST ELEMENTS @Y17XAXF 20700000 * @Y17XAXF 20800000 PRISSPIU EQU X'E5' . PRIORITY THAT PIU'S @Y17XAXF 20900000 * ARE TPOSTED TO SSCP @Y17XAXF 21000000 * @Y17XAXF 21100000 PRIMH01 EQU X'E4' . PRIORITY POST FROM MH @Y17XAXF 21200000 * TO 01 @Y17XAXF 21300000 * @Y17XAXF 21400000 PRILNSCL EQU PRIDESTQ-1 . USED BY IEDUNBND TO POST PLCB 21500000 * TO IEDSCLU TO CONTINUE CLEAR 21520000 * UNBIND PROCESSING @Y17XAXF 21540000 * 21560000 PRIRESPB EQU X'EA' RESPONSE BUFFER TO 02 @OX21052 21580082 * @OX21052 21620082 PRIOLD1 EQU X'E0' . OLD PRIORITY POST TO VA@Y17XAXF 21700000 * @Y17XAXF 21800000 PRIMEDFG EQU X'DF' . MEDIUM PRIOITY THAT @Y17XAXF 21900000 * ASSOCIATED FLAG BYTE @Y17XAXF 22000000 * @Y17XAXF 22100000 PRITOTE0 EQU X'DC' . OLD PRIOITY POST FROM @Y17XAXF 22200000 * TOTE TO 00 @Y17XAXF 22300000 * @Y17XAXF 22400000 PRIPCOUT EQU X'E4' . TO POST TO PATH CONTROL@Y17XAXF 22500000 * OUTBOUND @Y17XAXF 22600000 * @Y17XAXF 22700000 PRIASYNC EQU X'E6' . TO POST AN ASYNCHROUS @Y17XAXF 22800000 * REQUEST BUFFER TO @Y17XAXF 22900000 * IEDNKA @Y17XAXF 23000000 * PRE-SNA - FOR RESET @Y17XAXF 23100000 * ERROR LOCK @Y17XAXF 23200000 * SNA - FOR NEGATIVE @Y17XAXF 23300000 * RESPONSE TO RTR @Y17XAXF 23400000 * @Y17XAXF 23500000 PRIOUTQ EQU X'E0' . TO TPOST PIUS TO THE @Y17XAXF 23600000 * 3705 OUTPUT CORE @Y17XAXF 23700000 * QUEUE @Y17XAXF 23800000 * @Y17XAXF 23900000 PRIOUTBD EQU X'E4' . NORMAL POST TO @Y17XAXF 23920000 * OUTBOUND PROCESSING @Y17XAXF 23940000 * @Y17XAXF 23960000 PRILUSQB EQU X'E2' . TPOST A QCB TO LUS TO @Y17XAXF 24000000 * REQUEST AN LU-LU @Y17XAXF 24020000 * SESSION @Y17XAXF 24040000 * @Y17XAXF 24060000 PRILOFLG EQU X'D0' . PRIORITY POST OF A/D @Y17XAXF 24080000 * REDRIVE ELEMENT @Y17XAXF 24082000 * @Y17XAXF 24084000 PRIPRIME EQU X'DD' . POST TO NSL FOR @Y17XAXF 24086000 * PRIMING @Y17XAXF 24088000 * @Y17XAXF 24090000 PRICULCB EQU X'C0' CLEANUP SYN AND ROUTING . 24090100 * @Y17XAXF 24090300 PRICUREQ EQU X'C4' CLEANUP REQUEST @Y17XAXF 24090500 * ELEMENT @Y17XAXF 24090700 * @Y17XAXF 24091300 PRILAEND EQU X'E4' . TO START ERROR PROCESSING 24092000 * USED BY LINE END APPENDAGE 24100000 * 24200000 PRIMHUNT EQU X'E8' . TO POST A UNIT TO MH 24300000 * USED BY IEDQBW 24400000 * MUST BE GREATER THAN PRIMHBFR 24500000 * 24600000 PRIRELSE EQU X'E0' . TO RELEASE SUBTASK FROM 24700000 * TIME DELAY OR OP. CONTROL 24800000 * USED BY HOLD 24900000 * USED BY OPERATOR CONTROL 25000000 * 25100000 PRIFEFO EQU X'EE' . TO UPDATE DISK FEFO POINTER 25200000 * CHECKED BY IEDQFA 25300000 * SET BY IGG019RP, REUS/COPY 25400000 * 25500000 * 25600000 * OTHER 25700000 * 25800000 PRIRLCB EQU X'EB' . USED BY IEDQBD TO S22026 25900000 * RETURN LCB S22026 26000000 * S22026 26100000 PRILCB EQU X'E7' . TO POST LCB FOR CLEANUP S22026 26200000 * USED BY LINEEND S22026 26300000 * S22026 26400000 PRICPBCL EQU X'E8' . TO POST CPB CLEANUP COMPLETE 26500000 * USED BY DISK END APPENDAGE 26600000 * 26700000 PRICKPT EQU X'EC' . TO REQUEST COMPLETE CHECKPOINT 26800000 * USED BY REUS 26900000 * USED BY MCPCLOSE 27000000 * USED BY TIME DELAY 27100000 * 27200000 PRILNFRE EQU X'E0' . TO FREE A LINE 27300000 * USED BY DISPOSITION 27400000 * USED BY SEND SCHEDULER 27500000 * USED BY PUT SCHEDULER(UNLOCK) 27600000 * MUST GET TO DESTINATION 27700000 * SCHEDULER BEFORE LINE 27800000 * IS FREE 27900000 * 28000000 PRILCBRQ EQU PRIINTRQ UNUSED @Y17XAXF 28100000 * X03039 28500000 PRIOPDST EQU PRILCBRQ UNUSED @Y17XAXF 28600000 * X03039 28900000 PRIOPCMP EQU X'E5' UNUSED @Y17XAXF 29000000 * 29300000 PRICLDST EQU PRILCBRQ UNUSED @Y17XAXF 29400000 * X03039 29700000 PRIRESUM EQU X'E5' TO POST RESPONSE BUFFER@Y17XAXF 29800000 * FROM DEBLOCK BACK TO @Y17XAXF 29900000 * NIR GENERATOR MODULES@Y17XAXF 30000000 * TO REQUEST RESUMPTION@Y17XAXF 30100000 * OF AN OPERATION BEGUN@Y17XAXF 30200000 * BY NIR GENERATOR @Y17XAXF 30300000 * MODULES 30400000 * X03039 30500000 PRISTOPD EQU X'E8' . USED TO RETURN AN X03039 30600000 * ELEMENT TO NSL X03039 30700000 * 30800000 PRIATTNH EQU X'E6' . UNUSED @Y17XAXF 30900000 * 31100000 PRICLSDN EQU X'10' . TO REQUEST CLOSEDOWN 31200000 * USED BY ----- 31300000 * MUST BE LOWEST PRIORITY 31400000 * 31500000 PRIAPCKP EQU X'EC' . TO REQUEST INCIDENT CHECKPOINT 31600000 * USED BY APPLICATION PROGRAM 31700000 * 31800000 PRIOPCKP EQU X'EC' . TO REQUEST INCIDENT CHECKPOINT 31900000 * USED BY OPERATOR CONTROL 32000000 * 32100000 PRILNCL EQU X'EC' . TO CLEAN UP BUFFERS AND TO 32200000 * FREE LINE 32300000 * USED BY LINE END 32400000 * TO POST LINE TO DISPOSITION 32500000 * USED BY IN END 32600000 * USED BY OUT END 32700000 * 32800000 PRILCBAT EQU X'E9' . TO POST LCB TO STOPLINE S22025 32900000 * SUBTASK USED BY LINE END S22025 33000000 * 33100000 PRILOGLB EQU X'E0' . TO POST THE LOG LCB TO ITSELF 33200000 * USED BY LOG SCHEDULER 33300000 * 33400000 PRISSOLT EQU X'DC' . POSTED TO OPERATOR CONTROL 33500000 * TO REQUEST START LINE/STOPLINE 33600000 * USED BY ON LINE TEST 33700000 * 33800000 PRITRACE EQU X'F0' . DSPTRACE PRIORITY IGCM610D 33900000 * POSTS UNIT TO ALTER IGG019RO 33910000 * TO START OR STOP TRACE(S) 33920000 * AFTER MODIFY TCAM, SUBT= 33930000 * COMAND @Y17XAXF 33940000 * 33950000 PRITIME EQU X'F0' . TO RETURN ELE FROM TIME Q 33960000 * USED BY TIME DELAY 34000000 * 34100000 PRIREUSX EQU X'EE' . TO ACTIVATE REUSABILITY@OS76497 34200000 * ASSEM IN PLACE BY IGG019RP 34300000 * 34400000 PRIATTN EQU X'DC' . POST ATTENTION ELEMENT 34500000 * USED BY ATTENTION HANDLER 34600000 * 34620000 PRIATN05 EQU PRIATTN+1 3705 ATTENTION ELEMENT PRIORITY 34640000 * @YM08074 34660000 * 34700000 PRISYSDL EQU X'DC' . TO INITIATE SYSTEM DELAY 34800000 * USED BY OPERATOR CONTROL 34900000 * CHECKED BY SYS DELAY 35000000 * 35100000 PRISYSDT EQU X'D8' . POST SYSTEM DELAY QCB TO TIME 35200000 * DELAY 35300000 * USED BY SYSTEM DELAY 35400000 * 35500000 PRILCBDL EQU X'20' . TO INDICATE AN LCB ON 35600000 * SYSTEM DELAY QUEUE 35700000 * SET BY SYSTEM DELAY, IEDQHI 35800000 * CHECKED BY CHECKPOINT 35900000 * 35920000 PRIPOSTS EQU X'FE' POST TO SYNC QUEUE @Y17XAXA 35940000 * 35960000 PRIPOSTA EQU X'FF' POST TO ASYNC QUEUE @Y17XAXA 35980000 SPACE 2 36000000 MEND , */ 36100000 * %PLSPRI: ; 36200000 */* TPRIOR DSECT UPDATED 6/7/74 Y30X8XE*/ 36300000 */* */ 36400000 */* ERB */ 36500000 *DCL PRIINTRQ BIT(8) CONSTANT('E4'X); /* TO REQUEST FULL BUFFERS */ 36700000 * /* FROM DISK I/O */ 36800000 * /* TO REQUEST EMPTY BUFFERS */ 36900000 * /* FROM BUFFER REQUEST QCB */ 37000000 * /* USED BY SEND SCHEDULER */ 37100000 * /* USED BY RECEIVE SCHEDULER */ 37200000 * /* USED BY GET SCHEDULER */ 37300000 * /* USED BY PUT SCHEDULER */ 37400000 */* */ 37500000 *DCL PRIFSPCI BIT(8) CONSTANT('E8'X); /* TO REQUEST EMPTY BUFFERS */ 37700000 * /* FROM BUFFER REQUEST QCB */ 37800000 * /* TO REQUEST FULL BUFFERS */ 37900000 * /* FROM DISK I/O */ 38000000 * /* USED BY PCI APPENDAGE */ 38100000 * /* FOR FIRST REQUEST */ 38200000 */* */ 38220000 *DCL PRITOTCL BIT(8) CONSTANT('E8'X); /* POST OF CLEANUP ELEM TO */ 38240000 * /* TOTE (TEST C-UP) @Y17XAXF */ 38260000 */* */ 38300000 *DCL PRISBPCI BIT(8) CONSTANT('E0'X); /* SAME AS ABOVE EXCEPT ALL */ 38500000 * /* BUT FIRST TIME */ 38600000 */* */ 38700000 *DCL PRIDSKRQ BIT(8) CONSTANT('EC'X); /* TO REQUEST AN EMPTY UNIT */ 38900000 * /* BY CHAINING THE ERB ON THE*/ 39000000 * /* BUFFER RETURN QCB */ 39100000 * /* USED BY CPB CLEANUP */ 39200000 */* */ 39300000 *DCL PRISBT BIT(8) CONSTANT('EC'X); /* PRIORITY FOR ELEMENT POST */ 39350000 * /* TO IEDQSBT @YM07020*/ 39400000 */* */ 39450000 *DCL PRIACTIV BIT(8) CONSTANT('E4'X); /* IN POSTING ERB TO ACTIVATE*/ 39500000 * /* QCB TO REQUEST BUILDING */ 39600000 * /* OF AN INITIAL CONTACT PGM */ 39700000 * /* AND EXCP FOR LINE */ 39800000 * /* USED BY CPB CLEANUP */ 39900000 * /* USED BY BUFFER REQUEST */ 40000000 * /* USED BY BUFFER RETURN */ 40100000 */* */ 40200000 *DCL PRIDKEOB BIT(8) CONSTANT('E0'X); /* TO ENABLE EOB TO RECALL */ 40400000 * /* TO POST TO EOB CHECK AFTER*/ 40500000 * /* EOB ERROR */ 40600000 * /* USED BY CPB CLEANUP */ 40700000 * /* USED BY CPB INITIALIZATION*/ 40800000 * /* MUST BE LOWER PRIORITY */ 40900000 * /* THAN PRIMHBFR */ 41000000 */* */ 41100000 *DCL PRIRECAL BIT(8) CONSTANT('E0'X); /* TO REQUEST FROM DISK I/O */ 41300000 * /* A COPY OF HEADER USED BY */ 41400000 * /* ALL ROUTINES REQUESTING */ 41500000 * /* RECALLED HEADERS */ 41600000 */* */ 41700000 *DCL PRIRCQCB BIT(8) CONSTANT('E0'X); /* TO RETURN THE ERB TO ANY */ 41900000 * /* ROUTINE SPECIFIED IN */ 42000000 * /* LCBRCQCB */ 42100000 * /* USED BY MH TO RETURN TO */ 42200000 * /* BUFFER DISPOSITION */ 42300000 * /* USED BY CPB CLEANUP AFTER */ 42400000 * /* RECALL */ 42500000 */* */ 42600000 *DCL PRIAPERB BIT(8) CONSTANT('D0'X); /* TO REQUEST FULL BUFFERS */ 42800000 * /* USED BY APPLICATION PROG */ 42900000 */* */ 43000000 */* BUFFER */ 43100000 *DCL PRIEDISP BIT(8) CONSTANT('E0'X); /* TO POST ERB TO ITSELF ON */ 43300000 * /* SEND OPERATIONS WHEN AN */ 43400000 * /* ERROR OCCURS BEFORE EOM */ 43500000 * /* USED BY DISPOSITION */ 43600000 * /* MUST BE LOWER THAN */ 43700000 * /* PRIMHBFR */ 43800000 */* */ 43900000 *DCL PRIMHBFR BIT(8) CONSTANT('E4'X); /* TO HAVE A BUFFER PROCESSED*/ 44100000 * /* BY MH */ 44200000 * /* USED BY PCI APPENDAGE */ 44300000 * /* USED BY CPB CLEANUP */ 44400000 * /* USED BY LINE END APPENDAGE*/ 44500000 * /* AFTER POSITIVE RESPONSE TO*/ 44600000 * /* ADDRESSING */ 44700000 * /* USED BY DEBLOCK AFTER */ 44800000 * /* DATA RECEIVED */ 44900000 */* */ 45000000 *DCL PRIERBFR BIT(8) CONSTANT('E3'X); /* TO HAVE AN ERROR BFRX03039*/ 45200000 * /* PROCESSED BY MH X03039*/ 45300000 */* X03039*/ 45500000 *DCL PRIUREQ BIT(8) CONSTANT('E8'X); /* TO REQUEST AN EMPTY UNIT */ 45700000 * /* FOR INSERT FUNCTION IN MH */ 45800000 * /* USED BY UNIT REQUEST */ 45900000 * /* MUST BE HIGHER THAN */ 46000000 * /* PRIMHBFR */ 46100000 */* */ 46200000 *DCL PRIAPBFR BIT(8) CONSTANT('DC'X); /* TO POST A BUFFER TO AN */ 46400000 * /* APPLICATION PROGRAM */ 46500000 * /* USED BY MBH */ 46600000 */* */ 46700000 *DCL PRILNEND BIT(8) CONSTANT('E4'X); /* TO HAVE DISPOSITION */ 46900000 * /* FINISH PROCESSING MACROS */ 47000000 * /* AND CLEANUP THE LINE */ 47100000 * /* USED BY LINE END */ 47200000 * /* APPENDAGE */ 47300000 * /* LAST BUFFER ONLY */ 47400000 */* */ 47500000 *DCL PRIRCBFR BIT(8) CONSTANT('E0'X); /* TO RETURN DUPLICATE */ 47700000 * /* HEADER TO A SPECIFIED */ 47800000 * /* ROUTINE */ 47900000 * /* USED BY CPB CLEANUP */ 48000000 * /* USED BY DESTINATION */ 48100000 * /* SCHEDULER */ 48200000 */* */ 48300000 *DCL PRIBFRTB BIT(8) CONSTANT('E0'X); /* TO RETURN A BUFFER OR A */ 48500000 * /* UNIT TO BUFFER POOL */ 48600000 * /* USED BY PCI APPENDAGE */ 48700000 * /* USED BY CPB CLEANUP */ 48800000 * /* USED BY CPB INITIALIZATION*/ 48900000 * /* USED BY DESTINATION SCH */ 49000000 * /* USED BY MH */ 49100000 */* */ 49200000 *DCL PRIDSKBF BIT(8) CONSTANT('EC'X); /* TO GIVE A UNIT TO CPB */ 49250000 * /* CLEANUP */ 49500000 * /* USED BY BUFFER RETURN */ 49600000 */* */ 49700000 *DCL PRICOPY BIT(8) CONSTANT('E0'X); /* TO HAVE A MESSAGE COPIED */ 49900000 * /* TO A DIFFERENT DATA SET */ 50000000 * /* USED BY DESTINATION SCH */ 50100000 *DCL PRIDESTQ BIT(8) CONSTANT('E4'X); /* TO PUT A BUFFER ON A */ 50120000 * /* MESSAGE QUEUE */ 50140000 * /* USED BY MH */ 50160000 * /* USED BY DESTINATION SCHED */ 50180000 */* */ 50800000 *DCL PRIDKWRT BIT(8) CONSTANT('E4'X); /* TO HAVE A FULL BUFFER */ 51000000 * /* WRITTEN ON DISK */ 51100000 * /* USED BY DESTINATION SCH */ 51200000 */* */ 51300000 *DCL PRIDKSRV BIT(8) CONSTANT('EC'X); /* TO HAVE A MESSAGE FLAGGED */ 51500000 * /* SERVICED */ 51600000 * /* USED BY BUFFER CLEANUP */ 51700000 */* */ 51800000 *DCL PRIDKCNC BIT(8) CONSTANT('E0'X); /* TO HAVE A MESSAGE CANCELED*/ 52000000 * /* IN THE MESSAGE QUEUE */ 52100000 * /* USED BY CANCEL MESSAGE */ 52200000 */* */ 52300000 *DCL PRIDKINT BIT(8) CONSTANT('E0'X); /* TO HAVE A MESSAGE INTER- */ 52500000 * /* CEPTED-USED BY INTERCEPT */ 52600000 */* */ 52700000 *DCL PRICKPLN BIT(8) CONSTANT('EC'X); /* TO POST THE LCB TO */ 52900000 * /* CHECKPOINT REQUESTING A */ 53000000 * /* CHECKPOINT */ 53100000 * /* USED BY BUFFER DISPOSITION*/ 53200000 */* */ 53300000 *DCL PRIMULTR BIT(8) CONSTANT('E0'X); /* TO POST THE LCB TO THE */ 53500000 * /* MULTIPLE ROUTE ROUTINE */ 53600000 * /* TO CONTINUE */ 53700000 * /* USED BY BUFFER DISPOSITION*/ 53800000 * /* USED BY TLIST SUBTASK */ 53900000 */* */ 54000000 *DCL PRIOPCTL BIT(8) CONSTANT('DC'X); /* TO POST AN OPERATOR */ 54200000 * /* CONTROL BUFFER */ 54300000 * /* USED BY MH */ 54400000 * /* USED TO POST FROM @Y17XAXF*/ 54430000 * /* OPCTL TO NSL @Y17XAXF*/ 54460000 */* */ 54500000 *DCL PRIDSPLB BIT(8) CONSTANT('DF'X); /* TO POST LAST BUFFER OF */ 54600000 * /* MESSAGE TO DISPOSITION */ 54800000 * /* USED BY MH */ 54900000 * /* USED BY OPN/CLSDST X03039*/ 55000000 * /* MUST BE LOWER THAN ANY PCI*/ 55100000 * /* POST OF AN ERB */ 55200000 */* */ 55300000 *DCL PRIPIUCP BIT(8) CONSTANT('00'X); /* PACKED RU TO IEDPMD USED FOR 55500000 * IDENT PUTPOSES ONLY - WILL 55502000 * NEVER BE POSTED @Y17XAXF*/ 55504000 *DCL PRILUSR BIT(8) CONSTANT('DA'X); /* DEACTIVATE TO LUS REQUEST 55506000 * FOR TERMINATION OF SESSION 55508000 * @Y17XAXF*/ 55510000 *DCL PRIONLT BIT(8) CONSTANT('DC'X); /* TO REQUEST ON LINE TEST */ 55512000 * /* USED BY MH */ 55600000 */* */ 55700000 * DCL PRIAIPL BIT(8) CONSTANT('DE'X); /* TO INDICAT TO IPL @Y17XAXF*/ 55800000 * /* /DUMP THAT AN LCB @Y17XAXF*/ 55900000 * /* HAS BEEN POSTED TO@Y17XAXF*/ 56000000 * /* REQUEST IPL AND/OR@Y17XAXF*/ 56100000 * /* ACTIVATE @Y17XAXF*/ 56200000 * 56300000 * DCL PRIFIDIN BIT(8) CONSTANT('E4'X); /* FID POST PRIORITY @Y17XAXF*/ 56400000 * /* FROM PATH CONTROL @Y17XAXF*/ 56500000 * /* INBOUND @Y17XAXF*/ 56600000 * 56700000 * DCL PRISCPIN BIT(8) CONSTANT('E5'X); /* SSCP INPUT-MUST BE@Y17XAXF*/ 56800000 * /* HIGHER THAN FID @Y17XAXF*/ 56900000 * /* POST PRIORITY @Y17XAXF*/ 57000000 * 57100000 * DCL PRIFLDH BIT(8) CONSTANT('E4'X); /* BTU PRIORITY TO @Y17XAXF*/ 57200000 * /* FLDH QCB @Y17XAXF*/ 57300000 * 57400000 * DCL PRICHKPT BIT(8) CONSTANT('EC'X); /* PRIORITY USED BY @Y17XAXF*/ 57500000 * /* CKECKPOINT TO @Y17XAXF*/ 57600000 * /* POST AVTCCELE @Y17XAXF*/ 57700000 * /* @Y17XAXF*/ 57800000 * DCL PRIHIFLG BIT(8) CONSTANT('E9'X); /* HIGHEST PRIORITY @Y17XAXF*/ 57900000 * /* THAT HAS @Y17XAXF*/ 58000000 * /* ASSOCIATED FLAG @Y17XAXF*/ 58100000 * /* BYTE @Y17XAXF*/ 58200000 * /* @Y17XAXF*/ 58300000 * DCL PRIPLCB BIT(8) CONSTANT('E8'X); /* PLCB/LCB POST TO @Y17XAXF*/ 58400000 * /* VE,Z1,V1 @Y17XAXF*/ 58500000 * /* @Y17XAXF*/ 58600000 * DCL PRIFRCDC BIT(8) CONSTANT('C4'X); /* FORCE DEACTIVATE REQUEST 58700000 * OPCE IN 3705 CLEANUP 58705000 * @Y17XAXF*/ 58710000 * DCL PRISSBUF BIT(8) CONSTANT('E2'X); /* PRIORITY THAT @PI03742*/ 58715000 * /* BUFFERS ARE @Y17XAXF*/ 58800000 * /* TPOSTED TO SSCP @Y17XAXF*/ 58900000 * /* @Y17XAXF*/ 59000000 * DCL PRISIBRQ BIT(8) CONSTANT('E5'X); /* GET AND FREE SIB @Y17XAXF*/ 59100000 * /* REQUEST ELEMENTS @Y17XAXF*/ 59200000 * /* @Y17XAXF*/ 59300000 * DCL PRISSPIU BIT(8) CONSTANT('E5'X); /* PRIORITY THAT @Y17XAXF*/ 59400000 * /* PIU'S ARE TPOSTED@Y17XAXF*/ 59500000 * /* TO SSCP @Y17XAXF*/ 59600000 * /* @Y17XAXF*/ 59700000 * DCL PRIMH01 BIT(8) CONSTANT('E4'X); /* PRIORITY POST FROM@Y17XAXF*/ 59800000 * /* MH TO 01 @Y17XAXF*/ 59900000 * /* @Y17XAXF*/ 60000000 * DCL PRILNSCL BIT(8) CONSTANT('E3'X); /* USED BY IEDUNBND TO POST 60100000 * PLCB TO IEDSCLU TO CONTINUE 60110000 * CLEAR UNBIND PROCESSING - 60120000 * MUST BE LOWER THAN PRIDESTQ 60130000 * @Y17XAXF*/ 60140000 * 60150000 * DCL PRIRESPB BIT(8) CONSTANT('EA'X); /* RESPONSE BUFFER @OX21052*/ 60160082 * /* TO 02 @OX21052*/ 60210082 * /* @OX21052*/ 60260082 * DCL PRIOLD1 BIT(8) CONSTANT('E0'X); /* OLD PRIORITY POST @Y17XAXF*/ 60400000 * /* TO VA @Y17XAXF*/ 60500000 * /* @Y17XAXF*/ 60600000 * DCL PRIMEDFG BIT(8) CONSTANT('DF'X); /* MEDIUM PRIORITY @Y17XAXF*/ 60700000 * /* THAT HAS @Y17XAXF*/ 60800000 * /* ASSOCIATED FLAG @Y17XAXF*/ 60900000 * /* BYTE @Y17XAXF*/ 61000000 * /* @Y17XAXF*/ 61100000 * DCL PRITOTE0 BIT(8) CONSTANT('DC'X); /* OLD PRIORITY POST @Y17XAXF*/ 61200000 * /* FROM TOTE TO 00 @Y17XAXF*/ 61300000 * /* @Y17XAXF*/ 61400000 * DCL PRIPCOUT BIT(8) CONSTANT('E4'X); /* POST TO PATH CTL @Y17XAXF*/ 61500000 * /* OUTBOUND @Y17XAXF*/ 61600000 * /* @Y17XAXF*/ 61700000 * DCL PRIASYNC BIT(8) CONSTANT('E6'X); /* TO POST AN ASYNCH @Y17XAXF*/ 61800000 * /* REQUEST BUFFER @Y17XAXF*/ 61900000 * /* TO IEDNKA @Y17XAXF*/ 62000000 * /* PRE-SNA - FOR @Y17XAXF*/ 62100000 * /* RESET ERROR LOCK @Y17XAXF*/ 62200000 * /* SNA - FOR NEGATVE @Y17XAXF*/ 62300000 * /* RESPONSE TO RTR @Y17XAXF*/ 62400000 * /* @Y17XAXF*/ 62500000 * DCL PRIOUTQ BIT(8) CONSTANT('E0'X); /* TO TPOST PIUS TO @Y17XAXF*/ 62600000 * /* THE 3705 OUTPUT @Y17XAXF*/ 62700000 * /* QUEUE @Y17XAXF*/ 62800000 * /* @Y17XAXF*/ 62900000 * DCL PRIOUTBD BIT(8) CONSTANT('E4'X); /* NORMAL POST TO @Y17XAXF*/ 62920000 * /* OUTBOUND PRO- @Y17XAXF*/ 62940000 * /* CESSING @Y17XAXF*/ 62960000 * /* @Y17XAXF*/ 62980000 * DCL PRILUSQB BIT(8) CONSTANT('E2'X); /* TPOST A QCB TO @Y17XAXF*/ 62984000 * /* LUS TO REQUEST @Y17XAXF*/ 62988000 * /* AN LU-LU SESSION @Y17XAXF*/ 62992000 * /* @Y17XAXF*/ 62996000 *DCL PRILOFLG BIT(8) CONSTANT('D0'X); /* PRIORITY POST OF @Y17XAXF*/ 63100000 * /* A/D REDRIVE @Y17XAXF*/ 63110000 * /* ELEMENT @Y17XAXF*/ 63120000 * /* @Y17XAXF*/ 63130000 *DCL PRICULCB BIT(8) CONSTANT('C0'X); /* CLEANUP SYNC AND ROUTING 63130100 * @Y17XAXF*/ 63131100 *DCL PRICUREQ BIT(8) CONSTANT('C4'X); /* CLEANUP REQUEST @Y17XAXF*/ 63132100 * /* ELEMENT @Y17XAXF*/ 63133100 * /* @Y17XAXF*/ 63134100 *DCL PRIPRIME BIT(8) CONSTANT('DD'X); /* POST TO NSL FOR @Y17XAXF*/ 63140000 * /* PRIMING @Y17XAXF*/ 63150000 * /* @Y17XAXF*/ 63160000 *DCL PRILAEND BIT(8) CONSTANT('E4'X); /* TO START ERROR PROCESSING */ 63170000 * /* USED BY LINE END APPENDAGE*/ 63200000 */* */ 63300000 *DCL PRIMHUNT BIT(8) CONSTANT('E8'X); /* TO POST A UNIT TO MH */ 63500000 * /* USED BY IEDQBW */ 63600000 * /* MUST BE GREATER THAN */ 63700000 * /* PRIMHBFR */ 63800000 */* */ 63900000 *DCL PRIRELSE BIT(8) CONSTANT('E0'X); /* TO RELEASE SUBTASK FROM */ 64000000 * /* TIME DELAY OR OP. CONTROL */ 64200000 * /* USED BY HOLD */ 64300000 * /* USED BY OPERATOR CONTROL */ 64400000 */* */ 64500000 *DCL PRIFEFO BIT(8) CONSTANT('EE'X); /* TO UPDATE DISK FEFO */ 64700000 * /* POINTER */ 64800000 * /* CHECKED BY IEDQFA */ 64900000 * /* SET BY IGG019RP,REUS/COPY */ 65000000 */* */ 65100000 */* */ 65200000 */* OTHER */ 65300000 */* */ 65400000 *DCL PRIRLCB BIT(8) CONSTANT('EB'X); /* USED BY IEDQBD TO S22026*/ 65450000 * /* RETURN LCB S22026*/ 65700000 */* */ 65730000 *DCL PRILCB BIT(8) CONSTANT('E7'X); /* TO POST LCB FOR CLEANUP */ 65760000 * /* USED BY LINEEND S22026*/ 66100000 */* */ 66200000 *DCL PRICPBCL BIT(8) CONSTANT('E8'X); /* TO POST CPB CLEANUP */ 66400000 * /* COMPLETE */ 66500000 * /* USED BY DISK END APPENAGE */ 66600000 */* */ 66700000 *DCL PRICKPT BIT(8) CONSTANT('EC'X); /* TO REQUEST COMPLETE */ 66900000 * /* CHECKPOINT */ 67000000 * /* USED BY REUS */ 67100000 * /* USED BY MCPCLOSE */ 67200000 * /* USED BY TIME DELAY */ 67300000 */* */ 67400000 *DCL PRILNFRE BIT(8) CONSTANT('E0'X); /* TO FREE A LINE */ 67600000 * /* USED BY DISPOSITION */ 67700000 * /* USED BY SEND SCHEDULER */ 67800000 * /* USED BY PUT SCHEDULER */ 67900000 * /* (UNLOCK) */ 68000000 * /* MUST GET TO DESTINATION */ 68100000 * /* SCHEDULER BEFORE LINE */ 68200000 * /* IS FREE */ 68300000 */* */ 68400000 *DCL PRILCBRQ BIT(8) CONSTANT('E4'X); /* UNUSED @Y17XAXF*/ 68600000 */* X03039*/ 69100000 *DCL PRIOPDST BIT(8) CONSTANT('E4'X); /* UNUSED @Y17XAXF*/ 69300000 */* X03039*/ 69700000 *DCL PRIOPCMP BIT(8) CONSTANT('E5'X); /* UNUSED @Y17XAXF*/ 69900000 * /* X03039*/ 70200000 *DCL PRICLDST BIT(8) CONSTANT('E4'X); /* UNUSED @Y17XAXF*/ 70400000 */* X03039*/ 70800000 *DCL PRIRESUM BIT(8) CONSTANT('E5'X); /* TO POST RESPONSE @Y17XAXF*/ 70900000 * /* FROM DEBLOCK @Y17XAXF*/ 71000000 * /* BACK TO NIR GEN @Y17XAXF*/ 71100000 * /* MODULES TO REQ @Y17XAXF*/ 71200000 * /* RESUMPTION OF AN @Y17XAXF*/ 71300000 * /* OPERATION BEGUN @Y17XAXF*/ 71400000 * /* BY NIR GENERATOR @Y17XAXF*/ 71500000 * /* MODULES @Y17XAXF*/ 71600000 */* X03039*/ 71700000 *DCL PRISTOPD BIT(8) CONSTANT('E8'X); /* USED TO RETURN AN X03039*/ 71900000 * /* ELEMENT TO NSL X03039*/ 72000000 */* X03039*/ 72100000 *DCL PRIATTNH BIT(8) CONSTANT('E6'X); /* UNUSED @Y17XAXF*/ 72300000 */* X03039*/ 72600000 *DCL PRICLSDN BIT(8) CONSTANT('10'X); /* TO REQUEST CLOSEDOWN */ 72800000 * /* USED BY ----- */ 72900000 * /* MUST BE LOWEST PRIORITY */ 73000000 */* */ 73100000 *DCL PRIAPCKP BIT(8) CONSTANT('EC'X); /* TO REQUEST INCIDENT */ 73300000 * /* CHECKPOINT */ 73400000 * /* USED BY APPLICATION */ 73500000 * /* PROGRAM */ 73600000 */* */ 73700000 *DCL PRIOPCKP BIT(8) CONSTANT('EC'X); /* TO REQUEST INCIDENT */ 73900000 * /* CHECKPOINT */ 74000000 * /* USED BY OPERATOR CONTROL */ 74100000 */* */ 74200000 *DCL PRILNCL BIT(8) CONSTANT('EC'X); /* TO CLEAN UP BUFFERS AND TO*/ 74400000 * /* FREE LINE */ 74500000 * /* USED BY LINE END TO POST */ 74600000 * /* LINE TO DISPOSITION */ 74700000 * /* USED BY IN END */ 74800000 * /* USED BY OUT END */ 74900000 */* */ 75000000 *DCL PRILCBAT BIT(8) CONSTANT('E9'X); /* TO POST LCB TO STOPLINE */ 75050000 * /* USED BY LINENED S22025*/ 75300000 */* */ 75400000 *DCL PRILOGLB BIT(8) CONSTANT('E0'X); /* TO POST THE LOG LCB TO */ 75600000 * /* ITSELF */ 75700000 * /* USED BY LOG SCHEDULER */ 75800000 */* */ 75900000 *DCL PRISSOLT BIT(8) CONSTANT('DC'X); /* POSTED TO OPERATOR CONTROL*/ 76100000 * /* TO REQUEST START LINE / */ 76200000 * /* STOPLINE */ 76300000 * /* USED BY ON LINE TEST */ 76400000 */* */ 76500000 *DCL PRITRACE BIT(8) CONSTANT('F0'X); /* DSPTRACE PRIORITY IGCM610D 76700000 * POSTS UNIT TO ALTER 76710000 * IGG019RO TO START OR STOP 76720000 * TRACE(S) AFTER MODIFY 76730000 * TCAM, SUBT= COMMAND 76740000 * @Y17XAXF*/ 76750000 *DCL PRITIME BIT(8) CONSTANT('F0'X); /* TO RETURN ELE FROM TIME Q */ 76760000 * /* USED BY TIME DELAY */ 76800000 */* */ 76900000 *DCL PRIREUSX BIT(8) CONSTANT('EE'X); /* TO ACTIVATE REUS @OS76497*/ 77100000 * /* ASSEM IN PLACE BY IGG019RP*/ 77200000 */* */ 77300000 *DCL PRIATTN BIT(8) CONSTANT('DC'X); /* POST ATTENTION ELEMENT */ 77500000 * /* USED BY ATTENTION HANDLER */ 77600000 */* */ 77700000 *DCL PRIATN05 BIT(8) CONSTANT('DD'X); /* 3705 ATTENTION ELEMENT 77750000 * PRIORITY @YM08074*/ 77800000 */* */ 77850000 *DCL PRISYSDL BIT(8) CONSTANT('DC'X); /* TO INITIATE SYSTEM DELAY */ 77900000 * /* USED BY OPERATOR CONTROL */ 78000000 * /* CHECKED BY SYS DELAY */ 78100000 */* */ 78200000 *DCL PRISYSDT BIT(8) CONSTANT('D8'X); /* POST SYSTEM DELAY QCB */ 78400000 * /* TO TIME DELAY */ 78500000 * /* USED BY SYSTEM DELAY */ 78600000 */* */ 78700000 *DCL PRILCBDL BIT(8) CONSTANT('20'X); /* TO INDICATE AN LCB ON */ 78900000 * /* SYSTEM DELAY QUEUE */ 79000000 * /* SET BY SYSTEM DELAY,IEDQHI*/ 79100000 * /* CHECKED BY CHECKPOINT */ 79200000 */* */ 79300000 *DCL PRIPOSTS BIT(8) CONSTANT('FE'X); /* POST SYNC QUEUE */ 82300000 */* */ 85300000 *DCL PRIPOSTA BIT(8) CONSTANT('FF'X); /* POST ASYNC QUEUE */ 88300000 */* */ 91300000