*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