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