DMKSSS History
References
-
-
Fixes Applied : 37
-
Last Fix ID : [R13058DK]
Update History
CMS File Input : DMKSSS ASSEMBLE
Date : 12/14/1978 8:55:00 AM
VM Context : MAINT(394)
File Name : DMKSSS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09300DK 601 LOGOFF WITH MOUNT IN PROCESS FAILURE
R09306DK 601 ABENDPRG006 RESULTING FROM BAD REG11 ON CALL FROM DMKSSS
R09302DK 601 CLEANUP CODE TO MEET STANDARDS
R09298DK 601 ABENDIOS003; REG7 DESTROYED BY DMKSSSI1
R09304DK 601 RESET MSSCOM Q, FRET STOR WHEN USER LOGOFF BEFORE PCI
R09305DK 601 FREE THE MSSVUA IF THERE IS AN ERROR MOUNTING
R09593DK 602 MOVE CODE FROM DMKLOG TO DMKLOH FOR SERVICE
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09909DK 608 FAILURE TO ALLOCATE A 3330V, WRONG RDEVICE IS DE-ALLOCATED
R10370DK 611 ATTENTION INTERRUPT NOT PROPERLY SETUP IF ADDRESS NOT 00X
R11173DK 611 UV00696 3300V DEV NOT FREED FOR REUSE
R11103DK 613 UV00900 DMKSSSMQ WILL BE SET TO ZERO AFTER PURGE OF MSSCOMS
R11435DK 613 UV00928 CHECK COMMVMAD INSTEAD OF COMMADDR
R11411DK 613 UV00955 CHECK UDEVLINK SPECIFIED BY A NEGATIVE R1
R11367DK 613 UV00969 CHECK SUBFUNCTION CODE FOR MULTIPLE OF FOUR
R11434DK 613 UV00966 PROVIDE FOR AN ERROR RETURN ON BUFFER PAGE ERROR
R11444DK 613 UV00976 REMOVE REFERENCE TO MSSSIZE AS COMLENG
R11445DK 613 UV01070 GIVE UP STORAGE GOTTEN FOR TRQBLOK.
R11253DK 613 UV01088 R9 BEING DESTROYED BY BLDCOM CODE.
R11429DK 613 UV01067 BE SURE NO SIMULTANEOUS DEMOUNT FOR A VOL.
R11442DK 613 UV01095 TO CORRECT TEST FOR ADDR OF VIRTUAL DEV.
R11446DK 613 UV01100 TO UNLOCK BUFFERS AFTER CLYINDER FAULT.
R11443DK 613 UV01117 REMOVE IOBLOK LOOP AFTER PAGE FAULT.
R10862DK 614 UV01165 FIX INCORRECT FRETS OF REGISTER SAVEAREA
R11254DK 614 UV01088 LINK AS YYY: YYY NOT PUT INTO WAIT FOR MOUNT.
R11455DK 615 UV01415 SPLIT OF DMKSSS INTO DMKSSS AND DMKSSU
R11135DK 615 UV01359 DOUBLE RETURN AFTER MSC ERROR.
R11436DK 615 UV01350 PERFORM CLEANUP ON WHEN NO SERVER EXITS
R11270DK 615 UV01347 FRET CPEXBLOK IF USER LOGGED OFF NOT STACK IT
R11574DK 616 ABENDSTK001 IN DMKSSS AFTER A DEFINE VIRTUAL THEN VARY CMD
R11709DK 617 UV02251 RESET RDEVSEL BIT IN HVC16 PROCESSING
R11573DK 617 UV02324 INCREASE DISPATCHABILITY OF MSS CENTRAL SERVER
R11939DK 617 UV02333 INVALID TEST FOR PRESENCE OF VOLUME.
R10877DK 617 UV02351 ISSUE DEMOUNT TO VUA FOR VARY OFFLINE
R11320DK 618 UV01975 ALLOW USE OF MSS REASON CODE MSDMKSSS438
R11344DK 618 UV01215 DESTAGE MODIFIED DATA TO MINIMIZE DATA LOSSES
R13058DK 625 UV04560 TO DISPATCHER WITH R11 POINTING TO CPSERVER VMBLOK
R09300DK
Date Friday Feb 02, 1979 05:17:00 PM
Loaded from MAINT(294)
R09300DK: ./ I 01910000 $ 1910100 100 00001000
R09300DK: L R2,MSSTASK1 RESET R2 FOR MULTI-VOLUMES @VA09300 00002000
R09300DK: ./ D 01911000 1911000 $ 00003000
R09300DK: ./ I 01916000 $ 1916100 100 00004000
R09300DK: L R5,MSSNEXT POINTER TO THE NEXT MSSCOM @VA09300 00005000
R09300DK: LTR R5,R5 IS THERE ONE ? @VA09300 00006000
R09300DK: BZ RETDSPCH NO, RETURN TO DISPATCH @VA09300 00007000
BEGIN APPLY >>> ./ I 01910000 $ 1910100 100 00001000
END APPLY >>> ./ I 01910000 $ 1910100 100 00001000
BEGIN APPLY >>> ./ D 01911000 1911000 $ 00003000
END APPLY >>> ./ D 01911000 1911000 $ 00003000
BEGIN APPLY >>> ./ I 01916000 $ 1916100 100 00004000
END APPLY >>> ./ I 01916000 $ 1916100 100 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R09306DK
Date Friday Feb 02, 1979 05:18:00 PM
Loaded from MAINT(294)
R09306DK: ./ R 1012000 1013000 $ 1012000 100 00001000
R09306DK: OI MSSFLAGS+1-OSVSCOM(R1),MQENT WAIT FOR MOUNT @VA09306 00002000
R09306DK: LTR R4,R4 MOUNT PEND MSG ALREADY ISSUED? @VA09306 00003000
R09306DK: BNZ MNTGO MOUNT HAS BEEN STARTED ON MSC @VA09306 00004000
R09306DK: * AND IT LOOKS GOOD...BUT MOUNT STILL INCOMPLETE. 00005000
R09306DK: L R4,MSSRSRVD-OSVSCOM(R1) RETURN CPEXBLOK ADDRESS @VA09306 00006000
R09306DK: * IN CASE ERROR ENCOUNTERED ON MOUNT; MOUNT IN-PROCESS MSG 00007000
R09306DK: * ALREADY ISSUED TO THIS USER. 00008000
R09306DK: LTR R4,R4 IS THERE ONE? @VA09306 00009000
R09306DK: BZ MSSNXT THIS SHOULD NEVER HAPPEN @VA09306 00010000
R09306DK: LR R1,R4 RELEASE CPEXBLOK SINCE THIS IS @VA09306 00011000
R09306DK: * CASE WHERE NO ERRORS WERE ENCOUNTERED ON THE MOUNT. 00012000
R09306DK: LA R0,CPEXSIZE SIZE @VA09306 00013000
R09306DK: CALL DMKFRET RELEASE CPEXBLOK @VA09306 00014000
R09306DK: XC MSSRSRVD-OSVSCOM(4,R3),MSSRSRVD-OSVSCOM(R3) ... @VA09306 00015000
R09306DK: B MSSNXT CONTINUE WITH NEXT MSSCOM @VA09306 00016000
R09306DK: MNTGO XC MSSTASK2-OSVSCOM(4,R1),MSSTASK2-OSVSCOM(R1) ... @VA09306 00017000
R09306DK: ./ R 1030000 1030000 $ 1030000 100 00018000
R09306DK: MSSNXT LR R2,R3 CURRENT MSSCOM ADDRESS @VA09306 00019000
BEGIN APPLY >>> ./ R 1012000 1013000 $ 1012000 100 00001000
END APPLY >>> ./ R 1012000 1013000 $ 1012000 100 00001000
BEGIN APPLY >>> ./ R 1030000 1030000 $ 1030000 100 00018000
END APPLY >>> ./ R 1030000 1030000 $ 1030000 100 00018000
Update Succeeded
Update Execution Time 16 milliseconds.
R09302DK
Date Friday Feb 02, 1979 05:17:00 PM
Loaded from MAINT(294)
R09302DK: ./ R 00314000 314000 $ 314000 100 00001000
R09302DK: MVI MSSFLAG1,MOUNT INDICATE MOUNT REQUEST @VA09302 00002000
R09302DK: ./ R 00377000 377000 $ 377000 100 00003000
R09302DK: MVI MSSFLAG1,DEMOUNT INDICATE DEMOUNT REQUEST @VA09302 00004000
R09302DK: ./ R 00450000 450000 $ 450000 100 00005000
R09302DK: CLC MSSFLAG1-OSVSCOM(1,R1),MSSFLAG1 SAME REQ TYPE @VA09302 00006000
R09302DK: ./ R 00464000 464000 $ 464000 100 00007000
R09302DK: OI MSSFLAG2,MQENT WAITING FOR MOUNT @VA09302 00008000
R09302DK: ./ R 00496000 496000 $ 496000 100 00009000
R09302DK: MVC MSSTASKD(4),MSSTASK2 SAVE CPEXBLOK PTR @VA09302 00010000
R09302DK: ./ R 00498000 498000 $ 498000 100 00011000
R09302DK: OI MSSFLAG2,MSGPROC INDICATE MSG WTR IN PROCESS @VA09302 00012000
R09302DK: ./ R 00510000 510000 $ 510000 100 00013000
R09302DK: OI MSSFLAG2,RQENT INDICATE WAITING FOR DMKMSS @VA09302 00014000
R09302DK: ./ R 00518000 518000 $ 518000 100 00015000
R09302DK: TM MSSFLAG2-OSVSCOM(R1),INPROC THIS BLOK IN @VA09302 00016000
R09302DK: ./ R 00533000 533000 $ 533000 100 00017000
R09302DK: OI MSSFLAG2,RQENT WAITING FOR MSS @VA09302 00018000
R09302DK: ./ R 00897000 897000 $ 897000 100 00019000
R09302DK: TM MSSFLAG2-OSVSCOM(R3),RQENT IS THIS REQ WAITING @VA09302 00020000
R09302DK: ./ R 00904000 905000 $ 904000 100 00021000
R09302DK: NI MSSFLAG2-OSVSCOM(R3),X'FF'-RQENT @VA09302 00022000
R09302DK: OI MSSFLAG2-OSVSCOM(R3),INPROC @VA09302 00023000
R09302DK: ./ R 00940000 940000 $ 940000 100 00024000
R09302DK: TM MSSFLAG1,MSSERR WAS THERE AN MSS ERROR @VA09302 00025000
R09302DK: ./ R 00982000 982000 $ 982000 100 00026000
R09302DK: L R1,MSSTASKD PTR IF DUP MOUNT REQ @VA09302 00027000
R09302DK: ./ R 00995000 995000 $ 995000 100 00028000
R09302DK: TM MSSFLAG1,MOUNT WAS IT A MOUNT REQUEST @VA09302 00029000
R09302DK: ./ R 01009000 1009000 $ 1009000 100 00030000
R09302DK: NI MSSFLAG2-OSVSCOM(R1),X'FF'-RQENT-INPROC @VA09302 00031000
R09302DK: ./ R 01012000 1012000 $ 1012000 100 00032000
R09302DK: OI MSSFLAG2-OSVSCOM(R1),MQENT WAIT FOR MOUNT @VA09302 00033000
R09302DK: ./ R 01012400 1012400 $ 1012400 100 00034000
R09302DK: L R4,MSSTASKD-OSVSCOM(R1) RETURN CPEXBLOK ADDR. @VA09302 00035000
R09302DK: ./ R 01013300 1013300 $ 1013300 100 00036000
R09302DK: XC MSSTASKD-OSVSCOM(4,R3),MSSTASKD-OSVSCOM(R3) ... @VA09302 00037000
R09302DK: ./ R 01019000 1019000 $ 1019000 100 00038000
R09302DK: OI MSSFLAG2-OSVSCOM(R3),MSGPROC MSC PROC NOT @VA09302 00039000
R09302DK: ./ R 01116000 1116000 $ 1116000 100 00040000
R09302DK: TM MSSFLAG2,RQENT+INPROC WAITING FOR MSC @VA09302 00041000
R09302DK: ./ R 01588000 1588000 $ 1588000 100 00042000
R09302DK: MVI MSSFLAG1,DEMOUNT INDICATE DEMOUNT REQUEST @VA09302 00043000
R09302DK: ./ R 01864000 1864000 $ 1864000 100 00044000
R09302DK: L R1,MSSTASKD POSSIBLE CPEXBLOK PTR @VA09302 00045000
R09302DK: ./ R 01870000 1870000 $ 1870000 100 00046000
R09302DK: TM MSSFLAG2,MSGPROC @VA09302 00047000
R09302DK: ./ R 01872000 1872000 $ 1872000 100 00048000
R09302DK: NI MSSFLAG2,FULL-MSGPROC @VA09302 00049000
R09302DK: ./ D 01976000 1979000 $ 00050000
BEGIN APPLY >>> ./ R 00314000 314000 $ 314000 100 00001000
END APPLY >>> ./ R 00314000 314000 $ 314000 100 00001000
BEGIN APPLY >>> ./ R 00377000 377000 $ 377000 100 00003000
END APPLY >>> ./ R 00377000 377000 $ 377000 100 00003000
BEGIN APPLY >>> ./ R 00450000 450000 $ 450000 100 00005000
END APPLY >>> ./ R 00450000 450000 $ 450000 100 00005000
BEGIN APPLY >>> ./ R 00464000 464000 $ 464000 100 00007000
END APPLY >>> ./ R 00464000 464000 $ 464000 100 00007000
BEGIN APPLY >>> ./ R 00496000 496000 $ 496000 100 00009000
END APPLY >>> ./ R 00496000 496000 $ 496000 100 00009000
BEGIN APPLY >>> ./ R 00498000 498000 $ 498000 100 00011000
END APPLY >>> ./ R 00498000 498000 $ 498000 100 00011000
BEGIN APPLY >>> ./ R 00510000 510000 $ 510000 100 00013000
END APPLY >>> ./ R 00510000 510000 $ 510000 100 00013000
BEGIN APPLY >>> ./ R 00518000 518000 $ 518000 100 00015000
END APPLY >>> ./ R 00518000 518000 $ 518000 100 00015000
BEGIN APPLY >>> ./ R 00533000 533000 $ 533000 100 00017000
END APPLY >>> ./ R 00533000 533000 $ 533000 100 00017000
BEGIN APPLY >>> ./ R 00897000 897000 $ 897000 100 00019000
END APPLY >>> ./ R 00897000 897000 $ 897000 100 00019000
BEGIN APPLY >>> ./ R 00904000 905000 $ 904000 100 00021000
END APPLY >>> ./ R 00904000 905000 $ 904000 100 00021000
BEGIN APPLY >>> ./ R 00940000 940000 $ 940000 100 00024000
END APPLY >>> ./ R 00940000 940000 $ 940000 100 00024000
BEGIN APPLY >>> ./ R 00982000 982000 $ 982000 100 00026000
END APPLY >>> ./ R 00982000 982000 $ 982000 100 00026000
BEGIN APPLY >>> ./ R 00995000 995000 $ 995000 100 00028000
END APPLY >>> ./ R 00995000 995000 $ 995000 100 00028000
BEGIN APPLY >>> ./ R 01009000 1009000 $ 1009000 100 00030000
END APPLY >>> ./ R 01009000 1009000 $ 1009000 100 00030000
BEGIN APPLY >>> ./ R 01012000 1012000 $ 1012000 100 00032000
END APPLY >>> ./ R 01012000 1012000 $ 1012000 100 00032000
BEGIN APPLY >>> ./ R 01012400 1012400 $ 1012400 100 00034000
END APPLY >>> ./ R 01012400 1012400 $ 1012400 100 00034000
BEGIN APPLY >>> ./ R 01013300 1013300 $ 1013300 100 00036000
END APPLY >>> ./ R 01013300 1013300 $ 1013300 100 00036000
BEGIN APPLY >>> ./ R 01019000 1019000 $ 1019000 100 00038000
END APPLY >>> ./ R 01019000 1019000 $ 1019000 100 00038000
BEGIN APPLY >>> ./ R 01116000 1116000 $ 1116000 100 00040000
END APPLY >>> ./ R 01116000 1116000 $ 1116000 100 00040000
BEGIN APPLY >>> ./ R 01588000 1588000 $ 1588000 100 00042000
END APPLY >>> ./ R 01588000 1588000 $ 1588000 100 00042000
BEGIN APPLY >>> ./ R 01864000 1864000 $ 1864000 100 00044000
END APPLY >>> ./ R 01864000 1864000 $ 1864000 100 00044000
BEGIN APPLY >>> ./ R 01870000 1870000 $ 1870000 100 00046000
END APPLY >>> ./ R 01870000 1870000 $ 1870000 100 00046000
BEGIN APPLY >>> ./ R 01872000 1872000 $ 1872000 100 00048000
END APPLY >>> ./ R 01872000 1872000 $ 1872000 100 00048000
BEGIN APPLY >>> ./ D 01976000 1979000 $ 00050000
END APPLY >>> ./ D 01976000 1979000 $ 00050000
Update Succeeded
Update Execution Time 102 milliseconds.
R09298DK
Date Friday Feb 02, 1979 05:17:00 PM
Loaded from MAINT(294)
R09298DK: ./ R 1188000 1188000 $ 1188000 100 00001000
R09298DK: * MUST USE TEMPSAVE SINCE IOS MAY NOT HAVE SAVE AREA IN R13 00002000
R09298DK: ST R12,TEMPR12 SAVE DMKIOS BASE REGISTER @VA09298 00003000
R09298DK: ./ R 1194000 1196000 $ 1194000 1000 00004000
R09298DK: ST R14,TEMPR14 SAVE DMKIOS RETURN ADDRESS @VA09298 00005000
R09298DK: L R2,RDEVFIOB PTR TO FIRST QUEUED IOBLOK @VA09298 00006000
R09298DK: USING IOBLOK,R2 ASSEMBLER ADDRESSABILITY @VA09298 00007000
R09298DK: ./ R 1198000 1198000 $ 1198000 100 00008000
R09298DK: CR R2,R8 DOES IOBLOK POINT TO RDEVBLOK @VA09298 00009000
R09298DK: ./ R 1214000 1214000 $ 1214000 100 00010000
R09298DK: L R2,IOBFPNT NEXT BLOCK POINTER @VA09298 00011000
R09298DK: ./ R 1217000 1218000 $ 1217000 1000 00012000
R09298DK: L R14,TEMPR14 RESTORE DMKIOS RETURN ADDRESS @VA09298 00013000
R09298DK: L R12,TEMPR12 RESTORE DMKIOS BASE REGISTER @VA09298 00014000
R09298DK: ./ I 1219000 $ 1219100 100 00015000
R09298DK: DROP R2 @VA09298 00016000
R09298DK: ./ R 1261000 1262000 $ 1261000 1000 00017000
R09298DK: LR R2,R14 RESTORE DMKIOS RETURN ADDRESS @VA09298 00018000
R09298DK: LR R3,R12 RESTORE DMKIOS BASE REGISTER @VA09298 00019000
R09298DK: ./ R 1270000 1270000 $ 1270000 100 00020000
R09298DK: L R4,RDEVFIOB RDEVBLOK CHAIN FIELD @VA09298 00021000
R09298DK: ./ R 1272000 1272000 $ 1272000 100 00022000
R09298DK: ST R4,IOBFPNT CHAIN IN PREVIOUS BLOCK @VA09298 00023000
R09298DK: ./ R 1274000 1274000 $ 1274000 100 00024000
R09298DK: ST R10,IOBBPNT-IOBLOK(R4) SET BACK PTR IN PREVIOUS @VA09298 00025000
R09298DK: ./ R 1295000 1296000 $ 1295000 1000 00026000
R09298DK: LR R14,R2 RESTORE DMKIOS RETURN ADDRESS @VA09298 00027000
R09298DK: LR R12,R3 RESTORE DMKIOS BASE REGISTER @VA09298 00028000
BEGIN APPLY >>> ./ R 1188000 1188000 $ 1188000 100 00001000
END APPLY >>> ./ R 1188000 1188000 $ 1188000 100 00001000
BEGIN APPLY >>> ./ R 1194000 1196000 $ 1194000 1000 00004000
END APPLY >>> ./ R 1194000 1196000 $ 1194000 1000 00004000
BEGIN APPLY >>> ./ R 1198000 1198000 $ 1198000 100 00008000
END APPLY >>> ./ R 1198000 1198000 $ 1198000 100 00008000
BEGIN APPLY >>> ./ R 1214000 1214000 $ 1214000 100 00010000
END APPLY >>> ./ R 1214000 1214000 $ 1214000 100 00010000
BEGIN APPLY >>> ./ R 1217000 1218000 $ 1217000 1000 00012000
END APPLY >>> ./ R 1217000 1218000 $ 1217000 1000 00012000
BEGIN APPLY >>> ./ I 1219000 $ 1219100 100 00015000
END APPLY >>> ./ I 1219000 $ 1219100 100 00015000
BEGIN APPLY >>> ./ R 1261000 1262000 $ 1261000 1000 00017000
END APPLY >>> ./ R 1261000 1262000 $ 1261000 1000 00017000
BEGIN APPLY >>> ./ R 1270000 1270000 $ 1270000 100 00020000
END APPLY >>> ./ R 1270000 1270000 $ 1270000 100 00020000
BEGIN APPLY >>> ./ R 1272000 1272000 $ 1272000 100 00022000
END APPLY >>> ./ R 1272000 1272000 $ 1272000 100 00022000
BEGIN APPLY >>> ./ R 1274000 1274000 $ 1274000 100 00024000
END APPLY >>> ./ R 1274000 1274000 $ 1274000 100 00024000
BEGIN APPLY >>> ./ R 1295000 1296000 $ 1295000 1000 00026000
END APPLY >>> ./ R 1295000 1296000 $ 1295000 1000 00026000
Update Succeeded
Update Execution Time 47 milliseconds.
R09304DK
Date Friday Feb 02, 1979 05:18:00 PM
Loaded from MAINT(294)
R09304DK: ./ R 01910100 1916300 $ 1910100 25 00001000
R09304DK: L R2,MSSTASK1 RESET R2 FOR MULTI-VOLUMES @VA09304 00002000
R09304DK: LA R0,CPEXSIZE ALWAYS AN MSSTAK1 @VA09304 00003000
R09304DK: LR R1,R2 CPEXBLOK ADDR MSSTASK1 @VA09304 00004000
R09304DK: CALL DMKFRET FREE MSSTASK1 @VA09304 00005000
R09304DK: L R2,MSSTASK2 @VA09304 00006000
R09304DK: LTR R2,R2 IS THERE TASK2 CPEXBLOK? @VA09304 00007000
R09304DK: BZ NO2 NO, DON'T TRY TO FREE IT @VA09304 00008000
R09304DK: LA R0,CPEXSIZE @VA09304 00009000
R09304DK: LR R1,R2 CPEXBLOK ADDR. MSSTASK2 @VA09304 00010000
R09304DK: CALL DMKFRET FREE MSSTASK2 @VA09304 00011000
R09304DK: NO2 EQU * @VA09304 00012000
R09304DK: L R2,MSSTASKD @VA09304 00013000
R09304DK: LTR R2,R2 IS THERE TASKD CPEXBLOK? @VA09304 00014000
R09304DK: BZ NOTD NO,DON'T TRY TO FREE IT @VA09304 00015000
R09304DK: LA R0,CPEXSIZE @VA09304 00016000
R09304DK: LR R1,R2 CPEXBLOK ADDR. MSSTASKD @VA09304 00017000
R09304DK: CALL DMKFRET FREE MSSTASKD @VA09304 00018000
R09304DK: *REG 6 NOW POINTS TO THE MSSCOM FOR WHICH THE USER HAS LOGGED 00019000
R09304DK: *OFF AND HIS VOLUME IS MOUNTED. TAKE THIS ONE OFF OF THE QUEUE 00020000
R09304DK: *AND FRET ITS STORAGE. 00021000
R09304DK: NOTD EQU * @VA09304 00022000
R09304DK: L R1,DMKSSSMQ MSSCOM Q ANCHOR @VA09304 00023000
R09304DK: LA R2,DMKSSSMQ POINTER ADDRESS TO NEXT BLOK @VA09304 00024000
R09304DK: LTR R1,R1 SHOULDN'T EVER BE ZERO @VA09304 00025000
R09304DK: BZ RETDSPCH GET OUT IF IT IS @VA09304 00026000
R09304DK: CHKCOM EQU * @VA09304 00027000
R09304DK: CR R6,R1 IS THIS ONE DMKDSB FOUND? @VA09304 00028000
R09304DK: BE DQIT YES,TAKE IT OFF OF THE QUEUE @VA09304 00029000
R09304DK: LA R2,MSSNEXT-OSVSCOM(R1) UPDATE POINTERS @VA09304 00030000
R09304DK: * VMI2036 00031000
R09304DK: L R1,MSSNEXT-OSVSCOM(R1) UPDATE POINTERS @VA09304 00032000
R09304DK: LTR R1,R1 SHOULDN'T EVER BE ZERO @VA09304 00033000
R09304DK: BZ RETDSPCH GET OUT IF IT IS @VA09304 00034000
R09304DK: B CHKCOM LOOK AT THIS ONE ... @VA09304 00035000
R09304DK: DQIT EQU * REMOVE IT FROM THE QUEUE @VA09304 00036000
R09304DK: L R5,MSSNEXT GET POINTER TO NEXT MSSCOM @VA09304 00037000
R09304DK: ST R5,0(,R2) TAKE CURRENT BLOK OUT OF QUEUE @VA09304 00038000
R09304DK: *NOW ITS OUT OF THE QUEUE ... FRET THE STORAGE 00039000
R09304DK: SR R3,R3 CLEAR R3 INDICATING SAME SER. @VA09304 00040000
R09304DK: CLC MSSSER(6),MSSSER-OSVSCOM(R5) SAME VOL? @VA09304 00041000
R09304DK: BE SAMESER YES, LEAVE R3 FLAG = ZERO @VA09304 00042000
R09304DK: LA R3,1 SET FLAG INDICATING NOT = @VA09304 00043000
R09304DK: SAMESER LR R1,R6 ADDR. OF DE-QUEUED MSSCOM @VA09304 00044000
R09304DK: LA R0,MSSSIZE SIZE OF THE MSSCOM @VA09304 00045000
R09304DK: CALL DMKFRET FREE THE STORAGE @VA09304 00046000
R09304DK: LTR R5,R5 IS THERE ANOTHER Q ENTRY? @VA09304 00047000
R09304DK: BZ RETDSPCH NO, RETURN TO DISPATCH @VA09304 00048000
R09304DK: L R2,MSSTASK1-OSVSCOM(R5) UPDATE CPEX POINTER @VA09304 00049000
R09304DK: LTR R3,R3 LOOK AT THE R3 FLAG @VA09304 00050000
R09304DK: BZ ONEMORE VOLSER =, LOOK AT THE NEXT ONE @VA09304 00051000
R09304DK: B MORSTK1 VOLSER NOT =, LOOK AT NEXT ENTRY @VA09304 00052000
R09304DK: ./ R 01921000 1921000 $ 1921000 100 00053000
R09304DK: CLC MSSSER(6),MSSSER-OSVSCOM(R5) SAME VOLUME? @VA09304 00054000
R09304DK: * VMI2036 00055000
BEGIN APPLY >>> ./ R 01910100 1916300 $ 1910100 25 00001000
END APPLY >>> ./ R 01910100 1916300 $ 1910100 25 00001000
BEGIN APPLY >>> ./ R 01921000 1921000 $ 1921000 100 00053000
END APPLY >>> ./ R 01921000 1921000 $ 1921000 100 00053000
Update Succeeded
Update Execution Time 16 milliseconds.
R09305DK
Date Friday Feb 02, 1979 05:18:00 PM
Loaded from MAINT(294)
R09305DK: ./ I 00139000 $ 139100 100 00001000
R09305DK: EXTRN DMKSCNRD @VA09305 00002000
R09305DK: ./ R 00990000 990000 $ 990000 050 00003000
R09305DK: *FIND THE RDEV AND TURN OFF RDEVSEL FLAG... 00004000
R09305DK: USING RDEVBLOK,R8 TELL ASSEMBLER ... @VA09305 00005000
R09305DK: L R8,ARIODV FIRST RDEVBLOK @VA09305 00006000
R09305DK: L R0,ARIODC @VA09305 00007000
R09305DK: LH R0,0(,R0) COUNT OF RDEVBLOKS @VA09305 00008000
R09305DK: CHKRDV EQU * @VA09305 00009000
R09305DK: CALL DMKSCNRD GET THE CUU OF THIS RDEV @VA09305 00010000
R09305DK: LH R15,MSSVUA GET VUA FOR MSSCOM IN ERROR @VA09305 00011000
R09305DK: CR R1,R15 SAME DEVICE ADDRESS? @VA09305 00012000
R09305DK: BZ FRERDV YES, GO FREE FOR FUTURE USE @VA09305 00013000
R09305DK: LA R8,RDEVSIZE*8(R8) POINT NEXT RDEV @VA09305 00014000
R09305DK: BCT R0,CHKRDV LOOK AT NEXT RDEV IF ONE @VA09305 00015000
R09305DK: B NORDV PROBLEM, CAN'T FIND IT-CONTINUE @VA09305 00016000
R09305DK: FRERDV EQU * FOUND A FREE ONE,TURN OFF FLAG @VA09305 00017000
R09305DK: NI RDEVFLAG,X'FF'-RDEVSEL TURN OFF RDEVSEL FLAG @VA09305 00018000
R09305DK: DROP R8 @VA09305 00019000
R09305DK: NORDV EQU * CONTINUE ON ... @VA09305 00020000
R09305DK: LR R1,R9 NEXT MSSCOM IN Q @VA09305 00021000
BEGIN APPLY >>> ./ I 00139000 $ 139100 100 00001000
END APPLY >>> ./ I 00139000 $ 139100 100 00001000
BEGIN APPLY >>> ./ R 00990000 990000 $ 990000 050 00003000
END APPLY >>> ./ R 00990000 990000 $ 990000 050 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09593DK
Date Wednesday Apr 18, 1979 03:22:00 AM
Loaded from MAINT(294)
R09593DK: ./ R 1936000 $ 1936100 100 DMK00010
R09593DK: LOGADDR DC V(DMKLOHSS) RETURN ADDR FOR L1, L2, L3 @VA09593 DMK00020
BEGIN APPLY >>> ./ R 1936000 $ 1936100 100 DMK00010
END APPLY >>> ./ R 1936000 $ 1936100 100 DMK00010
Update Succeeded
Update Execution Time 23 milliseconds.
R09957DK
Date Friday Jun 08, 1979 09:44:00 AM
Loaded from MAINT(294)
R09957DK: ./ R 1202000 $ 1202100 100 DMK00010
R09957DK: L R1,IOBCTRQ PTR TO QUEUED TRQBLOK @VA09957 DMK00020
R09957DK: ./ R 1278000 $ 1278100 100 DMK00030
R09957DK: ST R1,IOBCTRQ SAVE TRQBLOK POINTER @VA09957 DMK00040
R09957DK: ./ R 1518000 $ 1518100 100 DMK00050
R09957DK: L R1,IOBCTRQ PTR TO QUEUED TRQBLOK @VA09957 DMK00060
BEGIN APPLY >>> ./ R 1202000 $ 1202100 100 DMK00010
END APPLY >>> ./ R 1202000 $ 1202100 100 DMK00010
BEGIN APPLY >>> ./ R 1278000 $ 1278100 100 DMK00030
END APPLY >>> ./ R 1278000 $ 1278100 100 DMK00030
BEGIN APPLY >>> ./ R 1518000 $ 1518100 100 DMK00050
END APPLY >>> ./ R 1518000 $ 1518100 100 DMK00050
Update Succeeded
Update Execution Time 16 milliseconds.
R09909DK
Date Friday Jan 11, 1980 06:15:00 AM
Loaded from MAINT(294)
R09909DK: ./ R 282000 $ 00001000
R09909DK: LR R8,R1 RDEVBLOK FOUND BY SCNVS @VA09909 00002000
R09909DK: ./ D 283000 284000 00003000
R09909DK: ./ D 293000 00004000
R09909DK: ./ R 295000 $ 00005000
R09909DK: ST R8,RDEVDEMT SAVE RDEVBLOK PTR @VA09909 00006000
R09909DK: ./ R 331000 $ 00007000
R09909DK: * PURPOSE. FIRST ISSUE MSG DMKSSS076E, THEN DEALLOCATE 00008000
R09909DK: ./ I 339000 $ 339500 00009000
R09909DK: DROP R8 @VA09909 00010000
BEGIN APPLY >>> ./ R 282000 $ 00001000
END APPLY >>> ./ R 282000 $ 00001000
BEGIN APPLY >>> ./ D 283000 284000 00003000
END APPLY >>> ./ D 283000 284000 00003000
BEGIN APPLY >>> ./ D 293000 00004000
END APPLY >>> ./ D 293000 00004000
BEGIN APPLY >>> ./ R 295000 $ 00005000
END APPLY >>> ./ R 295000 $ 00005000
BEGIN APPLY >>> ./ R 331000 $ 00007000
END APPLY >>> ./ R 331000 $ 00007000
BEGIN APPLY >>> ./ I 339000 $ 339500 00009000
END APPLY >>> ./ I 339000 $ 339500 00009000
Update Succeeded
Update Execution Time 47 milliseconds.
R10370DK
Date Friday Mar 28, 1980 11:15:00 AM
Loaded from MAINT(294)
R10370DK: ./ R 558000 558000 $ 558000 100 00001000
R10370DK: SRL R4,3 DIVIDE BY 8 @VA10370 00002000
R10370DK: ./ R 563000 563000 $ 563000 100 00004000
R10370DK: SRL R4,7 DIVIDE BY 128 @VA10370 00005000
BEGIN APPLY >>> ./ R 558000 558000 $ 558000 100 00001000
END APPLY >>> ./ R 558000 558000 $ 558000 100 00001000
BEGIN APPLY >>> ./ R 563000 563000 $ 563000 100 00004000
END APPLY >>> ./ R 563000 563000 $ 563000 100 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R11173DK
Date Monday Apr 07, 1980 03:28:00 AM
Loaded from MAINT(294)
R11173DK: ./ R 990150 990200 $ 990175 50 00001000
R11173DK: L R15,ARIODC @VA11173 00002000
R11173DK: LH R0,0(,R15) @VA11173 00003000
BEGIN APPLY >>> ./ R 990150 990200 $ 990175 50 00001000
END APPLY >>> ./ R 990150 990200 $ 990175 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11103DK
Date Tuesday Jun 03, 1980 04:17:00 AM
Loaded from MAINT(294)
R11103DK: ./ I 01137000 $ 01137010 00001000
R11103DK: ST R4,DMKSSSMQ RESET ANCHOR TO ZERO @VA11103 00002000
BEGIN APPLY >>> ./ I 01137000 $ 01137010 00001000
END APPLY >>> ./ I 01137000 $ 01137010 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11435DK
Date Tuesday Jun 03, 1980 04:21:00 AM
Loaded from MAINT(294)
R11435DK: ./ R 862000 863000 $ 862010 10 00001000
R11435DK: SR R0,R0 CLEAR REG 0 @VA11435 00002000
R11435DK: CL R0,COMMVMAD IS THERE A COMM VMBLOK POINTER? @VA11435 00003000
BEGIN APPLY >>> ./ R 862000 863000 $ 862010 10 00001000
END APPLY >>> ./ R 862000 863000 $ 862010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11411DK
Date Tuesday Jun 03, 1980 04:22:00 AM
Loaded from MAINT(294)
R11411DK: ./ R 208000 $ 208010 00001000
R11411DK: BNM CALLALLC THERE IS ONE GO GET BLK @VA11411 00002000
BEGIN APPLY >>> ./ R 208000 $ 208010 00001000
END APPLY >>> ./ R 208000 $ 208010 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11367DK
Date Tuesday Jun 03, 1980 05:28:00 AM
Loaded from MAINT(294)
R11367DK: ./ R 792000 $ 792010 10 00001000
R11367DK: * CC0 - OK 00002000
R11367DK: * CC1 - RC4 - SUBFUNCTION CODE IS < 0 OR > 16 00003000
R11367DK: * - RC8 - SUBFUNCTION CODE IS NOT A MULTIPLE OF FOUR 00004000
R11367DK: * - RC12 - ADDR EXCEPTION BRINGING IN BUFFER PAGE 00005000
R11367DK: * - RC16 - ISSUER IS NOT THE USER WHO DID SUBFUNCTION 0 00006000
R11367DK: ./ I 825000 $ 825010 10 00007000
R11367DK: TM 3(R6),X'03' CODE A MULTIPLE OF FOUR? @VA11367 00008000
R11367DK: BZ MULTFOUR YES - OK @VA11367 00009000
R11367DK: LA R15,RC8 GET APPROP RC @VA11367 00010000
R11367DK: B BADINPUT GIVE CC1 @VA11367 00011000
R11367DK: MULTFOUR DS 0H CONTINUE @VA11367 00012000
R11367DK: ./ I 840000 $ 840010 10 00014000
R11367DK: BADINPUT DS 0H @VA11367 00015000
R11367DK: ./ R 847000 848000 $ 847010 10 00016000
R11367DK: BER R1 IF SAME USER RETURN @VA11367 00017000
R11367DK: LA R15,RC16 INDICATE PROPER RC @VA11367 00018000
R11367DK: B BADINPUT AND RETURN WITH CC1 TO PHONNIE @VA11367 00019000
R11367DK: ./ I 1970000 $ 1970010 10 00020000
R11367DK: RC8 EQU 8 RETURN CODE 8 @VA11367 00021000
R11367DK: RC12 EQU 12 RETURN CODE 12 @VA11367 00022000
R11367DK: RC16 EQU 16 RETURN CODE 16 @VA11367 00023000
BEGIN APPLY >>> ./ R 792000 $ 792010 10 00001000
END APPLY >>> ./ R 792000 $ 792010 10 00001000
BEGIN APPLY >>> ./ I 825000 $ 825010 10 00007000
END APPLY >>> ./ I 825000 $ 825010 10 00007000
BEGIN APPLY >>> ./ I 840000 $ 840010 10 00014000
END APPLY >>> ./ I 840000 $ 840010 10 00014000
BEGIN APPLY >>> ./ R 847000 848000 $ 847010 10 00016000
END APPLY >>> ./ R 847000 848000 $ 847010 10 00016000
BEGIN APPLY >>> ./ I 1970000 $ 1970010 10 00020000
END APPLY >>> ./ I 1970000 $ 1970010 10 00020000
Update Succeeded
Update Execution Time 31 milliseconds.
R11434DK
Date Tuesday Jun 03, 1980 04:23:00 AM
Loaded from MAINT(294)
R11434DK: ./ I 843000 $ 843010 10 00001000
R11434DK: BADADDR DS 0H @VA11434 00002000
R11434DK: LA R15,RC12 INDICATE BAD BUFFER ADDR @VA11434 00003000
R11434DK: B BADINPUT GO SET UP FOR RETURN CC1 @VA11434 00004000
R11434DK: ./ R 890000 $ 890010 00005000
R11434DK: TRANS 2,1,OPT=(BRING,DEFER),ADEX=BADADDR @VA11434 00006000
R11434DK: ./ R 936000 $ 936010 00007000
R11434DK: TRANS 2,1,OPT=(BRING,DEFER),ADEX=BADADDR @VA11434 00008000
BEGIN APPLY >>> ./ I 843000 $ 843010 10 00001000
END APPLY >>> ./ I 843000 $ 843010 10 00001000
BEGIN APPLY >>> ./ R 890000 $ 890010 00005000
END APPLY >>> ./ R 890000 $ 890010 00005000
BEGIN APPLY >>> ./ R 936000 $ 936010 00007000
END APPLY >>> ./ R 936000 $ 936010 00007000
Update Succeeded
Update Execution Time 31 milliseconds.
R11444DK
Date Tuesday Jun 03, 1980 04:23:00 AM
Loaded from MAINT(294)
R11444DK: ./ R 1134000 $ 1134010 00001000
R11444DK: LA R0,MSSSIZE PICK UP THE SIZE @VA11444 00002000
R11444DK: ./ D 1971000 00003000
BEGIN APPLY >>> ./ R 1134000 $ 1134010 00001000
END APPLY >>> ./ R 1134000 $ 1134010 00001000
BEGIN APPLY >>> ./ D 1971000 00003000
END APPLY >>> ./ D 1971000 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R11445DK
Date Tuesday Jun 03, 1980 05:20:00 AM
Loaded from MAINT(294)
R11445DK: ./ I 1211000 $ 1211100 100 00001000
R11445DK: L R1,IOBCTRQ TRQBLOCK ADDRESS @VA11445 00002000
R11445DK: LA R0,TRQBSIZE+8 SIZE OF TRQBLOK + WORKAREA @VA11445 00003000
R11445DK: CALL DMKFRET RETURN THE GOTTEN STORAGE @VA11445 00004000
R11445DK: XC IOBCTRQ,IOBCTRQ CLEAR THIS POINTER @VA11445 00005000
BEGIN APPLY >>> ./ I 1211000 $ 1211100 100 00001000
END APPLY >>> ./ I 1211000 $ 1211100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11253DK
Date Tuesday Jun 03, 1980 05:08:00 AM
Loaded from MAINT(294)
R11253DK: ./ R 590000 591000 $ 590100 100 00001000
R11253DK: L R10,VSERADDR ADDR OF VOLSER @VA11253 00002000
R11253DK: MVC MSSSER(VOLSERL),0(R10) PUT VOLSER IN MSSCOM @VA11253 00003000
R11253DK: ./ R 593000 $ 593100 00004000
R11253DK: L R10,RDEVADDR RDEVBLOK ADDR SET BY CALLER @VA11253 00005000
R11253DK: ./ R 595000 596000 $ 595100 100 00006000
R11253DK: LH R15,RDEVADD-RDEVBLOK(R10) DEVICE ADDR @VA11253 00007000
R11253DK: L R14,RDEVCUA-RDEVBLOK(R10) RCUBLOK ADDR @VA11253 00008000
BEGIN APPLY >>> ./ R 590000 591000 $ 590100 100 00001000
END APPLY >>> ./ R 590000 591000 $ 590100 100 00001000
BEGIN APPLY >>> ./ R 593000 $ 593100 00004000
END APPLY >>> ./ R 593000 $ 593100 00004000
BEGIN APPLY >>> ./ R 595000 596000 $ 595100 100 00006000
END APPLY >>> ./ R 595000 596000 $ 595100 100 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R11429DK
Date Tuesday Jun 03, 1980 05:28:00 AM
Loaded from MAINT(294)
R11429DK: ./ I 370000 $ 370100 100 00001000
R11429DK: USING RDEVBLOK,R8 @VA11429 00002000
R11429DK: OI RDEVFLAG,RDEVSEL DEVICE SELECTED FOR DEMOUNT 00003000
R11429DK: ./ I 939000 $ 939100 100 00004000
R11429DK: TM MSSFLAG1,DEMOUNT WAS THIS A DEMOUNT @VA11429 00005000
R11429DK: BZ NOTDEMNT NO @VA11429 00006000
R11429DK: LH R1,MSSVUA GET REAL DEVICE ADDRESS @VA11429 00007000
R11429DK: CALL DMKSCNRU GET RDEVBLOK @VA11429 00008000
R11429DK: LTR R8,R8 IS THERE ONE @VA11429 00009000
R11429DK: BNP NOTDEMNT NO @VA11429 00010000
R11429DK: USING RDEVBLOK,R8 @VA11429 00011000
R11429DK: NI RDEVFLAG,X'FF'-RDEVSEL TURN OFF SELECTED FLAG @VA11429 00012000
R11429DK: NOTDEMNT EQU * @VA11429 00013000
R11429DK: ./ I 1581000 $ 1581100 100 00014000
R11429DK: OI RDEVFLAG,RDEVSEL @VA11429 00015000
BEGIN APPLY >>> ./ I 370000 $ 370100 100 00001000
END APPLY >>> ./ I 370000 $ 370100 100 00001000
BEGIN APPLY >>> ./ I 939000 $ 939100 100 00004000
END APPLY >>> ./ I 939000 $ 939100 100 00004000
BEGIN APPLY >>> ./ I 1581000 $ 1581100 100 00014000
END APPLY >>> ./ I 1581000 $ 1581100 100 00014000
Update Succeeded
Update Execution Time 23 milliseconds.
R11442DK
Date Tuesday Jun 03, 1980 05:08:00 AM
Loaded from MAINT(294)
R11442DK: ./ I 137000 $ 137500 500 00001000
R11442DK: EXTRN DMKSCNVD 00001000
R11442DK: ./ R 1497000 1498000 $ 1497150 150 00001000
R11442DK: LR R5,R1 SAVE RDEV POINTER @VA11442 00002000
R11442DK: CALL DMKSCNVD TO GET OTHER VBLOKS @VA11442 00004000
R11442DK: LR R4,R1 PUT THE CCU INTO R4 @VA11442 00011000
R11442DK: LR R1,R5 RESTORE RDEVBLOK TO R1 @VA11442 00012000
R11442DK: CH R4,IOBVADD IS THIS IOBLOK FOR CORRECT VDEV @VA11442 00013000
BEGIN APPLY >>> ./ I 137000 $ 137500 500 00001000
END APPLY >>> ./ I 137000 $ 137500 500 00001000
BEGIN APPLY >>> ./ R 1497000 1498000 $ 1497150 150 00001000
END APPLY >>> ./ R 1497000 1498000 $ 1497150 150 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11446DK
Date Tuesday Jun 03, 1980 05:08:00 AM
Loaded from MAINT(294)
R11446DK: ./ I 143000 $ 143500 500 00001000
R11446DK: EXTRN DMKSTKIO 00001000
R11446DK: ./ R 1522000 1526000 $ 1522100 200 00001000
R11446DK: OI IOBSTAT,IOBCC3+IOBFATAL PSEUDO CC=3 @VA11446 00002000
R11446DK: NI IOBFLAG,X'FF'-IOBRSTRT NO RESTART @VA11446 00003000
R11446DK: CALL DMKSTKIO STACK THE IOBLOK @VA11446 00004000
R11446DK: LA R0,CPEXSIZE SIZE OF THE CPEXBLOK @VA11446 00005000
R11446DK: CALL DMKFREE GET THE STORAGE @VA11446 00006000
R11446DK: USING CPEXBLOK,R1 @VA11446 00007000
R11446DK: LA R2,CFEXIT PLACE WHERE WE WANT CONTROL @VA11446 00008000
R11446DK: ST R2,CPEXADD INTO THE CPEXBLOK @VA11446 00009000
R11446DK: STM R0,R15,CPEXREGS SAVE OUR REGS. @VA11446 00010000
R11446DK: CALL DMKSTKCP STACK THE CPEXBLOK @VA11446 00011000
R11446DK: DROP R1 @VA11446 00012000
R11446DK: GOTO DMKDSPCH WAIT FOR USER'S CC3 @VA11446 00013000
BEGIN APPLY >>> ./ I 143000 $ 143500 500 00001000
END APPLY >>> ./ I 143000 $ 143500 500 00001000
BEGIN APPLY >>> ./ R 1522000 1526000 $ 1522100 200 00001000
END APPLY >>> ./ R 1522000 1526000 $ 1522100 200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11443DK
Date Tuesday Jun 03, 1980 05:08:00 AM
Loaded from MAINT(294)
R11443DK: ./ R 1482000 $ 1482100 100 00001000
R11443DK: CR R10,R1 IS THIS THE RDEVBLOK ADDR? @VA11443 00002000
BEGIN APPLY >>> ./ R 1482000 $ 1482100 100 00001000
END APPLY >>> ./ R 1482000 $ 1482100 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10862DK
Date Tuesday Jul 08, 1980 06:30:00 AM
Loaded from MAINT(294)
R10862DK: ./ I 377000 $ 377100 00002000
R10862DK: OI MSSFLAG1,MSSSAVE INDICATE GODSPCH NOT TO RETURN @VA10862 00003000
R10862DK: * THE SAVE AREA 00004000
R10862DK: ./ D 384000 387000 00005000
R10862DK: ./ * THE FOLLOWING CODE IS NO LONGER EXECUTED AFTER THIS FIX 00006000
R10862DK: ./ D 390000 401000 00007000
R10862DK: ./ R 568000 571000 $ 568100 400 00008000
R10862DK: * 00009000
R10862DK: * IF THE ENTRY WAS FOR A DISMOUNT AND MOUNT, THE SAVE 00010000
R10862DK: * AREA WILL NOT BE RETURNED AT THIS TIME SINCE THE 00011000
R10862DK: * INFORMATION WILL BE NEEDED FOR THE MOUNT REQUEST. 00012000
R10862DK: * OTHERWISE WE WILL RETURN THE SAVE AREA SINCE WE ARE 00013000
R10862DK: * NOT RETURNING THROUGH THE STANDARD SVC LINKAGE. 00014000
R10862DK: * 00015000
R10862DK: TM MSSFLAG1,MSSSAVE RETURN THE SAVE AREA NOW ??? @VA10862 00016000
R10862DK: BNZ GODSPCH1 NO..EXIT WITHOUT RETURNING SAVE @VA10862 00017000
R10862DK: ./ I 574000 $ 574100 00018000
R10862DK: GODSPCH1 EQU * @VA10862 00019000
R10862DK: ./ R 683000 684000 $ 683100 00020000
R10862DK: LA R7,SSSL3RET LOAD OUR RETURN ADDRESS @VA10862 00021000
R10862DK: ./ I 704000 $ 704100 00022000
R10862DK: * REG 7 CONTAINS RETURN ADDRESS 00023000
R10862DK: ./ R 740000 741000 $ 740100 00024000
R10862DK: BR R7 RETURN TO CALLER @VA10862 00025000
R10862DK: ./ I 959000 $ 959100 50 00026000
R10862DK: TM MSSFLAG1,MSSSAVE SAVE AREA NEED TO BE RETURNED ?@VA10862 00027000
R10862DK: BZ NORETURN NO..THEN BYPASS THIS @VA10862 00028000
R10862DK: LR R6,R13 SAVE R13 ACROSS CALL @VA10862 00029000
R10862DK: L R13,CPEXR13-CPEXBLOK(R1) LOAD SAVE AREA ADDRESS @VA10862 00030000
R10862DK: * FROM DISMOUNT 00031000
R10862DK: SR R0,R0 ZERO REG 0 @VA10862 00032000
R10862DK: ST R0,CPEXR13-CPEXBLOK(R1) REFLECT IN CPEXR13 @VA10862 00033000
R10862DK: ST R0,SAVER12 KEEP FROM UNLOCKING PAGE @VA10862 00034000
R10862DK: SVC 16 AND RETURN IT @VA10862 00035000
R10862DK: LR R13,R6 RESTORE SAVE AREA POINTER @VA10862 00036000
R10862DK: NORETURN EQU * @VA10862 00037000
R10862DK: ./ * THE FOLLOWING IS NOT PART OF THE FIX,BUT DELETES NONEUSED CODE 00038000
R10862DK: ./ D 1083000 1090000 00039000
R10862DK: ./ R 1399000 1400000 $ 1399000 00040000
R10862DK: LA R7,SSSLNDEV LOAD OUR RETURN ADDRESS @VA10862 00041000
BEGIN APPLY >>> ./ I 377000 $ 377100 00002000
END APPLY >>> ./ I 377000 $ 377100 00002000
BEGIN APPLY >>> ./ D 384000 387000 00005000
END APPLY >>> ./ D 384000 387000 00005000
BEGIN APPLY >>> ./ * THE FOLLOWING CODE IS NO LONGER EXECUTED AFTER THIS FIX 00006000
Comment >>> ./ * THE FOLLOWING CODE IS NO LONGER EXECUTED AFTER THIS FIX 00006000
END APPLY >>> ./ * THE FOLLOWING CODE IS NO LONGER EXECUTED AFTER THIS FIX 00006000
BEGIN APPLY >>> ./ D 390000 401000 00007000
END APPLY >>> ./ D 390000 401000 00007000
BEGIN APPLY >>> ./ R 568000 571000 $ 568100 400 00008000
END APPLY >>> ./ R 568000 571000 $ 568100 400 00008000
BEGIN APPLY >>> ./ I 574000 $ 574100 00018000
END APPLY >>> ./ I 574000 $ 574100 00018000
BEGIN APPLY >>> ./ R 683000 684000 $ 683100 00020000
END APPLY >>> ./ R 683000 684000 $ 683100 00020000
BEGIN APPLY >>> ./ I 704000 $ 704100 00022000
END APPLY >>> ./ I 704000 $ 704100 00022000
BEGIN APPLY >>> ./ R 740000 741000 $ 740100 00024000
END APPLY >>> ./ R 740000 741000 $ 740100 00024000
BEGIN APPLY >>> ./ I 959000 $ 959100 50 00026000
END APPLY >>> ./ I 959000 $ 959100 50 00026000
BEGIN APPLY >>> ./ * THE FOLLOWING IS NOT PART OF THE FIX,BUT DELETES NONEUSED CODE 00038000
Comment >>> ./ * THE FOLLOWING IS NOT PART OF THE FIX,BUT DELETES NONEUSED CODE 00038000
END APPLY >>> ./ * THE FOLLOWING IS NOT PART OF THE FIX,BUT DELETES NONEUSED CODE 00038000
BEGIN APPLY >>> ./ D 1083000 1090000 00039000
END APPLY >>> ./ D 1083000 1090000 00039000
BEGIN APPLY >>> ./ R 1399000 1400000 $ 1399000 00040000
END APPLY >>> ./ R 1399000 1400000 $ 1399000 00040000
Update Succeeded
Update Execution Time 47 milliseconds.
R11254DK
Date Wednesday Jul 16, 1980 10:00:00 AM
Loaded from MAINT(294)
R11254DK: ./ I 302000 $ 302100 100 00001000
R11254DK: * IF ENTRY TO THIS ROUTINE IS FROM DMKSSSLN, UDEVADD WHICH 00002000
R11254DK: * IS R9 POINTS TO DMKLNK'S SAVEAREA SAVEWRK5 SO THAT THE YYY 00003000
R11254DK: * ADDRESS WILL BE PUT INTO WAIT UNTIL MOUNT IS COMPLETE. 00004000
R11254DK: * -- THAT IS, R9 WILL NOT REALLY POINT TO THE UDEVBLOK -- 00005000
R11254DK: ./ I 1372000 $ 1372100 100 00006000
R11254DK: * GPR 6 = YYY ADDRESS (LINKED 'AS' ADDRESS) 00007000
R11254DK: ./ I 1399000 $ 1399100 100 00008000
R11254DK: ST R6,SAVEWRK9 SAVE YYY ADDRESS @VA11254 00009000
R11254DK: ./ I 1416000 $ 1416100 100 00010000
R11254DK: LA R3,UDEVVSER VOLSER NEEDED @VA11254 00011000
R11254DK: LA R9,SAVEWRK9+2 PUT YYY ADDRESS INTO R9 @VA11254 00012000
R11254DK: ./ R 1419000 $ 1419100 100 00013000
R11254DK: B BLDCOMTA @VA11254 00014000
BEGIN APPLY >>> ./ I 302000 $ 302100 100 00001000
END APPLY >>> ./ I 302000 $ 302100 100 00001000
BEGIN APPLY >>> ./ I 1372000 $ 1372100 100 00006000
END APPLY >>> ./ I 1372000 $ 1372100 100 00006000
BEGIN APPLY >>> ./ I 1399000 $ 1399100 100 00008000
END APPLY >>> ./ I 1399000 $ 1399100 100 00008000
BEGIN APPLY >>> ./ I 1416000 $ 1416100 100 00010000
END APPLY >>> ./ I 1416000 $ 1416100 100 00010000
BEGIN APPLY >>> ./ R 1419000 $ 1419100 100 00013000
END APPLY >>> ./ R 1419000 $ 1419100 100 00013000
Update Succeeded
Update Execution Time 23 milliseconds.
R11455DK
Date Friday Jul 25, 1980 06:04:00 AM
Loaded from MAINT(294)
R11455DK: ./ D 36000 41000
R11455DK: ./ D 51000 53000
R11455DK: ./ D 134000
R11455DK: ./ D 137500 138000
R11455DK: ./ D 143000
R11455DK: ./ D 1142000 1331000
R11455DK: ./ D 1421000 1527000
R11455DK: ./ D 1953000
R11455DK: ./ D 1962000 1966000
BEGIN APPLY >>> ./ D 36000 41000
END APPLY >>> ./ D 36000 41000
BEGIN APPLY >>> ./ D 51000 53000
END APPLY >>> ./ D 51000 53000
BEGIN APPLY >>> ./ D 134000
END APPLY >>> ./ D 134000
BEGIN APPLY >>> ./ D 137500 138000
END APPLY >>> ./ D 137500 138000
BEGIN APPLY >>> ./ D 143000
END APPLY >>> ./ D 143000
BEGIN APPLY >>> ./ D 1142000 1331000
END APPLY >>> ./ D 1142000 1331000
BEGIN APPLY >>> ./ D 1421000 1527000
END APPLY >>> ./ D 1421000 1527000
BEGIN APPLY >>> ./ D 1953000
END APPLY >>> ./ D 1953000
BEGIN APPLY >>> ./ D 1962000 1966000
END APPLY >>> ./ D 1962000 1966000
Update Succeeded
Update Execution Time 39 milliseconds.
R11135DK
Date Friday Jul 25, 1980 06:16:00 AM
Loaded from MAINT(294)
R11135DK: ./ R 464000 $ 464100 100 00001000
R11135DK: MVC MSSFLAG2(1),MSSFLAG2-OSVSCOM(R1) @VA11135 00002000
R11135DK: ./ I 497000 $ 497100 100 00003000
R11135DK: TM MSSFLAG2,MQENT @VA11135 00004000
R11135DK: BZ GODSPCH1 @VA11135 00005000
R11135DK: L R1,MSSTASKD CPEXBLOK PTR @VA11135 00006000
R11135DK: LA R0,CPEXSIZE SIZE OF THE BLOCK @VA11135 00007000
R11135DK: CALL DMKFRET RELEAS THE STORAGE @VA11135 00008000
R11135DK: XC MSSTASKD(4),MSSTASKD CLEAR THE PTR @VA11135 00009000
R11135DK: ./ D 1012500 1012600 00010000
R11135DK: ./ D 1012900 1013200 00011000
R11135DK: ./ R 1013300 $ 1013300 50 00012000
R11135DK: XC MSSTASKD-OSVSCOM(4,R1),MSSTASKD-OSVSCOM(R1) @VA11135 00013000
R11135DK: ./ R 1013400 $ 1013450 50 00014000
R11135DK: B MNTGO1 GO ISSUE MSG, RETURN @VA11135 00015000
R11135DK: ./ I 1013500 $ 1013550 10 00016000
R11135DK: MNTGO1 EQU * @VA11135 00017000
R11135DK: ./ R 1118000 $ 1118000 100 00018000
R11135DK: ICM R3,15,MSSTASK2 PICK UP CPEXBLOK POINTER @VA11135 00019000
R11135DK: BNZ NOTSK3 DOES NOT EXIST @VA11135 00020000
R11135DK: L R3,MSSTASKD SO PICK UP DUPLICATE CPEXBLOK @VA11135 00021000
R11135DK: NOTSK3 DS 0H @VA11135 00022000
R11135DK: ./ R 1846000 $ 1846100 100 00023000
R11135DK: BNZ DISPTSK2 MSC HAS NOT RETURNED @VA11135 00024000
R11135DK: L R1,MSSTASKD CHECK FOR DUPLICATE MOUNTS @VA11135 00025000
R11135DK: LTR R1,R1 MSSTASKD SET BY THE CMS SCHMSSC @VA11135 00026000
R11135DK: * ROUTINE FOR DUPLICATE MOUNTS 00027000
R11135DK: BZ DSPTASK1 NOT DUPLICATE, MSC COMPLETED @VA11135 00028000
R11135DK: DISPTSK2 EQU * STACK CPEXBLOK FROM MSSTASK2 @VA11135 00029000
R11135DK: ./ I 1853000 $ 1853100 100 00030000
R11135DK: LTR R1,R1 IS THERE AN MSSTASK2T @VA11135 00031000
R11135DK: BNZ USETASK2 YES, STACK IT @VA11135 00032000
R11135DK: L R1,MSSTASKD THIS IS A DUP MOUNT @VA11135 00033000
R11135DK: USETASK2 EQU * @VA11135 00034000
R11135DK: ./ I 1917000 $ 1917100 50 00035000
R11135DK: DROP R12 @VA11135 00036000
R11135DK: USING *,R15 @VA11135 00037000
R11135DK: SL R15,=A(MORSTACK-DMKSSS) E.P. ADDRESS @VA11135 00038000
R11135DK: LR R12,R15 SET ADDRESSABILITY @VA11135 00039000
R11135DK: DROP R15 @VA11135 00040000
R11135DK: USING DMKSSS,R12 @VA11135 00041000
R11135DK: INTSTK EQU * @VA11135 00042000
R11135DK: ./ R 1930000 $ 1930000 100 00043000
R11135DK: BNZ INTSTK YES, CHECK VOLSER. @VA11135 00044000
BEGIN APPLY >>> ./ R 464000 $ 464100 100 00001000
END APPLY >>> ./ R 464000 $ 464100 100 00001000
BEGIN APPLY >>> ./ I 497000 $ 497100 100 00003000
END APPLY >>> ./ I 497000 $ 497100 100 00003000
BEGIN APPLY >>> ./ D 1012500 1012600 00010000
END APPLY >>> ./ D 1012500 1012600 00010000
BEGIN APPLY >>> ./ D 1012900 1013200 00011000
END APPLY >>> ./ D 1012900 1013200 00011000
BEGIN APPLY >>> ./ R 1013300 $ 1013300 50 00012000
END APPLY >>> ./ R 1013300 $ 1013300 50 00012000
BEGIN APPLY >>> ./ R 1013400 $ 1013450 50 00014000
END APPLY >>> ./ R 1013400 $ 1013450 50 00014000
BEGIN APPLY >>> ./ I 1013500 $ 1013550 10 00016000
END APPLY >>> ./ I 1013500 $ 1013550 10 00016000
BEGIN APPLY >>> ./ R 1118000 $ 1118000 100 00018000
END APPLY >>> ./ R 1118000 $ 1118000 100 00018000
BEGIN APPLY >>> ./ R 1846000 $ 1846100 100 00023000
END APPLY >>> ./ R 1846000 $ 1846100 100 00023000
BEGIN APPLY >>> ./ I 1853000 $ 1853100 100 00030000
END APPLY >>> ./ I 1853000 $ 1853100 100 00030000
BEGIN APPLY >>> ./ I 1917000 $ 1917100 50 00035000
END APPLY >>> ./ I 1917000 $ 1917100 50 00035000
BEGIN APPLY >>> ./ R 1930000 $ 1930000 100 00043000
END APPLY >>> ./ R 1930000 $ 1930000 100 00043000
Update Succeeded
Update Execution Time 31 milliseconds.
R11436DK
Date Friday Jul 25, 1980 07:14:00 AM
Loaded from MAINT(294)
R11436DK: ./ R 246000 249000 $ 246010 10 00001000
R11436DK: ST R8,RDEVDEMT STORE RDEVBLOK FOR DEMOUNT @VA11436 00002000
R11436DK: BAL R14,DEMOUNTV GO TO DO DEMOUNT @VA11436 00003000
R11436DK: ./ R 296000 298000 $ 296010 00004000
R11436DK: BAL R14,DEMOUNTV GO TO DO DEMOUNT @VA11436 00005000
R11436DK: ./ R 308000 312000 $ 308010 00006000
R11436DK: BAL R14,COMBLD GO BUILD THE MSSCOM @VA11436 00007000
R11436DK: ./ R 366000 $ 366010 10 00008000
R11436DK: DEMOUNTV DS 0H @VA11436 00009000
R11436DK: ST R14,DEMNTRET SAVE RETURN ADDRESS @VA11436 00010000
R11436DK: ./ R 371000 375000 $ 371010 00011000
R11436DK: BAL R14,COMBLD GO BUILD THE MSSCOM @VA11436 00012000
R11436DK: ./ D 422000 433000 00013000
R11436DK: ./ I 478000 $ 478010 00014000
R11436DK: TROUBS DS 0H HERE FOR NO SERVER OR BAD DEVICE @VA11436 00015000
R11436DK: ./ R 490000 $ 490010 10 00016000
R11436DK: NOTSK2 DS 0H @VA11436 00017000
R11436DK: ICM R1,15,DMKSSSMQ GET THE ANCHOR @VA11436 00018000
R11436DK: BZ DISASTER WE SHOULDNT FIND THIS ANYWAY @VA11436 00019000
R11436DK: CR R1,R10 WE THE FIRST ONE IN THE QUEUE @VA11436
R11436DK: BNE GETRID3 NO CHECK THE REST @VA11436
R11436DK: MVC DMKSSSMQ,MSSNEXT-OSVSCOM(R1) TAKE IT OUT @VA11436
R11436DK: B GETRID4 AND FRET IT @VA11436
R11436DK: GETRID2 DS 0H @VA11436 00020000
R11436DK: CR R1,R10 IS THIS THE ONE WE PROCESSIN @VA11436 00021000
R11436DK: BE GETRID YES GET RID OF IT @VA11436 00022000
R11436DK: GETRID3 DS 0H @VA11436
R11436DK: LR R0,R1 SAVE BACKWARD POINTER @VA11436 00023000
R11436DK: ICM R1,15,MSSNEXT-OSVSCOM(R1) GET THE NEXT ONE @VA11436 00024000
R11436DK: BZ DISASTER WE SHOULDNT FIND IT THIS WAY @VA11436 00025000
R11436DK: B GETRID2 GO SEE IF THIS IS THE ONE @VA11436 00027000
R11436DK: GETRID DS 0H @VA11436 00028000
R11436DK: MVC MSSNEXT-OSVSCOM(R0),MSSNEXT-OSVSCOM(R1) DECHAIN @VA11436 00029000
R11436DK: GETRID4 DS 0H
R11436DK: ./ R 514000 517000 $ 514010 10 00030000
R11436DK: LR R1,R10 NOW SET UP R1 AS THE START @VA11436 00031000
R11436DK: TESTENDA DS 0H @VA11436 00032000
R11436DK: ./ R 521000 522000 $ 521010 10 00033000
R11436DK: ICM R1,15,MSSNEXT-OSVSCOM(R1) GET THE NEXT POINTER @VA11436 00034000
R11436DK: BNZ TESTENDA IF THERE IS ONE DO IT SOMEMORE @VA11436 00035000
R11436DK: ./ D 523000 533000 00036000
R11436DK: ./ R 538000 540000 $ 538010 10 00037000
R11436DK: GENATTN DS 0H @VA11436 00038000
R11436DK: LR R3,R11 SAVE THIS GUYS VMBLOK @VA11436 00039000
R11436DK: ICM R11,15,COMMVMAD IS THIS SERVER STILL HERE @VA11436 00040000
R11436DK: BZ EMSG071 PERHAPS THE AP LOGGED HIM OFF @VA11436 00041000
R11436DK: ./ R 584000 $ 584010 00044000
R11436DK: B TROUBS GO FRET BLOKS AND RETURN @VA11436 00045000
R11436DK: ./ R 585000 $ 585010 10 00046000
R11436DK: SPACE 00047000
R11436DK: COMBLD DS 0H @VA11436 00048000
R11436DK: ST R14,RETNADDR SAVE CALLERS RETURN ADDR @VA11436 00049000
R11436DK: ./ I 607000 $ 607010 00050000
R11436DK: LR R10,R1 SET UP R10 FOR THE CALLER @VA11436 00051000
R11436DK: ./ R 748000 750000 $ 748010 00052000
R11436DK: BAL R14,DEMOUNTV GO DO THE DEMOUNT @VA11436 00053000
R11436DK: ./ R 1582000 1586000 $ 1582010 00054000
R11436DK: BAL R14,COMBLD GO BUILT THE MSSCOM @VA11436 00055000
BEGIN APPLY >>> ./ R 246000 249000 $ 246010 10 00001000
END APPLY >>> ./ R 246000 249000 $ 246010 10 00001000
BEGIN APPLY >>> ./ R 296000 298000 $ 296010 00004000
END APPLY >>> ./ R 296000 298000 $ 296010 00004000
BEGIN APPLY >>> ./ R 308000 312000 $ 308010 00006000
END APPLY >>> ./ R 308000 312000 $ 308010 00006000
BEGIN APPLY >>> ./ R 366000 $ 366010 10 00008000
END APPLY >>> ./ R 366000 $ 366010 10 00008000
BEGIN APPLY >>> ./ R 371000 375000 $ 371010 00011000
END APPLY >>> ./ R 371000 375000 $ 371010 00011000
BEGIN APPLY >>> ./ D 422000 433000 00013000
END APPLY >>> ./ D 422000 433000 00013000
BEGIN APPLY >>> ./ I 478000 $ 478010 00014000
END APPLY >>> ./ I 478000 $ 478010 00014000
BEGIN APPLY >>> ./ R 490000 $ 490010 10 00016000
END APPLY >>> ./ R 490000 $ 490010 10 00016000
BEGIN APPLY >>> ./ R 514000 517000 $ 514010 10 00030000
END APPLY >>> ./ R 514000 517000 $ 514010 10 00030000
BEGIN APPLY >>> ./ R 521000 522000 $ 521010 10 00033000
END APPLY >>> ./ R 521000 522000 $ 521010 10 00033000
BEGIN APPLY >>> ./ D 523000 533000 00036000
END APPLY >>> ./ D 523000 533000 00036000
BEGIN APPLY >>> ./ R 538000 540000 $ 538010 10 00037000
END APPLY >>> ./ R 538000 540000 $ 538010 10 00037000
BEGIN APPLY >>> ./ R 584000 $ 584010 00044000
END APPLY >>> ./ R 584000 $ 584010 00044000
BEGIN APPLY >>> ./ R 585000 $ 585010 10 00046000
END APPLY >>> ./ R 585000 $ 585010 10 00046000
BEGIN APPLY >>> ./ I 607000 $ 607010 00050000
END APPLY >>> ./ I 607000 $ 607010 00050000
BEGIN APPLY >>> ./ R 748000 750000 $ 748010 00052000
END APPLY >>> ./ R 748000 750000 $ 748010 00052000
BEGIN APPLY >>> ./ R 1582000 1586000 $ 1582010 00054000
END APPLY >>> ./ R 1582000 1586000 $ 1582010 00054000
Update Succeeded
Update Execution Time 78 milliseconds.
R11270DK
Date Friday Jul 25, 1980 06:17:00 AM
Loaded from MAINT(294)
R11270DK: ./ R 966000 $ 966010 00001000
R11270DK: BC 6,NOUSER1 VMBLOK IS NO LONGER @VA11270 00002000
R11270DK: ./ D 977000 00003000
R11270DK: ./ I 985000 $ 985010 00004000
R11270DK: NOUSER2 DS 0H @VA11270 00005000
R11270DK: ./ I 993000 $ 993010 10 00006000
R11270DK: SPACE 00007000
R11270DK: NOUSER1 DS 0H HERE IF THE USER HAS DEPARTED @VA11270 00008000
R11270DK: ICM R1,15,MSSTASK2 GET THE REMAINING CPEXBLOK @VA11270 00009000
R11270DK: BNZ NOUSER3 WAS IT HERE @VA11270 00010000
R11270DK: L R1,MSSTASKD OR WAS IT FOR A DUP @VA11270 00011000
R11270DK: NOUSER3 DS 0H GOTTA GET RID OF IT ANYWAY @VA11270 00012000
R11270DK: LA R0,CPEXSIZE GET THE 'HOW MUCH' BITS @VA11270 00013000
R11270DK: CALL DMKFRET AND UNLOAD IT @VA11270 00014000
R11270DK: B NOUSER2 NOW GO GET RID OF MSSCOM @VA11270 00015000
R11270DK: SPACE 00016000
BEGIN APPLY >>> ./ R 966000 $ 966010 00001000
END APPLY >>> ./ R 966000 $ 966010 00001000
BEGIN APPLY >>> ./ D 977000 00003000
END APPLY >>> ./ D 977000 00003000
BEGIN APPLY >>> ./ I 985000 $ 985010 00004000
END APPLY >>> ./ I 985000 $ 985010 00004000
BEGIN APPLY >>> ./ I 993000 $ 993010 10 00006000
END APPLY >>> ./ I 993000 $ 993010 10 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R11574DK
Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
R11574DK: ./ I 1853000 $ 1853050 50 00001000
R11574DK: XC MSSTASK2(4),MSSTASK2 @VA11574 00002000
R11574DK: ./ I 1853300 $ 1853350 50 00003000
R11574DK: XC MSSTASKD(4),MSSTASKD @VA11574 00004000
BEGIN APPLY >>> ./ I 1853000 $ 1853050 50 00001000
END APPLY >>> ./ I 1853000 $ 1853050 50 00001000
BEGIN APPLY >>> ./ I 1853300 $ 1853350 50 00003000
END APPLY >>> ./ I 1853300 $ 1853350 50 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11709DK
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11709DK: ./ I 1131000 $ 1131100 100 00001000
R11709DK: LH R1,MSSVUA @VA11709 00002000
R11709DK: CALL DMKSCNRU @VA11709 00003000
R11709DK: USING RDEVBLOK,R8 @VA11709 00004000
R11709DK: NI RDEVFLAG,X'FF'-RDEVSEL @VA11709 00005000
R11709DK: DROP R8 @VA11709 00006000
BEGIN APPLY >>> ./ I 1131000 $ 1131100 100 00001000
END APPLY >>> ./ I 1131000 $ 1131100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11573DK
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11573DK: ./ R 566000 $ 566100 100 00001000
R11573DK: LR R1,R11 GET COMM VMBLOK @VA11573 00002000
R11573DK: LR R11,R3 GET CURRENT VMBLOK @VA11573 00003000
R11573DK: SWTCHVM @VA11573 00004000
BEGIN APPLY >>> ./ R 566000 $ 566100 100 00001000
END APPLY >>> ./ R 566000 $ 566100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11939DK
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11939DK: ./ R 236000 237000 $ 236100 500 00001000
R11939DK: CLC RDEVSER,BLANKS IS A VOLUME MOUNTED? @VA11939 00002000
R11939DK: BE DOALLC NO, GO ALLOCATE @VA11939 00003000
R11939DK: ./ R 1688000 1689000 $ 1688100 500 00004000
R11939DK: CLC RDEVSER,BLANKS IS A VOLUME MOUNTED? @VA11939 00005000
R11939DK: BNE MUSTDEMT YES, MUST DEMOUNT IT @VA11939 00006000
BEGIN APPLY >>> ./ R 236000 237000 $ 236100 500 00001000
END APPLY >>> ./ R 236000 237000 $ 236100 500 00001000
BEGIN APPLY >>> ./ R 1688000 1689000 $ 1688100 500 00004000
END APPLY >>> ./ R 1688000 1689000 $ 1688100 500 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R10877DK
Date Tuesday Sep 30, 1980 12:34:00 PM
Loaded from MAINT(294)
R10877DK: ./ R 1535000 1539000 $ 1535100 500
R10877DK: * ENTRY IS VIA CALL (SVC 8) FROM DMKDEF OR DMKCPS. IF FROM 00002000
R10877DK: * DMKDEF, THE PURPOSE IS TO DEMOUNT AN MSS VOLUME WHICH IS 00003000
R10877DK: * MOUNTED, BUT NOT IN USE. THE REAL DEVICE IS GOING TO BE 00004000
R10877DK: * REDEFINED SO THE VOLUME MUST BE DEMOUNTED. IF FROM DMKCPS, 00005000
R10877DK: * THE PURPOSE IS TO DEMOUNT AN MSS VOLUME WHICH HAS BEEN 00006000
R10877DK: * VARIED OFFLINE. ON ENTRY THE PERTINENT REGISTERS ARE: 00007000
R10877DK: ./ R 1566000 $ 1566100 100 00008000
R10877DK: * TO CALLER. 00009000
R10877DK: ./ R 1575000 $ 1575100 100 00010000
R10877DK: DMKSSSDE RELOC ENTRY FROM DMKDEF OR DMKCPS @VA10877 00011000
R10877DK: ./ R 1576000 $ 1576100 100 00012000
R10877DK: USING RDEVBLOK,R8 SET BY CALLER @VA10877 00013000
R10877DK: ./ R 1606000 $ 1606100 100 00014000
R10877DK: EXIT RETURN TO CALLER - GPR 15 @VA10877 00015000
BEGIN APPLY >>> ./ R 1535000 1539000 $ 1535100 500
END APPLY >>> ./ R 1535000 1539000 $ 1535100 500
BEGIN APPLY >>> ./ R 1566000 $ 1566100 100 00008000
END APPLY >>> ./ R 1566000 $ 1566100 100 00008000
BEGIN APPLY >>> ./ R 1575000 $ 1575100 100 00010000
END APPLY >>> ./ R 1575000 $ 1575100 100 00010000
BEGIN APPLY >>> ./ R 1576000 $ 1576100 100 00012000
END APPLY >>> ./ R 1576000 $ 1576100 100 00012000
BEGIN APPLY >>> ./ R 1606000 $ 1606100 100 00014000
END APPLY >>> ./ R 1606000 $ 1606100 100 00014000
Update Succeeded
Update Execution Time 23 milliseconds.
R11320DK
Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)
R11320DK: ./ R 970000 $ 970100 100
R11320DK: LH R1,MSSRC-OSVSCOM(R8) REASON CODE @VA11320
R11320DK: CALL DMKCVTBH CONVERT BINARY TO HEX @VA11320
R11320DK: SLR R0,R0 CLEAR FOR ERM @VA11320
R11320DK: ./ D 972000
R11320DK: ./ R 1662000 1662000 $ 1662100 00004000
R11320DK: BNZ MSG438 YES,NOT AVAILABLE @VA11320 00005000
R11320DK: ./ R 1665000 1666000 $ 1665100 400 00006000
R11320DK: MSG438 EQU * MSS DEVICE AVAILABLE @VA11320 00007000
R11320DK: L R2,OPT438 MSG WRITER OPTIONS @VA11320 00008000
R11320DK: ./ R 1710000 1710000 $ 1710500 100 00009000
R11320DK: BNZ MSG438 CAN NOT DEMOUNT @VA11320 00010000
R11320DK: ./ R 1712000 1712000 $ 1712100 00011000
R11320DK: BNZ MSG438 CP OWNED,SYSTEM OR SELECTED @VA11320 00012000
R11320DK: ./ R 1715000 1715000 $ 1715100 00013000
R11320DK: BNE MSG438 YES,CANNOT DEMOUNT @VA11320 00014000
R11320DK: ./ I 1952000 $ 1952100 100 00015000
R11320DK: OPT438 DC X'80C501B6' DMKSSS438E @VA11320 00016000
BEGIN APPLY >>> ./ R 970000 $ 970100 100
END APPLY >>> ./ R 970000 $ 970100 100
BEGIN APPLY >>> ./ D 972000
END APPLY >>> ./ D 972000
BEGIN APPLY >>> ./ R 1662000 1662000 $ 1662100 00004000
END APPLY >>> ./ R 1662000 1662000 $ 1662100 00004000
BEGIN APPLY >>> ./ R 1665000 1666000 $ 1665100 400 00006000
END APPLY >>> ./ R 1665000 1666000 $ 1665100 400 00006000
BEGIN APPLY >>> ./ R 1710000 1710000 $ 1710500 100 00009000
END APPLY >>> ./ R 1710000 1710000 $ 1710500 100 00009000
BEGIN APPLY >>> ./ R 1712000 1712000 $ 1712100 00011000
END APPLY >>> ./ R 1712000 1712000 $ 1712100 00011000
BEGIN APPLY >>> ./ R 1715000 1715000 $ 1715100 00013000
END APPLY >>> ./ R 1715000 1715000 $ 1715100 00013000
BEGIN APPLY >>> ./ I 1952000 $ 1952100 100 00015000
END APPLY >>> ./ I 1952000 $ 1952100 100 00015000
Update Succeeded
Update Execution Time 23 milliseconds.
R11344DK
Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)
R11344DK: ./ I 00056000 $ 56100 100 08/20/80 16:10:53
R11344DK: * DMKSSSRL - FROM DMKVDR: ISSUE A RELINQUISH REQUEST TO 00056340
R11344DK: * DESTAGE ANY CHANGED CYLINDERS OF THE VOLUME MOUNTED ON 00056360
R11344DK: * THE SPECIFIED VUA. 00056380
R11344DK: * 00056320
R11344DK: ./ I 00438000 $ 438500 500 08/20/80 16:10:53
R11344DK: CHKDUP1 DS 0H @VA11344 00438500
R11344DK: ./ R 00451000 $ 451000 200 08/20/80 16:10:53
R11344DK: BNE CHKMORE NO - THEN CHK FOR RELINQUISH @VA11344 00451000
R11344DK: TM MSSFLAG1,RELINQSH BOTH RELINQUISH REQUESTS? @VA11344 00451200
R11344DK: BO NORLQSH YES - THEN THROW AWAY NEW REQUEST@VA11344 00451400
R11344DK: CHAINMOR DS 0H @VA11344 00451600
R11344DK: ./ R 00455000 $ 455000 500 08/20/80 16:10:53
R11344DK: TM RDEVFTR-RDEVBLOK(R8),SYSVIRT+VIRTUAL @VA11344 00455000
R11344DK: * THIS AN MSS VUA? @VA11344 00455500
R11344DK: ./ R 00459000 00461000 $ 459000 600 08/20/80 16:10:53
R11344DK: TM RDEVFTR-RDEVBLOK(R8),SYSVIRT+VIRTUAL @VA11344 00459000
R11344DK: * THIS AN MSS VUA? @VA11344 00459600
R11344DK: BZ CONFLICT MUST ALSO BE SYSTEM DEVICE @VMI2008 00460200
R11344DK: CLC MSSVUA(2),MSSVUA-OSVSCOM(R3) SAME VUA? @VA11344 00460800
R11344DK: BE SAMEVUA YES - THEN DON'T TURN OFF RDEVSEL@VA11344 00461400
R11344DK: ./ I 00462000 $ 462300 300 08/20/80 16:10:53
R11344DK: SAMEVUA DS 0H @VA11344 00462300
R11344DK: MVC MSSVUA(2),MSSVUA-OSVSCOM(R3) SAME RDEV @VMI2008 00462600
R11344DK: ./ I 00468000 $ 468070 70 08/20/80 16:10:53
R11344DK: CHKMORE DS 0H @VA11344 00468070
R11344DK: TM MSSFLAG1-OSVSCOM(R1),RELINQSH IS OLD REQUEST A @VA11344 00468140
R11344DK: * RELINQUISH REQUEST? 00468210
R11344DK: BNO CONFLICT NO - THEN STRANGE SEQUENCE OF @VA11344 00468280
R11344DK: * REQUESTS INDEED!! 00468350
R11344DK: B CHAINMOR ELSE CHAIN NEW REQ AFTER OLD @VA11344 00468420
R11344DK: NORLQSH DS 0H @VA11344 00468490
R11344DK: LR R1,R10 GET MSSCOM ADDR FOR FRET @VA11344 00468560
R11344DK: LA R0,MSSSIZE GET SIZE OF MSSCOM FOR FRET @VA11344 00468630
R11344DK: CALL DMKFRET GET RID OF DUPLICATE RELINQUISH @VA11344 00468700
R11344DK: * REQUEST 00468770
R11344DK: B SSSRLEND RETURN TO CALLER @VA11344 00468840
R11344DK: ./ I 00570500 $ 570600 100 08/20/80 16:10:53
R11344DK: TM MSSFLAG1,RELINQSH THIS A RELINQUISH REQUEST? @VA11344 00570600
R11344DK: BO SSSRLEND YES - THEN DON'T GO TO @VA11344 00570700
R11344DK: * DISPATCHER; RETURN TO CALLER 00570800
R11344DK: ./ I 00939800 $ 939820 20 08/20/80 16:10:53
R11344DK: TM MSSFLAG1,MSSERR WAS THERE AN MSS ERROR? @VA11344
R11344DK: BO NOTDEMNT YES - THEN DON'T RESET THE @VA11344
R11344DK: * 'MOUNTED-BY-CP' FLAG
R11344DK: NI RDEVFLAG,X'FF'-RDEVVMNT RESET 'MTD-BY-CP' FLAG @VA11344
R11344DK: ./ I 01077000 $ 1077100 100 08/20/80 16:10:53
R11344DK: TM MSSFLAG1,RELINQSH THIS A RELINQUISH REQUEST? @VA11344 01077100
R11344DK: BNO NOTRLQSH NO - THEN DON'T FRET REQUEST BLOK@VA11344 01077200
R11344DK: LR R1,R4 ELSE GET MSSCOM ADDR FOR FRET @VA11344 01077300
R11344DK: LA R0,MSSSIZE SIZE OF MSSCOM FOR FRET @VA11344 01077400
R11344DK: CALL DMKFRET FRET THE RELINQUISH REQ AFTER @VA11344 01077500
R11344DK: * PROCESSING IT 01077600
R11344DK: B HVCEXIT NOW RETURN TO ISSUER OF DIAG '78'@VA11344 01077700
R11344DK: NOTRLQSH DS 0H @VA11344 01077800
R11344DK: ./ I 01118200 $ 1118225 025
R11344DK: LTR R3,R3 ANYTHING THERE? @VA11344 01118300
R11344DK: BZ NOTINQ NO - THEN DON'T STACK CPEXBLOK @VA11344 01118600
R11344DK: ./ I 01935000 $ 1935020 20 08/20/80 16:10:53
R11344DK: * 01935700
R11344DK: * DMKSSSRL ENTRY POINT 01935710
R11344DK: * 01935720
R11344DK: * ENTRY CONDITIONS - 01935730
R11344DK: * ENTRY IS FROM DMKVDR, WHICH IS IN THE PROCESS OF DETACHING 01935740
R11344DK: * A VUA FROM A VIRTUAL MACHINE. ANY CHANGED CYLINDERS OF THE 01935750
R11344DK: * VOLUME MOUNTED ON THAT VUA NEED TO BE WRITTEN BACK ONTO THE 01935760
R11344DK: * CARTRIDGES CONTAINING THAT VOLUME. SET UP A RELINQUISH 01935770
R11344DK: * REQUEST MSSCOM BLOK TO DO SO. THE PERTINENT REGISTERS ARE: 01935780
R11344DK: * 01935790
R11344DK: * GPR 2 = RDEVBLOK ADDRESS FOR THIS VUA 01935800
R11344DK: * 01935810
R11344DK: * OPERATION - 01935820
R11344DK: * 1. SAVE RDEVBLOK ADDRESS AND VOLSER ADDRESS FOR COMBLD 01935830
R11344DK: * ROUTINE. BAL TO COMBLD TO BUILD A SKELETON MSSCOM. 01935840
R11344DK: * 01935850
R11344DK: * 2. FLAG MSSCOM AS A RELINQUISH REQUEST. 01935860
R11344DK: * 01935870
R11344DK: * 3. BRANCH TO CHKDUP1 TO PUT THE MSSCOM ON THE MSS 01935880
R11344DK: * REQUEST QUEUE (DMKSSSMQ). 01935890
R11344DK: * 01935900
R11344DK: * 4. RETURN TO DMKVDR AFTER QUEUEING THE RELINQUISH REQUEST. 01935910
R11344DK: * 01935920
R11344DK: DMKSSSRL RELOC , @VA11344 01935930
R11344DK: ST R2,RDEVADDR SAVE RDEVBLOK ADDR FOR COMBLD RTN@VA11344 01935940
R11344DK: LA R2,RDEVSER-RDEVBLOK(R2) POINT TO START OF VOLSER@VA11344 01935950
R11344DK: ST R2,VSERADDR SAVE ADDR OF VOLSER FOR COMBLD @VA11344 01935960
R11344DK: BAL R14,COMBLD GO BUILD SKELETON OF MSSCOM @VA11344 01935970
R11344DK: SPACE 1 01935980
R11344DK: USING OSVSCOM,R10 01935990
R11344DK: SPACE 1 01936000
R11344DK: OI MSSFLAG1,RELINQSH SAY THIS IS A RELINQUISH REQ@VA11344 01936010
R11344DK: B CHKDUP1 STACK MSSCOM ON QUEUE @VA11344 01936020
R11344DK: DROP R10 01936030
R11344DK: SSSRLEND DS 0H @VA11344 01936040
R11344DK: EXIT @VA11344 01936050
R11344DK: EJECT 01936060
BEGIN APPLY >>> ./ I 00056000 $ 56100 100 08/20/80 16:10:53
END APPLY >>> ./ I 00056000 $ 56100 100 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 00438000 $ 438500 500 08/20/80 16:10:53
END APPLY >>> ./ I 00438000 $ 438500 500 08/20/80 16:10:53
BEGIN APPLY >>> ./ R 00451000 $ 451000 200 08/20/80 16:10:53
END APPLY >>> ./ R 00451000 $ 451000 200 08/20/80 16:10:53
BEGIN APPLY >>> ./ R 00455000 $ 455000 500 08/20/80 16:10:53
END APPLY >>> ./ R 00455000 $ 455000 500 08/20/80 16:10:53
BEGIN APPLY >>> ./ R 00459000 00461000 $ 459000 600 08/20/80 16:10:53
END APPLY >>> ./ R 00459000 00461000 $ 459000 600 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 00462000 $ 462300 300 08/20/80 16:10:53
END APPLY >>> ./ I 00462000 $ 462300 300 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 00468000 $ 468070 70 08/20/80 16:10:53
END APPLY >>> ./ I 00468000 $ 468070 70 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 00570500 $ 570600 100 08/20/80 16:10:53
END APPLY >>> ./ I 00570500 $ 570600 100 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 00939800 $ 939820 20 08/20/80 16:10:53
END APPLY >>> ./ I 00939800 $ 939820 20 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 01077000 $ 1077100 100 08/20/80 16:10:53
END APPLY >>> ./ I 01077000 $ 1077100 100 08/20/80 16:10:53
BEGIN APPLY >>> ./ I 01118200 $ 1118225 025
END APPLY >>> ./ I 01118200 $ 1118225 025
BEGIN APPLY >>> ./ I 01935000 $ 1935020 20 08/20/80 16:10:53
END APPLY >>> ./ I 01935000 $ 1935020 20 08/20/80 16:10:53
Update Succeeded
Update Execution Time 47 milliseconds.
R13058DK
Date Wednesday Oct 07, 1981 04:01:00 PM
Loaded from MAINT(294)
R13058DK: ./ I 566300 $ 566350 50
R13058DK: TM MSSFLAG1,RELINQSH RELINQUISH REQUEST @VA13058
R13058DK: BZ RETSAVE NO, RETURN SAVEAREA IF NECESSARY @VA13058
R13058DK: LA R0,CPEXSIZE GET CPEXBLOK @VA13058
R13058DK: CALL DMKFREE ... @VA13058
R13058DK: USING CPEXBLOK,R1 ... @VA13058
R13058DK: XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEAR BLOCK @VA13058
R13058DK: ST R11,CPEXR11 ADDRESS OF COMMUNICATOR VMBLOK @VA13058
R13058DK: LA R2,GODSPCH1 DISPATCH COMMUNICATOR VMBLOK @VA13058
R13058DK: ST R2,CPEXADD CPEXBLOK RETURN ADDRESS @VA13058
R13058DK: CALL DMKSTKCP STACK CPEXBLOK @VA13058
R13058DK: B SSSRLEND EXIT TO CALLER @VA13058
R13058DK: DROP R1 DROP CPEXBLOK ADDRESSABILITY @VA13058
R13058DK: ./ R 570900 570900 $ 570900 10
R13058DK: RETSAVE TM MSSFLAG1,MSSSAVE RETURN SAVE AREA NOW ? @VA13058
BEGIN APPLY >>> ./ I 566300 $ 566350 50
END APPLY >>> ./ I 566300 $ 566350 50
BEGIN APPLY >>> ./ R 570900 570900 $ 570900 10
END APPLY >>> ./ R 570900 570900 $ 570900 10
Update Succeeded
Update Execution Time 16 milliseconds.