Date Friday Jan 25, 1980 10:11:00 AM
Loaded from MAINT(294)
R09731DK: ./ D 425000 $ 00001000
R09731DK: ./ I 426000 $ 426500 00002000
R09731DK: L R10,VMTREXT TRACE EXTENSION BLOK @VA09731 00003000
BEGIN APPLY >>> ./ D 425000 $ 00001000
END APPLY >>> ./ D 425000 $ 00001000
BEGIN APPLY >>> ./ I 426000 $ 426500 00002000
END APPLY >>> ./ I 426000 $ 426500 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Monday Apr 07, 1980 03:21:00 AM
Loaded from MAINT(294)
R10343DK: ./ I 528000 $ 528500 00001000
R10343DK: SKIPSWP1 DS 0H @VA10343 00002000
R10343DK: ./ R 670000 $ 670500 00003000
R10343DK: BZ TRANSEX1 NO,BRANCH PUT INTO CPREAD @VA10343 00004000
R10343DK: ./ I 674000 $ 674100 100 00005000
R10343DK: TRANSEX1 DS 0H @VA10343 00006000
R10343DK: MSG 'DMKPRG411W CP ENTERED; TRANSLATION EXCEPTION; WHILE IN X00007000
R10343DK: NON EC MODE' 00008000
R10343DK: B SKIPSWP1 @VA10343 00009000
BEGIN APPLY >>> ./ I 528000 $ 528500 00001000
END APPLY >>> ./ I 528000 $ 528500 00001000
BEGIN APPLY >>> ./ R 670000 $ 670500 00003000
END APPLY >>> ./ R 670000 $ 670500 00003000
BEGIN APPLY >>> ./ I 674000 $ 674100 100 00005000
END APPLY >>> ./ I 674000 $ 674100 100 00005000
Update Succeeded
Update Execution Time 8 milliseconds.
Date Friday Sep 26, 1980 09:26:00 AM
Loaded from MAINT(294)
R11772DK: ./ I 747000 $ 747100 100 00001000
R11772DK: AIF (NOT &AP).APPRG @VA11772 00002000
R11772DK: CLC DMKPRGMC,ZEROES IS THE MONITOR ACTIVE @VA11772 00003000
R11772DK: BNE CKMONB YES-GO DO YOUR THING @VA11772 00004000
R11772DK: LCTL C8,C8,CPCREG8 RELOAD THE MONITOR CONTROL REG @VA11772 00005000
R11772DK: LM R14,R15,TEMPR14 RESTORE REGS @VA11772 00006000
R11772DK: LPSW PROPSW RETURN THE MONITOR IS NOT ACTIVE @VA11772 00007000
R11772DK: CKMONB EQU * @VA11772 00008000
R11772DK: .APPRG ANOP @VA11772 00009000
BEGIN APPLY >>> ./ I 747000 $ 747100 100 00001000
END APPLY >>> ./ I 747000 $ 747100 100 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: ./ I 319000 $ 319100 100 PER001 00007000
HRC013DK: CHEKPER BAL R9,CHECKPER GO CHECK FOR PER EVENT. PER001 00008000
HRC013DK: CLI INTPR+1,00 ANY INTERRUPTS LEFT NOW? PER001 00009000
HRC013DK: BNZ PRNSTAT GO CHECK FOR OTHER INTERRUPTS. PER001 00010000
HRC013DK: SLR R6,R6 CLEAR THE INTERUPT CODE. PER001 00011000
HRC013DK: B PRGSIMI GO FINISH UP NOW, FOLKS. PER001 00012000
HRC013DK: ./ R 332000 $ 332100 PER001 00013000
HRC013DK: BO OKEVENT YES. INTERUPT WAS VALID PER001 00014000
HRC013DK: ./ R 335000 $ 335100 PER001 00015000
HRC013DK: OKEVENT BAL R9,PRGEVEN RECORD PER DATA + SET PENDING PER001 00016000
HRC013DK: ./ R 362000 386000 $ 362000 1000 PER001 00017000
HRC013DK: CHECKPER TM INTPR+1,X'80' PER EVENT RECORDED? PER001 00018000
HRC013DK: BZR R9 NO. DON'T WORRY ABOUT IT. PER001 00019000
HRC013DK: PRGEVEN OI VMPEND,VMPERPND SET FLAG FOR PER PENDING. PER001 00020000
HRC013DK: TM VMTRCTL,VMTRPER WAS CP USING THE PERSON'S PER?PER001 00021000
HRC013DK: BZ OWNPER NO. BETTER REFLECT IT TO HIM, THEN.PER001 00022000
HRC013DK: L R10,VMPERCTL LOAD ADDRESS OF THE CONTROL BLOCK. PER001 00023000
HRC013DK: LA R10,PERADDR-PERBLOK(,R10) LOAD ADDR TO RECORD EVENPER001 00024000
HRC013DK: B PERJOIN AND JOIN WITH REFLECTION SECTION. PER001 00025000
HRC013DK: OWNPER L R10,VMECEXT LOAD ADDR OF EXT CNTRL BLOCK. PER001 00026000
HRC013DK: LA R10,EXTPERAD-ECBLOK(,R10) LOAD ADDR TO RECORD PER001 00027000
HRC013DK: PERJOIN MVC 4(2,R10),PERCODE SET THE INTERRUPTION CODE NOW.PER001 00028000
HRC013DK: MVC 0(4,R10),PERADD SET THE INTERRUPTION ADDRESS, PER001 00029000
HRC013DK: NI INTPR+1,X'FF'-X'80' TURN OFF THE P.E.R. BIT. PER001 00030000
HRC013DK: BR R9 AND RETURN TO OUR CALLER. PER001 00031000
HRC013DK: ./ D 389000 442000 PER001 00032000
HRC013DK: ./ I 471000 $ 471100 100 PER001 00033000
HRC013DK: LTR R6,R6 IS IT A REGULAR INTERRUPT? PER001 00034000
HRC013DK: BNZ REGULAR YES. DON'T WORRY ABOUT A THING. PER001 00035000
HRC013DK: TM VMTRCTL,VMTRPER WAS CP USING THE P.E.R? PER001 00036000
HRC013DK: BO PRGEXT YES. GO TO DMKDSP TO HANDLE IT. PER001 00037000
HRC013DK: REGULAR DS 0H HERE IF WE MUST REFLECT THE THING. PER001 00038000
HRC013DK: ./ I 503000 $ 503100 100 PER001 00039000
HRC013DK: TM VMTRCTL,VMTRPER WERE WE DOING CP PER TRACING? PER001 00040000
HRC013DK: BO PRG04 YES. DON'T TRY TO REFLECT IT, THEN.PER001 00041000
HRC013DK: ./ R 774000 $ 774000 PER001 00042000
HRC013DK: COPY PERBLOKS "PER" EXTENSION BLOCK PER001 00043000
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 >>> ./ I 319000 $ 319100 100 PER001 00007000
END APPLY >>> ./ I 319000 $ 319100 100 PER001 00007000
BEGIN APPLY >>> ./ R 332000 $ 332100 PER001 00013000
END APPLY >>> ./ R 332000 $ 332100 PER001 00013000
BEGIN APPLY >>> ./ R 335000 $ 335100 PER001 00015000
END APPLY >>> ./ R 335000 $ 335100 PER001 00015000
BEGIN APPLY >>> ./ R 362000 386000 $ 362000 1000 PER001 00017000
END APPLY >>> ./ R 362000 386000 $ 362000 1000 PER001 00017000
BEGIN APPLY >>> ./ D 389000 442000 PER001 00032000
END APPLY >>> ./ D 389000 442000 PER001 00032000
BEGIN APPLY >>> ./ I 471000 $ 471100 100 PER001 00033000
END APPLY >>> ./ I 471000 $ 471100 100 PER001 00033000
BEGIN APPLY >>> ./ I 503000 $ 503100 100 PER001 00039000
END APPLY >>> ./ I 503000 $ 503100 100 PER001 00039000
BEGIN APPLY >>> ./ R 774000 $ 774000 PER001 00042000
END APPLY >>> ./ R 774000 $ 774000 PER001 00042000
Update Succeeded
Update Execution Time 23 milliseconds.