ibm:vm370-lib:cp:dmkcps.assemble_hst
Table of Contents
DMKCPS History
References
- Fixes Applied : 27
- Latest Source Date : Wednesday, December 13, 1978
- 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.
ibm/vm370-lib/cp/dmkcps.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator