DMKCPS History
References
-
-
Fixes Applied : 27
-
Last Fix ID : [HRC041DK]
Update History
CMS File Input : DMKCPS ASSEMBLE
Date : 12/13/1978 4:55:00 PM
VM Context : MAINT(394)
File Name : DMKCPS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R08979DK 601 ABENDPRG005 IN DMKSCN ISSUING ERROR MSG USING HALT COMMAND
R09265DK 601 BRANCH INSTRUCTION ERRONEOUSLY DELETED BY 3800 UPDATE
R09324DK 601 VARY OFF PROC 0 HAS RESPONSE: DMKCPU021E (NO TEXT)
R09296DK 601 REASSEMBLE FOR V09296
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10349DK 609 PREVENT RECORDING MDR FOR ALTERNATE PATH
R09038DK 610 VARY OFFLINE OF UNSUPPORTED DEVICE CAUSES WAIT
R10053DK 610 READJUST LENGTH OF 'ONLINE' FOR ONLINE MESSAGE
R10546DK 610 FIX ABENDPGT005 IN WARMSTART WITH DEDICATED 3800
R11530DK 616 UV01576 VARY COMMAND DOES NOT WORK FOR MULTIPLE DEVS.
R11399DK 616 INCORROUT WHEN HALT CMD ISSUED TO OFFLINE ALTERNATE PATH DEV
R10877DK 617 UV02351 DEMOUNT VOLUME AFTER A VARY OFF COMMAND
R11960DK 617 UV02707 CORRECT VM09376 FOR AP USERS
R12965DK 620 UV03987 OPERATOR CONSOLE HANG WHEN ATT DASD WITH INT REQ.
R12448DK 620 UV03755 PREVENT TIO LOOP WHEN VARY ON A RESERVED/BUSY DEVICE
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R12646DK 623 UV04775 FREE STOR OVERLAY AFTER 2 VARY DEVICE CMD FOR SAME DEVICE
R13648DK 623 UV05254 SUPPORT DMKCPS SPLIT INTO DMKCPR(SHUTDOWN)
R12977DK 623 UV04535 PREVENT VARY ON IF CHAN ERROR
R14036DK 623 UV05213 ABENDIOS005 AFTER HALT CMD TO A CTCA.
R12963DK 623 UV04282 PEVM11399 ABENDIOS001 BECAUSE IOBRADD INCORRECT
R15139DK 628 UV06112 ABENDFRE013 ON A 'VARY ONLINE' AFTER CHANNEL ERROR
R14349DK 628 UV02230 ABEND IF MULTIPLE USERS ISSUE VARY OFF
R15100DK 629 UV06419 VARY WITH MULTI DEV RESETS RDEVPEND FOR LAST DEV
HRC010DK V01 ADD HCP COMMAND - ISSUE CP COMMAND FROM 2ND LEVEL
HRC039DK H40 Fix various DASD attached to SYSTEM issues
HRC041DK H40 Fix bug in VARY ONLINE/OFFLINE of attached device
R08979DK
Date Wednesday Jan 17, 1979 10:04:00 AM
Loaded from MAINT(294)
R08979DK: ./ R 1182000 $ 1182100 100 00001000
R08979DK: BNZ CPS040NR NOT FOUND - GIVE MSG AND NORETURN@VA08979 00002000
BEGIN APPLY >>> ./ R 1182000 $ 1182100 100 00001000
END APPLY >>> ./ R 1182000 $ 1182100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09265DK
Date Monday Jan 22, 1979 02:16:00 PM
Loaded from MAINT(294)
R09265DK: ./ I 918000 $ 918100 100
R09265DK: B VARYNDEV GET NEXT DEVICE @VA09265
R09265DK: SPACE 3
BEGIN APPLY >>> ./ I 918000 $ 918100 100
END APPLY >>> ./ I 918000 $ 918100 100
Update Succeeded
Update Execution Time 8 milliseconds.
R09324DK
Date Monday Feb 05, 1979 10:21:00 AM
Loaded from MAINT(294)
R09324DK: ./ D 488000
R09324DK: ./ R 490000 $ 490100
R09324DK: BNZ CPS021B GO ISSUE ERROR MESSAGE @VA09324
R09324DK: ./ R 491000 $ 491100 100
R09324DK: CL R0,F2 IS OPERAND LENGTH = 2? @VA09324
R09324DK: BNE CPS021B NO, BRANCH @VA09324
R09324DK: ./ R 493000 $ 493100
R09324DK: BNZ CPS021B GO ISSUE ERROR MESSAGE @VA09324
BEGIN APPLY >>> ./ D 488000
END APPLY >>> ./ D 488000
BEGIN APPLY >>> ./ R 490000 $ 490100
END APPLY >>> ./ R 490000 $ 490100
BEGIN APPLY >>> ./ R 491000 $ 491100 100
END APPLY >>> ./ R 491000 $ 491100 100
BEGIN APPLY >>> ./ R 493000 $ 493100
END APPLY >>> ./ R 493000 $ 493100
Update Succeeded
Update Execution Time 31 milliseconds.
R09296DK
Date Wednesday Mar 07, 1979 05:31:00 PM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:51:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R10349DK
Date Friday Jan 25, 1980 01:17:00 AM
Loaded from MAINT(294)
R10349DK: ./ I 00309000 $ 00309010 10 00001000
R10349DK: LR R14,R7 RELOCATE CU ADDR @VA10349 00002000
R10349DK: TM RCUTYPE,RCUSUB SUBORDINATE CU ? @VA10349
R10349DK: BNO JODEL NO ...CONTINUE @VA10349
R10349DK: L R14,RCUPRIME YES ..GET THE PRIME CU @VA10349
R10349DK: JODEL DS 0H
R10349DK: CL R6,RCUCHA-RCUBLOK(R14) IS THIS PRIME CH - CU @VA10349 00004000
R10349DK: BNE DASDDEVI NO DONT RECORD THIS ONE EITHER @VA10349 00005000
R10349DK: CL R7,RDEVCUA IS THIS THE PRIME DEV - CU @VA10349
R10349DK: BNE DASDDEVI NO FORGET IT @VA10349
BEGIN APPLY >>> ./ I 00309000 $ 00309010 10 00001000
END APPLY >>> ./ I 00309000 $ 00309010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09038DK
Date Monday Mar 03, 1980 01:11:00 AM
Loaded from MAINT(294)
R09038DK: ./ R 718000 719000 $ 718100 10
R09038DK: CLI RDEVTYPC,CLASTAPE IS THIS A TAPE? @VA09038 00002000
R09038DK: BE CKTAPE YES, BRANCH OUT @VA09038 00003000
R09038DK: CLI RDEVTYPC,CLASDASD IS THIS A DASD @VA09038 00004000
R09038DK: BNE CPSCC0 NO, ASSUME DEVICE THERE @VA09038 00005000
R09038DK: LH R2,IOBRADD LOAD REAL ADDRESS @VA09038 00006000
R09038DK: L R1,IOBIOER GET IOERBLOK POINTER @VA09038 00007000
R09038DK: LTR R1,R1 IOERBLOK PRESENT? @VA09038 00008000
R09038DK: BZ HAVEIOB NO BUSY - DO AGAIN @VA09038 00009000
R09038DK: USING IOERBLOK,R1 @VA09038 00010000
R09038DK: TM IOERDATA,X'40' INTERVENTION REQUIRED? @VA09038 00011000
R09038DK: BNO CPSCC3 YES, BRANCH OUT @VA09038 00012000
R09038DK: B CPSCC0 NO, ASSUME DEVICE THERE @VA09038 00013000
R09038DK: DROP R1 @VA09038 00014000
R09038DK: CKTAPE EQU * @VA09038 00015000
BEGIN APPLY >>> ./ R 718000 719000 $ 718100 10
END APPLY >>> ./ R 718000 719000 $ 718100 10
Update Succeeded
Update Execution Time 23 milliseconds.
R10053DK
Date Thursday Mar 06, 1980 01:17:00 AM
Loaded from MAINT(294)
R10053DK: ./ R 00611000 $ 00611010 00001000
R10053DK: ONLINE MVC CPSCON4,=CL7'ONLINE ' SHOW ONLINE @VA10053 00002000
R10053DK: ./ R 00633000 $ 00633010 00003000
R10053DK: ONLINE2 MVC CPSCON2,=CL7'ONLINE ' SHOW ONLINE @VA10053 00004000
BEGIN APPLY >>> ./ R 00611000 $ 00611010 00001000
END APPLY >>> ./ R 00611000 $ 00611010 00001000
BEGIN APPLY >>> ./ R 00633000 $ 00633010 00003000
END APPLY >>> ./ R 00633000 $ 00633010 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R10546DK
Date Thursday Mar 06, 1980 02:06:00 AM
Loaded from MAINT(294)
R10546DK: ./ I 331000 $ 331100 100 00001000
R10546DK: TM RDEVSTAT,RDEVDED DEDICATED 3800? @VA10546 00002000
R10546DK: BO NOCALL5 YES, GO TO NEXT DEVICE @VA10546 00003000
R10546DK: ./ I 332000 $ 332100 100 00004000
R10546DK: LTR R7,R7 ANYTHING THERE? @VA10546 00005000
BEGIN APPLY >>> ./ I 331000 $ 331100 100 00001000
END APPLY >>> ./ I 331000 $ 331100 100 00001000
BEGIN APPLY >>> ./ I 332000 $ 332100 100 00004000
END APPLY >>> ./ I 332000 $ 332100 100 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R11530DK
Date Monday Sep 08, 1980 08:01:00 AM
Loaded from MAINT(294)
R11530DK: ./ R 831000 $ 831100 00001000
R11530DK: NI CPSBITS,X'FF'-LBLREAD DONE WITH THIS DEVICE @VA11530 00002000
BEGIN APPLY >>> ./ R 831000 $ 831100 00001000
END APPLY >>> ./ R 831000 $ 831100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11399DK
Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
R11399DK: ./ R 01225000 $ 01225010 10 00001000
R11399DK: HALTEXIT DS 0H @VA11399 00002000
R11399DK: TM IOBSTAT,IOBFATAL DID HALT GET THROUGH?? @VA11399 00003000
R11399DK: BZ HALTOK YES, ISSUE NORMAL MSG @VA11399 00004000
R11399DK: MSG 'FATAL IO ERROR-HALT ABORTED' @VA11399 00005000
R11399DK: B HALTQCN GO PRINT ABORT MSG @VA11399 00006000
R11399DK: HALTOK DS 0H @VA11399 00007000
R11399DK: MSG 'DEVICE HALTED' @VA11399 00008000
R11399DK: HALTQCN DS 0H @VA11399 00009000
BEGIN APPLY >>> ./ R 01225000 $ 01225010 10 00001000
END APPLY >>> ./ R 01225000 $ 01225010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10877DK
Date Monday Nov 03, 1980 09:30:00 AM
Loaded from MAINT(294)
R10877DK: ./ I 149000 $ 149100 500 00001000
R10877DK: EXTRN DMKSSSDE TO DEMOUNT VOLUME @VA10877 00002000
R10877DK: ./ I 940000 $ 940100 50 00003000
R10877DK: TM RDEVFTR,SYSVIRT+VIRTUAL IS THIS MSS? @VA10877 00004000
R10877DK: BZ N3330V NO DEMOUNT NECESSARY @VA10877 00005000
R10877DK: TM RDEVFLAG,RDEVSEL SELECTED FOR MOUNT? @VA10877 00006000
R10877DK: BO N3330V DO NOT DEMOUNT @VA10877 00007000
R10877DK: CLC RDEVSER(6),BLANKS IS A VOL. MOUNTED @VA10877 00007000
R10877DK: BE N3330V NOTHING TO DEMOUNT @VA10877 00007000
R10877DK: TM PSAMSS,MSSPRES IS THE CPSERVER THERE? @VA10877 00007000
R10877DK: BZ DMNTFAIL CAN'T BLANK THE VOLSER @VA10877 00007000
R10877DK: CALL DMKSSSDE GO TO DEMOUNT VOLUME @VA10877 00008000
R10877DK: LTR R0,R0 DEMOUNT GO OK? @VA10877 00009000
R10877DK: BNZ DMNTFAIL LEAVE VOLSER IN RDEVBLOK FOR @VA10877 00011000
R10877DK: * RECOVERY 00012000
R10877DK: N3330V EQU * @VA10877 00013000
R10877DK: ./ I 942000 $ 942100 100 00014000
R10877DK: DMNTFAIL EQU * @VA10877 00015000
BEGIN APPLY >>> ./ I 149000 $ 149100 500 00001000
END APPLY >>> ./ I 149000 $ 149100 500 00001000
BEGIN APPLY >>> ./ I 940000 $ 940100 50 00003000
END APPLY >>> ./ I 940000 $ 940100 50 00003000
BEGIN APPLY >>> ./ I 942000 $ 942100 100 00014000
END APPLY >>> ./ I 942000 $ 942100 100 00014000
Update Succeeded
Update Execution Time 16 milliseconds.
R11960DK
Date Monday Nov 03, 1980 10:20:00 AM
Loaded from MAINT(294)
R11960DK: ./ I 758000 $ 758100 00001000
R11960DK: MVC CPEXR11,ASYSVM STACK CPEXBLOK FOR SYSTEM @VA11960 00002000
BEGIN APPLY >>> ./ I 758000 $ 758100 00001000
END APPLY >>> ./ I 758000 $ 758100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12965DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12965DK: ./ I 766000 $ 766100 100 00001000
R12965DK: TM IOERDATA,X'40' INT REQUIRED? @VA12965 00002000
R12965DK: BO FRETIOER YES, THEN LET ATTACH READ LABEL @VA12965 00003000
BEGIN APPLY >>> ./ I 766000 $ 766100 100 00001000
END APPLY >>> ./ I 766000 $ 766100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12448DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12448DK: ./ I 673000 $ 673100 00001000
R12448DK: LA R6,256 TIO RETRY COUNT IS 256 @VA12448 00002000
R12448DK: ./ R 718170 $ 718171 01 00003000
R12448DK: BNZ CHKINT YES CHECK INT REQUIRED @VA12448 00004000
R12448DK: BCT R6,HAVEIOB RETRY UNTIL RETRY COUNT REACHED @VA12448 00005000
R12448DK: L R1,SAVEWRK9 GET DEV ADDR @VA12448 00006000
R12448DK: CALL DMKCVTBH CONVERT ADDR BACK TO HEX @VA12448 00007000
R12448DK: ST R1,SAVEWRK3 SAVE DEV ADDR @VA12448 00008000
R12448DK: LA R1,SAVEWRK3+1 POINT AT ADDR @VA12448 00009000
R12448DK: LA R0,3 LENGTH OF 3 @VA12448 00010000
R12448DK: B CPS149 GO SEND RESERVED MSG @VA12448 00011000
R12448DK: CHKINT EQU * @VA12448 00012000
R12448DK: ./ I 1353000 $ 1353010 10 00013000
R12448DK: CPS149 LA R2,149 ERROR CODE 149 @VA12448 00014000
R12448DK: B SETRET TYPE DASD ADDR BUSY OR RESERVED @VA12448 00015000
BEGIN APPLY >>> ./ I 673000 $ 673100 00001000
END APPLY >>> ./ I 673000 $ 673100 00001000
BEGIN APPLY >>> ./ R 718170 $ 718171 01 00003000
END APPLY >>> ./ R 718170 $ 718171 01 00003000
BEGIN APPLY >>> ./ I 1353000 $ 1353010 10 00013000
END APPLY >>> ./ I 1353000 $ 1353010 10 00013000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:28:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R12646DK
Date Friday Aug 07, 1981 06:25:00 AM
Loaded from MAINT(294)
R12646DK: ./ I 553000 $ 553100 100
R12646DK: TM RDEVSTA3,RDEVPEND IS VARY IN PROCESS FOR THIS @VA12646
R12646DK: * DEVICE?
R12646DK: BO CPSVPEND YES, ISSUE ERROR MESSAGE @VA12646
R12646DK: OI RDEVSTA3,RDEVPEND TURN ON VARY PENDING FLAG @VA12646
R12646DK: ./ I 1048000 $ 1048040 40
R12646DK: TM CPSBITS,RANGE PROCESSING A RANGE? @VA12646
R12646DK: BNO ONEDEV NO, CONTINUE @VA12646
R12646DK: LH R1,RADDR1 GET STARTING ADDRESS OF RANGE @VA12646
R12646DK: LH R4,RADDR2 GET ENDING ADDRESS OF RANGE @VA12646
R12646DK: B GETBLOKS @VA12646
R12646DK: ONEDEV DS 0H @VA12646
R12646DK: L R1,SAVEWRK9 GET DEVICE ADDRESS @VA12646
R12646DK: LR R4,R1 GET DEVICE ADDRESS @VA12646
R12646DK: GETBLOKS DS 0H @VA12646
R12646DK: CALL DMKSCNRU FIND DEVICE CONTROL BLOCKS @VA12646
R12646DK: BNZ TESTFINI BRANCH, IF BLOCKS NOT FOUND @VA12646
R12646DK: NI RDEVSTA3,X'FF'-RDEVPEND TURN OFF VARY PENDING @VA12646
R12646DK: * FLAG
R12646DK: TESTFINI DS 0H @VA12646
R12646DK: CLR R1,R4 LAST DEVICE? @VA12646
R12646DK: BNL PNDRESET YES, BRANCH @VA12646
R12646DK: LA R1,1(0,R1) GET NEXT DEVICE ADDRESS @VA12646
R12646DK: B GETBLOKS @VA12646
R12646DK: PNDRESET DS 0H @VA12646
R12646DK: ./ R 1326000 $ 1325100 100
R12646DK: SPACE
R12646DK: CPSVPEND DS 0H @VA12646
R12646DK: BAL R3,TSTRANGE RANGE BEING PROCESSED? @VA12646
R12646DK: BAL R3,BLDADR GET REAL ADDRESS @VA12646
R12646DK: N R1,X40FFS CLEAR HIGH ORDER BYTE @VA12646
R12646DK: ST R1,SAVEWRK2 SAVE FOR DMKERMSG @VA12646
R12646DK: LA R0,4 GET FIELD LENGTH @VA12646
R12646DK: LA R1,SAVEWRK2 ADDRESS OF FIELD @VA12646
R12646DK: LA R2,154 ERROR CODE @VA12646
R12646DK: B SETRET GO ISSUE DMKCPS154E @VA12646
BEGIN APPLY >>> ./ I 553000 $ 553100 100
END APPLY >>> ./ I 553000 $ 553100 100
BEGIN APPLY >>> ./ I 1048000 $ 1048040 40
END APPLY >>> ./ I 1048000 $ 1048040 40
BEGIN APPLY >>> ./ R 1326000 $ 1325100 100
END APPLY >>> ./ R 1326000 $ 1325100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R13648DK
Date Thursday Aug 27, 1981 08:13:00 AM
Loaded from MAINT(294)
R13648DK: ./ D 00018000 00019000 07/20/81 14:27:48
R13648DK: ./ I 00046000 $ 46500 500 07/20/81 14:27:48
R13648DK: * DMKCVTBD - TO CONVET BINARY TO DECIMAL 00129000
R13648DK: ./ D 00056000 07/20/81 14:27:48
R13648DK: ./ D 00058000 07/20/81 14:27:48
R13648DK: ./ I 00059000 $ 59500 500 07/20/81 14:27:48
R13648DK: * DMKSTKCP - STACK A CPEXBLOK 00127000
R13648DK: ./ D 00062000 07/20/81 14:27:48
R13648DK: ./ D 00066000 07/20/81 14:27:48
R13648DK: ./ D 00068000 00070000 07/20/81 14:27:48
R13648DK: ./ I 00071000 $ 71300 300 07/20/81 14:27:48
R13648DK: * DMKSSSDE - DEMOUNT V3330 VOLUME 00149100
R13648DK: * DMKTAPRL - TAPE RELEASE EPA 00128000
R13648DK: ./ D 00122000 07/20/81 14:27:48
R13648DK: ./ D 00124000 07/20/81 14:27:48
R13648DK: ./ D 00133000 07/20/81 14:27:48
R13648DK: ./ D 00142000 00143000 07/20/81 14:27:48
R13648DK: ./ D 00146000 07/20/81 14:27:48
R13648DK: ./ R 00149000 $ 149000 100 07/20/81 14:27:48
R13648DK: EXTRN DMKSPLDL,DMKRSESD 3800 SUPPORT @VA13648 00149000
R13648DK: ./ D 00150000 00355000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00018000 00019000 07/20/81 14:27:48
END APPLY >>> ./ D 00018000 00019000 07/20/81 14:27:48
BEGIN APPLY >>> ./ I 00046000 $ 46500 500 07/20/81 14:27:48
END APPLY >>> ./ I 00046000 $ 46500 500 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00056000 07/20/81 14:27:48
END APPLY >>> ./ D 00056000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00058000 07/20/81 14:27:48
END APPLY >>> ./ D 00058000 07/20/81 14:27:48
BEGIN APPLY >>> ./ I 00059000 $ 59500 500 07/20/81 14:27:48
END APPLY >>> ./ I 00059000 $ 59500 500 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00062000 07/20/81 14:27:48
END APPLY >>> ./ D 00062000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00066000 07/20/81 14:27:48
END APPLY >>> ./ D 00066000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00068000 00070000 07/20/81 14:27:48
END APPLY >>> ./ D 00068000 00070000 07/20/81 14:27:48
BEGIN APPLY >>> ./ I 00071000 $ 71300 300 07/20/81 14:27:48
END APPLY >>> ./ I 00071000 $ 71300 300 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00122000 07/20/81 14:27:48
END APPLY >>> ./ D 00122000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00124000 07/20/81 14:27:48
END APPLY >>> ./ D 00124000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00133000 07/20/81 14:27:48
END APPLY >>> ./ D 00133000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00142000 00143000 07/20/81 14:27:48
END APPLY >>> ./ D 00142000 00143000 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00146000 07/20/81 14:27:48
END APPLY >>> ./ D 00146000 07/20/81 14:27:48
BEGIN APPLY >>> ./ R 00149000 $ 149000 100 07/20/81 14:27:48
END APPLY >>> ./ R 00149000 $ 149000 100 07/20/81 14:27:48
BEGIN APPLY >>> ./ D 00150000 00355000 07/20/81 14:27:48
END APPLY >>> ./ D 00150000 00355000 07/20/81 14:27:48
Update Succeeded
Update Execution Time 55 milliseconds.
R12977DK
Date Friday Aug 07, 1981 07:31:00 AM
Loaded from MAINT(294)
R12977DK: ./ I 690000 $ 690500 00001000
R12977DK: LA R15,10 COUNT FOR CHANNEL ERRORS @VA12977 00002000
R12977DK: ./ I 700000 $ 700500 00003000
R12977DK: RETRYCH EQU * @VA12977 00004000
R12977DK: ./ I 717000 $ 717300 300 00005000
R12977DK: TM IOBCSW+5,IFCC+CCC IFCC OR CCC ? @VA12977 00006000
R12977DK: BNZ ERRORCH YES, CHECK COUNT @VA12977 00007000
R12977DK: ./ I 733000 $ 733050 50 00008000
R12977DK: ERRORCH EQU * @VA12977 00009000
R12977DK: L R1,IOBIOER IOER BLOCK @VA12977 00010000
R12977DK: LTR R1,R1 IOERBLOK ? @VA12977 00011000
R12977DK: BZ NOIOER NO @VA12977 00012000
R12977DK: LA R0,IOERSIZE @VA12977 00013000
R12977DK: CALL DMKFRET @VA12977 00014000
R12977DK: L R15,CPEXR15 RESTORE COUNT @VA12977 00015000
R12977DK: NOIOER EQU * @VA12977 00016000
R12977DK: BCTR R15,0 DECREMENT @VA12977 00017000
R12977DK: LTR R15,R15 10 CHANNEL ERRORS ? @VA12977 00018000
R12977DK: BZ CPS60X YES, SEND MESSAGE @VA12977 00019000
R12977DK: XC IOBCSW(8),IOBCSW CLEAR CSW @VA12977 00020000
R12977DK: NI IOBSTAT,X'FF'-IOBCC3 CCODE OFF @VA12977 00021000
R12977DK: B RETRYCH @VA12977 00022000
R12977DK: SPACE 00023000
R12977DK: ./ I 1341000 $ 1341050 50 00024000
R12977DK: CPS60X EQU * @VA12977 00025000
R12977DK: LH R1,IOBRADD DEVICE ADDRESS @VA12977 00026000
R12977DK: CALL DMKCVTBH @VA12977 00027000
R12977DK: ICM R1,B'1000',=X'40' INSERT BLANK @VA12977 00028000
R12977DK: SR R0,R0 LENGTH @VA12977 00029000
R12977DK: TM IOBCSW+5,IFCC IFCC ? @VA12977 00030000
R12977DK: BO CPTIFCC YES, IFCC MSG @VA12977 00031000
R12977DK: LA R2,601 IFCC MSG @VA12977 00032000
R12977DK: B SETRET @VA12977 00033000
R12977DK: CPTIFCC EQU * @VA12977 00034000
R12977DK: LA R2,602 CCC MSG @VA12977 00035000
R12977DK: B SETRET @VA12977 00036000
R12977DK: SPACE 00037000
BEGIN APPLY >>> ./ I 690000 $ 690500 00001000
END APPLY >>> ./ I 690000 $ 690500 00001000
BEGIN APPLY >>> ./ I 700000 $ 700500 00003000
END APPLY >>> ./ I 700000 $ 700500 00003000
BEGIN APPLY >>> ./ I 717000 $ 717300 300 00005000
END APPLY >>> ./ I 717000 $ 717300 300 00005000
BEGIN APPLY >>> ./ I 733000 $ 733050 50 00008000
END APPLY >>> ./ I 733000 $ 733050 50 00008000
BEGIN APPLY >>> ./ I 1341000 $ 1341050 50 00024000
END APPLY >>> ./ I 1341000 $ 1341050 50 00024000
Update Succeeded
Update Execution Time 23 milliseconds.
R14036DK
Date Thursday Aug 27, 1981 08:17:00 AM
Loaded from MAINT(294)
R14036DK: ./ R 1209000 $ 1209100 00001000
R14036DK: SCHEDULE LR R4,R1 SAVE PATH ADDRESS @VA14036 00002000
R14036DK: ./ R 1215000 $ 1215100 00003000
R14036DK: STH R4,IOBRADD SET DEVICE PATH @VA14036 00004000
BEGIN APPLY >>> ./ R 1209000 $ 1209100 00001000
END APPLY >>> ./ R 1209000 $ 1209100 00001000
BEGIN APPLY >>> ./ R 1215000 $ 1215100 00003000
END APPLY >>> ./ R 1215000 $ 1215100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12963DK
Date Thursday Aug 27, 1981 08:19:00 AM
Loaded from MAINT(294)
R12963DK: ./ I 1209100 $ 1209140 050
R12963DK: TM RDEVSTAT,RDEVDISA DEVICE OFFLINE ? @VA12963
R12963DK: BO FATAL YES, CANNOT PERFORM HALT @VA12963
R12963DK: TM RCUSTAT,RCUDISA CONTROL UNIT OFFLINE @VA12963
R12963DK: BO FATAL YES, CANNOT PERFORM HALT @VA12963
R12963DK: LA R1,RCUCHA ADDRESS OF FIRST CHANNEL @VA12963
R12963DK: LA R2,4 INDEX @VA12963
R12963DK: LA R3,RCUCHD ADDRESS OF LAST RCHBLOK @VA12963
R12963DK: NEXTCHA CL R6,0(R1) CHANNEL MATCH ? @VA12963
R12963DK: BE *+8 YES, CONTINUE @VA12963
R12963DK: BXLE R1,R2,NEXTCHA KEEP LOOKING @VA12963
R12963DK: LA R2,RCUCHA FIND CHANNEL INDEX @VA12963
R12963DK: SLR R1,R2 RELATIVE CHANNEL @VA12963
R12963DK: SRL R1,2 INDEX @VA12963
R12963DK: IC R1,DISATBL(R1) GET CU TO CH PATH @VA12963
R12963DK: EX R1,CUCHPTH AVAILABLE ? @VA12963
R12963DK: BO FATAL NO, CANNOT PERFORM HALT @VA12963
R12963DK: ./ R 1225040 1225040 $ 1225040 10
R12963DK: FATAL MSG 'FATAL IO ERROR-HALT ABORTED' @VA12963
R12963DK: ./ I 1227000 $ 1227100 100
R12963DK: CUCHPTH TM RCUSTAT,0 CHANNEL PATH OFFLINE TEST @VA12963
BEGIN APPLY >>> ./ I 1209100 $ 1209140 050
END APPLY >>> ./ I 1209100 $ 1209140 050
BEGIN APPLY >>> ./ R 1225040 1225040 $ 1225040 10
END APPLY >>> ./ R 1225040 1225040 $ 1225040 10
BEGIN APPLY >>> ./ I 1227000 $ 1227100 100
END APPLY >>> ./ I 1227000 $ 1227100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R15139DK
Date Monday Feb 15, 1982 09:26:00 AM
Loaded from MAINT(294)
R15139DK: ./ I 733250 $ 733260 00001000
R15139DK: AH R0,IOEREXT-IOERBLOK(,R1) . . .PLUS EXTENSION @VA15139 00002000
R15139DK: * SIZE 00003000
BEGIN APPLY >>> ./ I 733250 $ 733260 00001000
END APPLY >>> ./ I 733250 $ 733260 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R14349DK
Date Monday Feb 15, 1982 09:26:00 AM
Loaded from MAINT(294)
R14349DK: ./ R 1048480 1048520 $ 1048485 5 00001000
R14349DK: TM RDEVSTA3,RDEVPBYP MULTIPLE VARY FOR SAME DEV? @VA14349 00002000
R14349DK: BO RESETBYP YES - DON'T RESET PENDING. @VA14349 00003000
R14349DK: NI RDEVSTA3,X'FF'-RDEVPEND RESET VARY PENDING @VA14349 00004000
R14349DK: * FLAG 00005000
R14349DK: RESETBYP DS 0H @VA14349 00006000
R14349DK: NI RDEVSTA3,X'FF'-RDEVPBYP RESET VARY PEND BYPASS @VA14349 00007000
R14349DK: * FLAG 00008000
R14349DK: ./ I 1325200 $ 1325250 00009000
R14349DK: OI RDEVSTA3,RDEVPBYP RESET PENDING BYPASS BIT @VA14349 00010000
BEGIN APPLY >>> ./ R 1048480 1048520 $ 1048485 5 00001000
END APPLY >>> ./ R 1048480 1048520 $ 1048485 5 00001000
BEGIN APPLY >>> ./ I 1325200 $ 1325250 00009000
END APPLY >>> ./ I 1325200 $ 1325250 00009000
Update Succeeded
Update Execution Time 8 milliseconds.
R15100DK
Date Thursday Apr 01, 1982 09:30:00 AM
Loaded from MAINT(294)
R15100DK: ./ I 465000 $ 465100 100 00001000
R15100DK: MVC SAVEWRK6(4),BUFCNT-BUFFER(R9) SAVE CNT AT ENTRY @VA15100 00002000
R15100DK: ./ D 484000 $ 00003000
R15100DK: ./ R 593000 $ 593100 100 00004000
R15100DK: L R9,SAVER9 GET COMMAND LINE POINTER @VA15100 00005000
R15100DK: ./ D 596000 $ 00006000
R15100DK: ./ R 1048280 1048760 $ 1048260 20 00007000
R15100DK: L R9,SAVER9 GET COMMAND LINE POINTER @VA15100 00008000
R15100DK: USING BUFFER,R9 @VA15100 00009000
R15100DK: L R14,BUFNXT GET COMMAND POINTER @VA15100 00010000
R15100DK: L R15,SAVEWRK6 GET CNT AT ENTRY @VA15100 00011000
R15100DK: A R14,BUFCNT ADD RESIDUAL COUNT @VA15100 00012000
R15100DK: SR R14,R15 SUB COUNT AT ENTRY @VA15100 00013000
R15100DK: STM R14,R15,BUFNXT STORE CMD AND COUNT @VA15100 00014000
R15100DK: DROP R9 @VA15100 00015000
R15100DK: CALL DMKSCNFD POINT TO ON OFF OPTION @VA15100 00016000
R15100DK: TESTMULT DS 0H @VA15100 00017000
R15100DK: L R9,SAVER9 LOAD SAVED CMD POINTER @VA15100 00018000
R15100DK: CALL DMKSCNFD FIND NEXT PARM @VA15100 00019000
R15100DK: BNZ PNDRESET NO MORE TO RESET @VA15100 00020000
R15100DK: CALL DMKCVTHB CONVERT TO DEVICE ADDRESS @VA15100 00021000
R15100DK: ST R1,SAVEWRK9 SAVE FOR POSS ERROR MSG @VA15100 00022000
R15100DK: GETBLOKS DS 0H @VA15100 00023000
R15100DK: CALL DMKSCNRU FIND DEV CONTROL BLOCKS @VA15100 00024000
R15100DK: BNZ TESTFINI BRANCH IF NONE FOUND @VA15100 00025000
R15100DK: TM RDEVSTA3,RDEVPBYP MULT VARY FOR SAME DEV ? @VA15100 00026000
R15100DK: BO RESETBYP YES, DON'T RESET PENDING @VA15100 00027000
R15100DK: NI RDEVSTA3,X'FF'-RDEVPEND RESET VARY PENDING @VA15100 00028000
R15100DK: RESETBYP DS 0H @VA15100 00029000
R15100DK: NI RDEVSTA3,X'FF'-RDEVPBYP TURN OFF VARY BYPASS @VA15100 00030000
R15100DK: TESTFINI DS 0H @VA15100 00031000
R15100DK: TM CPSBITS,RANGE PROCESSING A RANGE ? @VA15100 00032000
R15100DK: BNO TESTMULT NO, SEE IF MULT DEVICES @VA15100 00033000
R15100DK: CLR R1,R4 LAST DEVICE ? @VA15100 00034000
R15100DK: BNL PNDRESET YES, BRANCH @VA15100 00035000
R15100DK: LA R1,1(0,R1) GET NEXT DEVICE ADDRESS @VA15100 00036000
R15100DK: B GETBLOKS GO FIND BLOCKS FOR DEV @VA15100 00037000
R15100DK: PNDRESET DS 0H @VA15100 00038000
R15100DK: ./ R 1255000 $ 1255100 100 00039000
R15100DK: L R1,SAVER9 GET COMMAND LINE POINTER @VA15100 00040000
R15100DK: ./ R 1260000 $ 1260100 100 00041000
R15100DK: CPS021B DS 0H @VA15100 00042000
R15100DK: L R1,SAVER9 GET COMMAND LINE POINTER @VA15100 00043000
R15100DK: ./ R 1292000 $ 1292100 100 00044000
R15100DK: L R1,SAVER9 GET COMMAND LINE POINTER @VA15100 00045000
R15100DK: ./ R 1373000 $ 1373100 100 00046000
R15100DK: L R9,SAVER9 GET COMMAND LINE POINTER @VA15100 00047000
R15100DK: ./ D 1376000 $ 00048000
BEGIN APPLY >>> ./ I 465000 $ 465100 100 00001000
END APPLY >>> ./ I 465000 $ 465100 100 00001000
BEGIN APPLY >>> ./ D 484000 $ 00003000
END APPLY >>> ./ D 484000 $ 00003000
BEGIN APPLY >>> ./ R 593000 $ 593100 100 00004000
END APPLY >>> ./ R 593000 $ 593100 100 00004000
BEGIN APPLY >>> ./ D 596000 $ 00006000
END APPLY >>> ./ D 596000 $ 00006000
BEGIN APPLY >>> ./ R 1048280 1048760 $ 1048260 20 00007000
END APPLY >>> ./ R 1048280 1048760 $ 1048260 20 00007000
BEGIN APPLY >>> ./ R 1255000 $ 1255100 100 00039000
END APPLY >>> ./ R 1255000 $ 1255100 100 00039000
BEGIN APPLY >>> ./ R 1260000 $ 1260100 100 00041000
END APPLY >>> ./ R 1260000 $ 1260100 100 00041000
BEGIN APPLY >>> ./ R 1292000 $ 1292100 100 00044000
END APPLY >>> ./ R 1292000 $ 1292100 100 00044000
BEGIN APPLY >>> ./ R 1373000 $ 1373100 100 00046000
END APPLY >>> ./ R 1373000 $ 1373100 100 00046000
BEGIN APPLY >>> ./ D 1376000 $ 00048000
END APPLY >>> ./ D 1376000 $ 00048000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC010DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC010DK: ./ I 00071600 $ 71800 200 02/08/06 16:19:11
HRC010DK: * DMKTBLLC - TRANSLATE TABLE TO TRANSLATE TO LOWERCASE HRC010DK 00071800
HRC010DK: ./ I 00149100 $ 249100 100000 02/08/06 16:19:11
HRC010DK: EXTRN DMKTBLLC TRANSLATE TO LOWER CASE HRC010DK 00249100
HRC010DK: ./ I 01378000 $ 1378010 10 02/08/06 16:19:11
HRC010DK: * HRC010DK 01378010
HRC010DK: * DMKCPSCP: ISSUE COMMAND TO HOST HRC010DK 01378020
HRC010DK: * HRC010DK 01378030
HRC010DK: DMKCPSCP RELOC PASS COMMAND TO HOST HRC010DK 01378040
HRC010DK: USING BUFFER,R9 HRC010DK 01378050
HRC010DK: CLI CPUID,X'FF' HRC010DK 01378060
HRC010DK: BZ DIAG8OK HRC010DK 01378070
HRC010DK: CLI CPUID,X'FD' HERCULES HRC010DK 01378080
HRC010DK: BZ DIAG8OKH HRC010DK 01378090
HRC010DK: LA R1,MSG182E HRC010DK 01378100
HRC010DK: LA R0,LMSG182E HRC010DK 01378110
HRC010DK: CALL DMKQCNWT,PARM=NORET+ERRMSG HRC010DK 01378120
HRC010DK: LA R6,182 HRC010DK 01378130
HRC010DK: B NOCOMMD HRC010DK 01378140
HRC010DK: DIAG8OKH EQU * HRC010DK 01378150
HRC010DK: * TRANSLATE HERCULES COMMANDS TO LOWERCASE HRC010DK 01378160
HRC010DK: LM R2,R3,BUFNXT HRC010DK 01378170
HRC010DK: LTR R3,R3 HRC010DK 01378180
HRC010DK: BZ NOCOMMD HRC010DK 01378190
HRC010DK: BCTR R3,0 HRC010DK 01378200
HRC010DK: L R6,=V(DMKTBLLC) HRC010DK 01378210
HRC010DK: EX R3,TRANLC HRC010DK 01378220
HRC010DK: B DIAG8OK HRC010DK 01378230
HRC010DK: TRANLC TR 0(0,R2),0(R6) HRC010DK 01378240
HRC010DK: DIAG8OK EQU * HRC010DK 01378250
HRC010DK: XR R6,R6 DEFAULT RETCODE HRC010DK 01378260
HRC010DK: LM R2,R3,BUFNXT GET COMMAND BUFFER LOCS HRC010DK 01378270
HRC010DK: LTR R3,R3 ZERO LENGTH ? HRC010DK 01378280
HRC010DK: BZ NOCOMMD YES - NO COMMAND HRC010DK 01378290
HRC010DK: LOOPSCN4 EQU * HRC010DK 01378300
HRC010DK: CLI 0(R2),C' ' HRC010DK 01378310
HRC010DK: BNZ GOTCOMM HRC010DK 01378320
HRC010DK: LA R2,1(R2) HRC010DK 01378330
HRC010DK: BCT R3,LOOPSCN4 HRC010DK 01378340
HRC010DK: B NOCOMMD HRC010DK 01378350
HRC010DK: GOTCOMM EQU * HRC010DK 01378360
HRC010DK: LA R0,512 GET 1 FULL PAGE OF STORAGE HRC010DK 01378370
HRC010DK: CALL DMKFREE ... HRC010DK 01378380
HRC010DK: LR R4,R2 SAVE COMMAND HRC010DK 01378390
HRC010DK: LR R5,R1 AND RESP BUFFER HRC010DK 01378400
HRC010DK: LR R6,R3 AND COMMAND LENGTH HRC010DK 01378410
HRC010DK: LA R7,512 AND RESP BFR LENGTH HRC010DK 01378420
HRC010DK: SLL R7,3 512*8=4096 HRC010DK 01378430
HRC010DK: ICM R6,B'1000',=X'E0' SET DIAG 8 FLAGS HRC010DK 01378440
HRC010DK: DC X'83460008' ISSUE DIAGNOSE HRC010DK 01378450
HRC010DK: BNZ TOOSHORT HRC010DK 01378460
HRC010DK: LTR R7,R7 ENSURE VALID LENGTH HRC010DK 01378463
HRC010DK: BNP TOOSHORT BAD LENGTH, NO RESPONSE HRC010DK 01378466
HRC010DK: LR R1,R5 REFETCH CMD RESP HRC010DK 01378470
HRC010DK: LA R0,0(R7) GET RESP LENGTH HRC010DK 01378480
HRC010DK: LR R8,R5 HRC010DK 01378490
HRC010DK: XR R3,R3 HRC010DK 01378500
HRC010DK: LOOPSCN1 EQU * HRC010DK 01378510
HRC010DK: LR R4,R8 HRC010DK 01378520
HRC010DK: ALR R4,R3 HRC010DK 01378530
HRC010DK: CLI 0(R4),X'15' HRC010DK 01378540
HRC010DK: BZ GOWRITE HRC010DK 01378550
HRC010DK: CLI 0(R4),X'0D' HRC010DK 01378560
HRC010DK: BZ GOWRITE HRC010DK 01378570
HRC010DK: CLI 0(R4),X'25' HRC010DK 01378580
HRC010DK: BZ GOWRITE HRC010DK 01378590
HRC010DK: LA R3,1(R3) HRC010DK 01378600
HRC010DK: LOOPSCN2 EQU * HRC010DK 01378610
HRC010DK: BCT R7,LOOPSCN1 HRC010DK 01378620
HRC010DK: GOWRITE EQU * HRC010DK 01378630
HRC010DK: LR R1,R8 HRC010DK 01378640
HRC010DK: ALR R8,R3 HRC010DK 01378650
HRC010DK: LR R0,R3 HRC010DK 01378660
HRC010DK: CALL DMKQCNWT,PARM=NORET HRC010DK 01378670
HRC010DK: XR R3,R3 HRC010DK 01378680
HRC010DK: LTR R7,R7 HRC010DK 01378690
HRC010DK: BZ TOOSHORT HRC010DK 01378700
HRC010DK: LA R8,1(R8) HRC010DK 01378710
HRC010DK: BCT R7,LOOPSCN1 HRC010DK 01378720
HRC010DK: TOOSHORT EQU * HRC010DK 01378730
HRC010DK: LR R1,R5 HRC010DK 01378740
HRC010DK: LA R0,512 HRC010DK 01378750
HRC010DK: CALL DMKFRET HRC010DK 01378760
HRC010DK: NOCOMMD DS 0H HRC010DK 01378770
HRC010DK: ST R6,SAVER2 HRC010DK 01378780
HRC010DK: EXIT HRC010DK 01378790
HRC010DK: MSG182E DC C'DMKCPS182E The host system cannot proc' HRC010DK 01378800
HRC010DK: DC C'ess host commands' HRC010DK 01378810
HRC010DK: LMSG182E EQU *-MSG182E HRC010DK 01378820
BEGIN APPLY >>> ./ I 00071600 $ 71800 200 02/08/06 16:19:11
END APPLY >>> ./ I 00071600 $ 71800 200 02/08/06 16:19:11
BEGIN APPLY >>> ./ I 00149100 $ 249100 100000 02/08/06 16:19:11
END APPLY >>> ./ I 00149100 $ 249100 100000 02/08/06 16:19:11
BEGIN APPLY >>> ./ I 01378000 $ 1378010 10 02/08/06 16:19:11
END APPLY >>> ./ I 01378000 $ 1378010 10 02/08/06 16:19:11
Update Succeeded
Update Execution Time 23 milliseconds.
HRC039DK
Date Sunday Feb 19, 2017 12:12:00 AM
Loaded from MAINT(094)
HRC039DK: ./ I 00929000 $ 00929100 100
HRC039DK: B CPS143 Leave alone - attached to system HRC039DK
BEGIN APPLY >>> ./ I 00929000 $ 00929100 100
END APPLY >>> ./ I 00929000 $ 00929100 100
Update Succeeded
Update Execution Time 23 milliseconds.
HRC041DK
Date Sunday Feb 19, 2017 12:21:00 AM
Loaded from MAINT(094)
HRC041DK: ./ I 01048320 $ 01048330 10
HRC041DK: LA R15,0(,R15) Strip top byte HRC041DK
BEGIN APPLY >>> ./ I 01048320 $ 01048330 10
END APPLY >>> ./ I 01048320 $ 01048330 10
Update Succeeded
Update Execution Time 23 milliseconds.