|
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: 2540 (0x9ec)
Types: s3xseg
Names: »S$ETNT«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ETNT«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETNT * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR TERMINAL NAME TABLE -- FOR: * 00110000
.* * 00120000
.* . OFFSETS OF FIELDS * 00130000
.* . VALUES WITHIN FIELDS * 00140000
.* * 00150000
.* INPUT OPERANDS: * 00160000
.* * 00170000
.* . NONE * 00180000
.* * 00190000
.********************************************************************** 00200000
$ETNT 00210000
.* 00220000
TEXT 00230000
.* 00240000
*********************************************************************** 00250000
* T E R M I N A L N A M E T A B L E * 00260000
*********************************************************************** 00270000
SPACE 2 00280000
TNTCCP EQU 0 BEGINNING OF TNT 00290000
SPACE 1 00300000
* SYMBOLIC TERMINAL NAME 00310000
SPACE 1 00320000
TNTNAM EQU TNTCCP-1+6 SYMBOLIC TERMINAL NAME FIELD 00330000
SPACE 1 00340000
* POINTER TO CURRENTLY ASSIGNED TERMINAL UNIT BLOCK 00350000
SPACE 1 00360000
TNTTUB EQU TNTNAM+2 ADDRESS OF ASSOCIATED TUB 00370000
* * IF LEFT BYTE ZERO, UNASSIGNED 00380000
TNTTNT EQU TNTTUB ADDRESS OF MASTER TNT ENTRY 00390000
* * FOR SUB-TERMINAL NAME 00400000
SPACE 1 00410000
*----------- REDEFINITION OF TNTTUB FOR DISK VERSION OF TNT ----------* 00420000
TNTIID EQU TNTTUB-2+1 TUTIID IF ASSIGNED, 0=UNASSIGNED 00430000
TNTMNO EQU TNTIID+1 0=UNIQUE TERMINAL NAME 00440000
* N=REL TNT NO. OF MASTER NAME 00450000
*---------------------------------------------------------------------* 00460000
SPACE 1 00470000
* TERMINAL NAME FLAGS 00480000
SPACE 1 00490000
TNTFLG EQU TNTTUB+1 TNT FLAG BYTE 00500000
SPACE 1 00510000
TNTPRI EQU BIT0 1-PRIMARY NAME FOR THIS TERMINAL 00520000
* 0-SECONDARY NAME FOR THIS TERM'L 00530000
TNTBLK EQU BIT1 1-ENTRY IS 'BLANK' TERMINAL NAME 00540000
* 0-ELSE 00550000
TNTKNS EQU BIT2 1-ENTRY IS 'CONSOL' TERM'L NAME 00560000
* 0-ELSE 00570000
TNTR5 EQU BIT3 1--TNT USED BY CURRENT PGM REQ 00580000
* 0--TNT NOT USED BY CURRENT REQ 00590000
SPACE 1 00600000
* MULTI-COMPONENT TERMINAL INDEX BYTE 00610000
SPACE 1 00620000
TNTMCT EQU TNTFLG+1 INDEXES FOR MULTI-CMPNT TERMINAL 00630000
* BITS 0-3: INDEX OF INPUT CMPNT 00640000
* BITS 4-7: INDEX OF OUTPUT CMPNT 00650000
SPACE 1 00660000
* INDEX TO TELEPHONE NUMBER OF SWITCHED TERMINAL 00670000
SPACE 1 00680000
TNTSTT EQU TNTMCT+1 INDEX TO SWITCHED TERMINAL TABLE 00690000
SPACE 1 00700000
TNTLN EQU TNTSTT+1-TNTCCP LENGTH OF TNT ENTRY 00710000
TNTSTP EQU X'00' TNT STOPPER BYTE IN CORE 00720000
SPACE 1 00730000
MEND 00740000