804H TITLE 'IGE0804H BSC CHANNEL CHECK - CHANNEL DATA CHECK' 00900010 IGE0804H CSECT 01800010 *A-000000-999999 @Y02X6E0 01850010 *A237000,346000,364000,507000,510000,526000,552000-555000,886000 Y02027 01900010 *C144000,171000,225000,231000,360000,477000 Y02027 02000010 *A237000,346000,364000,507000,510000,526000,552000-555000,886000 Y02027 02100010 *C144000,171000,225000,231000,360000,477000 Y02027 02400010 *C072000,576000 @Z30AAEE 02400110 *D810000 @Z30AAEE 02400210 * * 02700010 *********************************************************************** 03600010 * * 04500010 *TITLE -- 'IGE0804H', BSC CHANNEL CHECK HANDLER * 05400010 * * 06300010 *STATUS -- CHANGE LEVEL 8 @Z30AAEE 07200010 * * 08100010 *FUNCTION -- TO ATTEMPT RECOVERY OF CHANNEL CONTROL CHECKS AND * 09000010 * INTERFACE CONTROL CHECKS. * 09900010 * * 10800010 *ENTRY POINTS -- FIRST EXECUTABLE INSTRUCTION. * 11700010 * * 12600010 *INPUT -- * 13500010 * R1 - POINTER TO I/O SUPERVISOR BLOCK Y02027 14400010 * R15 - ENTRY POINT ADDRESS * 15300010 * * 16200010 *OUTPUT -- R1 POINTS TO I/O SUPERVISOR BLOCK Y02027 17100010 * * 18000010 *EXTERNAL ROUTINES -- NONE * 18900010 * * 19800010 *EXUTS-NORMAL -- NOT APPLICABLE * 20700010 * * 21600010 *EXITS-ERROR -- R1 POINTS TO I/O SUPERVISOR BLOCK Y02027 22500010 * SVC 15 'EXCEPTIONAL CONDITION(IOSEX)'. RETURN TO Y02027 23100010 * LINE END APPENDAGE. ERROR PERMANENT. Y02027 23700010 * SVC 3 * 24300010 * * 25200010 * L 13,DECIMAL VALUE OF NEXT LOAD * 26100010 * L 14,X'10' CVT ADDRESS * 27000010 * L 14,X'2C'(14) ADDRESS OF XCTL ROUTINE * 27900010 * BR 14 EXIT TO XCTL * 28800010 * * 29700010 * TO SCHEDULE ERROR POST * 30600010 * * 31500010 *TABLES/WORK AREAS -- * 32400010 * TLCBD * 33300010 * TSCBD * 34200010 * IECDIOSB Y02027 34600010 * * 35100010 *ATTRIBUTES -- SERIALLY REUSABLE, REFRESHABLE, SUPERVISOR KEY, Y02027 36000010 * SUPERVISOR MODE, ENABLED Y02027 36400010 * * 36900010 *NOTES -- THE OPERATION OF THIS MODULE DOES NOT DEPEND UPON A * 37800010 * PARTICUALR INTERNAL REPRESENTATION OF THE EXTERNAL CHARACTER * 38700010 * SET. * 39600010 * * 40500010 * R1 REMAINS TRANSPARENT TO ALL LOADS OF ERP. * 41400010 * * 42300010 *********************************************************************** 43200010 EJECT 44100010 * 45000010 * REGISTERS 45900010 * 46800010 RIOSB EQU 1 ADDR OF I/O SUPVR BLOCK Y02027 47700010 RUCB EQU 2 UCB REGISTER 48600010 RLCB EQU 3 IOB REGISTER 49500010 R4 EQU 4 WORK REGISTER 50400010 RTST EQU 7 ADDR OF REQUEST QUEUE Y02027 50700010 * ELEMENT Y02027 51000010 RLINK EQU 13 LINKAGE - NEXT LOAD 51300010 RXCTL EQU 14 XCTL REGISTER 52200010 RERPWA EQU 14 ADDR OF ERP WORK AREA Y02027 52600010 RBASE EQU 15 BASE - ADDRESSABILITY 53100010 EJECT 54000010 USING *,RBASE 54900010 USING IOSB,RIOSB Y02027 55200010 L RTST,IOSUSE PICKUP ADDR OF RQE Y02027 55500010 L RLCB,IOBOFFST(,RTST) LCB BASE 55800010 USING LCBFLAG1,RLCB 56700010 L RUCB,IOSUCB ADDRESS OF UCB @Z30AAEE 57600010 L RXCTL,CVTPTR CVT POINTER 58500010 L RLINK,LCBSCBA-1 SCB ADDRESS 59400010 L R4,IOSERP ADDRESS OF ERP WORKAREA Y02027 60300010 USING EWA,R4 63300010 XC EWAERPIB,EWAERPIB CLEAR ERPIB FOR SYSTEM Y02027 66300010 OI SCBERR4-IEDQSCB(RLINK),SCBCHANN SET CHANNEL ERROR 72000010 MVI LCBINCAM+1,POSNO SET RETURN FOR ERROR POST 72900010 LH RLINK,POSTMOD 504G RETURN 73800010 L RXCTL,XCTLADD(,RXCTL) XCTL ADDRESS 74700010 BR RXCTL NEXT MODULE 75600010 * 76500010 EJECT 77400010 POSTMOD DC AL2(5047) IGE0504G ID Y02027 78300010 CVTPTR EQU 16 CVT ADDRESS LOCATION 79200010 PIBPTR EQU 116 POINTER TO ERPIB TABLE 80100010 IOBOFFST EQU 4 IOB OFFSET IN RQE 81900010 XCTLADD EQU X'2C' XCTL ADDRESS OFFSET IN CVT 82800010 POSNO EQU 16 SHOLD NOT OCCUR ERROR 83700010 EIGHT EQU 8 OFFSET Y02027 84600010 TWO EQU 2 OFFSET VALUE Y02027 85500010 EJECT 86400010 TLCBD 87300010 TSCBD 88200010 IECDIOSB Y02027 88600010 IECDERWA EWTC 88800010 END 89100010