ibm:vm370-lib:cp:dmkios.assemble_hst
Table of Contents
DMKIOS History
References
- Fixes Applied : 29
- Latest Source Date : Thursday, December 14, 1978
- 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.
ibm/vm370-lib/cp/dmkios.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator