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