ibm:vm370-lib:cp:dmkcpu.assemble_hst
Table of Contents
DMKCPU History
References
- Fixes Applied : 15
- Latest Source Date : Tuesday, February 20, 1979
- 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.
ibm/vm370-lib/cp/dmkcpu.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator