*COPY RBLOKS 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').RBL01 00001400
PRINT OFF,NOGEN 00001600
.RBL01 ANOP 00001800
RCHBLOK DSECT 00006000
SPACE 1 00007000
*** RCHBLOK - REAL CHANNEL BLOCK 00009000
* 00010000
* 0 +-----------+-----------+-----+-----+-----------+ 00011000
* | RCHADD | RCHLOCK | R*1 | R*2 | RCHQCNT | 00012000
* 8 +-----------+-----------+-----+-----+-----------+ 00013000
* | RCHFIOB | RCHLIOB | 00014000
* 10 +-----+-----+-----+-----+-----------------------+ 00015000
* | R*3 | R*4 | R*5 | R*6 | RCHSTIDC | 00016010
* 18 +-----+-----+-----+-----+-----------------------+ 00017000
* | RCHRSTQ | RCHOPER | 00018000
* 20 +-----------------------+-----------------------+ 00019000
* | | 00020000
* = RCHCUTBL = 00021000
* | | 00022000
* 60 +-----------------------------------------------+ 00023000
* 00024000
*** RCHBLOK - REAL CHANNEL BLOCK 00025000
SPACE 1 00027000
RCHADD DS 1H CHANNEL ADDRESS 00028000
RCHLOCK DS 1H CHANNEL LOCK 00029000
RCHSTAT DS 1X R*1 CHANNEL STATUS 00030000
RCHTYPE DS 1X R*2 CHANNEL TYPE 00031000
RCHQCNT DS 1H NO. IOBLOKS QUEUED OFF CHANNEL 00032100
RCHFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00033000
RCHLIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00034000
RCHDTCK DS 1X R*3 CHANNEL DATA CHECK COUNT 00035000
RCHCCCK DS 1X R*4 CHANNEL CONTROL CHECK COUNT 00036000
RCHIFCC DS 1X R*5 INTERFACE CONTROL CHECK COUNT 00037000
RCHCHCK DS 1X R*6 CHANNEL CHAINING CHECK COUNT 00038000
RCHSTIDC DS 1F RESULT OF STIDC AT CP IPL OR F'S IF CC=3. 00039010
RCHRSTQ DS 1F ADDRESS OF CHANNEL TO BE RESTARTED 00040000
RCHOPER DS 1F IOBLOK OPERATIONAL ON CHANNEL TIME 00041000
RCHCUTBL DS 32H CONTROL UNITS ATTACHED - RCUSTART INDEX 00042000
SPACE 1 00043000
RCHSIZE EQU (*-RCHBLOK)/8 RCHBLOK SIZE IN DOUBLE WORDS 00044000
SPACE 1 00045000
* BITS DEFINED IN RCHSTAT 00046000
RCHBUSY EQU X'80' CHANNEL BUSY 00047000
RCHSCED EQU X'40' IOB SCHEDULED ON CHANNEL 00048000
RCHDED EQU X'01' CHANNEL DEDICATED 00050000
SPACE 1 00051000
* BITS DEFINED IN RCHTYPE 00052000
RCHSEL EQU X'80' SELECTOR CHANNEL 00053000
RCHBMX EQU X'40' BLOCK-MULTIPLEXER CHANNEL 00054000
RCHMPX EQU X'20' BYTE-MULTIPLEXER CHANNEL 00055000
RCH370 EQU X'01' 370 TYPE CHANNEL (370 I/O INST SUPPORT) 00056000
EJECT 00057000
RCUBLOK DSECT 00058000
SPACE 1 00059000
*** RCUBLOK - REAL CONTROL UNIT BLOCK 00061000
* 00062000
* 0 +-----------+-----------+-----+-----+-----------+ 00063000
* | RCUADD | RCULOCK | R*1 | R*2 | RCUQCNT | 00064000
* 8 +-----------+-----------+-----+-----+-----------+ 00065000
* | RCUFIOB | RCULIOB | 00066000
* 10 +-----------------------+-----------------------+ 00067000
* | RCUCHA | RCUCHB | 00068000
* 18 +-----------------------+-----------------------+ 00069000
* | RCUCHC | RCUCHD | 00069500
* 20 +-----------------------+-----------------------+ 00070000
* | RCURSTQ | RCUOPER | 00070500
* 28 +-----------------------+-----------------------+ 00071000
* | | 00072000
* = RCUDVTBL = 00073000
* | | 00074000
* 48 +-----------------------+-----------------------+ 00075000
* 00076000
*** RCUBLOK - REAL CONTROL UNIT BLOCK 00077000
SPACE 1 00079000
RCUADD DS 1H CONTROL UNIT ADDRESS 00080000
RCULOCK DS 1H CONTROL UNIT LOCK 00081000
RCUSTAT DS 1X R*1 CONTROL UNIT STATUS 00082000
RCUTYPE DS 1X R*2 CONTROL UNIT TYPE 00083000
RCUQCNT DS 1H NO. IOBLOKS QUEUED OFF C.U. 00084100
RCUFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00085000
RCULIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00086000
RCUCHA DS 1F POINTER TO RCHBLOK - INTERFACE A 00087000
RCUCHB DS 1F POINTER TO RCHBLOK - INTERFACE B 00088000
RCUCHC DS 1F POINTER TO RCHBLOK - INTERFACE C 00088500
RCUCHD DS 1F POINTER TO RCHBLOK - INTERFACE D 00089000
RCURSTQ DS 1F ADDRESS OF CONTROL UNIT TO RESTART 00089500
RCUOPER DS 1F IOBLOK OPERATIONAL ON CONTROL UNIT TIME 00090000
RCUDVTBL DS 16H DEVICES ATTACHED - RDVSTART INDEX 00091000
SPACE 1 00092000
RCUSIZE EQU (*-RCUBLOK)/8 RCUBLOK SIZE IN DOUBLE WORDS 00093000
SPACE 1 00094000
ORG RCUCHA 00094100
RCUPRIME DS 1F POINTER TO THE PRIMEARY CONTROL UNIT 00094200
SPACE 1 00094300
* BITS DEFINED IN RCUSTAT 00095000
RCUBUSY EQU X'80' CONTROL UNIT BUSY 00096000
RCUSCED EQU X'40' IOB SCHEDULED ON CONTROL UNIT 00097000
RCUDISA EQU X'20' CONTROL UNIT DISABLED 00098000
RCUCHAOF EQU X'08' RCUCHA TO RCHBLOK PATH NOT AVAILABLE 00098400
RCUCHBOF EQU X'04' RCUCHB TO RCHBLOK PATH NOT AVAILABLE 00098800
RCUCHCOF EQU X'02' RCUCHC TO RCHBLOK PATH NOT AVAILABLE 00099200
RCUCHDOF EQU X'01' RCUCHD TO RCHBLOK PATH NOT AVAILABLE 00099600
SPACE 1 00100000
* BITS DEFINED IN RCUTYPE 00101000
RCUSHRD EQU X'80' THIS CU MAY ATTACH TO ONLY 1 SUBCHANNEL 00102000
RCU2701 EQU X'01' TCU IS A 2701 00103000
RCUSUB EQU X'40' THIS IS A SUBORDINATE CONTROL UNIT 00103100
RCU2702 EQU X'02' TCU IS A 2702 00104000
RCU2703 EQU X'03' TCU IS A 2703 00105000
EJECT 00106000
RDEVBLOK DSECT 00107000
SPACE 1 00108000
*** RDEVBLOK - REAL DEVICE BLOCK 00110000
* 00111000
* 0 +-----------+-----------+-----+-----+-----+-----+ 00112000
* | RDEVADD | RDEVLOCK | R*1 | R*2 | R*3 | R*4 | 00113000
* 8 +-----------+-----------+-----+-----+-----+-----+ 00114000
* | RDEVFIOB | RDEVLIOB | 00115000
* 10 +-----------------------+-----------------------+ 00116000
* | RDEVCUA | RDEVCUB | 00117000
* 18 +-----------------------+-----------------------+ 00118000
* | RDEVQUED | 00119000
* 20 +-----------------------+-----------------------+ 00120000
* | RDEVIOCT | RDEVAIOB | 00121000
* 28 +-----------------------+-----------+-----------+ 00122000
* | RDEVUSER | RDEVATT | RDEVCYL | 00123000
* 30 +-----------------------+-----------+-----------+ 00124000
* | RDEVSER | RDEVLNKS | 00125000
* 38 +-----+-----+-----+-----+-----+-----+-----+-----+ 00126000
* | R | D | E | V | T | C | T | L | 00127000
* 40 +-----+-----+-----+-----+-----+-----+-----+-----+ 00128000
* | RDEVTMAT | R*5 | R*6 | R*7 | R*8 | 00129000
* 48 +-----------------------+-----+-----+-----+-----+ 00130000
* | RDEVIOER | RDEVCTRS | 00131000
* 50 +-----------+-----------+-----------------------+ 00132125
* | RDEVNAME | R*9 | R*10| RDEVIOBL | 00132230
* 58 +-----------+-----------+-----------------------+ 00132300
* 00133000
*** RDEVBLOK - REAL DEVICE BLOCK 00134000
SPACE 1 00136000
RDEVADD DS 1H DEVICE ADDRESS 00137000
RDEVLDEV EQU X'80' Logical Device pseudo-RDEVBLOK HRC065DK 00137050
RDEVLDTR EQU X'90' Logical Device is terminating HRC065DK 00137100
RDEVLOCK DS 1H DEVICE LOCK 00138000
RDEVSTAT DS 1X R*1 DEVICE STATUS @VA08988 00139000
RDEVFLAG DS 1X R*2 DEVICE FLAGS, DEVICE DEPENDENT @VA08988 00139100
RDEVTYPC DS 1X R*3 DEVICE TYPE CLASS @VA08988 00139200
RDEVTYPE DS 1X R*4 DEVICE TYPE @VA08988 00139300
RDEVFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00143000
RDEVLIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00144000
RDEVCUA DS 1F POINTER TO RCUBLOK - INTERFACE A 00145000
RDEVCUB DS 1F POINTER TO RCUBLOK - INTERFACE B 00146000
RDEVQUED DS 1D IOBLOK QUEUED TIME - TOD CLOCK UNITS 00147000
RDEVIOCT DS 1F DEVICE IO COUNT 00148000
RDEVAIOB DS 1F ACTIVE IOBLOK 00149000
RDEVUSER DS 1F POINTER TO VMBLOK OF DEDICATED USER 00150000
RDEVATT DS 1H ATTACHED VIRTUAL ADDRESS 00151000
RDEVCYL DS 1H DASD - CURRENT CYLINDER LOCATION 00152000
RDEVSER DS CL6 DEVICE VOLUME SERIAL NUMBER 00153000
RDEVLNKS DS 1H DASD - NUMBER OF LINKS TO THIS DISK 00154000
RDEVTCTL DS 8X TERMINAL CONTROL BYTES 00155000
RDEVTMAT DS 1F DEVICE ATTACHED TIME - TOD CLOCK WORD 0 00156000
RDEVQCNT DS 1X R*5 NUMBER OF QUEUED IOBLOK'S @VA08988 00157000
RDEVSTA2 DS 1X R*6 DEVICE STATUS (2ND BYTE) @VA08988 00157100
RDEVMDL DS 1X R*7 DEVICE MODEL NUMBER @VA08988 00157200
RDEVFTR DS 1X R*8 DEVICE FEATURE CODE @VA08988 00157300
RDEVIOER DS 1F POINTER TO IOERBLOK FOR LAST CP ERROR 00161000
RDEVCTRS DS 1F POINTER TO ERROR COUNTER CONTROL BLOK 00162000
RDEVNAME DS 1H REAL DEVICE NAME 00162100
RDEVSTA3 DS 1X R*9 DEVICE STATUS (3RD BYTE) @VA08988 00162150
RDEVPCNT DS 1X R*10 DISAB/ENAB/PREP RETRY COUNT @VA08988 00162250
RDEVIOBL DS F IOBLOK QUEUE LOCK @V407594 00162300
SPACE 1 00163000
RDEVSIZE EQU (*-RDEVBLOK)/8 RDEVBLOK SIZE IN DOUBLE WORDS 00164000
SPACE 00165000
* FOR CP OWNED DEVICES 00166000
ORG RDEVUSER 00167000
RDEVALLN DS 1F ANCHOR FOR ALOCBLOK CHAIN FOR THIS DEVICE 00168000
RDEVCODE DS 1H DEVICE CODE - SYSOWNED INDEX 00169000
ORG RDEVTCTL 00170000
RDEVPAGE DS 1F ANCHOR FOR RECBLOK CHAIN FOR PAGING 00171000
RDEVRECS DS 1F ANCHOR FOR RECBLOK CHAIN FOR SPOOLING 00172000
RDEVPNT DS 1F POINTER TO NEXT RDEVBLOK FOR ALLOCATION 00173000
SPACE 00174000
* FOR SLOTTED 2301 PAGING DRUMS 00175000
ORG RDEVRECS 00176000
RDEVDCTL DS 1F POINTER TO DRUMTABL CONTROL BLOK 00177000
SPACE 1 00178000
* FOR GRAPHIC DEVICES 00179000
ORG RDEVCYL 00180000
RDEVCORD DS 1H CURRENT LINE CORRDINATES 00181000
RDEVGRTB DS 1F ADDRESS OF TABLE OF CCWS AND DATA STREAMS 00181100
RDEVTMCD DS 1X TERMINAL CODE 00181200
RDEVPART DS 1X GRAF: number of partitions HRC072DK
RDEVGRIC DS 1X FLAG BYTE FOR GRAPHIC ATTNS HRC101DK 00181400
RDEVEXTC EQU X'80' GRAF: has extended color HRC072DK 00181420
RDEVEXTH EQU X'40' GRAF: has extended highlight HRC072DK 00181425
RDEVPSS EQU X'20' GRAF: has program symbol sets HRC072DK 00181430
RDEVAD14 EQU X'10' GRAF: has 14-bit addressing HRC072DK 00181435
RDEVERPQ EQU X'08' GRAF: issue WSF RPQ at enable HRC072DK 00181440
* EQU X'04' GRAF: available bit HRC072DK 00181445
* EQU X'02' GRAF: available bit HRC072DK 00181450
GRAPHAT EQU X'01' TERMINAL RESET NEEDS TO BE DONE HRC101DK 00181500
DS 1X GRAF: available byte/bits HRC072DK 00181700
SPACE 1 00182000
* FOR SPOOLING UNIT RECORD DEVICES 00183000
ORG RDEVQUED 00184000
RDEVSPL DS 1F POINTER TO ACTIVE RSPLCTL BLOCK 00185000
RDEVCLAS DS 4C DEVICE CLASS(ES) 00186000
ORG RDEVUSER 00186050
RDEVDELP DS A ANCHOR FOR DELAY PURGE QUEUE @V60B9BA 00186100
RDEVCURP DS X CURR PAGE LENGTH IN HALF-INCHES @V60B9BA 00186150
DS X RESERVED @V60B9BA 00186200
RDEVMAXP DS X MAX NO. ENTRIES IN DEL PURGE QUEU@V60B9BA 00186250
RDEVFSEP DS X FCB FOR SEP PAGE (6, 8, OR 12) @V60B9BA 00186300
RDEVXSEP DS CL4 NAME OF CHAR ARR TBL FOR SEP PAGE@V60B9BA 00186350
RDEVEXTN DS 1A POINTER TO THE 3800 EXTENSION @V60B9BA 00186400
RDEVIMAG DS CL8 NAME OF CURRENT IMAGE LIBRARY @V60B9BA 00186450
RDEVOVLY DS CL4 NAME OF CURRENT FORMS OVERLAY @V60B9BA 00186500
SPACE 1 00187000
* FOR TERMINAL DEVICES 00188000
ORG RDEVQUED 00189000
RDEVCON DS 1F POINTER TO CONTASK LIST 00190000
RDEVAIRA DS 1F ATTENTION INTERRUPT RETURN ADDRESS 00191000
ORG RDEVTCTL 00192000
RDEVRCNT DS 1H START-STOP LINE RETRY COUNT 00194500
RDEVTFLG DS 1X ADDITIONAL TERMINAL FLAGS 00194610
RDEVGRTY DS 1X DISPLAY ALTERNATE SCREEN SIZE INDEX 00195620
RDEVLLEN DS 1X DEVICE LINE LENGTH 00197000
RDEVATNC DS 1X DEVICE ATTENTION COUNT 00198000
RDEVBASE DS 1H 370X BASE ADDRESS FOR EMULATOR LINE 00199100
ORG RDEVFTR 00201000
RDEVSADN DS 1X TERMINAL SET-ADDRESS NUMBER 00203000
SPACE 00204000
* FOR REAL 3705 COMMUNICATIONS CONTROLLER 00204100
ORG RDEVAIRA 00204200
RDEVEPDV DS 1F START OF FREE RDEVBLOK LIST FOR EP LINES 00204300
ORG RDEVCYL 00204400
RDEVMAX DS 1H HIGHEST VALID NCP RESOURCE NAME 00204500
RDEVNCP DS CL8 REFERENCE NAME OF ACTIVE 3705 NCP 00204600
RDEVNICL DS 1F POINTER TO NETWORK CONTROL LIST 00204700
RDEVCKPT DS 1F POINTER TO CKPBLOK FOR RE-ENABLE 00204800
SPACE 1 00204805
* FOR 3270 REMOTE SUPPORT 00204810
ORG RDEVNCP 00204815
RDEVBSC DS 1F PTR. TO BINARY SYNCHRONOUS CONTROL BLOCK 00204820
RDEVPDLY DS 1F POLL DELAY TIMER INTERVAL 00204825
EJECT 00204900
* BITS DEFINED IN RDEVTMCD 00205000
RDEVPTTC EQU X'00' PTTC/EBCD 00206000
RDEVCORR EQU X'04' CORRESPONDENCE 00207000
RDEVAPLP EQU X'08' APL PTTC/EBCD 00208000
RDEVAPLC EQU X'0C' APL CORRESPONDENCE 00209000
RDEVUSC8 EQU X'10' UASCII-8 LEVEL 00210000
RDEVTEXT EQU X'20' 3270 TEXT CHARACTER SET @VM00000 00210100
SPACE 1 00211000
* BITS DEFINED IN RDEVSTAT 00212000
RDEVBUSY EQU X'80' DEVICE BUSY 00213000
RDEVSCED EQU X'40' IOB SCHEDULED ON DEVICE 00214000
RDEVDISA EQU X'20' DEVICE DISABLED (OFFLINE) 00215000
RDEVRSVD EQU X'10' DEVICE RESERVED 00216000
RDEVIRM EQU X'08' DEVICE IN INTENSIVE ERROR RECORDING MODE 00217000
RDEVNRDY EQU X'04' DEVICE INTERVENTION REQUIRED 00218000
RDEVWAII EQU X'02' GRAF - IOBLOK PENDING; QUEUE REQUESTS 00218100
RDEVDED EQU X'01' DEDICATED DEVICE (ATTACHED TO A USER) 00219000
SPACE 1 00220000
* BITS DEFINED IN RDEVFLAG 00221000
RDEVSKUP EQU X'80' DASD - ASCENDING ORDER SEEK QUEUEING 00222000
RDEVPREF EQU X'40' DASD - VOLUME PREFERRED FOR PAGING 00223000
RDEVSYS EQU X'20' DASD - VOLUME ATTACHED TO SYSTEM 00224000
RDEVOWN EQU X'10' DASD - CP OWNED VOLUME 00225000
RDEVMOUT EQU X'08' DASD - VOLUME MOUNTED; NOT ATTACHED 00226000
RDEV333V EQU X'04' DASD - VOL DED AS 3330V @V60B6B8 00226100
RDEVSEL EQU X'02' DASD - DEVICE SELECTED FOR MSS @V60B6B8 00226110
* MOUNT 00226120
RDEVVMNT EQU X'01' DASD - MSS VOL MTD BY VM/370 CP @VA11344 00226125
SPACE 00226500
RDEVPSUP EQU X'80' CONSOLE - TERMINAL HAS PRINT SUPPRESS 00227000
RDEVPREP EQU X'40' CONSOLE - TERMINAL EXECUTING PREPARE COMD 00228000
RDEVACTV EQU X'20' CONSOLE - IOBLOK PENDING; QUEUE REQUEST 00229000
RDEVIDNT EQU X'10' CONSOLE - 2741 TERMINAL CODE IDENTIFIED 00230000
RDEVENAB EQU X'08' CONSOLE - DEVICE IS ENABLED 00231000
RDEVHIO EQU X'04' CONSOLE - NEXT INTERRUPT FROM A HALT I/O 00232000
RDEVDISB EQU X'02' CONSOLE - DEVICE IS TO BE DISABLED 00233000
RDEVEPMD EQU X'01' CONSOLE - 370X NCP RESOURCE IN EP MODE 00233300
SPACE 00233700
RDEVDRAN EQU X'80' SPOOLING - DEVICE OUTPUT DRAINED 00234000
RDEVTERM EQU X'40' SPOOLING - DEVICE OUTPUT TERMINATED 00235000
RDEVACNT EQU X'20' SPOOLING - DEVICE BUSY WITH ACCOUNTING 00236000
RDEVSPAC EQU X'10' SPOOLING - FORCE PRINTER TO SINGLE SPACE 00237000
RDEVRSTR EQU X'08' SPOOLING - RESTART CURRENT FILE 00238000
RDEVBACK EQU X'04' SPOOLING - BACKSPACE THE CURRENT FILE 00239000
RDEVSEP EQU X'02' SPOOLING - PRINT/PUNCH JOB SEPARATOR 00240000
RDEVLOAD EQU X'01' SPOOLING - UCS BUFFER VERIFIED 00241000
SPACE 00242050
RDEVLNCP EQU X'80' SPECIAL - NETWORK CONTROL PROGRAM ACTIVE 00242100
RDEVLCEP EQU X'40' SPECIAL - 270X EMULATION PROGRAM ACTIVE 00242150
RDEVSLOW EQU X'20' SPECIAL - 370X IN BUFFER SLOWDOWN MODE 00242200
RDEVAUTO EQU X'10' SPECIAL - AUTOMATIC DUMP/LOAD ENABLED 00242250
RDEVWAIT EQU X'08' SPECIAL - IOBLOK PENDING; QUEUE REQUESTS 00242300
RDEVEPLN EQU X'04' SPECIAL - EMULATOR LINES IN USE BY SYSTEM 00242350
RDEVRCVY EQU X'02' SPECIAL - AUTO DUMP/LOAD PROCESS ACTIVE 00242400
RDEVTBTU EQU X'01' SPECIAL - BTU TRACE REQUESTED 00242450
EJECT 00242500
* BITS DEFINED IN RDEVTFLG 00243000
RDEVLOG EQU X'80' TERM - LOGON PROCESS HAS BEEN INITIATED 00244000
RDEVREST EQU X'40' TERM - TERMINAL IN RESET PROCESS 00245000
RDEVATOF EQU X'20' TERM - SUPPRESS ATTENTION SIGNAL 00246000
SPACE 00247000
*RDEVLOG EQU X'80' GRAF - LOGON PROCESS HAS BEEN INITIATED 00248100
RDEVMORE EQU X'40' GRAF - SCREEN FULL, MORE DATA WAITING 00249000
RDEVRUN EQU X'20' GRAF - SCREEN IN RUNNING STATUS 00250000
RDEVREAD EQU X'10' GRAF - READ PENDING FOR SCREEN INPUT 00251000
RDEVCPNA EQU X'08' GRAF - LAST INPUT NOT ACCEPTED 00252000
RDEVTRQ EQU X'04' GRAF - TIMER REQUEST PENDING 00253000
RDEVCTL EQU X'02' GRAF - CONTROL FUNCTION INTERRUPT PENDING 00254000
RDEVHOLD EQU X'01' GRAF - SCREEN FULL, HOLD STATUS 00254500
SPACE 1 00255000
* BITS DEFINED IN RDEVSTA2 00256000
RDEVRACT EQU X'80' ACTIVE DEVICE IS BEING RESET 00257000
RDEVBUCH EQU X'40' DEVICE IS BUSY WITH THE CHANNEL 00258000
RDEVCONC EQU X'20' CONTINGENT CONNECTION PRESENT 00258100
RDEVNOHD EQU X'20' TERM - ISSUE HALT DEVICE IF OFF 00258200
RDEVDROP EQU X'10' LOGDROP/LOGHOLD INDICATED 00258225
RETRYSW EQU X'01' RETRY COUNT SWITCH 00258250
RDEVSYNC EQU X'04' ATTENTION DURING ACTIVE I/O @VA08275 00258275
RDEVALT EQU X'08' ALTERNATE PATH DEVICE 00258300
RDEVPURG EQU X'02' 3800 - PURGE FILES IN ERROR @V60B9BA 00258325
SPACE , HRC011DK 00258350
* BITS DEFINED IN RDEVMDL HRC011DK 00258375
RDEVECKD EQU X'C0' EXTENDED CKD FEATURE AVAILABLE HRC011DK 00258400
RDEVLOW EQU X'20' RUNNING WITH LOW SPEED CHANNEL HRC011DK 00258425
RDEVMD83 EQU X'0C' 3380 MODEL CLASS 3 HRC011DK 00258450
RDEVMD82 EQU X'08' 3380 MODEL CLASS 2 HRC011DK 00258475
RDEVMD81 EQU X'04' 3380 MODEL CLASS 1 HRC011DK 00258500
RDEVMD80 EQU X'00' 3380 MODEL CLASS 0 HRC011DK 00258525
RDEVMD03 EQU X'1E' 3380 AK4/BK4 HRC011DK 00258550
RDEVMD02 EQU X'0A' 3380 AE4/BE4 HRC011DK 00258575
RDEVMD01 EQU X'06' 3380 AD4/BD4/AJ4/BJ4/CJ2 HRC011DK 00258600
RDEVMD00 EQU X'02' 3380 AA4/B04 HRC011DK 00258625
SPACE , HRC011DK 00258650
* BITS DEFINED IN RDEVSTA3 HRC011DK 00258675
RDEVDIIP EQU X'80' DIAL IN PROCESS HRC011DK 00258700
RDEVPS EQU X'40' LOGICAL DEVICE RDEVBLOK HRC011DK 00258725
RDEVATSW EQU X'20' ATTN SWITCH HRC011DK 00258750
RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE HRC011DK 00258775
RDEVCKDX EQU X'08' DASD: SUPPORTS EXT-CKD CCWS HRC011DK 00258800
RDEVEWRT EQU X'08' GRAF: ERASE/WRITE REQUIRED HRC071DK 00258825
RDEVPBYP EQU X'04' MULTIPLE REQUESTS TO VARY SAME HRC011DK 00258850
RDEVCC3 EQU X'02' CC=3 DEVICE NOT AVAILABLE HRC011DK 00258875
RDEVFULL EQU X'01' 3270 VCONS IS IN FULL SCREEN MODEHRC062DK 00258900
EJECT , HRC062DK 00259040
RSPXBLOK DSECT , HRC062DK 00259044
SPACE 1 HRC062DK 00259048
*** RSPXBLOK - REAL DEVICE EXTENSION BLOCK 00259050
* 00259060
* 0 +-----------------------+-----------------------+ 00259070
* | RSPXCHR | RSPXCRWC | 00259080
* 8 +-----------------------+-----------------------+ 00259090
* | RSPXCMOD | RSPXFCB | 00259100
* 10 +-----------------------+-----------------------+ 00259110
* 00259120
*** RSPXBLOK - REAL DEVICE EXTENSION BLOCK 00259130
SPACE 1 00259140
RSPXCHR DS CL4 CHAR ARR TBL NOW IN 3800 @V60B9BA 00259150
RSPXCRWC DS 4X CURRENT CONTENTS OF WCGMS @V60B9BA 00259160
RSPXCMOD DS CL4 COPY MOD NOW IN 3800 @V60B9BA 00259170
RSPXFCB DS CL4 FCB NOW IN 3800 @V60B9BA 00259180
RSPXSIZE EQU (*-RSPXBLOK)/8 SIZE IN DOUBLE-WORDS @V60B9BA 00259190
EJECT 00259500
POP PRINT 00260000
SPACE 00261000
* 00262000
*-- If any LDEV control blocks are changed or offsets altered, 00263000
*-- you must reassemble HDKD7C,DMKGRF,DMKDIA,DMKLOG. 00264000
* 00265000
LDEVCTL DSECT Local work area 00266000
LDEVCNT DS F Number of LDEV slots 00267000
LDEVRSV1 DS F Unused, available 00268000
LDEVNUM EQU 32 Number of LDEVs to support 00269000
LDEVIDX DS (LDEVNUM)A Ptrs to LDEV slots 00270000
DS 0D Force doubleword size 00271000
LDEVCSZ EQU (*-LDEVCTL)/8 Size in doublewords 00272000
* 00273000
LDEVBLOK DSECT 00274000
LDEVRDEV DS (RDEVSIZE*8)X Area containing pseudo-RDEVBLOK 00275000
LDEVCSW DS D Last CSW issued by LDEV 00276000
LDEVUSER DS A -> VMBLOK owning this LDEV 00277000
LDEVQIOB DS A -> IOBLOK queued for delayed 00278000
* PRESENT (a READ is in progress) 00279000
LDEVLIST DS A -> PRESENT list of buffer ptrs 00280000
LDEVSTRM DS A -> LDEVDATA containing datastrm 00281000
LDEVRSV2 DS F Unused, available 00282000
LDEVSENS DS X Sense byte 00283000
LDEVFLG1 DS X Flag bits 00284000
LDEVF1DQ EQU X'80' 1... .... Another LDEVDATA queued 00285000
LDEVF1RD EQU X'40' .1.. .... LDEVDATA is for a READ oper 00286000
LDEVF1SH EQU X'20' ..1. .... Short length ACCEPT in progress 00287000
LDEVF1EX EQU X'10' ...1 .... LDEV has extended features 00288000
LDEVF1RB EQU X'08' .... 1... READ BUFFER issued 00289000
LDEVF1WR EQU X'04' .... .1.. WRITE then READ CCW encountered 00290000
LDEVF1PL EQU X'02' .... ..1. PRESENT list form aborted 00291000
* .... ..xx Available bits 00292000
LDEVFLG2 DS X Flag bits 00293000
LDEVF2WO EQU X'80' 1... .... CCW string contains WRITE oper 00294000
LDEVF2RO EQU X'40' .1.. .... CCW string contains READ oper 00295000
LDEVF2SN EQU X'20' ..1. .... SENSE/SENSE ID in progress 00296000
* ..xx xxxx Available bits 00297000
LDEVKEY DS X PSW key at time of PRESNT DIAG7C 00298000
* xxxx xxxx Available bits 00299000
DS 0D Force doubleword size 00300000
LDEVSIZE EQU (*-LDEVBLOK)/8 Size in doublewords 00301000
* 00302000
LDEVDATA DSECT Datastream buffer from CCWs 00303000
LDEVSLEN DS F # of doublewords in this stg 00304000
LDEVCMD DS X Command code of 1st CCW 00305000
LDEVDLEN DS AL3 Actual length of datastream 00306000
LDEVNEXT DS A -> next LDEVDATA or 0 00307000
LDEVIOB DS A -> IOBLOK assoc with datastr 00308000
LDEVDSIZ EQU (*-LDEVDATA)/8 d-word length of fixed portion 00309000
LDEVBUFF DS 0X Start of datastream 00310000
* 00311000