ibm:vm370-lib:copy:cchrec.copy_src
Table of Contents
CCHREC Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- CCHREC.COPY.txt
- *COPY CCHREC 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').CCHR01 @VA08768 00001210
- PRINT OFF,NOGEN @VA08768 00001220
- .CCHR01 ANOP 00001230
- CCHREC DSECT 00002000
- SPACE 1 00003000
- * 00004000
- *** CCHREC - CHANNEL CHECK HANDLER RECORD 00005000
- * 00006000
- * +-----+-----+-----+-----+-----------+-----+-----+ 00007000
- * 0 | C*1 | C*2 | C*3 | C*4 | CCSW2REV | C*5 | C*6 | 00008000
- * +-----+-----+-----+-----+-----------+-----+-----+ 00009000
- * 8 | CCDATE | 00010000
- * +-----------------------+-----------+-----------+ 00011000
- * 10 | CCCPUID | CCHMDL | CCHMCEL | 00012000
- * +-----------------------+-----------+-----------+ 00013000
- * 18 | CCPROGID | 00014000
- * +-----------------------------------------------+ 00015000
- * | | 00016000
- * 20 = FAILADD = 00017000
- * | | 00018000
- * +-----------------------------------------------+ 00019000
- * 30 | FAILCCW | 00020000
- * +-----------------------------------------------+ 00021000
- * 38 | FAILCSW | 00022000
- * +-----------------------+-----------------------+ 00023000
- * 40 | FAILECSW | CCDEVTYP | 00024000
- * +-----+-----------------+-----------+-----------+ 00025000
- * 48 | C*7 | CCHCUA | CCHCHCUA | CCHCLOGL | 00026000
- * +-----+-----------------+-----------+-----------+ 00027000
- * | | 00028000
- * = = 00029000
- * 50 = CCHLOG = 00030000
- * = = 00031000
- * | | 00032000
- * +-----------------------------------------------+ 00033000
- * 00034000
- *** CCHREC - CHANNEL CHECK HANDLER RECORD 00035000
- * 00036000
- SPACE 1 00037000
- CCRECTYP DS 1X C*1 - RECORD TYPE 00038000
- CCOPSYS DS 1X C*2 - OPERATING SYSTEM 00039000
- CCSW1 DS 1X C*3 - SWITCH ONE 00040000
- CCSW2 DS 1X C*4 - SWITCH TWO 00041000
- CCSW2REV DS 2X UNUSED 00042000
- CCRECNT DS 1X C*5 - RECORD COUNT 00043000
- CCRECNT1 DS 1X C*6 - UNUSED 00044000
- CCDATE DS 1D DATE AND TIME 00045000
- CCCPUID DS 1F CPU ID 00046100
- CCHMDL DS 1H CPU MACHINE MODEL NUMBER 00046200
- * ( 0158, 0168 ETC ) 00046300
- CCHMCEL DS 1H MAX LENGTH OF MACHINE (CPU) 00046400
- * DEPENDENT, 00046500
- * MACHINE CHECK EXTENDED LOGOUT AREA 00046600
- CCPROGID DS 1D USERID 00047000
- FAILADD DS 8H ACTIVE I/O UNITS 00048000
- FAILCCW DS 1D FAILIND CCW 00049000
- FAILCSW DS 1D FAILING CSW 00050000
- FAILECSW DS 0F FAILING ECSW 00051000
- IGPRGFLG DS CL1 PROGRAM FLAG BITS 00052000
- CCHSIOB EQU X'80' SIO BIT 00053000
- CCHINTB EQU X'40' INTERRUPT BIT 00054000
- CCHTIO EQU X'20' TEST I/O BIT 00054010
- CCHHIO EQU X'10' HALT I/O BIT 00054020
- CCHSNSB EQU X'04' SENSE DATA STORED BIT 00055000
- CCHCNTB EQU X'02' COUNT VALID BIT 00056000
- CCHNRYB EQU X'01' NO RETRY BIT 00057000
- IGBLAME DS CL1 PROBABLE SOURCE OF ERROR 00058000
- CCHCPU EQU X'80' CPU IS SOURCE OF ERROR 00059000
- CCHCHNL EQU X'40' CHANNEL IS SOURCE OF ERROR 00060000
- CCHSCUB EQU X'20' STORAGE CONTROL UNIT SOURCE OF ERROR 00061000
- CCHSTG EQU X'10' STORAGE IS SOURCE OF ERROR 00062000
- CCHINTFC EQU X'08' CONTROL UNIT IS SOURCE OF ERROR 00063010
- IGVALIDB DS CL1 VALIDITY INDICATOR BITS 00064000
- CCHINTFV EQU X'80' INTERFACE ADDRESS VALID 00065010
- CCHRCV EQU X'10' SEQUENCE CODE VALID 00065020
- CCHUSV EQU X'08' UNIT STATUS VALID 00065030
- CCHCMDV EQU X'04' COMMAND ADDRESS VALID 00067000
- CCHCAV EQU X'02' CHANNEL ADDRESS VALID 00068000
- CCHDAV EQU X'01' DEVICE ADDRESS VALID 00069000
- IGTERMSQ DS CL1 TERMINATION/SEQUENCE CODE BITS 00070000
- COMPSYS EQU X'C0' SYSTEM RESET 00071000
- COMPSEL EQU X'80' SELECTIVE RESET 00072000
- COMPFES EQU X'40' STOP, STACK, OR NORMAL TERMINATION 00073010
- CCHIOH EQU X'10' IO INTERFACE HANGUP OCCURRED 00073500
- COMPID EQU X'00' INTERFACE DISCONNECT 00074000
- CCHDI EQU X'08' I/O ERROR ALERT 00075010
- * SEQUENCE CODE BITS 00076000
- RTCODE0 EQU X'00' RETRY 00077000
- RTCODE1 EQU X'01' CODE 00078000
- RTCODE2 EQU X'02' VALUES 00079000
- RTCODE3 EQU X'03' FOR 00080000
- RTCODE4 EQU X'04' THE 00081000
- RTCODE5 EQU X'05' BUILDED 00082000
- RTCODE6 EQU X'06' ECSW 00083000
- RTCODE7 EQU X'07' * 00084000
- CCDEVTYP DS 1F CP DEVICE TYPE 00085000
- CCHANID DS CL1 C*7 CHANNEL IDENTIFICATION 00086100
- CCHCUA DS CL3 ACTUAL FAILING DEVICE ADDRESS 00086200
- CCHCHCUA DS CL2 ADDRESS FROM MACHINE LOCATION 00088000
- * HEX'BA' 00088020
- CCHCLOGL DS CL2 LENGTH OF CHANNEL LOGOUT 00088040
- CCHSIZE EQU (*-CCHREC)/8 SIZE IN DOUBLEWORDS 00088100
- CCHLOG80 DS 0CL112 2880 CHANNEL - 112 BYTES 00089000
- CCHLOG70 DS 0CL24 2870 CHANNEL - 24 BYTES 00090000
- CCHLOG60 DS 0CL24 2860 CHANNEL - 24 BYTES 00091000
- CCHADDR DS 1F UNIT ADDR STORED BY INTEGRATED CHANNEL 00091100
- CCHSIZE1 EQU (*-CCHREC) SIZE IN BYTES FOR INTEGRATED CHANNEL 00091200
- CCHLOG45 DS 0CL96 145 INTEGRATED CHANNEL - 96 BYTES 00095000
- CCHLOG35 DS 0CL24 135 INTEGRATED CHANNEL - 24 BYTES 00096000
- ********************************************************************** 00097000
- * THE BITS IN ENTSW ARE DEFINE BELOW 00098000
- ********************************************************************** 00099000
- SIOCCH EQU X'80' SIO ENTRY 00100000
- INTERCCH EQU X'40' I/O INTERRUPT ENTRY 00101000
- TIOCCH EQU X'20' TIO INSTRUCTION WAS ISSUED 00102050
- HIOCCH EQU X'10' HIO INSTRUCTION WAS ISSUED 00102100
- TERMSYS EQU X'08' TERMINATION OF OPERATING SYSTEM 00102150
- DEVCCH EQU X'04' DEVICE BLOCK ADDRESS EXIST 00102200
- IOBCCH EQU X'02' I/O BLOCK ADDRESS EXIST 00102250
- ********************************************************************** 00108000
- EJECT 00109000
- POP PRINT 00110000
- SPACE 00111000
ibm/vm370-lib/copy/cchrec.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator