|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$ETNT«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ETNT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $ETNT * 00050000
.* * 00060000
.* FUNCTION: * 00070000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00080000
.* SYMBOLS FOR TERMINAL NAME TABLE -- FOR: * 00090000
.* . OFFSETS OF FIELDS * 00100000
.* . VALUES WITHIN FIELDS * 00110000
.* * 00120000
.* INPUT OPERANDS: NONE * 00130000
.********************************************************************** 00140000
$ETNT 00150000
.* 00160000
TEXT 00170000
.* 00180000
*********************************************************************** 00190000
* T E R M I N A L N A M E T A B L E * 00200000
*********************************************************************** 00210000
TNTCCP EQU 0 BEGINNING OF TNT 00220000
TNTNAM EQU TNTCCP-1+6 SYMBOLIC TERMINAL NAME FIELD 00230000
TNTTUB EQU TNTNAM+2 ADDRESS OF ASSOCIATED TUB 00240000
* * IF LEFT BYTE ZERO, UNASSIGNED 00250000
TNTTNT EQU TNTTUB @ MASTER TNT - FOR SUB-TERMINAL 00260000
SPACE 1 00270000
*----------- REDEFINITION OF TNTTUB FOR DISK VERSION OF TNT ----------* 00280000
TNTIID EQU TNTTUB-2+1 TUTIID IF ASSIGNED, 0=UNASSIGNED 00290000
TNTMNO EQU TNTIID+1 0=UNIQUE TERMINAL NAME 00300000
* N=REL TNT NO. OF MASTER NAME 00310000
*---------------------------------------------------------------------* 00320000
SPACE 1 00330000
TNTFLG EQU TNTTUB+1 TNT FLAG BYTE 00340000
TNTPRI EQU BIT0 1-PRIMARY NAME FOR THIS TERMINAL 00350000
TNTBLK EQU BIT1 1-ENTRY IS 'BLANK' TERMINAL NAME 00360000
TNTKNS EQU BIT2 1-ENTRY IS 'CONSOL' TERM'L NAME 00370000
TNTR5 EQU BIT3 1--TNT USED BY CURRENT PGM REQ 00380000
TNTAM EQU BIT4 1--STOP POLLING SUCCESSFUL.
SPACE 1 00390000
TNTMCT EQU TNTFLG+1 INDEXES FOR MULTI-CMPNT TERMINAL 00400000
* BITS 0-3: INDEX OF INPUT CMPNT 00410000
* BITS 4-7: INDEX OF OUTPUT CMPNT 00420000
TNTSTT EQU TNTMCT+1 INDEX TO SWITCHED TERMINAL TABLE 00430000
TNTLN EQU TNTSTT+1-TNTCCP LENGTH OF TNT ENTRY 00440000
TNTSTP EQU X'00' TNT STOPPER BYTE IN CORE 00450000
MEND 00460000