DMKCPU History
References
-
-
Fixes Applied : 15
-
Last Fix ID : [R13499DK]
Update History
CMS File Input : DMKCPU ASSEMBLE
Date : 2/20/1979 12:55:00 PM
VM Context : MAINT(394)
File Name : DMKCPU.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R09324DK 601 ABENDPRG001 OR LOOP (UP TO AP MODE) WHILE RUNNING MONITOR
R09386DK 601 TRACING IS BEING DONE AT LOCATION ZERO AFTER VARY ON PROC
R09441DK 601 ABENDPRG005 VARY ON PROC COMMAND (NAMED SYSTEM > 1 SHARED SEG.)
R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
R09871DK 608 VARY PROCESSOR FAILS (ADDRESSING EXCEP) WITH MULT SAVED SEGMENTS
R09843DK 611 FIX FOR MON BUFFER PROB
R10332DK 611 VARY PROCESSOR ONLINE WITH SYS GEN UP, DOES NOT GIVE MSG.
R10010DK 611 LOOP IN DMKEXT FOR EMS SIGNAL AFTER VARY PROCESSOR CMD.
R10804DK 611 UV00439 NEW DISPLACEMENTS FOR MCHAREA
R11422DK 615 UV01628 ABENDFRE005 NON-EXISTANT DEFERRED EX.BLOCK
R11576DK 618 UV02319 VARY ON CPU AFTER AP WAS OFF CAUSES ABENDCVT001
R12596DK 620 UV03973 DMKFRE CPEXBLOK DURING EXTEND + SYSTEM LOCK
R13464DK 621 UV04474 OPERATOR LOCKOUT ON VARY ONLINE PROCESSOR.
R12934DK 623 UV04897 ABENDPRG005 IN DMKPTR AFTER VARY PROCESSOR ONLINE
R13499DK 623 UV04522 USE REG10 TO STORE CPEX ADDRESS INTO FREAP
R09324DK
Date Friday Feb 02, 1979 04:47:00 PM
Loaded from MAINT(294)
R09324DK: ./ D 23000
R09324DK: ./ I 40000 $ 40100 100
R09324DK: EXTRN DMKDSPRQ @VA09324
R09324DK: EXTRN DMKSTKCP @VA09324
R09324DK: ./ I 252000 $ 252010
R09324DK: MVC CPUID021(2),SAVEWRK1+2 PROCESSOR ADDR TO MSG. @VA09324
R09324DK: ./ I 452000 $ 452100
R09324DK: MVC CPUID193(2),SAVEWRK1+2 PROCESSOR ADDRESS @VA09324
R09324DK: ./ D 502000 503000
R09324DK: ./ R 559000 $ 559000
R09324DK: CALL DMKSTKCP GO STACK THE CPEXBLOK @VA09324
R09324DK: ./ R 591000 592000 $ 591000 50
R09324DK: * 1. SET ALL CPEXBLOKS ON DMKDSPRQ FOR THE REMAINING
R09324DK: * PROCESSOR, THEN STACK A CPEXBLOK TO COME
R09324DK: * BACK TO DMKCPUOI. GO TO THE DISPATCHER. UPON RETURN,
R09324DK: * LOCK EACH VMBLOK AND CALL DMKVMASW TO SWITCH THE
R09324DK: * SHARED SEGMENT POINTERS.
R09324DK: ./ I 615000 $ 615020 20
R09324DK: SR R4,R4 ZERO REGISTER 4 @VA09324
R09324DK: SCNDSPRQ DS 0H @VA09324
R09324DK: L R15,CPUDSPRQ GET ADDRESS OF QUEUE ANCHOR @VA09324
R09324DK: C R15,CPEXFPNT-CPEXBLOK(,R15) IS QUEUE EMPTY? @VA09324
R09324DK: BE OFFCONT YES, BRANCH @VA09324
R09324DK: LR R1,R15 SAVE IN REGISTER 1 @VA09324
R09324DK: SPACE 1
R09324DK: USING CPEXBLOK,R1 @VA09324
R09324DK: SPACE 1
R09324DK: NXTCPXBK DS 0H @VA09324
R09324DK: L R1,CPEXFPNT GET NEXT CPEXBLOK POINTER @VA09324
R09324DK: CR R1,R15 AT END OF QUEUE? @VA09324
R09324DK: BE STACKCPX YES, GO STACK A CPEXBLOK TO RETURN @VA09324
R09324DK: MVC CPEXPROC,LPUADDR MAKE IT FOR THIS PROCESSOR @VA09324
R09324DK: B NXTCPXBK GO DO NEXT CPEXBLOK IN QUEUE @VA09324
R09324DK: STACKCPX DS 0H @VA09324
R09324DK: LTR R4,R4 HAS DMKDSPRQ BEEN DRAINED ONCE? @VA09324
R09324DK: BNZ OFFCONT YES, BRANCH @VA09324
R09324DK: L R9,ASYSVM ADDRESS OF SYSTEM VMBLOK @VA09324
R09324DK: L R14,PREFIXB ADDRESS OF OTHER PROC'S PSA @VA09324
R09324DK: L R15,LASTUSER-PSA(R14) LASTUSER VMBLOK ADDRESS @VA09324
R09324DK: ST R4,VMLOCK-VMBLOK(R15) UNLOCK VMBLOK @VA09324
R09324DK: ST R9,LASTUSER-PSA(R14) LASTUSER EQUALS ASYSVM @VA09324
R09324DK: LA R0,CPEXSIZE GET SIZE OF A CPEXBLOK @VA09324
R09324DK: CALL DMKFREE GET STORAGE @VA09324
R09324DK: STM R0,R15,CPEXREGS SAVE REGISTERS IN THE CPEXBLOK @VA09324
R09324DK: LA R15,DMKCPUOI GET RETURN ADDRESS @VA09324
R09324DK: ST R15,CPEXADD SAVE IN CPEXBLOK @VA09324
R09324DK: SPACE 1
R09324DK: DROP R1
R09324DK: SPACE 1
R09324DK: CALL DMKSTKCP GO STACK THE CPEXBLOK @VA09324
R09324DK: GOTO DMKDSPCH GO TO THE DISPATCHER @VA09324
R09324DK: DMKCPUOI DS 0H @VA09324
R09324DK: L R4,F4 INDICATE DMKDSPRQ WAS DRAINED @VA09324
R09324DK: B SCNDSPRQ GO SET ALL REQUESTS TO THIS PROCESSOR @VA09324
R09324DK: OFFCONT DS 0H @VA09324
R09324DK: ./ D 640000 641000
R09324DK: ./ D 646000 659000
R09324DK: ./ D 771000 773000
R09324DK: ./ I 1263000 $ 1263100
R09324DK: CPUDSPRQ DC A(DMKDSPRQ) DISPATCHER QUEUE ANCHORS @VA09324
R09324DK: ./ D 1273000 1274000
R09324DK: ./ R 1291000 $ 1291000 100
R09324DK: DC C'DMKCPU021E RADDR MISSING OR INVALID ' @VA09324
R09324DK: CPUID021 DC C' ' @VA09324
BEGIN APPLY >>> ./ D 23000
END APPLY >>> ./ D 23000
BEGIN APPLY >>> ./ I 40000 $ 40100 100
END APPLY >>> ./ I 40000 $ 40100 100
BEGIN APPLY >>> ./ I 252000 $ 252010
END APPLY >>> ./ I 252000 $ 252010
BEGIN APPLY >>> ./ I 452000 $ 452100
END APPLY >>> ./ I 452000 $ 452100
BEGIN APPLY >>> ./ D 502000 503000
END APPLY >>> ./ D 502000 503000
BEGIN APPLY >>> ./ R 559000 $ 559000
END APPLY >>> ./ R 559000 $ 559000
BEGIN APPLY >>> ./ R 591000 592000 $ 591000 50
END APPLY >>> ./ R 591000 592000 $ 591000 50
BEGIN APPLY >>> ./ I 615000 $ 615020 20
END APPLY >>> ./ I 615000 $ 615020 20
BEGIN APPLY >>> ./ D 640000 641000
END APPLY >>> ./ D 640000 641000
BEGIN APPLY >>> ./ D 646000 659000
END APPLY >>> ./ D 646000 659000
BEGIN APPLY >>> ./ D 771000 773000
END APPLY >>> ./ D 771000 773000
BEGIN APPLY >>> ./ I 1263000 $ 1263100
END APPLY >>> ./ I 1263000 $ 1263100
BEGIN APPLY >>> ./ D 1273000 1274000
END APPLY >>> ./ D 1273000 1274000
BEGIN APPLY >>> ./ R 1291000 $ 1291000 100
END APPLY >>> ./ R 1291000 $ 1291000 100
Update Succeeded
Update Execution Time 39 milliseconds.
R09386DK
Date Wednesday Feb 14, 1979 04:37:00 PM
Loaded from MAINT(294)
R09386DK: ./ R 391000 392000 $ 391100
R09386DK: LA R8,SAVEWRK8 ADDRESS TO STORE PSA ADDRESSES @VA09386
R09386DK: ./ D 435000 436000
R09386DK: ./ R 437000 $ 437100
R09386DK: LA R1,SAVEWRK8 POINTER TO PSA ADDRESSES @VA09386
BEGIN APPLY >>> ./ R 391000 392000 $ 391100
END APPLY >>> ./ R 391000 392000 $ 391100
BEGIN APPLY >>> ./ D 435000 436000
END APPLY >>> ./ D 435000 436000
BEGIN APPLY >>> ./ R 437000 $ 437100
END APPLY >>> ./ R 437000 $ 437100
Update Succeeded
Update Execution Time 16 milliseconds.
R09441DK
Date Wednesday Feb 28, 1979 09:08:00 AM
Loaded from MAINT(294)
R09441DK: ./ R 371000 372000 $ 371100 100
R09441DK: LA R8,4(,R8) ADDRESS OF NEXT SHRPAGE ENTRY @VA09441
BEGIN APPLY >>> ./ R 371000 372000 $ 371100 100
END APPLY >>> ./ R 371000 372000 $ 371100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R10074DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ I 00020000 $ 00020500 00500 DMK00010
R10074DK: EXTRN DMKSCHCU @VMV0008 DMK00020
R10074DK: ./ R 00022000 $ 00022000 01000 DMK00030
R10074DK: EXTRN DMKPAGWS @VMV0007 DMK00040
R10074DK: ./ I 00149000 $ 00149500 00500 DMK00050
R10074DK: * DMKCPU623I CHANNEL SET CONNECTED TO PROCESSOR NN DMK00060
R10074DK: ./ I 00150000 $ 00150200 00200 DMK00070
R10074DK: * DMK00080
R10074DK: * WAIT STATES - DMK00090
R10074DK: * CODE X'016' - THE CHANNEL SET SWITCHING FACILITY HAS FAILED DMK00100
R10074DK: * DMK00110
R10074DK: ./ I 00204000 $ 00204100 00100 DMK00120
R10074DK: TM APSTAT4,POFFLINE IS VARY CURRENTLY IN PROCESS? @VMV0008 DMK00130
R10074DK: BO VARYINPR YES, GO ISSUE ERROR MESSAGE @VMV0008 DMK00140
R10074DK: OI APSTAT4,POFFLINE INDICATE VARY IS IN PROCESS @VMV0008 DMK00150
R10074DK: L R15,PREFIXB GET ADDRESS OF OTHER PSA @VMV0008 DMK00160
R10074DK: OI APSTAT4-PSA(R15),POFFLINE SET VARY IN PROCESS @VMV0008 DMK00170
R10074DK: ./ R 00231000 $ 00230500 00500 DMK00180
R10074DK: TM APSTAT1,CSSFEAT CSS AVAILABLE? @V60B7AB DMK00190
R10074DK: BO DMKCPUOF YES, CONTINUE OFFLINE PROCESS @V60B7AB DMK00200
R10074DK: B ERCPU192 NO, ISSUE ERROR MESSAGE @V50BCAC DMK00210
R10074DK: ./ R 00234000 00239000 $ 00234000 01000 DMK00220
R10074DK: TM APSTAT1,PROCIO+CSSFEAT TEST IF THIS IS THE I/O @V60B7AB DMK00230
R10074DK: * PROCESSOR AND IF CSS IS AVAILABLE. IF BOTH ARE DMK00240
R10074DK: * ZERO, IT MEANS THAT THE MAIN PROCESSOR IS TO BE VARIED DMK00250
R10074DK: * OFFLINE, BUT CHANNEL SET SWITCHING IS NOT AVAILABLE. DMK00260
R10074DK: BZ ERCPU192 ISSUE ERROR MESSAGE @V60B7AB DMK00270
R10074DK: B DMKCPUOF CONTINUE THE OFFLINE PROCESS @V60B7AB DMK00280
R10074DK: ./ I 00268000 $ 00268100 00100 DMK00290
R10074DK: VARYINPR DS 0H @VMV0008 DMK00300
R10074DK: LA R15,192 LOAD MESSAGE NUMBER @VMV0008 DMK00310
R10074DK: ST R15,SAVER1 STORE IN CALLER'S REGISTER 1 @VMV0008 DMK00320
R10074DK: LA R0,CPU192LN GET MESSAGE LENGTH @VMV0008 DMK00330
R10074DK: LA R1,CPU192MG GET ADDRESS OF MESSAGE @VMV0008 DMK00340
R10074DK: CALL DMKQCNWT,PARM=NORET HAVE MESSAGE PRINTED @VMV0008 DMK00350
R10074DK: EXIT RETURN TO CALLER @VMV0008 DMK00360
R10074DK: ./ R 00323000 00324000 $ 00323000 01000 DMK00370
R10074DK: * OF THE OFFLINE PROCESSOR'S SET TO THE VALUE OF THE PAGTOT * DMK00380
R10074DK: * FIELD OF THE ONLINE PROCESSOR'S SET. * DMK00390
R10074DK: ./ D 00329000 00330000 DMK00400
R10074DK: ./ R 00367000 00368000 $ 00366300 00300 DMK00410
R10074DK: TM APSTAT1,PROCIPL RUNNING ON THE MAIN (IPL) PROC? @V60B7AA DMK00420
R10074DK: BO UPDT2ND YES-UPDATE SECOND SET OF TABLES @V60B7AA DMK00430
R10074DK: LH R2,PAGBMP+PAGTOT-PAGTABLE(R7) GET TOTAL SEGMENT @V60B7AA DMK00440
R10074DK: * USE COUNT FROM ONLINE PROC'S PGTABLE DMK00450
R10074DK: STH R2,PAGTOT-PAGTABLE(R7) UPDATE THE COUNT IN THE @V60B7AA DMK00460
R10074DK: * IPL PROC'S PAGETABLE DMK00470
R10074DK: B NXTSHRPG GET NEXT SHRPAGE ENTRY @V60B7AA DMK00480
R10074DK: UPDT2ND LH R2,PAGTOT-PAGTABLE(R7) GET TOTAL SEGT USE COUNT @V60B7AA DMK00490
R10074DK: ./ I 00370000 $ 00370500 00500 DMK00500
R10074DK: NXTSHRPG DS 0H @V60B7AA DMK00510
R10074DK: ./ I 00480000 $ 00480250 00250 DMK00520
R10074DK: NI APSTAT4,FF-POFFLINE SET OFF VARY PROCESS FLAG @VMV0008 DMK00530
R10074DK: L R15,PREFIXB GET ADDRESS OF OTHER PSA @VMV0008 DMK00540
R10074DK: NI APSTAT4-PSA(R15),FF-POFFLINE SET OFF VARY FLAG @VMV0008 DMK00550
R10074DK: ./ R 00484000 00493000 $ 00484000 01000 DMK00560
R10074DK: LH R15,SAVER1+2 GET PROCESSOR ADDRESS IN COMMAND @V60B7AB DMK00570
R10074DK: CH R15,IPUADDR SAME AS THIS PROCESSOR? @V60B7AB DMK00580
R10074DK: BNE DMKCPUOG NO, BRANCH @V60B7AB DMK00590
R10074DK: ./ R 00614000 00615000 $ 00613050 00050 DMK00600
R10074DK: DMKCPUUP RELOC @V5BC0AB DMK00610
R10074DK: DMKCPUOH DS 0H @V5BC0AB DMK00620
R10074DK: TM APSTAT1,PROCIO RUNNING ON MAIN PROCESSOR? @V60B7AB DMK00630
R10074DK: BO CPUPROCG YES, BRANCH @V60B7AB DMK00640
R10074DK: LH R1,CSADDR GET CHANNEL SET ADDRESS @V60B7AB DMK00650
R10074DK: SPACE DMK00660
R10074DK: * DISCS 0(R1) DISCONNECT FROM MAIN PROCESSOR @V60B7AB DMK00670
R10074DK: DC X'B2011000' @V60B7AB DMK00680
R10074DK: SPACE DMK00690
R10074DK: BZ CONNECTC BRANCH IF DISCONNECT COMPLETED @V60B7AB DMK00700
R10074DK: TM APSTAT4,POFFLINE PROCESSING AN OFFLINE COMMAND? @V60B7AB DMK00710
R10074DK: BNO WAIT016 NO, BRANCH @V60B7AB DMK00720
R10074DK: SPACE DMK00730
R10074DK: SIGNAL START START THE MAIN PROCESSOR @V60B7AB DMK00740
R10074DK: SPACE DMK00750
R10074DK: SIGNAL RESUME SIGNAL THE MAIN PROCESSOR TO RESUME @V60B7AB DMK00760
R10074DK: SPACE DMK00770
R10074DK: B ERCPU192 ISSUE DMKCPU192E @V60B7AB DMK00780
R10074DK: CONNECTC DS 0H @V60B7AB DMK00790
R10074DK: OI APSTAT1,PROCIO INDICATE THIS IS THE I/O PROC. @V60B7AB DMK00800
R10074DK: L R15,PREFIXB ADDRESS OTHER PROCESSOR'S PSA @V60B7AB DMK00810
R10074DK: NI APSTAT1-PSA(R15),X'FF'-PROCIO SET PROCIO TO 0 @V60B7AB DMK00820
R10074DK: SPACE DMK00830
R10074DK: * CONCS 0(R1) CONNECT THE CHANNEL SET @V60B7AB DMK00840
R10074DK: DC X'B2001000' @V60B7AB DMK00850
R10074DK: SPACE DMK00860
R10074DK: BZ CPUPROCF BRANCH, IF CONNECT SUCCESSFUL @V60B7AB DMK00870
R10074DK: SPACE DMK00880
R10074DK: WAIT016 LPSW CPWAIT16 LOAD WAIT STATE CODE X'016' @V60B7AB DMK00890
R10074DK: SPACE DMK00900
R10074DK: CPUPROCF DS 0H @V60B7AB DMK00910
R10074DK: LCTL C2,C2,FFS ENABLE FOR I/O INTERRUPTS @VMV0002 DMK00920
R10074DK: LH R1,IPUADDR GET PROCESSOR ADDRESS @V60B7AB DMK00930
R10074DK: CALL DMKCVTBH CONVERT PROC ADDRESS TO PRINTABLE FORM @V60B7AB DMK00940
R10074DK: STCM R1,B'0011',CPUID623 MOVE IN PROCESSOR ADDRESS @V60B7AB DMK00950
R10074DK: LA R0,CPU623LN GET LENGTH OF MESSAGE @V60B7AB DMK00960
R10074DK: LA R1,CPU623MG GET ADDRESS OF MESSAGE TEXT @V60B7AB DMK00970
R10074DK: CALL DMKQCNWT,NORET+OPERATOR @V60B7AB DMK00980
R10074DK: CPUPROCG DS 0H @V60B7AB DMK00990
R10074DK: ./ R 00766000 00770000 $ 00765500 00500 DMK01000
R10074DK: TM APSTAT1,PROCIPL IS THIS THE IPL'ED PROCESSOR? @VMV0008 DMK01010
R10074DK: BO SETSCH YES, RESET THE SECOND SET OF VALUES @VMV0008 DMK01020
R10074DK: L R10,CPUSCHCU ADDRESS FIRST SET OF VALUES @VMV0008 DMK01030
R10074DK: SETSCH DS 0H @VMV0008 DMK01040
R10074DK: MVC 0(16,R10),INITWAIT RESET THE SAVED WAIT @VMH0008 DMK01050
R10074DK: * INFORMATION TO THE INITIAL VALUES DMK01060
R10074DK: L R10,CPUPAGWS GET ADDRESS OF SAVED WAIT VALUES @VMV0007 DMK01070
R10074DK: * IN DMKPAG DMK01080
R10074DK: TM APSTAT1,PROCIPL IS THIS THE IPL'ED PROCESSOR? @VMV0008 DMK01090
R10074DK: BNO SETPAG NO, RESET THE FIRST SET OF VALUES @VMV0008 DMK01100
R10074DK: LA R10,8(,R10) ADDRESS THE SECOND SET OF VALUES @VMV0007 DMK01110
R10074DK: SETPAG DS 0H @VMV0008 DMK01120
R10074DK: MVC 0(8,R10),WAITSAV8 SET TO INITIAL VALUE @VMV0007 DMK01130
R10074DK: ./ R 787000 $ 786100 100 DMK01140
R10074DK: L R2,CPUDMPMA GET ADDRESS IN DMKDMP ADDRESS OF @VMV0013 DMK01150
R10074DK: * THE ADDRESS OF THE MAIN PROCESSOR DMK01160
R10074DK: MVC 0(2,R2),IPUADDR MOVE IN ADDRESS OF REMAINING @VMV0013 DMK01170
R10074DK: * PROCESSOR DMK01180
R10074DK: ./ R 00810000 $ 00810000 01000 DMK01190
R10074DK: * OFFLINE PROCESSOR'S COPY OF PAGE AND SWAP TABLES FOR SHARED SEGMENTS DMK01200
R10074DK: ./ I 00861000 $ 00861250 00250 DMK01210
R10074DK: TM APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC? @V60B7AA DMK01220
R10074DK: BZ GOTPGT NO-WE ARE POINTING TO THE CORRECT@V60B7AA DMK01230
R10074DK: * (I.E., FIRST) SET OF TABLES DMK01240
R10074DK: ./ R 00863000 $ 00863000 DMK01250
R10074DK: GOTPGT SLR R9,R9 CLEAR REGISTER 9 @V60B7AA DMK01260
R10074DK: ./ R 00985000 $ 00985000 DMK01270
R10074DK: * OFFLINE PROCESSOR'S SET OF SWAP TABLES. DMK01280
R10074DK: ./ I 01117000 $ 01117200 00200 DMK01290
R10074DK: SL R14,F16 BACK UP TO PAGE TABLE HEADER @V60B7AA DMK01300
R10074DK: TM APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC? @V60B7AA DMK01310
R10074DK: BZ GOTPGT2 NO-WE ARE POINTING AT THE CORRECT@V60B7AA DMK01320
R10074DK: * SET OF PG/SWAP TABLES DMK01330
R10074DK: ./ R 01120000 01121000 $ 01120000 DMK01340
R10074DK: GOTPGT2 LA R14,PAGTSWP(,R14) GET SWPT ADDRESS FOR OTHER @V60B7AA DMK01350
R10074DK: ./ I 01265000 $ 01265300 00300 DMK01360
R10074DK: DS 0D @V60B7AB DMK01370
R10074DK: CPWAIT16 DC X'0002000000000016' CONCS OR DISCS FAILED @V60B7AB DMK01380
R10074DK: ./ R 01271000 01272000 $ 01271000 01000 DMK01390
R10074DK: CPUSCHCU DC A(DMKSCHCU) @VMV0008 DMK01400
R10074DK: CPUPAGWS DC A(DMKPAGWS) POINTER TO DMKPAG WAITSAVE VALUES @VMV0007 DMK01410
R10074DK: ./ R 01277000 01279000 $ 01277000 01000 DMK01420
R10074DK: DC X'FFFFFFFF' @VMV0007 DMK01430
R10074DK: DC X'FFFFFFFF' @VMV0007 DMK01440
R10074DK: DC X'FFFFFFFF' @VMV0007 DMK01450
R10074DK: ./ I 01313000 $ 01313100 00100 DMK01460
R10074DK: CPU623MG DC X'151515' @V60B7AB DMK01470
R10074DK: DC C'DMKCPU623I CHANNEL SET CONNECTED TO PROCESSOR ' @V60B7AB DMK01480
R10074DK: CPUID623 DC C' ' @V60B7AB DMK01490
R10074DK: DC X'1515' @V60B7AB DMK01500
R10074DK: CPU623LN EQU *-CPU623MG @V60B7AB DMK01510
BEGIN APPLY >>> ./ I 00020000 $ 00020500 00500 DMK00010
END APPLY >>> ./ I 00020000 $ 00020500 00500 DMK00010
BEGIN APPLY >>> ./ R 00022000 $ 00022000 01000 DMK00030
END APPLY >>> ./ R 00022000 $ 00022000 01000 DMK00030
BEGIN APPLY >>> ./ I 00149000 $ 00149500 00500 DMK00050
END APPLY >>> ./ I 00149000 $ 00149500 00500 DMK00050
BEGIN APPLY >>> ./ I 00150000 $ 00150200 00200 DMK00070
END APPLY >>> ./ I 00150000 $ 00150200 00200 DMK00070
BEGIN APPLY >>> ./ I 00204000 $ 00204100 00100 DMK00120
END APPLY >>> ./ I 00204000 $ 00204100 00100 DMK00120
BEGIN APPLY >>> ./ R 00231000 $ 00230500 00500 DMK00180
END APPLY >>> ./ R 00231000 $ 00230500 00500 DMK00180
BEGIN APPLY >>> ./ R 00234000 00239000 $ 00234000 01000 DMK00220
END APPLY >>> ./ R 00234000 00239000 $ 00234000 01000 DMK00220
BEGIN APPLY >>> ./ I 00268000 $ 00268100 00100 DMK00290
END APPLY >>> ./ I 00268000 $ 00268100 00100 DMK00290
BEGIN APPLY >>> ./ R 00323000 00324000 $ 00323000 01000 DMK00370
END APPLY >>> ./ R 00323000 00324000 $ 00323000 01000 DMK00370
BEGIN APPLY >>> ./ D 00329000 00330000 DMK00400
END APPLY >>> ./ D 00329000 00330000 DMK00400
BEGIN APPLY >>> ./ R 00367000 00368000 $ 00366300 00300 DMK00410
END APPLY >>> ./ R 00367000 00368000 $ 00366300 00300 DMK00410
BEGIN APPLY >>> ./ I 00370000 $ 00370500 00500 DMK00500
END APPLY >>> ./ I 00370000 $ 00370500 00500 DMK00500
BEGIN APPLY >>> ./ I 00480000 $ 00480250 00250 DMK00520
END APPLY >>> ./ I 00480000 $ 00480250 00250 DMK00520
BEGIN APPLY >>> ./ R 00484000 00493000 $ 00484000 01000 DMK00560
END APPLY >>> ./ R 00484000 00493000 $ 00484000 01000 DMK00560
BEGIN APPLY >>> ./ R 00614000 00615000 $ 00613050 00050 DMK00600
END APPLY >>> ./ R 00614000 00615000 $ 00613050 00050 DMK00600
BEGIN APPLY >>> ./ R 00766000 00770000 $ 00765500 00500 DMK01000
END APPLY >>> ./ R 00766000 00770000 $ 00765500 00500 DMK01000
BEGIN APPLY >>> ./ R 787000 $ 786100 100 DMK01140
END APPLY >>> ./ R 787000 $ 786100 100 DMK01140
BEGIN APPLY >>> ./ R 00810000 $ 00810000 01000 DMK01190
END APPLY >>> ./ R 00810000 $ 00810000 01000 DMK01190
BEGIN APPLY >>> ./ I 00861000 $ 00861250 00250 DMK01210
END APPLY >>> ./ I 00861000 $ 00861250 00250 DMK01210
BEGIN APPLY >>> ./ R 00863000 $ 00863000 DMK01250
END APPLY >>> ./ R 00863000 $ 00863000 DMK01250
BEGIN APPLY >>> ./ R 00985000 $ 00985000 DMK01270
END APPLY >>> ./ R 00985000 $ 00985000 DMK01270
BEGIN APPLY >>> ./ I 01117000 $ 01117200 00200 DMK01290
END APPLY >>> ./ I 01117000 $ 01117200 00200 DMK01290
BEGIN APPLY >>> ./ R 01120000 01121000 $ 01120000 DMK01340
END APPLY >>> ./ R 01120000 01121000 $ 01120000 DMK01340
BEGIN APPLY >>> ./ I 01265000 $ 01265300 00300 DMK01360
END APPLY >>> ./ I 01265000 $ 01265300 00300 DMK01360
BEGIN APPLY >>> ./ R 01271000 01272000 $ 01271000 01000 DMK01390
END APPLY >>> ./ R 01271000 01272000 $ 01271000 01000 DMK01390
BEGIN APPLY >>> ./ R 01277000 01279000 $ 01277000 01000 DMK01420
END APPLY >>> ./ R 01277000 01279000 $ 01277000 01000 DMK01420
BEGIN APPLY >>> ./ I 01313000 $ 01313100 00100 DMK01460
END APPLY >>> ./ I 01313000 $ 01313100 00100 DMK01460
Update Succeeded
Update Execution Time 63 milliseconds.
R09871DK
Date Tuesday Jan 15, 1980 07:03:00 AM
Loaded from MAINT(294)
R09871DK: ./ D 1189000 $ 00001000
BEGIN APPLY >>> ./ D 1189000 $ 00001000
END APPLY >>> ./ D 1189000 $ 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09843DK
Date Saturday Mar 29, 1980 03:29:00 AM
Loaded from MAINT(294)
R09843DK: ./ R 738000 740000 $ 738000 1000 00001000
R09843DK: MVC PAGECUR(16),PAGECUR-PSA(R2) COPY @VA09843 00002000
R09843DK: * PAGECUR,PAGENXT, 00003000
R09843DK: * MONNEXT,PAGEND 00004000
BEGIN APPLY >>> ./ R 738000 740000 $ 738000 1000 00001000
END APPLY >>> ./ R 738000 740000 $ 738000 1000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10332DK
Date Wednesday Apr 02, 1980 11:30:00 AM
Loaded from MAINT(294)
R10332DK: ./ I 206000 $ 206250 250 00001000
R10332DK: L R3,=A(DMKSYSAP) GET GENNED PARAMETER @VA10332 00002000
R10332DK: CLI 0(R3),C'N' IS AP GENERATED @VA10332 00003000
R10332DK: BE ERCPU192 NO..EASE ON DOWN, EASE ON DOWN @VA10332 00004000
BEGIN APPLY >>> ./ I 206000 $ 206250 250 00001000
END APPLY >>> ./ I 206000 $ 206250 250 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10010DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R10010DK: ./ I 40200 $ 40300 00001000
R10010DK: EXTRN DMKEXTST @VA10010 00002000
R10010DK: ./ I 524000 $ 524100 100 00003000
R10010DK: L R14,CPUEXTST ADDR OF FIELD CONTAINING @VA10010 00004000
R10010DK: * LOGICAL ADDR 00005000
R10010DK: * OF STOPPED PROCESSOR 00006000
R10010DK: LH R15,LPUADDRX LOGICAL ADDRESS OF OTHER @VA10010 00007000
R10010DK: * PROCESSOR 00008000
R10010DK: STH R15,0(,R14) STORE LPUADDRX IN DMKEXTST @VA10010 00009000
R10010DK: ./ I 771500 $ 771600 100 00010000
R10010DK: L R2,CPUEXTST ADDR OF FIELD CONTAINING @VA10010 00011000
R10010DK: * LOGICAL ADDD 00012000
R10010DK: * OF STOPPED PROCESSOR 00013000
R10010DK: STH R15,0(,R2) SET DMKEXTST TO ZEROES @VA10010 00014000
R10010DK: ./ I 1263100 $ 1263200 100 00015000
R10010DK: CPUEXTST DC A(DMKEXTST) ADDR OF FIELD CONTAINING THE @VA10010 00016000
R10010DK: * LOGICAL 00017000
R10010DK: * ADDR OF STOPPED PROCESSOR 00018000
BEGIN APPLY >>> ./ I 40200 $ 40300 00001000
END APPLY >>> ./ I 40200 $ 40300 00001000
BEGIN APPLY >>> ./ I 524000 $ 524100 100 00003000
END APPLY >>> ./ I 524000 $ 524100 100 00003000
BEGIN APPLY >>> ./ I 771500 $ 771600 100 00010000
END APPLY >>> ./ I 771500 $ 771600 100 00010000
BEGIN APPLY >>> ./ I 1263100 $ 1263200 100 00015000
END APPLY >>> ./ I 1263100 $ 1263200 100 00015000
Update Succeeded
Update Execution Time 23 milliseconds.
R10804DK
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 8 milliseconds.
R11422DK
Date Tuesday Jul 29, 1980 06:24:00 AM
Loaded from MAINT(294)
R11422DK: ./ R 643000 644000 $ 643000 100 00001000
R11422DK: L R1,VMDFTPNT GET ADDR OF DEFER EXEC.BLOCK @VA11422 00002000
R11422DK: LTR R1,R1 IS THERE ONE TO FREE? @VA11422 00003000
R11422DK: BZ ZEROLOCK NO, CONTINUE @VA11422 00004000
R11422DK: ./ I 660000 $ 660500 00005000
R11422DK: ZEROLOCK DS 0H @VA11422 00006000
BEGIN APPLY >>> ./ R 643000 644000 $ 643000 100 00001000
END APPLY >>> ./ R 643000 644000 $ 643000 100 00001000
BEGIN APPLY >>> ./ I 660000 $ 660500 00005000
END APPLY >>> ./ I 660000 $ 660500 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R11576DK
Date Friday Jan 09, 1981 10:22:00 AM
Loaded from MAINT(294)
R11576DK: ./ I 443000 $ 443005 5 00001000
R11576DK: LA R1,1 GET INCREMENT OF 1 @VA11576 00002000
R11576DK: AL R1,SHRLKCNT-PSA(R15) ADD 1 TO CPSHRLK COUNT @VA11576 00003000
R11576DK: ST R1,SHRLKCNT-PSA(R15) STORE UPDATED COUNT @VA11576 00004000
R11576DK: OI CPSTAT2-PSA(R15),CPSHRLK FREEZE THE SYSTEM @VA11576 00005000
R11576DK: ./ I 445000 $ 445100 100 00006000
R11576DK: L R15,PREFIXB GET AP PSA @VA11576 00007000
R11576DK: L R1,SHRLKCNT-PSA(,R15) GET CURRENT SHRLK COUNT @VA11576 00008000
R11576DK: BCTR R1,0 DECREMENT COUNT BY 0NE @VA11576 00009000
R11576DK: ST R1,SHRLKCNT-PSA(,R15) STORE UPDATED COUNT @VA11576 00010000
R11576DK: LTR R1,R1 TEST IF COUNT NOW 0 @VA11576 00011000
R11576DK: BNZ WAKEAP NO,SKIP RESET OF CPSHRLK @VA11576 00012000
R11576DK: NI CPSTAT2-PSA(R15),X'FF'-CPSHRLK RESET CPSHRLK @VA11576 00013000
R11576DK: WAKEAP DS 0H @VA11576 00015000
BEGIN APPLY >>> ./ I 443000 $ 443005 5 00001000
END APPLY >>> ./ I 443000 $ 443005 5 00001000
BEGIN APPLY >>> ./ I 445000 $ 445100 100 00006000
END APPLY >>> ./ I 445000 $ 445100 100 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R12596DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12596DK: ./ I 426000 $ 426100 200
R12596DK: LA R0,CPEXSIZE MUST GET CPEXBLOK TOO @VA12596
R12596DK: CALL DMKFREE @VA12596
R12596DK: ST R1,4(,R4) PUT CPEX POINTER IN DMKFREAP @VA12596
BEGIN APPLY >>> ./ I 426000 $ 426100 200
END APPLY >>> ./ I 426000 $ 426100 200
Update Succeeded
Update Execution Time 16 milliseconds.
R13464DK
Date Wednesday Jun 03, 1981 05:15:00 AM
Loaded from MAINT(294)
R13464DK: ./ I 775000 $ 775100
R13464DK: ST R15,XCPEND CLEAR EXTERNAL CALL PENDING FLAGS @VA13464
BEGIN APPLY >>> ./ I 775000 $ 775100
END APPLY >>> ./ I 775000 $ 775100
Update Succeeded
Update Execution Time 16 milliseconds.
R12934DK
Date Friday Aug 07, 1981 07:09:00 AM
Loaded from MAINT(294)
R12934DK: ./ R 8000 10000 $ 8000 1000
R12934DK: EXTRN DMKPTRAN @VA12934 00008000
R12934DK: EXTRN DMKPTRFR @VA12934 00009000
R12934DK: ./ D 12000 $
R12934DK: ./ R 14000 22000 $ 14000 1000
R12934DK: EXTRN DMKLOKSY @VA12934 00014000
R12934DK: EXTRN DMKLOKFR @VA12934 00015000
R12934DK: EXTRN DMKLOKTR @VA12934 00016000
R12934DK: EXTRN DMKLOKDS @VA12934 00017000
R12934DK: EXTRN DMKLOKRL @VA12934 00018000
R12934DK: EXTRN DMKMCTAF @VA12934 00019000
R12934DK: EXTRN DMKCVTBH @VA12934 00020000
R12934DK: ./ D 26000 $
R12934DK: ./ I 30000 $ 30500 500
R12934DK: EXTRN DMKCPPUP @VA12934 00030500
R12934DK: ./ D 32000 34000 $
R12934DK: ./ D 38000 $
R12934DK: ./ D 40000 $
R12934DK: ./ I 40300 $ 40500 200
R12934DK: EXTRN DMKMCTPF @VA12934 00040500
R12934DK: EXTRN DMKMCTFL @VA12934 00040700
R12934DK: ./ R 49000 50000 $ 49000 2000
R12934DK: * TO VARY AN ATTACHED PROCESSOR ONLINE. 00049000
R12934DK: ./ D 59000 $
R12934DK: ./ D 70000 75000 $
R12934DK: ./ R 89000 90000 $ 89000 1000
R12934DK: * DMKCPPUP - TO FREE RESOURCES USED IN AP OPERATION 00089000
R12934DK: * DMKCVTBH - TO CONVERT BINARY TO PRINTABLE FORM 00090000
R12934DK: ./ I 92000 $ 92500 500
R12934DK: * DMKMCTAF - TO HANDLE USERS WITH PROCESSOR AFFINITY 00092500
R12934DK: ./ R 95000 $ 95000 500
R12934DK: * DMKPTRAN - TO BRING IN AND LOCK A PAGE 00095000
R12934DK: * DMKPTRFR - TO GET A PAGE OF STORAGE 00095500
R12934DK: ./ D 109000 $
R12934DK: ./ I 122000 $ 122100 100
R12934DK: * DMKMCTFL - DMKMCT FLAG FIELD TO TEST FOR DMKMCTFS ENTRY 00122100
R12934DK: * DMKMCTPF - ADDRESS OF PSA PAGE OF OFFLINE PROCESSOR 00122200
R12934DK: * DMKLOKSY - ADDRESS OF GLOBAL SYSTEM LOCK 00122300
R12934DK: * DMKLOKDS - ADDRESS OF DSP QUEUES LOCK 00122400
R12934DK: * DMKLOKTR - ADDRESS OF TRQ LOCK 00122500
R12934DK: * DMKLOKRL - ADDRESS OF RUN LIST LOCK 00122600
R12934DK: * DMKLOKFR - ADDRESS OF FREE STORAGE LOCK 00122700
R12934DK: ./ D 149500 $
R12934DK: ./ R 150600 $ 150600 200
R12934DK: * NONE 00150600
R12934DK: ./ R 153000 154000 $ 153000 2000
R12934DK: * NONE 00153000
R12934DK: ./ R 182000 185000 $ 182000 1000
R12934DK: * 12. A BRANCH IS THEN MADE TO ENTRY POINT DMKCPPUP TO REVERT 00182000
R12934DK: * TO UNIPROCESSOR MODE. DMKCPPUP RETURNS TO ITS CALLER. 00183000
R12934DK: * 13. (SEE THE PROLOGUE FOR DMKCPPUP). 00184000
R12934DK: * 14. FOR VARY OFFLINE, UPON RETURN FROM DMKCPPUP, 00185000
R12934DK: ./ I 204000 $ 204020 20
R12934DK: L R15,PREFIXA SET UP TO ACCESS ABSOLUTE ZERO @VA12934 00204020
R12934DK: CLI CPAPRINP-PSA(R15),X'FF' IS AUTOMATIC PROCESSOR @VA12934 00204040
R12934DK: * RECOVERY IN PROCESS? 00204060
R12934DK: BE APRINPR YES, DON'T LET VARY BEGIN @VA12934 00204080
R12934DK: ./ R 268100 $ 268100 50
R12934DK: APRINPR DS 0H @VA12934 00268100
R12934DK: VARYINPR DS 0H @VA12934 00268150
R12934DK: ./ R 404000 $ 404000 80
R12934DK: L R15,=A(DMKMCTPF) ADDRESS OF PSA PAGE ADDRESS @VA12934 00404000
R12934DK: L R7,0(R15) ADDRESS OF PSA PAGE OF A PREVIOUS@VA12934 00404080
R12934DK: * FAILING PROCESSOR 00404160
R12934DK: LTR R7,R7 IS THERE A PSA PAGE ALREADY FOR @VA12934 00404240
R12934DK: * THE OTHER PROCESSOR? 00404320
R12934DK: BZ OBTPSA NO -- OBTAIN A NEW PAGE FOR PSA @VA12934 00404400
R12934DK: ST R7,4(,R8) YES -- A PSA PAGE EXISTS FROM THE@VA12934 00404480
R12934DK: * LAST TIME THE PROCESSOR WAS ONLINE. 00404560
R12934DK: * REUSE THE SAME PAGE FOR THE PSA. 00404640
R12934DK: XC 0(4,R15),0(R15) ZERO THE PSA PAGE ADDRESS @VA12934 00404720
R12934DK: B GETCPEX @VA12934 00404800
R12934DK: OBTPSA SR R2,R2 @VA12934 00404880
R12934DK: ./ R 415000 $ 415000 1000
R12934DK: GETCPEX LA R0,CPEXSIZE GET LENGTH IN DOUBLE WORDS @VA12934 00415000
R12934DK: ./ I 434000 $ 434100 100
R12934DK: SLR R1,R1 CLEAR REGISTER 1 @VA12934 00434100
R12934DK: L R15,=A(DMKLOKDS) ADDRESS OF DSP QUEUES LOCK @VA12934 00434200
R12934DK: ST R1,0(,R15) ENSURE THE LOCKWORD IS CLEAR @VA12934 00434300
R12934DK: L R15,=A(DMKLOKTR) ADDRESS OF TRQ LOCK @VA12934 00434400
R12934DK: ST R1,0(,R15) ENSURE THE LOCKWORD IS CLEAR @VA12934 00434500
R12934DK: L R15,=A(DMKLOKRL) ADDRESS OF RUN LIST LOCK @VA12934 00434600
R12934DK: ST R1,0(,R15) ENSURE THE LOCKWORD IS CLEAR @VA12934 00434700
R12934DK: L R15,=A(DMKLOKFR) ADDRESS OF FREE STORAGE LOCK @VA12934 00434800
R12934DK: ST R1,0(,R15) ENSURE THE LOCKWORD IS CLEAR @VA12934 00434900
R12934DK: L R15,=A(DMKLOKSY) ADDRESS OF GLOBAL SYSTEM LOCK @VA12934 00435000
R12934DK: ST R1,0(,R15) ENSURE THE LOCKWORD IS CLEAR @VA12934 00435100
R12934DK: * PAGE IN AND LOCK DMKCLKCK BEFORE APUOPER GETS TURNED ON 00435200
R12934DK: L R1,=A(DMKCLKCK) ADDRESS OF DMKCLKCK ROUTINE @VA12934 00435300
R12934DK: TRANS 2,1,OPT=(BRING+DEFER+SYSTEM+LOCK) @VA12934 00435400
R12934DK: ST R2,SAVECLK SAVE REAL ADDRESS OF DMKCLK @VA12934 00435500
R12934DK: ./ I 445000 $ 445030 30
R12934DK: L R2,SAVECLK RETRIEVE REAL ADDRESS OF DMKCLK @VA12934 00445030
R12934DK: CALL DMKPTRUL UNLOCK DMKCLK PAGE @VA12934 00445060
R12934DK: ./ R 486000 520000 $ 486000 1000
R12934DK: BNE DMKCPUOG NO, BRANCH @VA12934 00486000
R12934DK: LA R0,CPEXSIZE GET SIZE OF A CPEXBLOK @VA12934 00487000
R12934DK: CALL DMKFREE OBTAIN STORAGE @VA12934 00488000
R12934DK: USING CPEXBLOK,R1 @VA12934 00489000
R12934DK: STM R0,R15,CPEXREGS SAVE REGISTERS @VA12934 00490000
R12934DK: LA R15,DMKCPUOG ADDRESS OF RETURN POINT @VA12934 00491000
R12934DK: ST R15,CPEXADD STORE RETURN ADDRESS IN CPEXBLOK @VA12934 00492000
R12934DK: DROP R1 @VA12934 00493000
R12934DK: CALL DMKSTKOP STACK REQUEST FOR OTHER PROCESSOR@VA12934 00494000
R12934DK: GOTO DMKDSPCH GO TO THE DISPATCHER @VA12934 00495000
R12934DK: SPACE 1
R12934DK: DMKCPUOG DS 0H @VA12934 00496000
R12934DK: * MUST PAGE IN AND LOCK DMKCPP BEFORE STOPPING OTHER PROCESSOR 00497000
R12934DK: L R1,=A(DMKCPPUP) ADDRESS TO LOCK @VA12934 00498000
R12934DK: TRANS 2,1,OPT=(BRING,DEFER,SYSTEM,LOCK),AFFINITY @VA12934 00499000
R12934DK: ST R2,SAVECPP SAVE ADDRESS OF DMKCPP @VA12934 00500000
R12934DK: SIGQUIES EQU * @VA12934 00501000
R12934DK: SIGNAL QUIESCE @VA12934 00502000
R12934DK: SIGNAL STOP @VA12934 00503000
R12934DK: L R14,CPUEXTST ADDRESS OF FIELD CONTAINING THE @VA12934 00504000
R12934DK: * LOGICAL ADDRESS OF STOPPED PROC. 00505000
R12934DK: LH R15,LPUADDRX LOGICAL ADDRESS OF OTHER PROC. @VA12934 00506000
R12934DK: STH R15,0(,R14) STORE LPUADDRX IN DMKEXTST @VA12934 00507000
R12934DK: SPACE 00508000
R12934DK: CALL DMKCPPUP REVERT TO UNIPROCESSOR MODE @VA12934 00509000
R12934DK: ./ I 521000 $ 521100 100
R12934DK: LR R7,R1 SAVE RETURN CODE FROM DMKCPP @VA12934 00521100
R12934DK: L R2,SAVECPP GET ADDRESS OF DMKCPP @VA12934 00521200
R12934DK: CALL DMKPTRUL UNLOCK DMKCPP @VA12934 00521300
R12934DK: LTR R1,R7 WAS DMKCPP SUCCESSFUL? @VA12934 00521400
R12934DK: BNZ ERCPU192 NO, ERROR MESSAGE @VA12934 00521500
R12934DK: ./ D 524100 524600 $
R12934DK: ./ D 570000 1248000 $
R12934DK: ./ D 1251000 1255000 $
R12934DK: ./ D 1260000 1261000 $
R12934DK: ./ I 1263100 $ 1263150 50
R12934DK: CPUMCTAF DC A(DMKMCTAF) ADDRESS OF DMKMCTAF ROUTINE @VA12934 01263150
R12934DK: ./ D 1264000 1265000 $
R12934DK: ./ D 1266000 1267000 $
R12934DK: ./ D 1270000 1279000 $
R12934DK: ./ I 1286000 $ 1286300 300
R12934DK: SAVECPP DS F SAVEAREA FOR REAL ADDRESS OF DMKCPP @VA12934 01286300
R12934DK: SAVECLK DS F SAVEAREA FOR REAL ADDRESS OF DMKCLK @VA12934 01286600
R12934DK: ./ D 1313100 1313500 $
BEGIN APPLY >>> ./ R 8000 10000 $ 8000 1000
END APPLY >>> ./ R 8000 10000 $ 8000 1000
BEGIN APPLY >>> ./ D 12000 $
END APPLY >>> ./ D 12000 $
BEGIN APPLY >>> ./ R 14000 22000 $ 14000 1000
END APPLY >>> ./ R 14000 22000 $ 14000 1000
BEGIN APPLY >>> ./ D 26000 $
END APPLY >>> ./ D 26000 $
BEGIN APPLY >>> ./ I 30000 $ 30500 500
END APPLY >>> ./ I 30000 $ 30500 500
BEGIN APPLY >>> ./ D 32000 34000 $
END APPLY >>> ./ D 32000 34000 $
BEGIN APPLY >>> ./ D 38000 $
END APPLY >>> ./ D 38000 $
BEGIN APPLY >>> ./ D 40000 $
END APPLY >>> ./ D 40000 $
BEGIN APPLY >>> ./ I 40300 $ 40500 200
END APPLY >>> ./ I 40300 $ 40500 200
BEGIN APPLY >>> ./ R 49000 50000 $ 49000 2000
END APPLY >>> ./ R 49000 50000 $ 49000 2000
BEGIN APPLY >>> ./ D 59000 $
END APPLY >>> ./ D 59000 $
BEGIN APPLY >>> ./ D 70000 75000 $
END APPLY >>> ./ D 70000 75000 $
BEGIN APPLY >>> ./ R 89000 90000 $ 89000 1000
END APPLY >>> ./ R 89000 90000 $ 89000 1000
BEGIN APPLY >>> ./ I 92000 $ 92500 500
END APPLY >>> ./ I 92000 $ 92500 500
BEGIN APPLY >>> ./ R 95000 $ 95000 500
END APPLY >>> ./ R 95000 $ 95000 500
BEGIN APPLY >>> ./ D 109000 $
END APPLY >>> ./ D 109000 $
BEGIN APPLY >>> ./ I 122000 $ 122100 100
END APPLY >>> ./ I 122000 $ 122100 100
BEGIN APPLY >>> ./ D 149500 $
END APPLY >>> ./ D 149500 $
BEGIN APPLY >>> ./ R 150600 $ 150600 200
END APPLY >>> ./ R 150600 $ 150600 200
BEGIN APPLY >>> ./ R 153000 154000 $ 153000 2000
END APPLY >>> ./ R 153000 154000 $ 153000 2000
BEGIN APPLY >>> ./ R 182000 185000 $ 182000 1000
END APPLY >>> ./ R 182000 185000 $ 182000 1000
BEGIN APPLY >>> ./ I 204000 $ 204020 20
END APPLY >>> ./ I 204000 $ 204020 20
BEGIN APPLY >>> ./ R 268100 $ 268100 50
END APPLY >>> ./ R 268100 $ 268100 50
BEGIN APPLY >>> ./ R 404000 $ 404000 80
END APPLY >>> ./ R 404000 $ 404000 80
BEGIN APPLY >>> ./ R 415000 $ 415000 1000
END APPLY >>> ./ R 415000 $ 415000 1000
BEGIN APPLY >>> ./ I 434000 $ 434100 100
END APPLY >>> ./ I 434000 $ 434100 100
BEGIN APPLY >>> ./ I 445000 $ 445030 30
END APPLY >>> ./ I 445000 $ 445030 30
BEGIN APPLY >>> ./ R 486000 520000 $ 486000 1000
END APPLY >>> ./ R 486000 520000 $ 486000 1000
BEGIN APPLY >>> ./ I 521000 $ 521100 100
END APPLY >>> ./ I 521000 $ 521100 100
BEGIN APPLY >>> ./ D 524100 524600 $
END APPLY >>> ./ D 524100 524600 $
BEGIN APPLY >>> ./ D 570000 1248000 $
END APPLY >>> ./ D 570000 1248000 $
BEGIN APPLY >>> ./ D 1251000 1255000 $
END APPLY >>> ./ D 1251000 1255000 $
BEGIN APPLY >>> ./ D 1260000 1261000 $
END APPLY >>> ./ D 1260000 1261000 $
BEGIN APPLY >>> ./ I 1263100 $ 1263150 50
END APPLY >>> ./ I 1263100 $ 1263150 50
BEGIN APPLY >>> ./ D 1264000 1265000 $
END APPLY >>> ./ D 1264000 1265000 $
BEGIN APPLY >>> ./ D 1266000 1267000 $
END APPLY >>> ./ D 1266000 1267000 $
BEGIN APPLY >>> ./ D 1270000 1279000 $
END APPLY >>> ./ D 1270000 1279000 $
BEGIN APPLY >>> ./ I 1286000 $ 1286300 300
END APPLY >>> ./ I 1286000 $ 1286300 300
BEGIN APPLY >>> ./ D 1313100 1313500 $
END APPLY >>> ./ D 1313100 1313500 $
Update Succeeded
Update Execution Time 102 milliseconds.
R13499DK
Date Thursday Aug 27, 1981 08:24:00 AM
Loaded from MAINT(294)
R13499DK: ./ R 00426500 $ 00426600 00001000
R13499DK: ST R1,4(,R10) PUT CPEX POINTER IN DMKFREAP @VA13499 00002000
BEGIN APPLY >>> ./ R 00426500 $ 00426600 00001000
END APPLY >>> ./ R 00426500 $ 00426600 00001000
Update Succeeded
Update Execution Time 16 milliseconds.