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