|
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: 20828 (0x515c)
Types: s3xseg
Names: »S$ECOM«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ECOM«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $ECOM * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LOCATIONS OF DATA AREAS WITHIN CCP COMMON. * 00070000
.* WHERE APPROPRIATE, DEFINE THE BIT SIGNIFICANCE FOR THOSE DATA * 00080000
.* AREAS. DEFINE THE LENGTHS AND LOCATIONS OF FIELDS IN * 00090000
.* THE FOLLOWING WORK AREAS: COMMAND PROCESSOR, ALLOCATION, * 00100000
.* TERMINATION, COMMUNICATIONS MANAGEMENT. * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * LABELS-ADDR GENERATE ADDRESSES, NOT OFFSETS. DEFAULT IS * 00140000
.* ADDR. * 00150000
.* -DSPL GENERATE OFFSETS, NOT ADDRESSES. * 00160000
.* * ID-0 PROGRAM IS NOT A TRANSIENT. GENERATE ABSOLUTE* 00170000
.* ADDRESS VALUES(BASE NOT POSSIBLE). * 00180000
.* * -1 PROGRAM WILL EXECUTE IN TRANSIENT AREA ONE. * 00190000
.* THIS IS THE DEFAULT. THE DEFAULTED VALUE CAN * 00200000
.* ALSO BE USED BY NON-TRANSIENTS BY PRECEDING * 00210000
.* THIS MACRO WITH A $CC4$$ EQU X'4000' IF * 00220000
.* ADDRESSES(BASE NOT TO BE USED) ARE WANTED. * 00230000
.* IF A BASE IS DESIRED, $CC4$$ MUST BE DEFINED * 00240000
.* IN TERMS OF *(LOCATION COUNTER). * 00250000
.* -2 PROGRAM WILL EXECUTE IN TRANSIENT AREA TWO. * 00260000
.* * $CC4$$-Y/N GENERATE '$CC4$$ EQU X'4000'. DEFAULT IS N.* 00270000
.* * DF-Y/N/0/1 GENERATE LABELS FOR DISPLAY FORMAT FACILITY * 00280000
.* WORK AREA. DEFAULT IS Y. * 00290000
.* * CP-Y/N GENERATE LABELS FOR COMMAND PROCESSOR WORK * 00300000
.* AREA. DEFAULT IS Y. * 00310000
.* * AM-Y/N GENERATE LABELS FOR ALLOCATION WORK AREA. * 00320000
.* DEFAULT IS Y. * 00330000
.* * TM-Y/N GENERATE LABELS FOR TERMINATION WORK AREA. * 00340000
.* DEFAULT IS Y. * 00350000
.* .* CM-Y/N GENERATE LABELS FOR COMMUNICATIONS MANAGEMENT * 00360000
.* WORK AREA. DEFAULT IS Y. * 00370000
.* * 00380000
.* NOTES: * 00390000
.* * LABELS THAT REFERENCE A LOCATION IN CORE CAN BE GENERATED * 00400000
.* WITH EITHER AN ADDRESS OR AN OFFSET. USE OF THE ADDRESS * 00410000
.* LABELS WITH A REGISTER WILL REQUIRE A BASE INSTRUCTION. THE * 00420000
.* LABEL FOR THE BASE INSTRUCTION IS $COMON. LABELS THAT ARE * 00430000
.* PART OF A WORK AREA ARE EITHER ADDRESSES OR OFFSETS FROM THE * 00440000
.* START OF THE WORK AREA(EXCEPT FOR THE DF WORK AREA WHICH CAN * 00450000
.* BE EITHER OFFSETS FROM $COMON OR ADDRESSES). * 00460000
.********************************************************************** 00470000
$ECOM &LABELS-ADDR,&ID-1,&DF-Y,&CP-Y,&AM-Y,&TM-Y,&CM-Y, X00480000
&$CC4$$-N 00490000
TABLE &ID 00500000
1 TABDF 1024 00510000
2 TABDF 512 00520000
TABLE &DF 00530000
Y TABDF 1 00540000
N TABDF 0 00550000
TEXT 00560000
*********************************************************************** 00570000
* 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 * 00580000
* C O M M O N A R E A O F F S E T S * 00590000
*********************************************************************** 00600000
TAONE EQU X'4000' LOCATION OF TRANSIENT AREA 1 00610000
TATWO EQU TAONE+512 LOCATION OF TRANSIENT AREA 2 00620000
SPACE 00630000
AIF (&ID EQ '0').CC4$$ 00640000
AIF (&$CC4$$ NE 'Y').LABEL 00650000
.CC4$$ ANOP 00660000
$COMON EQU X'4400' ADDRESS OF CCP COMMON 00670000
AGO .CC120 00680000
.LABEL AIF (&LABELS EQ 'ADDR').CC100 00690000
$COMON EQU 0 00700000
AGO .CC120 00710000
.CC100 ANOP 00720000
$COMON EQU $CC4$$+&ID 00730000
.CC120 ANOP 00740000
SPACE 2 00750000
*------------ENTRY POINT ADDRESS DEFINITION---------------------------* 00760000
@CC4TR EQU $COMON-1+2 TRANSIENT RETURN ADDRESS 00770000
@CC4TX EQU @CC4TR+2 TRANSIENT TRANSFER CONTROL @ 00780000
@CC4PI EQU @CC4TX+2 1ST LEVEL TRANSIENT INVOCATION @ 00790000
@CC4TA EQU @CC4TX+2 1ST LEVEL TRANSIENT INVOCATION @ 00800000
@CC4IS EQU @CC4TA+2 COMMUNICATIONS I/O INTERFACE ADR 00810000
@CC4GM EQU @CC4IS+2 GETMAIN ENTRY ADDRESS 00820000
@CC4FM EQU @CC4GM+2 FREEMAIN ENTRY ADDRESS 00830000
@MLTIO EQU @CC4FM+2 MLTA IOCS ENTRY POINT @. 00840000
@MLTOP EQU @MLTIO+2 MLTA OPEN ENTRY POINT @. 00850000
@USECW EQU @MLTOP+2 USER SECURITY DATA WORK AREA ADR 00860000
@CC4MX EQU @USECW+2 MOVE FOREVER ROUTINE ADDRESS 00870000
@C4TI2 EQU @CC4MX+2 PROGRAM TERMINATION INTERFACE @ 00880000
@CC4TI EQU @C4TI2+2 OTHER TASK TERMINATE ADDRESS 00890000
@CC4SR EQU @CC4TI+2 ENTRY ADDRESS IN MOVE ROUTINE 00900000
@CC4TH EQU @CC4SR+2 @ TERMINATION INTERFACE 00910000
@BTRAC EQU @CC4TH+2 CCP BSCA TRACE ROUTINE 00920000
@MTRAC EQU @BTRAC+2 CCP MLTA TRACE ROUTINE 00930000
SPACE 2 00940000
*------------TRANSIENT COMMUNICATION AREA-----------------------------* 00950000
SV1TAX EQU @MTRAC+2 TRANSIENT AREA 1 PARAMETER AREA 00960000
SV2TAX EQU SV1TAX+2 TRANSIENT AREA 2 PARAMETER AREA 00970000
SPACE 2 00980000
*----------- ADDRESSES OF SYSTEM TASK CONTROL BLOCKS -----------------* 00990000
@CMTCB EQU SV2TAX+2 @ COMMUNICATIONS MANAGEMENT TCB 01000000
@DFTCB EQU @CMTCB+2 @ OF DISPLAY FORMAT FACILITY TCB 01010000
@TMTCB EQU @DFTCB+2 @ TERMINATION TCB 01020000
@CPTCB EQU @TMTCB+2 @ COMMAND PROCESSOR TCB 01030000
@AVTCB EQU @CPTCB+2 @ AVAILABLE TCB'S 01040000
EJECT 01050000
*----------- SYSTEM LEVEL FLAGS --------------------------------------* 01060000
$FLGA EQU @AVTCB+1 FIRST SYSTEM LEVEL FLAG BYTE 01070000
#DFFOK EQU BIT0 DFF IS SUPPORTED 01080000
CPSOB1 EQU BIT1 SIGN ON PASSWORD REQUIRED 01090000
CPSOB2 EQU BIT2 SIGN ON USER PASSWORD REQUIRED 01100000
CPSHUT EQU BIT3 SHUTDOWN HAS BEEN REQUESTED 01110000
CPSU EQU BIT4 STARTUP IS IN PROCESS 01120000
#DSKFS EQU BIT5 DISK FILE SHARING IS SUPPORTED 01130000
CPSHD EQU BIT6 SHUTDOWN IN PROCESS 01140000
CPISNW EQU BIT7 $CC4IS IS NOT TO ISSUE WAIT 01150000
* AFTER POSTING $CC4CM 01160000
SPACE 3 01170000
$FLGB EQU $FLGA+1 SECOND SYSTEM LEVEL FLAG BYTE 01180000
#SUALL EQU BIT0 SUSPEND ALL IN EFFECT 01190000
#SUINT EQU BIT1 SUSPEND INIT IN EFFECT 01200000
#SUCMD EQU BIT2 SUSPEND COMMANDS IN EFFECT 01210000
#CPCAN EQU BIT6 CCP CANCEL RECEIVED 01220000
#PUCNT EQU BIT7 PROGRAM USE COUNTING IS ON 01230000
SPACE 3 01240000
$FLGC EQU $FLGB+1 THIRD SYSTEM LEVEL FLAG BYTE 01250000
#MTRAC EQU BIT0 MLTA TRACE IS ON 01260000
#BTRAC EQU BIT1 BSCA TRACE IS ON 01270000
#NTRAC EQU BIT2 NO TRACE (INTERVAL POLLING) 01280000
#PUTTP EQU BIT3 PUT ONLY TP GETMAIN REQUEST 01290000
#INVPL EQU BIT4 INVITE PL GETMAIN REQUEST 01300000
#D3340 EQU BIT5 IPL FROM THE 3340 DISK 01310000
INTNSP EQU BIT6 NO INT POLL SUPPORT=1 01320000
#3340 EQU BIT7 EXTENDED ADDRESSING 01330000
SPACE 3 01340000
*----------- SYSTEM CONSTANTS ----------------------------------------* 01350000
X$0000 EQU $FLGC+2 CONSTANT XL2'0000' 01360000
X$0001 EQU X$0000+1 CONSTANT XL2'0001' 01370000
X$0002 EQU X$0001+2 CONSTANT XL2'0002' 01380000
X$0004 EQU X$0002+2 CONSTANT XL2'0004' 01390000
X$FFFF EQU X$0004+2 CONSTANT XL2'FFFF' 01400000
EJECT 01410000
*----------- QUEUE ADDRESS POINTERS ----------------------------------* 01420000
@ALOCQ EQU X$FFFF+2 Q OF TASKS WAITING TO BE ALLOC'D 01430000
@WATSK EQU @ALOCQ+2 ALLOCATE WAIT QUEUE 01440000
@QTUBS EQU @WATSK+2 @ Q TUB'S WAITING FOR TCB/CORE 01450000
@GMWTQ EQU @QTUBS+2 @ GETMAIN TCB QUEUE 01460000
@DFFQ EQU @GMWTQ+2 QUEUE FOR REQUESTS TO DFF TASK 01470000
@PRLQ EQU @DFFQ+2 @ OF PARAMETER LIST QUED FOR CM 01480000
SPACE 2 01490000
*----------- LIST ADDRESS POINTERS -----------------------------------* 01500000
@TALST EQU @PRLQ+2 @ PROGRAM LIST IN $CC4TA 01510000
@TCORG EQU @TALST+2 @ OF THE TCB LIST 01520000
@FSQB EQU @TCORG+2 @ FIRST AVAILABLE FSQE 01530000
@LCB#1 EQU @FSQB+2 @ FIRST LCB IN SYSTEM 01540000
@TUBQ EQU @LCB#1+2 @ OF THE FIRST TUB IN THE SYSTEM 01550000
@DFCT EQU @TUBQ+2 @ OF THE SHORT DTF ADDRESS LIST 01560000
@TNT EQU @DFCT+2 @ OF 1ST TERMINAL NAME TABLE ENT 01570000
@XDT EQU @TNT+2 @ 1ST SYMBOLIC DFCT NAME ENTRY 01580000
SPACE 2 01590000
*----------- MAIN STORAGE CONTROL BLOCK(TPBUFF) ----------------------* 01600000
@BUFA EQU @XDT-1+2 @ OF FIRST FREE SEGMENT 01610000
#NBND EQU @BUFA+1+2 RESERVED - MUST BE ZEROS 01620000
@LOBND EQU #NBND+2 @ LO-BOUND GETMAIN AREA 01630000
@HIBND EQU @LOBND+2 @ HI-BOUND GETMAIN AREA 01640000
#GMS EQU @HIBND-1+2 SIZE OF LARGEST FREE SPACE 01650000
SPACE 2 01660000
#TPBUF EQU #GMS+1+2 ORIGINAL SIZE OF TPBUFF 01670000
@UPA EQU #TPBUF+1 USER PROGRAM AREA ATR 01680000
#AVCOR EQU @UPA+1 # 2K BLOCKS NOT GIVEN TO NEP'S 01690000
@PUCNT EQU #AVCOR+2 @ PROGRAM USE COUNT TABLE 01700000
SPACE 2 01710000
*------------ GENERAL AREAS ------------------------------------------* 01720000
@TUSTG EQU @PUCNT+2 @ OF TUB IN STAGING NOW(CP TASK) 01730000
@KNTUB EQU @TUSTG+2 @ OF CONSOLE TUB 01740000
@PTX EQU @KNTUB+2 @ OF PCT MASTER INDEX 01750000
@PTXCS EQU @PTX+2 C/S VALUE OF PCT DISK START 01760000
#PCTLN EQU @PTXCS+1 LONGEST LEN PCT USED BY PGM RQST 01770000
#DFCT EQU #PCTLN+1 NO. ENTRIES IN SHORT DTF @ LIST 01780000
#SETID EQU #DFCT+1 ID OF ASSIGNMENT SET IN USE 01790000
#XDT EQU #SETID+1 NUMBER OF SYMFILE STATEMENTS 01800000
#RSVD1 EQU #XDT+1 RESERVED AREA - 1 BYTE 01810000
@UALFA EQU #RSVD1+1 ATR - UNCHANGING START OF UPA 01820000
@TKFSB EQU @UALFA+2 FSB AREA FOR TCB'S 01830000
SPACE 1 01840000
CPLPWD EQU @TKFSB+1 LENGTH OF SIGN ON PASSWORD 01850000
CPPSWD EQU CPLPWD+6 CCP SIGN ON PASSWORD 01860000
SPACE 2 01870000
*----- CCP DUMP AREA DISK ADDRESSES ----------------------------------* 01880000
@DSTRT EQU CPPSWD+2 DUMP AREA START C/S 01890000
@DEND EQU @DSTRT+2 DUMP AREA END C/S 01900000
@DNEXT EQU @DEND+2 DUMP AREA NEXT ENTRY C/S 01910000
#CPFLQ EQU @DNEXT+1 $CCPFILE DEVICE Q-BYTE 01920000
EJECT 01930000
*----------- FIXED LOCATIONS OF RESIDENT CODE ------------------------* 01940000
CC4TA EQU #CPFLQ+1 LOAD IAR OF @CC4TA 01950000
CC4PI EQU CC4TA LOAD IAR OF @CC4PI (@CC4TA) 01960000
CC4IS EQU CC4TA+4 LOAD IAR OF @CC4IS 01970000
CC4GM EQU CC4IS+4 LOAD IAR OF @CC4GM 01980000
CC4FM EQU CC4GM+4 LOAD IAR OF @CC4FM 01990000
USECW EQU CC4FM+4 LOAD IAR OF @USECW 02000000
CC4MX EQU USECW+4 LOAD IAR OF @CC4MX 02010000
C4TI2 EQU CC4MX+4 LOAD IAR OF @C4TI2 02020000
CC4TI EQU C4TI2+4 LOAD IAR OF @CC4TI 02030000
CC4TT EQU CC4TI+4 LOAD IAR OF $TRACE(X'004C') 02040000
CC4SR EQU CC4TT+4 LOAD IAR OF @CC4MV 02050000
CC4FR EQU CC4SR+4 LOAD IAR OF @CC4FR 02060000
@CC4FR EQU CC4FR+3+2 @ OF $CC4FR IN CM 02070000
@CC4II EQU @CC4FR+2 @ OF $CC4II 02080000
SPACE 02090000
*------------- MAINTENANCE SPACE ------------------ 2 BYTES -------* 02100000
SPACE 02110000
$END1 EQU @CC4II+2+1 END OF MAINTENANCE SPACE 02120000
SPACE 3 02130000
*------------WORK AREAS LENGTHS DEFINTIONS----------------------------* 02140000
#LDFWK EQU 15 LENGTH DFF WORK AREA 02150000
#LCPWK EQU 50 LENGTH COMND PROCESSOR WORK AREA 02160000
#LAMWK EQU 9 LENGTH ALLOCATION WORK AREA 02170000
#LTMWK EQU 24 LENGTH TERMINATION WORK AREA 02180000
#LCMWK EQU 45 LENGTH COMMO MGMT WORK AREA 02190000
#LWKWK EQU 143 LENGTH-SUM OF ALL WORK AREAS 02200000
SPACE 3 02210000
*----------- CONSOLE TUB AND PARAMETER LIST --------------------------* 02220000
KNTUB EQU $END1+#LWKWK FIXED LOCATION OF CONSOLE TUB 02230000
KNPL EQU KNTUB+38 CONSOLE PARAMETER LIST 02240000
SPACE 3 02250000
*----------- SHUTDOWN FIELDS -----------------------------------------* 02260000
SHDECB EQU KNPL+19 SHUTDOWN'S ECB 02270000
FEHLT@ EQU SHDECB+2+3 ADDRESS OF FE HALT ROUTINE 02280000
SHDSAV EQU FEHLT@+11 CM TCB FIELDS SAVE AREA 02290000
SPACE 2 02300000
*----------- CM FIELDS AND MAINTENANCE SPACE -------------------------* 02310000
#CMTRL EQU SHDSAV-10+11 CM'S TRANSLATE PARAMETER LIST 02320000
#CMMVL EQU #CMTRL CM'S MOVE PARAMETER LIST 02330000
SPACE 02340000
PLTIME EQU #CMMVL+10+4 POLL TIME FOR CM 02350000
WATIME EQU PLTIME+3 WAIT TIME FOR CM 02360000
SAVLOP EQU WATIME+1 SAVE AREA FOR POLL LOOP COUNT 02370000
@CCPTB EQU SAVLOP+2 ADDRESS OF CCP PARTITION TCB 02380000
#TPPUT EQU @CCPTB+2 LENGTH OF PUT AREA OF TPBUFFER 02390000
#TPANY EQU #TPPUT+2 LENGTH OF COMMON TPBUFFER AREA 02400000
#ANYS EQU #TPANY+1 SIZE OF LARGEST COMMON AREA 02410000
CORCNT EQU #ANYS+2 NUMBER OF PL WAITING ON CORE 02420000
AIF (&DF EQ '0').CC500 02430000
EJECT 02440000
************ DFF WORK AREA 15 BYTES************ 02450000
$DFWK EQU $END1 START OF DFF WORK AREA 02460000
@DFFIX EQU $DFWK+1 C/S OF DFF FORMATS INDEX 02470000
#DFQ EQU @DFFIX+1 FDT DEVICE Q-BYTE 02480000
#DF1ID EQU #DFQ+1 ID OF TASK "OWNING" SPACE IN 02490000
* DFF COMM. AREA FOR LINE 1 02500000
SPACE 1 02510000
#DF2ID EQU #DF1ID+1 ID OF TASK "OWNING" SPACE IN 02520000
* DFF COMM. AREA FOR LINE 2 02530000
$DFECB EQU #DF2ID+1 ECB FOR DFF TASK 02540000
.CC500 AIF (&CP EQ 'N').CC600 . CONTINUE HERE 02550000
EJECT 02560000
************ COMMAND PROCESSOR WORK AREA 50 BYTES************ 02570000
AIF (&LABELS EQ 'ADDR').CC520 02580000
$CPWK EQU X'4400'+$END1+#LDFWK START OF COMMAND 02590000
$CP EQU 0 PROCESSOR'S WORK AREA 02600000
AGO .CC540 02610000
.CC520 ANOP 02620000
$CPWK EQU $END1+#LDFWK START OF COMMAND 02630000
$CP EQU $CPWK PROCESSOR'S WORK AREA 02640000
.CC540 ANOP 02650000
SPACE 2 02660000
*----------- SAVE AREAS FOR THE DISPLAY TRANSIENTS -------------------* 02670000
$CPIAR EQU $CP+1 IAR 02680000
$CPXR1 EQU $CP+3 TUB,TNT,OR FSB 02690000
$CPDTF EQU $CP+5 DTF 02700000
$CPUSE EQU $CP+6 PROGRAM USE COUNT SAVE FIELD 02710000
SPACE 2 02720000
*----------- COMMAND PROCESSOR ECB LIST ------------------------------* 02730000
$CPLST EQU $CP+7 ECB LIST. DEFINED AS FOLLOWS: 02740000
* DC AL2($CPQ) PROGRAM INITIATE-POSTED BY TERM 02750000
* DC AL2($CPPF9) PF9 - PROGRAM REQUEST 02760000
* DC AL2($CPCM) DATA IN TP BUFFER FOR CP 02770000
* DC AL2($CPOCC) OCC 02780000
* DC AL2($CP1ST/$CPWTO/65535) STARTUP/WTOR/LIST DELIMITER 02790000
* DC XL2'FFFF' LIST DELIMITER 02800000
SPACE 2 02810000
*----------- COMMAND PROCESSOR ECB'S ---------------------------------* 02820000
$CPQ EQU $CP+19 PROGRAM INITIATE-POSTED BY TERM 02830000
$CPPF9 EQU $CP+22 PF9 - PROGRAM REQUEST 02840000
$CPCM EQU $CP+25 DATA IN TP BUFFER FOR CP 02850000
$CPOCC EQU X'0048' OCC - IN THE DSM NUCLEUS 02860000
$CP1ST EQU $CP+28 FIRST TIME SWITCH 02870000
$CPWTO EQU 0 WTO - GETMAINED FOR IN TPBUFF 02880000
SPACE 2 02890000
*----------- COMMAND PROCESSOR FLAG BYTE -----------------------------* 02900000
$CPFLG EQU $CP+29 COMMAND PROCESSOR FLAG BYTE 02910000
$CPFR EQU BIT0 FREEMAIN TO BE DONE 02920000
$CPCFR EQU BIT3 FREE NEEDED FOR CONSOLE OCC 02930000
$CPDPG EQU BIT4 PAGE 1 OF DISPLAY DONE 02940000
$CPD1S EQU BIT5 DO SECONDARY MENU 02950000
SPACE 1 02960000
*----------- COMMAND PROCESSOR TASK TRANSIENT COMMUNICATION AREA -----* 02970000
$CPPRQ EQU $CP+30 LABEL FOR PROGRAM REQUEST 02980000
SPACE 02990000
$CPCOM EQU $CP+30 LABEL FOR COMMANDS 03000000
$CPRTC EQU $CP+31 SAVE AREA FOR PLRTC 03010000
$CPEFL EQU $CP+33 SAVE AREA FOR PLEFFL 03020000
$CPRCA EQU $CP+35 SAVE AREA FOR PLRECA 03030000
SPACE 03040000
*----------- STARTUP VALUES - VALID ONLY DURING STARTUP --------------* 03050000
$CPMSG EQU $CP+32 ADDRSS OF $CC4IG 03060000
#LSTSZ EQU $CPMSG+1+1 # ENTRIES IN FIRST LEVEL LIST 03070000
@XSNT1 EQU #LSTSZ+2 ENTRIES IN $CC4PI 03080000
@XSNT2 EQU @XSNT1+2 FOR START-UP 03090000
@L1TCB EQU @XSNT2+2 SWITCHED LCB TCB @ FOR LINE 1 03100000
@L2TCB EQU @L1TCB+2 SWITCHED LCB TCB @ FOR LINE 2 03110000
.CC600 AIF (&AM EQ 'N').CC700 03120000
EJECT 03130000
************ ALLOCATION WORK AREA 9 BYTES************ 03140000
AIF (&LABELS EQ 'ADDR').CC620 03150000
$AMWK EQU X'4400'+$END1+#LDFWK+#LCPWK START OF ALLOCATION 03160000
$AM EQU 0 WORK AREA 03170000
AGO .CC640 03180000
.CC620 ANOP 03190000
$AMWK EQU $END1+#LDFWK+#LCPWK START OF ALLOCATION 03200000
$AM EQU $AMWK WORK AREA 03210000
.CC640 ANOP 03220000
SPACE 2 03230000
$AMFLG EQU $AM ALLOCATION FLAG BYTE 03240000
$AMBSY EQU BIT0 1--ALLOCATION BUSY 03250000
$APEND EQU BIT1 1--ALLOCATION TASK POST PENDING 03260000
$AMDFF EQU BIT2 NON-RESIDENT DFF ALOC IN PROCESS 03270000
$AMA1 EQU BIT3 U/R DEVICE ALLOCATION IN PROCESS 03280000
$AMA2 EQU BIT4 REJECT IN PROCESS 03290000
$AMPF9 EQU BIT5 CONSOLE TUB IN USE FOR PROGRAM 03300000
SPACE 03310000
$AMUR EQU $AMFLG+1 CCP LEVEL AND SPOOLING DEVICES. 03320000
A1SPLV EQU BIT0 1=CCP IS IN LEVEL 1. 03330000
* 0=CCP IS IN LEVEL 2. 03340000
A1PTRS EQU BIT1 PRINTER IS SPOOLED FOR CCP LVL. 03350000
* BIT2 MFCU/M SEC IS SPOOL RDR FOR CCP 03360000
* BIT3 MFCU/M SEC IS SPOOL PCH FOR CCP 03370000
A1741S EQU BIT4 3741 IS SPOOLED READER FOR CCP 03380000
A1501S EQU BIT5 2501 IS SPOOLED READER FOR CCP 03390000
* BIT6 MFCU/M PRI IS SPOOL RDR FOR CCP 03400000
* BIT7 MFCU/M PRI IS SPOOL PCH FOR CCP 03410000
$AMPA EQU $AMUR+1 PERM ALLOC AND SPOOLED UR 03420000
* DEVICES FOR CCP. 03430000
*PCTPRS BIT0 1=WILL SHARE PRINTER. 03440000
*PCT41I BIT1 1=3741 IS PERMANENTLY ALLOCATED 03450000
*PCT501 BIT2 1=2501 IS PERM ALLOCATED. 03460000
*PCTPRT BIT3 1=PRINTER IS PERM ALLOCATED. 03470000
*PCT142 BIT4 1=1442 IS PERM ALLOCATED. 03480000
*PCTMFU BIT5 1=MFCU/M IS PERM ALLOCATED. 03490000
* BIT6 1=1442 IS SPOOL READER FOR CCP 03500000
* BIT7 1=1442 IS SPOOL PUNCH FOR CCP 03510000
SPACE 03520000
$AMSA EQU $AMPA+1 IN USE DEVICES 03530000
$AMSHR EQU $AMSA+1 COUNT OF PRESENT PRINT SHARERS 03540000
$AMFSQ EQU $AMSHR+1 NUMBER OF FSQE BLOCKS 03550000
.CC700 AIF (&TM EQ 'N').CC800 03560000
EJECT 03570000
************ TERMINATOR WORK AREA 24 BYTES************ 03580000
AIF (&LABELS EQ 'ADDR').CC720 03590000
$TMWK EQU X'4400'+$END1+#LDFWK+#LCPWK+#LAMWK START OF 03600000
$TM EQU 0 TERMINATION'S WORK AREA 03610000
AGO .CC740 03620000
.CC720 ANOP 03630000
$TMWK EQU $END1+#LDFWK+#LCPWK+#LAMWK START OF TERMINATION'S 03640000
$TM EQU $TMWK WORK AREA 03650000
.CC740 ANOP 03660000
SPACE 2 03670000
$TMFLG EQU $TM TERMINATOR FLAG BYTE 03680000
$TMSTK EQU BIT0 SYSTEM TASK FAILURE 03690000
$TMBSY EQU BIT0 1--TERMINATION TASK IS ACTIVE 03700000
* 0--TERMINATION TASK NOT BUSY 03710000
$TMDMP EQU BIT1 1--NO USER TASK ACTIVE FOR C CCP 03720000
* 0--USER TASK ACTIVE FOR C CCP 03730000
$TMEJ EQU BIT2 1--$CC4EJ (CCP END OF JOB) 03740000
* HAS BEEN INVOKED BY $CC4TD 03750000
* (TERMINATION CONTROL ROUTINE) 03760000
$TMCLZ EQU BIT3 TERMINATION MUST CALL CLOSE 03770000
$TMCM EQU BIT4 RESERVED 03780000
$TMDDR EQU BIT5 DISK DUMP REQUESTED (NOT 2A,2B) 03790000
$TMDFL EQU BIT6 ON=NO MORE DUMP SPACE GUARANTEED 03800000
$TMDER EQU BIT7 ON=PERMANENT DISK I/O ERROR 03810000
* DURING TERMINATION DUMP 03820000
SPACE 1 03830000
$TMTCB EQU $TMFLG+2 @ OF TCB CURRENTLY BEING 03840000
* PROCESSED BY TERMINATION TASK 03850000
$TMECB EQU $TMTCB+1 TERMINATION'S ECB (3 BYTES) 03860000
$TMDID EQU $TMECB-1+3+2 DUMP ID DIGITS (2 BYTES) 03870000
SPACE 2 03880000
*----------- $CC4TI-$CC4TM-CC4TH WORK AREAS---------------------------* 03890000
TIWRK1 EQU $TMDID+2 RESIDENT WORK 03900000
TIWRK2 EQU TIWRK1+2 AREAS 03910000
TIWRK3 EQU TIWRK2+2 FOR INFORMATION 03920000
TIWRK4 EQU TIWRK3+2 SAVE ON 03930000
TIWRK5 EQU TIWRK4+2 SYSTEM DISASTER 03940000
TIWRK6 EQU TIWRK5+2 CONDITIONS 03950000
.CC800 AIF (&CM EQ 'N').CCEND 03960000
EJECT 03970000
************ COMMUNICATIONS MANAGEMENT WORK AREA 45 BYTES************ 03980000
AIF (&LABELS EQ 'ADDR').CC820 03990000
$CMWK EQU X'4400'+$END1+#LDFWK+#LCPWK+#LAMWK+#LTMWK START OF 04000000
$CM EQU 0 COMMUNICATION TASK WORK AREA 04010000
AGO .CC840 04020000
.CC820 ANOP 04030000
$CMWK EQU $END1+#LDFWK+#LCPWK+#LAMWK+#LTMWK START OF COMMUNICATION 04040000
$CM EQU $CMWK MANAGEMENT WORK AREA 04050000
.CC840 ANOP 04060000
SPACE 2 04070000
#CMDTF EQU $CM+1 SAVE AREA FOR DTF ADDRESS 04080000
#CMPL EQU #CMDTF+2 SAVE AREA FOR PARM LIST 04090000
SPACE 04100000
#CMTMA EQU #CMPL+2 SAVE AREA FOR TERMINAL ADDRESS 04110000
#CMBK1 EQU #CMTMA RETURN CODE FOR $CC4BL MESSAGE 04120000
SPACE 04130000
#CMTFT EQU #CMTMA+1 SAVE AREA FOR TERMINAL FEATURES 04140000
#CMBK2 EQU #CMTFT INTERNAL MSG TYPE FOR $CC4BL 04150000
SPACE 04160000
#CMPTR EQU #CMTFT+2 SAVE AREA FOR PREVIOUS POINTER 04170000
#CMFPL EQU #CMPTR+2 SAVE AREA FOR FOUND PARM LIST 04180000
#CMLSL EQU #CMFPL+2 LAST LCB CHECKED FOR PL NEEDING 04190000
* * GETMAIN 04200000
#CMTUB EQU #CMLSL+2 SAVE AREA FOR TUB ADDRESS 04210000
#CMERP EQU #CMTUB+2 @ OF DTF TO BE RESCHEDULED AFTER 04220000
* BEING IN CCP ERP 04230000
#CMSWT EQU #CMERP+1 CONTROL SWITCH 04240000
#CMARR EQU BIT0 1--OK TO MODIFY TCBARR 04250000
#CMFMD EQU BIT1 1--CM FREEMAIN DONE SINCE LAST 04260000
* * CHECK. 04270000
SPACE 1 04280000
#OPEND EQU #CMSWT+1 T-P OP END COUNT 04290000
#CCMCL EQU #OPEND+2 MAXIMUM COMMAND BUFFER LENGTH 04300000
#RUFCL EQU #CCMCL+2 MAX READ UNDER FORMAT COM LEN 04310000
@TAS EQU #RUFCL+2 TERMINAL ATTRIBUTE SET ADDRESS 04320000
#HITAS EQU @TAS+1 HIGHEST TAS INDEX IN SYSTEM 04330000
SPACE 04340000
@CSSTT EQU #HITAS+2 DISK C/S OF STT 04350000
#HISTT EQU @CSSTT+1 NO ENTRIES IN STT(SW TERM TBL) 04360000
SPACE 04370000
@MLTAD EQU #HISTT+2 ADDRESS OF MLTA ADAPTER 04380000
* 0 INDICATES NO MLTA ADAPTER 04390000
@CKLST EQU @MLTAD+2 ADDRESS OF CHECK LIST 04400000
SPACE 1 04410000
*----------- COMMUNICATIONS MANAGEMENT ECB'S -------------------------* 04420000
$CMECB EQU @CKLST+1 ECB FOR POST OF CM 04430000
$CMFM EQU $CMECB+3 FREEMAIN POST OF CM 04440000
@ANYTP EQU $CMFM+4 ADDRESS OF COMMON TP FOR GETMAIN 04450000
@INVPL EQU @ANYTP+2 ADDRESS OF INV PL TP FOR GETMAIN 04460000
SPACE 2 04470000
*----------- COMMUNICATIONS MANAGEMENT RESERVED AREA -----------------* 04480000
$CMRV2 EQU @INVPL+1 START OF 2 BYTE RESERVED AREA 04490000
.CCEND ANOP 04500000
SPACE 3 04510000
$CCEND EQU CORCNT+1 END OF $CCCOM 04520000
MEND 04530000