* /* */ 01050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01100002 * /* MACSTAT Y-2 73103/Y02113 */ 01150002 * /* */ 01200002 * DCL 1 IOBEXTN DEFINED(IOBSTDRD) POSITION(41), /* IOB EXTENSION */ 01250002 * 2 IOBBUFCS PTR(31), /* PTR TO CURRENT I/O BUFC*/ 02000000 * 2 IOBIOMF BIT(8), /* I/O MANAGER FLAGS */ 03000000 * 3 IOBAMUSE BIT(1), /* IOB IN USE INDICATOR */ 04000000 * 3 IOBMCSW BIT(1), /* CSW ADDR NOT IN CP */ 05000000 * 3 IOBEOVW BIT(1), /* EOV IS WAITING FOR IOB */ 06000000 * 3 IOBEOVTS BIT(1), /* EOV SET IOBLOCK */ 07000000 * 3 * BIT(4), /* NOT USED */ 08000000 * 2 IOBNMOD PTR(8), /* NO. MODULES IN VSL LIST*/ 09000000 * 2 IOBLOCK CHAR(1), /* PROCESS LOCK */ 10000000 * 2 * CHAR(1), /* NOT USED */ 11000000 * 2 IOBNBUF FIXED(15), /* NO. BUFFERS THIS REQ. */ 12000000 * 2 IOBNSEG FIXED(15), /* NO. OF CHANNEL PROGRAM */ 13000000 * /* SEQMENTS THIS REQUEST */ 14000000 * 2 IOBPLH PTR(31), /* POINTER TO PLH */ 15000000 * 2 IOBR14 PTR(31), /* APPENDAGE R14 SAVE */ 16000000 * 2 IOBVSL PTR(31), /* PTR TO VIRT ADDR LIST */ 17000000 * /* FOR PAGE FIX */ 18000000 * 2 IOBMSAV1 PTR(31), /* WORK AREA */ 19000000 * 2 IOBMSAV2 PTR(31), /* WORK AREA */ 20000000 * 2 IOBMSAV3 PTR(31), /* WORK AREA */ 21000000 * 2 IOBMSAV4 PTR(31), /* WORK AREA */ 22000000 * 2 IOBMSAV5 PTR(31), /* WORK AREA */ 23000000 * 2 IOBMSAV6 PTR(31); /* WORK AREA */ 24000000 *%GOTO IOBAPLS2; 25000000 MACRO 26000000 IDAIOB 27000000 ORG IOBSTDRD+40 IOB EXTENSION 28000000 IOBBUFCS DS A POINTER TO CURRENT I/O BUFC 29000000 IOBIOMF DS BL1 I/O MANAGER FLAGS 30000000 IOBAMUSE EQU X'80' IOB IN USE INDICATOR 31000000 IOBMCSW EQU X'40' CSW ADDR NOT IN CP 32000000 IOBEOVW EQU X'20' EOV IS WAITING FOR IOB 33000000 IOBEOVTS EQU X'10' EOV SET IOBLOCK 34000000 IOBNMOD DS C NO. MODULES IN VSL LIST 35000000 IOBLOCK DS C NOT USED 36000000 DS C NOT USED 37000000 IOBNBUF DS H NO. BUFFERS FOR THIS REQUEST 38000000 IOBNSEG DS H NO. CP SEGS FOR THIS REQUEST 39000000 IOBPLH DS A POINTER TO PLH 40000000 IOBR14 DS F APPENDAGE R14 SAVE LOCATION 41000000 IOBVSL DS F PTR TO PAGE FIX VIRT ADDR LIST 42000000 IOBMSAV1 DS F WORK AREA 43000000 IOBMSAV2 DS F WORK AREA 44000000 IOBMSAV3 DS F WORK AREA 45000000 IOBMSAV4 DS F WORK AREA 46000000 IOBMSAV5 DS F WORK AREA 47000000 IOBMSAV6 DS F WORK AREA 48000000 MEND 49000000 *%IOBAPLS2: ; 50000000