|
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: 12700 (0x319c)
Types: s3xseg
Names: »S$EASC«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EASC«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 5 * 00030000
.* * 00040000
.* NAME: $EASC * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE TABLE OF VALID ASSIGNMENT STATEMENT NUMBERS.* 00070000
.* DEFINE THE EQUATES NEEDED FOR COMMON COMMUNICATION BETWEEN * 00080000
.* ASSIGNMENT PHASES. * 00090000
.* * 00100000
.* INPUT OPERANDS: NONE * 00110000
.********************************************************************** 00120000
$EASC 00130000
TEXT 00140000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00150000
* * 00160000
* TABLE OF VALID STATEMENT NUMBERS * 00170000
* * 00180000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00190000
SPACE 00200000
SSET EQU 1 SET STATEMENT 00210000
SSYS EQU 2 SYSTEM STATEMENT 00220000
STAT EQU 3 TERMATTR STATEMENT 00230000
SBLINE EQU 4 BSCALINE STATEMENT 00240000
SBTERM EQU 5 BSCATERM STATEMENT 00250000
SMLINE EQU 6 MLTALINE STATEMENT 00260000
SMTERM EQU 7 MLTATERM STATEMENT 00270000
STNAME EQU 8 TEAMNAME STATEMENT 00280000
SDFILE EQU 9 DISKFILE STATEMENT 00290000
SPGM EQU 10 PROGRAM STATEMENT 00300000
SEOF EQU X'4B' END OF FILE STATEMENT (/*) 00310000
SOURCE EQU 12 SOURCE STATEMENT. 00320000
SYMFIL EQU 13 SYMFILE STATEMENT. 00330000
SPORTL EQU 14 PORTLINE STATEMENT. 00335000
SPACE 5 00340000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00350000
* * 00360000
* EQUATES VALUES FOR COMMON COMUNICATION AREA BETWEEN PHASES. * 00370000
* * 00380000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00390000
SPACE 00400000
ASCBF@ EQU 1 ADDR OF INPUT BUFFER 00410000
ASCBD@ EQU ASCBF@+2 ADDR OF BFR POS POINTER. 00420000
ASCER@ EQU ASCBD@+2 ADDR OF ERROR LOG ROUTINE 00430000
ASCBFS EQU ASCER@+2 POSITION NOW POINT AT IN BFR. 00440000
ASCSS@ EQU ASCBFS+2 ENTRY ADDR TO SYNTAX SCAN ROUTIN 00450000
ASCMSF EQU ASCSS@+1 MIS. FLAG 00460000
ASCWGS EQU ASCMSF+2 WRONG STMT ROUTINE 00470000
ASCDKB EQU ASCWGS+2 DISK BUFFER 00480000
ASCCIN EQU ASCDKB+2 CAM INPUT ADDRESS 00490000
ASCCOT EQU ASCCIN+2 CAM OUTPUT ADDRESS 00500000
ASCFND EQU ASCCOT+2 @ OF SET ID FIND ROUTINE. 00510000
ASCDEL EQU ASCFND+2 @ OF DELETE ROUTINE. 00520000
ASC$CP EQU ASCDEL+2 @ OF $CCPFILE DTF. 00530000
ASC$WK EQU ASC$CP+2 ADDR OF $WORKFILE DTF. 00540000
ASCNCS EQU ASC$WK+2 NEXT SECTER IN $CCPWORK, 00550000
* RELATIVE NUMBER. 00560000
ASCRD@ EQU ASCNCS+2 READ ROUTINE FOR CTRL STMTS. 00570000
ASCEOF EQU ASCRD@+2 END OF FILE ROUTINE (/*). 00580000
ASCCFG EQU ASCEOF+2 @ OF CONFIGURATION RCD IN CORE. 00590000
ASCDIR EQU ASCCFG+2 @ OF DIRECTORY RCD IN CORE. 00600000
ASCTUS EQU ASCDIR+2 @ OF TAT USE TABLE. 00610000
ASCTAT EQU ASCTUS+2 BEGINNING ADDR FOR TAT TABLE 00620000
ASCLCT EQU ASCTAT+2 BEGIN ADDR OF LCT COMPRESSED TBL 00630000
ASCTUT EQU ASCLCT+2 BEGIN @ OF TUT COMPRESSED TABLE 00640000
ASCTNT EQU ASCTUT+2 BEGIN @ OF TNT COMPRESSED TABLE 00650000
ASCFCT EQU ASCTNT+2 BEGIN @ OF FCT COMPRESSED TABLE 00660000
ASCPCT EQU ASCFCT+2 BEGIN @ OF PCT COMPRESSED TABLE 00670000
ASCTDR EQU ASCPCT+2 BEGIN @ OF TEMP DIR ENTRY. 00680000
ASCPAR EQU ASCTDR+2 @ OF SYS PRINT PARM LIST. 00690000
ASCBUF EQU ASCPAR+2 @ OF SYS PRINT OUTPUT BFR. 00700000
ASCRTN EQU ASCBUF+2 @ OF SYS PRINT ROUTINE. 00710000
SPACE 2 00710200
*********************************************************************** 00710400
* THE FOLLOWING ARE USED BY $CCPAS WHEN CCP IS EXECUTING IN * 00710600
* ANOTHER PARTITION USING THE SAME $CCPFILE. * 00710800
*********************************************************************** 00711000
ASCCSC EQU ASCRTN+2 ADDR OF PCT C/S CALC ROUTINE. 00711200
ASCID@ EQU ASCCSC+2 RELATIVE @ OF CCP'S EXEC SET. 00711400
ASCPT@ EQU ASCID@+2 C/S @ OF CCP'S EXEC PCT. 00711600
* ASCPT@=@CSXPT(FROM $CCCOM) 00711800
ASCMPT EQU ASCPT@+2 C/S @ OF THE COPIED OUT PCT. 00712000
ASCDFF EQU ASCMPT+2 C/S @ OF THE DFF INDEX. 00712200
ASCCID EQU ASCDFF+1 CCP'S EXEC SET ID. 00712400
ASCATR EQU ASCCID+2 SAVE AREA FOR TCBATT-18. 00712600
ASCA5C EQU X'5C' 5C-REFERS TO ATR SLOT 5C. 00712800
ASCLV@ EQU ASCATR+2 @ OF CCP'S PLCA. 00713000
ASCFLQ EQU ASCLV@+1 NPQTBL EQUIVALENT Q-CODE FOR 00713200
* $CCPAS'S $CCPFILE.(E0,E1..ETC) 00713400
ASCFCS EQU ASCFLQ+2 1ST C/S AFTER THE LAST DIRECTORY 00713600
* ENTRY. 00713800
ASCIA8 EQU ASCFCS+2 HOLD AREA FOR SET ID FOR ROUTINE 00714000
* ASA800(FIND SET IN DIR ROUTINE). 00714200
ASCSCT EQU ASCIA8+2 RELATIVE @ OF THE SET BEING 00714400
* FOUND BY ROUTINE ASA800. 00714600
ASCCER EQU ASCSCT+1 CCP ERROR INDICATOR... 00714800
* IF ASCCER IS = X'80' ONE OF THE 00715000
* FOLLOWING ERROR CONDITIONS WAS 00715200
* MET- 00715400
* 1)CCP WAS EXECUTING IN ANOTHER 00715600
* PARTITION WITH A NON COPIED 00715800
* OUT PCT. 00716000
* 2)ANOTHER ASSIGNMENT PROGRAM WAS 00716200
* EXECUTING IN THE SYSTEM. 00716400
* 3)CCPFMT/CCPPGM WAS UPDATING THE 00716600
* PCT IN $CCPFILE. 00716800
SPACE 00717000
ASCIND EQU ASCCER+1 CCP EXECUTION INDICATOR.... 00717200
* IF ASCIND = X'80' THE FOLLOWING 00717400
* CAN BE ASSUMED- 00717600
* 1)CCP IS EXECUTING IN ANOTHER 00717800
* PARTITION AND IS USING THE 00718000
* SAME $CCPFILE. 00718200
* 2)ASCCER IS NOT = TO X'80'. 00718400
*********************************************************************** 00718600
* END OF VALUES USED FOR ASSIGNMENT BUILD DURING CCP EXEC.... * 00718800
*********************************************************************** 00719000
ASCHKI EQU ASCIND+1 $CC2HK LOADED INDICATOR. 00719100
EJECT 00719200
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00730000
* * 00740000
* FORMAT OF COMPRESSED IN CORE TABLE ENTRYS. * 00750000
* * 00760000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00770000
SPACE 2 00780000
* TAT ENTRIES ARE NOT COMPRESSED, REMOVED BEFORE PROCESSING 00790000
* FIRST TERMNAME STMT. 00800000
SPACE 00810000
* TAT USE TABLE, TABLE OF TAT ENTRIES AND WHICH LINE USED ON. 00820000
SPACE 00830000
TATBSC EQU 0-1+1 BSCA LINE USE. 00840000
TATMLT EQU TATBSC+1 MLTA LINE USE. 00850000
TATLNG EQU TATMLT+1 TAT USE ENTRY LNG. 00860000
SPACE 00870000
* LCT COMPRESSED INCORE TABLE ENTRY FORMAT 00880000
SPACE 00890000
LTJMP EQU -1+2 COMPRESSED ENTRY LNG. 00900000
LTNLN EQU LTJMP+1 LINE #, AND TYPE. 00910000
LTAT1 EQU LTNLN+1 LINE ATTRIBUTES 1. 00920000
LTSND EQU BIT1 IDEXSEND GIVEN. 00930000
LTPLL EQU BIT6 POLL LIST GIVEN. 00940000
LTAT2 EQU LTAT1+1 LINE ATTRIBUTES 2. 00950000
LTTCD EQU LTAT2+1 TRANSMISSION CODE. 00960000
LTLNA EQU LTTCD+1 LINE CONFIGURATION. 00970000
LTBLK EQU LTLNA+2 LINE BLOCK LNG. 00980000
LTDFF EQU LTBLK+2 DFFOHA VALUE. 00990000
LTLNG EQU LTDFF+1 MIN LNG OF A COMPRESSED ENTRY. 01000000
LTPL EQU LTDFF+2 POLL LIST, 2 BYTE ENTRIES, THE 01010000
* 2 CHAR ID GIVEN ON THE CTRL STMT 01020000
LTTAG EQU LTDFF+4 NAME PREFIX FOR PORTLINE STMT 01025000
SPACE 2 01030000
* TUT COMPRESSED INCORE TABLE ENTRY FORMAT. 01040000
SPACE 2 01050000
TTID EQU -1+2 TERMINAL ID. 01060000
TTIID EQU TTID+1 INTERNAL ID. 01070000
TTCHR EQU TTIID+1 TERMINAL CHARACTERSISTICS. 01080000
TTPRI EQU BIT1 PRIMARY TERMINAL ASSIGNED. 01090000
TTPH# EQU BIT3 PHONE # WILL BE REQUIRED. 01100000
TTLIN EQU TTCHR+1 LINE # FOR THIS TERMINAL. 01110000
TTADR EQU TTLIN+1 MLTA TERMINAL ADDR. 01120000
TTLNG EQU TTADR+1 LNG OF A COMPRESSED ENTRY. 01130000
SPACE 2 01140000
* TNT COMPRESSED INCORE TABLE ENTRY FORMAT 01150000
SPACE 2 01160000
TNCCP EQU 0 BEGINNING OF ENTRY. 01170000
TNNAM EQU TNCCP-1+6 SYMBOLIC TERMINAL NAME. 01180000
TNTUB EQU TNNAM+1 TUTIID FOR THIS NAME. 01190000
TNLIN EQU TNTUB+1 LINE # FOR THIS TERMINAL. 01200000
TNFLG EQU TNLIN+1 FLAG BYTE FOR DIAG. 01210000
TNPG EQU BIT3 ALREADY REFERENCED BY THIS PROG. 01220000
TNLNG EQU TNFLG+1 LNG OF A COMPRESSED ENTRY. 01230000
SPACE 2 01240000
* FCT COMPRESSED INCORE TABLE ENTRY FORMAT. 01250000
SPACE 2 01260000
FTCCP EQU 0 BEGINNING OF ENTRY. 01270000
FTJMP EQU FTCCP-1+1 FILLER, NOT USED. 01280000
FTMCL EQU FTJMP+1 MISC. FLAG BYTE 01290000
FTNAM EQU FTMCL+8 FILE NAME. 01300000
FTAT1 EQU FTNAM+1 FILE ATTRIBUTES 1. 01310000
FTAT2 EQU FTAT1+1 ATTRIBUTES 2. 01320000
FTMVF EQU FTAT2+1 EXTENTS 01325000
FTRCL EQU FTMVF+2 RECORD LNG. 01330000
FTSTR EQU FTRCL+1 RELATIVE SECTOR # OF ENTRY IN 01340000
* WORKFILE IF SYMBOLIC NAME. 01350000
FTDISP EQU FTSTR+1 DISPLACEMENT INTO SECTOR. 01360000
FTLNG EQU FTDISP+1 LNG OF COMPRESSED ENTRY. 01370000
*---------------------------------------------------------------------* 01380000
* FOLLOWING EQUATES ARE USED ONLY WHILE BUILDING FCT ENTRIES * 01390000
*---------------------------------------------------------------------* 01400000
FTKYL EQU FTRCL+1 KEY LNG. 01410000
FTKYD EQU FTKYL+2 KEY DISP. 01420000
FTS EQU FTKYD+1 HOLD AREA FOR RELATIVE SECT. 01430000
FTD EQU FTS+1 HOLD AREA FOR DISPLACEMENT. 01440000
FTLLG EQU FTD+1 LNG OF A BUILD COMPRESSED ENTRY. 01450000
SPACE 2 01460000
* PCT COMPRESSED INCORE TABLE ENTRY FORMAT. 01470000
SPACE 2 01480000
PTCCP EQU 0 BEGINNING OF ENTRY. 01490000
PTNAM EQU PTCCP-1+6 PROG NAME. 01500000
PTSTR EQU PTNAM+1 RELATIVE SECTOR LOC OF ENTRY. 01510000
PTDISP EQU PTSTR+1 DISP INTO SECTOR. 01520000
PTLNG EQU PTDISP+1 LNG OF COMPRESSED ENTRY. 01530000
SPACE 2 01540000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01550000
* FORMAT OF TEMPERARY DIRECTORY. * 01560000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01570000
SPACE 2 01580000
ID EQU -1+1 SET ID. 01590000
* # OF SECTORS IN EACH TABLE. 01600000
SIT EQU ID+1 SYSTEM INFORMATION TABLE. 01610000
TAT EQU SIT+1 TERMINAL ATTRIBUTES TABLE. 01620000
LCT EQU TAT+1 LINE CONTROL TABLE. 01630000
TUT EQU LCT+1 TERMINAL USED TABLE. 01640000
TNT EQU TUT+1 TERMINAL NAME TABLE. 01650000
STT EQU TNT+1 SWITCHED TERMINAL TABLE. 01660000
FCT EQU STT+1 FILE CONTROL TABLE. 01670000
PCT EQU FCT+1 PROGRAM CONTROL TABLE. 01680000
SPACE 01690000
WRK EQU PCT+1 BEGINNING OF COMMON WORK AREA. 01700000
SPACE 2 01710000
* FORMAT OF COMMON WORK AREA. 01720000
SPACE 2 01730000
ACTION EQU +1-1 ACTION INDICATOR. 01740000
SPACE 01750000
SETSTM EQU BIT0 'SET' STMT READ. 01760000
ACTCRE EQU BIT7 ACTION-CREATE 01770000
ACTREP EQU BIT6 ACTION-REPLACE 01780000
ACTMOD EQU BIT5 ACTION-MODIFY 01790000
ACTDEL EQU 0 ACTION-DELETE 01800000
CMD32 EQU BIT4 3270 COMMAND TERMINAL FLAG. 01810000
CHNTSK EQU BIT3 MAXCHAIN PARAMETER SPECIFIED 01820000
SPACE 01830000
PBYTU EQU ACTION+1 # OF BYTES USED IN LAST SECT. 01840000
LTDISP EQU PBYTU+1 DISP. TO LAST LCT ENTRY IN SECT. 01850000
CSTR# EQU LTDISP+1 CURRENT LCT MIN ENTRY RELATIVE 01860000
* SECT #. 01870000
SITR# EQU LTDISP-1+2 RELATIVE SECTOR # OF SIT TABLE 01880000
* IS $CCPFILE ON ACTION-SYSMOD. 01890000
CNSTR EQU CSTR#+1 # OF SECTORS USED FOR CURRENT 01900000
* LCT ENTRY. 01910000
TTUTWF EQU CNSTR+2 SECT # FOR TEMP TUT TABLE. 01920000
LPCT EQU CNSTR+2 LNG OF THE LONGEST PCT ENTRY. 01930000
TUTSTR EQU TTUTWF+2 NEXT AVAIL SECT IN TEMP TUT TAB. 01940000
CTT@ EQU TUTSTR+2 @ OF NEXT AVAIL POS IN TEMP 01950000
* COMPRESSED TUT TABLE. 01960000
BTUT@ EQU CTT@+2 @ OF NEXT AVAIL POS IN BUILD 01970000
* TUT TABLE. 01980000
SPACE 01990000
WKFLG EQU BTUT@+1 COMMON WORK FLAG BYTE. 02000000
DFFYES EQU BIT0 DFF SUPPORTED ON SYSTEM STMT. 02010000
DFFATT EQU BIT1 DFF ON A ATTRIBUTE STMT. 02020000
DFFLIN EQU BIT2 DFF ON A BSCALINE STMT. 02030000
SPACE 02040000
ERRMSG EQU WKFLG+3 COUNT OF TERMINATION MSG. 02050000
WRNMSG EQU ERRMSG+3 COUNT OF WARNING MSG. 02060000
SPACE 02070000
SYMCT EQU WRNMSG+3 # OF REFERENCED SYMFILE STMTS. 02080000
CMDTRM EQU SYMCT+1 # OF COMMAND TERMINALS. 02090000
RUFLNG EQU CMDTRM+2 LNG OF LONGEST DFF FORMAT REF'ED 02100000
MLBS EQU RUFLNG+2 MAX. LINE BUFFER SIZE 02110000
IPCT EQU MLBS+1 # OF INPUT CAPABLE TERMINALS 02120000
BLKLSV EQU IPCT+2 BLKL SAVE AREA 02130000
SPACE 02140000
STRPK EQU BLKLSV+1 DIRECTORIES SEARCHED AT STARTUP 02150000
STRP12 EQU STRPK+1 SIMULATION AREAS D1A THRU D2D 02151000
STRPK3 EQU STRP12+1 SIMULATION AREAS D3A THRU D3H 02152000
STRPK4 EQU STRPK3+1 SIMULATION AREAS D4A THRU D4H 02153000
SIOMAX EQU STRPK4+2 LNG OF MAXMSG FOR SIOC 02155000
TNPHNY EQU SIOMAX+1 $CC2TN PHONY CALL INDICATOR 02155400
STMTID EQU TNPHNY+1 STATEMENT ID HOLD AREA FOR 02155800
* PHONY CALL FROM $CC2PL 02156200
WORKCS EQU STMTID+2 WORK HOLD AREA USED IN 02156600
* ROUTINE TO CALCULATE C/S @ OF 02157000
* CCP'S EXECUTING PCT 02157400
WORK# EQU WORKCS+2 WORK HOLD AREA USED TO HOLD 02157800
* RELATIVE SECTOR NUMBERS USED 02158200
* CALCULATE C/S @ OF CCP'S 02158600
* EXECUTING PCT 02159000
CWEND EQU WORK#+1 LNG OF COMMON WORK AREA. 02160000
MEND 02170000