DMKIOS History
References
-
-
Fixes Applied : 29
-
Last Fix ID : [HRC078DK]
Update History
CMS File Input : DMKIOS ASSEMBLE
Date : 12/14/1978 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKIOS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
R08741DK 601 LOST LINE STATUS X'70A0' BEING IGNORED
R08913DK 601 BUSY PATH STARTED INSTEAD OF FREE PATH
R09284DK 601 CHANGE LA TO LR, AR TO AVOID ADDR TRUNCATION IN LARGE MEM
R09299DK 601 3330V CYL. FAULT FLAG CHECKING INCORRECT
R09044DK 601 HUNG USER ON CHAN ERRORS WITH NO CU ADDR
R09256DK 601 REMOVE 2 UNNEEDED INSTRUCTIONS
R09242DK 601 PTF V08547 NOT COMPLETE
R09587DK 602 SPLIT MODULE DMKIOS INTO DMKIOS AND DMKIOT
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09137DK 606 MISSING LINE ON 3203 MOD 4
R09257DK 606 POOR CICS RESPONSE TIME WITH AP SYSTEM
R10398DK 609 ZERO OUT SENSE LENGTH WHEN SENSE FAILS CC3 OR BAD CHANNEL
R09196DK 611 CORRECT UNNECESSARY CALL TO DMKSCH IF R11 IS RUNUSER
R10557DK 611 SENSE SIO HANDLED INCORRECTLY IF IOB STACKED
R10824DK 611 UV00688 LOOP, RDEV IOBLOK CHAIN DESTROYED
R09500DK 612 INCREASE RETRY COUNT
R11399DK 616 INCORROUT WHEN HALT CMD ISSUED TO OFFLINE ALTERNATE PATH DEV
R11946DK 618 UV02874 UPDATE RDEVIOCT FOR REQUESTS FOR SIO'S
R12127DK 618 UV03294 USER HUNG AFTER TAPE RESET; VMEXWAIT LEFT ON
R12629DK 619 UV03782 LOOP TRYING TO ISSUE A SENSE TO A BUSY DEVICE
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13318DK 623 UV04829 HOT I/O WITH LOGOUT PENDING CAUSES FRE012
R12963DK 623 UV04282 PEVM11399 ABENDIOS001 BECAUSE IOBRADD INCORRECT
R13034DK 624 UV05359 HANDLE DEFERRED CC FOR SPLIT SEEK
R14489DK 625 UV05653 D/T3203 SINGLE CYCLE BUG WITH NO SILI IN CCW.
R15236DK 629 UV06170 REMOVE UNUSED CODE FOR DEFERRED CC
HRC065DK V01 Logical Device Support Facility
HRC069DK V01 Logical device hung if multiple LDEVs dialed to same user
HRC078DK V01 Correct handling of LDF Present/Terminate functions
R08741DK
Date Wednesday Jan 17, 1979 10:06:00 AM
Loaded from MAINT(294)
R08741DK: ./ R 608000 $ 608100 00001000
R08741DK: CLC CSW+4(2),=X'7000' CUE+SM+BUSY+0 CHAN STATUS @VA08741 00002000
BEGIN APPLY >>> ./ R 608000 $ 608100 00001000
END APPLY >>> ./ R 608000 $ 608100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R08913DK
Date Wednesday Jan 17, 1979 10:08:00 AM
Loaded from MAINT(294)
R08913DK: ./ I 1836000 $ 1836100 100 00001000
R08913DK: TM PTHFLG1,R7CUB PRCESSING 2ND CU PATH ? @VA08913 00002000
R08913DK: BO IOSFNDCU YES, CUA SET BY IOSNOSCN @VA08913 00003000
R08913DK: ./ I 2033000 $ 2033100 100 00004000
R08913DK: NI DEVADD+1,X'0F' CLEAR FIRST CUA @VA08913 00005000
R08913DK: OC DEVADD,RCUADD OR IN NEW CU ADDRESS @VA08913 00006000
BEGIN APPLY >>> ./ I 1836000 $ 1836100 100 00001000
END APPLY >>> ./ I 1836000 $ 1836100 100 00001000
BEGIN APPLY >>> ./ I 2033000 $ 2033100 100 00004000
END APPLY >>> ./ I 2033000 $ 2033100 100 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R09284DK
Date Thursday Jan 25, 1979 10:20:00 AM
Loaded from MAINT(294)
R09284DK: ./ R 1327000 $ 1327100 100
R09284DK: LR R4,R5 SET MIDPOINT @VA09284
R09284DK: AR R4,R6 TO @VA09284
BEGIN APPLY >>> ./ R 1327000 $ 1327100 100
END APPLY >>> ./ R 1327000 $ 1327100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R09299DK
Date Friday Feb 02, 1979 05:14:00 PM
Loaded from MAINT(294)
R09299DK: ./ R 690000 690000 $ 690000 10 00001000
R09299DK: TM RDEVFLAG,RDEV333V VM HANDLE OWN CYLINDER FAULTS?@VA09299 00002000
R09299DK: ./ R 786000 786000 $ 786000 10 00003000
R09299DK: TM RDEVFLAG,RDEV333V VM HANDLE OWN CYLINDER FAULTS?@VA09299 00004000
R09299DK: ./ R 997000 997000 $ 997000 10 00005000
R09299DK: TM RDEVFLAG,RDEV333V VM HANDLE OWN CYLINDER FAULTS?@VA09299 00006000
BEGIN APPLY >>> ./ R 690000 690000 $ 690000 10 00001000
END APPLY >>> ./ R 690000 690000 $ 690000 10 00001000
BEGIN APPLY >>> ./ R 786000 786000 $ 786000 10 00003000
END APPLY >>> ./ R 786000 786000 $ 786000 10 00003000
BEGIN APPLY >>> ./ R 997000 997000 $ 997000 10 00005000
END APPLY >>> ./ R 997000 997000 $ 997000 10 00005000
Update Succeeded
Update Execution Time 31 milliseconds.
R09044DK
Date Monday Feb 26, 1979 01:03:00 PM
Loaded from MAINT(294)
R09044DK: ./ R 555000 $ 555100 00001000
R09044DK: B CCHRET CONTINUE @VA09044 00002000
R09044DK: ./ I 591000 $ 591100 100 00003000
R09044DK: CCHRET EQU * @VA09044 00004000
R09044DK: LTR R7,R7 DO WE HAVE RCUBLOK ? @VA09044 00005000
R09044DK: BM IOSRSTCH NO, START CHANNEL @VA09044 00006000
R09044DK: LTR R8,R8 DO WE HAVE RDEVICE ? @VA09044 00007000
R09044DK: BM IOSRSTCU NO, START CU @VA09044 00008000
BEGIN APPLY >>> ./ R 555000 $ 555100 00001000
END APPLY >>> ./ R 555000 $ 555100 00001000
BEGIN APPLY >>> ./ I 591000 $ 591100 100 00003000
END APPLY >>> ./ I 591000 $ 591100 100 00003000
Update Succeeded
Update Execution Time 31 milliseconds.
R09256DK
Date Monday Feb 26, 1979 01:04:00 PM
Loaded from MAINT(294)
R09256DK: ./ D 179000 180000 $ 00001000
BEGIN APPLY >>> ./ D 179000 180000 $ 00001000
END APPLY >>> ./ D 179000 180000 $ 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09242DK
Date Monday Feb 26, 1979 01:15:00 PM
Loaded from MAINT(294)
R09242DK: ./ R 604000 $ 604100 100 00001000
R09242DK: BO CHTIO YES, SEE IF WE CAN IGNOR @VA09242 00002000
R09242DK: TIORET EQU * @VA09242 00003000
R09242DK: ./ I 714000 $ 714100 100 00004000
R09242DK: CHTIO EQU * @VA09242 00005000
R09242DK: L R10,RDEVAIOB GET IOB @VA09242 00006000
R09242DK: LTR R10,R10 IS THERE ONE ? @VA09242 00007000
R09242DK: BZ OFFLINE NO @VA09242 00008000
R09242DK: TM IOBSPEC,IOBTIO TIO IOB @VA09242 00009000
R09242DK: BO TIORET YES, FOR TIO CU CAN BE OFFLINE @VA09242 00010000
R09242DK: ./ R 1836000 $ 1836050 00011000
R09242DK: BZ IOSCHTIO NO,TAKE SHORT PATH @VA09242 00012000
R09242DK: ./ I 1971000 $ 1971100 100 00013000
R09242DK: SPACE 1 00014000
R09242DK: IOSCHTIO EQU * @VA09242 00015000
R09242DK: TM IOBSPEC,IOBTIO TEST I/O ? @VA09242 00016000
R09242DK: BZ IOSCU NO, CHECK OFFLINE @VA09242 00017000
R09242DK: TM IOBSTAT,IOBPATHF FIXED PATH ? @VA09242 00018000
R09242DK: BO IOSCUGO YES, DO NOT CHECK OFFLINE @VA09242 00019000
R09242DK: ./ I 1974000 $ 1974500 00020000
R09242DK: IOSCUGO EQU * @VA09242 00021000
BEGIN APPLY >>> ./ R 604000 $ 604100 100 00001000
END APPLY >>> ./ R 604000 $ 604100 100 00001000
BEGIN APPLY >>> ./ I 714000 $ 714100 100 00004000
END APPLY >>> ./ I 714000 $ 714100 100 00004000
BEGIN APPLY >>> ./ R 1836000 $ 1836050 00011000
END APPLY >>> ./ R 1836000 $ 1836050 00011000
BEGIN APPLY >>> ./ I 1971000 $ 1971100 100 00013000
END APPLY >>> ./ I 1971000 $ 1971100 100 00013000
BEGIN APPLY >>> ./ I 1974000 $ 1974500 00020000
END APPLY >>> ./ I 1974000 $ 1974500 00020000
Update Succeeded
Update Execution Time 31 milliseconds.
R09587DK
Date Tuesday Apr 17, 1979 04:17:00 AM
Loaded from MAINT(294)
R09587DK: ./ * UPDATE DMKIOS PROLOG DMK00010
R09587DK: ./ R 9000 125000 $ 9000 100 DMK00020
R09587DK: *********************************************************************** DMK00030
R09587DK: * * DMK00040
R09587DK: *MODULE NAME = DMKIOS * DMK00050
R09587DK: * * DMK00060
R09587DK: *DESCRIPTIVE NAME = DMKIOS (CP) I/O SCHEDULER * DMK00070
R09587DK: * * DMK00080
R09587DK: *COPYRIGHT = NONE * DMK00090
R09587DK: * * DMK00100
R09587DK: *STATUS = VM/370 - RELEASE 6, LEVEL 0 * DMK00110
R09587DK: * * DMK00120
R09587DK: *FUNCTION = TO SCHEDULE REQUESTS FOR VIRTUAL MACHINE AND CONTROL * DMK00130
R09587DK: * PROGRAM I/O OPERATIONS. * DMK00140
R09587DK: * * DMK00150
R09587DK: *NOTES = SEE BELOW * DMK00160
R09587DK: * * DMK00170
R09587DK: * DEPENDENCIES = NONE * DMK00180
R09587DK: * * DMK00190
R09587DK: * RESTRICTIONS = NONE * DMK00200
R09587DK: * * DMK00210
R09587DK: * REGISTER CONVENTIONS = R0 = PSA * DMK00220
R09587DK: * R1 = CPEXBLOK * DMK00230
R09587DK: * R2 = I/O RESTART INDEX (0, 4, 8 OR 12) * DMK00240
R09587DK: * R3 = INTERNAL SUBROUTINE LINKAGE (1ST LEVEL * DMK00250
R09587DK: * R4 = INTERNAL SUBROUTINE LINKAGE (3RD LEVEL * DMK00260
R09587DK: * R5 = INTERNAL SUBROUTINE LINKAGE (2ND LEVEL * DMK00270
R09587DK: * R6 = RCHBLOK BASE * DMK00280
R09587DK: * R7 = RCUBLOK BASE * DMK00290
R09587DK: * R8 = RDEVBLOK BASE * DMK00300
R09587DK: * R9 = DMKIOS 2ND BASE * DMK00310
R09587DK: * R10 = IOBLOK BASE * DMK00320
R09587DK: * R11 = VMBLOK BASE * DMK00330
R09587DK: * R12 = DMKIOS BASE * DMK00340
R09587DK: * R13 = SAVEAREA BASE FOR DMKIOSQR AND DMKIOSQV* DMK00350
R09587DK: * R14 = EXTERNAL SUBROUTINE LINKAGE * DMK00360
R09587DK: * R15 = EXTERNAL SUBROUTINE LINKAGE * DMK00370
R09587DK: * * DMK00380
R09587DK: * PATCH LABEL = N/A * DMK00390
R09587DK: * * DMK00400
R09587DK: *MODULE TYPE = CSECT * DMK00410
R09587DK: * * DMK00420
R09587DK: * PROCESSOR = ASSEMBLER XF * DMK00430
R09587DK: * * DMK00440
R09587DK: * MODULE SIZE = 8K BYTES (2 BASE REGISTERS DESIGN POINT) * DMK00450
R09587DK: * * DMK00460
R09587DK: * ATTRIBUTES = REENTRANT, RESIDENT. * DMK00470
R09587DK: * * DMK00480
R09587DK: *ENTRY POINT = DMKIOSQR * DMK00490
R09587DK: * * DMK00500
R09587DK: * PURPOSE = SCHEDULE A CP GENERATED I/O OPERATION * DMK00510
R09587DK: * * DMK00520
R09587DK: * LINKAGE = ENTERED VIA SVC CALL * DMK00530
R09587DK: * * DMK00540
R09587DK: *ENTRY POINT = DMKIOSQV * DMK00550
R09587DK: * * DMK00560
R09587DK: * PURPOSE = SCHEDULE A VIRTUAL MACHINE I/O OPERATION * DMK00570
R09587DK: * * DMK00580
R09587DK: * LINKAGE = ENTERED VIA SVC CALL * DMK00590
R09587DK: * * DMK00600
R09587DK: *ENTRY POINT = DMKIOSRW * DMK00610
R09587DK: * * DMK00620
R09587DK: * PURPOSE = PROCESS IOBLOK USED FOR REWIND * DMK00630
R09587DK: * * DMK00640
R09587DK: * LINKAGE = INTERRUPT RETURN ADDRESS FOR REWIND * DMK00650
R09587DK: * * DMK00660
R09587DK: *ENTRY POINT = DMKIOSHA * DMK00670
R09587DK: * * DMK00680
R09587DK: * PURPOSE = HALT AN ACTIVE DEVICE * DMK00690
R09587DK: * * DMK00700
R09587DK: * LINKAGE = ENTERED VIA SVC CALL * DMK00710
R09587DK: * * DMK00720
R09587DK: *ENTRY POINT = DMKIOSER * DMK00730
R09587DK: * * DMK00740
R09587DK: * PURPOSE = ERROR PROCESSING * DMK00750
R09587DK: * * DMK00760
R09587DK: * LINKAGE = CPEXBLOK RETURN ADDRESS DURING ERROR PROCESSING * DMK00770
R09587DK: * (FOR DISPATCHER TO COMPARE AGAINST) * DMK00780
R09587DK: * * DMK00790
R09587DK: *ENTRY POINT = DMKIOSRC * DMK00800
R09587DK: * * DMK00810
R09587DK: * PURPOSE = ERROR PROCESSING * DMK00820
R09587DK: * * DMK00830
R09587DK: * PURPOSE = CPEXBLOK RETURN ADDRESS DURING ERROR PROCESSING * DMK00840
R09587DK: * (FOR DISPATCHER TO COMPARE AGAINST) * DMK00850
R09587DK: * * DMK00860
R09587DK: *ENTRY POINT = DMKIOSRS * DMK00870
R09587DK: * * DMK00880
R09587DK: * PURPOSE = RESTART DEVICE * DMK00890
R09587DK: * * DMK00900
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK00910
R09587DK: * * DMK00920
R09587DK: *ENTRY POINT = DMKIOSRU * DMK00930
R09587DK: * * DMK00940
R09587DK: * PURPOSE = RESTART CU-CH * DMK00950
R09587DK: * * DMK00960
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK00970
R09587DK: * * DMK00980
R09587DK: *ENTRY POINT = DMKIOSRH * DMK00990
R09587DK: * * DMK01000
R09587DK: * PURPOSE = RESTART CH * DMK01010
R09587DK: * * DMK01020
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK01030
R09587DK: * * DMK01040
R09587DK: *ENTRY POINT = DMKIOSRY * DMK01050
R09587DK: * * DMK01060
R09587DK: * PURPOSE = PERFORM ERROR RECOVERY * DMK01070
R09587DK: * * DMK01080
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK01090
R09587DK: * * DMK01100
R09587DK: *ENTRY POINT = DMKIOSRQ * DMK01110
R09587DK: * * DMK01120
R09587DK: * PURPOSE = REQUEUE REQUEST * DMK01130
R09587DK: * * DMK01140
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK01150
R09587DK: * * DMK01160
R09587DK: *ENTRY POINT = DMKIOSST * DMK01170
R09587DK: * * DMK01180
R09587DK: * PURPOSE = ISSUE SIO * DMK01190
R09587DK: * * DMK01200
R09587DK: * LINKAGE = ENTERED VIA GOTO FROM DMKIOT * DMK01210
R09587DK: * * DMK01220
R09587DK: *ENTRY POINT = DMKIOSSV * DMK01230
R09587DK: * * DMK01240
R09587DK: * PURPOSE = ADDRESS OF CHANNEL AND CONTROL UNIT UPON ENTRY * DMK01250
R09587DK: * * DMK01260
R09587DK: * LINKAGE = USED BY DMKIOT FOR ADDRESSES SAVE AREA * DMK01270
R09587DK: * * DMK01280
R09587DK: *INPUT = * DMK01290
R09587DK: * DMKIOSQR * DMK01300
R09587DK: * R8 = ADDRESS OF RDEVBLOK FOR UNIT TO START * DMK01310
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01320
R09587DK: * R12 = BASE FOR DMKIOSQR * DMK01330
R09587DK: * R13 = ADDRESS OF STANDARD SAVEAREA * DMK01340
R09587DK: * DMKIOSQV * DMK01350
R09587DK: * R8 = ADDRESS OF VDEVBLOK FOR VIRTUAL DEVICE TO START * DMK01360
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01370
R09587DK: * R12 = BASE FOR DMKIOSQV * DMK01380
R09587DK: * R13 = ADDRESS OF STANDARD SAVEAREA * DMK01390
R09587DK: * DMKIOSHA * DMK01400
R09587DK: * R8 = ADDRESS OF RDEVBLOK FOR UNIT TO HALT * DMK01410
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01420
R09587DK: * R12 = BASE FOR DMKIOSHA * DMK01430
R09587DK: * R13 = ADDRESS OF STANDARD SAVEAREA * DMK01440
R09587DK: * DMKIOSRW * DMK01450
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01460
R09587DK: * R12 = BASE FOR DMKIOSRW * DMK01470
R09587DK: * DMKIOSER * DMK01480
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01490
R09587DK: * R12 = BASE FOR DMKIOSER * DMK01500
R09587DK: * DMKIOSRC * DMK01510
R09587DK: * R10 = ADDRESS OF IOBLOK CONTAINING TASK INFORMATION * DMK01520
R09587DK: * R12 = BASE FOR DMKIOSRC * DMK01530
R09587DK: * DMKIOSRH * DMK01540
R09587DK: * R12 = BASE FOR DMKIOSRH * DMK01550
R09587DK: * DMKIOSRQ * DMK01560
R09587DK: * R12 = BASE FOR DMKIOSRQ * DMK01570
R09587DK: * DMKIOSRS * DMK01580
R09587DK: * R12 = BASE FOR DMKIOSRS * DMK01590
R09587DK: * DMKIOSRU * DMK01600
R09587DK: * R12 = BASE FOR DMKIOSRU * DMK01610
R09587DK: * DMKIOSRY * DMK01620
R09587DK: * R12 = BASE FOR DMKIOSRY * DMK01630
R09587DK: * DMKIOSST * DMK01640
R09587DK: * R12 = BASE FOR DMKIOSST * DMK01650
R09587DK: * DMKIOSSV * DMK01660
R09587DK: * NONE * DMK01670
R09587DK: *OUTPUT = * DMK01680
R09587DK: * DMKIOSQR * DMK01690
R09587DK: * NONE * DMK01700
R09587DK: * DMKIOSQV * DMK01710
R09587DK: * NONE * DMK01720
R09587DK: * DMKIOSHA * DMK01730
R09587DK: * NONE * DMK01740
R09587DK: * DMKIOSRW * DMK01750
R09587DK: * NONE * DMK01760
R09587DK: * DMKIOSRH * DMK01770
R09587DK: * NONE * DMK01780
R09587DK: * DMKIOSRQ * DMK01790
R09587DK: * NONE * DMK01800
R09587DK: * DMKIOSRS * DMK01810
R09587DK: * NONE * DMK01820
R09587DK: * DMKIOSRU * DMK01830
R09587DK: * NONE * DMK01840
R09587DK: * DMKIOSRY * DMK01850
R09587DK: * NONE * DMK01860
R09587DK: * DMKIOSST * DMK01870
R09587DK: * NONE * DMK01880
R09587DK: *EXIT-NORMAL = * DMK01890
R09587DK: * DMKIOSQR * DMK01900
R09587DK: * RETURN TO CALLER VIA EXIT SVC * DMK01910
R09587DK: * DMKIOSQV * DMK01920
R09587DK: * RETURN TO CALLER VIA EXIT SVC * DMK01930
R09587DK: * DMKIOSHA * DMK01940
R09587DK: * RETURN TO CALLER VIA EXIT SVC * DMK01950
R09587DK: * DMKIOSER * DMK01960
R09587DK: * RETURN TO CALLER VIA EXIT SVC IF ENTRY WAS VIA CALL; * DMK01970
R09587DK: * ELSE TO DISPATCHER (DMKDSPCH OR DMKDSPA) VIA GOTO * DMK01980
R09587DK: * DMKIOSRW * DMK01990
R09587DK: * DMKDSPCH VIA GOTO * DMK02000
R09587DK: * DMKIOSRC * DMK02010
R09587DK: * DMKDSPCH VIA GOTO * DMK02020
R09587DK: * DMKIOSRH * DMK02030
R09587DK: * DMKDSPCH VIA GOTO * DMK02040
R09587DK: * DMKIOSRQ * DMK02050
R09587DK: * DMKDSPCH VIA GOTO * DMK02060
R09587DK: * DMKIOSRS * DMK02070
R09587DK: * DMKDSPCH VIA GOTO * DMK02080
R09587DK: * DMKIOSRU * DMK02090
R09587DK: * DMKDSPCH VIA GOTO * DMK02100
R09587DK: * DMKIOSRY * DMK02110
R09587DK: * DMKDSPCH VIA GOTO * DMK02120
R09587DK: * DMKIOSST * DMK02130
R09587DK: * DMKDSPCH VIA GOTO * DMK02140
R09587DK: *EXIT-ERROR = * DMK02150
R09587DK: * DMKIOSQR * DMK02160
R09587DK: * NONE * DMK02170
R09587DK: * DMKIOSQV * DMK02180
R09587DK: * NONE * DMK02190
R09587DK: * DMKIOSHA * DMK02200
R09587DK: * ABEND 1 * DMK02210
R09587DK: * ABEND 4 * DMK02220
R09587DK: * DMKIOSER * DMK02230
R09587DK: * ABEND 2 * DMK02240
R09587DK: * DMKIOSRW * DMK02250
R09587DK: * NONE * DMK02260
R09587DK: * DMKIOSRC * DMK02270
R09587DK: * NONE * DMK02280
R09587DK: * DMKIOSRH * DMK02290
R09587DK: * NONE * DMK02300
R09587DK: * DMKIOSRQ * DMK02310
R09587DK: * NONE * DMK02320
R09587DK: * DMKIOSRS * DMK02330
R09587DK: * NONE * DMK02340
R09587DK: * DMKIOSRU * DMK02350
R09587DK: * NONE * DMK02360
R09587DK: * DMKIOSRY * DMK02370
R09587DK: * NONE * DMK02380
R09587DK: * DMKIOSST * DMK02390
R09587DK: * NONE * DMK02400
R09587DK: * * DMK02410
R09587DK: *EXTERNAL REFERENCES = SEE BELOW * DMK02420
R09587DK: * * DMK02430
R09587DK: * ROUTINES = DMKSTKIO - TO STACK FOR 2ND LEVEL PROCESSING IOBLOKS FOR* DMK02440
R09587DK: * COMPLETED OPERATIONS. * DMK02450
R09587DK: * DMKSTKLP - TO STACK A PRIORITY CPEXBLOK * DMK02460
R09587DK: * DMKSTKMP - TO STACK A REQUEST ON MAIN (I/O) PROCESSOR * DMK02470
R09587DK: * DMKSCNRU - TO LOCATE RCHBLOK, RCUBLOK, AND RDEVBLOK FOR * DMK02480
R09587DK: * THE UNIT CAUSING THE INTERRUPT * DMK02490
R09587DK: * DMKIOERR - TO RECORD I/O ERRORS * DMK02500
R09587DK: * DMKCCHIS - TO HANDLE CHANNEL ERRORS DETECTED VIA STATUS * DMK02510
R09587DK: * STORED ON CC 1 AFTER A SIO * DMK02520
R09587DK: * DMKDASER - TO RETRY FAILING DASD OPERATIONS * DMK02530
R09587DK: * DMKRSPER - TO RETRY FAILING UNIT RECORD OPERATIONS * DMK02540
R09587DK: * DMKTAPER - TO RETRY FAILING TAPE OPERATIONS * DMK02550
R09587DK: * DMKBSCER - TO RETRY BISYNC OPERATIONS * DMK02560
R09587DK: * DMKTRDSI - TO TRACE VIRTUAL MACHINE START I/O INSTRUCTION DMK02570
R09587DK: * DMKFREE - TO OBTAIN FREE STORAGE FOR AN IOBLOK * DMK02580
R09587DK: * DMKFRET - TO RETURN IOBLOKS TO FREE STORAGE * DMK02590
R09587DK: * DMKSCHDL - TO ALTER A VIRTUAL MACHINE'S DISPATCH STATUS * DMK02600
R09587DK: * DMKENTSK - MONITOR SEEKS LIST * DMK02610
R09587DK: * DATA AREAS = DMKSYSVM - SYSTEM VMBLOK * DMK02620
R09587DK: * PSA - PREFIX STORAGE AREA * DMK02630
R09587DK: * IOERBLOK - I/O ERROR INFORMATION BLOCK * DMK02640
R09587DK: * IOBLOK - I/O TACK CONTROL BLOCK * DMK02650
R09587DK: * CPEXBLOK - * DMK02660
R09587DK: * RCHBLOK - REAL CHANNEL BLOCK * DMK02670
R09587DK: * RCUBLOK - REAL CONTROL UNIT BLOCK * DMK02680
R09587DK: * RDEVBLOK - REAL DEVICE BLOCK * DMK02690
R09587DK: * VMBLOK - VIRTUAL MACHINE CONTROL BLOCK * DMK02700
R09587DK: * SAVEAREA - SAVE AREA SVC CALL * DMK02710
R09587DK: * * DMK02720
R09587DK: * CONTROL BLOCKS = * DMK02730
R09587DK: * DMKRIOCU - START OF REAL CONTROL UNIT BLOCK LIST * DMK02740
R09587DK: * DMKRIOCT - LOOP DELIMITING ADDRESS * DMK02750
R09587DK: * * DMK02760
R09587DK: *TABLES = NONE * DMK02770
R09587DK: * * DMK02780
R09587DK: *MACROS = PSA * DMK02790
R09587DK: * * DMK02800
R09587DK: *CHANGE ACTIVITY = AS FOLLOWS: * DMK02810
R09587DK: * CHANGE 01 02/16/79 SPLIT OF MODULE DMKIOS - DMKIOS PORTION * DMK02820
R09587DK: * * DMK02830
R09587DK: *********************************************************************** DMK02840
R09587DK: ./ R 131000 $ 131000 DMK02850
R09587DK: ENTRY DMKIOSQR,DMKIOSQV,DMKIOSHA @VA09587 DMK02860
R09587DK: ./ I 132000 $ 132100 DMK02870
R09587DK: ENTRY DMKIOSRS,DMKIOSSV @VA09587 DMK02880
R09587DK: ENTRY DMKIOSRH,DMKIOSRQ,DMKIOSRU,DMKIOSRY,DMKIOSST @VA09587 DMK02890
R09587DK: ./ * UPDATE EXTERNAL REFERENCES DMK02900
R09587DK: ./ R 136000 $ 136000 DMK02910
R09587DK: EXTRN DMKSCHDL,DMKSTKIO,DMKSCNRU @VA09587 DMK02920
R09587DK: ./ R 137000 $ 137000 DMK02930
R09587DK: EXTRN DMKCCHIS,DMKIOERR,DMKDASER,DMKTAPER,DMKRSPER @VA09587 DMK02940
R09587DK: ./ D 138000 DMK02950
R09587DK: ./ R 139000 $ 139000 DMK02960
R09587DK: EXTRN DMKBSCER @VA09587 DMK02970
R09587DK: ./ D 140000 141000 DMK02980
R09587DK: ./ D 149000 DMK02990
R09587DK: ./ * DMKIOSIN BEING MOVED INTO DMKIOT DMK03000
R09587DK: ./ D 418000 890000 DMK03010
R09587DK: ./ I 927000 $ 927100 050 DMK03020
R09587DK: USING *,R15 ADDRESSABILITY @VA09587 DMK03030
R09587DK: L R12,IOSBASE1 RESET BASE REGISTER TO IOS @VA09587 DMK03040
R09587DK: USING DMKIOS,R12 ADDRESSABILITY @VA09587 DMK03050
R09587DK: L R9,IOSBASE2 RESET BASE REGISTER TO IOS @VA09587 DMK03060
R09587DK: USING DMKIOS,R12,R9 ADDRESSABILITY @VA09587 DMK03070
R09587DK: DROP R15 @VA09587 DMK03080
R09587DK: ./ D 974000 1006000 DMK03090
R09587DK: ./ R 1007000 $ 1007000 DMK03100
R09587DK: EJECT DMK03110
R09587DK: ./ I 1013000 $ 1013100 15 DMK03120
R09587DK: B IOSRSTDV @VA09587 DMK03130
R09587DK: * DMK03140
R09587DK: USING *,R12 @VA09587 DMK03150
R09587DK: DMKIOSRH DS 0H @VA09587 DMK03160
R09587DK: L R12,IOSBASE1 @VA09587 DMK03170
R09587DK: USING DMKIOS,R12 @VA09587 DMK03180
R09587DK: L R9,IOSBASE2 @VA09587 DMK03190
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03200
R09587DK: B IOSRSTCH @VA09587 DMK03210
R09587DK: * DMK03220
R09587DK: USING *,R12 @VA09587 DMK03230
R09587DK: DMKIOSRQ DS 0H @VA09587 DMK03240
R09587DK: L R12,IOSBASE1 @VA09587 DMK03250
R09587DK: USING DMKIOS,R12 @VA09587 DMK03260
R09587DK: L R9,IOSBASE2 @VA09587 DMK03270
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03280
R09587DK: B IOSREQUE @VA09587 DMK03290
R09587DK: * DMK03300
R09587DK: DMKIOSRS DS 0H @VA09587 DMK03310
R09587DK: USING *,R12 @VA09587 DMK03320
R09587DK: L R12,IOSBASE1 @VA09587 DMK03330
R09587DK: USING DMKIOS,R12 @VA09587 DMK03340
R09587DK: L R9,IOSBASE2 @VA09587 DMK03350
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03360
R09587DK: B IOSRSTDV @VA09587 DMK03370
R09587DK: * DMK03380
R09587DK: USING *,R12 @VA09587 DMK03390
R09587DK: DMKIOSRU DS 0H @VA09587 DMK03400
R09587DK: L R12,IOSBASE1 @VA09587 DMK03410
R09587DK: USING DMKIOS,R12 @VA09587 DMK03420
R09587DK: L R9,IOSBASE2 @VA09587 DMK03430
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03440
R09587DK: B IOSRSTCU @VA09587 DMK03450
R09587DK: * DMK03460
R09587DK: USING *,R12 @VA09587 DMK03470
R09587DK: DMKIOSRY DS 0H @VA09587 DMK03480
R09587DK: L R12,IOSBASE1 @VA09587 DMK03490
R09587DK: USING DMKIOS,R12 @VA09587 DMK03500
R09587DK: L R9,IOSBASE2 @VA09587 DMK03510
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03520
R09587DK: B CALLERP @VA09587 DMK03530
R09587DK: * DMK03540
R09587DK: USING *,R12 @VA09587 DMK03550
R09587DK: DMKIOSST DS 0H @VA09587 DMK03560
R09587DK: L R12,IOSBASE1 @VA09587 DMK03570
R09587DK: USING DMKIOS,R12 @VA09587 DMK03580
R09587DK: L R9,IOSBASE2 @VA09587 DMK03590
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03600
R09587DK: B IOSTART @VA09587 DMK03610
R09587DK: * DMK03620
R09587DK: USING *,R15 @VA09587 DMK03630
R09587DK: DMKIOSRC DS 0H @VA09587 DMK03640
R09587DK: L R12,IOSBASE1 @VA09587 DMK03650
R09587DK: DROP R15 @VA09587 DMK03660
R09587DK: USING DMKIOS,R12 @VA09587 DMK03670
R09587DK: L R9,IOSBASE2 @VA09587 DMK03680
R09587DK: USING DMKIOS,R12,R9 @VA09587 DMK03690
R09587DK: B IOSRC1 @VA09587 DMK03700
R09587DK: IOSBASE1 DC A(DMKIOS) ADCONS MUST BE IN THE FIRST 4K @VA09587 DMK03710
R09587DK: IOSBASE2 DC A(DMKIOS+4096) AND AFTER THE LAST ENTRY POINT @VA09587 DMK03720
R09587DK: ./ I 1791000 $ 1791100 100 DMK03730
R09587DK: DMKIOSSV DS 0F RCH AND RCU ADDRESS @VA09587 DMK03740
R09587DK: ./ D 2145000 2241000 DMK03750
R09587DK: ./ * UE3270 BEING MOVED INTO DMKIOT DMK03760
R09587DK: ./ D 2340000 2358000 DMK03770
R09587DK: ./ R 2702000 $ 2702000 DMK03780
R09587DK: IOSRC1 EQU * DMKIOSRC BEGINS EXECUTION HERE @VA09587 DMK03790
R09587DK: ./ * MISC ITEMS BEING MOVED TO DMKIOT DMK03800
R09587DK: ./ D 2783000 2784000 DMK03810
BEGIN APPLY >>> ./ * UPDATE DMKIOS PROLOG DMK00010
Comment >>> ./ * UPDATE DMKIOS PROLOG DMK00010
END APPLY >>> ./ * UPDATE DMKIOS PROLOG DMK00010
BEGIN APPLY >>> ./ R 9000 125000 $ 9000 100 DMK00020
END APPLY >>> ./ R 9000 125000 $ 9000 100 DMK00020
BEGIN APPLY >>> ./ R 131000 $ 131000 DMK02850
END APPLY >>> ./ R 131000 $ 131000 DMK02850
BEGIN APPLY >>> ./ I 132000 $ 132100 DMK02870
END APPLY >>> ./ I 132000 $ 132100 DMK02870
BEGIN APPLY >>> ./ * UPDATE EXTERNAL REFERENCES DMK02900
Comment >>> ./ * UPDATE EXTERNAL REFERENCES DMK02900
END APPLY >>> ./ * UPDATE EXTERNAL REFERENCES DMK02900
BEGIN APPLY >>> ./ R 136000 $ 136000 DMK02910
END APPLY >>> ./ R 136000 $ 136000 DMK02910
BEGIN APPLY >>> ./ R 137000 $ 137000 DMK02930
END APPLY >>> ./ R 137000 $ 137000 DMK02930
BEGIN APPLY >>> ./ D 138000 DMK02950
END APPLY >>> ./ D 138000 DMK02950
BEGIN APPLY >>> ./ R 139000 $ 139000 DMK02960
END APPLY >>> ./ R 139000 $ 139000 DMK02960
BEGIN APPLY >>> ./ D 140000 141000 DMK02980
END APPLY >>> ./ D 140000 141000 DMK02980
BEGIN APPLY >>> ./ D 149000 DMK02990
END APPLY >>> ./ D 149000 DMK02990
BEGIN APPLY >>> ./ * DMKIOSIN BEING MOVED INTO DMKIOT DMK03000
Comment >>> ./ * DMKIOSIN BEING MOVED INTO DMKIOT DMK03000
END APPLY >>> ./ * DMKIOSIN BEING MOVED INTO DMKIOT DMK03000
BEGIN APPLY >>> ./ D 418000 890000 DMK03010
END APPLY >>> ./ D 418000 890000 DMK03010
BEGIN APPLY >>> ./ I 927000 $ 927100 050 DMK03020
END APPLY >>> ./ I 927000 $ 927100 050 DMK03020
BEGIN APPLY >>> ./ D 974000 1006000 DMK03090
END APPLY >>> ./ D 974000 1006000 DMK03090
BEGIN APPLY >>> ./ R 1007000 $ 1007000 DMK03100
END APPLY >>> ./ R 1007000 $ 1007000 DMK03100
BEGIN APPLY >>> ./ I 1013000 $ 1013100 15 DMK03120
END APPLY >>> ./ I 1013000 $ 1013100 15 DMK03120
BEGIN APPLY >>> ./ I 1791000 $ 1791100 100 DMK03730
END APPLY >>> ./ I 1791000 $ 1791100 100 DMK03730
BEGIN APPLY >>> ./ D 2145000 2241000 DMK03750
END APPLY >>> ./ D 2145000 2241000 DMK03750
BEGIN APPLY >>> ./ * UE3270 BEING MOVED INTO DMKIOT DMK03760
Comment >>> ./ * UE3270 BEING MOVED INTO DMKIOT DMK03760
END APPLY >>> ./ * UE3270 BEING MOVED INTO DMKIOT DMK03760
BEGIN APPLY >>> ./ D 2340000 2358000 DMK03770
END APPLY >>> ./ D 2340000 2358000 DMK03770
BEGIN APPLY >>> ./ R 2702000 $ 2702000 DMK03780
END APPLY >>> ./ R 2702000 $ 2702000 DMK03780
BEGIN APPLY >>> ./ * MISC ITEMS BEING MOVED TO DMKIOT DMK03800
Comment >>> ./ * MISC ITEMS BEING MOVED TO DMKIOT DMK03800
END APPLY >>> ./ * MISC ITEMS BEING MOVED TO DMKIOT DMK03800
BEGIN APPLY >>> ./ D 2783000 2784000 DMK03810
END APPLY >>> ./ D 2783000 2784000 DMK03810
Update Succeeded
Update Execution Time 109 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:52: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.
R09137DK
Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
R09137DK: ./ R 2563000 2579000 $ 2563100 1000 00001000
R09137DK: IOSENSE EQU * HERE TO SENSE ALL UNITS @VA09137 00002000
R09137DK: TM IOBSPEC2,IOBSNSIO UC WHILE ATTEMPTING SENSE @VA09137 00003000
R09137DK: ./ I 2598000 $ 2598100 100 00004000
R09137DK: LM R0,R1,IOSSNCCW GET MODEL SENSE CCW @VA09137 00005000
R09137DK: ALR R0,R4 ADJUST DATA ADDRESS @VA09137 00006000
R09137DK: STM R0,R1,IOERCCW SAVE IN IOERBLOK @VA09137 00007000
R09137DK: OI IOBSPEC2,IOBUC FLAG ERROR TASK @VA09137 00008000
R09137DK: ./ R 2603000 $ 2603050 50 00009000
R09137DK: BNZ NOT3203 YES, GO AROUND 3203 CODE @VA09137 00010000
R09137DK: TM RDEVSTAT,RDEVDED DEVICE DEDICATED ? @VA09137 00011000
R09137DK: BNO IOSPERP NO,NO CHECK FOR 3203 @VA09137 00012000
R09137DK: CLC RDEVTYPC(2),=AL1(CLASURO,TYP3203) 3203 PRINTER? @VA09137 00013000
R09137DK: BNE IOSPERP NO, GET SENSE CCW @VA09137 00014000
R09137DK: CLC CSW+4(2),=AL1(CE+UC,0) SPECIAL 3203 INTERRUPT? @VA09137 00015000
R09137DK: BNE IOSPERP NO, GET SENSE CCW @VA09137 00016000
R09137DK: OI IOBSPEC3,IOBPST TELL VIO TO POST @VA09137 00017000
R09137DK: LR R3,R5 SAVE R5 IN R3 ACROSS BAL @VA09137 00018000
R09137DK: BAL R5,COPYIOB REFLECT THIS INTERRUPT @VA09137 00019000
R09137DK: LR R5,R3 RESTORE R5 @VA09137 00020000
R09137DK: NI IOBSPEC3,255-IOBPST TURN OFF POST @VA09137 00021000
R09137DK: B SNS3203 DO TIO @VA09137 00022000
R09137DK: NOT3203 EQU * @VA09137 00023000
R09137DK: ./ D 2606000 2610000 $ 00024000
R09137DK: ./ I 2627000 $ 2627050 50 00025000
R09137DK: SPACE 00026000
R09137DK: SNS3203 EQU * 3203 TIO CODE FOR 0A STATUS @VA09137 00027000
R09137DK: LH R1,IOBRADD GET REAL DEVICE ADDRESS @VA09137 00028000
R09137DK: XC CSW(8),CSW CLEAR CSW @VA09137 00029000
R09137DK: TIO 0(R1) IS IT BUSY ? @VA09137 00030000
R09137DK: BC 8+1,IOSETCAW GO AHEAD WITH SENSE @VA09137 00031000
R09137DK: BCR 2,R5 WAIT FOR DEVICE END @VA09137 00032000
R09137DK: TM CSW+4,DE DEVICE END ? @VA09137 00033000
R09137DK: BZR R5 NO, WAIT FOR IT @VA09137 00034000
R09137DK: OI IOBCSW+4,DE SET DE FOR REFLECTION @VA09137 00035000
R09137DK: B IOSETCAW GO DO SENSE @VA09137 00036000
BEGIN APPLY >>> ./ R 2563000 2579000 $ 2563100 1000 00001000
END APPLY >>> ./ R 2563000 2579000 $ 2563100 1000 00001000
BEGIN APPLY >>> ./ I 2598000 $ 2598100 100 00004000
END APPLY >>> ./ I 2598000 $ 2598100 100 00004000
BEGIN APPLY >>> ./ R 2603000 $ 2603050 50 00009000
END APPLY >>> ./ R 2603000 $ 2603050 50 00009000
BEGIN APPLY >>> ./ D 2606000 2610000 $ 00024000
END APPLY >>> ./ D 2606000 2610000 $ 00024000
BEGIN APPLY >>> ./ I 2627000 $ 2627050 50 00025000
END APPLY >>> ./ I 2627000 $ 2627050 50 00025000
Update Succeeded
Update Execution Time 16 milliseconds.
R09257DK
Date Wednesday Oct 31, 1979 10:12:00 AM
Loaded from MAINT(294)
R09257DK: ./ I 1072000 $ 1072100 200 00001000
R09257DK: L R15,PREFIXB ACCESS OTHER PSA @VA09257 00002000
R09257DK: TM XCPEND-PSA(R15),XCDISP IS DISPATCH PENDING @VA09257 00003000
R09257DK: BO GOTODSPA YES, DO NOT OBTAIN LOCK @VA09257 00004000
BEGIN APPLY >>> ./ I 1072000 $ 1072100 200 00001000
END APPLY >>> ./ I 1072000 $ 1072100 200 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10398DK
Date Saturday Feb 09, 1980 11:27:00 AM
Loaded from MAINT(294)
R10398DK: ./ R 2580000 $ 2580100 100 00001000
R10398DK: BO IOSENBAD TROUBLE -INTERRUPT TIME - SENSE @VA10398 00002000
R10398DK: ./ I 2679000 $ 2679100 100 00003000
R10398DK: MVC IOERLEN,ZEROES SENSE NOT AVAILABLE @VA10398 00004000
R10398DK: IOSENBAD DS 0H @VA10398 00005000
BEGIN APPLY >>> ./ R 2580000 $ 2580100 100 00001000
END APPLY >>> ./ R 2580000 $ 2580100 100 00001000
BEGIN APPLY >>> ./ I 2679000 $ 2679100 100 00003000
END APPLY >>> ./ I 2679000 $ 2679100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09196DK
Date Monday Apr 07, 1980 02:08:00 AM
Loaded from MAINT(294)
R09196DK: ./ R 1400000 1401000 $ 1400100 200 00001000
R09196DK: BNE GOSCHED NO, LET DMKSCH KNOW ABOUT IT @VA09196 00002000
R09196DK: TM CPSTAT,CPRUN WAS SYSTEM ACTUALLY RUNNING @VA09196 00003000
R09196DK: * RUNUSER 00004000
R09196DK: BO IOSDTCH YES, DISPATCH WILL CALL SCH. @VA09196 00005000
R09196DK: GOSCHED CALL DMKSCHDL @VA09196 00006000
R09196DK: ./ I 1406000 $ 1406100 500 00007000
R09196DK: CL R11,RUNUSER IS RESTARTED USER RUNUSER? @VA09196 00008000
R09196DK: BE IOSDTCH YES, DISPATCH WILL CALL SCHD. @VA09196 00009000
BEGIN APPLY >>> ./ R 1400000 1401000 $ 1400100 200 00001000
END APPLY >>> ./ R 1400000 1401000 $ 1400100 200 00001000
BEGIN APPLY >>> ./ I 1406000 $ 1406100 500 00007000
END APPLY >>> ./ I 1406000 $ 1406100 500 00007000
Update Succeeded
Update Execution Time 23 milliseconds.
R10557DK
Date Monday Apr 07, 1980 02:11:00 AM
Loaded from MAINT(294)
R10557DK: ./ I 1185000 $ 1185100 100 00001000
R10557DK: TM IOBSPEC2,IOBSNSIO THIS IOB FOR SENSE?? @VA10557 00002000
R10557DK: BNO IOSCAW NO, PROCESS AS NORMAL @VA10557 00003000
R10557DK: L R2,IOBIOER OTHERWISE USE IOERCAW @VA10557 00005000
R10557DK: LTR R2,R2 IF THERE IS NO IOERBLOK @VA10557 00006000
R10557DK: BZ ABND09 THEN ABEND VM/370 @VA10557 0000600
R10557DK: LA R2,IOERCCW-IOERBLOK(R2) POINT R2 AT SENSE CCW @VA10557 00006000
R10557DK: B IOSTCAW AND CONTINUE AS BEFORE @VA10557 00006000
R10557DK: ABND09 DS 0H IF WE ARE HERE, THEN THERE MUST @VA10557 0000600
R10557DK: ABEND 9 BE TROUBLE IN RIVER CITY @VA10557 00006000
BEGIN APPLY >>> ./ I 1185000 $ 1185100 100 00001000
END APPLY >>> ./ I 1185000 $ 1185100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10824DK
Date Monday Apr 07, 1980 03:27:00 AM
Loaded from MAINT(294)
R10824DK: ./ I 1714000 $ 1714100 100 00001000
R10824DK: LA R1,RDEVIOBL ADDR OF LOCK-WORD IN RDEVBLOK @VA10824 00002000
R10824DK: LOCK OBTAIN,TYPE=PRIVATE,SPIN=YES LOCK THE IOB'S @VA10824 00003000
R10824DK: ./ I 1717000 $ 1717100 100 00004000
R10824DK: LA R1,RDEVIOBL ADDR OF LOCK-WORD IN RDEVBLOK @VA10824 00005000
R10824DK: LOCK RELEASE,TYPE=PRIVATE RELEASE THE IOB'S @VA10824 00006000
BEGIN APPLY >>> ./ I 1714000 $ 1714100 100 00001000
END APPLY >>> ./ I 1714000 $ 1714100 100 00001000
BEGIN APPLY >>> ./ I 1717000 $ 1717100 100 00004000
END APPLY >>> ./ I 1717000 $ 1717100 100 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R09500DK
Date Monday May 05, 1980 04:11:00 AM
Loaded from MAINT(294)
R09500DK: ./ R 2648000 $ 2648100 00001000
R09500DK: CLI RDEVTYPC,CLASGRAF GRAF DEVICE @VA09500 00002000
R09500DK: ./ I 2649000 $ 2649100 10 00003000
R09500DK: TM RDEVTYPE,TYP3277+TYP3284 3277 OR 3284? @VA09500 00004000
R09500DK: BZ IOSNSIO1 NO- BRANCH @VA09500 00005000
R09500DK: ./ I 2651000 $ 2651100 00006000
R09500DK: RETYCNT DC F'40000' RETRY COUNT @VA09500 00007000
R09500DK: ./ R 2653000 $ 2653100 00008000
R09500DK: L R15,RETYCNT LOAD RETRY COUNT @VA09500 00009000
R09500DK: ./ R 2660000 2661000 $ 2660100 100 00010000
R09500DK: CLI RDEVTYPC,CLASGRAF GRAF DEVICE @VA09500 00011000
R09500DK: BNE NOTGRAF1 NO-BRANCH @VA09500 00012000
R09500DK: TM RDEVTYPE,TYP3277+TYP3284 @VA09500 00013000
R09500DK: BM IOSINBAD IF EITHER LIMITED RETRY @VA09500 00014000
R09500DK: NOTGRAF1 DS 0H @VA09500 00015000
R09500DK: ./ R 2666000 2667000 $ 2666100 100 00016000
R09500DK: CLI RDEVTYPC,CLASGRAF GRAF DEVICE @VA09500 00017000
R09500DK: BNE NOTGRAF2 NO-BRANCH @VA09500 00018000
R09500DK: TM RDEVTYPE,TYP3277+TYP3284 @VA09500 00019000
R09500DK: BM ROUT3277 @VA09500 00020000
R09500DK: NOTGRAF2 DS 0H @VA09500 00021000
BEGIN APPLY >>> ./ R 2648000 $ 2648100 00001000
END APPLY >>> ./ R 2648000 $ 2648100 00001000
BEGIN APPLY >>> ./ I 2649000 $ 2649100 10 00003000
END APPLY >>> ./ I 2649000 $ 2649100 10 00003000
BEGIN APPLY >>> ./ I 2651000 $ 2651100 00006000
END APPLY >>> ./ I 2651000 $ 2651100 00006000
BEGIN APPLY >>> ./ R 2653000 $ 2653100 00008000
END APPLY >>> ./ R 2653000 $ 2653100 00008000
BEGIN APPLY >>> ./ R 2660000 2661000 $ 2660100 100 00010000
END APPLY >>> ./ R 2660000 2661000 $ 2660100 100 00010000
BEGIN APPLY >>> ./ R 2666000 2667000 $ 2666100 100 00016000
END APPLY >>> ./ R 2666000 2667000 $ 2666100 100 00016000
Update Succeeded
Update Execution Time 16 milliseconds.
R11399DK
Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
R11399DK: ./ R 00242000 $ 00242100 00001000
R11399DK: BZ IOSSCHX YES,DON'T WAIT @VA11399 00002000
R11399DK: TM IOBSPEC,IOBHIO IS THIS A HALT REQUEST? @VA11399 00003000
R11399DK: BZ IOSQUED NO,QUEUE ON RDEVBLOK @VA11399 00004000
R11399DK: LH R1,IOBRADD GET HALT ADDRESS @VA11399 00005000
R11399DK: CALL DMKSCNRU GET REAL BLOKS IN CASE @VA11399 00006000
R11399DK: BNZ IOS1 SOMETHING BAD @VA11399 00007000
R11399DK: TM RCUSTAT,RCUDISA IS PATH AVAILABLE? @VA11399 00008000
R11399DK: BO IOSXXIT NO,KILL THE REQUEST @VA11399 00009000
R11399DK: NI RDEVSTAT,X'FF'-RDEVBUSY YES,CLEAR IT @VA11399 00010000
R11399DK: ./ I 00248000 $ 00248100 00011000
R11399DK: SPACE 1 00012000
R11399DK: IOSXXIT DS 0H @VA11399 00013000
R11399DK: OI IOBSTAT,IOBFATAL+IOBCC3 DOESN'T LOOK GOOD @VA11399 00014000
R11399DK: B IOSQXIT @VA11399 00015000
R11399DK: ./ I 02042000 $ 02042100 00016000
R11399DK: NI RDEVSTAT,X'FF'-RDEVSCED COULDN'T SCHEDULE IO @VA11399 00017000
BEGIN APPLY >>> ./ R 00242000 $ 00242100 00001000
END APPLY >>> ./ R 00242000 $ 00242100 00001000
BEGIN APPLY >>> ./ I 00248000 $ 00248100 00011000
END APPLY >>> ./ I 00248000 $ 00248100 00011000
BEGIN APPLY >>> ./ I 02042000 $ 02042100 00016000
END APPLY >>> ./ I 02042000 $ 02042100 00016000
Update Succeeded
Update Execution Time 47 milliseconds.
R11946DK
Date Wednesday Oct 29, 1980 03:34:00 PM
Loaded from MAINT(294)
R11946DK: ./ I 234000 $ 234100 100 00001000
R11946DK: * BUMP COUNT FOR REQUESTS OF SIO'S 00002000
R11946DK: TM IOBSPEC,IOBTIO+IOBHIO IS THIS A SIO? @VA11946 00003000
R11946DK: BNZ NOCNT IF NOT - DON'T COUNT @VA11946 00004000
R11946DK: LA R1,1 BUMP COUNT @VA11946 00005000
R11946DK: AL R1,RDEVIOCT UPDATE THE SIO COUNT @VA11946 00006000
R11946DK: ST R1,RDEVIOCT SAVE NEW COUNT @VA11946 00007000
R11946DK: NOCNT EQU * @VA11946 00008000
R11946DK: ./ D 1202000 1204000 00009000
BEGIN APPLY >>> ./ I 234000 $ 234100 100 00001000
END APPLY >>> ./ I 234000 $ 234100 100 00001000
BEGIN APPLY >>> ./ D 1202000 1204000 00009000
END APPLY >>> ./ D 1202000 1204000 00009000
Update Succeeded
Update Execution Time 23 milliseconds.
R12127DK
Date Friday Dec 12, 1980 01:13:00 PM
Loaded from MAINT(294)
R12127DK: ./ D 1511000 1513000 $
BEGIN APPLY >>> ./ D 1511000 1513000 $
END APPLY >>> ./ D 1511000 1513000 $
Update Succeeded
Update Execution Time 23 milliseconds.
R12629DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12629DK: ./ I 2666500 $ 2666600 100 00001000
R12629DK: IOSSTAT CLI CSW+4,BUSY IS IT JUST A DEVICE BUSY @VA12629 00002000
R12629DK: BE IOSINBAD YES USE LIMITED RETRY @VA12629 00003000
R12629DK: TM CSW+4,SM+CUE+BUSY CUE OR CU PENDING @VA12629 00004000
BEGIN APPLY >>> ./ I 2666500 $ 2666600 100 00001000
END APPLY >>> ./ I 2666500 $ 2666600 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:33:00 PM
Loaded from MAINT(294)
R12941DK: ./ D 928000 928000 $
R12941DK: ./ I 952000 $ 952100 100
R12941DK: NI IOBSPEC2,X'FF'-IOBRETRY TURN OFF IOBRETRY @VA12941
BEGIN APPLY >>> ./ D 928000 928000 $
END APPLY >>> ./ D 928000 928000 $
BEGIN APPLY >>> ./ I 952000 $ 952100 100
END APPLY >>> ./ I 952000 $ 952100 100
Update Succeeded
Update Execution Time 31 milliseconds.
R13318DK
Date Friday Aug 07, 1981 06:29:00 AM
Loaded from MAINT(294)
R13318DK: ./ R 1543000 1544000 $ 1543000 100
R13318DK: BZ IOSCCH NO LOGOUT PEND - CALL DMKCCH @VA13318
R13318DK: SLR R1,R1 CLEAR WORK REG @VA13318
R13318DK: IC R1,IOBERCNT LOGOUT PEND / CCC RETRY COUNT @VA13318
R13318DK: C R1,F10 RETRY COUNT EXCEED 10 @VA13318
R13318DK: BH IOSFATAL YES, REFLECT TO USER @VA13318
R13318DK: LA R1,1(,R1) INCREMENT RETRY COUNT @VA13318
R13318DK: STC R1,IOBERCNT STORE IN IOBLOK @VA13318
R13318DK: B IOSQBSY QUEUE OFF THE CHANNEL @VA13318
R13318DK: IOSFATAL NI RCHSTAT,255-RCHBUSY TURN OFF CHANNEL BUSY @VA13318
R13318DK: NI RCUSTAT,255-RCUBUSY TURN OFF CONTROL UNIT BUSY @VA13318
R13318DK: NI RDEVSTAT,255-RDEVBUSY DEVICE NO LONGER BUSY @VA13318
R13318DK: XC RDEVAIOB,RDEVAIOB CLEAR ACTIVE IOBLOK @VA13318
R13318DK: OI IOBSTAT,IOBFATAL FATAL I/O IF EXCEED 10 RETRIES @VA13318
R13318DK: CALL DMKSTKIO STACK THE IOBLOK @VA13318
R13318DK: B IOSTEXIT EXIT TO CALLER @VA13318
R13318DK: IOSCCH NI RDEVSTA2,255-RDEVBUCH RESET DEVICE BUSY ON CHAN @VA13318
BEGIN APPLY >>> ./ R 1543000 1544000 $ 1543000 100
END APPLY >>> ./ R 1543000 1544000 $ 1543000 100
Update Succeeded
Update Execution Time 16 milliseconds.
R12963DK
Date Thursday Aug 27, 1981 08:19:00 AM
Loaded from MAINT(294)
R12963DK: ./ R 242100 242900 $ 242100 100
R12963DK: BNZ IOSQUED QUEUE IOBLOK @VA12963
R12963DK: ./ D 248200 248400 $
R12963DK: ./ D 2042100 2042100 $
BEGIN APPLY >>> ./ R 242100 242900 $ 242100 100
END APPLY >>> ./ R 242100 242900 $ 242100 100
BEGIN APPLY >>> ./ D 248200 248400 $
END APPLY >>> ./ D 248200 248400 $
BEGIN APPLY >>> ./ D 2042100 2042100 $
END APPLY >>> ./ D 2042100 2042100 $
Update Succeeded
Update Execution Time 31 milliseconds.
R13034DK
Date Friday Dec 04, 1981 04:29:00 PM
Loaded from MAINT(294)
R13034DK: ./ I 1357000 $ 1357100 100 00001000
R13034DK: BAL R15,TRACESUB TRACE TIO @VA13034 00002000
R13034DK: DC X'0E00' TRACE ID OF TIO @VA13034 00003000
R13034DK: TM CSW,X'03' DEFERRED CC PRESENT? @VA13034 00004000
R13034DK: BZ IOSCC0B BRANCH IF NOT @VA13034 00005000
R13034DK: NI RDEVSTA2,X'FF'-RDEVBUCH RESET DEVICE BUSY @VA13034 00006000
R13034DK: TM CSW,X'03' CHECK DEFERRED CC @VA13034 00007000
R13034DK: BO IOSCC3 BRANCH IF CC=3 @VA13034 00008000
R13034DK: B IOSCC1 BRANCH IF CC=1 @VA13034 00009000
R13034DK: IOSCC0B DS 0H @VA13034 00010000
R13034DK: ./ I 2270000 $ 2270100 100
R13034DK: DROP R9 @VA13034
R13034DK: ./ I 2297000 $ 2297100 100
R13034DK: USING DMKIOS,R12,R9 @VA13034
BEGIN APPLY >>> ./ I 1357000 $ 1357100 100 00001000
END APPLY >>> ./ I 1357000 $ 1357100 100 00001000
BEGIN APPLY >>> ./ I 2270000 $ 2270100 100
END APPLY >>> ./ I 2270000 $ 2270100 100
BEGIN APPLY >>> ./ I 2297000 $ 2297100 100
END APPLY >>> ./ I 2297000 $ 2297100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R14489DK
Date Tuesday Oct 27, 1981 01:53:00 PM
Loaded from MAINT(294)
R14489DK: ./ R 2603350 $ 2603360 5 00001000
R14489DK: BE SPECINT SPECIAL 3203 INTERRUPT @VA14489 00002000
R14489DK: CLC CSW+4(2),=AL1(CE+UC+IL,0) SPECIAL 3203 @VA14489 00003000
R14489DK: * INTERRUPT? 00004000
R14489DK: BNE IOSPERP NO, GET SENSE CCW @VA14489 00005000
R14489DK: SPECINT EQU * @VA14489 00006000
BEGIN APPLY >>> ./ R 2603350 $ 2603360 5 00001000
END APPLY >>> ./ R 2603350 $ 2603360 5 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R15236DK
Date Monday Mar 15, 1982 08:42:00 AM
Loaded from MAINT(294)
R15236DK: ./ D 1357100 1357900 $
BEGIN APPLY >>> ./ D 1357100 1357900 $
END APPLY >>> ./ D 1357100 1357900 $
Update Succeeded
Update Execution Time 16 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00142000 $ 00142100 100
HRC065DK: EXTRN HDKD7CIO HRC065DK
HRC065DK: ./ I 00234000 $ 00234040 010
HRC065DK: TM RDEVADD,RDEVLDEV Is this a logical dev? HRC065DK
HRC065DK: BO LDEVIO Yes HRC065DK
HRC065DK: ./ I 00245000 $ 00245100 100
HRC065DK: LDEVIO EQU * HRC065DK
HRC065DK: CALL HDKD7CIO Go analyze LDEV CCW str HRC065DK
HRC065DK: B IOSQXIT Return to caller HRC065DK
BEGIN APPLY >>> ./ I 00142000 $ 00142100 100
END APPLY >>> ./ I 00142000 $ 00142100 100
BEGIN APPLY >>> ./ I 00234000 $ 00234040 010
END APPLY >>> ./ I 00234000 $ 00234040 010
BEGIN APPLY >>> ./ I 00245000 $ 00245100 100
END APPLY >>> ./ I 00245000 $ 00245100 100
Update Succeeded
Update Execution Time 31 milliseconds.
HRC069DK
Date Friday May 19, 2017 07:05:00 PM
Loaded from MAINT(094)
HRC069DK: ./ I 00245100 $ 00245150 10
HRC069DK: MVC IOBRADD,RDEVADD Ensure LDEV addr in blokHRC069DK
BEGIN APPLY >>> ./ I 00245100 $ 00245150 10
END APPLY >>> ./ I 00245100 $ 00245150 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC078DK
Date Thursday Jun 07, 2018 10:09:00 AM
Loaded from MAINT(094)
HRC078DK: ./ I 00275000 $ 00275300 200
HRC078DK: TM IOBRADD,RDEVLDEV Is this an LDEV? HRC078DK
HRC078DK: BO IOSQXIT Avoid real halt i/o HRC078DK
BEGIN APPLY >>> ./ I 00275000 $ 00275300 200
END APPLY >>> ./ I 00275000 $ 00275300 200
Update Succeeded
Update Execution Time 23 milliseconds.