CMS File Input : DMKCFO ASSEMBLE
Date : 12/7/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCFO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10073DK: ./ R 80100 $
R10073DK: * ' ' CPASSIST ON <<PROC> XX>' @V5DAACD
R10073DK: ./ R 610100 610400 $ 610110 20
R10073DK: BAL R8,SETONOFF GO CK FOR ON/OFF @V5DAACD
R10073DK: BAL R10,SETPROC GO CK 'PROC' OPTION @V5DAACD
R10073DK: B SETCPA2 UP MODE OR THIS PROCESSOR @V5DAACD
R10073DK: B SETBOTH AP MODE SET BOTH PROCESSORS @V5DAACD
R10073DK: SETCPASW EQU * **RETURN +8 SET OTHER PROCESSOR @V5DAACD
R10073DK: BAL R6,SETOTHER GO SETUP FOR SWITCH @V5DAACD
R10073DK: SETCPA2 EQU *
R10073DK: L R11,SAVER11 R11-ADDR. OF USER VMBLOK @V5DAACD
R10073DK: LR R9,R11 ON ENTRY. SAVE FOR COMPARE. @V5DAACD
R10073DK: TM SAVEWRK1,WASON NOW DID THEY SAY ON OR OFF? @V5DAACD
R10073DK: BO SETCPA1 THEY SAID ON.. @V5DAACD
R10073DK: SLR R7,R7 ZERO R7 FOR CREG 6 @V5DAACD
R10073DK: * @V5DAACD
R10073DK: ./ R 612300 $ 612310 10
R10073DK: BR R8 @V5DAACD
R10073DK: SETBOTH EQU * @V5DAACD
R10073DK: BAL R8,SETCPA2 GO SETUP THIS PROCESSOR @V5DAACD
R10073DK: LA R8,SETCOMP SET EXIT ADDR. UPON RETURN. @V5DAACD
R10073DK: B SETCPASW AND GO SWITCH PROC. @V5DAACD
R10073DK: ./ I 960000 $ 960100 10
R10073DK: * TEST FOR ON/OFF ARGUMENT. WASON BIT SET @V5DAACD
R10073DK: * TO 1 IF ON SPECIFIED.ISSUE MSG IF ON/OFF @V5DAACD
R10073DK: * NOT SPECIFIED. @V5DAACD
R10073DK: SETONOFF EQU * @V5DAACD
R10073DK: TM SAVEWRK1,NARGTWO ANY 2ND ARGUMENT? @V5DAACD
R10073DK: BO CFO026 NO-GO ISSUE ERROR MSG. @V5DAACD
R10073DK: CLC SAVEWRK5(3),=C'OFF' OFF SPECIFIED? @V5DAACD
R10073DK: BCR 8,R8 YES - WASON BIT=0 ON ENTRY. @V5DAACD
R10073DK: CLC SAVEWRK5(3),=C'ON ' ON SPECIFIED? @V5DAACD
R10073DK: BNE BADONOFF NEITHER ON AND/OR OFF SPECIFIED @V5DAACD
R10073DK: OI SAVEWRK1,WASON SET ON INDICATOR FOR @V5DAACD
R10073DK: BR R8 LATER USE AND RETURN @V5DAACD
R10073DK: SPACE 3
R10073DK: * TEST FOR OPTIONAL 'PROC' IN COMMAND. @V5DAACD
R10073DK: * RETURN +0-UP MODE OR THIS PROCESSOR @V5DAACD
R10073DK: * +4-AP SET BOTH PROCESSOR'S @V5DAACD
R10073DK: * +8-AP AND OTHER PROCESSOR SPECIFIED. @V5DAACD
R10073DK: SETPROC EQU * @V5DAACD
R10073DK: LA R8,SETCOMP SETUP EXIT. @V5DAACD
R10073DK: TM APSTAT1,APUOPER AP MODE? @V5DAACD
R10073DK: BCR 14,R10 NO RETURN R10+0 @V5DAACD
R10073DK: * @V5DAACD
R10073DK: CALL DMKSCNFD LOCATE PROC IF GIVEN @V5DAACD
R10073DK: BNZ 4(R10) DO BOTH PROC'S IF PROC NOT SPECIFIED @V5DAACD
R10073DK: CLI 0(R1),C'P' OPTIONAL 'PROC' IN COMMAND? @V5DAACD
R10073DK: BNE SETPROC1 NO @V5DAACD
R10073DK: CALL DMKSCNFD YES,LOOK FOR PROC SPECIFIED. @V5DAACD
R10073DK: BNZ CFO026 THEY FORGOT TO TELL US WHICH ONE @V5DAACD
R10073DK: SETPROC1 EQU * @V5DAACD
R10073DK: CALL DMKCVTDB @V5DAACD
R10073DK: BNZ CFO026 VALUE GIVEN WASEN'T NUMERIC @V5DAACD
R10073DK: L R0,F63 LARGEST PROCESSOR ADDRESS POSSIBLE @V5DAACD
R10073DK: CR R1,R0 @V5DAACD
R10073DK: BH CFO026 TOO TOO BIG.. @V5DAACD
R10073DK: CH R1,IPUADDR IS IT PROCESSOR RUNNING US? @V5DAACD
R10073DK: BE 0(R10) YES RETURN +0 @V5DAACD
R10073DK: CH R1,IPUADDRX THE OTHER PROCESSOR? @V5DAACD
R10073DK: BE 8(R10) YES RETURN +8 @V5DAACD
R10073DK: LA R2,188 NO WE DON'T HAVE IT.. @V5DAACD
R10073DK: B NOVAR @V5DAACD
R10073DK: SPACE 3
R10073DK: * ROUTINE TO GET OVER TO THE OTHER @V5DAACD
R10073DK: * PROCESSOR.R6 CONTAINS RETURN ADDRESS. @V5DAACD
R10073DK: SETOTHER EQU * @V5DAACD
R10073DK: LA R0,CPEXSIZE @V5DAACD
R10073DK: CALL DMKFREE @V5DAACD
R10073DK: USING CPEXBLOK,R1 @V5DAACD
R10073DK: STM R2,R13,CPEXR2 SAVE NEEDED REG'S @V5DAACD
R10073DK: ST R6,CPEXADD SETUP RETURN ADDRESS. @V5DAACD
R10073DK: CALL DMKSTKOP FROM WHICH WE GET RESTARTED @V5DAACD
R10073DK: GOTO DMKDSPCH 1ST GET OFF OF THIS PROCESSOR. @V5DAACD
BEGIN APPLY >>> ./ R 80100 $
END APPLY >>> ./ R 80100 $
BEGIN APPLY >>> ./ R 610100 610400 $ 610110 20
END APPLY >>> ./ R 610100 610400 $ 610110 20
BEGIN APPLY >>> ./ R 612300 $ 612310 10
END APPLY >>> ./ R 612300 $ 612310 10
BEGIN APPLY >>> ./ I 960000 $ 960100 10
END APPLY >>> ./ I 960000 $ 960100 10
Update Succeeded
Update Execution Time 23 milliseconds.
Date Friday Jan 25, 1980 10:02:00 AM
Loaded from MAINT(294)
R10128DK: ./ I 913000 $ 913200 200 00001000
R10128DK: BZ GOODQCN BRANCH, IF CONDITION CODE=0 @VA10128 00002000
R10128DK: SR R0,R0 MAKE IT LOOK LIKE NULL LINE @VA10128 00003000
R10128DK: GOODQCN DS 0H @VA10128 00004000
BEGIN APPLY >>> ./ I 913000 $ 913200 200 00001000
END APPLY >>> ./ I 913000 $ 913200 200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Monday Apr 14, 1980 03:05:00 AM
Loaded from MAINT(294)
R10453DK: ./ R 52000 $ 52050 DMK00010
R10453DK: * DMKMCIMS - TO ENABLE MACHINE CHECK RECORDING DMK00020
R10453DK: ./ R 242000 $ 242100 DMK00030
R10453DK: * 4. IF THE RETURN IS FOR 'CPU', CALL DMKMCIMS THEN EXIT. DMK00040
R10453DK: ./ R 297330 $ 297335 DMK00050
R10453DK: * 2. IF SET MODE MAIN, CALL DMKMCIMS. DMK00060
R10453DK: ./ R 297350 $ 297355 DMK00070
R10453DK: * CALL DMKMCIMS. DMK00080
R10453DK: ./ R 330000 $ 330100 DMK00090
R10453DK: EXTRN DMKMCIMS @VA10453 DMK00100
R10453DK: ./ R 775000 $ 775100 DMK00110
R10453DK: CALL DMKMCIMS @VA10453 DMK00120
BEGIN APPLY >>> ./ R 52000 $ 52050 DMK00010
END APPLY >>> ./ R 52000 $ 52050 DMK00010
BEGIN APPLY >>> ./ R 242000 $ 242100 DMK00030
END APPLY >>> ./ R 242000 $ 242100 DMK00030
BEGIN APPLY >>> ./ R 297330 $ 297335 DMK00050
END APPLY >>> ./ R 297330 $ 297335 DMK00050
BEGIN APPLY >>> ./ R 297350 $ 297355 DMK00070
END APPLY >>> ./ R 297350 $ 297355 DMK00070
BEGIN APPLY >>> ./ R 330000 $ 330100 DMK00090
END APPLY >>> ./ R 330000 $ 330100 DMK00090
BEGIN APPLY >>> ./ R 775000 $ 775100 DMK00110
END APPLY >>> ./ R 775000 $ 775100 DMK00110
Update Succeeded
Update Execution Time 31 milliseconds.
Date Monday Apr 14, 1980 04:11:00 AM
Loaded from MAINT(294)
R10804DK: ./ * FORCE REASSEMBLY FOR APAR VM10804
BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10804
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC018DK: ./ I 00080200
HRC018DK: * | | | 00080300
HRC018DK: * | | MAX NN | 00080400
HRC018DK: ./ I 00297360
HRC018DK: * SET MAX 00297361
HRC018DK: * 1. IF NO SECOND ARGUEMENT IS SPECIFIED, DEFAULT TO ZERO. 00297362
HRC018DK: * OTHERWISE CALL DMKCVTDB TO CONVERT DECIMAL NUMBER TO 00297363
HRC018DK: * BINARY. 00297364
HRC018DK: * 2. STORE THE MAXIMUM NUMBER OF USERS ALLOWED ON THE SYSTEM 00297365
HRC018DK: * 00297366
HRC018DK: ./ I 00391000
HRC018DK: B SETMAX SET MAX USERS HRC018DK 00391100
HRC018DK: ./ I 00944000
HRC018DK: ***** 00944010
HRC018DK: * 00944020
HRC018DK: * SET MAX NN COMMAND 00944030
HRC018DK: * 00944040
HRC018DK: ***** 00944050
HRC018DK: SPACE 1 HRC018DK 00944060
HRC018DK: SETMAX L R8,ASYSLC GET SYSLOCS ADDRESS HRC018DK 00944070
HRC018DK: USING SYSLOCS,R8 HRC018DK 00944080
HRC018DK: SLR R2,R2 ZERO R2 JUST IN CASE HRC018DK 00944090
HRC018DK: TM SAVEWRK1,NARGTWO TEST FOR 'NN' NOT FOUND HRC018DK 00944100
HRC018DK: BO SETMAX0 IF YES USE DEFAULT OF 0 HRC018DK 00944110
HRC018DK: CALL DMKCVTDB CONVERT TO BINARY HRC018DK 00944120
HRC018DK: BNZ CFO026 BAD OPTION HRC018DK 00944130
HRC018DK: LR R2,R1 COPY 'NN' HRC018DK 00944140
HRC018DK: SETMAX0 ST R2,DMKSYSMA SET IN SYSLOCS HRC018DK 00944150
HRC018DK: B SETCOMP ALL DONE - NO MESSAGE HRC018DK 00944160
HRC018DK: EJECT , HRC018DK 00944170
BEGIN APPLY >>> ./ I 00080200
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00080200
BEGIN APPLY >>> ./ I 00297360
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00297360
BEGIN APPLY >>> ./ I 00391000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00391000
BEGIN APPLY >>> ./ I 00944000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00944000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Wednesday May 17, 2017 02:43:00 PM
Loaded from MAINT(094)
HRC068DK: ./ I 00348100 $ 348120 20
HRC068DK: EXTRN DMKVATAB HRC068DK
HRC068DK: EXTRN DMKVATBC HRC068DK
HRC068DK: EXTRN DMKVATMD HRC068DK
HRC068DK: EXTRN DMKSLC HRC068DK
HRC068DK: ./ I 00391100 $ 391120 20
HRC068DK: B SETSTB SET STBYPASS VR/OFF HRC068DK
HRC068DK: ./ I 00944170 $ 944180 10
HRC068DK: ***** HRC068DK
HRC068DK: * HRC068DK
HRC068DK: * SET STBYPASS VR/OFF COMMAND HRC068DK
HRC068DK: * HRC068DK
HRC068DK: ***** HRC068DK
HRC068DK: SETSTB EQU * HRC068DK
HRC068DK: TM SAVEWRK1,NARGTWO Are there any arguments?HRC068DK
HRC068DK: BO CFO026 No, send error msg HRC068DK
HRC068DK: *
HRC068DK: C R11,AVMREAL Am I the V=R user? HRC068DK
HRC068DK: BNE CFO063 No, send message HRC068DK
HRC068DK: TM VMFSTAT,VMSTFRST User has STFIRST auth? HRC068DK
HRC068DK: BZ CFO063 No, OPTION STFIRST req'dHRC068DK
HRC068DK: TM VMPSTAT,VMV370R User is ECMODE capable? HRC068DK
HRC068DK: BZ CFO062 No, ECMODE must be ON HRC068DK
HRC068DK: CLC SAVEWRK5(3),=C'OFF' Set bypass off? HRC068DK
HRC068DK: BE STBOFF Yes HRC068DK
HRC068DK: CLC SAVEWRK5(3),=C'VR ' Set bypass vr? HRC068DK
HRC068DK: BNE CFO026 N, invalid argument HRC068DK
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR already set?HRC068DK
HRC068DK: BO SETCOMP Y, no action, no responsHRC068DK
HRC068DK: TM VMESTAT,VMSHADT Shadow tables present? HRC068DK
HRC068DK: BZ CFO063 No, STB not allowed HRC068DK
HRC068DK: CALL DMKVATBC Release old shadow tbls HRC068DK
HRC068DK: * VMSTBYPS must be set *AFTER* DMKVATBC is called! HRC068DK
HRC068DK: OI VMCXSTAT,VMSTBYPS Turn on STBYPASS VR HRC068DK
HRC068DK: CALL DMKVATAB Set up guest CR1 & PG 0 HRC068DK
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPS VR off after VAT?HRC068DK
HRC068DK: BZ CFO063 Y, bad CR0/1, set off. HRC068DK
HRC068DK: SR R15,R15 Clear for ICM HRC068DK
HRC068DK: ICM R15,7,VMMADDR -> MICBLOK HRC068DK
HRC068DK: BZ STBON None, ECPS:VM not activeHRC068DK
HRC068DK: USING MICBLOK,R15 HRC068DK
HRC068DK: MVI MICEVMA2,MICSTBAL Set on all STB ECPS asstHRC068DK
HRC068DK: DROP R15 HRC068DK
HRC068DK: * HRC068DK
HRC068DK: STBON EQU * HRC068DK
HRC068DK: MVC STBMSGA,=CL8'BYPASSED' Set msg HRC068DK
HRC068DK: B STBMSGS Send msg HRC068DK
HRC068DK: * HRC068DK
HRC068DK: STBOFF EQU * HRC068DK
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR already off?HRC068DK
HRC068DK: BZ SETCOMP Y, no action, no responsHRC068DK
HRC068DK: L R1,VMECEXT -> ECBLOK HRC068DK
HRC068DK: L R1,EXTCR1-ECBLOK(,R1) Get V=R user's STO HRC068DK
HRC068DK: TM 3(R1),X'01' Segment invalid? HRC068DK
HRC068DK: BO STBRES Yes HRC068DK
HRC068DK: L R1,0(,R1) -> PTE for page 0 HRC068DK
HRC068DK: TM 1(R1),X'08' Page invalid? HRC068DK
HRC068DK: BO STBRES Yes HRC068DK
HRC068DK: L R15,=A(DMKSLC-4096) Get real addr of page 0 HRC068DK
HRC068DK: SRL R15,8 Put addr in PTE format HRC068DK
HRC068DK: ICM R0,3,0(R1) Load the page 0 PTE HRC068DK
HRC068DK: N R0,=X'0000FFF0' Keep only address bits HRC068DK
HRC068DK: CR R0,R15 PTE point to V=R page 0?HRC068DK
HRC068DK: BNE STBRES Not V=R relocated page 0HRC068DK
HRC068DK: NC 0(2,R1),F15+2 Set back to user page 0 HRC068DK
HRC068DK: * HRC068DK
HRC068DK: STBRES EQU * HRC068DK
HRC068DK: NI VMCXSTAT,255-VMSTBYPS Reset STBYPASS HRC068DK
HRC068DK: CALL DMKVATMD Get new shadow tables HRC068DK
HRC068DK: CALL DMKVATAB And mark them invalid HRC068DK
HRC068DK: MVC STBMSGA,=CL8'RESUMED ' Set msg HRC068DK
HRC068DK: SR R15,R15 Clear for ICM HRC068DK
HRC068DK: ICM R15,7,VMMADDR -> MICBLOK HRC068DK
HRC068DK: BZ STBMSGS None, ECPS:VM not activeHRC068DK
HRC068DK: USING MICBLOK,R15 HRC068DK
HRC068DK: MVI MICEVMA2,0 Set off all STB assists HRC068DK
HRC068DK: DROP R15 HRC068DK
HRC068DK: * HRC068DK
HRC068DK: STBMSGS LA R0,STBMSGL Msg size HRC068DK
HRC068DK: LA R1,STBMSG Msg data HRC068DK
HRC068DK: CALL DMKQCNWT,PARM=NORET Send response HRC068DK
HRC068DK: B SETCOMP Done HRC068DK
HRC068DK: * HRC068DK
HRC068DK: STBMSG DC CL25'SHADOW TABLE MAINTENANCE ' HRC068DK
HRC068DK: STBMSGA DC CL8' ' HRC068DK
HRC068DK: STBMSGL EQU *-STBMSG HRC068DK
HRC068DK: ./ I 01053000 $ 1053010 10
HRC068DK: CFO062 EQU * HRC068DK
HRC068DK: LA R2,62 ECMODE not set on HRC068DK
HRC068DK: B NOVAR Go send message HRC068DK
HRC068DK: CFO063 EQU * HRC068DK
HRC068DK: LA R2,63 STBYPASS not set HRC068DK
HRC068DK: B NOVAR Go send message HRC068DK
HRC068DK: ./ I 01101000 $ 1101050 10
HRC068DK: COPY MICBLOK HRC068DK
BEGIN APPLY >>> ./ I 00348100 $ 348120 20
END APPLY >>> ./ I 00348100 $ 348120 20
BEGIN APPLY >>> ./ I 00391100 $ 391120 20
END APPLY >>> ./ I 00391100 $ 391120 20
BEGIN APPLY >>> ./ I 00944170 $ 944180 10
END APPLY >>> ./ I 00944170 $ 944180 10
BEGIN APPLY >>> ./ I 01053000 $ 1053010 10
END APPLY >>> ./ I 01053000 $ 1053010 10
BEGIN APPLY >>> ./ I 01101000 $ 1101050 10
END APPLY >>> ./ I 01101000 $ 1101050 10
Update Succeeded
Update Execution Time 23 milliseconds.