MACRO 00001000
PSA 00002000
AIF ('&SYSECT' EQ 'DMKPSA').PSA1 00008000
PUSH PRINT 00008200
AIF ('&SYSPARM' NE 'SUP').PSA01 00008400
PRINT OFF,NOGEN 00008600
.PSA01 ANOP 00008800
PSA DSECT 00009000
.PSA1 ANOP 00010000
GBLB &AP 00010100
SPACE 1 00011000
*** PSA - PREFIX STORAGE AREA - MACHINE USAGE 00012000
* 00012500
* 0 +-----------------------+-----------------------+ 00013000
* | IPLPSW | IPLCCW1 | 00013500
* 10 +-----------------------+-----------------------+ 00014000
* | IPLCCW2 | EXOPSW | 00014500
* 20 +-----------------------+-----------------------+ 00015000
* | SVCOPSW | PROPSW | 00015500
* 30 +-----------------------+-----------------------+ 00016000
* | MCOPSW | IOOPSW | 00016500
* 40 +-----------------------+-----------+-----------+ 00017000
* | CSW | CAW | QUANTUMR | 00017500
* 50 +-----------+-----------+-----------+-----------+ 00018000
* | TIMER | QUANTUM | EXNPSW | 00018500
* 60 +-----------+-----------+-----------------------+ 00019000
* | SVCNPSW | PRNPSW | 00019500
* 70 +-----------------------+-----------------------+ 00020000
* | MCNPSW | IONPSW | 00020500
* 80 +-----------------------+-----------------------+ 00021000
* | | 00021500
* = CPULOG = 00022000
* | | 00022500
* 100 +-----------------------------------------------+ 00023000
* | | 00023500
* = FXDLOG = 00024000
* | | 00024500
* 160 +-----------------------------------------------+ 00025000
* | | 00025500
* = FPRLOG = 00026000
* | | 00026500
* 180 +-----------------------------------------------+ 00027000
* | | 00027500
* = GPRLOG = 00028000
* | | 00028500
* 1C0 +-----------------------------------------------+ 00029000
* | | 00029500
* = CRLOG = 00030000
* | | 00030500
* 200 +-----------------------------------------------+ 00031000
* 00031500
*** PSA - PREFIX STORAGE AREA - MACHINE USAGE 00032000
EJECT 00032500
*** PSA - PREFIX STORAGE AREA - VM/370 USAGE 00033000
* 00033500
* 200 +-----------------------------------------------+ 00034000
* | | 00034500
* = TEMPSAVE = 00035000
* | | 00035500
* 240 +-----------------------------------------------+ 00036000
* | | 00036500
* = BALRSAVE = 00037000
* | | 00037500
* 280 +-----------------------------------------------+ 00038000
* | | 00038500
* = FREESAVE = 00039000
* | | 00039500
* 2C0 +-----------------------------------------------+ 00040000
* | | 00040500
* = FREEWORK = 00041000
* | | 00041500
* 2F0 +-----------------------+-----------------------+ 00042000
* | DATE | TODATE | 00042500
* 300 +-----------------------+-----------------------+ 00043000
* | STARTIME | CPUID | 00043500
* 310 +-----------------------+-----------------------+ 00044000
* | IDLEWAIT | PAGEWAIT | 00044500
* 320 +-----------------------+-----------------------+ 00045000
* | IONTWAIT | PROBTIME | 00045500
* 330 +-----------------------+-----------+-----------+ 00046000
* | RUNPSW | RUNUSER | DSPLPSW | 00046500
* 340 +-----------+-----------+-----------+-----------+ 00047000
* | RUNCR0 | RUNCR1 | CPSTAT | CPRESTRT | 00047500
* 350 +-----------+-----------+-----------+-----------+ 00048000
* | PGREAD | PGWRITE | PGWAITIM | 00048500
* 360 +-----------+-----------+-----------+-----+-----+ 00049000
* | PGWAITPG | PSASVCCT | P*1 | P*2 | 00049500
* 370 +-----------+-----------+-----+-----+-----+-----+ 00050000
* | CPID | CPABEND | P*3 | P*4 | ASYSVM | 00050500
* 380 +-----------+-----------+-----+-----+-----------+ 00051000
* | ARSPPR | ARSPPU | ARSPRD | ARIOPU | 00051500
* 390 +-----------+-----------+-----------+-----------+ 00052000
* | ARIOPR | ARIORD | P*5 | S*6 | ARSPAC | 00052510
* 3A0 +-----------+-----------+-----------+-----------+ 00053000
* | AVMREAL | ASYSABND | ASYSLC | ASYSOP | 00053500
* 3B0 +-----------+-----------+-----------+-----------+ 00054000
* | ARIOCT | ARIOCH | ARIOCU | ARIODV | 00054500
* 3C0 +-----------+-----------+-----------+-----------+ 00055000
* | ARIOCC | ARIOUC | ARIODC | ACORETBL | 00055500
* 3D0 +-----------+-----------+-----------+-----------+ 00056000
* | APAGCP | CPCREG0 | CPCREG6 | CPCREG8 | 00056610
* 3E0 +-----------+-----------+-----------+-----------+ 00057000
* | TIMEDISP | ASVCLIST | AVMALIST | LASTUSER | 00057520
* 3F0 +-----------+-----------+-----------+-----------+ 00058000
* | (CONT) | 00058500
EJECT 00059000
* 00059500
* | (CONT) | 00060000
* 3F0 +-----------+-----------+-----------+-----------+ 00060500
* | PAGECUR | PAGENXT | MONNEXT | PAGEND | 00061000
* 400 +-----------+-----------+-----+-----+-----------+ 00061500
* | TRACEFLG | TTSEGCNT | P*6 | P*14| RESERVED | 00061900
* 410 +-----------+-----------+-----+-----+-----------+ 00062300
* | ALOKFR | ALOKSY | RSVD-ECPS | RESERVED | 00062600
* 420 +-----------+-----------+-----------+-----------+ 00062900
* | RESERVED | 00063200
* 430 +-----------+-----------+-----------+-----------+ 00063500
* | INSTWRD1 | INSTWRD2 | INSTWRD3 | QCPSTAT | 00064000
* 440 +-----------+-----------+-----------+-----------+ 00064500
* | | 00065000
* = CONSTANTS POOL = 00065500
* | | 00066000
* 4D0 +-----------+-----------+-----------+-----------+ 00066500
* | APTRLK | NOADD | X40FFS | XRIGHT24 | 00067000
* 4E0 +-----------+-----------+-----------+-----------+ 00067500
* | XPAGNUM | XRIGHT16 | AFREE | AFRET | 00068000
* 4F0 +-----------+-----------+-----------+-----------+ 00068500
* | AQCNWT | ADSPCH | APTRAN | X2048BND | 00069000
* 500 +-----------+-----------+-----------+-----------+ 00069500
* | | 00069505
* = DUMPSAVE = 00069510
* | | 00069515
* 540 +-----------------------------------------------+ 00069520
* | | 00069525
* = SIGSAVE = 00069530
* | | 00069535
* 580 +-----------------------------------------------+ 00069540
* | | 00069545
* = LOKSAVE = 00069550
* | | 00069555
* 5C0 +-----------------------------------------------+ 00069560
* | | 00069565
* = MFASAVE = 00069570
* | | 00069575
* 600 +-----------------------------------------------+ 00069580
* | | 00069585
* = SWTHSAVE = 00069590
* | | 00069595
* 640 +-----------------------------------------------+ 00069600
* | LOCKSAV | 00069605
* 650 +-----------------------------------------------+ 00069610
* | SVCREGS | 00069615
* 660 +-----------+-----------+-----------+-----------+ 00069620
* | PREFIXA | PREFIXB | PSACPXBP | RESERVED | 00069625
* 670 +-----------+-----------+-----------+-----------+ 00069630
* | WAITSTRT | WAITEND | 00069635
* 680 +-----------+-----------+-----------+-----------+ 00069640
* | PWTPAGES | ACTIVTRQ | EMSPEND | EMSREC | 00069645
* 690 +-----------+-----+-----+-----+-----+-----------+ 00069650
* | XCPEND | P*7 | P*8 | P*9 | APSTATUS | 00069655
* 6A0 +-----------+-----+-----+-----+-----------------+ 00069660
* | AMCHAREA | SHRLKCNT | PROBSTRT | 00069665
* 6B0 +-----------+-----------+-----------------------+ 00069670
* | CHGREGS | RESERVED | 00069675
* 6C0 +-----------+-----+-----+-----------------------+ 00069680
* | UNSHRVM |P*10 |P*11 | RESERVED | 00069685
* 6D0 +-----------+-----+-----+-----------------------+ 00069690
* | STACKVM | UNSHRVM2 | RESERVED | 00069695
* 6E0 +-----------+-----------+-----------------------+ 00069700
* | RESERVED | 00069705
* 6F0 +-----------+-----------+-----------+-----------+ 00069710
* | ALOKVM | RESERVED | ALOKSP | AEXTSP | 00069715
* 700 +-----------+-----------+-----------+-----------+ 00069720
* | ATMRSN | ADMKCPE | RESERVED | 00069725
* 710 +-----------+-----------------------------------+ 00069730
* | | 00069735
* = MONREGS = 00069740
* | | 00069745
* 750 +-----------------------------------------------+ 00069750
* | | 00069755
* = LOKSAV2 = 00069760
* | | 00069765
* +-----------------------------------------------+ 00069770
* 00070000
* 00070020
* ALL FIELDS RESIDE IN REAL PSA UNLESS OTHERWISE SPECIFIED. 00070040
* FIELDS RESIDING IN ABSOLUTE PSA ARE SPECIFICALLY IDENTIFIED. 00070060
* FOR UNIPROCESSOR OPERATION REAL PSA = ABSOLUTE PSA. 00070080
* 00070100
*** PSA - PREFIX STORAGE AREA - VM/370 USAGE 00070500
SPACE 1 00071000
* MACHINE USAGE 00071500
IPLPSW DS 1D - IPL START PSW 00128000
IPLCCW1 DS 1D - IPL CCW 00129000
ORG IPLPSW 00129100
RSRTNPSW DS D RESTART NEW PSW @V407594 00129110
RSRTOPSW DS D RESTART OLD PSW @V407594 00129120
IPLCCW2 DS 1D - IPL CCW 00130000
ORG IPLCCW1 00131000
PSARSV3 DS 1F - RESERVED 00132000
TRACSTRT DS 1F - ADDRESS OF START OF TRACE TABLE 00133000
* TRACSTRT IS IN ABSOLUTE PSA @V407594 00133010
TRACEND DS 1F - ADDRESS OF END OF TRACE TABLE 00134000
* TRACEND IS IN ABSOLUTE PSA @V407594 00134010
TRACCURR DS 1F - ADDR OF NEXT AVAILABLE TRACE TABLE ENTRY 00135000
* TRACCURR IS IN ABSOLUTE PSA @V407594 00135010
EXOPSW DS 1D - EXTERNAL OLD PSW 00136000
SVCOPSW DS 1D - SVC OLD PSW 00137000
PROPSW DS 1D - PROGRAM OLD PSW 00138000
MCOPSW DS 1D - MACHINE-CHECK OLD PSW 00139000
IOOPSW DS 1D - IO OLD PSW 00140000
CSW DS 1D - CHANNEL STATUS WORD 00141000
CAW DS 1F - CHANNEL ADDRESS WORD 00142000
QUANTUMR DS 1F - INTERVAL TIMER VALUE AT LAST INTERRUPT 00143000
TIMER DS 1F - 13 MICROSECOND INTERVAL TIMER 00144000
QUANTUM DS 1F - INTERVAL TIMER VALUE AT LAST DISPATCH 00145000
EXNPSW DS 1D - EXTERNAL NEW PSW 00146000
SVCNPSW DS 1D - SVC NEW PSW 00147000
PRNPSW DS 1D - PROGRAM NEW PSW 00148000
MCNPSW DS 1D - MACHINE-CHECK NEW PSW 00149000
IONPSW DS 1D - IO NEW PSW 00150000
CPULOG DS 16D - CPU AND STORAGE LOGOUT AREA 00151000
FXDLOG DS 12D - FIXED LOGOUT AREA 00152000
FPRLOG DS 4D - FLOATING POINT REGISTER LOGOUT AREA 00153000
GRLOG DS 16F - GENERAL REGISTER LOGOUT AREA 00154000
CRLOG DS 16F - CONTROL REGISTER LOGOUT AREA 00155000
CPUSAGE DS 0H - END OF MACHINE USAGE, START OF CP USAGE 00156000
SPACE 1 00157000
* DEFINITION FOR CPULOG 00158000
ORG CPULOG 00159000
DS 1F - RESERVED FOR FUTURE HARDWARE USE 00160000
INTEXF DS 1F - EXTERNAL INTERRUPT CODE (FULLWORD) 00161000
INTEX EQU INTEXF+2 - EXTERNAL INTERRUPT CODE (HALFWORD) 00162000
INTSVCL DS 1H - SVC INSTRUCTION LENGTH (ILC) CODE 00163000
INTSVC DS 1H - SVC INTERRUPT CODE 00164000
INTPRL DS 1H - PROGRAM INSTRUCTION LENGTH (ILC) CODE 00165000
INTPR DS 1H - PROGRAM INTERRUPT CODE 00166000
TREXADD DS 1F - TRANSLATION EXCEPTION ADDRESS 00167000
MONCLASS DS 1H - MONITOR CLASS 00168000
PERCODE DS 1H - PROGRAM EVENT RECORDER (PER) CODE 00169000
PERADD DS 1F - PER ADDRESS 00170000
MONCODE DS 1F - MONITOR CODE 00171000
DS 1D - RESERVED FOR FUTURE HARDWARE USE 00172000
CHANID DS 1F - CHANNEL ID 00173000
IOELPNTR DS 1F - IO EXTENDED LOGOUT (IOEL) POINTER 00174000
ECSWLOG DS 1F - LIMITED CHANNEL LOGOUT (ECSW) 00175000
ORG ECSWLOG 00175100
DS 3X 1ST 3 BYTES OF LCL 00175200
ECSWBYT3 DS 1X 3RD BYTE OF LCL -- I/O INTERFACE 00175300
* HANGUP IS INDICATED IN BIT 27 00175400
DS 1F - RESERVED FOR FUTURE HARDWARE USE 00176000
INTKFLIN DS 1F - IO INTERRUPT KEY, FLAGS, INTERFACE ADDRESS 00177000
INTTIO EQU INTKFLIN+2 - IO INTERRUPT DEVICE ADDRESS (HALFWORD) 00178000
DS 11F - RESERVED FOR FUTURE HARDWARE USE 00179000
INTMC DS 1D - MACHINE-CHECK INTERRUPT CODE 00180000
DS 1F RESERVED FOR FUTURE USE 00181100
INTRC DS 1X EXTERNAL DAMAGE REASON CODE 00181300
DS 3X RESERVED 00181500
FAILSTAD DS 1F - FAILING STORAGE ADDRESS 00182000
REGNCODE DS 1F - REGION CODE 00183000
EJECT 00184000
* CP370 USAGE 00185000
SPACE 1 00186000
ORG CPUSAGE 00187000
TEMPSAVE DS 16F - TEMPORARY SAVE AREA 00188000
BALRSAVE DS 16F - BALR LINKAGE SAVE AREA 00189000
FREESAVE DS 16F - DMKFRE SAVE AREA 00190000
FREEWORK DS 12F - DMKFRE WORK AREA 00191000
DATE DS CL8 - DATE - MM/DD/YY - EDITED EBCDIC 00192000
TODATE DS 1D - TOD CLOCK AT 00.00.00 TODAY - LOCAL TIME 00193000
STARTIME DS 1D - DATE AND TIME STARTED - TOD CLOCK VALUE 00194000
CPUID DS 1D - CPU IDENTIFICATION FIELD 00195000
IDLEWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM IDLE WAIT TIME 00196000
PAGEWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM PAGE WAIT TIME 00197000
IONTWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM I/O WAIT TIME 00198000
PROBTIME DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM PROBLEM STATE TIME 00199000
RUNPSW DS 1D - PSW LAST LOADED BY DISPATCH 00200000
RUNUSER DS 1F - ADDRESS OF DISPATCHED VMBLOK 00201000
DSPLPSW DS 1F - LOAD PSW INSTRUCTION USED TO DISPATCH 00202000
RUNCR0 DS 1F - CONTROL REGISTER ZERO AT DISPATCH 00203000
RUNCR1 DS 1F - CONTROL REGISTER ONE AT DISPATCH 00204000
CPSTAT DS 1F - CP370 RUNNING STATUS 00205000
CPRESTRT DS 1F - RESTART ADDRESS IF EXT MARKS PAGE INVALID 00206000
PGREAD DS 1F - TOTAL NUMBER OF PAGE READS 00207000
PGWRITE DS 1F - TOTAL NUMBER OF PAGE WRITES 00208000
PGWAITIM DS 1D - TIME SPENT IN PAGE WAIT (TOD UNITS) 00209000
PGWAITPG DS 1D - TIME SPENT IN PAGE WAIT X PAGES WAITING 00210000
PSASVCCT DS 1F - TOTAL NUMBER OF USER SVC'S 00211000
PAGELOAD DS 1H - P*1 PAGE WAIT PERCENT, LAST MEASUREMENT 00212000
PAGERATE DS 1H - P*2 PAGING RATE, PAGES / SECOND 00213000
* PAGERATE IS IN ABSOLUTE PSA @V4M0121 00213010
PSENDCLR DS 0F - END OF AREA CLEARED BY DMKCPINT 00214000
CPID DS 1F - CP RUNNING IDENTIFIER 00215000
* CPID IS CHANGED IN ABSOLUTE PSA @V4M0132 00215010
CPABEND DS 1F - CP ABEND CODE 00216000
PSTARTSV DS 0F - START OF SAVE/RESTORED CODE 00217000
SYSIPLDV DS 1H - P*3 DEVICE ADDRESS OF SYSTEM IPL DEVICE 00218000
PGSRATIO DC H'0' - P*4 PAGE STEALS/TOTAL REPLENISHED 00219000
ASYSVM DC V(DMKSYSVM) - ADDRESS OF SYSTEM VMBLOK 00220000
ARSPPR DC V(DMKRSPPR) - ADDRESS OF SYSTEM PRINTER FILE CHAIN 00221000
ARSPPU DC V(DMKRSPPU) - ADDRESS OF SYSTEM PUNCH FILE CHAIN 00222000
ARSPRD DC V(DMKRSPRD) - ADDRESS OF SYSTEM READER FILE CHAIN 00223000
ARIOPU DC V(DMKRIOPU) - ADDRESS OF SYSTEM PUNCH TABLE 00224000
ARIOPR DC V(DMKRIOPR) - ADDRESS OF SYSTEM PRINTER TABLE 00225000
ARIORD DC V(DMKRIORD) - ADDRESS OF SYSTEM READER TABLE 00226000
IPUADDR DS 1H P*5 INSTRUCTION PROCESSING ADDRESS 00227100
PSARSV6 DS 1X S*6 RESERVED FOR FUTURE USE 00227200
* 00227210
* REDEFINITION OF PSARSV6 FOR MSS 00227220
* 00227230
PSAMSS EQU PSARSV6 FLAGS USED DURING MSS PROCESSING @V60B6B8 00227240
MSSPRES EQU X'80' AN MSS IS PRESENT AT @V60B6B8 00227250
* INITIALIZATION 00227260
CPAPRINP DC X'00' ALTERNATE PROCESSOR RECOVERY IN @VA12934 00227360
* PROCESS WHEN SET TO X'FF' 00227460
* CPAPRINP IS IN ABSOLUTE PSA 00227560
ARSPAC DC V(DMKRSPAC) - ADDRESS OF SYSTEM ACCOUNTING CHAIN 00228000
AVMREAL DC A(0) - VMBLOK ADDRESS OF VIRTUAL = REAL USER 00229000
* AVMREAL IS MAINTAINED IN BOTH PSA'S @V4M0132 00229010
ASYSABND DC A(0) - ADDRESS OF SYSTEM ABEND PRINTER 00230000
ASYSLC DC V(DMKSYSLC) - ADDRESS OF "SYSLOCS" INFORMATION 00231000
ASYSOP DC V(DMKSYSOP) - ADDRESS OF SYSTEM OPERATOR VMBLOK 00232000
ARIOCT DC V(DMKRIOCT) - ADDRESS OF REAL CHANNEL INDEX TABLE 00233000
ARIOCH DC V(DMKRIOCH) - ADDRESS OF FIRST RCHBLOK 00234000
ARIOCU DC V(DMKRIOCU) - ADDRESS OF FIRST RCUBLOK 00235000
ARIODV DC V(DMKRIODV) - ADDRESS OF FIRST RDEVBLOK 00236000
ARIOCC DC V(DMKRIOCC) - ADDRESS OF COUNT OF REAL SYSTEM CHANNELS 00237000
ARIOUC DC V(DMKRIOUC) - ADDRESS OF COUNT OF REAL SYSTEM CU'S 00238000
ARIODC DC V(DMKRIODC) - ADDRESS OF COUNT OF REAL SYSTEM DEVICES 00239000
ACORETBL DC V(DMKSYSCS) - ADDRESS OF SYSTEM CORE TABLE 00240000
APAGCP DC A(X'FFFFFF') - ADDRESS OF FIRST PAGEABLE PROGRAM 00241000
CPCREG0 DC X'81800CC0' CP ARCH CONTROL AND EXTERNAL MASK HRC004DK 00242490
CPCREG6 DC F'0' - CP ASSIST AND VMA MASK 00243000
CPCREG8 DC F'0' - MONITOR CALL ENABLE MASK 00244000
TIMEDISP DC F'0' TIMER DISPLACEMENT FOR CHARGE @V4M0203 00245100
ASVCLIST DC V(DMKSVCNS) ADDR OF CP ASSIST POINTER LIST @V407594 00246000
AVMALIST DC V(DMKPRVMA) - ADDRESS OF EXPANDED VMA POINTER LIST 00247000
LASTUSER DC V(DMKSYSVM) - LAST USER TO BE DISPATCHED 00248000
PAGECUR DS F CURRENT MONITOR BUFFER PAGE ADDR 00249000
* PAGECUR IS IN ABSOLUTE PSA @V407594 00249010
PAGENXT DS F ALTERNTE MONITR BUFFER PAGE ADDR @VA09843 00249050
* PAGENXT IS IN ABSOLUTE PSA 00249070
MONNEXT DS F NEXT AVAIL ADDR IN MONITOR BUFFER 00250000
* MONNEXT IS IN ABSOLUTE PSA @V407594 00250010
PAGEND DS F LAST ADDR IN CURRENT MON BUFFER PAGE 00251000
* PAGEND IS IN ABSOLUTE PSA @V407594 00251010
TRACEFLG DS 1F - TRACE TABLE FLAGS 00253000
TTSEGCNT DC F'0' COUNT OF TOTAL PAGE/SWAP TABLES @V408246 00254100
* IN SYSTEM 00254200
* TTSEGCNT IS IN ABSOLUTE PSA @V407594 00254210
CSADDR DC H'0' P*6 CHANNEL SET ADDRESS @V60B7AB 00255050
DC X'00' RESERVED FOR FUTURE USE 00255100
PSAEVMA DC X'00' P*14 ECPS:VM ENABLE/DISABLE BITS 00255110
* (SEE MICBLOK/MICEVMA FOR DEFINITIONS) 00255120
* PSAEVMA IS IN ABSOLUTE PSA 00255130
DS 1F RESERVED 00255150
SPACE 00255200
AIF (NOT &AP).LOKSY1 00255250
ALOKFR DC V(DMKLOKFR) AP-FREE LOCKWORD ADDRESS @V5DAACD 00255300
ALOKSY DC V(DMKLOKSY) AP-SYSTEM LOCKWORD ADDRESS @V5DAACD 00255350
AGO .LOKSY2 00255400
.LOKSY1 DS 2F USED ONLY WITH ECPS-AP SUPPORT @V5DAACD 00255450
.LOKSY2 ANOP 00255500
DC F'0' RESERVED FOR ECPS @V5DAACD 00255550
DS 5F - RESERVED 00255600
INSTWRD1 DC F'0' - RESERVED FOR INSTALLATION USE 00256000
INSTWRD2 DC F'0' - RESERVED FOR INSTALLATION USE 00257000
INSTWRD3 DC F'0' - RESERVED FOR INSTALLATION USE 00258000
QCPSTAT DC F'0' - QCPBLOK FOR EXTENDED QUERY HRC019DK 00259000
SPACE 2 00260000
* POOL OF FREQUENTLY-USED CONSTANTS: 00261000
SPACE 00262000
ZEROES DC 6D'0' 00263000
BLANKS DC 8X'40' 00264000
FFS DC 8X'FF' - ALSO = -1 00265000
SPACE 00266000
F0 EQU ZEROES,4,C'F' @VA10394 00267100
F1 DC F'1' 00268000
F2 DC F'2' 00269000
F3 DC F'3' 00270000
F4 DC F'4' 00271000
F5 DC F'5' 00272000
F6 DC F'6' 00273000
F7 DC F'7' 00274000
F8 DC F'8' 00275000
F9 DC F'9' 00276000
F10 DC F'10' 00277000
F15 DC F'15' - ALSO = X'0000000F' 00278000
F16 DC F'16' 00279000
F20 DC F'20' 00280000
F24 DC F'24' 00281000
F60 DC F'60' - ALSO = X'0000003C' 00282000
F240 DC F'240' - ALSO = X'000000F0' = C'0' 00283000
F255 DC F'255' - ALSO = X'000000FF' 00284000
F256 DC F'256' - ALSO = X'00000100' 00285000
F4095 DC F'4095' - ALSO = X'00000FFF' 00286000
F4096 DC F'4096' - ALSO = X'00001000' 00287000
SPACE 00288000
APTRLK DC V(DMKPTRLK) - ENTRY TO LOCK A PAGE IN STORAGE 00289000
NOADD DC X'FF000000' 00290000
X40FFS DC X'40FFFFFF' 00291000
XRIGHT24 DC X'00FFFFFF' 00292000
XPAGNUM DC X'00FFF000' 00293000
XRIGHT16 DC X'0000FFFF' 00294000
AFREE DC V(DMKFREE) - ENTRY TO ALLOCATE FREE STORAGE 00295000
AFRET DC V(DMKFRET) - ENTRY TO RELEASE FREE STORAGE 00296000
AQCNWT DC V(DMKQCNWT) - ENTRY TO WRITE A TERMINAL MESSAGE 00297000
ADSPCH DC V(DMKDSPCH) - ENTRY TO THE VM/370 DISPATCHER 00298000
APTRAN DC V(DMKPTRAN) - ENTRY TO THE PAGING SUPERVISOR 00299000
X2048BND DC X'00FFF800' 00300000
SPACE 1 @V407594 00301100
PSBCLR2 DS 0F START OF 2ND AREA CLEARED BY CPI @V407594 00301110
DUMPSAVE DS 16F SAVE AREA FOR DUMP ROUTINE @V407594 00301120
SIGSAVE DS 16F SAVE AREA FOR DMKEXT @V407594 00301130
LOKSAVE DS 16F DMKLOK SAVE AREA @V407594 00301140
MFASAVE DS 16F SAVE AREA FOR MALFUNCTION ALERT @V407594 00301150
SWTHSAVE DS 16F DMKVMASW SAVE AREA @V407594 00301160
LOCKSAV DS 4F LOCK MACRO SAVE AREA @V407594 00301170
SVCREGS DS 4F SVC SAVE AREA @V407594 00301180
PREFIXA DC F'0' PREFIX VALUE OF THIS PROCESSOR @V407594 00301190
PREFIXB DC F'0' PREFIX VALUE OF OTHER PROCESSOR @V407594 00301200
PSACPXBP DC A(0) ADDR OF CPEXBLOK FOR SWITCH SVC @V407594 00301210
* PSACPXBP IS IN ABSOLUTE PSA @V407594 00301220
DS 1F RESERVED @V4M0173 00301230
WAITSTRT DS D TIMER VALUE AT START OF WAIT @V407594 00301240
WAITEND DS D TIMER VALUE AT END OF WAIT @V407594 00301250
PWTPAGES DC F'0' PGS IN PGWAIT AT START OF WAIT @V407594 00301260
ACTIVTRQ DC A(0) ADDRESS OF ACTIVE TRQ @V407594 00301270
EMSPEND DC F'0' EMERGENCY SIGNAL PENDING FLAGS @V407594 00301280
EMSREC DC F'0' EMERGENCY SIGNAL RECEIVED FLAGS @V407594 00301290
XCPEND DC F'0' EXTERNAL CALL PENDING FLAGS @V407594 00301300
IPUADDRX DC H'0' P*7 PROCESSOR ADDR OF OTHER PROC'R @V407594 00301310
LPUADDR DC H'0' P*8 LOGICAL ADDR OF THIS PROCESSOR @V407594 00301320
LPUADDRX DC H'0' P*9 LOGICAL ADDR OF OTHER PROCESSOR @V407594 00301330
APSTATUS DS 6X AP STATUS BYTES @V407594 00301340
AMCHAREA DC F'0' ADDR OF DMKMCH WORK AREA @V407594 00301350
SHRLKCNT DC F'0' CNT OF TIMES CPSHRLK IS SET @V407594 00301360
* (USED TO CLEAR CPSHRLK) @V407594 00301370
PROBSTRT DS D VMTMOUTQ AT DISPATCH @V407594 00301380
CHGREGS DS 2F SAVE AREA FOR CHARGE SYNC @V4M0203 00301390
DS 7X RESERVED 00301396
CPSTAT4 DS 1X MORE CPSTATUS BITS @VA12314 00301406
UNSHRVM DC A(0) VMBLOK FOR PENDING DMKVMAPS CALL @V407594 00301410
* (ATTACHED PROCESSOR ONLY) @V407594 00301420
TRACPROC DC X'00' PROC'R ID FOR CP TRACE TBL ENTRYS@V407594 00301430
APSTAT DS 3X MORE AP STATUS BYTES 00301440
DS 2F RESERVED 00301442
STACKVM DC A(0) R11 FOR DISPATCHER UNSTACK @V407594 00301450
UNSHRVM2 DC A(0) R2 VALUE FOR PENDING VMAPS CALL @V4M0136 00301460
* (ATTACHED PROCESSOR ONLY) @V4M0136 00301462
DS 6F RESERVED @VA09885 00301464
PSECLR2 DS 0F END OF 2ND AREA CLEARED BY CPI @V407594 00301470
SPACE 1 00301480
AIF (NOT &AP).LOKVM1 00301488
ALOKVM DC V(DMKLOKVM) ENTRY TO LOCK VMBLOK @V407594 00301490
AGO .LOKVM2 00301492
.LOKVM1 DS 1F USED ONLY WITH AP SUPPORT 00301494
.LOKVM2 ANOP 00301496
DS 1F RESERVED @V407510 00301500
AIF (NOT &AP).LOKSP1 00301508
ALOKSP DC V(DMKLOKSP) ENTRY TO SPIN ON LOCK @V407594 00301510
AEXTSP DC V(DMKEXTSP) ENTRY TO SIGNAL PROC'R ROUTINE @V407594 00301520
AGO .LOKSP2 00301522
.LOKSP1 DS 2F USED ONLY WITH AP SUPPORT 00301524
.LOKSP2 ANOP 00301526
ATMRSN DC V(DMKTMRSN) ENTRY TO CHARGE SYNC ROUTINE @V4M0203 00301530
ADMKCPE DC V(DMKCPE) ADDRESS OF LAST RESIDENT MODULE @VA09885 00301540
DC 2F'0' RESERVED @VA09885 00301545
MONREGS DS 16F REG SAVE AREA FOR MONITOR CALL @V407594 00301550
LOKSAV2 DS 16F SAVE AREA FOR SWTCHVM IN DMKLOK @V4M0193 00301555
PSAEND DS 0D - END OF PAGE 0 USAGE @V407594 00301560
SPACE 2 00303000
* DEFINITION FOR CPUID 00304000
ORG CPUID 00305000
CPUVERSN DS 1X - VERSION CODE 00306000
CPUSER DS XL3 CPU SERIAL NUMBER, PACK UNSIGN @VA09802 00307100
CPUMODEL DS XL2 CPU MODEL NUMBER @VA09802 00308100
CPUMCELL DS 1H - MAXIMUM LENGTH IN BYTES OF MCEL 00309000
SPACE 1 00310000
* DEFINITION FOR TEMPSAVE 00311000
ORG TEMPSAVE 00312000
TEMPR0 DS 1F 00313000
TEMPR1 DS 1F 00314000
TEMPR2 DS 1F 00315000
TEMPR3 DS 1F 00316000
TEMPR4 DS 1F 00317000
TEMPR5 DS 1F 00318000
TEMPR6 DS 1F 00319000
TEMPR7 DS 1F 00320000
TEMPR8 DS 1F 00321000
TEMPR9 DS 1F 00322000
TEMPR10 DS 1F 00323000
TEMPR11 DS 1F 00324000
TEMPR12 DS 1F 00325000
TEMPR13 DS 1F 00326000
TEMPR14 DS 1F 00327000
TEMPR15 DS 1F 00328000
SPACE 1 00329000
* DEFINITION FOR BALRSAVE 00330000
ORG BALRSAVE 00331000
BALR0 DS 1F 00332000
BALR1 DS 1F 00333000
BALR2 DS 1F 00334000
BALR3 DS 1F 00335000
BALR4 DS 1F 00336000
BALR5 DS 1F 00337000
BALR6 DS 1F 00338000
BALR7 DS 1F 00339000
BALR8 DS 1F 00340000
BALR9 DS 1F 00341000
BALR10 DS 1F 00342000
BALR11 DS 1F 00343000
BALR12 DS 1F 00344000
BALR13 DS 1F 00345000
BALR14 DS 1F 00346000
BALR15 DS 1F 00347000
SPACE 1 00348000
* DEFINITION FOR FREESAVE 00349000
ORG FREESAVE 00350000
FREER0 DS 1F 00351000
FREER1 DS 1F 00352000
FREER2 DS 1F 00353000
FREER3 DS 1F 00354000
FREER4 DS 1F 00355000
FREER5 DS 1F 00356000
FREER6 DS 1F 00357000
FREER7 DS 1F 00358000
FREER8 DS 1F 00359000
FREER9 DS 1F 00360000
FREER10 DS 1F 00361000
FREER11 DS 1F 00362000
FREER12 DS 1F 00363000
FREER13 DS 1F 00364000
FREER14 DS 1F 00365000
FREER15 DS 1F 00366000
SPACE 1 00367000
* DEFINITION FOR CPSTAT 00368000
ORG CPSTAT 00369000
CPSTATUS DS 1X - CP RUNNING STATUS 00370000
SPACE 1 00371000
* BITS DEFINED IN CPSTATUS 00372000
CPWAIT EQU X'80' - CP IN WAIT STATE 00373000
CPRUN EQU X'40' - CP RUNNING USER IN RUNUSER 00374000
CPEX EQU X'20' - CP EXECUTING STACKED REQUEST 00375000
CPFVRUN EQU X'10' - RESERVED FOR FUTURE USE 00376000
CPSUPER EQU X'08' PROC'R EXECUTING IN SUPVR STATE @V407594 00376010
SPACE 1 00376020
XTNDLOCK DC X'00' FREE STORAGE EXTENDING IF=X'FF' @V4M0198 00376030
* XTNDLOCK IS IN ABSOLUTE PSA @V4M0198 00376040
SPACE 1 00377000
CPSTAT2 DS 1X - FLAG BYTE 00379100
SPACE 1 00379200
* BITS DEFINED IN CPSTAT2 00379300
CPMICAVL EQU X'80' VM ASSIST AVAILABLE ON CPU 00379400
CPMICON EQU X'40' VM ASSIST IS ON FOR SYSTEM 00379500
CPSHRLK EQU X'20' CP PROCESSING SHARED NAMED SYSTEM PAGE 00379550
CPASTAVL EQU X'08' CP ASSIST AVAILABLE ON CPU 00379551
CPASTON EQU X'04' CP ASSIST IS ON FOR SYSTEM 00379552
SPACE 1 00379600
CPSTAT3 DS X WAIT TIME ACCOUNTING FLAG BYTE @V407594 00379610
SPACE 1 @V407594 00379620
* BITS DEFINED IN CPSTAT3 @V407594 00379630
CPTIDLE EQU X'80' TIMER CONTAINS IDLE TIME @V407594 00379640
CPTPAGE EQU X'40' TIMER CONTAINS PAGE WAIT TIME @V407594 00379650
CPTIONT EQU X'20' TIMER CONTAINS I/O WAIT TIME @V407594 00379660
SPACE 1 @V407594 00379670
* BITS DEFINED IN CPSTAT4 00379700
CPSHUT EQU X'20' SHUTDOWN INDICATOR @VA12314 00379710
CPPWROFF EQU X'40' POWEROFF INDICATOR HRC002DK 00379712
CPREIPL EQU X'10' REIPL INDICATOR HRC002DK 00379714
SPACE 00379720
* DEFINITION FOR TRACEFLG 00380000
ORG TRACEFLG 00381000
TRACFLG1 DS 1X - TRACE TABLE FLAG 00382000
TRACFLG2 DS 1X - TRACE TABLE FLAG 00383000
TRACFLG3 DS 1H - RESERVED FOR FUTURE USE 00384000
SPACE 1 00385000
* BITS DEFINED IN TRACFLG1 00386000
TRAC01 EQU X'80' EXTERNAL INTERRUPT TRACING ON 00387000
TRAC02 EQU X'40' SVC INTERRUPT TRACING ON 00388000
TRAC03 EQU X'20' PROGRAM INTERRUPT TRACING ON 00389000
TRAC04 EQU X'10' MACHINE CHECK TRACING ON 00390100
TRAC05 EQU X'08' I/O INTERRUPT TRACING ON 00391000
TRAC67 EQU X'04' FREE/FRET CALL TRACING ON 00392000
TRAC08 EQU X'02' ENTER DISPATCH TRACING ON 00393000
TRAC09 EQU X'01' Q DROP TRACING ON 00394000
SPACE 1 00395000
* BITS DEFINED IN TRACFLG2 00396000
TRAC0A EQU X'80' RUN USER TRACING ON 00397000
TRAC0C EQU X'40' UNSTACK I/O INT. TRACING ON 00398000
TRAC0D EQU X'20' VIRT. CSW STORED TRACING ON 00399000
TRACBEF EQU X'10' SIO, TIO, HDV TRACING ON 00400000
TRAC10 EQU X'08' UNSTACK IOBLOK OR TRQBLOK TRACING ON 00400100
TRAC11 EQU X'04' TRACE BTU ACTIVITY FOR 370X NCP 00400200
TRAC12 EQU X'02' LOCK SPIN TRACING ACTIVE @V407594 00400210
TRAC13 EQU X'01' SIGNAL PROCESSOR TRACING ACTIVE @V407594 00400220
SPACE 1 @V407594 00400300
* DEFINITION FOR EMSPEND @V407594 00400400
EMSPQUI EQU X'80' QUIESCE PENDING @V407594 00400500
EMSPEXT EQU X'40' EXTEND PENDING @V407594 00400600
EMSPSYNC EQU X'20' SYNC PENDING @V407594 00400700
EMSPSHD EQU X'10' SHUTDOWN PENDING @V407594 00400800
EMSPCLKC EQU X'08' HI-ORDER TOD SYNC PENDING @V407594 00400900
EMSINQSC EQU X'01' PROCESSOR IS QUIESCED @V4M0210 00400950
SPACE 1 @V407594 00401000
* DEFINITION FOR EMSREC @V407594 00401100
EMSRQUI EQU X'80' QUIESCE REQUEST RECEIVED @V407594 00401200
EMSREXT EQU X'40' EXTEND REQUEST RECEIVED @V407594 00401300
EMSRSYNC EQU X'20' SYNC REQUEST RECEIVED @V407594 00401400
EMSRSHD EQU X'10' SHUTDOWN REQUEST RECEIVED @V407594 00401500
EMSRCLKC EQU X'08' HI-ORDER TOD SYNC RECEIVED @V407594 00401600
SPACE 1 @V407594 00401700
* DEFINITION FOR XCPEND @V407594 00401800
XCAPR EQU X'80' AUTOMATIC PROC'R RECOVERY PEND'G @V407594 00401900
XCRES EQU X'40' RESUME REQUEST PENDING @V407594 00402000
XCWAK EQU X'20' WAKEUP REQUEST PENDING @V407594 00402100
XCDISP EQU X'10' DISPATCH REQUEST PENDING @V407594 00402200
SPACE 1 @V407594 00402300
* DEFINITION FOR APSTATUS @V407594 00402400
ORG APSTATUS @V407594 00402500
SPACE 1 @V407594 00402600
APSTAT1 DC X'00' AP STATUS @V407594 00402700
SPACE 1 @V407594 00402800
* BITS DEFINED IN APSTAT1 @V407594 00402900
APUOPER EQU X'80' ATTACHED PROCESSOR OPERATIONAL @V407594 00403000
PROCIO EQU X'40' PROCESSOR HAS I/O CAPABILITY @V407594 00403100
APUNONLN EQU X'20' SYS GEN'D FOR AP, RUNNING AS UP @V407594 00403200
MPFEAT EQU X'10' MP FEATURE IS INSTALLED @V5BC0AB 00403202
PROCIPL EQU X'08' PROCESSOR IS THE IPL PROCESSOR @V60B7AA 00403207
CPINITD EQU X'01' SYSTEM INITIALIZATION COMPLETE 00403210
CSSFEAT EQU X'02' CHANNEL SET SWITCHING FACILITY @V60B7AB 00403220
* IS INSTALLED 00403230
SPACE 1 @V407594 00403300
APSTAT2 DC X'00' SECOND FLAG BYTE @V407594 00403400
SPACE 1 @V407594 00403500
* BITS DEFINED IN APSTAT2 @V407594 00403600
* NO OTHER FLAGS SHOULD BE PLACED IN APSTAT2 SO THAT CPPTLBR 00403700
* CAN BE MANIPULATED WITHOUT C&S LOGIC; CPMCHLK HAS BEEN 00403800
* RETAINED FOR ECPS ONLY. 00403900
CPMCHLK EQU X'10' MACH CHECK PROCESSING PENDING @V407594 00404000
CPPTLBR EQU X'02' PTLB REQUIRED FOR PROCESSOR @V407594 00404300
SPACE 1 @V407594 00404500
CPTERMLK DC X'00' DMKMCT SYS TERMINATION IN PROG @V4M0198 00404600
* CPTERMLK IS IN ABSOLUTE PSA @V4M0198 00404700
SPACE 1 @V407594 00404800
CPFRELK DC X'00' FREE STORAGE EXTEND PENDING @V407594 00404900
* CPFRELK IS IN ABSOLUTE PSA @V407594 00405000
SPACE 1 @V407594 00405100
FRLKPROC DC X'00' LOGICAL PROC'R ID FOR CPFRELK @V407594 00405200
* FRLKPROC IS IN ABSOLUTE PSA @V407594 00405300
SPACE 1 @V407594 00405400
CPFRESW DC X'00' DMKFRE MUST XFER EXECUTION TO AP @V407594 00405500
* CPFRESW IS IN ABSOLUTE PSA @V407594 00405600
SPACE 00405605
* DEFINITION FOR APSTAT 00405610
ORG APSTAT 00405615
SPACE 00405620
APSTAT3 DC X'00' THIRD AP STATUS FLAG BYTE 00405625
SPACE 00405630
* CPSYSLK IS MANIPULATED IN THE OPPOSITE PROCESSOR'S PSA - 00405635
* IT IS SET WITHOUT THE SYSTEM LOCK AND RESET WITH THE SYSTEM 00405640
* LOCK; ONLY FLAGS WITH THE SAME CHARACTERISTICS SHOULD BE 00405645
* PLACED IN APSTAT3. 00405650
CPSYSLK EQU X'80' OTHER PROC IS SPINNING ON LOCK 00405655
SPACE 00405660
APSTAT4 DC X'00' FOURTH AP STATUS FLAG BYTE 00405665
SPACE 00405670
* BITS DEFINED IN APSTAT4 00405675
CPLOKFL EQU X'80' DMKLOK ENABLED FOR EXTERNAL INTS 00405680
RECMODE EQU X'40' PROC'R WILL RECORD SOFT MACH CKS 00405685
CPMCHSE EQU X'20' MACH CHECK PROCESSING PENDING 00405690
* CPMCHSE IS THE REPLACEMENT OF CPMCHLK IN APSTAT2 00405695
PROCSCHK EQU X'10' TOD SYNCH CHECK RECEIVED 00405700
CPAPRPND EQU X'08' AUTO PROC'R RECOVERY PENDING 00405705
POFFLINE EQU X'04' VARY PROCESSOR FUNCTION IN USE @V5BC0AB 00405706
SPACE 00405710
* DEFINITION OF INTRC 00405720
ORG INTRC 00405730
EXDRESVD EQU X'80' RESERVED 00405740
EXDCNO EQU X'10' CHANNEL NOT OPERATIONAL 00405750
EXDCCF EQU X'08' CHANNEL CONTROL FAILURE 00405760
SPACE 00405770
AIF ('&SYSECT' EQ 'DMKPSA').PSA02 00405800
EJECT 00405900
POP PRINT 00406000
SPACE 1 00406100
.PSA02 ANOP 00406200
MEND 00406300