*COPY CCPARM 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').CCP01 00001400
PRINT OFF,NOGEN 00001600
.CCP01 ANOP 00001800
CCPARM DSECT 00002000
SPACE 00003000
*** CCPARM - COMMUNICATION PARAMETER LIST 00004000
* 00005000
* 0 +-----------------------------------------------+ 00006000
* | CCPNAME | 00007000
* 8 +-----------------------+-----------------------+ 00008000
* | CCPADDR | CCPSIZE | 00009000
* 10 +-----------------------+-----------------------+ 00010000
* | CCPPSIZE | CCPENTRY | 00011000
* 18 +-----+-----+-----+-----+-----------------------+ 00012000
* | C*1 | C*2 | C*3 | C*4 | CCPSTOR | 00013000
* 20 +-----+-----+-----+-----+-----+-----+-----------+ 00014000
* | CCPHBFSZ | CCPHBFNO | C*5 | C*6 | CCPMAXID | 00015000
* 28 +-----------+-----------+-----+-----+-----------+ 00016000
* | | 00017000
* = CCPRESID = 00018000
* | | 00019000
* +-----------------------------------------------+ 00020000
* 00021000
*** CCPARM - COMMUNICATION PARAMETER LIST 00022000
SPACE 00023000
CCPNAME DS CL8 NCPNAME SPECIFIED IN NAMECP MACRO 00024000
CCPADDR DS 1F ORIGIN OF CONTROL PROGRAM IMAGE 00025000
CCPSIZE DS 1F CONTROL PROGRAM SIZE IN BYTES 00026000
CCPPSIZE DS 1F PARAMETER LIST SIZE IN BYTES 00027000
CCPENTRY DS 1F CONTROL PROGRAM ENTRY POINT ADDR. 00028000
CCPTYPE DS 1X C*1 CONTROL PROGRAM TYPE FLAG 00029000
CCPCAONE DS 1X C*2 FIRST CHANNEL ADAPTER TYPE FLAG 00030000
CCPCATWO DS 1X C*3 SECOND CHANNEL ADAPTER TYPE FLAG 00031000
CCPRSV1 DS 1X C*4 RESERVED 00032000
CCPSTOR DS 1F 370X STORAGE SIZE SPECIFIED (BYTES) 00033000
CCPHBFSZ DS 1H BUFFER SIZE FROM 'HOST' MACRO 00034000
CCPHBFNO DS 1H NUMBER OF BUFFERS IN READ LIST 00035000
CCPPAD0 DS 1X C*5 FIRST BUFFER PAD COUNT (BYTES) 00036000
CCPPAD1 DS 1X C*6 SUBSEQUENT BUFFER PAD COUNT 00037000
CCPMAXID DS 1H HIGHEST RESOURCE I.D. DEFINED 00038000
CCPRESID DS 1F RESOURCE I.D. DESCRIPTION 00039000
SPACE 00040000
ORG CCPRESID DEFINITION BREAK-DOWN 00041000
CCPRSTYP DS 1X RESOURCE TYPE FLAG 00042000
CCPRSTAT DS 1X RESOURCE INITIAL STATUS FLAGS 00043000
CCPRSTEP DS 1H SUBCHANNEL ADDRESS WHEN IN EP-MODE 00044000
SPACE 00045000
* BITS DEFINED IN CCPTYPE: 00046000
CCPTNCP EQU X'01' NETWORK CONTROL PROGRAM 00047000
CCPTEP EQU X'02' 270X EMULATION PROGRAM 00048000
CCPTPEP EQU X'03' PARTITIONED EMULATION PROGRAM 00049000
CCPTEP4 EQU X'0A' 270X EMULATION PRGM FOR CA4 00049500
EJECT 00050000
* BITS DEFINED IN CCPCAONE AND CCPCATWO: 00051000
CCPTYPE1 EQU X'01' CHANNEL ADAPTER TYPE ONE 00052000
CCPTYPE2 EQU X'02' CHANNEL ADAPTER TYPE TWO 00053000
SPACE 00054000
* HOST VALUES REQUIRED BY VM/370 SUPPORT FOR 3704/3705: 00055000
CCPVPAD0 EQU 34 34-BYTE PAD IN FIRST BTU BUFFER 00056000
CCPVPAD1 EQU 34 34-BYTE PAD IN SUBSEQUENT BUFFERS 00057000
EJECT 00058000
POP PRINT 00059000
SPACE 00060000