CMS File Input : DMKVAT ASSEMBLE
Date : 12/13/1978 4:53:00 PM
VM Context : MAINT(394)
File Name : DMKVAT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Date Thursday Jan 25, 1979 01:24:00 AM
Loaded from MAINT(294)
R09054DK: ./ R 886000 $ 886020 20 00001000
R09054DK: L R3,TREXADD SAVE EXCEPTION ADDRESS @VA09054 00002000
R09054DK: ./ I 886800 $ 886820 20 00003000
R09054DK: LR R1,R3 GET BACK ADDRESS OF PAGE @VA09054 00004000
R09054DK: * EXCEPTION 00005000
BEGIN APPLY >>> ./ R 886000 $ 886020 20 00001000
END APPLY >>> ./ R 886000 $ 886020 20 00001000
BEGIN APPLY >>> ./ I 886800 $ 886820 20 00003000
END APPLY >>> ./ I 886800 $ 886820 20 00003000
Update Succeeded
Update Execution Time 8 milliseconds.
Date Monday Dec 03, 1979 05:23:00 AM
Loaded from MAINT(294)
R09815DK: ./ I 912000 $ 912100 100 00001000
R09815DK: L R1,VMPSW+4 GET FAILING INSTRUCTION @VA09815 00002000
R09815DK: LH R2,VMPRGIL ILC IN BYTES @VA09815 00003000
R09815DK: ALR R1,R2 @VA09815 00004000
R09815DK: ST R1,VMPSW+4 UPDATE .... @VA09815 00005000
BEGIN APPLY >>> ./ I 912000 $ 912100 100 00001000
END APPLY >>> ./ I 912000 $ 912100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Thursday Jan 31, 1980 09:18:00 AM
Loaded from MAINT(294)
R09149DK: ./ I 00509000 $ 00509100 50 00002000
R09149DK: LH R4,EXTVSEGS GET POSSIBLE VIRTUAL SEGTABLE LEN@VA09149 00003000
R09149DK: LTR R4,R4 IS THE SEGTABLE VALID? @VA09149 00004000
R09149DK: BNZ NOTZERO YES,CONTINUE @VA09149 00005000
R09149DK: IC R4,EXTCR1 GET VIRTUAL SEGTABLE LEN CODE @VA09149 00006000
R09149DK: CH R4,MAXSEGS(R9) IS THIS VALUE REASONABLE @VA09149 00007000
R09149DK: BNH COMPSEG YES,USE IT @VA09149 00008000
R09149DK: LH R4,MAXSEGS(R9) NO,USE POSSIBLE MAX @VA09149 00009000
R09149DK: COMPSEG DS 0H @VA09149 00010000
R09149DK: LA R4,1(0,R4) COMPUTE SEGTABLE LENGTH @VA09149 00011000
R09149DK: SLL R4,6(0) IN BYTES............. @VA09149 00012000
R09149DK: CR R1,R4 INDEX WITHIN TABLE LENGTH? @VA09149 00013000
R09149DK: B SHTABLES @VA09149 00014000
R09149DK: NOTZERO DS 0H @VA09149 00015000
R09149DK: ./ I 00510000 $ 00510500 500 00016000
R09149DK: SHTABLES DS 0H @VA09149 00017000
BEGIN APPLY >>> ./ I 00509000 $ 00509100 50 00002000
END APPLY >>> ./ I 00509000 $ 00509100 50 00002000
BEGIN APPLY >>> ./ I 00510000 $ 00510500 500 00016000
END APPLY >>> ./ I 00510000 $ 00510500 500 00016000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Thursday Jan 31, 1980 11:30:00 AM
Loaded from MAINT(294)
R10408DK: ./ R 985000 $ 985500 00001000
R10408DK: SEGMASK DC X'01FF0000' SEGMENT NUMBER MASK @VA10408 00002000
BEGIN APPLY >>> ./ R 985000 $ 985500 00001000
END APPLY >>> ./ R 985000 $ 985500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Thursday Mar 05, 1981 02:29:00 PM
Loaded from MAINT(294)
R12195DK: ./ R 232300 $ 232300 00001000
R12195DK: CLM R6,B'0110',ZEROES IS SEQ INVALID OR MIGRATED @VA12195 00002000
BEGIN APPLY >>> ./ R 232300 $ 232300 00001000
END APPLY >>> ./ R 232300 $ 232300 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
Date Wednesday Jun 24, 1981 06:08:00 AM
Loaded from MAINT(294)
R12533DK: ./ R 232522 $ 232523 00001000
R12533DK: LR R2,R1 GET VITURAL ADDRESS @VA12533 00002000
BEGIN APPLY >>> ./ R 232522 $ 232523 00001000
END APPLY >>> ./ R 232522 $ 232523 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ * PER001 00006000
HRC013DK: ./ R 26000 $ 26000 PER001 00007000
HRC013DK: EXTRN DMKPRGSM PER001 00008000
HRC013DK: ./ D 931000 936000 $ PER001 00009000
BEGIN APPLY >>> ./ * ************* PER001 00001000
Comment >>> ./ * ************* PER001 00001000
END APPLY >>> ./ * ************* PER001 00001000
BEGIN APPLY >>> ./ * * PER001 00002000
Comment >>> ./ * * PER001 00002000
END APPLY >>> ./ * * PER001 00002000
BEGIN APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
BEGIN APPLY >>> ./ * * PER001 00004000
Comment >>> ./ * * PER001 00004000
END APPLY >>> ./ * * PER001 00004000
BEGIN APPLY >>> ./ * ************* PER001 00005000
Comment >>> ./ * ************* PER001 00005000
END APPLY >>> ./ * ************* PER001 00005000
BEGIN APPLY >>> ./ * PER001 00006000
Comment >>> ./ * PER001 00006000
END APPLY >>> ./ * PER001 00006000
BEGIN APPLY >>> ./ R 26000 $ 26000 PER001 00007000
END APPLY >>> ./ R 26000 $ 26000 PER001 00007000
BEGIN APPLY >>> ./ D 931000 936000 $ PER001 00009000
END APPLY >>> ./ D 931000 936000 $ PER001 00009000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Thursday Apr 20, 2017 03:33:00 PM
Loaded from MAINT(094)
HRC068DK: ./ I 00025000 $ 00025100 100
HRC068DK: EXTRN DMKERMSG HRC068DK
HRC068DK: EXTRN DMKSLC HRC068DK
HRC068DK: ./ I 00145000 $ 00145100 100
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR enabled? HRC068DK
HRC068DK: BO VAVR Y, no shadow table maintHRC068DK
HRC068DK: ./ I 00177000 $ 00177100 010
HRC068DK: VAVR EQU * HRC068DK
HRC068DK: TM EXTCR0+1,X'40' Is page size 2k? HRC068DK
HRC068DK: BO STBOFF Yes, not elig for STBYPSHRC068DK
HRC068DK: ICM R1,15,EXTCR1 Get user's STO in CR1 HRC068DK
HRC068DK: BZ VAVRCR1 Zero is ok HRC068DK
HRC068DK: CLM R1,7,F4096+1 New STO in guest page 0?HRC068DK
HRC068DK: BNL VAVRCR1 N, CR1 check is ok HRC068DK
HRC068DK: *
HRC068DK: STBOFF EQU * HRC068DK
HRC068DK: NI VMCXSTAT,255-VMSTBYPS Else turn off STBYPASS HRC068DK
HRC068DK: CLC VMMADDR,ZEROES Is ECPS:VM active? HRC068DK
HRC068DK: BE VACLEAN Zeros...so no HRC068DK
HRC068DK: ICM R1,7,VMMADDR -> MICBLOK HRC068DK
HRC068DK: USING MICBLOK,R1 HRC068DK
HRC068DK: MVI MICEVMA2,0 Set off all STB assists HRC068DK
HRC068DK: DROP R1 HRC068DK
HRC068DK: B VACLEAN And exit w/o shadow tblsHRC068DK
HRC068DK: * (they will be built latrHRC068DK
HRC068DK: VAVRCR1 EQU * HRC068DK
HRC068DK: ST R1,EXTSHCR1 Use user's actual STO HRC068DK
HRC068DK: SR R5,R5 Clear for IC HRC068DK
HRC068DK: IC R5,EXTCR1 Get segment table len HRC068DK
HRC068DK: LA R5,1(0,R5) Make relative to 1 HRC068DK
HRC068DK: SLL R5,6(0) Compute length in bytes HRC068DK
HRC068DK: STH R5,EXTVSEGS Save user's seg tbl len HRC068DK
HRC068DK: TM 3(R1),X'01' Segment invalid? HRC068DK
HRC068DK: BO VACLEAN Yes HRC068DK
HRC068DK: L R1,0(,R1) -> PTE for page 0 HRC068DK
HRC068DK: TM 1(R1),X'08' Page invalid? HRC068DK
HRC068DK: BO VACLEAN Yes HRC068DK
HRC068DK: ICM R0,3,0(R1) Load the page 0 PTE HRC068DK
HRC068DK: N R0,=X'0000FFF0' Keep only page addr bitsHRC068DK
HRC068DK: BNZ VACLEAN Br if PTE .NE. frame 0 HRC068DK
HRC068DK: L R15,=A(DMKSLC-4096) Real addr of V=R page 0 HRC068DK
HRC068DK: SRL R15,8 Adjust for PTE use HRC068DK
HRC068DK: ICM R0,3,0(R1) Load the page 0 PTE HRC068DK
HRC068DK: N R0,=X'0000000F' Keep guest bit settings HRC068DK
HRC068DK: OR R0,R15 Adjust PTE to V=R pag 0 HRC068DK
HRC068DK: STCM R0,3,0(R1) Store updated guest PTE HRC068DK
HRC068DK: OI APSTAT2,CPPTLBR Set PTLB required HRC068DK
HRC068DK: L R15,PREFIXB -> Other processor pfx HRC068DK
HRC068DK: OI APSTAT2-PSA(R15),CPPTLBR (If there is another) HRC068DK
HRC068DK: B VACLEAN HRC068DK
HRC068DK: ./ I 00340000 $ 00340100 10
HRC068DK: *-- If we are in DMKVATBC with VMSTBVR set, then the PSW has HRC068DK
HRC068DK: *-- transitioned into BC-mode. STBYPASS must be turned off. HRC068DK
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR enabled? HRC068DK
HRC068DK: BZ NOSTB No HRC068DK
HRC068DK: NI VMCXSTAT,255-VMSTBYPS Turn off STBYPASS HRC068DK
HRC068DK: CLC VMMADDR,ZEROES Is ECPS:VM active? HRC068DK
HRC068DK: BE NOSTB Zeros...so no HRC068DK
HRC068DK: ST R1,BALR1 Need a register HRC068DK
HRC068DK: ICM R1,7,VMMADDR -> MICBLOK HRC068DK
HRC068DK: USING MICBLOK,R1 HRC068DK
HRC068DK: MVI MICEVMA2,0 Set off all STB assists HRC068DK
HRC068DK: DROP R1 HRC068DK
HRC068DK: L R1,BALR1 Restore register HRC068DK
HRC068DK: * HRC068DK
HRC068DK: NOSTB EQU * HRC068DK
HRC068DK: ./ I 00782000 $ 00782100 100
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR enabled? HRC068DK
HRC068DK: BO VATEXIT VATSX Reflect seg trans excp HRC068DK
HRC068DK: ./ I 00848000 $ 00848100 100
HRC068DK: TM VMCXSTAT,VMSTBYPS STBYPASS VR enabled? HRC068DK
HRC068DK: BO VATEXIT VATPX Just reflect page faultHRC068DK
HRC068DK: ./ I 01048000 $ 01048050 050
HRC068DK: COPY MICBLOK HRC068DK
BEGIN APPLY >>> ./ I 00025000 $ 00025100 100
END APPLY >>> ./ I 00025000 $ 00025100 100
BEGIN APPLY >>> ./ I 00145000 $ 00145100 100
END APPLY >>> ./ I 00145000 $ 00145100 100
BEGIN APPLY >>> ./ I 00177000 $ 00177100 010
END APPLY >>> ./ I 00177000 $ 00177100 010
BEGIN APPLY >>> ./ I 00340000 $ 00340100 10
END APPLY >>> ./ I 00340000 $ 00340100 10
BEGIN APPLY >>> ./ I 00782000 $ 00782100 100
END APPLY >>> ./ I 00782000 $ 00782100 100
BEGIN APPLY >>> ./ I 00848000 $ 00848100 100
END APPLY >>> ./ I 00848000 $ 00848100 100
BEGIN APPLY >>> ./ I 01048000 $ 01048050 050
END APPLY >>> ./ I 01048000 $ 01048050 050
Update Succeeded
Update Execution Time 31 milliseconds.