ibm:vm370-lib:copy:iobloks.copy_src
Table of Contents
IOBLOKS Source
References
- Fixes Applied : 5
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC101DK]
Source Listing
- IOBLOKS.COPY.txt
- *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
ibm/vm370-lib/copy/iobloks.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator