*COPY IOBLOKS 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').IOB01 00001400 PRINT OFF,NOGEN 00001600 .IOB01 ANOP 00001800 IOBLOK DSECT 00002000 SPACE 1 00003000 *** IOBLOK - I/O TASK CONTROL BLOCK 00005000 * 00006000 * 0 +-----------+-----+-----+-----------------------+ 00007000 * | IOBRADD | I*1 | I*2 | IOBLINK | 00008000 * 8 +-----------+-----+-----+-----------------------+ 00009000 * | IOBFPNT | IOBBPNT | 00010000 * 10 +-----------+-----------+-----------------------+ 00011000 * | IOBCYL | IOBVADD | IOBMISC | 00012000 * 18 +-----------+-----------+-----------------------+ 00013000 * | IOBUSER | IOBIRA | 00014000 * 20 +-----------------------+-----------------------+ 00015000 * | IOBCAW | IOBRCAW | 00016000 * 28 +-----------------------+-----------------------+ 00017000 * | IOBCSW | 00018000 * 30 +-----------------------+-----------------------+ 00019000 * | IOBIOER | IOBMISC2 | 00020000 * 38 +-----+-----+-----------+-----------------------+ 00021000 * | I*3 | I*4 | I*5 | RSV2| IOBRSV3 | 00022000 * 40 +-----+-----+-----------+-----------------------+ 00023000 * | I*6 | IOBRSV4 | IOBCTRQ | 00023100 * 48 +-----------------------+-----------------------+ 00023300 * 00024000 *** IOBLOK - I/O TASK CONTROL BLOCK 00025000 SPACE 1 00027000 IOBRADD DS 1H REAL DEVICE ADDRESS FOR SIO 00028000 IOBFLAG DS 1X I*1 IOBLOK FLAGS 00029000 IOBSTAT DS 1X I*2 IOBLOK STATUS 00030000 IOBLINK DS 1F POINTER FOR MULTI-PATH IOBLOK CHAIN 00031000 IOBFPNT DS 1F POINTER TO NEXT IOBLOK IN QUEUE 00032000 IOBBPNT DS 1F POINTER TO PREV IOBLOK IN QUEUE 00033000 SPACE 1 00034000 IOBMSIZE EQU (*-IOBLOK)/8 MULTIPLE PATH IOBLOK SIZE IN DBL. WDS. 00035000 SPACE 1 00036000 IOBCYL DS 1H DASD - SEEK CYLINDER FOR THIS IOBLOK 00037000 IOBVADD DS 1H VIRTUAL DEVICE ADDRESS 00038000 IOBMISC DS 1F USE VARIES ACCORDING TO CALLER 00039000 IOBUSER DS 1F POINTER TO VMBLOK OF USER 00040000 IOBIRA DS 1F IOBLOK INTERRUPT RETURN ADDRESS 00041000 IOBCAW DS 1F POINTER TO CCW CHAIN 00042000 IOBRCAW DS 1F POINTER TO RESTART CCW CHAIN 00043000 IOBCSW DS 1D REAL CHANNEL STATUS WORD FOR IO OPERATION 00044000 IOBIOER DS 1F POINTER TO IOERBLOK WITH SENSE 00045000 IOBMISC2 DS 1F USE VARIES ACCORDING TO CALLER 00046000 IOBSPEC DS 1X I*3 IOBLOK SPECIAL REQUESTS FLAG 00047000 IOBSPEC2 DS 1X I*4 IOBLOK SPECIAL REQUESTS FLAG 2ND BYTE 00048000 IOBSPEC3 DS 1X I*5 IOBLOK SPECIAL REQUESTS FLAG@VA08629 00049000 * 3RD BYTE 00049100 IOBRSV2 DS 1X RESERVED FOR FUTURE USE @VA08629 00049200 IOBRSV3 DS 1F RESERVED FOR FUTURE USE 00050000 IOBERCNT DS 1X I*6 CHAN CHECK ERROR COUNT @VA13318 00050100 IOBRSV4 DS 3X RESERVED FOR FUTURE USE @VA13318 00050110 IOBCTRQ DS 1F MSS CYL FAULT TRQBLOK POINTER @VA09957 00050300 SPACE 1 00051000 IOBSIZE EQU (*-IOBLOK)/8 IOBLOK SIZE IN DOUBLE WORDS 00052000 SPACE 1 00053000 * FOR CP IOBLOKS 00054000 ORG IOBVADD 00055000 IOBRCNT DS 1H RETRY COUNT 00056000 SPACE 1 00058000 * BITS DEFINED IN IOBFLAG 00059000 IOBCP EQU X'80' CP GENERATED IO OPERATION 00060000 IOBRSTRT EQU X'40' RESTARTED OPERATION - IOBRCAW 00061000 IOBSPLT EQU X'20' DASD - CP SPLIT SEEK OPERATION 00062000 IOBPAG EQU X'10' IOBLOK CREATED FOR PAGING IO 00063000 IOBRELCU EQU X'08' CONTROL UNIT RELEASED AT INITIATION 00064000 IOBERP EQU X'04' IO TASK IS UNDER CONTROL OF ERP 00065000 IOBRES EQU X'02' IO TASK HAS BEEN RESET 00066000 IOBHVC EQU X'01' IO INITIATED VIA HVC 00067000 SPACE 1 00068000 * BITS DEFINED IN IOBSTAT 00069000 IOBFATAL EQU X'80' UNCORRECTABLE ERROR IN THIS I/O OPERATION 00070000 IOBPATHF EQU X'20' PATH IS FIXED, USE IOBRADD VALUE 00071000 IOBMINI EQU X'08' THIS IS A MINI IOBLOK 00072000 IOBFLT EQU X'40' MSS CYL FAULT IN PROCESS @VMI2022 00072010 IOBALTSK EQU X'04' DASD CHNL PRG HAS SEEK TO ALTERNATE TRK 00073100 IOBCC0 EQU X'00' PROCESSING IO INTERRUPT 00075000 IOBCC1 EQU X'01' PROCESSING CC 1, CSW STORED 00076000 IOBCC2 EQU X'02' PROCESSING CC 2, CHANNEL BUSY 00077000 IOBCC3 EQU X'03' PROCESSING CC 3, NOT AVAILABLE 00078000 SPACE 00079000 * BITS DEFINED IN IOBSPEC 00080000 IOBTIO EQU X'80' IOBLOK REQUEST FOR A 'TIO' 00081000 IOBHIO EQU X'40' IOBLOK REQUEST FOR A 'HIO' 00082000 IOBSIOF EQU X'20' IOBLOK DUE TO VIRTUAL 'SIOF' 00082100 IOBIMSTK EQU X'10' SHUTDOWN SDR FUNCTION @VA05361 00082110 IOBUNSL EQU X'08' IOBLOK DUE TO UNSOLICITED INTERRUPT 00082500 IOBCOPY EQU X'04' IOBLOK ASSOCIATED WITH A COPY REQUEST 00082510 IOBSENS EQU X'02' SENSE OPERATION FOR COPY REQUEST 00082515 IOBTRPND EQU X'01' VIRT.TRACE PENDING ON THIS IOBLOK 00082518 * BITS DEFINED IN IOBSPEC2 00082550 IOBWRAP EQU X'80' IO TASK FOR AUTOPOLL WRAP LIST 00082600 IOBCLN EQU X'40' VDEVBLOK LOCKED WHEN CCW GOT CNTRL 00082650 IOBUNREL EQU X'20' IOTASK CONTAINS RELEASE, UNTRN MUST PROC 00082700 IOBUC EQU X'10' UNIT CHECK STATUS 00082750 IOBSNSIO EQU X'08' NORMAL SENSE OPERATION IN PROGRESS 00082800 IOBREL EQU X'04' CHANNEL PGM CONTAINS CP RELEASE 00082825 IOBRETRY EQU X'02' CPEXBLOK STACKED FOR RETRY @VA08119 00082835 * BITS DEFINED IN IOBSPEC3 00082850 IOBSENSE EQU X'80' DON'T EXECUTE SENSE ON HARDWARE @VA08629 00082900 IOBPST EQU X'40' PASS INTERRUPT TO USER @VA09137 00082925 EJECT 00082950 CONTASK DSECT 00084000 SPACE 1 00085000 *** CONTASK - CONSOLE I/O PACKAGE 00086500 * 00087000 * 0 +-----------------------+-----------------------+ 00087500 * | CONPNT | CONRETN | 00088000 * 8 +-----+-----+-----------+-----------------------+ 00088500 * | C*1 | C*2 | CONTSKSZ | CONUSER | 00089000 * 10 +-----+-----+-----------+-----------------------+ 00089500 * | C*3 |RSVD | RESERVED | RESERVED HRC101DK 00089600 * 10 +-----+-----+-----------+-----------------------HRC101DK 00089700 * | CONCCW1 | 00090000 * 18 +-----------------------------------------------+ 00090500 * | CONCCW2 | 00091000 * 20 +-----------------------------------------------+ 00091500 * | CONCCW3 | 00092000 * 28 +-----------------------------------------------+ 00092500 * | CONCCW4 | 00093000 * 30 +-----------------------------------------------+ 00093500 * | | 00094000 * = CONDATA = 00094500 * | | 00095000 * +-----------------------------------------------+ 00095500 * 00096000 *** CONTASK - CONSOLE I/O PACKAGE 00096500 SPACE 1 00097000 CONPNT DS 1F POINTER TO NEXT CONTASK 00097500 CONRETN DS 1F POINTER TO SAVEAREA FOR RETURN 00098000 CONSTAT DS 1X CONTASK STATUS CONTROL FLAGS 00098500 CONPARM DS 1X DMKQCN PARAMETER FLAGS (SEE EQU COPY) 00099000 CONTSKSZ DS 1H CONTASK SIZE IN DOUBLE WORDS 00099500 CONUSER DS 1F ADDRESS OF VMBLOK FOR DESTINATION USER 00100000 CONFSS DS 1X C*3 FLAG BYTES FOR FULL SCREEN SUPPORHRC101DK 00100100 DS 1X RESERVED HRC101DK 00100200 DS 1H RESERVED HRC101DK 00100300 DS 1F RESERVED HRC101DK 00100400 CONCCW1 DS 1D FIRST CONSOLE I/O CCW 00100500 CONCCW2 DS 1D SECOND... 00101000 CONCCW3 DS 1D THIRD... 00101500 CONCCW4 DS 1D FOURTH... 00102000 CONDATA DS 0C OUTPUT DATA AREA (VARIABLE LENGTH) 00102500 SPACE 00103000 CONTSIZE EQU (*-CONTASK)/8 CONTASK SIZE IN DOUBLE WORDS 00103500 SPACE 00104000 * BITS DEFINED IN CONSTAT: 00104500 CONOUTPT EQU X'80' OUTPUT CONTASK 00105000 CONRESP EQU X'40' RESPONSE EXPECTED FROM THIS CONTASK 00105500 CONACTV EQU X'20' CONTASK IS ACTIVE ON REAL DEVICE 00106000 CONCNTL EQU X'10' THIS IS A CONTROL CONTASK ONLY 00106500 CONESCP EQU X'08' CONTASK CONTAINS DEVICE DEPENDENT DATA 00107000 CONRTRY EQU X'04' RETRY OPERATION IN PROGRESS 00107500 CONSPLT EQU X'02' OUTPUT DATA BEING SPLIT VIA RDEVLLEN 00108000 CONSYNC EQU X'01' CONTASK FOR SYNCHRONIZATION ONLY 00108500 SPACE , HRC101DK 00108570 * BITS DEFINED IN CONFSS: HRC101DK 00108640 CONPREV EQU X'80' ADDR LINE TO LAST CHAR OF PREV HRC101DK 00108710 * LINE (FOR HILIGHT) HRC101DK 00108780 CONLOLIT EQU X'40' GRF FLAG TO PUT ADDR OF LAST HRC101DK 00108850 * BYTE OF LINE IN END OF DATA HRC101DK 00108920 EJECT 00109000 * CONCCW DEFINITION 00109500 ORG CONCCW1 00110000 CONADDR DS 1F CCW DATA ADDRESS 00110500 CONFLAG DS 1X CCW FLAG BITS 00111000 CONDWC DS 1X DIAGNOSE WRITE CONTROL 00111600 CONCNT DS 1H CCW BYTE COUNT 00112000 ORG CONADDR 00112500 CONCOMND DS 1X CCW COMMAND CODE 00113000 SPACE 00113500 * RE-DEFINITION FOR 3704/3705 NETWORK CONTROL PROGRAM 00114000 ORG CONCCW3+2 00114500 CONSRID DS 1H SOURCE IDENTIFIER 00115000 CONDEST DS 1H DESTINATION RESOURCE ID 00115500 CONRTAG DS 1H REQUEST TAG FOR THIS CONTASK 00116000 CONSYSR DS 1X 370X SYSTEM RESPONSE BYTE 00116500 CONEXTR DS 1X 370X EXTENDED RESPONSE BYTE 00117000 CONTCMD DS 1H BTU COMMAND/MODIFIER (SEE TELEQU COPY) 00117500 CONFUNC DS 1X BDU FUNCTION CONTROL FLAGS 00118000 CONDFLG DS 1X BDU DATA CONTROL FLAGS 00118500 CONDCNT DS 1H TEXT DATA LENGTH 00119000 SPACE 1 00119100 * RE-DEFINITION FOR 3270 REMOTE SUPPORT 00119200 ORG CONCCW4 00119300 CONLABEL DS 1X RETURN INDEX VALUE 00119400 CONSTX DS 1X START TEXT CHARACTER 00119500 CONESC DS 1X ESCAPE CHARACTER 00119600 CONCMD DS 1X COMMAND CODE FOR REMOTE STATION 00119700 CONWCC DS 1X WRITE CONTROL CHARACTER 00119800 CONSBA DS 1X START BUFFER ADDRESS 00119900 DS 1H BUFFER ADDRESS 00120000 EJECT 00130000 RCWTASK DSECT 00131000 SPACE 1 00132000 *** RCWTASK - TRANSLATED VIRTUAL I/O CCW PACKAGE 00134000 * 00135000 * 0 +-----------------------+-----------------------+ 00136000 * | RCWPNT | RCWVCAW | 00137000 * 8 +-----------+-----------+-----------+-----------+ 00138000 * | RCWVCNT | RCWRCNT | RCWHEAD | RCWCCNT | 00139000 * 10 +-----------+-----------+-----------+-----------+ 00140000 * | | 00141000 * = RCWCCW = 00142000 * | | 00143000 * +-----------------------------------------------+ 00144000 * 00145000 *** RCWTASK - TRANSLATED VIRTUAL I/O CCW PACKAGE 00146000 SPACE 1 00148000 RCWPNT DS 1F POINTER TO NEXT RCWTASK 00149000 RCWVCAW DS 1F VIRTUAL ADDRESS OF CCW CHAIN 00150000 RCWVCNT DS 1H VIRTUAL CCW COUNT 00151000 RCWRCNT DS 1H REAL CCW COUNT 00152000 RCWHEAD DS 1H RCWTASK HEADER MARK X'FFFF' 00153000 RCWCCNT DS 1H RCWTASK CONTROL WORD COUNT 00154000 RCWCCW DS 1D ONE OR MORE CCWS FOR DEVICE IO 00155000 SPACE 1 00156000 * RCWCCW DEFINITION 00157000 ORG RCWCCW 00158000 RCWADDR DS 1F CCW DATA ADDRESS 00159000 RCWFLAG DS 1X CCW FLAG BITS 00160000 RCWCTL DS 1X CCW CP CONTROL BITS 00161000 RCWCNT DS 1H CCW BYTE COUNT 00162000 ORG RCWADDR 00163000 RCWCOMND DS 1X CCW COMMAND CODE 00164000 SPACE 1 00165000 * BITS DEFINED IN RCWCTL 00166000 RCWIO EQU X'80' IO DATA PAGE LOCKED 00167000 RCWGEN EQU X'40' CP GENERATED CCW 00168000 RCWHMR EQU X'20' DMKUNT TO RELOCATE HOME ADDRESS/RECORD R0 00169000 RCWREL EQU X'10' CCW ADDRESS RELOCATABLE IF CCWS MOVED 00170000 RCWISAM EQU X'08' ISAM MODIFYING CCW 00171000 RCW2311 EQU X'04' TYP2311T-B PSEUDO 2311 ON 2314 00172000 RCWINVL EQU X'02' CCW OP CODE OR ADDRESS IS INVALID 00173000 RCWSHR EQU X'01' 'SHARED' USER PAGE WAS COPIED. 00173100 EJECT 00174000 VCONCTL DSECT 00175000 SPACE 1 00176000 *** VCONCTL - VIRTUAL CONSOLE CONTROL BLOCK 00177000 * 00178000 * 0 +-----------------------+-----------------------+ 00179000 * | VCONCAW | VCONBUF | 00180000 * 8 +-----------------------+-----------------------+ 00181000 * | VCONCCW | 00182000 * 10 +-----+-----+-----+-----+-----------------------+ 00183000 * | VCONBFSZ | V*1 | V*2 | VCONIDAP HRC101DK 00184490 * 18 +-----+-----+-----+-----+-----------+-----+-----+ 00185000 * | VCONRBUF | VCONRCNT | VCONRBSZ HRC101DK 00186490 * 20 +-----------------------+-----------+-----+-----+ 00187000 * | VCONWBUF | VCONWCNT | V*3 | V*4 HRC101DK 00188490 * 28 +-----------------------+-----------+-----+-----+ 00189000 * 00190000 *** VCONCTL - VIRTUAL CONSOLE CONTROL BLOCK 00191000 SPACE 1 00192000 VCONCAW DS 1F VIRTUAL ADDRESS OF USER CCW 00193000 VCONBUF DS 1F POINTER TO DATA BUFFER 00194000 VCONCCW DS 1D CURRENT USER CCW 00195000 VCONBFSZ DS 1H DATA BUFFER SIZE IN DOUBLE WORDS HRC101DK 00196990 VCONFSS DS 1X V*1 FULL SCREEN DIAGNOSE FLAGS HRC101DK 00197980 VCONOPT DS 1X V*2 CONSOLE OPTIONS HRC101DK 00198970 VCONIDAP DS 1F FOR IDA PTR TO CURRENT IDAW 00200000 VCONRBUF DS 1F ADDRESS OF READ DATA BUFFER 00200100 VCONRCNT DS 1H DATA COUNT IN READ BUFFER 00200200 VCONRBSZ DS 1H READ BUFFER SIZE IN DOUBLE WORDS HRC101DK 00200390 VCONWBUF DS 1F ADDRESS OF WRITE DATA BUFFER 00200500 VCONWCNT DS 1H DATA COUNT IN WRITE BUFFER 00200600 VCONWBSZ DS 1X V*3 WRITE BUFFER SIZE IN DOUBLE WORDSHRC101DK 00200790 VCONRSV8 DS 1X V*4 RESERVED FOR FUTURE USE HRC101DK 00200880 SPACE 00201000 VCONSIZE EQU (*-VCONCTL)/8 VCONCTL SIZE IN DOUBLE WORDS 00202000 SPACE 1 00203000 * VCONCCW DEFINITION 00204000 ORG VCONCCW 00205000 VCONADDR DS 1F CCW DATA ADDRESS 00206000 VCONFLAG DS 1X CCW FLAG BITS 00207000 VCONDWC DS 1X DIAGNOSE WRITE CONTROL 00208100 VCONCNT DS 1H CCW BYTE COUNT 00209000 ORG VCONADDR 00210000 VCONCOMD DS 1X CCW COMMAND CODE 00211000 EJECT 00212000 POP PRINT 00213000 SPACE 00214000