*%GO TO BSLDISP; /* X03039*/ 00200010 */* X03039 00400010 MACRO 00600010 TDISPD &CSECT=NO @Y17XAXA 00800010 .*A-000000-999999 @X31X8X0 01000010 .*CONVERTED TO BILINGUAL ON 5-23-73 X03039 01200010 .*A000001,014000,938000 X03039 01400010 .*A937600 S22027 01600010 .*A937300 S22026 01800010 .*C028000,042000,049000,056000 @Y17XAXF 02000010 .*C091000,182000,280000,378000,462000 @Y17XAXF 02200010 .*C497000,504000,553000,651000,749000,833000 @Y17XAXF 02400010 .*C938900,939800,940100,940400 @Y17XAXF 02600010 .*C941900,942500,946100,946700 @Y17XAXF 02800010 .*C950600,951200,955400,956000,882000-937600,979400-991100 @Y17XAXF 03000010 .*C959600,960200,963800,964400,964700 @Y17XAXF 03200010 .*C968300,968900,969200,969500,969800 @Y17XAXF 03400010 .*C972800,973400,973700,977000,977600,977900 @Y17XAXF 03600010 .*D483000,960500 @Y17XAXF 03800010 .*A854000,977900 @Y17XAXF 04000010 .*A040000,042000,044000,046000,068000,090000,094000,096000 @Y17XAXA 04020010 .*A118000,122000,128000,150000,158000,174000,194000,200000 @Y17XAXA 04040010 .*A232000,234000,256000,258000,280000,327000,594000 @Y17XAXA 04060010 AIF ('&CSECT' EQ 'NO').DSECT @Y17XAXA 04080010 AIF ('&CSECT' EQ 'YES').SAVEC @Y17XAXA 04100010 MNOTE 12,'IHB300 CSECT OPTION INVALID ' @Y17XAXA 04120010 AGO .EXIT @Y17XAXA 04140010 .DSECT ANOP @Y17XAXA 04160010 IEDQDISP DSECT 04200010 DSPSAVE DS F @Y17XAXF 04400010 AGO .SAVEE @Y17XAXA 04420010 .SAVEC ANOP @Y17XAXA 04440010 USING IGG019RO,RENTRY @Y17XAXA 04460010 DSPSAVE B SAVE @Y17XAXA 04480010 DROP RENTRY @Y17XAXA 04500010 USING IGG019RO,RBASE @Y17XAXA 04520010 .SAVEE ANOP @Y17XAXA 04540010 * THIS ROUTINE IS THE FIRST ENTRY ROUTINE THAT GETS @Y17XAXA 04560010 * CONTROL INITIALLY . @Y17XAXA 04580010 SPACE 1 @Y17XAXA 04600010 AIF ('&CSECT' EQ 'YES').DISPC @Y17XAXA 04620010 DSPDISP DS F @Y17XAXA 04640010 AGO .DISPE @Y17XAXA 04660010 .DISPC ANOP @Y17XAXA 04680010 DSPDISP B DISPATCH @Y17XAXA 04700010 .DISPE ANOP @Y17XAXA 04720010 * THIS ROUTINE DISPATCHES TCAM SUBTASKS.IF NO TCAM @Y17XAXF 04800010 * SUBTASKS ARE READY TO RUN,IT WILL PLACE THE TCAM @Y17XAXF 05000010 * CONTROL PROGRAM INTO A SYSTEM WAIT. @Y17XAXF 05200010 SPACE 1 05400010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 05600010 * INITIALIZED: @Y17XAXA 05800010 * 06000010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 06200010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 06400010 SPACE 1 06800010 AIF ('&CSECT' EQ 'YES').LISTC @Y17XAXA 06820010 DSPLIST DS F @Y17XAXA 06840010 AGO .LISTE @Y17XAXA 06860010 .LISTC ANOP @Y17XAXA 06880010 DSPLIST B LIST @Y17XAXA 06900010 .LISTE ANOP @Y17XAXA 06920010 * THIS ROUTINE WILL TPOST ALL ITEMS IN A LIST.THE LAST @Y17XAXA 07000010 * ENTRY MUST HAVE ITS HI-ORDER BIT TURNED ON. @Y17XAXA 07200010 SPACE 1 07400010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 07600010 * REGISTERS INITIALIZED: @Y17XAXA 07800010 * 08000010 * 1 CONTAINS ADDRESS OF FIRST ENTRY IN A LIST OF 08200010 * ITEMS TO BE PLACED ON READY QUEUE BY 08400010 * PRIORITY 08600010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 08800010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 09000010 * 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA 09100010 SPACE 1 09400010 AIF ('&CSECT' EQ 'YES').CHAINC @Y17XAXA 09420010 DSPCHAIN DS F @Y17XAXA 09440010 AGO .CHAINE @Y17XAXA 09460010 .CHAINC ANOP @Y17XAXA 09480010 DSPCHAIN B CHAIN @Y17XAXA 09500010 .CHAINE ANOP @Y17XAXA 09520010 * THIS ROUTINE WILL TPOST ALL ITEMS IN A PASSED CHAIN @Y17XAXA 09600010 * OF ITEMS @Y17XAXA 09660010 SPACE 1 09720010 * THE LAST ITEM IN THE CHAIN MUST HAVE A LINK FIELD 09800010 * CONTAINING X'000000'. 10000010 SPACE 1 10200010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 10400010 * REGISTERS INITIALIZED: @Y17XAXA 10600010 * 10800010 * 1 CONTAINS ADDRESS OF FIRST ITEM IN A CHAIN OF 11000010 * ITEMS TO BE PLACED ON READY QUEUE BY 11200010 * PRIORITY 11400010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 11600010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 11800010 * 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA 11900010 SPACE 1 12200010 AIF ('&CSECT' EQ 'YES').WAITC @Y17XAXA 12220010 DSPWAIT DS F @Y17XAXA 12240010 AGO .WAITE @Y17XAXA 12260010 .WAITC ANOP @Y17XAXA 12280010 DSPWAIT B QWAIT @Y17XAXA 12300010 .WAITE ANOP @Y17XAXA 12320010 * THIS ROUTINE WILL OBTAIN AN ELEMENT,IF AVAILABLE,FROM @Y17XAXA 12400010 * A QCB AND PASS IT BACK TO THE SUBTASK.IF NOT @Y17XAXA 12500010 * AVAILABLE IT WILL QUEUE THE STCB TO WAIT FOR AN @Y17XAXA 12600010 * ELEMENT @Y17XAXA 12700010 SPACE 1 13000010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 13200010 * REGISTERS INITIALIZED: @Y17XAXA 13400010 * 13600010 * 3 CONTAINS ADDRESS OF QCB FROM WHICH ELEMENT IS 13800010 * DESIRED 14000010 * 7 CONTAINS ADDRESS OF QCB NOW CONTAINING THIS STCB 14200010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 14400010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 14600010 SPACE 1 15000010 AIF ('&CSECT' EQ 'YES').BYPASC @Y17XAXA 15020010 DSPBYPAS DS F @Y17XAXA 15040010 AGO .BYPASE @Y17XAXA 15060010 .BYPASC ANOP @Y17XAXA 15080010 DSPBYPAS B BYPASS @Y17XAXA 15100010 .BYPASE ANOP @Y17XAXA 15120010 * ENTRY AT THIS POINT WILL ACTIVATE THE STCB POINTED @Y17XAXA 15200010 * TO BY RSTCB IMMEDIATELY. @Y17XAXA 15400010 SPACE 1 15600010 * ENTRY HERE SHOULD HAVE THE FOLLOWING REGISTERS @Y17XAXA 15800010 * INITILIZED @Y17XAXA 15900010 * 16000010 * 1 CONTAINS ADDRESS OF ELEMENT TO BE PASSED TO SUBTASK 16200010 * 3 CONTAINS ADDRESS OF STCB TO BE ACTIVATED 16400010 * 7 CONTAINS ADDRESS OF QCB CONTAINING STCB 16600010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 16800010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 17000010 SPACE 1 17400010 AIF ('&CSECT' EQ 'YES').POSTC @Y17XAXA 17420010 DSPPOST DS F @Y17XAXA 17440010 DSPPOSTR DS F @Y17XAXA 17460010 AGO .POSTE @Y17XAXA 17480010 .POSTC ANOP @Y17XAXA 17500010 DSPPOST B POST @Y17XAXA 17520010 DSPPOSTR B POSTR @Y17XAXA 17540010 .POSTE ANOP @Y17XAXA 17560010 * THIS ROUTINE WILL TPOST AN ELEMENT (PLACE IT ON READY @Y17XAXF 17600010 * QUEUE BY PRIORITY). @Y17XAXF 17800010 SPACE 1 18000010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING 18200010 * REGISTERS INITIALIZED: 18400010 * 18600010 * 1 CONTAINS ADDRESS OF ITEM TO BE PLACED ON READY 18800010 * QUEUE BY PRIORITY 19000010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 19200010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 19400010 * 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA 19500010 SPACE 1 20000010 AIF ('&CSECT' EQ 'YES').TSTQC @Y17XAXA 20010010 DSPTSTQ DS F @Y17XAXA 20020010 DSPTSTQR DS F @Y17XAXA 20030010 DSPUNAV DS F @Y17XAXA 20040010 DSPUNAVR DS F @Y17XAXA 20050010 AGO .TSTQE @Y17XAXA 20060010 .TSTQC ANOP @Y17XAXA 20070010 DSPTSTQ B TESTQ @Y17XAXA 20080010 DSPTSTQR B TESTQR @Y17XAXA 20090010 DSPUNAV LA RETURN,DISPATCH @Y17XAXA 20100010 DSPUNAVR B UNAVAILR @Y17XAXA 20110010 .TSTQE ANOP @Y17XAXA 20120010 * THIS ROUTINE WILL MOVE AN STCB FROM ONE QCB TO ANOTHER@Y17XAXA 20200010 * IF IT IS NOT ALREADY THERE. @Y17XAXA 20400010 SPACE 1 20600010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 20800010 * REGISTERS INITIALIZED: @Y17XAXA 21000010 * 21200010 * 3 CONTAINS ADDRESS OF QCB FROM WHICH ELEMENT IS 21400010 * DESIRED 21600010 * 7 CONTAINS ADDRESS OF QCB NOW CONTAINING THE STCB 21800010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 22000010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 22200010 SPACE 1 23200010 AIF ('&CSECT' EQ 'YES').PRIOC @Y17XAXA 23220010 DSPPRIO DS F @Y17XAXA 23240010 DSPPRIOR DS F @Y17XAXA 23260010 AGO .PRIOE @Y17XAXA 23280010 .PRIOC ANOP @Y17XAXA 23300010 DSPPRIO LA RETURN,DISPATCH @Y17XAXA 23320010 DSPPRIOR B PRIORITR @Y17XAXA 23340010 .PRIOE ANOP @Y17XAXA 23360010 * THIS ROUTINE WILL INSERT AN ELEMENT INTO A CHAIN BY @Y17XAXA 23400010 * PRIORITY @Y17XAXA 23500010 SPACE 1 23600010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 23800010 * REGISTERS INITIALIZED: @Y17XAXA 24000010 * 24200010 * 1 CONTAINS ADDRESS OF ITEM TO BE PLACED IN CHAIN 24400010 * 7 CONTAINS ADDRESS OF CHAIN TO RECEIVE ITEM 24600010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 24800010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 25000010 SPACE 1 25600010 AIF ('&CSECT' EQ 'YES').LIFOC @Y17XAXA 25620010 DSPLIFO DS F @Y17XAXA 25640010 DSPLIFOR DS F @Y17XAXA 25660010 AGO .LIFOE @Y17XAXA 25680010 .LIFOC ANOP @Y17XAXA 25700010 DSPLIFO LA RETURN,DISPATCH @Y17XAXA 25720010 DSPLIFOR B LIFOR @Y17XAXA 25740010 .LIFOE ANOP @Y17XAXA 25760010 * THIS ROUTINE WILL INSERT AN ELEMENT AT THE TOP OF A @Y17XAXA 25800010 * CHAIN @Y17XAXA 25900010 SPACE 1 26000010 * ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING @Y17XAXA 26200010 * REGISTERS INITIALIZED: @Y17XAXA 26400010 * 26600010 * 1 CONTAINS ADDRESS OF ITEM TO BE PLACED IN CHAIN 26800010 * 7 CONTAINS ADDRESS OF CHAIN TO RECEIVE ITEM 27000010 * 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF 27200010 * 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 27400010 SPACE 1 28200010 AIF ('&CSECT' EQ 'YES').TRACEC @Y17XAXA 28210010 DSPTRACE DS F @Y17XAXA 28220010 AGO .TRACEE @Y17XAXA 28230010 .TRACEC ANOP @Y17XAXA 28240010 DSPTRACE DC A(TRCQCB) @Y17XAXA 28250010 .TRACEE ANOP @Y17XAXA 28260010 * ADDRESS OF TRACE QCB/STCB TO WHICH OPERATOR CONTROL @Y17XAXA 28270010 * TPOSTS A BUFFER TO ACTIVATE /DEACTIVATE @Y17XAXA 28280010 * SUBTASK TRACE (S) . @Y17XAXA 28290010 EJECT @Y17XAXA 28300010 * STCBVTO VALUES @Y17XAXA 28400010 SPACE 2 @Y17XAXA 28600010 DSPCWAIT EQU 0 ISSUE SYSTEM WAIT @Y17XAXF 28800010 DSPCPOST EQU 2 SYS POST ATTACHED TASK @Y17XAXF 29000010 DSPMCPL2 EQU 4 ACTIVATE 2-BYTE STCB @Y17XAXF 29200010 DSPMCPL4 EQU 6 ACTIVATE 4-BYTE STCB @Y17XAXF 29400010 DSPMCPL6 EQU 8 ACTIVATE 6-BYTE STCB @Y17XAXF 29600010 DSPMCPL8 EQU 10 ACTIVATE 8-BYTE STCB @Y17XAXF 29800010 DSPRCVSC EQU 12 RECEIVE SCHEDULER@Y17XAXF 30000010 DSPSNDSC EQU 14 SEND SCHEDULER@Y17XAXF 30200010 DSPGETSC EQU 16 GET SCHEDULER@Y17XAXF 30400010 DSPPUTSC EQU 18 PUT SCHEDULER@Y17XAXF 30600010 DSPGFFSC EQU 20 GET FIFO SCHEDULER@Y17XAXF 30800010 DSPLOGSC EQU 22 LOG SCHEDULER@Y17XAXF 31000010 DSPDIASC EQU 24 DIAL SCHEDULER@Y17XAXF 31200010 DSPBUFSC EQU 26 BUFFERED TERM SCHEDULER@Y17XAXF 31400010 DSPRETSC EQU 28 RETRIEVE SCHEDULER@Y17XAXF 31600010 DSPLOCSC EQU 30 LOCAL RECEIVE SCHEDULER@Y17XAXF 31800010 DSPCSCH EQU 32 . CONCENTRATOR SCHEDULER@Y17XAXF 32000010 DSPSEND EQU 34 . 3705 RES SEND SCHEDULER@Y17XAXF 32200010 DSPRCV EQU 36 . 3705 RES RECV SCHEDULER@Y17XAXF 32400010 DSPCBSCH EQU 38 . COMBUF SCHEDULER@Y17XAXF 32600010 .EXIT MEND @Y17XAXA 32700010 * X03039*/ 33000010 *%BSLDISP: ; /* X03039*/ 33200010 * DCL IEDQDISP CHAR(68) BDY(HWORD) BASED(RDISP); /*@Y17XAXF*/ 33400010 * 33600010 * 33800010 */* THIS ROUTINE DISPATCHES TCAM SUBTASKS. IF NO TCAM @Y17XAXF*/ 34000010 */* SUBTASKS ARE READY TO RUN, IT WILL PLACE THE TCAM @Y17XAXF*/ 34200010 */* MESSAGE CONTROL PROGRAM INTO A SYSTEM WAIT. @Y17XAXF*/ 34400010 * 34600010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 34800010 */* INITIALIZED: X03039*/ 35000010 */* X03039*/ 35200010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 35400010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 35600010 * DCL DSPDISP ENTRY BASED(ADDR(IEDQDISP)) POS(5) /* @Y17XAXF*/ 35800010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 35900010 * 36000010 * 36200010 */* THIS ROUTINE WILL TPOST ALL ITEMS IN A LIST.THE LAST ENTRYX03039*/ 36400010 */* MUST HAVE ITS HI-ORDER BIT TURNED ON. X03039*/ 36600010 * 36800010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 37000010 */* INITIALIZED: X03039*/ 37200010 */* X03039*/ 37400010 */* 1 CONTAINS ADDRESS OF FIRST ENTRY IN A LIST OF X03039*/ 37600010 */* ITEMS TO BE PLACED ON READY QUEUE BYX03039*/ 37800010 */* PRIORITY X03039*/ 38000010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 38200010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 38400010 */* 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA*/ 38500010 * DCL DSPLIST ENTRY BASED(ADDR(IEDQDISP)) POS(9) /* @Y17XAXF*/ 38600010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 38700010 * 38800010 * 39000010 */* THIS ROUTINE WILL TPOST ALL ITEMS IN A PASSED CHAIN. X03039*/ 39200010 */* THE LAST ITEM IN THE CHAIN MUST HAVE A LINK FIELD X03039*/ 39400010 */* CONTAINING X'000000'. X03039*/ 39600010 * 39800010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 40000010 */* INITIALIZED: X03039*/ 40200010 */* X03039*/ 40400010 */* 1 CONTAINS ADDRESS OF FIRST ITEM IN A CHAIN OF X03039*/ 40600010 */* ITEMS TO BE PLACED ON READY QUEUE BYX03039*/ 40800010 */* PRIORITY X03039*/ 41000010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 41200010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 41400010 */* 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA*/ 41500010 * DCL DSPCHAIN ENTRY BASED(ADDR(IEDQDISP)) POS(13) /* @Y17XAXF*/ 41600010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 41700010 * 41800010 * 42000010 */* THIS ROUTINE WILL OBTAIN AN ELEMENT, IF AVAILABLE, FROM A X03039*/ 42200010 */* QCB AND PASS IT BACK TO THE SUBTASK. IF NOT AVAILABLEX03039*/ 42400010 */* IT WILL QUEUE THE STCB TO WAIT FOR AN ELEMENT. X03039*/ 42600010 * 42800010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 43000010 */* INITIALIZED: X03039*/ 43200010 */* X03039*/ 43400010 */* 3 CONTAINS ADDRESS OF QCB FROM WHICH ELEMENT ISX03039*/ 43600010 */* DESIRED X03039*/ 43800010 */* 7 CONTAINS ADDRESS OF QCB NOW CONTAINING THIS X03039*/ 44000010 */* STCB. X03039*/ 44200010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 44400010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 44600010 * DCL DSPWAIT ENTRY BASED(ADDR(IEDQDISP)) POS(17) /* @Y17XAXF*/ 44800010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 44900010 * 45000010 * 45200010 */* ENTRY AT THIS POINT WILL ACTIVATE THE STCB POINTED TO BY X03039*/ 45400010 */* RSTCB IMMEDIATELY. X03039*/ 45600010 * 45800010 */* ENTRY HERE SHOULD HAVE THE FOLLOWING REGISTERS INITIALIZED: */ 46000010 * /* X03039*/ 46200010 */* 1 CONTAINS ADDRESS OF ELEMENT TO BE PASSED TO SUBTASK*/ 46400010 */* X03039*/ 46600010 */* 3 CONTAINS ADDRESS OF STCB TO BE ACTIVATED X03039*/ 46800010 */* 7 CONTAINS ADDRESS OF QCB CONTAINING STCB X03039*/ 47000010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 47200010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 47400010 * DCL DSPBYPAS ENTRY BASED(ADDR(IEDQDISP)) POS(21) /* @Y17XAXF*/ 47600010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 47700010 * 47800010 * 48000010 */* THIS ROUTINE WILL TPOST AN ELEMENT(PLACE ON READY QUEUE) X03039*/ 48200010 */* BY PRIORITY). X03039*/ 48400010 * 48600010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 48800010 */* INITIALIZED: X03039*/ 49000010 */* X03039*/ 49200010 */* 1 CONTAINS ADDRESS OF ITEM TO BE PLACED ON RDY X03039*/ 49400010 */* QUEUE BY PRIORITY X03039*/ 49600010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 49800010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 50000010 */* 14 EXIT ADDRESS FROM SUBTASK @Y17XAXA*/ 50100010 * DCL DSPPOST ENTRY BASED(ADDR(IEDQDISP)) POS(25) /* @Y17XAXF*/ 50200010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 50300010 * DCL DSPPOSTR ENTRY BASED(ADDR(IEDQDISP)) POS(29) /* @Y17XAXF*/ 50400010 * VALRG(*); /* @Y17XAXF*/ 50500010 * 50600010 * 50800010 */* THIS ROUTINE WILL MOVE AN STCB FROM ONE QCB TO ANOTHER IF IT */ 51000010 */* IS NOT ALREADY THERE. X03039*/ 51200010 * 51400010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 51600010 */* INITIALIZED: X03039*/ 51800010 */* X03039*/ 52000010 */* 3 CONTAINS ADDRESS OF QCB FROM WHICH ELEMENT ISX03039*/ 52200010 */* DESIRED X03039*/ 52400010 */* 7 CONTAINS ADDR OF QCB NOW CONTAINING THE STCB X03039*/ 52600010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 52800010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 53000010 * DCL DSPTSTQ ENTRY BASED(ADDR(IEDQDISP)) POS(33) /* @Y17XAXF*/ 53200010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 53300010 * DCL DSPTSTQR ENTRY BASED(ADDR(IEDQDISP)) POS(37) /* @Y17XAXF*/ 53400010 * VALRG(*); /* @Y17XAXF*/ 53500010 * DCL DSPUNAV ENTRY BASED(ADDR(IEDQDISP)) POS(41) /* @Y17XAXF*/ 53600010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 53700010 * DCL DSPUNAVR ENTRY BASED(ADDR(IEDQDISP)) POS(45) /* @Y17XAXF*/ 53800010 * VALRG(*); /* @Y17XAXF*/ 53900010 * 54000010 * 54200010 */* THIS ROUTINE WILL INSERT AN ELEMENT INTO A CHAIN BY PRIORITY */ 54400010 * 54600010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 54800010 */* INITIALIZED: X03039*/ 55000010 */* X03039*/ 55200010 */* 1 CONTAINS ADDR OF ITEM TO BE PLACED IN CHAIN X03039*/ 55400010 */* 7 CONTAINS ADDRESS OF CHAIN TO RECEIVE ITEM X03039*/ 55600010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 55800010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 56000010 * DCL DSPPRIO ENTRY BASED(ADDR(IEDQDISP)) POS(49) /* @Y17XAXF*/ 56200010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 56300010 * DCL DSPPRIOR ENTRY BASED(ADDR(IEDQDISP)) POS(53) /* @Y17XAXF*/ 56400010 * VALRG(*); /* @Y17XAXF*/ 56500010 * 56600010 * 56800010 */* THIS ROUTINE WILL INSERT AN ELEMENT AT THE TOP OF A CHAIN X03039*/ 57000010 * 57200010 */* ENTRY TO THIS ROUTINE SHOULD HAVE THE FOLLOWING REGISTERS X03039*/ 57400010 */* INITIALIZED: X03039*/ 57600010 */* X03039*/ 57800010 */* 1 CONTAINS ADDRESS OF ITEM TO BE PLACED IN CHAIN */ 58000010 */* X03039*/ 58200010 */* 7 CONTAINS ADDRESS OF CHAIN TO RECEIVE ITEM X03039*/ 58400010 */* 11 CONTAINS ADDRESS ASSIGNED TO DISPATCHER @Y17XAXF*/ 58600010 */* 13 CONTAINS ADDRESS ASSIGNED TO AVTSAVE2 X03039*/ 58800010 * DCL DSPLIFO ENTRY BASED(ADDR(IEDQDISP)) POS(57) /* @Y17XAXF*/ 59000010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 59100010 * DCL DSPLIFOR ENTRY BASED(ADDR(IEDQDISP)) POS(61) /* @Y17XAXF*/ 59200010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXF*/ 59300010 * DCL DSPTRACE ENTRY BASED(ADDR(IEDQDISP)) POS(65) /* @Y17XAXA*/ 59400010 * VALRG(*) OPTIONS(EXIT,NOSEQFLOW); /* @Y17XAXA*/ 59500010 * 59600010 * 59800010 */* STCBVTO VALUES X03039*/ 60000010 * 60200010 *DCL DSPCWAIT BIT(8) CONSTANT('00'X); /* ISSUE SYSTEM WAIT @Y17XAXF*/ 60260010 *DCL DSPCPOST BIT(8) CONSTANT('02'X); /* SYSTEM POST ATTACHED TASK */ 60320010 * /* @Y17XAXF*/ 61200010 *DCL DSPMCPL2 BIT(8) CONSTANT('04'X); /* ACTIVATE 2-BYTE STCB */ 61205010 * /* @Y17XAXF*/ 61210010 *DCL DSPMCPL4 BIT(8) CONSTANT('06'X); /* ACTIVATE 4-BYTE STCB */ 61215010 * /* @Y17XAXF*/ 61220010 *DCL DSPMCPL6 BIT(8) CONSTANT('08'X); /* ACTIVATE 6-BYTE STCB */ 61225010 * /* @Y17XAXF*/ 61230010 *DCL DSPMCPL8 BIT(8) CONSTANT('0A'X); /* ACTIVATE 8-BYTE STCB */ 61235010 * /* @Y17XAXF*/ 61240010 *DCL DSPRCVSC BIT(8) CONSTANT('0C'X); /* RECEIVE SCHEDULER */ 61245010 * /* @Y17XAXF*/ 61250010 *DCL DSPSNDSC BIT(8) CONSTANT('0E'X); /* SEND SCHEDULER */ 61255010 * /* @Y17XAXF*/ 61260010 *DCL DSPGETSC BIT(8) CONSTANT('10'X); /* GET SCHEDULER */ 61265010 * /* @Y17XAXF*/ 61270010 *DCL DSPPUTSC BIT(8) CONSTANT('12'X); /* PUT SCHEDULER */ 61275010 * /* @Y17XAXF*/ 61280010 *DCL DSPGFFSC BIT(8) CONSTANT('14'X); /* GET FIFO SCHEDULER */ 61285010 * /* @Y17XAXF*/ 61290010 *DCL DSPLOGSC BIT(8) CONSTANT('16'X); /* LOG SCHEDULER */ 61295010 * /* @Y17XAXF*/ 61300010 *DCL DSPDIASC BIT(8) CONSTANT('18'X); /* DIAL SCHEDULER */ 61305010 * /* @Y17XAXF*/ 61310010 *DCL DSPBUFSC BIT(8) CONSTANT('1A'X); /* BUFF'D TERM SCHEDULER */ 61315010 * /* @Y17XAXF*/ 61320010 *DCL DSPRETSC BIT(8) CONSTANT('1C'X); /* RETRIEVE SCHEDULER */ 61325010 * /* @Y17XAXF*/ 61330010 *DCL DSPLOCSC BIT(8) CONSTANT('1E'X); /* LOCAL REC SCHEDULER */ 61335010 * /* @Y17XAXF*/ 61340010 *DCL DSPCSCH BIT(8) CONSTANT('20'X); /* CONCENTRATOR SCHEDULER */ 61345010 * /* @Y17XAXF*/ 61350010 *DCL DSPSEND BIT(8) CONSTANT('22'X); /* 3705 RES SEND SCHEDULER */ 61355010 * /* @Y17XAXF*/ 61360010 *DCL DSPRCV BIT(8) CONSTANT('24'X); /* 3705 RES RECV SCHEDULER */ 61365010 * /* @Y17XAXF*/ 61370010 *DCL DSPCBSCH BIT(8) CONSTANT('26'X); /* COMBUF SCHEDULER */ 61375010 * /* @Y17XAXF*/ 61380010