ibm:vm370-lib:copy:systbl.copy_src
Table of Contents
SYSTBL Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SYSTBL.COPY.txt
- *COPY SYSTBL 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').SYS01 00001400
- PRINT OFF,NOGEN 00001600
- .SYS01 ANOP 00001800
- SYSTBL DSECT 00002000
- SPACE 1 00003000
- *** SYSTBL - NAMED SYSTEM DESCRIPTION TABLE 00004000
- * 00005000
- * 0 +-----------------------+-----------------------+ 00006000
- * | SYSPNT | SYSSIZE | 00007000
- * 8 +-----------------------+-----------------------+ 00008000
- * | SYSNAME | 00009000
- * 10 +-----------------------------------+-----------+ 00010000
- * | VSYSRES | SYSVADDR | 00011000
- * 18 +-----------------------------------+-----------+ 00012000
- * | SYSVOL | SYSCYL | 00013000
- * 20 +-----------------------+-----------+-----------+ 00014000
- * | SYSSTART | SYSPAGCT | 00015000
- * 28 +-----------+-----+-----+-----------------------+ 00016000
- * | SYSPAGLN | S*1 | S*2 | | 00017000
- * =-----------+-----+-----+ SYSPAGNM = 00018000
- * | | 00019000
- * 30 +-----------+-----------------------------------+ 00020000
- * | SYSSEGLN | | 00021000
- * =-----------+ SYSHRSEG = 00022000
- * | | 00023000
- * 38 +-----------------------------------------------+ 00024000
- * 00025000
- *** SYSTBL - NAMED SYSTEM DESCRIPTION TABLE 00026000
- SPACE 1 00027000
- SYSPNT DS 1F CHAIN POINTER TO NEXT ENTRY 00033000
- SYSSIZE DS 1F MINIMUM CORE SIZE NEEDED TO RUN SYSTEM 00034000
- SYSNAME DS CL8 SYSTEM NAME 00035000
- VSYSRES DS CL6 VOLUME SERIAL OF DASD CONTAINING 00036000
- * USERS SYSTEM 00037000
- SYSVADDR DS 1H VIRTUAL ADDRESS OF VSYSRES 00038000
- SYSVOL DS CL6 VOLUME SERIAL OF DASD CONTAINING 00039000
- * SAVED PAGES 00040000
- SYSCYL DS 1H CYLINDER ON VSYSRES OF USERS SYSTEM 00041000
- * SAME AS VDEVRELN 00042000
- SYSSTART DS 1F CCPD OF FIRST PAGE ON SYSVOL 00043000
- SYSPAGCT DS 1F TOTAL NUMBER OF PAGES SAVED 00044000
- SYSPAGLN DS 1H NUMBER OF ENTRIES IN SYSPAGNM 00045000
- DS 1X S*1 RESERVED 00045250
- SYSFLAG DS 1X S*2 NAMED SYSTEM FLAG BYTE 00045350
- SYSPAGNM DS 1F ONE FULL WORD ENTRY FOR EACH RANGE 00046000
- * OF PAGES TO BE SAVED 00047000
- SYSSEGLN DS 1H NUMBERS OF ENTRIES IN SYSHRSEG 00048000
- SYSHRSEG DS 1X ONE BYTE FOR EACH SEGMENT TO BE SHARED 00049000
- * 00049100
- ** BITS DEFINED IN SYSFLAG 00049200
- * 00049300
- SYSPROT EQU X'80' UNPROTECTED SHARED SEGMENTS 00049400
- EJECT 00050000
- POP PRINT 00051000
- SPACE 00052000
ibm/vm370-lib/copy/systbl.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator