*%GOTO CRCAPLS ; /* BILINGUAL MAPPING */ 03000003 MACRO 03800003 IECDCRCA &DSECT=YES 04600003 .*A000000-999999 Y30CQLF 05400003 *%CRCAPLS: ; 06200003 * /* BILINGUAL MAPPING 07000003 *********************************************************************** 07800003 ******************** OS/VS2 REL3 ******************** 08600003 ***** CHANNEL RECONFIGURATION HARDWARE COMMUNICATIONS AREA ***** 09400003 ******************** MAY 16, 1974 ******************** 10200003 **********************************************************************/ 11000003 *%GOTO CRCAPL2 ; /* 11800003 AIF ('&DSECT' EQ 'YES').DSECT 12600003 IECVCRCA DS 0D 13400003 AGO .NDSECT 14200003 .DSECT ANOP 15000003 CRCA DSECT 15800003 DS 0D 16600003 .NDSECT ANOP 17400003 CRCAID DC CL4'CRCA' CRCA IDENTIFIER 18200003 *********************************************************************** 19000003 *** CRCA FLAGS *** 19800003 *********************************************************************** 20600003 CRCAFLGS DS 0F FLAGS 21400003 CRCAFLG1 DC X'00' FIRST FLAG BYTE 22200003 CRCADIAG EQU X'80' CRH CONNECTION OUTSTANDING 23000003 CRCADINT EQU X'40' CRH INTERRUPT - FLAG FOR CCH 23800003 CRCACCH EQU X'20' CHANNEL BURP - FLAG FOR IOS 24600003 CRCAHIO EQU X'10' CRH INTERRUPT - FLAG FROM HIO 25000003 CRCAFTIM EQU X'08' CRHT 1ST TIME ENTERED @ZM30496 25200003 * 25400003 CRCAFLG2 DC X'00' SECOND FLAG BYTE 26200003 CRCAFLG3 DC X'00' RESERVED 27000003 CRCAFLG4 DC X'00' RESERVED 27800003 *********************************************************************** 28600003 **** MAINTENANCE CONTROL WORD **** 29400003 *********************************************************************** 30200003 CRCAMCW DS 0D USED BY ALL CRH ROUTINES TO 31000003 * CONTROL THE HARDWARE 31800003 CRCAMCWZ DC X'01' MCW CHANNEL FUNCTION BYTE 32000003 CRCAMCWY EQU X'01' BIT ALWAYS ON IN MCW FOR CRH 32200003 DC XL2'00' UNUSED BY CRH 32600003 CRCAMCWF DC X'00' MCW CRH FUNCTION BYTE 33400003 CRCAMCWI EQU X'20' MCW FOR CRH 34200003 CRCAMCWM EQU X'10' ORING FLAG-MAKE CRH CONNECTION 35000003 CRCAMCWB EQU X'EF' ANDING FLAG-BREAK CRH CONNECTION 35800003 DC F'0' UNUSED BY CRH 36600003 *********************************************************************** 37400003 *** ADDRESSES *** 38200003 *********************************************************************** 39000003 CRCACRHT DC V(IECVCRHT) ADDRESS OF TIMER POP ROUTINE 39800003 CRCACRH1 DC V(IECVCRH1) ADDRESS OF TCH HOOK ROUTINE 40600003 CRCACRH2 DC V(IECVCRH2) ADDRESS OF SIO HOOK ROUTINE 41400003 CRCACRH3 DC V(IECVCRH3) ADDRESS OF SENSE HOOK ROUTINE 42200003 CRCACINT DC V(IECVCINT) ADDRESS OF CRH SLIH 43000003 CRCAPCCA DC A(0) ADDRESS OF PCCA FOR DEAD CPU 43800003 CRCACAT DC A(0) ADDRESS OF CAT FOR DEAD CPU 44600003 CRCARSV1 DC 2F'0' RESERVED 45400003 *********************************************************************** 46200003 **** CRCA WORK AREAS **** 47000003 *********************************************************************** 47800003 CRCACHAN DC H'0' CHANNEL ID OF CONNECTED CHANNEL 48600003 CRCARSV2 DC H'0' RESERVED 49400003 CRCACTIM DC D'0' CURRENT TIME - USED BY IECVCRHT 50200003 CRCAITIM DC D'0' TIME OF LAST I/O INTERRUPT 51000003 CRCARSV3 DC 2F'0' RESERVED 51800003 CRCAEND EQU * 52600003 *********************************************************************** 53400003 MEND , */ 54200003 *%CRCAPL2: ; 55000003 DCL 1 CRCA BASED(CRCAPTR), 55800003 2 CRCAID CHAR(4), /* CRCA IDENTIFIER */ 56600003 /********************************************************************/ 57400003 /* CRCA FLAGS */ 58200003 /********************************************************************/ 59000003 2 CRCAFLGS, /* FLAGS */ 59800003 3 CRCAFLG1 CHAR(1), /* FIRST FLAG BYTE */ 60600003 4 CRCADIAG BIT(1), /* CRH CONNECTION OUTSTANDING */ 61400003 4 CRCADINT BIT(1), /* CRH INTERRUPT-FLAG FOR CCH */ 62200003 4 CRCACCH BIT(1), /* CHANNEL BURP -FLAG FOR IOS */ 63000003 4 CRCAHIO BIT(1), /* CRH INTERRUPT-FLAG FROM HIO*/ 63400003 4 CRCAFTIM BIT(1), /* CRHT 1ST TIME IN @ZM30496*/ 63800003 4 * BIT(3), /* RESERVED @ZM30496*/ 64200003 3 CRCAFLG2 CHAR(1), /* SECOND FLAG BYTE */ 64600003 3 CRCAFLG3 CHAR(1), /* RESERVED */ 65400003 3 CRCAFLG4 CHAR(1), /* RESERVED */ 66200003 /********************************************************************/ 67000003 /* MAINTENANCE CONTROL WORD */ 67800003 /********************************************************************/ 68600003 2 CRCAMCW CHAR(8) BDY(DWORD), /* USED BY ALL CRH ROUTINES 69400003 TO CONTROL THE HARDWARE */ 70200003 3 CRCAMCWZ CHAR(1), /* CHANNEL FUNCTION BYTE */ 70400003 4 * BIT(7), /* UNUSED BY CRH */ 70600003 4 CRCAMCWY BIT(1), /* BIT ALWAYS ON FOR CRH */ 70800003 3 * CHAR(2), /* UNUSED BY CRH */ 71000003 3 CRCAMCWF CHAR(1), /* MCW CRH FUNCTION BYTE */ 71800003 4 * BIT(2), /* UNUSED BY CRH */ 72600003 4 CRCAMCWI BIT(1), /* BIT ON-MCW FOR CRH */ 73400003 4 CRCAMCWM BIT(1), /* BIT ON-MAKE CRH CONNECTION 74200003 BIT OFF-BREAK CRH CONNECTION*/ 75000003 4 CRCAMCWC BIT(4), /* CHANNEL NUMBER OF CONNECTED 75800003 CHANNEL */ 76600003 3 * CHAR(4), /* UNUSED BY CRH */ 77400003 /********************************************************************/ 78200003 /* ADDRESSES */ 79000003 /********************************************************************/ 79800003 2 CRCACRHT PTR(31), /* ADDRESS OF TIMER POP RTN. */ 80600003 2 CRCACRH1 PTR(31), /* ADDRESS OF TCH HOOK ROUTINE*/ 81400003 2 CRCACRH2 PTR(31), /* ADDRESS OF SIO HOOK ROUTINE*/ 82200003 2 CRCACRH3 PTR(31), /* ADDRESS OF SENSE HOOK RTN. */ 83000003 2 CRCACINT PTR(31), /* ADDRESS OF CRH SLIH */ 83800003 2 CRCAPCCA PTR(31), /* ADDR OF PCCA FOR DEAD CPU */ 84600003 2 CRCACAT PTR(31), /* ADDRESS OF CAT FOR DEAD CPU*/ 85400003 2 CRCARSV1 CHAR(8), /* RESERVED */ 86400003 /********************************************************************/ 87000003 /* CRCA WORK AREAS */ 87800003 /********************************************************************/ 88600003 2 CRCACHAN CHAR(2) BDY(WORD), /* CHANNEL ID OF CONNECTED 89400003 CHANNEL */ 90200003 2 CRCARSV2 CHAR(2), /* RESERVED */ 91000003 2 CRCACTIM CHAR(8) BDY(DWORD), /* CURRENT TIME - USED BY 91800003 IECVCRHT */ 92600003 2 CRCAITIM CHAR(8) BDY(DWORD), /* TIME OF LAST I/O INTERRUPT */ 93400003 2 CRCARSV3 CHAR(8), /* RESERVED */ 94200003 2 CRCAEND CHAR(*); 95000003 /********************************************************************/ 95800003