*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