ibm:vm370-lib:cp:dmkcpi.assemble_hst
Table of Contents
DMKCPI History
References
- Fixes Applied : 38
- Latest Source Date : Wednesday, January 31, 1979
- Last Fix ID : [HRC075DK]
Update History
CMS File Input : DMKCPI ASSEMBLE
Date : 1/31/1979 2:37:00 PM
VM Context : MAINT(394)
File Name : DMKCPI.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09296DK 601 REASSEMBLE FOR V09296
- R09587DK 602 SPLIT MODULE DMKIOS INTO DMKIOS AND DMKIOT
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
- R09802DK 606 CPUSER AND CPUMODEL LENGTH ATTRIBUTES ARE INCORRECT
- R09916DK 610 REAL MACHINE SIZE=16M DUMP FILE INCORRECTLY CALCULATED
- R08341DK 610 PAGE REPLENISHMENT WILL NOT SELECT UNLOCKED V=R PAGES
- R09952DK 610 ADDITIONAL DIAGNOSE FOR CP UNDER CP
- R11565DK 616 UV01666 SENSE RETRY COUNT FOR D/T3880 TO LOW IN DMKCPI
- R11615DK 616 UV01742 UNABLE TO IPL AN (AP) NUCLEUS AFTER APAR VM09952
- R11619DK 616 UV02136 MSDMKCPI952I MESSAGE CORRECTION
- R11344DK 618 UV01215 DESTAGE MODIFIED DATA TO MINIMIZE DATA LOSSES
- R12591DK 619 UV03927 UNDEFINED ABEND CODE WHEN USING 16 MEG MACHINE
- R12596DK 620 UV03973 DMKFRE CPEXBLOK DURING EXTEND + SYSTEM LOCK
- R13845DK 623 UV04974 IPL SHUTDOWN GET DMKCPI960I WARM DATA NOT SAVED
- R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
- R11813DK 625 UV03086 ALLOW CP V=R AREA TO BE GREATER THAN 8MEG
- R13167DK 625 UV04191 INSURE A CORRECT COPY OF DMKVMI AT INITIALIZATION
- R13364DK 625 UV05742 ENSURE DMKSYM IS WRITTEN TO THE BACKING DEVICE
- HRC004DK V01 ENABLE SUPPORT FOR 4K STORAGE KEYS
- HRC008DK V01 FIX INTERVAL TIMER FOR FASTER PROCESSORS
- HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
- HRC015DK V01 CP NOT SUPPORTING NEW FORMAT CMS FS/E DASD LABELS
- HRC016DK V01 CHANGE NAME OF USER TO BE AUTOLOGGED TO “AUTOLOG1-9”
- HRC019DK V01 IMPLEMENT EXTENDED HRC QUERY FUNCTIONS
- HRC020DK V01 DELETE LINE FEEDS AROUND DUPLICATE VOLID MESSAGE AT IPL TIME
- HRC028DK V01 MAKE STARTUP MESSAGE MORE READABLE
- HRC032DK V01 RE-ASK IF WARM START FAILS
- HRC033DK V01 ADD LIST OF SYSTEM PACKS NOT CP OWNED
- HRC035DK V01 ADD SUPPORT FOR FRET TRAP
- HRC036DK V01 ADD SYSIPL MACRO FOR DEFAULT START
- HRC201DK V03 SAVE SYSTEM CONSOLE ADDRESS FOR LATER
- HRC202DK V03 GENERAL MESSAGE CLEANUP
- HRC370DK V03 new CPLEVEL message for “Sixpack” release.
- HRC039DK H40 Fix various DASD attached to SYSTEM issues
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
- HRC108DK H40 Implement SYSID (System identification)
- HRC075DK V01 Alternate nucleus support
R09296DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09296DK: ./ * REASSEMBLE FOR V09296 00001000
BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Comment >>> ./ * REASSEMBLE FOR V09296 00001000
END APPLY >>> ./ * REASSEMBLE FOR V09296 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09587DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09587DK: ./ R 351000 $ 351000 DMK00010
R09587DK: EXTRN DMKQCNRD,DMKPSAEX,DMKPRGIN,DMKMCHIN,DMKIOTIN @VA09587 DMK00020
R09587DK: ./ R 1751000 $ 1751000 DMK00030
R09587DK: CHANRET MVC IONPSW+4(4),=A(DMKIOTIN) RETURN TO NORMAL @VA09587 DMK00040
R09587DK: ./ R 1915000 $ 1915000 DMK00050
R09587DK: DC A(MCHEKENB,DMKIOTIN) I/O NEW PSW @VA09587 DMK00060
BEGIN APPLY >>> ./ R 351000 $ 351000 DMK00010
END APPLY >>> ./ R 351000 $ 351000 DMK00010
BEGIN APPLY >>> ./ R 1751000 $ 1751000 DMK00030
END APPLY >>> ./ R 1751000 $ 1751000 DMK00030
BEGIN APPLY >>> ./ R 1915000 $ 1915000 DMK00050
END APPLY >>> ./ R 1915000 $ 1915000 DMK00050
Update Succeeded
Update Execution Time 39 milliseconds.
R09957DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R10074DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R10074DK: ./ I 333000 $ 333100 DMK00010
R10074DK: * 016 - CHANNEL SET SWITCHING ERROR DMK00020
R10074DK: ./ R 439000 440000 $ 439100 1000 DMK00030
R10074DK: OI APSTAT1,PROCIO+PROCIPL INDICATE THIS PROCESSOR @V60B7AA DMK00040
R10074DK: * HAS I/O CAPABILITY AND IS IPL PROCESSOR DMK00050
R10074DK: ./ R 486000 $ 485020 20 DMK00060
R10074DK: SPACE DMK00070
R10074DK: LA R2,16 LOAD LOOP CONTROL FOR SIO @V60B7AB DMK00080
R10074DK: LA R5,CPINOCSS GET ADDRESS OF CPINOCSS @V60B7AB DMK00090
R10074DK: ST R5,PRNPSW+4 SET UP PROGRAM CHECK ADDRESS @V60B7AB DMK00100
R10074DK: LH R15,SYSIPLDV GET ADDRESS OF IPL DEVICE @VMV0001
R10074DK: LA R5,CPICCW1 GET ADDRESS OF SENSE CCW @V60B7AB DMK00120
R10074DK: ST R5,CAW STORE ADDRESS OF SENSE CCW @V60B7AB DMK00130
R10074DK: LA R5,N63 HIGHEST CHANNEL ADDRESS, X'003F' @V60B7AB DMK00140
R10074DK: L R1,FFS PUT A NEGATIVE 1 IN REGISTER 1 @V60B7AB DMK00150
R10074DK: * THE NEXT INSTRUCTION INCREMENTS DMK00160
R10074DK: * R1 BY 1. CHANNEL SET ADDRESS 0 DMK00170
R10074DK: * WILL BE ATTEMPTED FIRST DMK00180
R10074DK: CSSAVAIL DS 0H @V60B7AB DMK00190
R10074DK: LA R1,1(0,R1) INCREMENT CHANNEL ADDRESS BY ONE @V60B7AB DMK00200
R10074DK: SPACE DMK00210
R10074DK: * CONCS 0(R1) CONNECT THIS CHANNEL SET @V60B7AB DMK00220
R10074DK: DC X'B2001000' @V60B7AB DMK00230
R10074DK: SPACE DMK00240
R10074DK: BZ SENSEIPL BRANCH, IF CONNECT SUCCESSFUL @V60B7AB DMK00250
R10074DK: CLR R5,R1 TRIED ALL CHANNEL SET ADDRESSES? @V60B7AB DMK00260
R10074DK: BNE CSSAVAIL NO, BRANCH @V60B7AB DMK00270
R10074DK: B WAITCHER GO LOAD A WAIT STATE @V60B7AB DMK00280
R10074DK: SENSEIPL DS 0H @V60B7AB DMK00290
R10074DK: SIO 0(R15) DO SENSE TO THE IPL DEVICE @V60B7AB DMK00300
R10074DK: BZ CHKSENSE BRANCH ON CONDITION CODE 0 @V60B7AB DMK00310
R10074DK: * (SUCCESSFUL) DMK00320
R10074DK: BC 1,NEXTADDR BRANCH ON CONDITION CODE 3 @V60B7AB DMK00330
R10074DK: * (NOT OPERATIONAL) DMK00340
R10074DK: BC 2,SENSEIPL LOOP ON CONDITION CODE 2 @V60B7AB DMK00350
R10074DK: * (SUBCHANNEL BUSY) DMK00360
R10074DK: * HERE ON CONDITION CODE 1 (CSW STORED) DMK00370
R10074DK: TM CSW+4,UC UNIT CHECK? @V60B7AB DMK00380
R10074DK: BO TRYSIO YES, BRANCH @V60B7AB DMK00390
R10074DK: TM CSW+5,CCC+IFCC PERMANENT ERRORS? @V60B7AB DMK00400
R10074DK: BO NEXTADDR YES, BRANCH @V60B7AB DMK00410
R10074DK: TRYSIO DS 0H @V60B7AB DMK00420
R10074DK: BCT R2,SENSEIPL TRY SIO 16 TIMES @V60B7AB DMK00430
R10074DK: LA R2,16 RELOAD LOOP CONTROL FOR SIO @V60B7AB DMK00440
R10074DK: B NEXTADDR PERMANENT ERRORS, TRY NEXT ADDR. @V60B7AB DMK00450
R10074DK: CHKSENSE DS 0H @V60B7AB DMK00460
R10074DK: TM CPISNS,INTREQ IS IPL DEVICE ACCESSIBLE? @V60B7AB DMK00470
R10074DK: BNO SETCSSON YES, BRANCH @V60B7AB DMK00480
R10074DK: NEXTADDR DS 0H @V60B7AB DMK00490
R10074DK: MVI CPISNS,00 CLEAR FIRST BYTE OF SENSE DATA @V60B7AB DMK00500
R10074DK: CLR R5,R1 TRIED ALL CHANNEL SET ADDRESSES? @V60B7AB DMK00510
R10074DK: BNE CSSAVAIL NO, BRANCH @V60B7AB DMK00520
R10074DK: SPACE DMK00530
R10074DK: WAITCHER LPSW XWAITCSS LOAD WAIT STATE CODE X'016' @V60B7AB DMK00540
R10074DK: SPACE DMK00550
R10074DK: SETCSSON DS 0H @V60B7AB DMK00560
R10074DK: OI APSTAT1,CSSFEAT INDICATE CHANNEL SET SWITCHING @V60B7AB DMK00570
R10074DK: * FACILITY IS AVAILABLE DMK00580
R10074DK: STH R1,CSADDR SAVE CHANNEL SET ADDRESS @V60B7AB DMK00590
R10074DK: XC CPISNS(24),CPISNS CLEAR SENSE DATA AREA @V60B7AB DMK00600
R10074DK: CPINOCSS DS 0H @V60B7AB DMK00610
R10074DK: ./ R 552000 $ 552100 DMK00620
R10074DK: * R5 CONTAINS THE HIGHEST POSSIBLE PROCESSOR ADDRESS, X'003F'. DMK00630
R10074DK: ./ R 791000 $ 791100 DMK00640
R10074DK: OI CPI955SW,FF NO--VM/370 TOO LARGE FOR MACHINE @V60B7AB DMK00650
R10074DK: ./ I 1799000 $ 1799100 100 DMK00660
R10074DK: CPI955SW DC X'00' SWITCH FOR ISSUE OF MSG 955W @V60B7AB DMK00670
R10074DK: ./ I 1902000 $ 1902100 DMK00680
R10074DK: XWAITCSS DC X'0002000000000016' FAILED TO CONNECT CHANNELS @V60B7AB DMK00690
R10074DK: ./ R 2274000 $ 2274100 100 DMK00700
R10074DK: CLI CPI955SW,FF IS SYSTEM TOO BIG FOR MACHINE? @V60B7AB DMK00710
R10074DK: BE CPI955 YES, BRANCH. ISSUE DMKCPI955W @V60B7AB DMK00720
BEGIN APPLY >>> ./ I 333000 $ 333100 DMK00010
END APPLY >>> ./ I 333000 $ 333100 DMK00010
BEGIN APPLY >>> ./ R 439000 440000 $ 439100 1000 DMK00030
END APPLY >>> ./ R 439000 440000 $ 439100 1000 DMK00030
BEGIN APPLY >>> ./ R 486000 $ 485020 20 DMK00060
END APPLY >>> ./ R 486000 $ 485020 20 DMK00060
BEGIN APPLY >>> ./ R 552000 $ 552100 DMK00620
END APPLY >>> ./ R 552000 $ 552100 DMK00620
BEGIN APPLY >>> ./ R 791000 $ 791100 DMK00640
END APPLY >>> ./ R 791000 $ 791100 DMK00640
BEGIN APPLY >>> ./ I 1799000 $ 1799100 100 DMK00660
END APPLY >>> ./ I 1799000 $ 1799100 100 DMK00660
BEGIN APPLY >>> ./ I 1902000 $ 1902100 DMK00680
END APPLY >>> ./ I 1902000 $ 1902100 DMK00680
BEGIN APPLY >>> ./ R 2274000 $ 2274100 100 DMK00700
END APPLY >>> ./ R 2274000 $ 2274100 100 DMK00700
Update Succeeded
Update Execution Time 78 milliseconds.
R09802DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09802DK: ./ * FORCE RE-ASSEMBLY FOR PTF V09802
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
Comment >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
Update Succeeded
Update Execution Time 16 milliseconds.
R09916DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09916DK: ./ R 2896000 $ 2896500 00001000
R09916DK: AL R10,=X'00000800' ROUND UP TO 4K BOUNDRY @VA09916 00002000
BEGIN APPLY >>> ./ R 2896000 $ 2896500 00001000
END APPLY >>> ./ R 2896000 $ 2896500 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R08341DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R08341DK: ./ I 382000 $ 382100
R08341DK: EXTRN DMKPTRSN @VA08341
R08341DK: ./ R 798000 799000 $ 798100 1000
R08341DK: ST R6,20(,R10) THAT ARE MAINTAINED BY @VA08341
R08341DK: ST R6,60(,R10) DMKPTR.... @VA08341
R08341DK: ./ R 802000 803000 $ 802100 1000
R08341DK: ST R3,24(,R10) CORETABLE ENTRY FOR @VA08341
R08341DK: ST R3,64(,R10) DMKPTR.... @VA08341
R08341DK: ./ R 846000 847000 $ 846100 100
R08341DK: ST R3,32(,R10) FOR DMKPTR.... @VA08341
R08341DK: ST R3,72(,R10) ............ @VA08341
R08341DK: ./ I 852000 $ 852100 100
R08341DK: L R10,=A(DMKPTRSN) ADDRESS OF PAGE SELECTION DATA@VA08341
R08341DK: LA R15,2 NUMBER OF BLOCKS OF FRAMES FOR @VA08341
R08341DK: * PAGE SELECTION TO SCAN
R08341DK: STH R15,0(R10) SET UP SCANNUM FIELD IN DMKPTR @VA08341
R08341DK: STH R15,2(R10) SET UP SCANBLOK FIELD IN DMKPTR @VA08341
R08341DK: SLR R15,R15 ZERO REGISTER @VA08341
R08341DK: STC R15,6(R10) INITIALIZE FLAGS FOR DMKPTR PAGE @VA08341
R08341DK: * SELECTION ROUTINE
BEGIN APPLY >>> ./ I 382000 $ 382100
END APPLY >>> ./ I 382000 $ 382100
BEGIN APPLY >>> ./ R 798000 799000 $ 798100 1000
END APPLY >>> ./ R 798000 799000 $ 798100 1000
BEGIN APPLY >>> ./ R 802000 803000 $ 802100 1000
END APPLY >>> ./ R 802000 803000 $ 802100 1000
BEGIN APPLY >>> ./ R 846000 847000 $ 846100 100
END APPLY >>> ./ R 846000 847000 $ 846100 100
BEGIN APPLY >>> ./ I 852000 $ 852100 100
END APPLY >>> ./ I 852000 $ 852100 100
Update Succeeded
Update Execution Time 55 milliseconds.
R09952DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R09952DK: ./ R 466000 $ 466010 10 00001000
R09952DK: BE CPINITV @VA09952 00002000
R09952DK: ./ I 557000 $ 557010 10 00003000
R09952DK: CPINITV DS 0H @VA09952 00004000
R09952DK: LA R1,8 ISSUE DIAGNOSE '48' TO SET @VA09952 00005000
R09952DK: DC X'83120048' IN VMBLOK CP VIRTUAL BIT @VA09952 00006000
R09952DK: B CPIPINTA @VA09952 00007000
BEGIN APPLY >>> ./ R 466000 $ 466010 10 00001000
END APPLY >>> ./ R 466000 $ 466010 10 00001000
BEGIN APPLY >>> ./ I 557000 $ 557010 10 00003000
END APPLY >>> ./ I 557000 $ 557010 10 00003000
Update Succeeded
Update Execution Time 31 milliseconds.
R11565DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R11565DK: ./ I 417000 $ 417500 00001000
R11565DK: SENRETCT EQU X'100' SENSE RETRY COUNT @VA11565 00002000
R11565DK: ./ R 485040 $ 485041 00003000
R11565DK: LA R2,SENRETCT LOAD LOOP CONTROL FOR SIO @VA11565 00004000
R11565DK: ./ R 485760 $ 485761 00005000
R11565DK: LA R2,SENRETCT LOAD LOOP CONTROL FOR SIO @VA11565 00006000
R11565DK: ./ R 1567000 $ 1567500 00007000
R11565DK: LA R1,SENRETCT LOAD RETRY COUNT @VA11565 00008000
BEGIN APPLY >>> ./ I 417000 $ 417500 00001000
END APPLY >>> ./ I 417000 $ 417500 00001000
BEGIN APPLY >>> ./ R 485040 $ 485041 00003000
END APPLY >>> ./ R 485040 $ 485041 00003000
BEGIN APPLY >>> ./ R 485760 $ 485761 00005000
END APPLY >>> ./ R 485760 $ 485761 00005000
BEGIN APPLY >>> ./ R 1567000 $ 1567500 00007000
END APPLY >>> ./ R 1567000 $ 1567500 00007000
Update Succeeded
Update Execution Time 47 milliseconds.
R11615DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R11615DK: ./ R 466010 $ 466020 10 00001000
R11615DK: BNE INITREAL NO BRANCH @VA11615 00002000
R11615DK: LA R1,8 SET DIAGNOSE REG @VA11615 00003000
R11615DK: DC X'83120048' DIAG 48 TO SET VIRTUAL BIT @VA11615 00004000
R11615DK: B CPIPINTA INIT IN UNIPROCESSOR ONLY @VA11615 00005000
R11615DK: INITREAL DS 0H @VA11615 00006000
R11615DK: ./ D 557010 557040 $ 00007000
BEGIN APPLY >>> ./ R 466010 $ 466020 10 00001000
END APPLY >>> ./ R 466010 $ 466020 10 00001000
BEGIN APPLY >>> ./ D 557010 557040 $ 00007000
END APPLY >>> ./ D 557010 557040 $ 00007000
Update Succeeded
Update Execution Time 31 milliseconds.
R11619DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R11619DK: ./ R 2129000 $ 2129100 00001000
R11619DK: CORSMSG DC CL5' ' @VA11619 00002000
R11619DK: ./ R 2779000 $ 2779100 100 00003000
R11619DK: STC R0,CORSMSG SAVE HIGH ORDER DIGIT OF SIZE @VA11619 00004000
R11619DK: STCM R1,B'1111',CORSMSG+1 SAVE THE REST @VA11619 00005000
BEGIN APPLY >>> ./ R 2129000 $ 2129100 00001000
END APPLY >>> ./ R 2129000 $ 2129100 00001000
BEGIN APPLY >>> ./ R 2779000 $ 2779100 100 00003000
END APPLY >>> ./ R 2779000 $ 2779100 100 00003000
Update Succeeded
Update Execution Time 31 milliseconds.
R11344DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R11344DK: ./ I 01190000 $ 1190100 100 09/12/80 15:03:18
R11344DK: TM RDEVFTR,SYSVIRT+VIRTUAL THIS AN MSS VUA? @VA11344
R11344DK: BZ SAVESER2 NO - THEN DON'T TURN ON @VA11344
R11344DK: * 'MTD-BY-CP' FLAG @VA11344
R11344DK: OI RDEVFLAG,RDEVVMNT ELSE TURN IT ON! @VA11344
R11344DK: SAVESER2 DS 0H @VA11344
BEGIN APPLY >>> ./ I 01190000 $ 1190100 100 09/12/80 15:03:18
END APPLY >>> ./ I 01190000 $ 1190100 100 09/12/80 15:03:18
Update Succeeded
Update Execution Time 23 milliseconds.
R12591DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R12591DK: ./ I 597000 $ 597500 00001000
R12591DK: LPSW PRNPSW LOAD EC PSW @VA12591 00002000
BEGIN APPLY >>> ./ I 597000 $ 597500 00001000
END APPLY >>> ./ I 597000 $ 597500 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R12596DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R12596DK: ./ I 977000 $ 977100 200
R12596DK: LA R0,CPEXSIZE MUST GET CPEXBLOK TOO @VA12596
R12596DK: CALL DMKFREE @VA12596
R12596DK: ST R1,4(,R10) PUT CPEX POINTER IN DMKFREAP @VA12596
BEGIN APPLY >>> ./ I 977000 $ 977100 200
END APPLY >>> ./ I 977000 $ 977100 200
Update Succeeded
Update Execution Time 16 milliseconds.
R13845DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R13845DK: ./ R 2194000 $ 2194000 00001000
R13845DK: DC C'DMKCPI968I NO WARM START, PREVIOUS DATA STILL VALID' 00002000
BEGIN APPLY >>> ./ R 2194000 $ 2194000 00001000
END APPLY >>> ./ R 2194000 $ 2194000 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R14280DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R14280DK: ./ R 312000 $ 312000 500
R14280DK: * DMKCPI185E CP ASSIST LEVEL XXXX NOT SUPPORTED - CP ASSIST 00312000
R14280DK: * DISABLED 00312500
R14280DK: ./ I 610000 $ 610200 200
R14280DK: MVI PSAEVMA,MICLPSW+MICPTLB+MICSCSP+MICSIO+MICSTSM+MICSTPT+M*00610200
R14280DK: ICTCH ENABLE ALL EVMA EXCEPT DIAG ASSIST @VA14280 00610400
R14280DK: * NOTE DIAG NOT ENABLED BECAUSE NOT SUPPORTED IN RELEASE 6 SCP 00610600
R14280DK: ./ R 616000 $ 616000 10
R14280DK: ****************************************************************** 00616000
R14280DK: * * 00616010
R14280DK: * CHECK OUT LEVEL OF CP ASSIST AND TAKE ACTION AS FOLLOWS: * 00616020
R14280DK: * * 00616030
R14280DK: * BELOW LEVEL 18: DISABLE CP ASSIST * 00616040
R14280DK: * * 00616050
R14280DK: * LEVEL 18 OR 19: USE CP ASSIST, BUT MODIFY FREE/FRET AND * 00616060
R14280DK: * DISABLE TCH ASSIST * 00616070
R14280DK: * * 00616080
R14280DK: * LEVEL 20: USE CP ASSIST * 00616090
R14280DK: * * 00616100
R14280DK: * ABOVE LEVEL 20: DISABLE CP ASSIST * 00616110
R14280DK: * * 00616120
R14280DK: ****************************************************************** 00616130
R14280DK: SPACE , 00616140
R14280DK: CLC F20,0(R3) CHECK FOR LEVEL 20 ASSIST @VA14280 00616150
R14280DK: BL CPIPINT3 GREATER THAN 20... DON'T USE IT @VA14280 00616160
R14280DK: BE CPINTFRE ASSIST IS LEVEL 20. GOOD, USE IT @VA14280 00616170
R14280DK: CLC F18,0(R3) CHECK FOR LEVEL 18 OR 19 ASSIST @VA14280 00616180
R14280DK: BH CPIPINT3 LESS THAN 18... DON'T USE IT @VA14280 00616190
R14280DK: * 00616200
R14280DK: * ASSIST LEVEL 18 OR 19... MUST CHANGE FREEX/FRETX INSTRUCTIONS BACK 00616210
R14280DK: * TO REGULAR FREE/FRET, AND ADJUST FIRST OPERAND LOCATION. 00616220
R14280DK: * 00616230
R14280DK: L R15,CPATFREE ADDRESS OF DMKFREE INSTRUCTION @VA14280 00616240
R14280DK: MVI OP1(R15),OLDFREE RESTORE OLD DMKFREE OPCODE @VA14280 00616250
R14280DK: LH R14,OP2(,R15) GET S(MAXSIZE) @VA14280 00616260
R14280DK: AL R14,F4 POINT IT TO S(SUBTABLE) @VA14280 00616270
R14280DK: STH R14,OP2(,R15) STORE IT BACK @VA14280 00616280
R14280DK: L R15,CPATFRET ADDRESS OF DMKFRET INSTRUCTION @VA14280 00616290
R14280DK: MVI OP1(R15),OLDFRET RESTORE OLD DMKFRET OPCODE @VA14280 00616300
R14280DK: LH R14,OP2(,R15) GET S(MAXSIZE) @VA14280 00616310
R14280DK: AL R14,F4 POINT IT TO S(SUBTABLE) @VA14280 00616320
R14280DK: STH R14,OP2(,R15) STORE IT BACK @VA14280 00616330
R14280DK: * 00616340
R14280DK: * ASSIST LEVEL 18 OR 19... MUST CHANGE OPERANDS OF DSP2 AND UNTFR 00616350
R14280DK: * INSTRUCTIONS TO POINT TO SUBTABLE INSTEAD OF MAXSIZE. 00616360
R14280DK: * 00616370
R14280DK: L R15,ADSPRQ POINT TO DSP2 DATA LIST @VA14280 00616380
R14280DK: L R14,DSPRQD(,R15) GET POINTER TO MAXSIZE @VA14280 00616390
R14280DK: AL R14,F4 INCREMENT, POINT TO SUBTABLE @VA14280 00616400
R14280DK: ST R14,DSPRQD(,R15) PUT IT BACK @VA14280 00616410
R14280DK: L R15,AUNTF1 POINT TO UNTFR DATA LIST @VA14280 00616420
R14280DK: L R14,UNTF1D(,R15) GET POINTER TO MAXSIZE @VA14280 00616430
R14280DK: AL R14,F4 INCREMENT, POINT TO SUBTABLE @VA14280 00616440
R14280DK: ST R14,UNTF1D(,R15) PUT IT BACK @VA14280 00616450
R14280DK: * 00616460
R14280DK: * ASSIST LEVEL 18 OR 19... MUST DISABLE TEST CHANNEL (TCH) ASSIST 00616470
R14280DK: * BECAUSE IT DOESN'T MATCH THE SOFTWARE. 00616480
R14280DK: * 00616490
R14280DK: NI PSAEVMA,255-MICTCH DISABLE TCH ASSIST @VA14280 00616500
R14280DK: B CPINTFRE CONTINUE... USE ASSISTS @VA14280 00616510
R14280DK: SPACE ,
R14280DK: F18 DC F'18' USED TO CHECK CP ASSIST LEVEL @VA14280 03454000
R14280DK: ADSPRQ DC V(DMKDSPRQ) ADDRESS OF DSP2 ASSIST DATA LIST @VA14280 03454200
R14280DK: DSPRQD EQU 28 DISP TO MAXSIZE POINTER @VA14280 03454400
R14280DK: AUNTF1 DC V(DMKUNTF1) ADDRESS OF UNTFR ASSIST DATA LIST@VA14280 03454600
R14280DK: UNTF1D EQU 4 DISP TO MAXSIZE POINTER @VA14280 03454800
R14280DK: OLDFREE EQU X'00' 2ND BYTE OF OLD 'FREE' OPCODE @VA14280 03455000
R14280DK: OLDFRET EQU X'01' 2ND BYTE OF OLD 'FRET' OPCODE @VA14280 03455200
R14280DK: OP1 EQU 1 DISPLACEMENT TO 2ND OPCODE BYTE @VA14280 03455400
R14280DK: OP2 EQU 2 DISPLACEMENT TO FIRST OPERAND @VA14280 03455600
R14280DK: SPACE ,
R14280DK: CPIPINT3 DS 0H HERE IF CP ASSIST ON CPU, BUT @VA14280*
R14280DK: WRONG LEVEL @VA14280
R14280DK: NI CPSTAT2,255-CPASTON SET FLAG, WILL SEND @VA14280*
R14280DK: MESSAGE LATER @VA14280
R14280DK: ./ D 620000
R14280DK: ./ D 1988000 1989000
R14280DK: ./ R 1991000 1992000 $ 1991000 1000
R14280DK: CPATFREE DC V(DMKFREE) E614 @VA14280 01991000
R14280DK: CPATFRET DC V(DMKFRET) E615 @VA14280 01992000
R14280DK: ./ R 2115000 2116000 $ 2115100
R14280DK: DC C' NOT SUPPORTED - CP ASSIST DISABLED' @VA14280 02115000
R14280DK: ./ R 2807000 2808000 $ 2807000 400
R14280DK: * IF CP ASSIST WAS AVAILABLE ON THE MACHINE, BUT IT IS THE WRONG
R14280DK: * LEVEL, WE SHOULD SEND A MESSAGE.
R14280DK: TM CPSTAT2,CPASTAVL+CPASTON CHECK AVAIL. BITS @VA14280 02807000
R14280DK: BNM WARMTEST ALL IS OK, NO MESSAGE 02808000
R14280DK: NI CPSTAT2,255-CPASTAVL TURN IT OFF NOW
R14280DK: ./ D 2810000 2823000
R14280DK: ./ D 3453000 3455700
BEGIN APPLY >>> ./ R 312000 $ 312000 500
END APPLY >>> ./ R 312000 $ 312000 500
BEGIN APPLY >>> ./ I 610000 $ 610200 200
END APPLY >>> ./ I 610000 $ 610200 200
BEGIN APPLY >>> ./ R 616000 $ 616000 10
END APPLY >>> ./ R 616000 $ 616000 10
BEGIN APPLY >>> ./ D 620000
END APPLY >>> ./ D 620000
BEGIN APPLY >>> ./ D 1988000 1989000
END APPLY >>> ./ D 1988000 1989000
BEGIN APPLY >>> ./ R 1991000 1992000 $ 1991000 1000
END APPLY >>> ./ R 1991000 1992000 $ 1991000 1000
BEGIN APPLY >>> ./ R 2115000 2116000 $ 2115100
END APPLY >>> ./ R 2115000 2116000 $ 2115100
BEGIN APPLY >>> ./ R 2807000 2808000 $ 2807000 400
END APPLY >>> ./ R 2807000 2808000 $ 2807000 400
BEGIN APPLY >>> ./ D 2810000 2823000
END APPLY >>> ./ D 2810000 2823000
BEGIN APPLY >>> ./ D 3453000 3455700
END APPLY >>> ./ D 3453000 3455700
Update Succeeded
Update Execution Time 70 milliseconds.
R11813DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R11813DK: ./ I 1442000 $ 1442300 300 00001000
R11813DK: S R2,=A(DMKSLC) MINUS THE V=R SIZE @VA11813 00002000
R11813DK: * R2 CONTAINS THE REAL CP STORAGE SIZE MINUS THE V=R AREA 00003000
R11813DK: ./ I 1459000 $ 1459080 80 00004000
R11813DK: CL R1,=A(X'FFF000') STORAGE OVER 16M VIRTUAL? @VA11813 00005000
R11813DK: BNH VBUFFOK NO WE ARE OK @VA11813 00006000
R11813DK: L R1,=A(X'FFF000') SET VIRTUAL STOR TO 16M @VA11813 00007000
R11813DK: LR R0,R1 INTO R0 ALSO @VA11813 00008000
R11813DK: S R0,=A(DMKCKP) MINUS THE END OF THE CP NUC @VA11813 00009000
R11813DK: BNP CPI955 ERROR-CP IS TOO LARGE @VA11813 00010000
R11813DK: SRL R0,15 NUMBER OF VIRTUAL BUFFERS @VA11813 00011000
R11813DK: * DIVIDED BY 8 00012000
R11813DK: C R0,F16 AT LEAST 128 VIRTUAL BUFFERS? @VA11813 00013000
R11813DK: BL CPI955 NOT ENOUGH STOR FOR CP @VA11813 00014000
R11813DK: STC R0,0(,R3) STORE VALUE IN DMKPGUBN @VA11813 00015000
R11813DK: VBUFFOK EQU * @VA11813 00016000
R11813DK: ./ I 1794000 $ 1794100 100 00017000
R11813DK: USING DMKCPINT,R12,R13 MUST SPECIFY THIS SINCE WE @VA11813 00018000
R11813DK: * CAN COME HERE 00019000
R11813DK: * FROM VBUFF ROUTINE 00020000
R11813DK: LM R12,R13,BASEREGS SET UP BASE REGISTERS @VA11813 00021000
R11813DK: USING DMKCPIEM,R12,R13 NOW BASE REGS ARE OK @VA11813 00022000
R11813DK: L R11,ASYSOP POINT TO OPERATOR VMBLOK @VA11813 00023000
BEGIN APPLY >>> ./ I 1442000 $ 1442300 300 00001000
END APPLY >>> ./ I 1442000 $ 1442300 300 00001000
BEGIN APPLY >>> ./ I 1459000 $ 1459080 80 00004000
END APPLY >>> ./ I 1459000 $ 1459080 80 00004000
BEGIN APPLY >>> ./ I 1794000 $ 1794100 100 00017000
END APPLY >>> ./ I 1794000 $ 1794100 100 00017000
Update Succeeded
Update Execution Time 31 milliseconds.
R13167DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R13167DK: ./ R 03289000 $ 3289000 500 00001000
R13167DK: WRTOUT LA R6,20 TRY 20 TIMES IF I/O ERROR @VA13167 00002000
R13167DK: GETCCPD LR R2,R1 SAVE THE ADDR IN R2 @VA13167 00003000
R13167DK: ./ R 03294000 $ 3294000 1000 00004000
R13167DK: B CPI4 TERMINATE SYS - SPACE NOT AVAIL @VA13167 00005000
R13167DK: ./ R 03299000 $ 3299000 300 00006000
R13167DK: BZ TRANSLP WRITE SUCCESSFUL @VA13167 00007000
R13167DK: BCT R6,GETCCPD IF FATAL ERROR, TRY ANOTHER CCPD @VA13167 00008000
R13167DK: ABEND 4 ABEND 4 - PAGING ERRORS @VA13167 00009000
BEGIN APPLY >>> ./ R 03289000 $ 3289000 500 00001000
END APPLY >>> ./ R 03289000 $ 3289000 500 00001000
BEGIN APPLY >>> ./ R 03294000 $ 3294000 1000 00004000
END APPLY >>> ./ R 03294000 $ 3294000 1000 00004000
BEGIN APPLY >>> ./ R 03299000 $ 3299000 300 00006000
END APPLY >>> ./ R 03299000 $ 3299000 300 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R13364DK
Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
R13364DK: ./ R 03274000 03275000 $ 3274000 400 11/04/81 11:14:37
R13364DK: * 03274000
R13364DK: * CHECK IF A SYMBOL TABLE (DMKSYM) EXISTS. IF ONE DOES, 03274400
R13364DK: * WRITE IT OUT TO THE PAGING DEVICE TO ENSURE WE HAVE A 03274800
R13364DK: * COPY OF IT. IN ADDITION, WRITE OUT MODULE DMKVMI. 03275200
R13364DK: * READ IN ALL PAGABLE MODULES BETWEEN DMKSAV AND 03275600
R13364DK: ./ I 03277000 $ 3277090 90 11/04/81 11:14:37
R13364DK: L R1,=A(DMKSYM) GET ADDR OF SYMBOL TABLE @VA13364 03277090
R13364DK: LTR R1,R1 DO WE HAVE ONE @VA13364 03277180
R13364DK: BZ GETVMI NO, GO TO GET DMKVMI MODULE @VA13364 03277270
R13364DK: BAL R3,WRTOUT GO WRITE OUT THE SYMBOL TABLE @VA13364 03277360
R13364DK: GETVMI DS 0H @VA13364 03277450
R13364DK: L R1,=A(DMKVMI) GET ADDR OF DMKVMI @VA13364 03277540
R13364DK: LTR R1,R1 MAKE SURE WE HAVE A DMKVMI @VA13364 03277630
R13364DK: BZ STRTLOOP DON'T HAVE A VMI, SKIP THIS @VA13364 03277720
R13364DK: BAL R3,WRTOUT GO WRITE OUT THE SYMBOL TABLE @VA13364 03277810
R13364DK: STRTLOOP DS 0H @VA13364 03277900
R13364DK: ./ R 03283000 $ 3283000 1000 11/04/81 11:14:37
R13364DK: BE TRANSLP YES, NO NEED TO WRITE IT AGAIN @VA13364 03283000
R13364DK: ./ R 03285000 $ 3285000 1000 11/04/81 11:14:37
R13364DK: BE TRANSLP YES, NO NEED TO WRITE IT AGAIN @VA13364 03285000
R13364DK: ./ R 03299000 $ 3299000 300 11/04/81 11:14:37
R13364DK: BZR R3 WRITE SUCCESSFUL,RETURN TO CALLER@VA13364 03299000
BEGIN APPLY >>> ./ R 03274000 03275000 $ 3274000 400 11/04/81 11:14:37
END APPLY >>> ./ R 03274000 03275000 $ 3274000 400 11/04/81 11:14:37
BEGIN APPLY >>> ./ I 03277000 $ 3277090 90 11/04/81 11:14:37
END APPLY >>> ./ I 03277000 $ 3277090 90 11/04/81 11:14:37
BEGIN APPLY >>> ./ R 03283000 $ 3283000 1000 11/04/81 11:14:37
END APPLY >>> ./ R 03283000 $ 3283000 1000 11/04/81 11:14:37
BEGIN APPLY >>> ./ R 03285000 $ 3285000 1000 11/04/81 11:14:37
END APPLY >>> ./ R 03285000 $ 3285000 1000 11/04/81 11:14:37
BEGIN APPLY >>> ./ R 03299000 $ 3299000 300 11/04/81 11:14:37
END APPLY >>> ./ R 03299000 $ 3299000 300 11/04/81 11:14:37
Update Succeeded
Update Execution Time 23 milliseconds.
HRC004DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC004DK: ./ R 01926000 $ 1926290 290 02/11/02 09:38:08
HRC004DK: DC AL1(BLKMPX+NOSSKCK) HRC004DK 01926000
HRC004DK: DC AL1(PAGE4K,CKCMASK,INTMASK+KEYMASK) HRC004DK 01926000
HRC004DK: ./ R 02080000 $ 2080290 290 02/11/02 09:38:08
HRC004DK: MFAONLY DC AL1(BLKMPX+NOSSKCK) HRC004DK 02080000
HRC004DK: DC AL1(PAGE4K,MFAMASK,N0) MFA ONLY FOR CR0 HRC004DK 02080000
BEGIN APPLY >>> ./ R 01926000 $ 1926290 290 02/11/02 09:38:08
END APPLY >>> ./ R 01926000 $ 1926290 290 02/11/02 09:38:08
BEGIN APPLY >>> ./ R 02080000 $ 2080290 290 02/11/02 09:38:08
END APPLY >>> ./ R 02080000 $ 2080290 290 02/11/02 09:38:08
Update Succeeded
Update Execution Time 39 milliseconds.
HRC008DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC008DK: ./ R 02787000 $ 2787490 490 02/08/06 16:13:31
HRC008DK: TLOOP1 L R0,=F'40000' FIX FOR FASTER PROCESSORS HRC008DK 02787000
BEGIN APPLY >>> ./ R 02787000 $ 2787490 490 02/08/06 16:13:31
END APPLY >>> ./ R 02787000 $ 2787490 490 02/08/06 16:13:31
Update Succeeded
Update Execution Time 31 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ R 00486080 $ 486090 10 01/26/06 18:16:47
HRC011DK: XC CPISNS,CPISNS CLEAR DATA AREA HRC011DK 00486090
HRC011DK: ./ R 01131000 01132000 $ 1131390 390 01/26/06 18:16:47
HRC011DK: CLI RDEVTYPE,TYP3380 OK - MOUNTING A 3380 ?? HRC011DK 01131390
HRC011DK: BE TEST3380 YES - CONTINUE -- HRC011DK 01131780
HRC011DK: CLI RDEVTYPE,TYP2305 OK - MOUNTING A 2305 ?? HRC011DK 01132170
HRC011DK: BNE TEST3340 NO -- CONTINUE -- HRC011DK 01132560
HRC011DK: ./ R 01138000 $ 1138490 490 01/26/06 18:16:47
HRC011DK: XC CPISNS,CPISNS CLEAR DATA AREA HRC011DK 01138490
HRC011DK: ./ I 01148000 $ 1148100 100 01/26/06 18:16:47
HRC011DK: TEST3380 DS 0H HRC011DK 01148100
HRC011DK: XC CPISNS,CPISNS CLEAR DATA AREA HRC011DK 01148200
HRC011DK: MVC CAW(4),=A(CPISNSE4) SETUP FOR E4 SENSE ID HRC011DK 01148300
HRC011DK: BAL R14,SNSIOR GO READ HRC011DK 01148400
HRC011DK: MVC RDEVMDL,CPISNSB6 HRC011DK 01148500
HRC011DK: B CPISTCAW CONTINUE HRC011DK 01148600
HRC011DK: ./ R 01567500 $ 1567690 190 01/26/06 18:16:47
HRC011DK: SNSIOR LA R1,SENRETCT LOAD RETRY COUNT HRC011DK 01567690
HRC011DK: ./ R 01875000 $ 1875490 490 01/26/06 18:16:47
HRC011DK: CPICCW1 CCW X'04',CPISNS,SILI,32 SENSE UP TO 32 BYTES HRC011DK 01875490
HRC011DK: ./ I 01878000 $ 1878500 500 01/26/06 18:16:47
HRC011DK: CPISNSE4 CCW X'E4',CPISNS,SILI,7 SENSE ID HRC011DK 01878500
HRC011DK: ./ R 01975000 $ 1975090 90 01/26/06 18:16:47
HRC011DK: CPISNS DC 32X'00' SENSE DATA FIELD EXTENDED HRC011DK 01975090
HRC011DK: CPISNSB0 EQU CPISNS+00 HRC011DK 01975180
HRC011DK: CPISNSB1 EQU CPISNS+01 HRC011DK 01975270
HRC011DK: CPISNSB2 EQU CPISNS+02 HRC011DK 01975360
HRC011DK: CPISNSB3 EQU CPISNS+03 HRC011DK 01975450
HRC011DK: CPISNSB4 EQU CPISNS+04,2 HRC011DK 01975540
HRC011DK: CPISNSB6 EQU CPISNS+06 HRC011DK 01975630
BEGIN APPLY >>> ./ R 00486080 $ 486090 10 01/26/06 18:16:47
END APPLY >>> ./ R 00486080 $ 486090 10 01/26/06 18:16:47
BEGIN APPLY >>> ./ R 01131000 01132000 $ 1131390 390 01/26/06 18:16:47
END APPLY >>> ./ R 01131000 01132000 $ 1131390 390 01/26/06 18:16:47
BEGIN APPLY >>> ./ R 01138000 $ 1138490 490 01/26/06 18:16:47
END APPLY >>> ./ R 01138000 $ 1138490 490 01/26/06 18:16:47
BEGIN APPLY >>> ./ I 01148000 $ 1148100 100 01/26/06 18:16:47
END APPLY >>> ./ I 01148000 $ 1148100 100 01/26/06 18:16:47
BEGIN APPLY >>> ./ R 01567500 $ 1567690 190 01/26/06 18:16:47
END APPLY >>> ./ R 01567500 $ 1567690 190 01/26/06 18:16:47
BEGIN APPLY >>> ./ R 01875000 $ 1875490 490 01/26/06 18:16:47
END APPLY >>> ./ R 01875000 $ 1875490 490 01/26/06 18:16:47
BEGIN APPLY >>> ./ I 01878000 $ 1878500 500 01/26/06 18:16:47
END APPLY >>> ./ I 01878000 $ 1878500 500 01/26/06 18:16:47
BEGIN APPLY >>> ./ R 01975000 $ 1975090 90 01/26/06 18:16:47
END APPLY >>> ./ R 01975000 $ 1975090 90 01/26/06 18:16:47
Update Succeeded
Update Execution Time 78 milliseconds.
HRC015DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC015DK: ./ R 01179000
HRC015DK: CLC CPIATABL(3),=C'CMS' ANY CMS HEADER? HRC015DK 01179000
BEGIN APPLY >>> ./ R 01179000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01179000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC016DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC016DK: ./ I 03412000 $ 3412200 200 02/20/06 13:05:07
HRC016DK: LA R7,9 UP TO NINE AUTOLOG USERS HRC016DK 03412200
HRC016DK: LA R5,C'1' START WITH ONE C'1' HRC016DK 03412400
HRC016DK: AUTOLALL EQU * HRC016DK 03412600
HRC016DK: ./ R 03415000 03417000 $ 3415290 290 02/20/06 13:05:07
HRC016DK: STC R5,AUTOUSR+7 SAVE NUMBER HRC016DK 03415290
HRC016DK: XC AUTOPSRD,AUTOPSRD CLEAR PASSWORD HRC016DK 03415580
HRC016DK: LA R0,17 LENGTH OF COMMAND HRC016DK 03416000
HRC016DK: ST R0,AUTOLEN HRC016DK
HRC016DK: LA R0,8 LENGTH OF USERID HRC016DK 03416000
HRC016DK: LA R1,AUTOUSR AUTOLOG USERID HRC016DK 03417490
HRC016DK: ST R1,AUTOSTRT HRC016DK
HRC016DK: ./ R 03420000 $ 3420190 190 02/20/06 13:05:07
HRC016DK: BNZ NOAUTOLG NO, BYPASS LOGON HRC016DK 03420190
HRC016DK: CLC AUTOUSR(8),UDIRUSER-UDIRBLOK(R2) IS THIS IT HRC016DK 03420380
HRC016DK: BNE NOAUTOLG NO, BYPASS LOGON HRC016DK 03420570
HRC016DK: ./ I 03423000 $ 3423200 200 02/20/06 13:05:07
HRC016DK: NOAUTOLG EQU * HRC016DK 03423200
HRC016DK: LA R5,1(,R5) INCREMENT BY 1 HRC016DK 03423400
HRC016DK: BCT R7,AUTOLALL HRC016DK 03423600
HRC016DK: ./ R 03489000 $ 3489490 490 02/20/06 13:05:07
HRC016DK: AUTOUSR DC CL9'AUTOLOG1 ' USERID TO BE LOGGED ON HRC016DK 03489490
HRC016DK: ./ R 03492000 03493000 $ 3492590 590 02/20/06 13:05:07
HRC016DK: AUTOSTRT DC A(AUTOUSR) HRC016DK 03492000
HRC016DK: AUTOLEN DC F'17' NO. CARACTERS IN BUFFER HRC016DK 03493000
BEGIN APPLY >>> ./ I 03412000 $ 3412200 200 02/20/06 13:05:07
END APPLY >>> ./ I 03412000 $ 3412200 200 02/20/06 13:05:07
BEGIN APPLY >>> ./ R 03415000 03417000 $ 3415290 290 02/20/06 13:05:07
END APPLY >>> ./ R 03415000 03417000 $ 3415290 290 02/20/06 13:05:07
BEGIN APPLY >>> ./ R 03420000 $ 3420190 190 02/20/06 13:05:07
END APPLY >>> ./ R 03420000 $ 3420190 190 02/20/06 13:05:07
BEGIN APPLY >>> ./ I 03423000 $ 3423200 200 02/20/06 13:05:07
END APPLY >>> ./ I 03423000 $ 3423200 200 02/20/06 13:05:07
BEGIN APPLY >>> ./ R 03489000 $ 3489490 490 02/20/06 13:05:07
END APPLY >>> ./ R 03489000 $ 3489490 490 02/20/06 13:05:07
BEGIN APPLY >>> ./ R 03492000 03493000 $ 3492590 590 02/20/06 13:05:07
END APPLY >>> ./ R 03492000 03493000 $ 3492590 590 02/20/06 13:05:07
Update Succeeded
Update Execution Time 31 milliseconds.
HRC019DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC019DK: ./ R 02143000
HRC019DK: CPIPLC DC C' HRC ' PLC NO FROM DMKCPEID HRC019DK 02143100
HRC019DK: CPIHRC DC C' /' HRC VERSION NUMBER FROM CPEID HRC019DK 02143200
HRC019DK: CPIWHO DC C' ; ' INITIALS FROM CPEID HRC019DK 02143300
HRC019DK: ./ I 02287000
HRC019DK: MVC CPIHRC(4),8(R1) MOVE IN THE HRC VERSION HRC019DK 02287100
HRC019DK: MVC CPIWHO(3),12(R1) WHO DONE IT HRC019DK 02287200
HRC019DK: ./ D 02583000 02584000
HRC019DK: ./ I 02601000
HRC019DK: STH R0,CPIATABL+130 SAVE THIS LENGTH HRC019DK 02601100
HRC019DK: MVC CPIATABL+133(40),CPIATABL SET ASIDE MOMENTARILY HRC019DK 02601200
HRC019DK: CLC =CL4'WRM ',CPID IPL ON A WARM MACHINE? HRC019DK 02601300
HRC019DK: BE NOTCHNG YES--DON'T ASK FOR CLOCK CHANGE. HRC019DK 02601400
HRC019DK: XC CPABEND,CPABEND NO--ZERO ABEND CODE FOR Q CPSYS HRC019DK 02601500
HRC019DK: ./ I 02632000
HRC019DK: * HERE TO INITIALIZE RESPONSES TO 'QUERY CPLEVEL' CMD 02632010
HRC019DK: LA R0,STMSGL+21 COMPUTE SIZE PLUS SOME SLOP AREA HRC019DK 02632020
HRC019DK: AH R0,CPIATABL+130 LENGTH OF 2ND MSG HRC019DK 02632030
HRC019DK: SRL R0,3 COMPUTE SIZE FOR FREE HRC019DK 02632040
HRC019DK: CALL DMKFREE ALLOCATE QCP STATUS BLOCK HRC019DK 02632050
HRC019DK: USING QCPBLOK,R1 HRC019DK 02632060
HRC019DK: ST R1,QCPSTAT SAVE ITS ADDRESS IN PSA HRC019DK 02632070
HRC019DK: LA R2,STMSGL-5 LENGTH OF FIRST MSG HRC019DK 02632080
HRC019DK: LA R3,QCPBUF ADDRESS OF FIRST MSG HRC019DK 02632090
HRC019DK: STM R2,R3,QCPMSG1 SAVE IN QCPBLOK HRC019DK 02632100
HRC019DK: BCT R2,*+10 MOVE IN THE FIRST MSG HRC019DK 02632110
HRC019DK: MVC 0(*-*,R3),STMSG+3 ... HRC019DK 02632120
HRC019DK: EX R2,*-6 ... HRC019DK 02632130
HRC019DK: LA R3,1(R2,R3) COMPUTE 2ND MSG ADDR HRC019DK 02632140
HRC019DK: LH R2,CPIATABL+130 GET LENGTH OF 2ND MSG HRC019DK 02632150
HRC019DK: AL R2,F3 MAKE MSG 3 BYTES LONGER HRC019DK 02632160
HRC019DK: STM R2,R3,QCPMSG2 SAVE IN QCPBLOK HRC019DK 02632170
HRC019DK: BCT R2,*+10 MOVE IN THE 2ND MSG HRC019DK 02632180
HRC019DK: MVC 0(*-*,R3),CPIATABL+130 ... HRC019DK 02632190
HRC019DK: EX R2,*-6 ... HRC019DK 02632200
HRC019DK: MVC 0(6,R3),=C'IPL AT' ALTER SLIGHTLY FOR QUERY HRC019DK 02632210
HRC019DK: DROP R1 HRC019DK 02632220
HRC019DK: EJECT , HRC019DK 02632230
HRC019DK: ./ I 03506000
HRC019DK: COPY QCPBLOK HRC019DK 03506100
BEGIN APPLY >>> ./ R 02143000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 02143000
BEGIN APPLY >>> ./ I 02287000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 02287000
BEGIN APPLY >>> ./ D 02583000 02584000
END APPLY >>> ./ D 02583000 02584000
BEGIN APPLY >>> ./ I 02601000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 02601000
BEGIN APPLY >>> ./ I 02632000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 02632000
BEGIN APPLY >>> ./ I 03506000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 03506000
Update Succeeded
Update Execution Time 47 milliseconds.
HRC020DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC020DK: ./ R 02207000 02208000 $ 02207000 00002000 00001000
HRC020DK: DUPMSG DC C'DMKCPI954E DASD ' HRC020DK 00002000
HRC020DK: ./ D 02214000 02214000 00003000
BEGIN APPLY >>> ./ R 02207000 02208000 $ 02207000 00002000 00001000
END APPLY >>> ./ R 02207000 02208000 $ 02207000 00002000 00001000
BEGIN APPLY >>> ./ D 02214000 02214000 00003000
END APPLY >>> ./ D 02214000 02214000 00003000
Update Succeeded
Update Execution Time 39 milliseconds.
HRC028DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC028DK: ./ R 00321000 $ 321090 90 02/25/06 12:24:01
HRC028DK: * DMKCPI957I STORAGE SIZE = NNNNN K, NUCLEUS = NNNNN K, HRC028DK 00321090
HRC028DK: * DYNAMIC PAGING = NNNNN K, TRACE TABLE = NNNN K, HRC028DK 00321180
HRC028DK: * FREE STORAGE = NNNN K, VIRTUAL=REAL = NNNNN K HRC028DK 00321270
HRC028DK: * DMKCPI966I INITIALIZATION COMPLETE HRC028DK 00321360
HRC028DK: * DMKCPI971I SYSTEM IS UNIPROCESSOR GENERATED HRC028DK 00321450
HRC028DK: * DMKCPI971I SYSTEM IS ATTACHED PROCESSOR GENERATED HRC028DK 00321540
HRC028DK: * DMKCPI971I SYSTEM IS MULTIPROCESSOR GENERATED HRC028DK 00321630
HRC028DK: ./ R 01781000 01782000 $ 1781590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(SHUTM1L) GET MESSAGE LENGTH HRC028DK 01781590
HRC028DK: L R1,=A(SHUTM1) GET MESSAGE PTR HRC028DK 01782180
HRC028DK: ./ R 01784000 01785000 $ 1784590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(SHUTM2L) GET MESSAGE LENGTH HRC028DK 01784590
HRC028DK: L R1,=A(SHUTM2) GET MESSAGE PTR HRC028DK 01785180
HRC028DK: ./ R 01795000 01796000 $ 1795590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(CPI955LN) LENGTH OF MESSAGE HRC028DK 01795590
HRC028DK: L R1,=A(CPI955MG) ADDRESS OF THE MESSAGE HRC028DK 01796180
HRC028DK: ./ I 01978000 $ 1978200 200 02/25/06 12:24:01
HRC028DK: SPACE , HRC028DK 01978200
HRC028DK: * KEEP IN THIS ORDER !! HRC028DK 01978400
HRC028DK: WARMFLAG DC X'00' WARM START FLAGS2 HRC028DK 01978600
HRC028DK: ./ I 02028000 $ 2028500 500 02/25/06 12:24:01
HRC028DK: KEYSET2 OI WARMFLAG,0 EXECUTED OI TO TURN FLAGS ON HRC028DK 02028500
HRC028DK: ./ I 02030000 $ 2030070 70 02/25/06 12:24:01
HRC028DK: COLD EQU X'01' FLAGS IN WARMCOLD HRC028DK 02030070
HRC028DK: WARM EQU X'02' HRC028DK 02030140
HRC028DK: OTHERFLG EQU X'04' HRC028DK 02030210
HRC028DK: SHUTDOWN EQU X'08' HRC028DK 02030280
HRC028DK: WARMAUTO EQU X'10' HRC028DK 02030350
HRC028DK: CKPT EQU X'20' HRC028DK 02030420
HRC028DK: FORCE EQU X'40' HRC028DK 02030490
HRC028DK: SPACE 1 HRC028DK 02030000
HRC028DK: DISABLE EQU X'01' FLAGS IN WARMFLAG HRC028DK 02030560
HRC028DK: DRAIN EQU X'02' HRC028DK 02030630
HRC028DK: NOAUTOLG EQU X'04' HRC028DK 02030700
HRC028DK: SHUTFLGS EQU WARM+COLD+CKPT+FORCE+OTHERFLG+SHUTDOWN HRC028DK 02030770
HRC028DK: SPACE 2 , HRC028DK 02030840
HRC028DK: ./ R 02033000 02037000 $ 2033690 690 02/25/06 12:24:01
HRC028DK: DC CL8'CKPT',AL1(CKPT,WARM+COLD+CKPT+FORCE),H'3' HRC028DK 02033690
HRC028DK: DC CL8'FORCE',AL1(FORCE,WARM+COLD+CKPT+FORCE),H'0' HRC028DK 02034380
HRC028DK: DC CL8'SHUTDOWN',AL1(SHUTDOWN,SHUTFLGS),H'7' HRC028DK 02035070
HRC028DK: WSKYFLG2 DC CL8'NOAUTOLO',AL1(NOAUTOLG,NOAUTOLG),H'5' HRC028DK 02035760
HRC028DK: DC CL8'DISABLE ',AL1(DISABLE,DISABLE),H'1' HRC028DK 02036450
HRC028DK: WSKYTABE DC CL8'DRAIN ',AL1(DRAIN,DRAIN),H'1' HRC028DK 02037140
HRC028DK: ./ D 02098000 02110000 02/25/06 12:24:01
HRC028DK: ./ R 02113000 $ 2113490 490 02/25/06 12:24:01
HRC028DK: DC C'DMKCPI185E CP Assist level ' HRC028DK 02113490
HRC028DK: ./ R 02115100 $ 2115990 890 02/25/06 12:24:01
HRC028DK: DC C' not supported - CP Assist disabled' HRC028DK 02115990
HRC028DK: ./ R 02121000 $ 2121490 490 02/25/06 12:24:01
HRC028DK: DC C'DMKCPI951I CP VOLID ' HRC028DK 02121490
HRC028DK: ./ R 02123000 $ 2123490 490 02/25/06 12:24:01
HRC028DK: DC C' not mounted' HRC028DK 02123490
HRC028DK: ./ R 02130000 $ 2130490 490 02/25/06 12:24:01
HRC028DK: DC C'K System Storage' HRC028DK 02130490
HRC028DK: ./ D 02134000 02137000 02/25/06 12:24:01
HRC028DK: ./ R 02140000 02141000 $ 2140590 590 02/25/06 12:24:01
HRC028DK: DC C'VM/370 Version ' HRC028DK 02140590
HRC028DK: CPIVER DC C' Level ' VERSION NO FROM DMKCPEID HRC028DK 02141180
HRC028DK: ./ R 02151000 02164000 $ 2151690 690 02/25/06 12:24:01
HRC028DK: ALOCMSG EQU * HRC028DK 02151690
HRC028DK: DC X'15' HRC028DK 02152380
HRC028DK: DC C'DMKCPI957I Storage size = ' HRC028DK 02153070
HRC028DK: ALOCSTOR DC C' ' HRC028DK 02153760
HRC028DK: DC C' K, Nucleus = ' HRC028DK 02154450
HRC028DK: ALOCNUC DC C' ' HRC028DK 02155140
HRC028DK: DC C' K,',X'15' HRC028DK 02155830
HRC028DK: DC C' Dynamic Paging = ' HRC028DK 02156520
HRC028DK: ALOCDYN DC C' ' HRC028DK 02157210
HRC028DK: DC C' K, Trace Table = ' HRC028DK 02157900
HRC028DK: ALOCTRA DC C' ' HRC028DK 02158590
HRC028DK: DC C' K,',X'15' HRC028DK 02159280
HRC028DK: DC C' Free Storage = ' HRC028DK 02159970
HRC028DK: ALOCFREE DC C' ' HRC028DK 02160660
HRC028DK: DC C' K, Virtual=Real = ' HRC028DK 02161350
HRC028DK: ALOCVR DC C' ' HRC028DK 02162040
HRC028DK: DC C' K' HRC028DK 02162730
HRC028DK: DC X'15' HRC028DK 02163420
HRC028DK: ALOCMSGL EQU *-ALOCMSG HRC028DK 02164110
HRC028DK: ./ D 02176000 02205000 02/25/06 12:24:01
HRC028DK: ./ R 02212000 $ 2212490 490 02/25/06 12:24:01
HRC028DK: DC C' not mounted; duplicate of DASD ' HRC028DK 02212490
HRC028DK: ./ R 02217000 $ 2217290 290 02/25/06 12:24:01
HRC028DK: SETMSG DC C'Press "TOD ENABLE SET" key at designated' HRC028DK 02217290
HRC028DK: DC C' instant' HRC028DK 02217580
HRC028DK: ./ R 02220000 $ 2220490 490 02/25/06 12:24:01
HRC028DK: CHNGMSG DC C'Change TOD Clock (Yes|No) :' HRC028DK 02220490
HRC028DK: ./ R 02223000 $ 2223290 290 02/25/06 12:24:01
HRC028DK: OPLGMSG DC C'DMKCPI950A Auto LOGON failed; explicit LOGON' HRC028DK 02223290
HRC028DK: DC C' reguired' HRC028DK 02223580
HRC028DK: ./ R 02226000 $ 2226490 490 02/25/06 12:24:01
HRC028DK: DC C'DMKCPI913I CP owned VOLID ' HRC028DK 02226490
HRC028DK: ./ R 02228000 $ 2228490 490 02/25/06 12:24:01
HRC028DK: DC C' invalid for 3330V' HRC028DK 02228490
HRC028DK: ./ R 02280000 02281000 $ 2280590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(WNGMSGL) GET LENGTH OF RESTART MESSAGE HRC028DK 02280590
HRC028DK: L R1,=A(WNGMSG) GET PTR TO RESTART MESSAGE HRC028DK 02281180
HRC028DK: ./ R 02308000 02309000 $ 2308590 590 02/25/06 12:24:01
HRC028DK: GETDATE L R0,=A(DATEMSGL) GET LENGTH OF DATE MESSAGE HRC028DK 02308590
HRC028DK: L R1,=A(DATEMSG) GET PTR TO DATE MESSAGE HRC028DK 02309180
HRC028DK: ./ R 02349000 02350000 $ 2349590 590 02/25/06 12:24:01
HRC028DK: GETCLOCK L R0,=A(CMSGL) GET LENGTH OF CLOCK MESSAGE HRC028DK 02349590
HRC028DK: L R1,=A(CMSG) GET PTR TO CLOCK MESSAGE HRC028DK 02350180
HRC028DK: ./ I 02677000 $ 2677200 200 02/25/06 12:24:01
HRC028DK: LA R0,MSG971L GET MESSAGE LENGTH HRC028DK 02677200
HRC028DK: L R1,=A(MSG971) POINT TO MESSAGE HRC028DK 02677400
HRC028DK: CALL DMKQCNWT,PARM=NORET+NOTIME HRC028DK 02677600
HRC028DK: ./ R 02796000 02797000 $ 2796590 590 02/25/06 12:24:01
HRC028DK: L R1,=A(TMSGMP) GET MSG PTR. HRC028DK 02796590
HRC028DK: L R0,=A(TMSGMPL) GET MSG LENGTH. HRC028DK 02797180
HRC028DK: ./ R 02801000 02802000 $ 2801590 590 02/25/06 12:24:01
HRC028DK: L R1,=A(TMSG) GET MESSAGE PTR HRC028DK 02801590
HRC028DK: L R0,=A(TMSGL) GET MESSAGE LENGTH HRC028DK 02802180
HRC028DK: ./ R 02837000 02839000 $ 2837690 690 02/25/06 12:24:01
HRC028DK: L R0,=A(AWARML) GET MESSAGE LENGTH HRC028DK 02837690
HRC028DK: L R1,=A(AWARM) GET MESSAGE PTR HRC028DK 02838380
HRC028DK: CALL DMKQCNWT,PARM=NORET+NOAUTO+NOTIME HRC028DK 02839070
HRC028DK: ./ R 02848000 $ 2848290 290 02/25/06 12:24:01
HRC028DK: MVI WARMFLAG,X'00' CLEAR FLAG BYTE HRC028DK 02848290
HRC028DK: MVI WARMCOLD,X'00' CLEAR FLAG BYTE HRC028DK 02848580
HRC028DK: ./ R 02871000 $ 2871190 190 02/25/06 12:24:01
HRC028DK: BL RETRY ... HRC028DK 02871190
HRC028DK: LA R6,WSKYFLG2 GET THE ADDR OF FLG2 OPTIONS HRC028DK 02871380
HRC028DK: CR R7,R6 IS THE A FLG2 OPTION? HRC028DK 02871570
HRC028DK: BNL KEY2FND YES, CONTINUE HRC028DK 02871760
HRC028DK: ./ I 02876000 $ 2876500 500 02/25/06 12:24:01
HRC028DK: KEYCONT EQU * HRC028DK 02876500
HRC028DK: ./ I 02878000 $ 2878100 100 02/25/06 12:24:01
HRC028DK: KEY2FND EQU * HRC028DK 02878100
HRC028DK: OI WARMCOLD,OTHERFLG TURN ON THE OTHER FLG HRC028DK 02878200
HRC028DK: IC R6,8(,R7) GET FLAG BYTE HRC028DK 02878300
HRC028DK: EX R6,KEYSET2 SET IT ON HRC028DK 02878400
HRC028DK: B KEYCONT CONTINUE PROCESSING HRC028DK 02878500
HRC028DK: ./ R 02883000 02884000 $ 2883590 590 02/25/06 12:24:01
HRC028DK: AUTOWRM SLR R2,R2 PASS WARM FLAGS TO HRC028DK 02883590
HRC028DK: ICM R2,B'0011',WARMFLAG DMKWRMST HRC028DK 02884180
HRC028DK: ./ R 02917000 02918000 $ 2917590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(DUMPMSGL) GET MESSAGE LENGTH HRC028DK 02917590
HRC028DK: L R1,=A(DUMPMSG) GET MESSAGE PTR HRC028DK 02918180
HRC028DK: ./ R 03262000 $ 3262490 490 02/25/06 12:24:01
HRC028DK: TM WARMFLAG,DRAIN "DRAIN" SPECIFIED ? HRC028DK 03262490
HRC028DK: ./ R 03340000 03341000 $ 3340590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(CPI959LN) GET LENGTH OF MESSAGE HRC028DK 03340590
HRC028DK: L R1,=A(CPI959MG) GET POINTER TO MESSAGE HRC028DK 03341180
HRC028DK: ./ R 03357000 03358000 $ 3357590 590 02/25/06 12:24:01
HRC028DK: L R0,=A(CPI958LN) SET LENGTH OF MSG HRC028DK 03357590
HRC028DK: L R1,=A(CPI958MG) SET ADDRESS OF MSG HRC028DK 03358180
HRC028DK: ./ R 03369000 03370000 $ 3369590 590 02/25/06 12:24:01
HRC028DK: TM WARMFLAG,DISABLE WAS DISABLE REQUESTED ? HRC028DK 03369590
HRC028DK: BO CPIDSP YES, CONTINUE HRC028DK 03370180
HRC028DK: ./ R 03405000 $ 3405490 490 02/25/06 12:24:01
HRC028DK: L R1,=A(UBADMSG) HRC028DK 03405490
HRC028DK: ./ I 03412600 $ 3412700 100 02/25/06 12:24:01
HRC028DK: TM WARMFLAG,NOAUTOLG WAS NOAUTOLOG REQUESTED? HRC028DK 03412700
HRC028DK: BO CPIUNCK YES, CONTINUE HRC028DK 03412800
HRC028DK: ./ R 03420190 $ 3420270 80 02/25/06 12:24:01
HRC028DK: BNZ NOAUTOL NO, BYPASS LOGON HRC028DK 03420270
HRC028DK: ./ R 03420570 $ 3420760 190 02/25/06 12:24:01
HRC028DK: BNE NOAUTOL NO, BYPASS LOGON HRC028DK 03420760
HRC028DK: ./ R 03423200 $ 3423290 90 02/25/06 12:24:01
HRC028DK: NOAUTOL EQU * HRC028DK 03423290
HRC028DK: ./ I 03425000 $ 3425200 200 02/25/06 12:24:01
HRC028DK: LA R0,INITMSGL GET MESSAGE LENGTH HRC028DK 03425200
HRC028DK: L R1,=A(INITMSG) POINT TO MESSAGE HRC028DK 03425400
HRC028DK: CALL DMKQCNWT,PARM=NORET+NOTIME HRC028DK 03425600
HRC028DK: ./ D 03435000 03437000 02/25/06 12:24:01
HRC028DK: ./ D 03457000 02/25/06 12:24:01
HRC028DK: ./ R 03459000 $ 3459010 10 02/25/06 12:24:01
HRC028DK: EJECT HRC028DK 03459010
HRC028DK: INITMSG EQU * HRC028DK 03459020
HRC028DK: DC X'15' HRC028DK 03459030
HRC028DK: DC C'DMKCPI966I Initialization complete' HRC028DK 03459040
HRC028DK: DC X'15' HRC028DK 03459050
HRC028DK: INITMSGL EQU *-INITMSG HRC028DK 03459060
HRC028DK: SPACE 3 HRC028DK 03459070
HRC028DK: MSG971 EQU * HRC028DK 03459080
HRC028DK: DC X'15' HRC028DK 03459090
HRC028DK: DC C'DMKCPI971I System is ' HRC028DK 03459100
HRC028DK: AIF (NOT &AP).UP971 HRC028DK 03459110
HRC028DK: DC C'Attached ' HRC028DK 03459120
HRC028DK: AGO .MSG971 HRC028DK 03459130
HRC028DK: .UP971 ANOP HRC028DK 03459140
HRC028DK: DC C'Uni' HRC028DK 03459150
HRC028DK: .MSG971 ANOP HRC028DK 03459160
HRC028DK: DC C'processor generated' HRC028DK 03459170
HRC028DK: DC X'15' HRC028DK 03459180
HRC028DK: MSG971L EQU *-MSG971 HRC028DK 03459190
HRC028DK: SPACE 3 HRC028DK 03459200
HRC028DK: UBADMSG DC C'DMKCPI229I User of MONITOR does not exist' HRC028DK 03459210
HRC028DK: CPI958MG DC X'151515' HRC028DK 03459220
HRC028DK: DC C'DMKCPI958I Attached processor' HRC028DK 03459230
HRC028DK: DC C' now operational' HRC028DK 03459240
HRC028DK: DC X'1515' HRC028DK 03459250
HRC028DK: CPI958LN EQU *-CPI958MG HRC028DK 03459260
HRC028DK: CPI959MG DC X'151515' HRC028DK 03459270
HRC028DK: DC C'DMKCPI959W Attached processor not online' HRC028DK 03459280
HRC028DK: DC X'151515' HRC028DK 03459290
HRC028DK: CPI959LN EQU *-CPI959MG HRC028DK 03459300
HRC028DK: TMSGMP DC X'151515' HRC028DK 03459310
HRC028DK: DC C'Turn on the MAIN processor''s Interval Timer' HRC028DK 03459320
HRC028DK: DC X'1515' HRC028DK 03459330
HRC028DK: TMSGMPL EQU *-TMSGMP HRC028DK 03459340
HRC028DK: CPI955MG DC X'151515' HRC028DK 03459350
HRC028DK: DC C'DMKCPI955W Insufficient storage for VM/370' HRC028DK 03459360
HRC028DK: DC X'1515' HRC028DK 03459370
HRC028DK: CPI955LN EQU *-CPI955MG HRC028DK 03459380
HRC028DK: WNGMSG DC X'151515' HRC028DK 03459390
HRC028DK: DC C'VM/370 System Restart' HRC028DK 03459400
HRC028DK: WNGMSGL EQU *-WNGMSG HRC028DK 03459410
HRC028DK: SPACE , HRC028DK 03459420
HRC028DK: TMSG DC C'Turn on the Interval Timer' HRC028DK 03459430
HRC028DK: TMSGL EQU *-TMSG HRC028DK 03459440
HRC028DK: SPACE , HRC028DK 03459450
HRC028DK: AWARM DC C'Start ((Warm|Force|COLD|CKPT) ' HRC028DK 03459460
HRC028DK: DC C'(DRain) (DIsable) (NOAUTOlo))' HRC028DK 03459470
HRC028DK: DC C' or (SHUTDOWN):' HRC028DK 03459480
HRC028DK: AWARML EQU *-AWARM HRC028DK 03459490
HRC028DK: SPACE , HRC028DK 03459500
HRC028DK: DATEMSG DC C'Set Date MM/DD/YY :' HRC028DK 03459510
HRC028DK: DATEMSGL EQU *-DATEMSG HRC028DK 03459520
HRC028DK: SPACE , HRC028DK 03459530
HRC028DK: CMSG DC C'Set Time HH:MM:SS :' HRC028DK 03459540
HRC028DK: CMSGL EQU *-CMSG HRC028DK 03459550
HRC028DK: SPACE , HRC028DK 03459560
HRC028DK: SHUTM1 DC X'151515' HRC028DK 03459570
HRC028DK: DC C'DMKCPI968I No Warm Start, previous data' HRC028DK 03459580
HRC028DK: DC C' still valid' HRC028DK 03459590
HRC028DK: DC X'1515' HRC028DK 03459600
HRC028DK: SHUTM1L EQU *-SHUTM1 HRC028DK 03459610
HRC028DK: SPACE , HRC028DK 03459620
HRC028DK: SHUTM2 DC C'DMKCPI961W SYSTEM SHUTDOWN COMPLETE' HRC028DK 03459630
HRC028DK: DC X'1515' HRC028DK 03459640
HRC028DK: SHUTM2L EQU *-SHUTM2 HRC028DK 03459650
HRC028DK: SPACE , HRC028DK 03459660
HRC028DK: DUMPMSG DC X'151515' HRC028DK 03459670
HRC028DK: DC C'DMKCPI953I Unable to allocate' HRC028DK 03459680
HRC028DK: DC C' SYSTEM AUTO DUMP' HRC028DK 03459690
HRC028DK: DC X'1515' HRC028DK 03459700
HRC028DK: DUMPMSGL EQU *-DUMPMSG HRC028DK 03459710
HRC028DK: ./ D 03469000 03475000 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 00321000 $ 321090 90 02/25/06 12:24:01
END APPLY >>> ./ R 00321000 $ 321090 90 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 01781000 01782000 $ 1781590 590 02/25/06 12:24:01
END APPLY >>> ./ R 01781000 01782000 $ 1781590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 01784000 01785000 $ 1784590 590 02/25/06 12:24:01
END APPLY >>> ./ R 01784000 01785000 $ 1784590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 01795000 01796000 $ 1795590 590 02/25/06 12:24:01
END APPLY >>> ./ R 01795000 01796000 $ 1795590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 01978000 $ 1978200 200 02/25/06 12:24:01
END APPLY >>> ./ I 01978000 $ 1978200 200 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 02028000 $ 2028500 500 02/25/06 12:24:01
END APPLY >>> ./ I 02028000 $ 2028500 500 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 02030000 $ 2030070 70 02/25/06 12:24:01
END APPLY >>> ./ I 02030000 $ 2030070 70 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02033000 02037000 $ 2033690 690 02/25/06 12:24:01
END APPLY >>> ./ R 02033000 02037000 $ 2033690 690 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 02098000 02110000 02/25/06 12:24:01
END APPLY >>> ./ D 02098000 02110000 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02113000 $ 2113490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02113000 $ 2113490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02115100 $ 2115990 890 02/25/06 12:24:01
END APPLY >>> ./ R 02115100 $ 2115990 890 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02121000 $ 2121490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02121000 $ 2121490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02123000 $ 2123490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02123000 $ 2123490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02130000 $ 2130490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02130000 $ 2130490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 02134000 02137000 02/25/06 12:24:01
END APPLY >>> ./ D 02134000 02137000 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02140000 02141000 $ 2140590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02140000 02141000 $ 2140590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02151000 02164000 $ 2151690 690 02/25/06 12:24:01
END APPLY >>> ./ R 02151000 02164000 $ 2151690 690 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 02176000 02205000 02/25/06 12:24:01
END APPLY >>> ./ D 02176000 02205000 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02212000 $ 2212490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02212000 $ 2212490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02217000 $ 2217290 290 02/25/06 12:24:01
END APPLY >>> ./ R 02217000 $ 2217290 290 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02220000 $ 2220490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02220000 $ 2220490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02223000 $ 2223290 290 02/25/06 12:24:01
END APPLY >>> ./ R 02223000 $ 2223290 290 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02226000 $ 2226490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02226000 $ 2226490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02228000 $ 2228490 490 02/25/06 12:24:01
END APPLY >>> ./ R 02228000 $ 2228490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02280000 02281000 $ 2280590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02280000 02281000 $ 2280590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02308000 02309000 $ 2308590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02308000 02309000 $ 2308590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02349000 02350000 $ 2349590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02349000 02350000 $ 2349590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 02677000 $ 2677200 200 02/25/06 12:24:01
END APPLY >>> ./ I 02677000 $ 2677200 200 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02796000 02797000 $ 2796590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02796000 02797000 $ 2796590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02801000 02802000 $ 2801590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02801000 02802000 $ 2801590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02837000 02839000 $ 2837690 690 02/25/06 12:24:01
END APPLY >>> ./ R 02837000 02839000 $ 2837690 690 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02848000 $ 2848290 290 02/25/06 12:24:01
END APPLY >>> ./ R 02848000 $ 2848290 290 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02871000 $ 2871190 190 02/25/06 12:24:01
END APPLY >>> ./ R 02871000 $ 2871190 190 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 02876000 $ 2876500 500 02/25/06 12:24:01
END APPLY >>> ./ I 02876000 $ 2876500 500 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 02878000 $ 2878100 100 02/25/06 12:24:01
END APPLY >>> ./ I 02878000 $ 2878100 100 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02883000 02884000 $ 2883590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02883000 02884000 $ 2883590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 02917000 02918000 $ 2917590 590 02/25/06 12:24:01
END APPLY >>> ./ R 02917000 02918000 $ 2917590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03262000 $ 3262490 490 02/25/06 12:24:01
END APPLY >>> ./ R 03262000 $ 3262490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03340000 03341000 $ 3340590 590 02/25/06 12:24:01
END APPLY >>> ./ R 03340000 03341000 $ 3340590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03357000 03358000 $ 3357590 590 02/25/06 12:24:01
END APPLY >>> ./ R 03357000 03358000 $ 3357590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03369000 03370000 $ 3369590 590 02/25/06 12:24:01
END APPLY >>> ./ R 03369000 03370000 $ 3369590 590 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03405000 $ 3405490 490 02/25/06 12:24:01
END APPLY >>> ./ R 03405000 $ 3405490 490 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 03412600 $ 3412700 100 02/25/06 12:24:01
END APPLY >>> ./ I 03412600 $ 3412700 100 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03420190 $ 3420270 80 02/25/06 12:24:01
END APPLY >>> ./ R 03420190 $ 3420270 80 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03420570 $ 3420760 190 02/25/06 12:24:01
END APPLY >>> ./ R 03420570 $ 3420760 190 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03423200 $ 3423290 90 02/25/06 12:24:01
END APPLY >>> ./ R 03423200 $ 3423290 90 02/25/06 12:24:01
BEGIN APPLY >>> ./ I 03425000 $ 3425200 200 02/25/06 12:24:01
END APPLY >>> ./ I 03425000 $ 3425200 200 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 03435000 03437000 02/25/06 12:24:01
END APPLY >>> ./ D 03435000 03437000 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 03457000 02/25/06 12:24:01
END APPLY >>> ./ D 03457000 02/25/06 12:24:01
BEGIN APPLY >>> ./ R 03459000 $ 3459010 10 02/25/06 12:24:01
END APPLY >>> ./ R 03459000 $ 3459010 10 02/25/06 12:24:01
BEGIN APPLY >>> ./ D 03469000 03475000 02/25/06 12:24:01
END APPLY >>> ./ D 03469000 03475000 02/25/06 12:24:01
Update Succeeded
Update Execution Time 164 milliseconds.
HRC032DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC032DK: ./ R 02888000 02889000 $ 2888490 490 02/20/06 10:38:00
HRC032DK: B COLDFRCD RC=4, FORCED COLD START HRC032DK 02888490
HRC032DK: B RETRY RC=8 REASK QUESTION HRC032DK 02888980
HRC032DK: COLDFRCD OI WARMCOLD,COLD INDICATE FORCE COLD START BYHRC032DK 02889470
BEGIN APPLY >>> ./ R 02888000 02889000 $ 2888490 490 02/20/06 10:38:00
END APPLY >>> ./ R 02888000 02889000 $ 2888490 490 02/20/06 10:38:00
Update Succeeded
Update Execution Time 39 milliseconds.
HRC033DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC033DK: ./ I 00139000 $ 139300 300 02/20/06 14:20:19
HRC033DK: * DMKSYSUS - ADDRESS OF USER VOLUME LIST HRC033DK 00139300
HRC033DK: * DMKSYSUC - ADDRESS OF USER VOLUME COUNT HRC033DK 00139600
HRC033DK: ./ I 00347000 $ 347500 500 02/20/06 14:20:19
HRC033DK: EXTRN DMKSYSUS,DMKSYSUC HRC033DK 00347500
HRC033DK: ./ R 01192000 $ 1192490 490 02/20/06 14:20:19
HRC033DK: BNE CPIUSRA NO -- CHECK FOR USER VOLUME HRC033DK 01192000
HRC033DK: ./ I 01253000 $ 1253100 100 02/20/06 14:20:19
HRC033DK: CPIUSRA L R11,=A(DMKSYSUS) GET PTR TO USER LIST HRC033DK 01253100
HRC033DK: USING OWNDLIST,R11 HRC033DK 01253200
HRC033DK: L R14,=A(DMKSYSUC) GET PTR TO USER VOLUME COUNTHRC033DK 01253300
HRC033DK: L R14,0(,R14) ... HRC033DK 01253400
HRC033DK: CPIUSR CLC OWNDVSER,RDEVSER IS THIS AN USER VOLUME ?? HRC033DK 01253500
HRC033DK: BE CPIUSRCH FOUND ONE IF EQUAL, PROCESS HRC033DK 01253600
HRC033DK: LA R11,8(,R11) GET NEXT ENTRY HRC033DK 01253700
HRC033DK: BCT R14,CPIUSR HRC033DK 01253800
HRC033DK: ./ R 01255000 $ 1255070 70 02/20/06 14:20:19
HRC033DK: CPIUSRCH EQU * HRC033DK 01255070
HRC033DK: LR R15,R8 GET RDEVBLOK HRC033DK 01255140
HRC033DK: S R15,ARIODV GET DISPLACEMENT HRC033DK 01255210
HRC033DK: SRL R15,3(0) CONVERT TO DOUBLE-WORD INDEX HRC033DK 01255280
HRC033DK: STH R15,OWNDRDEV SET IN USRVLIST HRC033DK 01255350
HRC033DK: OI RDEVFLAG,RDEVSYS MARK AS A SYSTEM VOL HRC033DK 01255420
HRC033DK: S R11,=A(DMKSYSUS) GET DISPLACEMENT FROM START HRC033DK 01255490
HRC033DK: SRL R11,3 OF LIST/LENGTH OF LIST ENTRY HRC033DK 01255560
HRC033DK: STH R11,RDEVCODE SAVE INDEX IN RDEVBLOK HRC033DK 01255630
HRC033DK: B CPIDEVEN FINISHED HRC033DK 01255700
HRC033DK: CPICHAIN EQU * HRC033DK 01255770
BEGIN APPLY >>> ./ I 00139000 $ 139300 300 02/20/06 14:20:19
END APPLY >>> ./ I 00139000 $ 139300 300 02/20/06 14:20:19
BEGIN APPLY >>> ./ I 00347000 $ 347500 500 02/20/06 14:20:19
END APPLY >>> ./ I 00347000 $ 347500 500 02/20/06 14:20:19
BEGIN APPLY >>> ./ R 01192000 $ 1192490 490 02/20/06 14:20:19
END APPLY >>> ./ R 01192000 $ 1192490 490 02/20/06 14:20:19
BEGIN APPLY >>> ./ I 01253000 $ 1253100 100 02/20/06 14:20:19
END APPLY >>> ./ I 01253000 $ 1253100 100 02/20/06 14:20:19
BEGIN APPLY >>> ./ R 01255000 $ 1255070 70 02/20/06 14:20:19
END APPLY >>> ./ R 01255000 $ 1255070 70 02/20/06 14:20:19
Update Succeeded
Update Execution Time 63 milliseconds.
HRC035DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC035DK: ./ I 00627000 $ 627050 50 03/01/06 11:47:01
HRC035DK: AIF (NOT &FRETRAP).NOFTRAP HRC035DK 00627050
HRC035DK: SPACE , HRC035DK 00627100
HRC035DK: *--------------------------------------------------------------HRC035DK 00627150
HRC035DK: * REPLACE CP ASSIST INSTRUCTIONS DSP1, DSP2, UNTFR, FREEX ANDHRC035DK 00627200
HRC035DK: * FRETX WITH NO-OPS. HRC035DK 00627250
HRC035DK: *--------------------------------------------------------------HRC035DK 00627300
HRC035DK: SPACE , HRC035DK 00627350
HRC035DK: L R6,CPATDSP1 GET CP ASSIST INSTRUCTION DSP1 HRC035DK 00627400
HRC035DK: MVC 0(6,R6),NOOP NO-OP THE MICROCODE INSTRUCTION HRC035DK 00627450
HRC035DK: L R6,CPATDSP2 GET CP ASSIST INSTRUCTION DSP2 HRC035DK 00627500
HRC035DK: MVC 0(6,R6),NOOP NO-OP THE MICROCODE INSTRUCTION HRC035DK 00627550
HRC035DK: L R6,CPATUNTF GET CP ASSIST INSTRUCTION UNTFR HRC035DK 00627600
HRC035DK: MVC 0(6,R6),NOOP NO-OP THE MICROCODE INSTRUCTION HRC035DK 00627650
HRC035DK: L R6,CPATFREE GET CP ASSIST INSTRUCTION FREEX HRC035DK 00627700
HRC035DK: MVC 0(6,R6),NOOP NO-OP THE MICROCODE INSTRUCTION HRC035DK 00627750
HRC035DK: L R6,CPATFRET GET CP ASSIST INSTRUCTION FRETX HRC035DK 00627800
HRC035DK: MVC 0(6,R6),NOOP NO-OP THE MICROCODE INSTRUCTION HRC035DK 00627850
HRC035DK: .NOFTRAP ANOP HRC035DK 00627900
HRC035DK: ./ I 01987000 $ 1988000 1000 03/01/06 11:47:01
HRC035DK: NOOP DC X'0700,47000000' NO-OP FOR MICROCODE ASSISTS HRC035DK 01988000
HRC035DK: ./ R 01996000 $ 1996490 490 03/01/06 11:47:01
HRC035DK: CPATUNTF DC V(DMKUNTFR) E605 HRC035DK 01996490
HRC035DK: ./ R 01998000 $ 1998490 490 03/01/06 11:47:01
HRC035DK: CPATDSP1 DC V(DMKDSP1) E607 HRC035DK 01998490
HRC035DK: ./ R 02019000 $ 2019490 490 03/01/06 11:47:01
HRC035DK: CPATDSP2 DC V(DMKDSP2) E611 HRC035DK 02019490
HRC035DK: ./ I 03459180 $ 3459182 2 03/01/06 11:47:01
HRC035DK: AIF (NOT &FRETRAP).FRE971 HRC035DK
HRC035DK: DC C'DMKCPI977I Free Trap Installed',X'15'
HRC035DK: .FRE971 ANOP HRC035DK 03459140
BEGIN APPLY >>> ./ I 00627000 $ 627050 50 03/01/06 11:47:01
END APPLY >>> ./ I 00627000 $ 627050 50 03/01/06 11:47:01
BEGIN APPLY >>> ./ I 01987000 $ 1988000 1000 03/01/06 11:47:01
END APPLY >>> ./ I 01987000 $ 1988000 1000 03/01/06 11:47:01
BEGIN APPLY >>> ./ R 01996000 $ 1996490 490 03/01/06 11:47:01
END APPLY >>> ./ R 01996000 $ 1996490 490 03/01/06 11:47:01
BEGIN APPLY >>> ./ R 01998000 $ 1998490 490 03/01/06 11:47:01
END APPLY >>> ./ R 01998000 $ 1998490 490 03/01/06 11:47:01
BEGIN APPLY >>> ./ R 02019000 $ 2019490 490 03/01/06 11:47:01
END APPLY >>> ./ R 02019000 $ 2019490 490 03/01/06 11:47:01
BEGIN APPLY >>> ./ I 03459180 $ 3459182 2 03/01/06 11:47:01
END APPLY >>> ./ I 03459180 $ 3459182 2 03/01/06 11:47:01
Update Succeeded
Update Execution Time 55 milliseconds.
HRC036DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC036DK: ./ I 00347500 $ 347700 200 02/25/06 12:35:27
HRC036DK: EXTRN DMKSYSIP HRC036DK 00347700
HRC036DK: ./ I 02604000 $ 2604100 100 02/25/06 12:35:27
HRC036DK: L R1,=A(DMKSYSIP) AUTO IPL ? HRC036DK 02604100
HRC036DK: LTR R1,R1 HRC036DK 02604200
HRC036DK: BZ GETCHNG2 HRC036DK 02604300
HRC036DK: TM 0(R1),CPWARM+CPCKPT+CPFORCE+CPCOLD AUTO IPL? HRC036DK 02604400
HRC036DK: BM NOTCHNG YES, DON'T ASK HRC036DK 02604500
HRC036DK: SPACE , HRC036DK 02604600
HRC036DK: GETCHNG2 EQU * HRC036DK 02604700
HRC036DK: ./ I 02831000 $ 2831500 500 02/25/06 12:35:27
HRC036DK: MVI WARMFLAG,X'00' CLEAR FLAG BYTE HRC036DK 02831500
HRC036DK: ./ I 02834000 $ 2834100 100 02/25/06 12:35:27
HRC036DK: L R15,=A(DMKSYSIP) GET INITIAL START TYPE HRC036DK 02834100
HRC036DK: LTR R15,R15 IS IT SPECIFIED ? HRC036DK 02834200
HRC036DK: BZ RETRY NO, CONTINUE HRC036DK 02834300
HRC036DK: TM 0(R15),CPWARM+CPCKPT+CPFORCE+CPCOLD AUTO IPL? HRC036DK 02834400
HRC036DK: BNM RETRY NO, CONTINUE HRC036DK 02834500
HRC036DK: MVC WARMCOLD,0(R15) MOVE TO STARTUP FLAG HRC036DK 02834600
HRC036DK: MVI 0(R15),0 RESET FLAG HRC036DK 02834700
HRC036DK: B AUTOWRM HRC036DK 02834800
HRC036DK: ./ I 02836000 $ 2836500 500 02/25/06 12:35:27
HRC036DK: MVI WARMFLAG,X'00' CLEAR FLAG BYTE HRC036DK 02836500
HRC036DK: MVI WARMCOLD,X'00' CLEAR FLAG BYTE HRC036DK 02837000
HRC036DK: ./ D 02848290 02848580 02/25/06 12:35:27
HRC036DK: ./ I 03495000 $ 3495200 200 02/25/06 12:35:27
HRC036DK: CPCOLD EQU X'01' HRC036DK 03495200
HRC036DK: CPWARM EQU X'02' HRC036DK 03495400
HRC036DK: CPCKPT EQU X'20' HRC036DK 03495600
HRC036DK: CPFORCE EQU X'40' HRC036DK 03495800
BEGIN APPLY >>> ./ I 00347500 $ 347700 200 02/25/06 12:35:27
END APPLY >>> ./ I 00347500 $ 347700 200 02/25/06 12:35:27
BEGIN APPLY >>> ./ I 02604000 $ 2604100 100 02/25/06 12:35:27
END APPLY >>> ./ I 02604000 $ 2604100 100 02/25/06 12:35:27
BEGIN APPLY >>> ./ I 02831000 $ 2831500 500 02/25/06 12:35:27
END APPLY >>> ./ I 02831000 $ 2831500 500 02/25/06 12:35:27
BEGIN APPLY >>> ./ I 02834000 $ 2834100 100 02/25/06 12:35:27
END APPLY >>> ./ I 02834000 $ 2834100 100 02/25/06 12:35:27
BEGIN APPLY >>> ./ I 02836000 $ 2836500 500 02/25/06 12:35:27
END APPLY >>> ./ I 02836000 $ 2836500 500 02/25/06 12:35:27
BEGIN APPLY >>> ./ D 02848290 02848580 02/25/06 12:35:27
END APPLY >>> ./ D 02848290 02848580 02/25/06 12:35:27
BEGIN APPLY >>> ./ I 03495000 $ 3495200 200 02/25/06 12:35:27
END APPLY >>> ./ I 03495000 $ 3495200 200 02/25/06 12:35:27
Update Succeeded
Update Execution Time 47 milliseconds.
HRC201DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC201DK: ./ I 01695000 $ 1695300 300 03/30/06 20:03:04
HRC201DK: L R8,=A(DMKRIOCN) HRC201DK
HRC201DK: MVC 0(4,R8),0(R10) SET AS THE PRIMARY HRC201DK
BEGIN APPLY >>> ./ I 01695000 $ 1695300 300 03/30/06 20:03:04
END APPLY >>> ./ I 01695000 $ 1695300 300 03/30/06 20:03:04
Update Succeeded
Update Execution Time 31 milliseconds.
HRC202DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC202DK: ./ R 02112000 $ 2112690 690 03/30/06 21:43:02
HRC202DK: CPAMSG DC X'15' HRC202DK 02112000
HRC202DK: ./ R 02117000 $ 2117490 490 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 02117000
HRC202DK: ./ R 02120000 $ 2120690 690 03/30/06 21:43:02
HRC202DK: NMSG DC X'15' HRC202DK 02120000
HRC202DK: ./ R 02124000 $ 2124490 490 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 02124000
HRC202DK: ./ R 02127000 $ 2127490 490 03/30/06 21:43:02
HRC202DK: CORMSG DC X'15' HRC202DK 02127000
HRC202DK: ./ R 02131000 $ 2131490 490 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 02131000
HRC202DK: ./ R 02225000 $ 2225690 690 03/30/06 21:43:02
HRC202DK: OWNMSG DC X'15' HRC202DK 02225000
HRC202DK: ./ R 02585000 $ 2585490 490 03/30/06 21:43:02
HRC202DK: MVC CPIATABL(4),=C'Now ' FORMAT TIME MESSAGE HRC202DK 02585000
HRC202DK: ./ R 02632210 $ 2632215 5 03/30/06 21:43:02
HRC202DK: MVC 0(6,R3),=C'IPL at' ALTER SLIGHTLY FOR QUERY HRC202DK 02632210
HRC202DK: ./ R 03459220 $ 3459225 5 03/30/06 21:43:02
HRC202DK: CPI958MG DC X'15' HRC202DK 03459220
HRC202DK: ./ R 03459250 $ 3459255 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459250
HRC202DK: ./ R 03459270 $ 3459275 5 03/30/06 21:43:02
HRC202DK: CPI959MG DC X'15' HRC202DK 03459270
HRC202DK: ./ R 03459290 $ 3459295 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459290
HRC202DK: ./ R 03459310 $ 3459315 5 03/30/06 21:43:02
HRC202DK: TMSGMP DC X'15' HRC202DK 03459310
HRC202DK: ./ R 03459330 $ 3459335 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459330
HRC202DK: ./ R 03459350 $ 3459355 5 03/30/06 21:43:02
HRC202DK: CPI955MG DC X'15' HRC202DK 03459350
HRC202DK: ./ R 03459370 $ 3459375 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459370
HRC202DK: ./ R 03459570 $ 3459575 5 03/30/06 21:43:02
HRC202DK: SHUTM1 DC X'15' HRC202DK 03459570
HRC202DK: ./ R 03459600 $ 3459605 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459600
HRC202DK: ./ R 03459630 03459640 $ 3459636 6 03/30/06 21:43:02
HRC202DK: SHUTM2 DC C'DMKCPI961W System SHUTDOWN complete' HRC202DK 03459630
HRC202DK: DC X'15' HRC202DK 03459640
HRC202DK: ./ R 03459670 $ 3459675 5 03/30/06 21:43:02
HRC202DK: DUMPMSG DC X'15' HRC202DK 03459670
HRC202DK: ./ R 03459700 $ 3459705 5 03/30/06 21:43:02
HRC202DK: DC X'15' HRC202DK 03459700
BEGIN APPLY >>> ./ R 02112000 $ 2112690 690 03/30/06 21:43:02
END APPLY >>> ./ R 02112000 $ 2112690 690 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02117000 $ 2117490 490 03/30/06 21:43:02
END APPLY >>> ./ R 02117000 $ 2117490 490 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02120000 $ 2120690 690 03/30/06 21:43:02
END APPLY >>> ./ R 02120000 $ 2120690 690 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02124000 $ 2124490 490 03/30/06 21:43:02
END APPLY >>> ./ R 02124000 $ 2124490 490 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02127000 $ 2127490 490 03/30/06 21:43:02
END APPLY >>> ./ R 02127000 $ 2127490 490 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02131000 $ 2131490 490 03/30/06 21:43:02
END APPLY >>> ./ R 02131000 $ 2131490 490 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02225000 $ 2225690 690 03/30/06 21:43:02
END APPLY >>> ./ R 02225000 $ 2225690 690 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02585000 $ 2585490 490 03/30/06 21:43:02
END APPLY >>> ./ R 02585000 $ 2585490 490 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 02632210 $ 2632215 5 03/30/06 21:43:02
END APPLY >>> ./ R 02632210 $ 2632215 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459220 $ 3459225 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459220 $ 3459225 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459250 $ 3459255 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459250 $ 3459255 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459270 $ 3459275 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459270 $ 3459275 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459290 $ 3459295 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459290 $ 3459295 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459310 $ 3459315 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459310 $ 3459315 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459330 $ 3459335 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459330 $ 3459335 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459350 $ 3459355 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459350 $ 3459355 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459370 $ 3459375 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459370 $ 3459375 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459570 $ 3459575 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459570 $ 3459575 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459600 $ 3459605 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459600 $ 3459605 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459630 03459640 $ 3459636 6 03/30/06 21:43:02
END APPLY >>> ./ R 03459630 03459640 $ 3459636 6 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459670 $ 3459675 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459670 $ 3459675 5 03/30/06 21:43:02
BEGIN APPLY >>> ./ R 03459700 $ 3459705 5 03/30/06 21:43:02
END APPLY >>> ./ R 03459700 $ 3459705 5 03/30/06 21:43:02
Update Succeeded
Update Execution Time 70 milliseconds.
HRC370DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC370DK: ./ R 02140590 02140590 $ 2140590 07/12/10 20:33:58
HRC370DK: DC C'VM/370 Release ' HRC370DK 02140590
HRC370DK: ./ R 02141180 02141180 $ 2141180 07/12/10 20:33:58
HRC370DK: CPIVER DC C' Hercul' VERSION NO FROM DMKCPEID HRC370DK 02141180
HRC370DK: ./ R 02142000 02142000 $ 2142000 100 07/12/10 20:33:58
HRC370DK: CPILEV DC C' "Six' LEVEL NO FROM DMKCPEID HRC370DK 02142100
HRC370DK: ./ R 02143100 02143300 $ 2143100 100 07/12/10 20:33:58
HRC370DK: CPIPLC DC C' " ver' PLC NO FROM DMKCPEID HRC370DK 02143100
HRC370DK: CPIHRC DC C' ' HRC VERSION NUMBER FROM CPEID HRC370DK 02143200
HRC370DK: CPIWHO DC C' : ' INITIALS FROM CPEID HRC370DK 02143300
HRC370DK: ./ I 02171000 $ 2171050 50 07/12/10 20:33:58
HRC370DK: SPACE 1 HRC370DK 02171050
HRC370DK: SAVEDPSW DS D saved program new PSW HRC370DK 02171100
HRC370DK: TRAPPER DC X'00080000' program check new PSW HRC370DK 02171150
HRC370DK: DC A(CHK3702) address of the interrupt handler HRC370DK 02171200
HRC370DK: PCNEWPSW EQU X'68' program check new PSW HRC370DK 02171250
HRC370DK: ./ I 02287200 $ 2287220 20 07/12/10 20:33:58
HRC370DK: SPACE 1 HRC370DK 02287220
HRC370DK: * Since we support both System/380 and System/370 machines, HRC370DK 02287240
HRC370DK: * let's see on which we are running, and adjust the version HRC370DK 02287260
HRC370DK: * message accordingly. HRC370DK 02287280
HRC370DK: MVI INSTWRD1,C'7' seems like a safe place for this HRC370DK 02287300
HRC370DK: MVC SAVEDPSW(8),PCNEWPSW save program check new PSW HRC370DK 02287320
HRC370DK: MVC PCNEWPSW(8),TRAPPER set our interrupt handler HRC370DK 02287340
HRC370DK: LA R14,CHK3701 load branch address HRC370DK 02287360
HRC370DK: ICM R14,8,=X'80' try to switch to 31-bit mode HRC370DK 02287380
HRC370DK: DC X'0B0E' BSM R0,R14 HRC370DK 02287400
HRC370DK: SPACE 1 HRC370DK 02287420
HRC370DK: * If we arrive here, the BSM instruction was valid and we are HRC370DK 02287440
HRC370DK: * executing on a System/380 machine. HRC370DK 02287460
HRC370DK: * Note!!!!! We store an '8' in the first byte of INSTWRD1 in HRC370DK 02287480
HRC370DK: * the PSA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! HRC370DK 02287500
HRC370DK: CHK3701 DS 0H HRC370DK 02287520
HRC370DK: MVI INSTWRD1,C'8' seems like a safe place for this HRC370DK 02287540
HRC370DK: MVI STMSG+7,C'8' tell them this is System/380 HRC370DK 02287560
HRC370DK: LA R14,CHK3702 load branch address HRC370DK 02287580
HRC370DK: ICM R14,8,=X'00' return to 24-bit addressing mode HRC370DK 02287600
HRC370DK: DC X'0B0E' BSM R0,R14 HRC370DK 02287620
HRC370DK: SPACE 1 HRC370DK 02287640
HRC370DK: * If we branched here, the BSM instruction generated a program HRC370DK 02287660
HRC370DK: * check. Thus we are executing on a System/370 machine. HRC370DK 02287680
HRC370DK: CHK3702 DS 0H HRC370DK 02287700
HRC370DK: MVC PCNEWPSW(8),SAVEDPSW restore program check PSW HRC370DK 02287720
HRC370DK: SPACE 1 HRC370DK 02287740
BEGIN APPLY >>> ./ R 02140590 02140590 $ 2140590 07/12/10 20:33:58
END APPLY >>> ./ R 02140590 02140590 $ 2140590 07/12/10 20:33:58
BEGIN APPLY >>> ./ R 02141180 02141180 $ 2141180 07/12/10 20:33:58
END APPLY >>> ./ R 02141180 02141180 $ 2141180 07/12/10 20:33:58
BEGIN APPLY >>> ./ R 02142000 02142000 $ 2142000 100 07/12/10 20:33:58
END APPLY >>> ./ R 02142000 02142000 $ 2142000 100 07/12/10 20:33:58
BEGIN APPLY >>> ./ R 02143100 02143300 $ 2143100 100 07/12/10 20:33:58
END APPLY >>> ./ R 02143100 02143300 $ 2143100 100 07/12/10 20:33:58
BEGIN APPLY >>> ./ I 02171000 $ 2171050 50 07/12/10 20:33:58
END APPLY >>> ./ I 02171000 $ 2171050 50 07/12/10 20:33:58
BEGIN APPLY >>> ./ I 02287200 $ 2287220 20 07/12/10 20:33:58
END APPLY >>> ./ I 02287200 $ 2287220 20 07/12/10 20:33:58
Update Succeeded
Update Execution Time 55 milliseconds.
HRC039DK
Date Monday Mar 12, 2018 12:11:00 PM
Loaded from MAINT(094)
HRC039DK: ./ I 01190000 $ 01190050 050
HRC039DK: OI RDEVFLAG,RDEVMOUT Set mounted-not-attached flag HRC039DK
HRC039DK: ./ I 01255350 $ 01255370 20
HRC039DK: NI RDEVFLAG,255-RDEVMOUT Clr mounted-not-attached HRC039DK
HRC039DK: ./ I 01344000 $ 01344100 100
HRC039DK: NI RDEVFLAG,255-RDEVMOUT Clr mounted-not-attached HRC039DK
BEGIN APPLY >>> ./ I 01190000 $ 01190050 050
END APPLY >>> ./ I 01190000 $ 01190050 050
BEGIN APPLY >>> ./ I 01255350 $ 01255370 20
END APPLY >>> ./ I 01255350 $ 01255370 20
BEGIN APPLY >>> ./ I 01344000 $ 01344100 100
END APPLY >>> ./ I 01344000 $ 01344100 100
Update Succeeded
Update Execution Time 39 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00108000 $ 00108100 100
HRC106DK: * DMKPGT7P - Anchor for spooling/paging 3375's HRC106DK
HRC106DK: * DMKPGT8P - Anchor for spooling/paging 3380's HRC106DK
HRC106DK: ./ I 00110000 $ 00110100 100
HRC106DK: * DMKPGT7T - Anchor for spooling/paging 3375's HRC106DK
HRC106DK: * DMKPGT8T - Anchor for spooling/paging 3380's HRC106DK
HRC106DK: ./ I 00352000 $ 00352100 100
HRC106DK: EXTRN DMKPGT7P,DMKPGT7T,DMKPGT8P,DMKPGT8T HRC106DK
HRC106DK: ./ R 00401000 00402000 $ 00401100 1000
HRC106DK: MAXALLOC EQU 2656 Max size of the allocation data HRC106DK
HRC106DK: * from disk (1 byte per cylinder) HRC106DK
HRC106DK: ./ R 01176000 01181000 $ 01176000 500
HRC106DK: LA R0,4 Offset to volser in std labelHRC106DK
HRC106DK: L R14,=A(CPIATABL) -> volume label record HRC106DK
HRC106DK: CLC 0(4,R14),=C'VOL1' Standard label? HRC106DK
HRC106DK: BE SAVESER Yes HRC106DK
HRC106DK: CLC 0(3,R14),=C'CMS' Any CMS header? HRC106DK
HRC106DK: BE SAVESER Yes HRC106DK
HRC106DK: SR R0,R0 Offset to non-standard label HRC106DK
HRC106DK: ./ I 01183000 $ 01183100 100
HRC106DK: AR R14,R0 -> volser HRC106DK
HRC106DK: ./ I 01190500 $ 01190600 100
HRC106DK: L R14,=A(CPIATABL) -> volume label record HRC106DK
HRC106DK: ./ R 01191000 $ 01191000
HRC106DK: CLC 46(5,R14),=C'CP370' CP OWNED volume ?? HRC106DK
HRC106DK: ./ R 01194000 01194000 $ 01194000 50
HRC106DK: MVC UDRPSTRT,52(R14) Sav possible directory startHRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 device type? HRC106DK
HRC106DK: BNE STDMAPSZ No, use std alloc map size HRC106DK
HRC106DK: L R14,F4096 Size of 3380-K alloc map HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD83 Triple density 3380? HRC106DK
HRC106DK: BO SETMAPSZ Yes HRC106DK
HRC106DK: LA R14,2048 Size of 3380-E alloc map HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD82 Double density 3380? HRC106DK
HRC106DK: BO SETMAPSZ Yes HRC106DK
HRC106DK: LA R14,1024 Size of 3380-A HRC106DK
HRC106DK: * HRC106DK
HRC106DK: SETMAPSZ EQU * HRC106DK
HRC106DK: STH R14,CPICCW3L+6 Set length to read alloc mapHRC106DK
HRC106DK: * HRC106DK
HRC106DK: STDMAPSZ EQU * HRC106DK
HRC106DK: ./ R 01288000 01288000 $ 01288100 100
HRC106DK: BNE TST3375 HRC106DK
HRC106DK: ./ I 01290000 $ 01290100 100
HRC106DK: TST3375 CLI RDEVTYPE,TYP3375 3375 Disk ? HRC106DK
HRC106DK: BNE TST3380 HRC106DK
HRC106DK: L R15,PLST3375-4(R15) Get 3375 Preferred list ptr HRC106DK
HRC106DK: B CPIPCOM .. HRC106DK
HRC106DK: TST3380 CLI RDEVTYPE,TYP3380 3380 Disk ? HRC106DK
HRC106DK: BNE MB2305 HRC106DK
HRC106DK: L R15,PLST3380-4(R15) Get 3380 Preferred list ptr HRC106DK
HRC106DK: B CPIPCOM .. HRC106DK
HRC106DK: ./ I 01318000 $ 01318100 50
HRC106DK: LA R3,959 Number of cyl for 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375 Device type ? HRC106DK
HRC106DK: BE MOVALLOC Yes, generate allocation block HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 Device type ? HRC106DK
HRC106DK: BNE TST2314 No, check for 2314/2319 HRC106DK
HRC106DK: LA R3,2655 Number of cyl for 3380 (K) HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD83 Triple density 3380? HRC106DK
HRC106DK: BO MOVALLOC Yes, generate allocation block HRC106DK
HRC106DK: LA R3,1770 Number of cyl for 3380 (E) HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD82 Double density 3380? HRC106DK
HRC106DK: BO MOVALLOC Yes, generate allocation block HRC106DK
HRC106DK: LA R3,885 Number of cyl for 3380 (A/D/J) HRC106DK
HRC106DK: B MOVALLOC Go allocate HRC106DK
HRC106DK: ./ R 01325000 $ 01325000
HRC106DK: L R4,=A(CPIATABL) -> allocation data HRC106DK
HRC106DK: ./ R 01341000 $ 01341000
HRC106DK: L R4,=A(CPIATABL) -> allocation data HRC106DK
HRC106DK: ./ I 01489000 $ 01489100 100
HRC106DK: LA R0,96 Get number pages/cyl (3375) HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is device 3375 ? HRC106DK
HRC106DK: BE STCYL Yes,set pages/cyl limit HRC106DK
HRC106DK: LA R0,150 Get number pages/cyl (3380) HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is device 3380 ? HRC106DK
HRC106DK: BE STCYL Yes,set pages/cyl limit HRC106DK
HRC106DK: ./ R 01892000 $ 01892000
HRC106DK: CPICCW3L CCW X'06',CPIATABL,CC+SILI,1024 HRC106DK
HRC106DK: ./ I 01922000 $ 01922100 100
HRC106DK: PLST3375 DC A(DMKPGT7P,DMKPGT7T) HRC106DK
HRC106DK: PLST3380 DC A(DMKPGT8P,DMKPGT8T) HRC106DK
HRC106DK: ./ I 01951000 $ 01951100 100
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: ./ I 01955000 $ 01955100 100
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: ./ I 01961000 $ 01961100 100
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: ./ I 01965000 $ 01965100 50
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: DC A(DMKPGT7T) RDEVBLOK temp alloc chain (3375) HRC106DK
HRC106DK: DC F'96' Number records/cylinder (3375) HRC106DK
HRC106DK: DC X'0000000000000000' Initial recmap setting HRC106DK
HRC106DK: DC X'00000000FFFFFFFF' HRC106DK
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: DC A(DMKPGT8T) RDEVBLOK temp alloc chain (3380) HRC106DK
HRC106DK: DC F'150' Number records/cylinder (3380) HRC106DK
HRC106DK: DC X'0000000000000000' HRC106DK
HRC106DK: DC X'0000000000000000' HRC106DK
HRC106DK: DC X'000003FFFFFFFFFF' HRC106DK
HRC106DK: ./ I 01971000 $ 01971100 100
HRC106DK: DC X'FFFFFFFFFFFFFFFF' HRC106DK
HRC106DK: ./ D 02231000 02243000 $
HRC106DK: ./ R 02902000 $ 02902100 100 HRC106DK
HRC106DK: LA R3,7 Number entries in dump table HRC106DK
HRC106DK: ./ R 02915000 $ 02915100 100
HRC106DK: DPNXTDEV LA R2,32(,R2) Get next entry in dump table HRC106DK
HRC106DK: ./ I 03459710 $ 03459800 10
HRC106DK: DS 0D HRC106DK
HRC106DK: CPIATABL DC 4096X'00' Buffer for largest allocation recHRC106DK
HRC106DK: ORG CPIATABL+136 HRC106DK
HRC106DK: MONTH DS 1X HRC106DK
HRC106DK: DAY DS 1X HRC106DK
HRC106DK: YEAR DS 1X HRC106DK
HRC106DK: DS 1X HRC106DK
HRC106DK: HOUR DS 1X HRC106DK
HRC106DK: MIN DS 1X HRC106DK
HRC106DK: SEC DS 1X HRC106DK
HRC106DK: DS 1X HRC106DK
HRC106DK: DS CL8 HRC106DK
HRC106DK: CVTWORD DS PL8 HRC106DK
HRC106DK: ORG , HRC106DK
BEGIN APPLY >>> ./ I 00108000 $ 00108100 100
END APPLY >>> ./ I 00108000 $ 00108100 100
BEGIN APPLY >>> ./ I 00110000 $ 00110100 100
END APPLY >>> ./ I 00110000 $ 00110100 100
BEGIN APPLY >>> ./ I 00352000 $ 00352100 100
END APPLY >>> ./ I 00352000 $ 00352100 100
BEGIN APPLY >>> ./ R 00401000 00402000 $ 00401100 1000
END APPLY >>> ./ R 00401000 00402000 $ 00401100 1000
BEGIN APPLY >>> ./ R 01176000 01181000 $ 01176000 500
END APPLY >>> ./ R 01176000 01181000 $ 01176000 500
BEGIN APPLY >>> ./ I 01183000 $ 01183100 100
END APPLY >>> ./ I 01183000 $ 01183100 100
BEGIN APPLY >>> ./ I 01190500 $ 01190600 100
END APPLY >>> ./ I 01190500 $ 01190600 100
BEGIN APPLY >>> ./ R 01191000 $ 01191000
END APPLY >>> ./ R 01191000 $ 01191000
BEGIN APPLY >>> ./ R 01194000 01194000 $ 01194000 50
END APPLY >>> ./ R 01194000 01194000 $ 01194000 50
BEGIN APPLY >>> ./ R 01288000 01288000 $ 01288100 100
END APPLY >>> ./ R 01288000 01288000 $ 01288100 100
BEGIN APPLY >>> ./ I 01290000 $ 01290100 100
END APPLY >>> ./ I 01290000 $ 01290100 100
BEGIN APPLY >>> ./ I 01318000 $ 01318100 50
END APPLY >>> ./ I 01318000 $ 01318100 50
BEGIN APPLY >>> ./ R 01325000 $ 01325000
END APPLY >>> ./ R 01325000 $ 01325000
BEGIN APPLY >>> ./ R 01341000 $ 01341000
END APPLY >>> ./ R 01341000 $ 01341000
BEGIN APPLY >>> ./ I 01489000 $ 01489100 100
END APPLY >>> ./ I 01489000 $ 01489100 100
BEGIN APPLY >>> ./ R 01892000 $ 01892000
END APPLY >>> ./ R 01892000 $ 01892000
BEGIN APPLY >>> ./ I 01922000 $ 01922100 100
END APPLY >>> ./ I 01922000 $ 01922100 100
BEGIN APPLY >>> ./ I 01951000 $ 01951100 100
END APPLY >>> ./ I 01951000 $ 01951100 100
BEGIN APPLY >>> ./ I 01955000 $ 01955100 100
END APPLY >>> ./ I 01955000 $ 01955100 100
BEGIN APPLY >>> ./ I 01961000 $ 01961100 100
END APPLY >>> ./ I 01961000 $ 01961100 100
BEGIN APPLY >>> ./ I 01965000 $ 01965100 50
END APPLY >>> ./ I 01965000 $ 01965100 50
BEGIN APPLY >>> ./ I 01971000 $ 01971100 100
END APPLY >>> ./ I 01971000 $ 01971100 100
BEGIN APPLY >>> ./ D 02231000 02243000 $
END APPLY >>> ./ D 02231000 02243000 $
BEGIN APPLY >>> ./ R 02902000 $ 02902100 100 HRC106DK
END APPLY >>> ./ R 02902000 $ 02902100 100 HRC106DK
BEGIN APPLY >>> ./ R 02915000 $ 02915100 100
END APPLY >>> ./ R 02915000 $ 02915100 100
BEGIN APPLY >>> ./ I 03459710 $ 03459800 10
END APPLY >>> ./ I 03459710 $ 03459800 10
Update Succeeded
Update Execution Time 164 milliseconds.
HRC108DK
Date Thursday Mar 02, 2017 10:00:00 PM
Loaded from MAINT(094)
HRC108DK: ./ I 00058000 $ 00058100 100
HRC108DK: * DMKGRTID - Copy SYSID to 3270 status areas HRC108DK
HRC108DK: ./ I 00135000 $ 00135100 100
HRC108DK: * DMKSYSIC - Count of SYSID entries HRC108DK
HRC108DK: * DMKSYSID - Default / current SYSID HRC108DK
HRC108DK: * DMKSYSIL - Beginning of list of SYSID entries HRC108DK
HRC108DK: ./ I 00238000 $ 00238100 100
HRC108DK: * 14a.Examine the SYSID list at DMKSYSIL and determine HRC108DK
HRC108DK: * if any of the entries match this CPU. If so, HRC108DK
HRC108DK: * copy the specified system id into DMKSYSID where HRC108DK
HRC108DK: * it replaces the default system id established by HRC108DK
HRC108DK: * DMKSYS. Call DMKGRTID to put SYSID in 3270 status HRC108DK
HRC108DK: ./ I 00361000 $ 00361100 100
HRC108DK: EXTRN DMKSYSIC,DMKSYSID,DMKSYSIL,DMKGRTID HRC108DK
HRC108DK: ./ I 02275000 $ 02275050 50
HRC108DK: L R1,=A(DMKSYSIC) Get address of SYSID list count HRC108DK
HRC108DK: ICM R0,B'1111',0(R1) Get number of entries in list HRC108DK
HRC108DK: BZ SYSIDFIN No entries in list HRC108DK
HRC108DK: L R1,=A(DMKSYSIL) Get address of SYSID list HRC108DK
HRC108DK: L R2,=A(DMKSYSID) Get address of current SYSID HRC108DK
HRC108DK: SYSIDLP EQU * HRC108DK
HRC108DK: CLC 9(5,R1),CPUSER Check list entry against PSA HRC108DK
HRC108DK: BNE SYSIDNOT Not this one HRC108DK
HRC108DK: MVC 0(8,R2),0(R1) Replace SYSID with list entry HRC108DK
HRC108DK: SYSIDNOT EQU * HRC108DK
HRC108DK: LA R1,14(,R1) Point to next item in list HRC108DK
HRC108DK: BCT R0,SYSIDLP Decrement count and loop if more HRC108DK
HRC108DK: SYSIDFIN EQU * HRC108DK
HRC108DK: CALL DMKGRTID Copy SYSID to 3270 status area HRC108DK
BEGIN APPLY >>> ./ I 00058000 $ 00058100 100
END APPLY >>> ./ I 00058000 $ 00058100 100
BEGIN APPLY >>> ./ I 00135000 $ 00135100 100
END APPLY >>> ./ I 00135000 $ 00135100 100
BEGIN APPLY >>> ./ I 00238000 $ 00238100 100
END APPLY >>> ./ I 00238000 $ 00238100 100
BEGIN APPLY >>> ./ I 00361000 $ 00361100 100
END APPLY >>> ./ I 00361000 $ 00361100 100
BEGIN APPLY >>> ./ I 02275000 $ 02275050 50
END APPLY >>> ./ I 02275000 $ 02275050 50
Update Succeeded
Update Execution Time 63 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ I 00144000 $ 00144400 100
HRC075DK: * DMKSYSER - ERR RECORDING AREA LOCATION INFORMATION HRC075DK
HRC075DK: * DMKSYSWM - WARM START AREA LOCATION INFORMATION HRC075DK
HRC075DK: * DMKSYSCH - CHECKPOINT AREA LOCATION INFORMATION HRC075DK
HRC075DK: ./ I 00353000 $ 00353500 100
HRC075DK: EXTRN DMKSYSER,DMKSYSWM,DMKSYSCH HRC075DK
HRC075DK: ./ I 01901000 $ 01901500 100
HRC075DK: XWAIT9 DC X'0002000000000009' VOLUME NEEDED FOR ERR, WRM, HRC075DK
HRC075DK: * OR CKP CYLS NOT MOUNTED HRC075DK
HRC075DK: ./ R 02124490 02124490 $ 02124490 10
HRC075DK: NMSGNL DC X'15' HRC075DK
HRC075DK: ./ I 02125000 $ 02125200 100
HRC075DK: DC C' required for ' HRC075DK
HRC075DK: NMCYLS DC CL6' ' HRC075DK
HRC075DK: DC C' cylinders' HRC075DK
HRC075DK: DC X'1515' HRC075DK
HRC075DK: NMSGLREQ EQU *-NMSG HRC075DK
HRC075DK: ./ R 02757000 02757000 $ 02757000 200
HRC075DK: BZ SYSAREAS YES HRC075DK
HRC075DK: ./ I 02767000 $ 02767100 20
HRC075DK: *
HRC075DK: SYSAREAS EQU * GET DEVICE CUU OF ERR,WRM,CKP HRC075DK
HRC075DK: L R2,=A(DMKSYSER) -> ERROR RECORDING AREA INFO HRC075DK
HRC075DK: LA R4,=CL6'SYSERR' INDICATE ERR AREA CYLINDERS HRC075DK
HRC075DK: BAL R3,LVOL GO LOCATE VOLUME AND CUU HRC075DK
HRC075DK: L R2,=A(DMKSYSWM) -> WARM START AREA INFO HRC075DK
HRC075DK: LA R4,=CL6'SYSWRM' INDICATE WRM AREA CYLINDERS HRC075DK
HRC075DK: BAL R3,LVOL GO LOCATE VOLUME AND CUU HRC075DK
HRC075DK: L R2,=A(DMKSYSCH) -> CHECKPOINT AREA INFO HRC075DK
HRC075DK: LA R4,=CL6'SYSCKP' INDICATE CKP AREA CYLINDERS HRC075DK
HRC075DK: BAL R3,LVOL GO LOCATE VOLUME AND CUU HRC075DK
HRC075DK: B MEMCK ALL REQ'D VOLUMES LOCATED HRC075DK
HRC075DK: * HRC075DK
HRC075DK: LVOL EQU * HRC075DK
HRC075DK: CLC 4(2,R2),ZEROES IS DEV ADDR FILLED IN? HRC075DK
HRC075DK: BNER R3 YES, ON TO NEXT AREA HRC075DK
HRC075DK: LA R0,6 LENGTH OF VOLSER HRC075DK
HRC075DK: LA R1,8(,R2) -> NAME OF VOLUME HRC075DK
HRC075DK: CALL DMKSCNVS GET THE RDEVBLOK HRC075DK
HRC075DK: BNZ NOTHERE THIS VOLUME NOT FOUND; REQUIRED HRC075DK
HRC075DK: LR R8,R1 RDEVBLOK PTR TO R8 HRC075DK
HRC075DK: CALL DMKSCNRD GET THE CUU OF RDEVBLOK DEVICE HRC075DK
HRC075DK: STH R1,4(,R2) SAVE CUU AT DMKSYSER+4 (DEV ADDR)HRC075DK
HRC075DK: MVC 6(2,R2),RDEVTYPC SAVE DEVTYPE AT DMKSYSER+6 HRC075DK
HRC075DK: BR R3 RETURN HRC075DK
HRC075DK: * HRC075DK
HRC075DK: NOTHERE EQU * HRC075DK
HRC075DK: MVC NMSGVOL,8(R2) PLUG VOLID TO MSG HRC075DK
HRC075DK: MVC NMCYLS,0(R4) MOVE TYPE OF CYLS NEEDED HRC075DK
HRC075DK: MVI NMSGNL,C';' REPLACE NEWLINE WITH SEMI HRC075DK
HRC075DK: MVI NMSG+10,C'E' CHANGE 951I MSG TEXT TO ERROR LVLHRC075DK
HRC075DK: LA R0,NMSGLREQ LENGTH OF VOLID REQUIRED MSG HRC075DK
HRC075DK: LA R1,NMSG -> DMKCPI951E VOLID NOT MOUNTED HRC075DK
HRC075DK: CALL DMKQCNWT,PARM=ALARM HRC075DK
HRC075DK: LPSW XWAIT9 LOAD DISABLED WAIT 9 HRC075DK
BEGIN APPLY >>> ./ I 00144000 $ 00144400 100
END APPLY >>> ./ I 00144000 $ 00144400 100
BEGIN APPLY >>> ./ I 00353000 $ 00353500 100
END APPLY >>> ./ I 00353000 $ 00353500 100
BEGIN APPLY >>> ./ I 01901000 $ 01901500 100
END APPLY >>> ./ I 01901000 $ 01901500 100
BEGIN APPLY >>> ./ R 02124490 02124490 $ 02124490 10
END APPLY >>> ./ R 02124490 02124490 $ 02124490 10
BEGIN APPLY >>> ./ I 02125000 $ 02125200 100
END APPLY >>> ./ I 02125000 $ 02125200 100
BEGIN APPLY >>> ./ R 02757000 02757000 $ 02757000 200
END APPLY >>> ./ R 02757000 02757000 $ 02757000 200
BEGIN APPLY >>> ./ I 02767000 $ 02767100 20
END APPLY >>> ./ I 02767000 $ 02767100 20
Update Succeeded
Update Execution Time 70 milliseconds.
ibm/vm370-lib/cp/dmkcpi.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator