ibm:vm370-lib:copy:ncptbl.copy_src
Table of Contents
NCPTBL Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- NCPTBL.COPY.txt
- *COPY NCPTBL 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').NCP01 00001400
- PRINT OFF,NOGEN 00001600
- .NCP01 ANOP 00001800
- NCPTBL DSECT 00002000
- SPACE 00003000
- *** NCPTBL - NAMED 370X CONTROL PROGRAM TABLE 00004000
- * 00005000
- * 0 +-----------------------+-----------------------+ 00006000
- * | NCPPNT | NCPSIZE | 00007000
- * 8 +-----------------------+-----------------------+ 00008000
- * | NCPNAME | 00009000
- * 10 +-----------------------------------+-----+-----+ 00010000
- * | NCPVOL | N*1 | N*2 | 00011000
- * 18 +-----------------------+-----------+-----+-----+ 00012000
- * | NCPSTART | NCPPAGCT | 00013000
- * 20 +-----------------------+-----------------------+ 00014000
- * 00015000
- *** NCPTBL - NAMED 370X CONTROL PROGRAM TABLE 00016000
- SPACE 1 00017000
- NCPPNT DS 1F CHAIN POINTER TO NEXT ENTRY 00018000
- NCPSIZE DS 1F 370X STORAGE SIZE REQUIRED FOR LOAD 00019000
- NCPNAME DS CL8 CONTROL PROGRAM REFERENCE NAME 00020000
- NCPVOL DS CL6 VOLID OF DASD CONTAINING SAVED IMAGE 00021000
- NCPFLAG DS 1X N*1 CPTYPE FLAG BYTE 00022000
- NCPRSV1 DS 1X N*2 RESERVED FOR FUTURE USE 00023000
- NCPSTART DS 1F CCPD OF FIRST PAGE ON NCPVOL 00024000
- NCPPAGCT DS 1F TOTAL NUMBER OF PAGES SAVED 00025000
- SPACE 00026000
- * BITS DEFINED IN NCPFLAG: 00027000
- NCPTNCP EQU X'01' NETWORK CONTROL PROGRAM 00028000
- NCPTCEP EQU X'02' 270X EMULATION CONTROL PROGRAM 00029000
- NCPTPEP EQU X'03' PARTITIONED EMULATOR PROGRAM 00030000
- EJECT 00031000
- POP PRINT 00032000
- SPACE 00033000
ibm/vm370-lib/copy/ncptbl.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator