* 00050002 * %GOTO PCCAL1; /* 00100002 MACRO 00150002 IHAPCCA &DSECT=YES */ 00200002 *%PCCAL1 : ; 00250002 * 00300002 */* **************************************************************** */ 00350002 */* */ 00400002 */* PHYSICAL CONFIGURATION COMMUNICATION AREA */ 00450002 */* */ 00500002 */* OS/VS2 SU51, 02/17/77, LEVEL=4 */ 00501051 */* */ 00600002 */* METHOD OF ACCESS */ 00650002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00700002 */* USING ON PCCA GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00750002 */* PL/S - DCL PCCAPTR PTR */ 00800002 */* */ 00850002 */* **************************************************************** */ 00900002 *%GOTO PCCAL2; /* 00950002 SPACE 1 01000002 AIF ('&DSECT' EQ 'NO').PCCA010 01050002 PCCA DSECT 01100002 AGO .PCCA020 01150002 .PCCA010 ANOP 01200002 DS 0D 01250002 PCCA EQU * 01300002 .PCCA020 ANOP 01350002 PCCAPCCA DC CL4'PCCA' - CONTROL BLOCK ACRONYM IN EBCDIC 01400002 PCCACPID DC XL12'00' - CPU ID (CONTAINS SERIAL NUMBER) 01450002 PCCACPUA DC H'0' - PHYSICAL CPU ADDRESS 01500002 PCCACAFM DC H'0' - BIT MASK CORRESPONDING TO PHYSICAL CPU 01550002 * ADDRESS 01600002 PCCATQEP DC A(0) - TQE POINTER 01650002 PCCAPSAV DC A(0) - VIRTUAL ADDRESS OF PSA 01700002 PCCAPSAR DC A(0) - REAL ADDRESS OF PSA 01750002 PCCARV81 DS A - RESERVED MDC005 01755002 PCCARV82 DS A - RESERVED MDC005 01760002 PCCARV83 DS A - RESERVED MDC005 01765002 PCCARV84 DS A - RESERVED MDC005 01770002 PCCARV85 DS A - RESERVED MDC005 01775002 PCCARV86 DS A - RESERVED MDC005 01780002 PCCARV87 DS A - RESERVED MDC005 01785002 PCCARV88 DS A - RESERVED MDC005 01790002 PCCARV89 DS A - RESERVED MDC005 01795002 PCCARV90 DS A - RESERVED MDC005 01800002 PCCARV91 DS A - RESERVED MDC005 01805002 PCCARV92 DS A - RESERVED MDC005 01810002 PCCARV93 DS A - RESERVED MDC005 01815002 PCCARV94 DS A - RESERVED MDC005 01820002 PCCARV95 DS A - RESERVED MDC005 01825002 PCCARV96 DS A - RESERVED MDC005 01830002 PCCARV97 DS A - RESERVED MDC005 01835002 PCCARV98 DS A - RESERVED MDC005 01840002 PCCARV99 DS A - RESERVED MDC005 01845002 PCCARV9A DS A - RESERVED MDC005 01850002 PCCARV9B DS A - RESERVED MDC005 01855002 PCCARV9C DS A - RESERVED MDC005 01860002 PCCARV9D DS A - RESERVED MDC005 01865002 PCCARV9E DS A - RESERVED MDC005 01870002 PCCATMST DS 0BL4 - TIMER STATUS BYTES 01900002 PCCATMFL DC XL1'00' - FIRST BYTE OF PCCATMST 01950002 PCCAINIT EQU X'80' - ENTRY HAS BEEN INITIALIZED 02000002 PCCASYNC EQU X'40' - CLOCK OUT OF SYNCHRONIZATION 02050002 PCCAVKIL EQU X'20' - VARY CPU SHOULD BE CANCELLED 02100002 PCCAMCC EQU X'10' - PROCESSING FOR PERMANENTLY DAMAGED CLOCK 02150002 * COMPARATOR MUST BE DONE 02200002 PCCAMINT EQU X'08' - PROCESSING FOR CPU TIMER MUST BE DONE 02250002 PCCARV02 EQU X'04',,C'X' - RESERVED 02300002 PCCARV03 EQU X'02',,C'X' - RESERVED 02350002 PCCARV04 EQU X'01',,C'X' - RESERVED 02400002 PCCATODE DC XL1'00' - TOD CLOCK ERROR FLAGS 02450002 PCCANUTD EQU X'80' - CLOCK CANNOT BE USED 02500002 PCCANFTD EQU X'40' - CLOCK SHOULD NOT BE RESET 02550002 PCCACTTD EQU X'3F' - ERROR COUNT (6 BITS) 02600002 PCCACCE DC XL1'00' - FLAGS FOR CLOCK COMPARATOR 02650002 PCCANUCC EQU X'80' - CLOCK COMPARATOR CANNOT BE USED 02700002 PCCANFCC EQU X'40' - CLOCK COMPARATOR SHOULD NOT BE RESET 02750002 PCCACTCC EQU X'3F' - ERROR COUNT (6 BITS) 02800002 PCCAINTE DC XL1'00' - FLAGS FOR CPU TIMER 02850002 PCCANUIN EQU X'80' - CPU TIMER CANNOT BE USED 02900002 PCCANFIN EQU X'40' - CPU TIMER SHOULD NOT BE RESET 02950002 PCCACTIN EQU X'3F' - ERROR COUNT (6 BITS) 03000002 PCCARPB DC F'0' - EXTERNAL CALL SIGP BUFFER 03050002 PCCAEMSB DS 0CL16 - EMERGENCY SIGNAL SIGP BUFFER 03100002 PCCAEMSI DS 0BL4 - FIRST WORD OF EMS BUFFER 03150002 PCCARISP DC XL1'00' - CONTAINS PARALLEL/SERIAL REQUEST 03160002 * INDICATOR FOR REMOTE IMMEDIATE SIGNAL 03170002 PCCAPARL EQU X'80' - PARALLEL REQUEST MDC002 03171002 PCCASERL EQU X'40' - SERIAL REQUEST MDC003 03180002 PCCARV06 EQU X'20',,C'X' - RESERVED 03192002 PCCARV07 EQU X'10',,C'X' - RESERVED 03194002 PCCARV08 EQU X'08',,C'X' - RESERVED 03196002 PCCARV09 EQU X'04',,C'X' - RESERVED 03198002 PCCARV10 EQU X'02',,C'X' - RESERVED 03198402 PCCARV11 EQU X'01',,C'X' - RESERVED 03198802 PCCAEMS2 DC XL1'00' - SECOND BYTE OF PCCAEMSI 03199202 PCCARV12 EQU X'80',,C'X' - RESERVED 03199602 PCCARV13 EQU X'40',,C'X' - RESERVED 03199702 PCCARV14 EQU X'20',,C'X' - RESERVED 03199802 PCCARV15 EQU X'10',,C'X' - RESERVED 03204002 PCCARV16 EQU X'08',,C'X' - RESERVED 03208202 PCCARV17 EQU X'04',,C'X' - RESERVED 03212402 PCCARV18 EQU X'02',,C'X' - RESERVED 03216602 PCCARV19 EQU X'01',,C'X' - RESERVED 03226602 PCCAEMS3 DC XL1'00' - THIRD BYTE OF PCCAEMSI 03228602 PCCARV20 EQU X'80',,C'X' - RESERVED 03230602 PCCARV21 EQU X'40',,C'X' - RESERVED 03232602 PCCARV22 EQU X'20',,C'X' - RESERVED 03233002 PCCARV23 EQU X'10',,C'X' - RESERVED 03233102 PCCARV24 EQU X'08',,C'X' - RESERVED 03233202 PCCARV25 EQU X'04',,C'X' - RESERVED 03238802 PCCARV26 EQU X'02',,C'X' - RESERVED 03240802 PCCARV27 EQU X'01',,C'X' - RESERVED 03242802 PCCARMSB DC XL1'00' - CONTAINS RMS INDICATOR 03243202 PCCARV28 EQU X'80',,C'X' - RESERVED 03243602 PCCARV29 EQU X'40',,C'X' - RESERVED 03244002 PCCARV30 EQU X'20',,C'X' - RESERVED 03244102 PCCARV31 EQU X'10',,C'X' - RESERVED 03244202 PCCARV32 EQU X'08',,C'X' - RESERVED 03244302 PCCARV33 EQU X'04',,C'X' - RESERVED 03258202 PCCARV34 EQU X'02',,C'X' - RESERVED 03268202 PCCARMS EQU X'01' - SIGP WAS ISSUED VIA RMS 03270202 PCCAEMSP DC A(0) - REMOTE IMMEDIATE SIGNAL PARAMETER ADDRESS 03272202 PCCAEMSE DC A(0) - REMOTE IMMEDIATE SIGNAL RECEIVING ROUTINE 03286102 * ENTRY POINT ADDRESS 03296102 PCCAEMSA DC A(0) - PCCA ADDRESS OF THE RECEIVING ROUTINE 03300002 PCCAPWAV DC A(0) - VIRTUAL ADDRESS OF MCH PROCESSOR WORK 03350002 * AREA 03400002 PCCAPWAR DC A(0) - REAL ADDRESS OF MCH PROCESSOR WORK AREA 03450002 PCCALRBV DC A(0) - VIRTUAL ADDRESS OF MCH LOGREC BUFFER 03500002 PCCALRBR DC A(0) - REAL ADDRESS OF MCH LOGREC BUFFER 03550002 PCCAELAD DC A(0) - VIRTUAL ADDRESS OF I/O EXTENDED LOGOUT 03550551 * (IOEL) AREA (MDC310) @G51BP9A 03551051 PCCAELBA DC A(0) - VIRTUAL ADDRESS OF CCH LOGOUT BUFFER 03600051 * (MDC311) @G51BP9A 03601051 PCCACCHM DC A(0) - VIRTUAL ADDRESS OF CCH MESSAGE BUFFER 03602051 * (MDC312) @G51BP9A 03603051 PCCASRB DC XL44'00' - SRB FOR CCH TO SCHEDULE IECVIRST TO 03604051 * PROCESS CHANNEL ERRORS (MDC314) @G51BP9A 03605051 PCCACHAN DC XL1'00' - FLAG BYTE FOR CCH-IOS CHANNEL RECOVERY 03606051 * COMMUNICATION (MDC315) @G51BP9A 03607051 PCCAIRST EQU X'80' - IECVIRST IS PROCESSING CHANNEL ERRORS 03608051 * DETECTED DURING AN EXTERNAL MACHINE CHECK 03610051 * (MDC316) @G51BP9A 03611051 PCCAEXDM EQU X'40' - WHILE PCCAIRST BIT WAS SET, MORE CHANNEL 03612051 * ERRORS WERE DETECTED WHILE PROCESSING 03613051 * ANOTHER EXTERNAL DAMAGE MACHINE CHECK 03614051 * (MDC317) @G51BP9A 03615051 PCCAR107 EQU X'20',,C'X' - RESERVED @G51BP9A 03616051 PCCAR108 EQU X'10',,C'X' - RESERVED @G51BP9A 03617051 PCCAR109 EQU X'08',,C'X' - RESERVED @G51BP9A 03618051 PCCAR110 EQU X'04',,C'X' - RESERVED @G51BP9A 03619051 PCCAR111 EQU X'02',,C'X' - RESERVED @G51BP9A 03620051 PCCAR112 EQU X'01',,C'X' - RESERVED @G51BP9A 03621051 PCCASRBL DC XL1'00' - LOCK BYTE FOR COMMUNICATING CHANNEL 03622051 * ERRORS BETWEEN CCH AND IOS 03623051 * (MDC318) @G51BP9A 03624051 PCCASRBA EQU X'00' - SRB IS AVAILABLE FOR SCHEDULING 03625051 * (MDC319) @G51BP9A 03626051 PCCASRBN EQU X'FF' - SRB IS NOT AVAILABLE FOR SCHEDULING 03627051 * (MDC320) @G51BP9A 03628051 PCCAR113 DC H'0' - RESERVED (MDC304) @G51BP9A 03629051 PCCAR106 DC 52XL1'00' - RESERVED (MDC304) @G51BP9A 03630051 DS 0D - ALIGN PCCAWERP TO DOUBLEWORD 03649051 PCCAWERP DS 0XL8 - WORK ERPIB FOR CCH 03650002 PCCACHUB DC A(0) - UCB ADDRESS OF THE DEVICE IN USE WHEN 03651002 * THE CHANNEL-DETECTED ERROR OCCURRED. 03652002 * THIS FIELD IS ZERO IF CCH HAS NOT 03654002 * CREATED AN ERPIB FOR THE ERP'S. 03654402 PCCACHPF DC XL1'00' - PROGRAM FLAGS. INDICATES THE SELECTION 03655002 * OR INTERRUPTION SEQUENCE WHEN THE CSW WAS 03656002 * STORED. 03657002 PCCACSIO EQU X'80' - THE CSW WAS STORED AFTER A START I/O 03658002 * INSTRUCTION WAS EXECUTED. 03659002 PCCACINT EQU X'40' - THE CSW WAS STORED AFTER AN I/O 03660002 * INTERRUPTION 03661002 PCCACTIO EQU X'20' - THE CSW WAS STORED AFTER A TEST I/O 03662002 * INSTRUCTION WAS EXECUTED. 03663002 PCCACHIO EQU X'10' - THE CSW WAS STORED AFTER A HALT I/O 03664002 * INSTRUCTION WAS EXECUTED 03665002 PCCARV37 EQU X'08',,C'X' - RESERVED 03666002 PCCACSNS EQU X'04' - THE SENSE DATA WAS STORED 03667002 PCCACCNT EQU X'02' - THE CSW COUNT IS VALID 03668002 PCCACNOR EQU X'01' - NO RETRY IS TO BE ATTEMPTED UNDER ANY 03669002 * CONDITIONS 03670002 PCCACHBL DC XL1'00' - PROBABLE SOURCE OF ERROR 03671002 PCCACCPU EQU X'80' - CPU ERROR 03672002 PCCACCHA EQU X'40' - CHANNEL ERROR 03673002 PCCACSCU EQU X'20' - STORAGE CONTROL UNIT ERROR 03674002 PCCACSTG EQU X'10' - STORAGE ERROR 03675002 PCCACCUE EQU X'08' - CONTROL UNIT ERROR 03676002 PCCARV38 EQU X'04',,C'X' - RESERVED 03677002 PCCARV39 EQU X'02',,C'X' - RESERVED 03678002 PCCARV40 EQU X'01',,C'X' - RESERVED 03679002 PCCACHVA DC XL1'00' - VALIDITY INDICATORS. WHEN THE DESIGNATED 03680002 * FIELD IS STORED BY THE CHANNEL WITH THE 03681002 * CORRECT CONTENTS THE VALIDITY BIT IS ONE. 03682002 * THE VALIDITY BIT FOR NON-STORED FIELDS 03683002 * IS MEANINGLESS. 03684002 PCCACITF EQU X'80' - INTERFACE ADDRESS IS VALID 03685002 PCCARV41 EQU X'40',,C'X' - RESERVED 03686002 PCCARV42 EQU X'20',,C'X' - RESERVED 03686202 PCCACSQV EQU X'10' - SEQUENCE CODE IS VALID 03687002 PCCACUNS EQU X'08' - UNIT STATUS IS VALID 03688002 PCCACCMD EQU X'04' - COMMAND ADDRESS IS VALID. THE CSW 03689002 * CONTAINS A VALID COMMAND ADDRESS. 03690002 PCCACCHV EQU X'02' - CHANNEL ADDRESS IS VALID 03691002 PCCACDAV EQU X'01' - DEVICE ADDRESS IS VALID 03692002 PCCACHTS DC XL1'00' - TERMINATION AND SEQUENCE (RETRY) CODES 03693002 PCCACTEC EQU X'C0' - TWO-BIT TERMINATION CODE. THIS CODE 03694002 * SPECIFIES THE TERMINATION SIGNALS USED ON 03695002 * THE I/O INTERFACE AFTER THE CHANNEL 03696002 * DETECTED THE ERROR. THIS FIELD HAS 03697002 * MEANING ONLY WHEN ICC OR CCC IS INDICATED 03698002 * IN THE CSW. THE FOLLOWING 4 EQU'S ARE 03699002 * THE VALUES FOR TERMINATION CODE. 03699402 PCCACTC0 EQU X'00' - INTERFACE DISCONNECT 03699602 PCCACTC1 EQU X'40' - STOP, STACK OR NORMAL TERMINATION 03699802 PCCACTC2 EQU X'80' - SELECTIVE RESET 03699902 PCCACTC3 EQU X'C0' - SYSTEM RESET 03700902 PCCARV43 EQU X'20',,C'X' - RESERVED 03701102 PCCARV44 EQU X'10',,C'X' - RESERVED 03701302 PCCACDIN EQU X'08' - I/O ERROR ALERT 03701502 PCCACSEQ EQU X'07' - THREE-BIT SEQUENCE CODE. THESE CODES 03701702 * HAVE CHANNEL-DEPENDENT MEANINGS. 03701802 PCCACHS1 DC XL1'00' - CCH INTERNAL SWITCH 1 03702802 PCCACCMP EQU X'80' - COMMAND REGISTER PARITY IS VALID 03702902 PCCACNRE EQU X'40' - CCH WILL NOT CREATE A RECORD FOR THIS 03703302 * ERROR MDC006 03703702 PCCACFRR EQU X'20' - THE CCH FRR IS IN THE STACK MDC007 03704102 PCCACNLS EQU X'10' - CCH IS TO PERFORM THE RECORD FUNCTION 03704602 * ONLY. AN ERPIB IS NOT TO BE PLACED IN 03704802 * THE EWA. 03705002 PCCACAND EQU X'08' - ATTENTION HAS BEEN PRESENTED 03705202 PCCACIBC EQU X'04' - AN ERPIB FOR THIS ERROR HAS ALREADY BEEN 03705302 * CREATED 03705602 PCCACUCB EQU X'02' - UCB INVALID BIT 03705802 PCCARV47 EQU X'01',,C'X' - RESERVED 03706002 PCCACHS2 DC XL1'00' - CCH INTERNAL SWITCH 2 03706102 PCCACIOR EQU X'80' - I/O RESTART FUNCTION REQUIRED 03706302 PCCACALT EQU X'40' - THE ALTERNATE RETURN TO IOS IS TO BE USED 03706602 PCCACMOD EQU X'20' - NO MODULE IS AVAILABLE TO ANALYZE THE 03706802 * CHANNEL LOGOUT 03707002 PCCACNLG EQU X'10' - CCH DETECTED A FAILURE TO LOG OR FAILURE 03707102 * TO STORE AN ECSW CONDITION 03707202 PCCACURC EQU X'08' - THE STIDC FIELD OF THE CAT ENTRY IS 03707602 * VALID BUT NOT THAT OF A SUPPORTED 03710202 * CHANNEL MDC011 03712202 PCCACCRA EQU X'04' - CHANNEL RECONFIGURATION HARDWARE ACTIVE 03713603 * FOR THE CHANNEL (MDC300) @Y30CQ9A 03714603 PCCARV50 EQU X'02',,C'X' - RESERVED 03716202 PCCARV51 EQU X'01',,C'X' - RESERVED 03718802 PCCACHRB DC XL1'00' - CCH RECORD BYTE 03721402 PCCACSIB EQU X'80' - ERROR ON SIO 03724002 PCCACINB EQU X'40' - ERROR ON INTERRUPT 03726602 PCCACTIB EQU X'20' - ERROR ON TIO 03729202 PCCACHIB EQU X'10' - ERROR ON HIO 03731802 PCCARV52 EQU X'08',,C'X' - RESERVED 03734402 PCCACSNB EQU X'04' - SENSE DATA STORED 03737002 PCCACCVB EQU X'02' - COUNT VALID 03739602 PCCACNRB EQU X'01' - NO RETRY 03742202 PCCAIOSI DC XL1'00' - IOS INTERCEPT BYTE 03744802 PCCACHW1 DC F'0' - CCH WORK AREA 1 03747402 PCCACHW2 DC F'0' - CCH WORK AREA 2 03750002 PCCALOGL DC H'0' - LENGTH OF CHANNEL LOGOUT FOR CURRENT 03770051 * ERROR (MDC305) @G51BP9A 03800051 PCCACELL DC H'0' - MAXIMUM LENGTH OF I/O EXTENDED LOGOUT 03810051 * (IOEL) AREA (MDC313) @G51BP9A 03850051 PCCALGP1 DC XL1'00' - LOGOUT PARITY AREA 1 (MDC306) @G51BP9A 03860051 PCCALGP2 DC XL1'00' - LOGOUT PARITY AREA 2 (MDC307) @G51BP9A 03900051 PCCACHPB DC FL1'0' - LOGOUT PARITY BYTE COUNT 04200002 * (MDC308) @G51BP9A 04210051 PCCARV05 DC XL1'00' - RESERVED FOR CCH (MDC309) @G51BP9A 04220051 PCCACHF1 DC XL1'00' - CCH FOOTPRINT BYTE 1 04251002 PCCACF11 EQU X'80' - IOS GPR'S SAVED 04252002 PCCACF12 EQU X'40' - UCB ADDRESS IS ZERO 04253002 PCCACF13 EQU X'20' - ERPIB EXISTS 04254002 PCCACF14 EQU X'10' - IGFCCHSI ENTERED 04255002 PCCACF15 EQU X'08' - IGFCCHII ENTERED 04256002 PCCACF16 EQU X'04' - IGFCCHFE ENTERED 04257002 PCCACF17 EQU X'02' - IGFC60 ENTERED 04258002 PCCACF18 EQU X'01' - IGFC70 ENTERED 04259002 PCCACHF2 DC XL1'00' - CCH FOOTPRINT BYTE 2 04260002 PCCACF21 EQU X'80' - IGFC80 ENTERED 04261002 PCCACF22 EQU X'40' - IGFCIC ENTERED 04262002 PCCACF23 EQU X'20' - IGFCCHRD ENTERED MDC008 04263002 PCCACF24 EQU X'10' - IGFCCHMP ENTERED 04264002 PCCACF25 EQU X'08' - IGFCCHUC ENTERED 04265002 PCCACF26 EQU X'04' - IGFCCHAS ENTERED MDC009 04266002 PCCACF27 EQU X'02' - IGFCCHIO ENTERED 04267002 PCCACF28 EQU X'01' - EXIT CCH 04268002 PCCACHF3 DC XL1'00' - CCH FOOTPRINT BYTE 3 04269002 PCCAISRB EQU X'80' - SRB FOR IECVIRST SCHEDULED 04269151 * (MDC321) @G51BP9A 04269251 PCCASLCK EQU X'40' - SPACE ALLOCATION LOCK HELD BY CCH 04269351 * (MDC322) @G51BP9A 04269551 PCCARV66 EQU X'20',,C'X' - RESERVED 04269751 PCCARV67 EQU X'10',,C'X' - RESERVED 04269802 PCCARV68 EQU X'08',,C'X' - RESERVED 04269902 PCCARV69 EQU X'04',,C'X' - RESERVED 04270902 PCCARV70 EQU X'02',,C'X' - RESERVED 04271102 PCCARV71 EQU X'01',,C'X' - RESERVED 04271302 PCCACHF4 DC XL1'00' - CCH FOOTPRINT BYTE 4 04271902 PCCARV72 EQU X'80',,C'X' - RESERVED 04272902 PCCARV73 EQU X'40',,C'X' - RESERVED 04273902 PCCARV74 EQU X'20',,C'X' - RESERVED 04274902 PCCARV75 EQU X'10',,C'X' - RESERVED 04275902 PCCARV76 EQU X'08',,C'X' - RESERVED 04276902 PCCARV77 EQU X'04',,C'X' - RESERVED 04277902 PCCARV78 EQU X'02',,C'X' - RESERVED 04278902 PCCARV79 EQU X'01',,C'X' - RESERVED 04279902 PCCACHSV DC 3F'0' - CCH INTERNAL SAVE AREA. FIRST WORD 04300002 * CONTAINS THE ADDRESS OF THE CURRENT CCH 04300402 * RECORD BUFFER MDC010 04300802 PCCACHID DC XL8'00' - STORE CHANNEL ID WORK AREA 04302002 PCCALOGA DC A(0) - ADDRESS OF CHANNEL LOGOUT MDC004 04303002 PCCARV54 DC A(0) - RESERVED 04304002 PCCARV55 DC A(0) - RESERVED 04305002 PCCARV56 DC A(0) - RESERVED 04306002 PCCARV57 DC A(0) - RESERVED 04307002 PCCARV58 DC A(0) - RESERVED 04308002 PCCARV59 DC A(0) - RESERVED 04309002 PCCARV60 DC A(0) - RESERVED 04309202 PCCARV61 DC A(0) - RESERVED 04309402 PCCARV62 DC A(0) - RESERVED 04309602 PCCARV63 DC A(0) - RESERVED 04309802 PCCAATTR DC XL1'00' - PROCESSOR ATTRIBUTES (MDC302) @G47AN9A 04309947 PCCACPUM EQU X'80' - INDICATOR THAT DEAD CPU HAD A MALFUNCTION 04310047 * (MDC301) @G47AN9A 04310947 PCCAIO EQU X'40' - PROCESSOR HAS I/O CAPABILITY 04311847 * (MDC303) @G47AN9A 04312747 PCCAR100 EQU X'20',,C'X' - RESERVED @G47AN9A 04313647 PCCAR101 EQU X'10',,C'X' - RESERVED @G47AN9A 04314547 PCCAR102 EQU X'08',,C'X' - RESERVED @G47AN9A 04315447 PCCAR103 EQU X'04',,C'X' - RESERVED @G47AN9A 04316347 PCCAR104 EQU X'02',,C'X' - RESERVED @G47AN9A 04317247 PCCAR105 EQU X'01',,C'X' - RESERVED @G47AN9A 04318147 PCCARV01 DC XL1'00' - RESERVED 04320002 PCCARV35 DC H'0' - RESERVED 04330002 PCCARV36 DC F'0' - RESERVED 04340002 PCCACAT DC XL128'00' - CHANNEL AVAILABILITY TABLE (16 CHANNELS, 04341002 * 8 BYTES PER CHANNEL) MDC005 04342002 DC XL72'00' - RESERVED 04350002 MEND , - */ 04400002 *%PCCAL2 : ; 04450002 * 04500002 *DECLARE 04550002 * 1 PCCA BASED(PCCAPTR) BDY(DWORD), 04600002 * 2 PCCAPCCA CHAR(4) BDY(WORD), /* CONTROL BLOCK ACRONYM IN 04650002 * EBCDIC */ 04700002 * 2 PCCACPID CHAR(12) BDY(WORD), /* CPU ID (CONTAINS SERIAL 04750002 * NUMBER) */ 04800002 * 2 PCCACPUA PTR(15), /* PHYSICAL CPU ADDRESS */ 04850002 * 2 PCCACAFM BIT(16) BDY(WORD,3), /* BIT MASK CORRESPONDING TO 04900002 * PHYSICAL CPU ADDRESS */ 04950002 * 2 PCCATQEP PTR(31), /* TQE POINTER */ 05050002 * 2 PCCAPSAV PTR(31), /* VIRTUAL ADDRESS OF PSA */ 05100002 * 2 PCCAPSAR PTR(31), /* REAL ADDRESS OF PSA */ 05150002 * 2 PCCARV81 PTR(31), /* RESERVED MDC005*/ 05155002 * 2 PCCARV82 PTR(31), /* RESERVED MDC005*/ 05160002 * 2 PCCARV83 PTR(31), /* RESERVED MDC005*/ 05165002 * 2 PCCARV84 PTR(31), /* RESERVED MDC005*/ 05170002 * 2 PCCARV85 PTR(31), /* RESERVED MDC005*/ 05175002 * 2 PCCARV86 PTR(31), /* RESERVED MDC005*/ 05180002 * 2 PCCARV87 PTR(31), /* RESERVED MDC005*/ 05185002 * 2 PCCARV88 PTR(31), /* RESERVED MDC005*/ 05190002 * 2 PCCARV89 PTR(31), /* RESERVED MDC005*/ 05195002 * 2 PCCARV90 PTR(31), /* RESERVED MDC005*/ 05200002 * 2 PCCARV91 PTR(31), /* RESERVED MDC005*/ 05205002 * 2 PCCARV92 PTR(31), /* RESERVED MDC005*/ 05210002 * 2 PCCARV93 PTR(31), /* RESERVED MDC005*/ 05215002 * 2 PCCARV94 PTR(31), /* RESERVED MDC005*/ 05220002 * 2 PCCARV95 PTR(31), /* RESERVED MDC005*/ 05225002 * 2 PCCARV96 PTR(31), /* RESERVED MDC005*/ 05230002 * 2 PCCARV97 PTR(31), /* RESERVED MDC005*/ 05235002 * 2 PCCARV98 PTR(31), /* RESERVED MDC005*/ 05240002 * 2 PCCARV99 PTR(31), /* RESERVED MDC005*/ 05245002 * 2 PCCARV9A PTR(31), /* RESERVED MDC005*/ 05250002 * 2 PCCARV9B PTR(31), /* RESERVED MDC005*/ 05255002 * 2 PCCARV9C PTR(31), /* RESERVED MDC005*/ 05260002 * 2 PCCARV9D PTR(31), /* RESERVED MDC005*/ 05265002 * 2 PCCARV9E PTR(31), /* RESERVED MDC005*/ 05270002 * 2 PCCATMST CHAR(4) BDY(WORD), /* TIMER STATUS BYTES */ 05350002 * 3 PCCATMFL BIT(8), /* FIRST BYTE OF PCCATMST */ 05400002 * 4 PCCAINIT BIT(1), /* ENTRY HAS BEEN 05450002 * INITIALIZED */ 05500002 * 4 PCCASYNC BIT(1), /* CLOCK OUT OF 05550002 * SYNCHRONIZATION */ 05600002 * 4 PCCAVKIL BIT(1), /* VARY CPU SHOULD BE 05650002 * CANCELLED */ 05700002 * 4 PCCAMCC BIT(1), /* PROCESSING FOR 05750002 * PERMANENTLY DAMAGED CLOCK 05800002 * COMPARATOR MUST BE DONE */ 05850002 * 4 PCCAMINT BIT(1), /* PROCESSING FOR CPU TIMER 05900002 * MUST BE DONE */ 05950002 * 4 PCCARV02 BIT(1), /* RESERVED */ 06000002 * 4 PCCARV03 BIT(1), /* RESERVED */ 06050002 * 4 PCCARV04 BIT(1), /* RESERVED */ 06100002 * 3 PCCATODE PTR(8), /* TOD CLOCK ERROR FLAGS */ 06150002 * 4 PCCANUTD BIT(1), /* CLOCK CANNOT BE USED */ 06200002 * 4 PCCANFTD BIT(1), /* CLOCK SHOULD NOT BE RESET*/ 06250002 * 4 PCCACTTD BIT(6), /* ERROR COUNT */ 06300002 * 3 PCCACCE PTR(8), /* FLAGS FOR CLOCK 06350002 * COMPARATOR */ 06400002 * 4 PCCANUCC BIT(1), /* CLOCK COMPARATOR CANNOT 06450002 * BE USED */ 06500002 * 4 PCCANFCC BIT(1), /* CLOCK COMPARATOR SHOULD 06550002 * NOT BE RESET */ 06600002 * 4 PCCACTCC BIT(6), /* ERROR COUNT */ 06650002 * 3 PCCAINTE PTR(8), /* FLAGS FOR CPU TIMER */ 06700002 * 4 PCCANUIN BIT(1), /* CPU TIMER CANNOT BE USED */ 06750002 * 4 PCCANFIN BIT(1), /* CPU TIMER SHOULD NOT BE 06800002 * RESET */ 06850002 * 4 PCCACTIN BIT(6), /* ERROR COUNT */ 06900002 * 2 PCCARPB FIXED(31), /* EXTERNAL CALL SIGP BUFFER*/ 06950002 * 2 PCCAEMSB CHAR(16) BDY(DWORD), /* EMERGENCY SIGNAL SIGP 07000002 * BUFFER */ 07050002 * 3 PCCAEMSI CHAR(4) BDY(WORD), /* FIRST WORD OF EMS BUFFER */ 07100002 * 4 PCCARISP BIT(8), /* CONTAINS PARALLEL/SERIAL 07150002 * REQUEST INDICATOR FOR 07200002 * REMOTE IMMEDIATE SIGNAL */ 07250002 * 5 PCCAPARL BIT(1), /* PARALLEL REQUEST MDC002*/ 07251002 * 5 PCCASERL BIT(1), /* SERIAL REQUEST MDC003*/ 07300002 * 5 PCCARV06 BIT(1), /* RESERVED */ 07400002 * 5 PCCARV07 BIT(1), /* RESERVED */ 07450002 * 5 PCCARV08 BIT(1), /* RESERVED */ 07500002 * 5 PCCARV09 BIT(1), /* RESERVED */ 07550002 * 5 PCCARV10 BIT(1), /* RESERVED */ 07600002 * 5 PCCARV11 BIT(1), /* RESERVED */ 07650002 * 4 PCCAEMS2 BIT(8), /* SECOND BYTE OF PCCAEMSI */ 07700002 * 5 PCCARV12 BIT(1), /* RESERVED */ 07750002 * 5 PCCARV13 BIT(1), /* RESERVED */ 07800002 * 5 PCCARV14 BIT(1), /* RESERVED */ 07850002 * 5 PCCARV15 BIT(1), /* RESERVED */ 07900002 * 5 PCCARV16 BIT(1), /* RESERVED */ 07950002 * 5 PCCARV17 BIT(1), /* RESERVED */ 08000002 * 5 PCCARV18 BIT(1), /* RESERVED */ 08050002 * 5 PCCARV19 BIT(1), /* RESERVED */ 08100002 * 4 PCCAEMS3 BIT(8), /* THIRD BYTE OF PCCAEMSI */ 08150002 * 5 PCCARV20 BIT(1), /* RESERVED */ 08200002 * 5 PCCARV21 BIT(1), /* RESERVED */ 08250002 * 5 PCCARV22 BIT(1), /* RESERVED */ 08300002 * 5 PCCARV23 BIT(1), /* RESERVED */ 08350002 * 5 PCCARV24 BIT(1), /* RESERVED */ 08400002 * 5 PCCARV25 BIT(1), /* RESERVED */ 08450002 * 5 PCCARV26 BIT(1), /* RESERVED */ 08500002 * 5 PCCARV27 BIT(1), /* RESERVED */ 08550002 * 4 PCCARMSB BIT(8), /* CONTAINS RMS INDICATOR */ 08600002 * 5 PCCARV28 BIT(1), /* RESERVED */ 08650002 * 5 PCCARV29 BIT(1), /* RESERVED */ 08700002 * 5 PCCARV30 BIT(1), /* RESERVED */ 08750002 * 5 PCCARV31 BIT(1), /* RESERVED */ 08800002 * 5 PCCARV32 BIT(1), /* RESERVED */ 08850002 * 5 PCCARV33 BIT(1), /* RESERVED */ 08900002 * 5 PCCARV34 BIT(1), /* RESERVED */ 08950002 * 5 PCCARMS BIT(1), /* SIGP WAS ISSUED VIA RMS */ 09000002 * 3 PCCAEMSP PTR(31), /* REMOTE IMMEDIATE SIGNAL 09050002 * PARAMETER ADDRESS */ 09100002 * 3 PCCAEMSE PTR(31), /* REMOTE IMMEDIATE SIGNAL 09150002 * RECEIVING ROUTINE ENTRY 09200002 * POINT ADDRESS */ 09250002 * 3 PCCAEMSA PTR(31), /* PCCA ADDRESS OF THE 09300002 * RECEIVING ROUTINE */ 09350002 * 2 PCCAPWAV PTR(31), /* VIRTUAL ADDRESS OF MCH 09400002 * PROCESSOR WORK AREA */ 09450002 * 2 PCCAPWAR PTR(31), /* REAL ADDRESS OF MCH 09500002 * PROCESSOR WORK AREA */ 09550002 * 2 PCCALRBV PTR(31), /* VIRTUAL ADDRESS OF MCH 09600002 * LOGREC BUFFER */ 09650002 * 2 PCCALRBR PTR(31), /* REAL ADDRESS OF MCH 09700002 * LOGREC BUFFER */ 09750002 * 2 PCCAELAD PTR(31), /* VIRTUAL ADDRESS OF I/O 09770051 * EXTENDED LOGOUT (IOEL) 09800051 * AREA (MDC310) @G51BP9A*/ 09850051 * 2 PCCAELBA PTR(31), /* VIRTUAL ADDRESS OF CCH 09855051 * LOGOUT BUFFER 09860051 * (MDC311) @G51BP9A*/ 09865051 * 2 PCCACCHM PTR(31), /* VIRTUAL ADDRESS OF CCH 09870051 * MESSAGE BUFFER 09875051 * (MDC312) @G51BP9A*/ 09880051 * 2 PCCASRB CHAR(44) BDY(WORD), /* SRB FOR CCH TO SCHEDULE 09880351 * IECVIRST TO PROCESS 09880651 * CHANNEL ERRORS 09880951 * (MDC314) @G51BP9A*/ 09881251 * 2 PCCACHAN BIT(8), /* FLAG BYTE FOR CCH-IOS 09881551 * CHANNEL RECOVERY 09881851 * COMMUNICATION 09882151 * (MDC315) @G51BP9A*/ 09882451 * 3 PCCAIRST BIT(1), /* IECVIRST IS PROCESSING 09882751 * CHANNEL ERRORS DETECTED 09883051 * DURING AN EXTERNAL 09883351 * MACHINE CHECK 09883651 * (MDC316) @G51BP9A*/ 09883951 * 3 PCCAEXDM BIT(1), /* WHILE PCCAIRST BIT WAS 09884251 * SET, MORE CHANNEL ERRORS 09885051 * WERE DETECTED WHILE 09885251 * PROCESSING ANOTHER 09885451 * EXTERNAL DAMAGE MACHINE 09885651 * CHECK (MDC317) @G51BP9A*/ 09885851 * 3 PCCAR107 BIT(1), /* RESERVED @G51BP9A*/ 09886051 * 3 PCCAR108 BIT(1), /* RESERVED @G51BP9A*/ 09886251 * 3 PCCAR109 BIT(1), /* RESERVED @G51BP9A*/ 09886451 * 3 PCCAR110 BIT(1), /* RESERVED @G51BP9A*/ 09886651 * 3 PCCAR111 BIT(1), /* RESERVED @G51BP9A*/ 09886851 * 3 PCCAR112 BIT(1), /* RESERVED @G51BP9A*/ 09887051 * 2 PCCASRBL CHAR(1), /* LOCK BYTE FOR 09887151 * COMMUNICATING CHANNEL 09887451 * ERRORS BETWEEN CCH AND 09887651 * IOS (MDC318) @G51BP9A*/ 09887751 * %PCCASRBA='''00''X'; /* SRB IS AVAILABLE FOR 09888051 * SCHEDULING 09888251 * (MDC319) @G51BP9A*/ 09888451 * %PCCASRBN='''FF''X'; /* SRB IS NOT AVAILABLE FOR 09888651 * SCHEDULING 09888851 * (MDC320) @G51BP9A*/ 09889051 * 2 PCCAR113 FIXED(15), /* RESERVED 09889251 * (MDC304) @G51BP9A*/ 09889451 * 2 PCCAR106 CHAR(52) BDY(WORD), /* RESERVED 09889651 * (MDC304) @G51BP9A*/ 09890051 * 2 PCCAWERP CHAR(8) BDY(DWORD), /* WORK ERPIB FOR CCH */ 09900002 * 3 PCCACHUB PTR(31), /* UCB ADDRESS OF THE DEVICE 09901002 * IN USE WHEN THE CHANNEL- 09902002 * DETECTED ERROR OCCURRED. 09903002 * THIS FIELD IS ZERO IF CCH 09905002 * HAS NOT CREATED AN ERPIB 09907002 * FOR THE ERP'S. */ 09907402 * 3 PCCACHPF BIT(8), /* PROGRAM FLAGS. INDICATES 09908002 * THE SELECTION OR 09909002 * INTERRUPTION SEQUENCE 09910002 * WHEN THE CSW WAS STORED. */ 09911002 * 4 PCCACSIO BIT(1), /* THE CSW WAS STORED AFTER 09912002 * A START I/O INSTRUCTION 09913002 * WAS EXECUTED */ 09914002 * 4 PCCACINT BIT(1), /* THE CSW WAS STORED AFTER 09915002 * AN I/O INTERRUPTION */ 09916002 * 4 PCCACTIO BIT(1), /* THE CSW WAS STORED AFTER 09917002 * A TEST I/O INSTRUCTION 09918002 * WAS EXECUTED */ 09919002 * 4 PCCACHIO BIT(1), /* THE CSW WAS STORED AFTER 09920002 * A HALT I/O INSTRUCTION 09921002 * WAS EXECUTED */ 09922002 * 4 PCCARV37 BIT(1), /* RESERVED */ 09923002 * 4 PCCACSNS BIT(1), /* THE SENSE DATA WAS STORED*/ 09924002 * 4 PCCACCNT BIT(1), /* THE CSW COUNT IS VALID */ 09925002 * 4 PCCACNOR BIT(1), /* NO RETRY IS TO BE 09926002 * ATTEMPTED UNDER ANY 09927002 * CONDITIONS */ 09928002 * 3 PCCACHBL BIT(8), /* PROBABLE SOURCE OF ERROR */ 09929002 * 4 PCCACCPU BIT(1), /* CPU ERROR */ 09930002 * 4 PCCACCHA BIT(1), /* CHANNEL ERROR */ 09931002 * 4 PCCACSCU BIT(1), /* STORAGE CONTROL UNIT 09932002 * ERROR */ 09933002 * 4 PCCACSTG BIT(1), /* STORAGE ERROR */ 09934002 * 4 PCCACCUE BIT(1), /* CONTROL UNIT ERROR */ 09935002 * 4 PCCARV38 BIT(1), /* RESERVED */ 09936002 * 4 PCCARV39 BIT(1), /* RESERVED */ 09937002 * 4 PCCARV40 BIT(1), /* RESERVED */ 09938002 * 3 PCCACHVA BIT(8), /* VALIDITY INDICATORS. WHEN 09939002 * THE DESIGNATED FIELD IS 09940002 * STORED BY THE CHANNEL 09941002 * WITH THE CORRECT CONTENTS 09942002 * THE VALIDITY BIT IS ONE. 09943002 * THE VALIDITY BIT FOR 09944002 * NON-STORED FIELDS IS 09945002 * MEANINGLESS. */ 09946002 * 4 PCCACITF BIT(1), /* INTERFACE ADDRESS IS 09947002 * VALID */ 09948002 * 4 PCCARV41 BIT(1), /* RESERVED */ 09949002 * 4 PCCARV42 BIT(1), /* RESERVED */ 09949202 * 4 PCCACSQV BIT(1), /* SEQUENCE CODE IS VALID */ 09949402 * 4 PCCACUNS BIT(1), /* UNIT STATUS IS VALID */ 09949602 * 4 PCCACCMD BIT(1), /* COMMAND ADDRESS IS VALID. 09949802 * THE CSW CONTAINS A VALID 09949902 * COMMAND ADDRESS. */ 09950902 * 4 PCCACCHV BIT(1), /* CHANNEL ADDRESS IS VALID */ 09951102 * 4 PCCACDAV BIT(1), /* DEVICE ADDRESS IS VALID */ 09951302 * 3 PCCACHTS BIT(8), /* TERMINATION AND SEQUENCE 09951502 * (RETRY) CODES */ 09951702 * 4 PCCACTEC BIT(2), /* TERMINATION CODE. THIS 09951802 * CODE SPECIFIES THE 09952802 * TERMINATION SIGNALS USED 09953002 * ON THE I/O INTERFACE 09953202 * AFTER THE CHANNEL DETECTED 09953402 * THE ERROR. THIS FIELD 09954402 * HAS MEANING ONLY WHEN ICC 09954602 * OR CCC IS INDICATED IN 09954702 * THE CSW. */ 09954902 *%PCCACTC0='''00''B'; /* INTERFACE DISCONNECT */ 09955102 *%PCCACTC1='''01''B'; /* STOP, STACK OR NORMAL 09955302 * TERMINATION */ 09955502 *%PCCACTC2='''10''B'; /* SELECTIVE RESET */ 09955602 *%PCCACTC3='''11''B'; /* SYSTEM RESET */ 09956602 * 4 PCCARV43 BIT(1), /* RESERVED */ 09956802 * 4 PCCARV44 BIT(1), /* RESERVED */ 09957002 * 4 PCCACDIN BIT(1), /* I/O ERROR ALERT */ 09957202 * 4 PCCACSEQ BIT(3), /* SEQUENCE CODE. THESE 09957402 * CODES HAVE CHANNEL- 09957502 * DEPENDENT MEANINGS. */ 09958502 * 2 PCCACHS1 BIT(8), /* CCH INTERNAL SWITCH 1 */ 09958702 * 3 PCCACCMP BIT(1), /* COMMAND REGISTER PARITY 09958802 * IS VALID */ 09959802 * 3 PCCACNRE BIT(1), /* CCH WILL NOT CREATE A 09960202 * RECORD FOR THIS ERROR 09960302 * MDC006*/ 09961302 * 3 PCCACFRR BIT(1), /* THE CCH FRR IS IN THE 09963302 * STACK MDC007*/ 09963702 * 3 PCCACNLS BIT(1), /* CCH IS TO PERFORM THE 09965002 * RECORD FUNCTION ONLY. 09966002 * AN ERPIB IS NOT TO BE 09967002 * PLACED IN THE EWA. */ 09968002 * 3 PCCACAND BIT(1), /* ATTENTION HAS BEEN 09969002 * PRESENTED */ 09970002 * 3 PCCACIBC BIT(1), /* AN ERPIB FOR THIS ERROR 09971002 * HAS ALREADY BEEN CREATED */ 09972002 * 3 PCCACUCB BIT(1), /* UCB INVALID BIT */ 09973002 * 3 PCCARV47 BIT(1), /* RESERVED */ 09974002 * 2 PCCACHS2 BIT(8), /* CCH INTERNAL SWITCH 2 */ 09975002 * 3 PCCACIOR BIT(1), /* I/O RESTART FUNCTION 09976002 * REQUIRED */ 09977002 * 3 PCCACALT BIT(1), /* THE ALTERNATE RETURN TO 09978002 * IOS IS TO BE USED */ 09979002 * 3 PCCACMOD BIT(1), /* NO MODULE IS AVAILABLE TO 09980002 * ANALYZE THE CHANNEL 09981002 * LOGOUT */ 09982002 * 3 PCCACNLG BIT(1), /* CCH DETECTED A FAILURE TO 09983002 * LOG OR FAILURE TO STORE 09983402 * AN ECSW CONDITION */ 09983802 * 3 PCCACURC BIT(1), /* THE STIDC FIELD OF THE 09985802 * CAT ENTRY IS VALID BUT 09985902 * NOT THAT OF A SUPPORTED 09989602 * CHANNEL MDC011*/ 09991602 * 3 PCCACCRA BIT(1), /* CHANNEL RECONFIGURATION 09994503 * HARDWARE ACTIVE FOR THE 09995503 * CHANNEL (MDC300) @Y30CQ9A*/ 09996503 * 3 PCCARV50 BIT(1), /* RESERVED */ 09998202 * 3 PCCARV51 BIT(1), /* RESERVED */ 10001902 * 2 PCCACHRB BIT(8), /* CCH RECORD BYTE */ 10005602 * 3 PCCACSIB BIT(1), /* ERROR ON SIO */ 10009302 * 3 PCCACINB BIT(1), /* ERROR ON INTERRUPT */ 10013002 * 3 PCCACTIB BIT(1), /* ERROR ON TIO */ 10016702 * 3 PCCACHIB BIT(1), /* ERROR ON HIO */ 10020402 * 3 PCCARV52 BIT(1), /* RESERVED */ 10024102 * 3 PCCACSNB BIT(1), /* SENSE DATA STORED */ 10027802 * 3 PCCACCVB BIT(1), /* COUNT VALID */ 10031502 * 3 PCCACNRB BIT(1), /* NO RETRY */ 10035202 * 2 PCCAIOSI CHAR(1), /* IOS INTERCEPT BYTE */ 10038902 * 2 PCCACHW1 FIXED(31), /* CCH WORK AREA 1 */ 10042602 * 2 PCCACHW2 FIXED(31), /* CCH WORK AREA 2 */ 10046302 * 2 PCCALOGL FIXED(15), /* LENGTH OF CHANNEL LOGOUT 10047351 * FOR CURRENT ERROR 10050051 * (MDC305) @G51BP9A*/ 10060051 * 2 PCCACELL FIXED(15), /* MAXIMUM LENGTH OF I/O 10070051 * EXTENDED LOGOUT (IOEL) 10100051 * AREA (MDC313) @G51BP9A*/ 10110051 * 2 PCCALGP1 CHAR(1), /* LOGOUT PARITY AREA 1 10120051 * (MDC306) @G51BP9A*/ 10150051 * 2 PCCALGP2 CHAR(1), /* LOGOUT PARITY AREA 2 10160051 * (MDC307) @G51BP9A*/ 10200051 * 2 PCCACHPB PTR(8), /* LOGOUT PARITY BYTE COUNT 10250051 * (MDC308) @G51BP9A*/ 10450051 * 2 PCCARV05 CHAR(1), /* RESERVED FOR CCH 10460051 * (MDC309) @G51BP9A*/ 10500051 * 2 PCCACHF1 BIT(8), /* CCH FOOTPRINT BYTE 1 */ 10501002 * 3 PCCACF11 BIT(1), /* IOS GPR'S SAVED */ 10502002 * 3 PCCACF12 BIT(1), /* UCB ADDRESS IS ZERO */ 10503002 * 3 PCCACF13 BIT(1), /* ERPIB EXISTS */ 10504002 * 3 PCCACF14 BIT(1), /* IGFCCHSI ENTERED */ 10505002 * 3 PCCACF15 BIT(1), /* IGFCCHII ENTERED */ 10506002 * 3 PCCACF16 BIT(1), /* IGFCCHFE ENTERED */ 10507002 * 3 PCCACF17 BIT(1), /* IGFC60 ENTERED */ 10508002 * 3 PCCACF18 BIT(1), /* IGFC70 ENTERED */ 10509002 * 2 PCCACHF2 BIT(8), /* CCH FOOTPRINT BYTE 2 */ 10510002 * 3 PCCACF21 BIT(1), /* IGFC80 ENTERED */ 10511002 * 3 PCCACF22 BIT(1), /* IGFCIC ENTERED */ 10512002 * 3 PCCACF23 BIT(1), /* IGFCCHRD ENTERED MDC008*/ 10513002 * 3 PCCACF24 BIT(1), /* IGFCCHMP ENTERED */ 10514002 * 3 PCCACF25 BIT(1), /* IGFCCHUC ENTERED */ 10515002 * 3 PCCACF26 BIT(1), /* IGFCCHAS ENTERED MDC009*/ 10516002 * 3 PCCACF27 BIT(1), /* IGFCCHIO ENTERED */ 10517002 * 3 PCCACF28 BIT(1), /* EXIT CCH */ 10518002 * 2 PCCACHF3 BIT(8), /* CCH FOOTPRINT BYTE 3 */ 10519002 * 3 PCCAISRB BIT(1), /* SRB FOR IECVIRST 10519551 * SCHEDULED 10520051 * (MDC321) @G51BP9A*/ 10520251 * 3 PCCASLCK BIT(1), /* SPACE ALLOCATION LOCK 10520451 * HELD BY CCH 10521051 * (MDC322) @G51BP9A*/ 10521351 * 3 PCCARV66 BIT(1), /* RESERVED */ 10522002 * 3 PCCARV67 BIT(1), /* RESERVED */ 10523002 * 3 PCCARV68 BIT(1), /* RESERVED */ 10524002 * 3 PCCARV69 BIT(1), /* RESERVED */ 10525002 * 3 PCCARV70 BIT(1), /* RESERVED */ 10526002 * 3 PCCARV71 BIT(1), /* RESERVED */ 10527002 * 2 PCCACHF4 BIT(8), /* CCH FOOTPRINT BYTE 4 */ 10528002 * 3 PCCARV72 BIT(1), /* RESERVED */ 10529002 * 3 PCCARV73 BIT(1), /* RESERVED */ 10530002 * 3 PCCARV74 BIT(1), /* RESERVED */ 10531002 * 3 PCCARV75 BIT(1), /* RESERVED */ 10532002 * 3 PCCARV76 BIT(1), /* RESERVED */ 10533002 * 3 PCCARV77 BIT(1), /* RESERVED */ 10534002 * 3 PCCARV78 BIT(1), /* RESERVED */ 10535002 * 3 PCCARV79 BIT(1), /* RESERVED */ 10536002 * 2 PCCACHSV (3) FIXED(31), /* CCH INTERNAL SAVE AREA. 10550002 * FIRST WORD CONTAINS THE 10600002 * ADDRESS OF THE CURRENT 10600402 * CCH RECORD BUFFER MDC010*/ 10600802 * 2 PCCACHID CHAR(8) BDY(WORD), /* STORE CHANNEL ID WORK 10601002 * AREA */ 10602002 * 2 PCCALOGA PTR(31), /* ADDRESS OF CHANNEL 10603002 * LOGOUT MDC004*/ 10603202 * 2 PCCARV54 PTR(31), /* RESERVED */ 10604002 * 2 PCCARV55 PTR(31), /* RESERVED */ 10605002 * 2 PCCARV56 PTR(31), /* RESERVED */ 10606002 * 2 PCCARV57 PTR(31), /* RESERVED */ 10607002 * 2 PCCARV58 PTR(31), /* RESERVED */ 10608002 * 2 PCCARV59 PTR(31), /* RESERVED */ 10609002 * 2 PCCARV60 PTR(31), /* RESERVED */ 10609202 * 2 PCCARV61 PTR(31), /* RESERVED */ 10609402 * 2 PCCARV62 PTR(31), /* RESERVED */ 10609602 * 2 PCCARV63 PTR(31), /* RESERVED */ 10609802 * 2 PCCAATTR BIT(8), /* PROCESSOR ATTRIBUTES 10609947 * (MDC302) @G47AN9A*/ 10610047 * 3 PCCACPUM BIT(1), /* INDICATOR THAT DEAD CPU 10620047 * HAD A MALFUNCTION 10620747 * (MDC301) @G47AN9A*/ 10621447 * 3 PCCAIO BIT(1), /* PROCESSOR HAS I/O 10622147 * CAPABILITY 10622847 * (MDC303) @G47AN9A*/ 10623547 * 3 PCCAR100 BIT(1), /* RESERVED @G47AN9A*/ 10624247 * 3 PCCAR101 BIT(1), /* RESERVED @G47AN9A*/ 10624947 * 3 PCCAR102 BIT(1), /* RESERVED @G47AN9A*/ 10625647 * 3 PCCAR103 BIT(1), /* RESERVED @G47AN9A*/ 10626347 * 3 PCCAR104 BIT(1), /* RESERVED @G47AN9A*/ 10627047 * 3 PCCAR105 BIT(1), /* RESERVED @G47AN9A*/ 10627747 * 2 PCCARV01 CHAR(1), /* RESERVED */ 10630002 * 2 PCCARV35 FIXED(15), /* RESERVED */ 10640002 * 2 PCCARV36 FIXED(31), /* RESERVED */ 10642002 * 2 PCCACAT CHAR(128) BDY(DWORD), /* CHANNEL AVAILABILITY 10700002 * TABLE (16 CHANNELS, 10750002 * 8 BYTES PER CHANNEL) 10800002 * MDC005*/ 10850002 * 2 * CHAR(72) BDY(DWORD); /* RESERVED */ 10900002