ibm:vm370-lib:macro:psa.macro_src
Table of Contents
PSA Source
References
- Fixes Applied : 12
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC019DK]
Source Listing
- PSA.MACRO.txt
- 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
ibm/vm370-lib/macro/psa.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator