|
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: 9906 (0x26b2)
Types: s3xseg
Names: »S$EASC«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EASC«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 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
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 4 00720000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 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
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
FT256 EQU BIT7 RECL-256 INDICATOR FOR SORT 01330000
SPACE 1 01340000
FTSTR EQU FTAT2+1 RELATIVE SECTOR # OF ENTRY IN 01350000
* WORKFILE IF SYMBOLIC NAME. 01360000
FTDISP EQU FTSTR+1 DISPLACEMENT INTO SECTOR. 01370000
FTLNG EQU FTDISP+1 LNG OF COMPRESSED ENTRY. 01380000
*---------------------------------------------------------------------* 01390000
* FOLLOWING EQUATES ARE USED ONLY WHILE BUILDING FCT ENTRIES * 01400000
*---------------------------------------------------------------------* 01410000
FTRCL EQU FTAT2+2 RECORD LNG. 01420000
FTKYL EQU FTRCL+1 KEY LNG. 01430000
FTKYD EQU FTKYL+2 KEY DISP. 01440000
FTS EQU FTKYD+1 HOLD AREA FOR RELATIVE SECT. 01450000
FTD EQU FTS+1 HOLD AREA FOR DISPLACEMENT. 01460000
FTLLG EQU FTD+1 LNG OF A BUILD COMPRESSED ENTRY. 01470000
SPACE 2 01480000
* PCT COMPRESSED INCORE TABLE ENTRY FORMAT. 01490000
SPACE 2 01500000
PTCCP EQU 0 BEGINNING OF ENTRY. 01510000
PTNAM EQU PTCCP-1+6 PROG NAME. 01520000
PTSTR EQU PTNAM+1 RELATIVE SECTOR LOC OF ENTRY. 01530000
PTDISP EQU PTSTR+1 DISP INTO SECTOR. 01540000
PTLNG EQU PTDISP+1 LNG OF COMPRESSED ENTRY. 01550000
SPACE 2 01560000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01570000
* FORMAT OF TERMERARY DIRECTORY. * 01580000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01590000
SPACE 2 01600000
ID EQU -1+1 SET ID. 01610000
* # OF SECTORS IN EACH TABLE. 01620000
SIT EQU ID+1 SYSTEM INFORMATION TABLE. 01630000
TAT EQU SIT+1 TERMINAL ATTRIBUTES TABLE. 01640000
LCT EQU TAT+1 LINE CONTROL TABLE. 01650000
TUT EQU LCT+1 TERMINAL USED TABLE. 01660000
TNT EQU TUT+1 TERMINAL NAME TABLE. 01670000
STT EQU TNT+1 SWITCHED TERMINAL TABLE. 01680000
FCT EQU STT+1 FILE CONTROL TABLE. 01690000
PCT EQU FCT+1 PROGRAM CONTROL TABLE. 01700000
SPACE 01710000
WRK EQU PCT+1 BEGINNING OF COMMON WORK AREA. 01720000
SPACE 2 01730000
* FORMAT OF COMMON WORK AREA. 01740000
SPACE 2 01750000
ACTION EQU +1-1 ACTION INDICATOR. 01760000
SPACE 01770000
SETSTM EQU BIT0 'SET' STMT READ. 01780000
ACTCRE EQU BIT7 ACTION-CREATE 01790000
ACTREP EQU BIT6 ACTION-REPLACE 01800000
ACTMOD EQU BIT5 ACTION-MODIFY 01810000
ACTDEL EQU 0 ACTION-DELETE 01820000
CMD32 EQU BIT4 3270 COMMAND TERMINAL FLAG. 01830000
SPACE 01840000
PBYTU EQU ACTION+1 # OF BYTES USED IN LAST SECT. 01850000
LTDISP EQU PBYTU+1 DISP. TO LAST LCT ENTRY IN SECT. 01860000
CSTR# EQU LTDISP+1 CURRENT LCT MIN ENTRY RELATIVE 01870000
* SECT #. 01880000
SITR# EQU LTDISP-1+2 RELATIVE SECTOR # OF SIT TABLE 01890000
* IS $CCPFILE ON ACTION-SYSMOD. 01900000
CNSTR EQU CSTR#+1 # OF SECTORS USED FOR CURRENT 01910000
* LCT ENTRY. 01920000
TTUTWF EQU CNSTR+2 SECT # FOR TEMP TUT TABLE. 01930000
LPCT EQU CNSTR+2 LNG OF THE LONGEST PCT ENTRY. 01940000
TUTSTR EQU TTUTWF+2 NEXT AVAIL SECT IN TEMP TUT TAB. 01950000
CTT@ EQU TUTSTR+2 @ OF NEXT AVAIL POS IN TEMP 01960000
* COMPRESSED TUT TABLE. 01970000
BTUT@ EQU CTT@+2 @ OF NEXT AVAIL POS IN BUILD 01980000
* TUT TABLE. 01990000
SPACE 02000000
WKFLG EQU BTUT@+1 COMMON WORK FLAG BYTE. 02010000
DFFYES EQU BIT0 DFF SUPPORTED ON SYSTEM STMT. 02020000
DFFATT EQU BIT1 DFF ON A ATTRIBUTE STMT. 02030000
DFFLIN EQU BIT2 DFF ON A BSCALINE STMT. 02040000
SPACE 02050000
ERRMSG EQU WKFLG+3 COUNT OF TERMINATION MSG. 02060000
WRNMSG EQU ERRMSG+3 COUNT OF WARNING MSG. 02070000
SPACE 02080000
SYMCT EQU WRNMSG+3 # OF REFERENCED SYMFILE STMTS. 02090000
CMDTRM EQU SYMCT+1 # OF COMMAND TERMINALS. 02100000
RUFLNG EQU CMDTRM+2 LNG OF LONGEST DFF FORMAT REF'ED 02110000
MLBS EQU RUFLNG+2 MAX. LINE BUFFER SIZE @01 02120000
IPCT EQU MLBS+1 # OF INPUT CAPABLE TERMINALS @01 02130000
BLKLSV EQU IPCT+2 BLKL SAVE AREA @01 02140000
SPACE 02150000
RESV1 EQU BLKLSV+1 RESERVED. @01 02160000
CWEND EQU RESV1+1 LNG OF COMMON WORK AREA. 02170000
MEND 02180000