|
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: 6350 (0x18ce)
Types: s3xseg
Names: »S$ELCT«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ELCT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 5 * 00030000
.* * 00040000
.* NAME: $ELCT * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE FIELDS IN * 00070000
.* IN THE 'LINE CONTROL TABLE' IN $CCPFILE. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$ELCT 00120000
TEXT 00130000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000
* * 00150000
* OFFSETS TO ITEMS IN AN ENTRY IN THE LINE CONTROL TABLE FOR * 00160000
* $CCPFILE. ---- ------- ----- * 00170000
* * 00180000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00190000
SPACE 00200000
LCTCCP EQU 0 ENTRY BEGINNING. 00210000
SPACE 00220000
LCTJMP EQU LCTCCP-1+2 LENGTH OF THIS ENTRY 00230000
SPACE 00240000
LCTNLN EQU LCTJMP+1 LINE NUMBER AND TYPE 00250000
SPACE 00260000
LCTBSC EQU X'81' BSCA ADAPTER 1 00270000
LCTBS2 EQU X'88' BSCA ADAPTER 2 00280000
LCTBS3 EQU X'83' BSCA ADAPTER 3 (BSCC LINE 3) 00283000
LCTBS4 EQU X'84' BSCA ADAPTER 4 (BSCC LINE 4) 00286000
LCTL1 EQU X'01' LINE 1 00290000
LCTL2 EQU X'02' LINE 2 00300000
LCTL3 EQU X'04' LINE 3 00310000
LCTL4 EQU X'08' LINE 4 00320000
LCTL5 EQU X'10' LINE 5 00330000
LCTL6 EQU X'20' LINE 6 00340000
LCTL7 EQU X'40' LINE 7 00350000
LCTL8 EQU X'80' LINE 8 00360000
LCTSIO EQU X'30' SIOC PORTLINE 00365000
LCTTSK EQU X'60' TASK-TO-TASK 00367000
SPACE 00370000
LCTDEV EQU LCTNLN+1 DEVICE TYPE FOR MLTA 00380000
SPACE 00390000
LCT740 EQU BIT6 2740 OR SYS/7 00400000
LCT741 EQU BIT6+BIT7 2741 OR CSCSTD 00410000
LCT050 EQU BIT7 1050 DEVICE 00420000
LCT930 EQU BIT4 5930 DEVICE 00430000
LCT970 EQU BIT5 2970 DEVICE 00440000
SPACE 00450000
LCTAT1 EQU LCTDEV+1 LINE ATTRIBUTES 00460000
SPACE 00470000
LCTTRC EQU BIT0 1= TRANSMIT CONTROL (T) 00480000
LCTLRC EQU BIT2 1= LRC CHECKING OR ANY 1050 (C) 00490000
LCTSWT EQU BIT3 1= SWITCHED LINE 00500000
LCT600 EQU BIT4 1= 600 OR 1200 BPS MLTA LINE 00510000
LCTSC EQU BIT5 1= STAT CTRL FEAT OR 1050 (S) 00520000
LCTAPL EQU BIT7 1= AUTOPOLL FEATURE 00530000
SPACE 00540000
LCTAT2 EQU LCTAT1+1 LINE ATTRIBUTES 00550000
SPACE 00560000
LCTBFR EQU BIT0 1= BUFFER RECEIVE FEATURE (B) 00570000
LCTOUT EQU BIT1 1= OUTPOLL-YES (BSCC ONLY) 00573000
LCTPT EQU BIT2 1= PT ALLOWED 00576000
LCTRI EQU BIT3 1= RECEIVE INTERRUPT FEATURE 00580000
LCTSU EQU BIT4 1= SUPPRESSED AT ATART UP. 00590000
LCTOLT EQU BIT5 1= ON-LINE TEST TERMINALS ON LIN 00600000
LCTDBL EQU BIT6 1= DOUBLE BUFFERING 00610000
LCTAC EQU BIT7 1= AUTO CALL HARDWARE FEATURE. 00620000
SPACE 00630000
LCTTCD EQU LCTAT2+1 TRANSMISSION CODES 00640000
SPACE 00650000
LCTCOR EQU BIT0 1= CORR 00660000
LCTPEB EQU BIT1 1= PTTCEBCD 00670000
LCTPB EQU BIT2 1= PTTCBCD 00680000
LCTSPB EQU BIT3 1= SPTTCBCD 00690000
LCTE EQU BIT4 1= EBCDIC 00700000
LCTET EQU BIT5 1= EBCDIC TRANSPARENCY 00710000
LCTA EQU BIT6 1= ASCII 00720000
LCTITB EQU BIT7 1= ITB, BSCA 00730000
SPACE 00740000
LCTNRT EQU LCTTCD+1 NUMBER OF RETRIES FOR LINE ERROR 00750000
SPACE 00760000
LCTLNA EQU LCTNRT+1 LINE CONFIGURATION 00770000
SPACE 00780000
LCTPP EQU X'01' POINT TO POINT 00790000
LCTMP EQU X'02' MULTIPOINT TRIBUTARY 00800000
LCTCS EQU X'03' CONTROL STATION 00810000
LCTSW EQU X'04' SWITCHED 00820000
LCTCW EQU X'05' 'CW' SWITCHED WITH 1050 HAVING 00830000
* STATION CTRL. 00840000
SPACE 00850000
LCTDLY EQU LCTLNA+1 DELAY AFTER POLL LIST FOR MLTA 00860000
* OR NUMBER TIMES THROUGH POLL 00870000
* LIST FOR BSCA 00880000
SPACE 00890000
LCTBLK EQU LCTDLY+2 BLOCKLENGTH FOR THIS LINE 00900000
SPACE 00910000
LCTMAP EQU LCTBLK+2 DFF OUTPUT HOLD AREA SIZE. 00920000
SPACE 00930000
LCTWAT EQU LCTMAP+2 BSCA LINE ACTIVE WAIT TIME. 00940000
SPACE 00950000
LCT#PL EQU LCTWAT+1 # OF ENTRIES IN POLL LIST. 00960000
SPACE 00970000
LCTDAT EQU LCT#PL+2 MAX. DATA CHAR. IN LINE BUFFER. 00980000
SPACE 00990000
LCT#RI EQU LCTDAT+1 # OF ID REC. ENTRIES. 01000000
SPACE 01010000
LCTAT3 EQU LCT#RI+1 ATTRIBUTES. 01020000
SPACE 01030000
LCTM2 EQU BIT0 1= 2740M2 LINE SUPPORT. 01040000
LCTIDS EQU BIT1 1= SEND ID CHARACTERS DEFINED. 01050000
LCTPRI EQU BIT2 1= PRIMARY SIOC SYSTEM. 01055000
LCTPOR EQU BIT3 1= PORTLINE 01057000
LCTDFF EQU BIT4 1= ALLOCATE DFF BUFFER 01058000
LCTDFS EQU BIT5 1= DO NOT SUPPRESS DFF BUFFER. 01059000
SPACE 01060000
LCTRV3 EQU LCTAT3+4 RESERVED. 01070000
SPACE 01080000
LCTMIN EQU LCTRV3 LENGTH-1 OF MINIMUM ENTRY. 01090000
SPACE 01100000
*---------------------------------------------------------------------* 01110000
* * 01120000
* THE ABOVE PART IS THE MINIMUM LENGTH OF AN ENTRY. * 01130000
*---------------------------------------------------------------------* 01140000
SPACE 01150000
*---------------------------------------------------------------------* 01160000
* CONTROL STATION LINES ONLY * 01170000
* -------------------------- * 01180000
SPACE 01190000
LCTPLL EQU LCTMIN+1 POLLING LIST. THIS ENTRY IS 01200000
* VARIABLE IN LENGTH, AND CONTAINS 01210000
* A SERIES OF ONE BYTE REL.#. 01220000
* RELATIVE TO TUT ENTRIES 01230000
* ASSOCIATED WITH THIS LINE. 01240000
SPACE 01250000
*---------------------------------------------------------------------* 01260000
* FOLLOWING APPLIES TO SWITCHED LINES ONLY. * 01270000
* ----------------------------------------- * 01280000
SPACE 01290000
LCTSIL EQU LCTMIN+1 LENGTH+1 OF ID CHARACTERS TO 01300000
* SEND FOR BSCA. 01310000
SPACE 01320000
LCTSID EQU LCTSIL+1 ID CHARACTERS TO SEND FOR BSCA, 01330000
* LEFT JUSTIFIED, MAY VARY UP TO 01340000
* 15 CHAR IN LENGTH. 01350000
SPACE 01360000
*---------------------------------------------------------------------* 01370000
* ABOVE PORTION OF A LCT ENTRY WILL NOT SPAN A SECTOR. * 01380000
* FOLLOWING PORTION MAY SPAN SECTORS, BUT NO ID ENTRY WILL SPAN * 01390000
* A SECTOR. * 01400000
*---------------------------------------------------------------------* 01410000
* DISPLACEMENTS FOR EACH ID TO RECEIVE. * 01420000
*---------------------------------------------------------------------* 01430000
SPACE 01440000
LCTTID EQU 0-1+1 TUT INTERNIAL TERMINAL ID. 01450000
SPACE 01460000
LCT#RC EQU LCTTID+1 # OF CHARACTERS IN RECEIVE ID. 01470000
SPACE 01480000
LCTRCH EQU LCT#RC+1 FIRST POS. OF RECEIVE ID. 01490000
* VARIABLE IN LENGTH. 01500000
SPACE 01510000
LCTSKP EQU 0-1+1 FLAG BYTE, SKIP BYTE ON, X'80'. 01520000
SPACE 01530000
*---------------------------------------------------------------------* 01540000
SPACE 01550000
LCTFLG EQU X'FF' FLAG FOLLOWING LAST ENTRY 01560000
* IN EACH SECTOR. 01570000
MEND 01580000