|
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: 8128 (0x1fc0)
Types: s3xseg
Names: »S$ETUB«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ETUB«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 8 * 00030000
.* * 00040000
.* NAME: $ETUB * 00050000
.* * 00060000
.* FUNCTION: * 00070000
.* . CCP GENERATION MACRO INSTRUCTION -- DEFINE * 00080000
.* SYMBOLS FOR TERMINAL UNIT BLOCK -- FOR: * 00090000
.* . OFFSETS OF FIELDS * 00100000
.* . VALUES WITHIN FIELDS * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* SCS-Y/N GENERATE THE BIT EQUATES FOR TUBSCS. * 00140000
.* CHR-Y/N GENERATE THE BIT EQUATES FOR TUBCHR. * 00150000
.* AT1-Y/N GENERATE THE BIT EQUATES FOR TUBAT1. * 00160000
.* AT2-Y/N GENERATE THE BIT EQUATES FOR TUBAT2. * 00170000
.* AT3-Y/N GENERATE THE BIT EQUATES FOR TUBAT3. * 00180000
.* AT4-Y/N GENERATE THE BIT EQUATES FOR TUBAT4. * 00185000
.* PHY-Y/N GENERATE THE BIT EQUATES FOR TUBPHY. * 00190000
.********************************************************************** 00200000
$ETUB &SCS-Y,&CHR-Y,&AT1-Y,&AT2-Y,&AT3-Y,&AT4-Y,&PHY-Y 00210000
TEXT 00220000
*********************************************************************** 00230000
* T E R M I N A L U N I T B L O C K * 00240000
*********************************************************************** 00250000
TUBCCP EQU 0 BEGINNING OF TUB 00260000
TUBID EQU TUBCCP+1 TERMINAL PHYSICAL ID (2 BYTES) 00270000
SPACE 1 00280000
TUBPL@ EQU TUBID+2 LAST PARAMETER LIST FOR TUB 00290000
TUBER@ EQU TUBPL@+2 PARAMETER LIST IN ERP 00300000
TUBDM@ EQU TUBER@+2 PARAMETER LIST AT TIME OF DME 00310000
SPACE 1 00320000
TUBSID EQU TUBDM@+1 INTERNAL TERMINAL ID (BSCA ONLY) 00330000
SPACE 1 00340000
TUBSCS EQU TUBSID+1 BSCA STATUS BYTES (BSCA ONLY) 00350000
AIF (&SCS NE 'Y').TMA 00360000
TUBCLR EQU BIT0 * 1-3270 CLEAR KEY DEPRESSED 00370000
TUBDME EQU BIT1 * 1-DME CHECK SUCCESSFUL 00380000
TUBDMF EQU BIT2 * 1-DME CHECK FAILED 00390000
TUBSWA EQU BIT3 * 1-SWITCHED LINE DEVICE HANDLED 00400000
* * DURING PREVIOUS SYS PURGE. 00410000
TUBSSP EQU BIT4 * 1-STOP STATUS POLLING 00420000
TUBRUF EQU BIT5 * 1-RUF DATA ON SCREEN(3270 DFF) 00430000
TUBBPT EQU BIT7 * 1-BUSY PRINT ALLOWED 00435000
.TMA ANOP 00440000
SPACE 1 00450000
TUBTMA EQU TUBSCS 2 BYTE TERMINAL ADDR (MLTA ONLY) 00460000
* OVERLAYS TUBSID AND TUBSCS 00470000
SPACE 1 00480000
* ATTRIBUTES AND STATUS BYTES 00490000
TUBCHR EQU TUBTMA+1 TERMINAL CHARACTERISTICS 00500000
AIF (&CHR NE 'Y').AT1 00510000
TUBLNE EQU BIT0 1-BSCA LINE 00520000
TUB@SL EQU BIT1 1-TYPWTR DEVICE AT START OF LINE 00530000
TUBTYP EQU BIT2 1-MLTA TYPEWRITER DEVICE 00540000
TUBNID EQU BIT3 1-NEED IDLES AT BEGIN OF LINE 00550000
TUBCMN EQU BIT4 1-COMMAND (CAPABLE) TERMINAL 00560000
TUBMCT EQU BIT5 1-MULTI-COMPONENT TERMINAL 00570000
TUBOUT EQU BIT6 1-TERMINAL CAPABLE OF OUTPUT 00580000
TUBINP EQU BIT7 1-TERMINAL CAPABLE OF INPUT 00590000
.AT1 ANOP 00600000
SPACE 1 00610000
TUBAT1 EQU TUBCHR+1 TERMINAL ATTRIBUTES BYTE 1 00620000
AIF (&AT1 NE 'Y').AT2 00630000
TUBKNM EQU BIT0 1-THIS TUB IS FOR CONSOLE 00640000
TUBDPY EQU BIT1 1-IN USE BY DISPLAY 00650000
TUBONL EQU BIT2 1-TERMINAL IS ONLINE 00660000
TUBSGN EQU BIT3 1-COMMAND TERMINAL IS SIGNED ON 00670000
TUBQUE EQU BIT4 1-COMMAND TERMINAL IN /Q STATUS 00680000
TUBREQ EQU BIT5 1-TERMINAL IS REQUESTER OF PGM 00690000
TUBSWC EQU BIT6 1-TERMINAL ON SWITCHED LINE 00700000
TUBOFF EQU BIT7 1-CMD TERM SIGNOFF DEFAULT=HOLD 00710000
.AT2 ANOP 00720000
SPACE 1 00730000
TUBAT2 EQU TUBAT1+1 TERMINAL ATTR BYTE 2 00740000
AIF (&AT2 NE 'Y').AT3 00750000
TUBDTA EQU BIT0 1-TERMINAL IN DATA MODE 00760000
TUBCMD EQU BIT1 1-TERMINAL IN COMMAND MODE 00770000
* * DTA/CMD/TERMINAL MODE 00780000
* * 0 0 INITIAL 00790000
* * 0 1 COMMAND 00800000
* * 1 0 DATA 00810000
* * 1 1 COMMAND INTERRUPT 00820000
TUBIMI EQU BIT2 1-OUTSTANDING DATA FROM PGM RQST 00830000
TUBIIS EQU BIT3 1-INVITE OR GET SCHEDULED 00840000
TUBIIQ EQU BIT4 1-INVITE COMPLETE -- ON TCBINQ 00850000
* 0-NO OUTSTANDING COMPLETE INVITE 00860000
TUBOLT EQU BIT5 1-CURRENTLY RUNNING ONLINE TEST 00870000
TUBAPP EQU BIT6 1-ALLOCATION PENDING ON THIS TUB 00880000
TUBOWN EQU BIT7 1-TERMINAL NOW COMMUNICATING ON 00890000
* * BSCA LINE--EOT NOT SENT/RECD 00900000
.AT3 ANOP 00910000
SPACE 1 00920000
TUBAT3 EQU TUBAT2+1 TERMINAL ATTRIBUTE BYTE 3 00930000
AIF (&AT3 NE 'Y').INQ 00940000
* BIT0 (RESERVED) 00950000
TUBSPF EQU BIT1 1-STOP POLLING FAILED 00960000
TUBCNC EQU BIT2 1-/RELEASE BY TERMINAL OPERATOR 00970000
TUBERP EQU BIT3 1-TERMINAL ERROR -- AWAITING ERP 00980000
TUBALC EQU BIT4 1-PHYSICALLY ALLOCATED 00990000
* BUT NOT LOGICALLY 01000000
* ALLOCATED,(NO I/O POSSIBLE) 01010000
* 0-IS ALLOCATED TO THE 01020000
* TCB POINTED TO BY TUBTCB 01030000
TUBVFP EQU BIT5 1-VARY OFFLINE PENDING 01040000
TUBSPP EQU BIT6 1-STOP POLLING PENDING TO TERM'L 01050000
* * IN COMMAND INTERRUPT MODE 01060000
TUBSWL EQU BIT7 1-DISCARD ABORTED INPUT DATA 01070000
.INQ ANOP 01080000
SPACE 1 01090000
* QUEUE CHAIN FIELDS 01100000
TUBINQ EQU TUBAT3+2 GET INVITE INPUT QUEUE 01110000
* POINTS TO NEXT TUB IN CHAIN 01120000
TUBTCB EQU TUBINQ+2 @ OF TCB 01130000
TUBTUB EQU TUBTCB+2 NEXT TUB ADDR BY TCBTUB 01140000
TUBPST EQU TUBTUB NEXT TUB ON ALLOCATION QUEUE 01150000
TUBLCB EQU TUBTUB+2 ADDR OF LINE DTF (LCB) 01160000
TUBDTF EQU TUBLCB 01170000
TUBTNT EQU TUBLCB+2 ADDR OF TNT ENTRY 01180000
TUBFSB EQU TUBTNT+2 ADDR OF 1ST ENTRY FOR THIS 01190000
* TERMINAL IN FILE SPEC BLOCK 01200000
SPACE 1 01210000
* ONLINE TEST FIELDS 01220000
TUBOTC EQU TUBFSB+1 TERMINAL ONLINE TEST CONTROL BYT 01230000
* M L T A SPECS * 01240000
TUBLOP EQU BIT0 * 1-LOOPING TEST SPECIFIED 01250000
TUBALL EQU BIT1 * 1-MULTIPLE TESTS SPECIFIED 01260000
TUBTNR EQU BIT4+BIT5+BIT6+BIT7 BINARY NUMBER OF SINGLE TEST 01270000
* THIS BYTE - X'FF' SPECIFIES STOP 01280000
SPACE 1 01290000
TUBCMA EQU TUBOTC+1 MCT COMPONENT INDEX FOR OLT 01300000
SPACE 1 01310000
* TERMINAL ATTRIBUTE SET FIELDS 01320000
TUBTAS EQU TUBCMA+1 INDEX OF STANDARD ATTRIBUTE SET 01330000
SPACE 1 01340000
TUBTA1 EQU TUBTAS+1 1ST BYTE OF TERMINAL ATTRIBUTES 01350000
TUBTA2 EQU TUBTA1+1 2ND BYTE OF TERMINAL ATTRIBUTES 01360000
TUBRCL EQU TUBTA2+2 BSCA RECORD LENGTH 01380000
TUBVCS EQU TUBRCL 1-BYTE SAVE AREA FOR I/O 01390000
* COMPONENTS FOR MLTA MCT 01400000
TUBBKF EQU TUBRCL+1 BSCA BLOCKING FACTOR 01410000
SPACE 1 01420000
TUBCAS EQU TUBTAS+5 DEFINES ALL 5 PRECEDING BYTES 01430000
SPACE 1 01440000
* TERMINAL TYPE FIELD 01450000
TUBPHY EQU TUBCAS+1 PHYSICAL TERMINAL TYPE--VALUES: 01460000
AIF (&PHY NE 'Y').PCS 01470000
TUBCON EQU 0 0 - CONSOLE 01480000
TUBMLT EQU 1 1 - MLTA NON-1050 01490000
TUB105 EQU 2 2 - MLTA 1050 01500000
TUB7M1 EQU 3 3 - 3277/84/86 MODEL 1 (480) 01510000
TUB7M2 EQU 4 4 - 3277/84/86 MODEL 2 (1920) 01520000
TUB5M1 EQU 5 5 - 3275 MODEL 1 (480) 01530000
TUB5M2 EQU 6 6 - 3275 MODEL 2 (1920) 01540000
TUB375 EQU 7 7 - 3735 01550000
TUBCPU EQU 8 8 - CPU 01560000
TUB374 EQU 9 9 - 3741 01565000
.PCS ANOP 01570000
SPACE 1 01580000
* MULTI-COMPONENT TERMINAL PRINCIPAL COMPONENT INDEXES 01590000
TUBPCS EQU TUBPHY+1 PRINCIPAL COMPONENTS FOR 1050 01600000
TUBVHR EQU TUBPCS+1 SAVE AREA FOR TUBCHR FOR MLTA 01610000
SPACE 1 01620700
TUBAT4 EQU TUBVHR+1 TERMINAL ATTRIBUTE BYTE 3 01621400
AIF (&AT4 NE 'Y').AT4 01622100
* BIT0 (NOT USED) 01622800
* BIT1 (NOT USED) 01623500
* BIT2 (NOT USED) 01624200
* BIT3 (NOT USED) 01624900
* BIT4 (NOT USED) 01625600
* BIT5 (NOT USED) 01626300
TUBBSY EQU BIT6 1-TUB TO BE CHECKED FOR BUSY 01627000
TUBWAT EQU BIT7 1-WAIT FOR RESPONSE TO BUSY 01627700
.AT4 ANOP 01628400
SPACE 2 01630000
TUBLN EQU TUBAT4+1 LENGTH OF DATA MODE TUB 01640000
SPACE 1 01650000
* END OF TUB FOR DATA MODE TERMINAL 01660000
SPACE 1 01670000
TUBPL EQU TUBAT4+1 PARAMETER LIST FOR SYSTEM INVITE 01680000
* * OR PUT-NO-WAIT INVITE 01690000
* * 19 BYTES 01700000
SPACE 1 01710000
TUBLNC EQU TUBLN+19 LENGTH OF TUB FOR COMMAND MODE 01720000
* * TERMINAL 01730000
SPACE 1 01740000
* END OF TUB FOR COMMAND MODE TERMINAL 01750000
SPACE 1 01760000
TUBSTP EQU X'04' TUB STOPPER BYTE 01770000
SPACE 1 01780000
MEND 01790000