|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 26416 (0x6730)
Types: s3xseg
Names: »S$E030«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$E030«
MACRO 00010000
$E030 00020000
.* 00030000
.* STATUS: RELEASE 3 * 00040000
.* * 00050000
.* NAME: $E030 * 00060000
.* * 00070000
.* FUNCTION: DEFINE THE LOCATIONS OF DATA AREAS WITHIN CCP COMMON. * 00080000
.* WHERE APPROPRIATE, DEFINE THE BIT SIGNIFICANCE FOR THOSE DATA * 00090000
.* AREAS. DEFINE THE LENGTHS AND LOCATIONS OF FIELDS IN * 00100000
.* THE FOLLOWING WORK AREAS: COMMAND PROCESSOR, ALLOCATION, * 00110000
.* TERMINATION, COMMUNICATIONS MANAGEMENT. * 00120000
.* * 00130000
.********************************************************************** 00140000
.* 00150000
.*--------- SYSTEM GLOBAL VARIABLES --------------------------------* 00160000
.* 00170000
GBLB &MLTA . MLTA SUPPORT: 00180000
.* . 1=SUPPORTED / 0=NOT 00190000
.* 00200000
GBLB &NOM . INVERSE OF &MLTA 00210000
.* 00220000
GBLB &BSCA . BSCA SUPPORT: 00230000
.* . 1=SUPPORTED / 0=NOT 00240000
.* 00250000
GBLB &NOB . INVERSE OF &BSCA 00260000
.* 00270000
GBLB &ONE . SUPPORT OF SINGLE ADAPTER TYPE 00280000
.* . 1=MLTA *OR* BSCA / 0=BOTH 00290000
.* 00300000
GBLB &DME . DATA MODE ESCAPE SUPPORT: 00310000
.* . 1=SUPPORTED / 0=NOT 00320000
.* 00330000
GBLB &NDME . INVERSE OF &DME 00340000
.* 00350000
GBLB &DFF . DISPLAY FORMAT FACILITY: 00360000
.* . 1=SUPPORTED / 0=NOT 00370000
.* 00380000
GBLB &NDF . INVERSE OF &DFF 00390000
.* 00400000
GBLB &MIN . SUPPORT OF MINIMUM-CORE SYSTEM 00410000
.* . 1=MINIMUM CORE / 0=NOT 00420000
.* 00430000
.* 00440000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00450000
.* 00460000
GBLB &SHR . UPDATE FILE SHARING: 00470000
.* . 1=SUPPORTED / 0=NOT 00480000
.* 00490000
GBLB &USEON . USER SIGN-ON ROUTINE: 00500000
.* . 1=SUPPORTED / 0=NOT 00510000
.* 00520000
GBLB &SYSON . CCP PASSWORD SECURITY: 00530000
.* . 1=SUPPORTED / 0=NOT 00540000
.* 00550000
GBLB &PUCNT . PROGRAM REQUEST COUNTS: 00560000
.* . 1=SUPPORTED / 0=NOT 00570000
.* 00580000
GBLB &URMFU . MFCU SUPPORT: 00590000
.* . 1=SUPPORTED / 0=NOT 00600000
.* 00610000
GBLB &UR142 . 1442 SUPPORT: 00620000
.* . 1=SUPPORTED / 0=NOT 00630000
.* 00640000
GBLB &URPRT . 5203/1403 SUPPORT: 00650000
.* . 1=SUPPORTED / 0=NOT 00660000
.* 00670000
GBLB &D45 . 5445 SUPPORT: 00680000
.* . 1=SUPPORTED / 0=NOT 00690000
.* 00700000
.* 00710000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00720000
.* 00730000
GBLB &NSCTL . *NO* STATION CONTROL SUPPORT: 00740000
.* . 1=*NO* STA CTL / 0=STA CTL 00750000
.* 00760000
GBLB &NINT . *NO* INTERVAL POLLING SUPPORT 00770000
.* . 1=NO INT POLL / 0=INT POLLING 00780000
.* 00790000
GBLB &NSW . *NO* SWITCHED LINE SUPPORT: 00800000
.* . 1=*NO* SW LINE / 0=SW LINES 00810000
.* 00820000
GBLB &N1050 . *NO* 1050 SUPPORT: 00830000
.* . 1=*NO* 1050 / 0=1050 SUPPORT 00840000
.* 00850000
GBLB &N2741 . *NO* 2741 SUPPORT 00860000
.* . 1=*NO* 2741 / 0=2741 SUPPORT 00870000
.* 00880000
GBLB &NBFR . *NO* BUFFERED-RECEIVE SUPPORT: 00890000
.* . 1=*NO* BUFRCV / 0=BUFRCV 00900000
.* 00910000
GBLB &NMOVE . *NO* MOVE-WITHOUT-TRANSLATE: 00920000
.* . 1=*NO* MOVE / 0=MOVE SUPPORT 00930000
.* 00940000
.* 00950000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00960000
.* 00970000
GBLB &NCPU . *NO* CPU SUPPORT: 00980000
.* . 1=*NO* CPU / 0=CPU SUPPORT 00990000
.* 01000000
GBLB &NITB . *NO* ITB SUPPORT: 01010000
.* . 1=*NO* ITB / 0=ITB SUPPORT 01020000
.* 01030000
GBLB &NMSG . *NO* GETMSG SUPPORT: 01040000
.* . 1=*NO* GETMSG / 0=GETMSG 01050000
.* 01060000
GBLB &NTSP . *NO* TRANSPARENCY SUPPORT: 01070000
.* . 1=*NO* TSP / 0=TSP SUPPORT 01080000
.* 01090000
GBLB &N32 . *NO* 3270 SUPPORT: 01100000
.* . 1=*NO* 3270 / 0=3270 SUPPORT 01110000
.* 01120000
GBLB &N37 . *NO* 3735 SUPPORT: 01130000
.* . 1=*NO* 3735 / 0=3735 SUPPORT 01140000
.* 01150000
GBLB &NAS . *NO* ASCII SUPPORT: 01160000
.* . 1=*NO* ASCII / 0=ASCII SUPRT 01170000
.* 01180000
GBLB &NPP . *NO* POINT-TO-POINT SUPPORT: 01190000
.* . 1=*NO* P-TO-P / 0=P-TO-P 01200000
.* 01210000
GBLB &NMP . *NO* MULTIPOINT TRIBUTARY SPRT 01220000
.* . 1=*NO* MP / 0=MP SUPPORT 01230000
.* 01240000
GBLB &NSWL . *NO* SWITCHED BSCA LINES 01250000
.* . 1=*NO* SW / 0=SW LINE SUP'RT 01260000
.* 01270000
GBLB &NCS . *NO* CONTROL STATION SUPPORT: 01280000
.* . 1=*NO* CS / 0=CS SUPPORT 01290000
.* 01300000
TEXT 01310000
TITLE 'C C P C O M M O N A R E A' 01320000
*********************************************************************** 01330000
* C O M M U N I C A T I O N S C O N T R O L P R O G R A M * 01340000
* C O M M O N A R E A * 01350000
*********************************************************************** 01360000
SPACE 2 01370000
***** NOTE - DO NOT CHANGE ORDER OF THESE EXTRNS WITHOUT CHANGING **** 01380000
***** MODULE $CC4V1. **** 01390000
SPACE 2 01400000
EXTRN $CC4TR(3) 01410000
EXTRN $CC4TX(3) 01420000
EXTRN $CC4PI(3) 01430000
EXTRN $CC4MS(3) 01440000
EXTRN $CC4GM(3) 01450000
EXTRN $CC4FM(3) 01460000
EXTRN $CC4MX(3) 01470000
EXTRN $CC4MV(3) 01480000
EXTRN $CC4SR(3) 01490000
EXTRN CC4TI2(3) 01500000
EXTRN $CC4CP(3) 01510000
EXTRN $CC4TM(3) 01520000
EXTRN $CCTI2(3) 01530000
EXTRN $CC4IG(3) 01540000
EXTRN XSNT1(3) 01550000
EXTRN XSNT2(3) 01560000
EXTRN $CC4TI(3) 01570000
EXTRN CC4TH(3) 01580000
EXTRN XSNTHT(3) 01590000
EXTRN $CC4OC(3) 01600000
EXTRN $CC4NQ(3) 01610000
EXTRN $CC4DQ(3) 01620000
EXTRN ADDRS1(3) 01630000
EXTRN $CC4V1(3) 01640000
ENTRY $CCCOM 01650000
EJECT 01660000
$CCCOM EQU $CC4#1 CCP COMMON 01670000
SPACE 2 01680000
*------------ENTRY POINT ADDRESS DEFINITION---------------------------* 01690000
*@CC4TR * 01700000
DC AL2($CC4TR) TRANSIENT RETURN ADDRESS 01710000
SPACE 1 01720000
*@CC4TX * 01730000
DC AL2($CC4TX) TRANSIENT TRANSFER CONTROL @ 01740000
SPACE 1 01750000
*@CC4PI * 01760000
*@CC4TA * 01770000
DC AL2($CC4PI) 1ST LEVEL TRANSIENT INVOCATION @ 01780000
SPACE 1 01790000
*@CC4IS * 01800000
DC AL2($CC4IS) COMMUNICATIONS I/O INTERFACE @ 01810000
SPACE 1 01820000
*@CC4GM * 01830000
DC AL2($CC4GM) GETMAIN ENTRY ADDRESS 01840000
SPACE 1 01850000
*@CC4FM * 01860000
DC AL2($CC4FM) FREEMAIN ENTRY ADDRESS 01870000
SPACE 1 01880000
*@MLTIO * 01890000
DC AL2(ADDRS1) MLTA IOCS ENTRY POINT @. 01900000
* FILLED BY STARTUP AT EXECUTION 01910000
* ADDRESS OF MAINTENANCE ADDRESS 01920000
* TABLE AT PRE-START UP 01930000
SPACE 1 01940000
*@MLTOP * 01950000
DC AL2(0) MLTA OPEN ENTRY POINT @. 01960000
* FILLED BY STARTUP 01970000
SPACE 1 01980000
*@USECW * 01990000
DC AL2(0) USER SECURITY DATA WORK AREA @ 02000000
* FILLED BY STARTUP 02010000
SPACE 1 02020000
*@CC4MX * 02030000
DC AL2($CC4MX) MOVE FOREVER ROUTINE ADDRESS 02040000
SPACE 1 02050000
*@C4TI2 * 02060000
DC AL2(CC4TI2) PROGRAM TERMINATION INTERFACE @ 02070000
SPACE 1 02080000
*@CC4TI * 02090000
DC AL2($CC4TI) OTHER TASK TERMINATE ADDRESS 02100000
SPACE 1 02110000
*@CC4SR * 02120000
DC AL2($CC4SR) ENTRY ADDRESS IN MOVE ROUTINE 02130000
SPACE 1 02140000
*@CC4TH * 02150000
DC AL2(CC4TH) @ TERMINATION INTERFACE 02160000
SPACE 1 02170000
*@BTRAC * 02180000
DC AL2(0) CCP BSCA TRACE ROUTINE 02190000
* ADDRESS FILLED BY STARTUP 02200000
* IF TRACEMLMP SPECIFIED 02210000
SPACE 1 02220000
*@MTRAC * 02230000
DC AL2(0) CCP MLTA TRACE ROUTINE 02240000
* ADDRESS FILLED BY STARTUP 02250000
* IF TRACEMLTA SPECIFIED 02260000
EJECT 02270000
*------------TRANSIENT COMMUNICATION AREA-----------------------------* 02280000
*SV1TAX * 02290000
DC AL2($CC4CP) TRANSIENT AREA 1 PARAMETER AREA 02300000
SPACE 1 02310000
*SV2TAX * 02320000
DC AL2($CC4TM) TRANSIENT AREA 2 PARAMETER AREA 02330000
SPACE 5 02340000
*----------- ADDRESSES OF SYSTEM TASK CONTROL BLOCKS -----------------* 02350000
* THESE ADDRESSES ARE FILLED IN BY STARTUP. 02360000
SPACE 2 02370000
*@CMTCB * 02380000
DC AL2(0) @ COMMUNICATIONS MANAGEMENT TCB 02390000
SPACE 1 02400000
AIF (&NDF).NDFFS . SKIP IF NO DFF. 02410000
*@DFTCB * 02420000
DC AL2(DFA000) @ OF DISPLAY FORMAT FACILITY TCB 02430000
AGO .CONTN SKIP IF DFF SUPPORTED. 02440000
.NDFFS ANOP CONTINUE HERE IF NO DFF. 02450000
DC XL2'0000' 02460000
.CONTN ANOP CONTINUE HERE. 02470000
SPACE 1 02480000
*@TMTCB * 02490000
DC AL2(0) @ TERMINATION TCB 02500000
SPACE 1 02510000
*@CPTCB * 02520000
DC AL2(0) @ COMMAND PROCESSOR TCB 02530000
SPACE 1 02540000
*@AVTCB * 02550000
DC AL2(0) @ AVAILABLE TCB'S 02560000
EJECT 02570000
*----------- SYSTEM LEVEL FLAGS --------------------------------------* 02580000
SPACE 2 02590000
*$FLGA * 02600000
DC AL1(&DFF*128) FIRST SYSTEM LEVEL FLAG BYTE 02610000
* BITS IN $FLGA ARE SET BY STARTUP 02620000
*#DFFOK BIT0 DFF IS SUPPORTED 02630000
*CPSOB1 BIT1 SIGN ON PASSWORD REQUIRED 02640000
*CPSOB2 BIT2 SIGN ON USER PASSWORD REQUIRED 02650000
*CPSHUT BIT3 SHUTDOWN HAS BEEN REQUESTED 02660000
*CPSU BIT4 STARTUP IS IN PROCESS 02670000
*#DSKFS BIT5 DISK FILE SHARING IS SUPPORTED 02680000
*CPISNW BIT7 $CC4IS IS NOT TO ISSUE WAIT 02690000
* AFTER POSTING $CC4CM 02700000
SPACE 3 02710000
*$FLGB * 02720000
DC AL1(0) SECOND SYSTEM LEVEL FLAG BYTE 02730000
* BITS IN $FLGB ARE SET BY STARTUP 02740000
*#SUALL BIT0 SUSPEND ALL IN EFFECT 02750000
*#SUINT BIT1 SUSPEND INIT IN EFFECT 02760000
*#SUCMD BIT2 SUSPEND COMMANDS IN EFFECT 02770000
*#TDERR BIT5 * 1-PERMANENT DISK I/O ERROR 02780000
* * TRACING TO DISK HAS BEEN STOPP 02790000
*#CPCAN BIT6 CCP CANCEL RECEIVED 02800000
*#PUCNT BIT7 PROGRAM USE COUNTING IS ON 02810000
SPACE 3 02820000
*$FLGC * 02830000
DC AL1(&NINT*2) THIRD SYSTEM LEVEL FLAG BYTE 02840000
*#MTRAC BIT0 MLTA TRACE IS ON 02850000
*#BTRAC BIT1 BSCA TRACE IS ON 02860000
*#CTRAC BIT2 CCP TRACE IS ON 02870000
*#PUTTP BIT3 PUT ONLY TPBUFF FOR GETMAIN 02880000
*#INVPL BIT4 INVITE PL GETMAIN AREA OF TPBUFF 02890000
*#D3340 BIT5 IPL FROM THE 3340 DISK 02900000
*INTNSP BIT6 INT TIMER NOT SUPPORTED 02910000
*#3340 BIT7 EXTENDED ADDRESSING IN CPU 02920000
EJECT 02930000
*----------- SYSTEM CONSTANTS ----------------------------------------* 02940000
*X$0000 * 02950000
DC XL2'0000' CONSTANT XL2'0000' 02960000
SPACE 1 02970000
*X$0001 * 02980000
DC XL1'01' CONSTANT XL2'0001' ALONG WITH 02990000
* CONSTANT X$0000 03000000
SPACE 1 03010000
*X$0002 * 03020000
DC XL2'0002' CONSTANT XL2'0002' 03030000
SPACE 1 03040000
*X$0004 * 03050000
DC XL2'0004' CONSTANT XL2'0004' 03060000
SPACE 1 03070000
*X$FFFF * 03080000
DC XL2'FFFF' CONSTANT XL2'FFFF' 03090000
EJECT 03100000
*----------- QUEUE ADDRESS POINTERS ----------------------------------* 03110000
*@ALOCQ * 03120000
DC AL2(0) Q OF TASKS WAITING TO BE ALLOC'D 03130000
SPACE 1 03140000
*@WATSK * 03150000
DC AL2(0) ALLOCATE WAIT QUEUE 03160000
SPACE 1 03170000
*@QTUBS * 03180000
DC AL2(0) @ Q TUB'S WAITING FOR TCB/CORE 03190000
SPACE 1 03200000
*@GMWTQ * 03210000
DC AL2(0) @ GETMAIN TCB QUEUE 03220000
SPACE 1 03230000
*@DFFQ * 03240000
DC AL2(0) QUEUE FOR REQUESTS TO DFF TASK 03250000
SPACE 1 03260000
*@PRLQ * 03270000
DC AL2(0) @ OF PARAMETER LIST QUED FOR CM 03280000
EJECT 03290000
*----------- LIST ADDRESS POINTERS -----------------------------------* 03300000
*@TALST * 03310000
DC AL2(TA@PGM-10) @ PROGRAM LIST IN $CC4TA 03320000
SPACE 1 03330000
*@TCORG * 03340000
DC AL2(0) @ OF THE TCB LIST 03350000
SPACE 1 03360000
*@FSQB * 03370000
DC AL2(0) @ FIRST AVAILABLE FSQE 03380000
* FILLED BY STARTUP 03390000
SPACE 1 03400000
*@LCB#1 * 03410000
DC AL2(0) @ FIRST LCB IN SYSTEM 03420000
* FILLED BY STARTUP 03430000
SPACE 1 03440000
*@TUBQ * 03450000
DC AL2(0) @ OF THE FIRST TUB IN THE SYSTEM 03460000
* FILLED BY STARTUP 03470000
SPACE 1 03480000
*@DFCT * 03490000
DC AL2(0) @ OF THE SHORT DTF ADDRESS LIST 03500000
* FILLED BY STARTUP 03510000
SPACE 1 03520000
*@TNT * 03530000
DC AL2(0) @ OF 1ST TERMINAL NAME TABLE ENT 03540000
* FILLED BY STARTUP 03550000
SPACE 1 03560000
*@XDT * 03570000
DC AL2(0) @ 1ST SYMBOLIC DFCT NAME ENTRY 03580000
* FILLED BY STARTUP 03590000
EJECT 03600000
*----------- MAIN STORAGE CONTROL BLOCK ( TPBUFF AND UPA )------------* 03610000
* ALL FIELDS FILLED BY STARTUP 03620000
SPACE 2 03630000
*@BUFA * 03640000
DC AL2(0) @ OF FIRST FREE SEGMENT 03650000
SPACE 1 03660000
*#NBND * 03670000
DC AL2(0) RESERVED - MUST BE ZEROS 03680000
SPACE 1 03690000
*@LOBND * 03700000
DC AL2(0) @ LO-BOUND GETMAIN AREA 03710000
SPACE 1 03720000
*@HIBND * 03730000
DC AL2(0) @ HI-BOUND GETMAIN AREA 03740000
SPACE 1 03750000
*#GMS * 03760000
DC AL2(0) SIZE OF LARGEST FREE SPACE 03770000
SPACE 1 03780000
*#TPBUF * 03790000
DC AL2(0) ORIGINAL SIZE OF TPBUFF 03800000
SPACE 1 03810000
*@UPA * 03820000
DC AL1(0) USER PROGRAM AREA ATR 03830000
SPACE 1 03840000
*#AVCOR * 03850000
DC AL1(0) # 2K BLOCKS NOT GIVEN TO NEP'S 03860000
EJECT 03870000
*------------ GENERAL AREAS ------------------------------------------* 03880000
*@PUCNT * 03890000
DC AL2(0) @ PROGRAM USE COUNT TABLE 03900000
* FILLED BY STARTUP 03910000
SPACE 1 03920000
*@TUSTG * 03930000
DC AL2(0) @ OF TUB IN STAGING NOW(CP TASK) 03940000
SPACE 1 03950000
*@KNTUB * 03960000
DC AL2(KNTUB) @ OF CONSOLE TUB 03970000
SPACE 1 03980000
*@PTX * 03990000
DC AL2(0) @ OF PCT MASTER INDEX 04000000
* FILLED BY STARTUP 04010000
SPACE 1 04020000
*@PTXCS * 04030000
DC AL2(0) C/S VALUE OF PCT DISK START 04040000
* FILLED BY STARTUP 04050000
SPACE 1 04060000
*#PCTLN * 04070000
DC AL1(0) LONGEST LEN PCT USED BY PGM RQST 04080000
* FILLED BY STARTUP 04090000
SPACE 1 04100000
*#DFCT * 04110000
DC AL1(0) NO. ENTRIES IN SHORT DTF @ LIST 04120000
* FILLED BY STARTUP 04130000
SPACE 1 04140000
*#SETID * 04150000
DC AL1(0) ID OF ASSIGNMENT SET IN USE 04160000
* FILLED BY STARTUP 04170000
SPACE 1 04180000
*#XDT * 04190000
DC AL1(0) NUMBER OF SYMFILE STATEMENTS 04200000
* FILLED BY STARTUP 04210000
SPACE 1 04220000
*@UALFA * 04230000
DC AL2(0) UNCHANGING START OF UPA 04240000
* FILLED BY STARTUP 04250000
SPACE 1 04260000
*@TKFSB * 04270000
DC AL2(0) FSB AREA FOR TCB'S 04280000
* FILLED BY STARTUP 04290000
SPACE 1 04300000
*CPLPWD * 04310000
DC AL1(0) LENGTH OF SIGN ON PASSWORD 04320000
* FILLED BY STARTUP 04330000
SPACE 1 04340000
*CPPSWD * 04350000
DC CL6' ' CCP SIGN ON PASSWORD 04360000
* FILLED BY STARTUP 04370000
EJECT 04380000
*----- CCP DUMP AREA DISK ADDRESSES ----------------------------------* 04390000
* ALL FIELDS FILLED BY STARTUP 04400000
*@DSTRT * 04410000
DC AL2(0) DUMP AREA START C/S 04420000
SPACE 1 04430000
*@DEND * 04440000
DC AL2(0) DUMP AREA END C/S 04450000
SPACE 1 04460000
*@DNEXT * 04470000
DC AL2(0) DUMP AREA NEXT ENTRY C/S 04480000
SPACE 1 04490000
*#CPFLQ * 04500000
DC AL1(0) $CCPFILE DEVICE Q-BYTE 04510000
EJECT 04520000
*----------- FIXED LOCATIONS OF RESIDENT CODE ------------------------* 04530000
*CC4TA * 04540000
*CC4PI * 04550000
L @CC4TA,IAR LOAD IAR OF $CC4TA 04560000
SPACE 1 04570000
*CC4IS * 04580000
L @CC4IS,IAR LOAD IAR OF @CC4IS 04590000
SPACE 1 04600000
*CC4GM * 04610000
L @CC4GM,IAR LOAD IAR OF @CC4GM 04620000
SPACE 1 04630000
*CC4FM * 04640000
L @CC4FM,IAR LOAD IAR OF @CC4FM 04650000
SPACE 1 04660000
*USECW * 04670000
L @USECW,IAR LOAD IAR OF @USECW 04680000
SPACE 1 04690000
*CC4MX * 04700000
L @CC4MX,IAR LOAD IAR OF @CC4MX 04710000
SPACE 1 04720000
*C4TI2 * 04730000
L @C4TI2,IAR LOAD IAR OF @C4TI2 04740000
SPACE 1 04750000
*CC4TI * 04760000
L @CC4TI,IAR LOAD IAR OF @CC4TI 04770000
SPACE 1 04780000
*CC4TT * 04790000
L X'004C',IAR LOAD IAR OF @CTRAC 04800000
SPACE 1 04810000
*CC4SR * 04820000
L @CC4SR,IAR LOAD IAR OF @CC4SR 04830000
SPACE 1 04840000
*CC4FR * 04850000
L @CC4FR,IAR LOAD IAR OF @CC4FR 04860000
SPACE 2 04870000
*------------ADDITIONAL ENTRY POINT ADDRESS DEFINITION ---------------* 04880000
*@CC4FR * 04890000
DC AL2(0) SET BY STARTUP 04900000
SPACE 1 04910000
*@CC4II * 04920000
DC AL2($CC4II) $CC4II ENTRY POINT - NEEDED BY 04930000
* * SHUTDOWN FOR BUFFER. 04940000
SPACE 5 04950000
*------------- MAINTENANCE SPACE ------------------ 2 BYTES -------* 04960000
SPACE 1 04970000
DC 2XL1'00' MAINTENANCE SPACE 04980000
SPACE 1 04990000
*$END1 05000000
TITLE 'WORK AREAS' 05010000
************ DFF WORK AREA 15 BYTES************ 05020000
*$DFWK 05030000
*@DFFIX * 05040000
DC AL2(0) C/S OF DFF FORMATS INDEX 05050000
* FILLED BY STARTUP 05060000
SPACE 1 05070000
*#DFQ * 05080000
DC AL1(0) FDT DEVICE Q-BYTE 05090000
* FILLED BY STARTUP 05100000
SPACE 1 05110000
*#DF1ID ID OF TASK 'OWNING' SPACE IN 05120000
* DFF COMM. AREA FOR LINE 1 05130000
DC AL1(0) TASK ID 05140000
SPACE 1 05150000
*#DF2ID ID OF TASK 'OWNING' SPACE IN 05160000
* DFF COMM. AREA FOR LINE 2 05170000
DC AL1(0) TASK ID 05180000
SPACE 1 05190000
*$DFECB * 05200000
DC XL3'000000' ECB FOR DFF TASK 05210000
DC 7XL1'00' ************************* 05220000
EJECT 05230000
************ COMMAND PROCESSOR WORK AREA 50 BYTES************ 05240000
SPACE 1 05250000
*$CPWK 05260000
SPACE 1 05270000
*----------- REGISTER SAVE AREAS FOR THE DISPLAY TRANSIENT -----------* 05280000
*$CPIAR * 05290000
DC AL2(0) IAR 05300000
SPACE 1 05310000
*$CPXR1 * 05320000
DC AL2(0) TUB,TNT,OR FSB 05330000
SPACE 1 05340000
*$CPDTF * 05350000
DC AL2(0) DTF 05360000
SPACE 1 05370000
*$CPUSE * 05380000
DC AL1(0) PROGRAM USE COUNT SAVE FIELD 05390000
SPACE 2 05400000
*----------- COMMAND PROCESSOR ECB LIST ------------------------------* 05410000
*$CPLST ECB LIST. 05420000
DC AL2($CPQ) PROGRAM INITIATE-POSTED BY TERM 05430000
DC AL2($CPPF9) PF9 - PROGRAM REQUEST 05440000
DC AL2($CPCM) DATA IN TP BUFFER FOR CP 05450000
DC AL2(X'0048') OCC 05460000
DC AL2($CP1ST) STARTUP/WTOR/LIST DELIMITER 05470000
DC XL2'FFFF' LIST DELIMITER 05480000
SPACE 2 05490000
*----------- COMMAND PROCESSOR ECB'S ---------------------------------* 05500000
*$CPQ * 05510000
DC 3XL1'00' PROGRAM INITIATE-POSTED BY TERM 05520000
SPACE 1 05530000
*$CPPF9 * 05540000
DC 3XL1'00' PF9 - PROGRAM REQUEST 05550000
SPACE 1 05560000
*$CPCM * 05570000
DC 3XL1'00' DATA IN TP BUFFER FOR CP 05580000
SPACE 1 05590000
*$CPOCC OCC - IN THE DSM NUCLEUS 05600000
* 05610000
*$CP1ST * 05620000
DC XL3'400000' FIRST TIME SWITCH 05630000
SPACE 1 05640000
*$CPFLG SECOND BYTE OF $CP1ST COMMAND PROCESSOR FLAG BYTE 05650000
*$CPFR BIT0 FREEMAIN TO BE DONE 05660000
*$CPCFR BIT3 FREE NEEDED FOR CONSOLE OCC 05670000
*$CPDPG BIT4 PAGE 1 OF DISPLAY DONE 05680000
*$CPD1S BIT5 DO SECONDARY MENU 05690000
SPACE 1 05700000
*$CPWTO WTO - GETMAINED FOR IN TPBUFF 05710000
*---------------------------------------------------------------------* 05720000
SPACE 2 05730000
*$CPPRQ $CP+30 START OF 20 BYTE PRGM REQ AREA 05740000
SPACE 05750000
*$CPCOM $CP+30 START OF COMMANDS COMMO AREA 05760000
*$CPRTC $CP+31 SAVE AREA FOR PLRTC 05770000
*$CPEFL $CP+33 SAVE AREA FOR PLEFFL 05780000
*$CPRCA $CP+35 SAVE AREA FOR PLRECA 05790000
SPACE 05800000
*$CPLMG 2 BYTE MESSAGE LENGTH 05810000
DC XL1'00' ALONG WITH LAST BYTE OF $CP1ST 05820000
SPACE 1 05830000
*$CPMSG $CP+32 * 05840000
DC AL2($CC4IG) MSG AREA: MSG #(NN), THEN TEXT 05850000
SPACE 1 05860000
*#LSTSZ $CPMSG+2 * 05870000
DC AL1(LSTSIZ) # ENTRIES IN FIRST LEVEL LIST 05880000
SPACE 1 05890000
*@XSNT1 #LSTSZ+2 * 05900000
DC AL2(XSNT1) ADDRESS OF TRANSIENT AREA 1 05910000
SPACE 1 05920000
*@XSNT2 @XSNT1+2 * 05930000
DC AL2(XSNT2) ADDRESS OF TRANSIENT AREA 2 05940000
SPACE 1 05950000
DC 11XL1'00' (UNUSED) 05960000
EJECT 05970000
************ ALLOCATION WORK AREA 9 BYTES************ 05980000
*$AMWK 05990000
*$AM 06000000
DC 9XL1'00' ALLOCATION WORK AREA 06010000
SPACE 2 06020000
*$AMFLG $AM ALLOCATION FLAG BYTE 06030000
*$AMBSY BIT0 1--ALLOCATION BUSY 06040000
*$APEND BIT1 1--ALLOCATION TASK POST PENDING 06050000
*$AMDFF BIT2 NON-RESIDENT DFF ALOC IN PROCESS 06060000
*$AMA1 BIT3 U/R DEVICE ALLOCATION IN PROCESS 06070000
*$AMA2 BIT4 REJECT IN PROCESS 06080000
*$AMPF9 BIT5 CONSOLE TUB IN USE FOR PROGRAM 06090000
SPACE 06100000
*$AMUR $AMFLG+1 CCP LEVEL AND SPOOLING DEVICES. 06110000
*A1SPLV BIT0 1=CCP IS IN LEVEL 1. 06120000
* 0=CCP IS IN LEVEL 2. 06130000
* BIT2 MFCU/M SEC IS SPOOL RDR FOR CCP 06140000
* BIT3 MFCU/M SEC IS SPOOL PCH FOR CCP 06150000
*A1741S BIT4 3741 IS SPOOLED READER FOR CCP 06160000
* BIT6 MFCU/M PRI IS SPOOL RDR FOR CCP 06170000
* BIT7 MFCU/M PRI IS SPOOL PCH FOR CCP 06180000
*$AMPA $AMUR+1 PERM ALLOC AND SPOOLED UR 06190000
* DEVICES FOR CCP. 06200000
*PCTPRS BIT0 1=WILL SHARE PRINTER. 06210000
*PCT41I BIT1 1=3741 IS PERM ALLOCATED 06220000
*PCT501 BIT2 1=2501 IS PERM ALLOCATED. 06230000
*PCTPRT BIT3 1=PRINTER IS PERM ALLOCATED. 06240000
*PCT142 BIT4 1=1442 IS PERM ALLOCATED. 06250000
*PCTMFU BIT5 1=MFCU/M IS PERM ALLOCATED. 06260000
* BIT6 1=1442 IS SPOOL READER FOR CCP 06270000
* BIT7 1=1442 IS SPOOL PUNCH FOR CCP 06280000
SPACE 06290000
*$AMSA $AMPA+1 IN USE DEVICES 06300000
*$AMSHR $AMSA+1 COUNT OF PRESENT PRINT SHARERS 06310000
EJECT 06320000
************ TERMINATOR WORK AREA 24 BYTES************ 06330000
*$TMWK START OF TERMINATION WORK AREA 06340000
*$TM BEGINNING OF WORK AREA 06350000
DC 24XL1'00' TERMINATOR WORK AREA 06360000
SPACE 2 06370000
*$TMFLG $TM TERMINATOR FLAG BYTE 06380000
*$TMSTK BIT0 SYSTEM TASK FAILURE 06390000
*$TMBSY BIT0 1--TERMINATION TASK IS ACTIVE 06400000
* 0--TERMINATION TASK NOT BUSY 06410000
*$TMDMP BIT1 1--DUMP HAS BEEN TAKEN 06420000
* 0--DUMP NOT TAKEN 06430000
*$TMEJ BIT2 1--$CC4EJ (CCP END OF JOB) 06440000
* HAS BEEN INVOKED BY $CC4TD 06450000
* (TERMINATION CONTROL ROUTINE) 06460000
*$TMCLZ BIT3 TERMINATION MUST CALL CLOSE 06470000
*$TMCM BIT4 RESERVED 06480000
*$TMCP BIT5 RESERVED 06490000
*$TMDFL BIT6 ON=NO MORE DUMP SPACE GUARANTEED 06500000
*$TMDER BIT7 ON=PERMANENT DISK I/O ERROR 06510000
* DURING TERMINATION DUMP 06520000
SPACE 1 06530000
*$TMTCB $TMFLG+2 @ OF TCB CURRENTLY BEING 06540000
* PROCESSED BY TERMINATION TASK 06550000
*$TMECB $TMTCB+1 TERMINATION'S ECB (3 BYTES) 06560000
*$TMDID $TMECB-1+3+2 DUMP ID DIGITS (2 BYTES) 06570000
SPACE 2 06580000
*----------- TD WORK AREAS -------------------------------------------* 06590000
*TDTCB@ $TMDID+2 TCB ADDRESS 06600000
*TDASAU TDTCB@+2 ATR SAVE 06610000
*TDESAU TDASAU+2 END LENGTH 06620000
*TDQSAV TDESAU+2 XR1 06630000
*TDXSAV TDQSAV+2 ATR SAVE 06640000
*TDCON9 TDXSAV+2 CONSTANT 9 06650000
EJECT 06660000
************ COMMUNICATIONS MANAGEMENT WORK AREA 45 BYTES************ 06670000
*$CMWK START OF 'CM' WORK AREA 06680000
*$CM START OF 'CM' WORK AREA 06690000
DC 18XL1'00' COMMUNICATION TASK WORK AREA 06700000
SPACE 2 06710000
*#CMDTF $CM+1 SAVE AREA FOR DTF ADDRESS 06720000
*#CMPL #CMDTF+2 SAVE AREA FOR PARM LIST 06730000
SPACE 06740000
*#CMTMA #CMPL+2 SAVE AREA FOR TERMINAL ADDRESS 06750000
*#CMBK1 #CMTMA RETURN CODE FOR $CC4BL MESSAGE 06760000
SPACE 06770000
*#CMTFT #CMTMA+1 SAVE AREA FOR TERMINAL FEATURES 06780000
*#CMBK2 #CMTFT INTERNAL MSG TYPE FOR $CC4BL 06790000
SPACE 06800000
*#CMPTR #CMTFT+2 SAVE AREA FOR PREVIOUS POINTER 06810000
*#CMFPL #CMPTR+2 SAVE AREA FOR FOUND PARM LIST 06820000
*#CMPTX #CMFPL+2 SPECIAL SAVE AREA FOR PREV PTR 06830000
*#CMTUB #CMPTX+2 SAVE AREA FOR TUB ADDRESS 06840000
*#CMERP #CMTUB+2 @ OF DTF TO BE RESCHEDULED AFTER 06850000
* BEING IN CCP ERP 06860000
*#CMSWT #CMERP+1 CONTROL SWITCH 06870000
*#CMARR BIT0 1--OK TO MODIFY TCBARR 06880000
SPACE 2 06890000
*#OPEND #CMSWT+1 * 06900000
DC XL1'00' T-P OP END COUNT 06910000
SPACE 1 06920000
*#CCMCL #OPEND+2 * 06930000
DC XL2'0000' MAXIMUM COMMAND BUFFER LENGTH 06940000
SPACE 1 06950000
*#RUFCL #CCMCL+2 RUF COMMAND LENGTH 06960000
DC AL2(0) FILLED BY STARTUP 06970000
SPACE 1 06980000
*@TAS #RUFCL+2 TERMINAL ATTRIBUTE SET ADDRESS 06990000
DC AL2(0) FILLED BY STARTUP 07000000
SPACE 1 07010000
*#HITAS @TAS+1 HIGHEST TAS INDEX IN SYSTEM 07020000
DC AL1(0) FILLED BY STARTUP 07030000
SPACE 1 07040000
*@CSSTT #HITAS+2 DISK C/S OF STT 07050000
DC AL2(0) FILLED BY STARTUP 07060000
SPACE 1 07070000
*#HISTT @CSSTT+1 NO ENTRIES IN STT(SW TERM TBL) 07080000
DC AL1(0) FILLED BY STARTUP 07090000
SPACE 1 07100000
*@MLTAD #HISTT+2 ADDRESS OF MLTA ADAPTER 07110000
DC AL2(0) 0 INDICATES NO MLTA ADAPTER 07120000
* FILLED BY STARTUP 07130000
SPACE 1 07140000
*@CKLST @MLTAD+2 ADDRESS OF CHECK LIST 07150000
DC AL2(0) FILLED BY STARTUP 07160000
SPACE 1 07170000
*----------- COMMUNICATIONS MANAGEMENT ECB'S -------------------------* 07180000
*$CMECB @CKLST+1 * 07190000
DC XL3'000000' GENERAL POST ECB FOR CM 07200000
SPACE 1 07210000
*$CMFM $CMECB+3 * 07220000
DC XL3'200000' FREEMAIN'S POST OF CM 07230000
*@ANYTP $CMFM+4 ADDRESS OF COMMON TP BUFFER AREA 07240000
DC AL2(0) * FILLED BY STARTUP 07250000
*@INVPL @ANYTP+2 ADDRESS OF INVITE PL AREA 07260000
DC AL2(0) * FILLED BY STARTUP 07270000
SPACE 1 07280000
DC XL2'0000' END OF ECB LIST 07290000
EJECT 07300000
*----------- CONSOLE TUB AND PARAMETER LIST --------------------------* 07310000
*KNTUB $END1+#LWKWK FIXED LOCATION OF CONSOLE TUB 07320000
DC CL2'KN' CONSTANT 07330000
DC AL2(KNPL) PARM LIST ADDRESS 07340000
DC XL7'00000000000000' UNUSED BYTES IN TUB 07350000
DC XL1'80' SIGNIFIES CONSOLE TUB 07360000
DC 26XL1'00' MORE UNINITIALIZED BYTES 07370000
*KNPL KNTUB+38 CONSOLE PARAMETER LIST 07380000
DC XL2'0000' PLRTC FILED OF KN PL 07390000
DC XL2'8007' SYS REQUEST SO NOT FREEMAINED 07400000
DC 15XL1'00' REST OF PARM LIST 07410000
EJECT 07420000
*----------- SHUTDOWN FIELDS -----------------------------------------* 07430000
*SHDECB KNPL+19 SHUTDOWN'S ECB 07440000
DC XL3'000000' SHUTDOWN'S ECB 07450000
SPACE 1 07460000
DC XL1'00' RESERVED 07470000
*FEHLT@ SHDECB+2+3 07480000
DC AL2(XSNTHT) ADDRESS OF FE HALT ROUTINE 07490000
SPACE 1 07500000
DC 11XL1'00' SAVE AREA 07510000
*SHDSAV FEHLT@+11 CM TCB FIELDS SAVE AREA 07520000
SPACE 2 07530000
*--------- EXTENTION TO $CC4CM WORK AREA -------------------------* 07540000
*#CMTRL SHDSAV-10+11 * 07550000
*#CMMVL #CMTRL MOVE LIST FOR $CC4CM 07560000
DC 11XL1'00' TRANSLATE LIST FOR $CC4CM 07570000
*PLTIME #CMMVL+10+4 POLL TIME FOR CM 07580000
DC XL4'00' 07590000
*WATIME PLTIME+3 WAIT TIME FOR CM 07600000
DC XL3'00' 07610000
*SAVLOP WATIME+1 SAVE AREA FOR POLL LOOP COUNT 07620000
DC XL1'00' 07630000
*@CCPTB SAVLOP+2 CCP PARTITION TCB ADDRESS 07640000
DC AL2(0) ADDRESS IS FILLED BY START-UP 07650000
*#TPPUT @CCPTB+2 LENGTH OF PUT AREA IN TPBUFFER 07660000
DC AL2(0) ADDRESS IS FILLED BY START-UP 07670000
*#TPANY #TPPUT+2 LENGTH OF MIDDLE AREA IN TPBUFF 07680000
DC AL2(0) LENGTH FILLED BY START-UP 07690000
*#ANYS #TPANY+1 LENGTH OF LARGEST COMMON AREA 07700000
DC AL2(0) INIT. LENGTH FILLED BY START-UP 07710000
*CORCNT #ANYS+2 COUNT OF NO. PARMLISTS WAITING 07720000
* ON CORE FROM TPBUFFER 07730000
DC XL1'00' INITIALIZED TO ZERO 07740000
EJECT 07750000
MEND 07760000