MACRO 01000020 IKJTIOCP &LIST=NO 02000002 TIOCRPT DSECT 03000020 *********************************************************************** 04000020 * 05000020 * 06000020 * THE TIOC REFERENCE POINTER TABLE CONTAINS INFORMATION REQUIRED 07000020 * BY THE TIOC TO MANAGE THE TERMINALS. IT RESIDES 08000002 * IN THE COMMON AREA AND IS CREATED AND INITIALIZED BY 09100002 * TIOC INITIALIZATION. 10000002 * 11000020 * UPDATING OF FIELDS IN THIS CONTROL BLOCK MUST BE 11060002 * SYNCHRONIZED BY HOLDING THE CMS LOCK, EXCEPT FOR 11070002 * THE FOLLOWING FIELDS WHICH MUST BE UPDATED USING 11072002 * COMPARE AND SWAP: 11074002 * 11076002 * TIOCUSCT 11078002 * 11078402 * 11080002 */*MACMEAN TIOCRPT MEANS TERMINAL INPUT/OUTPUT COORDINATOR REFERENCE */ 11100002 */* POINTER TABLE */ 11150002 */*MACCOMP Y-2 SC1T3/SJE85 */ 11200002 */*MACSTAT Y-2 72304/029010 */ 11250002 * C518000,729000 @OZ62047 11300036 * 12000020 *********************************************************************** 13000020 AIF ('&LIST' EQ 'YES').L10 13010002 * 13012002 * SPECIFY LIST=YES ON THE MACRO CALL TO OBTAIN A LISTING 13014002 * 13016002 PUSH PRINT 13020002 PRINT OFF 13030002 .L10 ANOP 13040002 TIOCQTIP DS A . BRANCH ENTRY POINT TO QTIP 13100002 TIOCNBF DS CL2 . NUMBER OF TS BUFFERS 16000020 TIOCNFBF DS CL2 . NUMBER OF TS BFRS ON FREE QUEUE 17000020 TIOCBFSZ DS CL2 . TS BUFFER SIZE - IN BYTES 18000020 TIOCNTSB DS CL2 . NO. OF TSB'S 18100002 TIOCQRET DS A . QTIP RETURN ADDRESS 18110002 TIOCOWTH DS CL2 . OWAIT THRESHOLD 25000020 TIOCRSTH DS CL2 . RESTART THRESHOLD 26000020 TIOCFLG DS X . FLAG BYTE 27000020 * BIT DEFINITIONS 28000020 * BITS 5-7 RESERVED 29150002 TIOCSYLW EQU X'80' . SYSTEM IS IN LWAIT 30000020 TIOCTSAB EQU X'40' . TIME SHARING ENDING ABNORMALLY 30060002 TIOCSTOP EQU X'20' . STOP TS REQUESTED 30100002 TIOCTJBF EQU X'10' . TPUT W/TJID FOUND NO TS BUFFERS 31000020 TIOCNOBF EQU X'08' . TPUT FOUND NO TS BUFFERS ON 32000020 * EITHER FREE OR OUTPUT QUEUE 33000020 TIOCQTKY DS CL1 . KEY OF QTIP CALLER 36100002 TIOCUSCT DS H . TIOC USER COUNT 37000020 TIOCAOMX DS CL2 . CURRENT MAXIMUM NO. OF OUTPUT 38000002 * BUFFERS ALLOWED EACH TERMINAL 40000020 TIOCAIMX DS CL2 . CURRENT MAXIMUM NO. OF INPUT 41000002 * BUFFERS ALLOWED EACH TERMINAL 43000020 TIOCUSLW DS CL2 . NO. OF BFRS THAT ARE RESERVED 44000020 * ON THE FREE QUEUE. LESS THAN 45000020 * THIS AMOUNT RESULTS IN A 46000002 * SYSTEM-WIDE LWAIT 46010002 * 46020002 TIOCNBFL DS H . NO. OF FREE BUFFER LISTS 48150002 TIOCTSBS DS X . SIZE OF TSB'S 49000002 TIOCTSB DS AL3 . ADDRESS OF THE TSB TABLE 50010002 TIOCSAVE DS CL72 . REGISTER SAVE AND WORK AREA 51500002 TIOCTECB DS F . TIME INTERVAL ECB 51600002 TIOCRCLM DS H . RECONNECT LIMIT (MINUTES) 51650002 DS H . RESERVED 51700002 TIOCLDS DS A LINE DISCONNECT SUBTASK TCB 51750002 TIOCLIST DS A ADDR OF LIST FOR SNAP @OZ62047 51800036 TIOCFBFL DS A . FREE BUFFER LIST(S). 52100002 * ONE LIST FOR EACH PAGE 52150002 * CONTAINING TIOC BUFFERS. 52200002 * AN EMPTY LIST IS INDICATED 52210002 * BY THE COMPLEMENTED ADDRESS 52220002 * OF A BUFFER ON THAT PAGE. 52230002 * 53000020 * ************************************************************* 54000020 * 0 * TIOCQTIP * 54100002 * ************************************************************* 56000020 * 4 * TIOCNBF * TIOCNFBF * 57000020 * ************************************************************* 58000020 * 8 * TIOCBFSZ * TIOCNTSB * 59150002 * ************************************************************* 60000020 * 12 * TIOCQRET * 60050002 * ************************************************************* 62000020 * 16 * TIOCOWTH * TIOCRSTH * 63000020 * ************************************************************* 64000020 * 20 * TIOCFLG * TIOCQTKY * TIOCUSCT * 65150002 * ************************************************************* 66000020 * 24 * TIOCAOMX * TIOCAIMX * 67000020 * ************************************************************* 68000020 * 28 * TIOCUSLW * TIOCNBFL * 71110002 * ************************************************************* 71250002 * 32 * TIOCTSBS * TIOCTSB * 71300002 * ************************************************************* 72000020 * 36 * TIOCSAVE (72 BYTES) * 72300002 * ************************************************************* 72600020 * 108 * TIOCTECB * 72700002 * ************************************************************* 72800020 * 112 * TIOCRCLM * RESERVED * 72850002 * ************************************************************* 72860002 * 116 * TIOCLDS * 72870002 * ************************************************************* 72890002 * 120 * TIOCLIST @OZ62047 72900036 * ************************************************************* 72950002 * 124 * TIOCFBFL * 72960002 * ************************************************************* 72970002 * 73000020 SPACE 3 74000020 AIF ('&LIST' EQ 'YES').L20 74050002 POP PRINT 74100002 .L20 ANOP 74150002 MEND 75000020