|
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: 9652 (0x25b4)
Types: s3xseg
Names: »S$ETUB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ETUB«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETUB * 00040000
.* MODIFICATION LEVEL: VERSION 15,MODIFICATION LEVEL 0 OF 5702-SC1 * 00050000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR TERMINAL UNIT BLOCK -- FOR: * 00110000
.* * 00120000
.* . OFFSETS OF FIELDS * 00130000
.* . VALUES WITHIN FIELDS * 00140000
.* * 00150000
.* INPUT OPERANDS: * 00160000
.* * 00170000
.* . NONE * 00180000
.* * 00182000
.* RELEASE 15 * 00184000
.* @L - INCR/S1505 BUSY PRINTER SUPPORT * 00186000
.* * 00190000
.********************************************************************** 00200000
$ETUB 00210000
.* 00220000
TEXT 00230000
.* 00240000
*********************************************************************** 00250000
* T E R M I N A L U N I T B L O C K * 00260000
*********************************************************************** 00270000
SPACE 2 00280000
TUBCCP EQU 0 BEGINNING OF TUB 00290000
SPACE 1 00300000
* SYSTEM PARAMETER LIST WITHIN TUB 00310000
SPACE 1 00320000
TUBTP EQU TUBCCP BEGINNING OF TUB PARAMETER LIST 00330000
TPRTC EQU TUBTP+PLRTC RETURN CODE 00340000
TPCHN EQU TUBTP+PLCHN PARAMETER LIST CHAIN ADDRESS 00350000
TPOPM EQU TUBTP+PLOPM OPERATION CODE MODIFIERS 00360000
TPOPC EQU TUBTP+PLOPC OPERATION CODE AND MODIFIERS 00370000
TPOUTL EQU TUBTP+PLOUTL OUTPUT LENGTH 00380000
TPEFFL EQU TUBTP+PLEFFL EFFECTIVE INPUT LENGTH 00390000
TPINL EQU TUBTP+PLINL MAXIMUM INPUT LENGTH 00400000
TPRECA EQU TUBTP+PLRECA RECORD AREA ADDRESS 00410000
TPDATA EQU TUBTP+PLDATA DATA AREA ADDRESS 00420000
TPTUBA EQU TUBTP+PLTUBA TERMINAL UNIT BLOCK ADDRESS 00430000
TPTCBA EQU TUBTP+PLTCBA TASK CONTROL BLOCK ADDRESS 00440000
TP$OPM EQU TUBTP+PL$OPM INTERNAL OPERATION CODE MODIFIER 00450000
TP$OPC EQU TUBTP+PL$OPC INTERNAL OPERATION CODE WORKAREA 00460000
TP$MCT EQU TUBTP+PL$MCT MULTI-COMPONENT INDICES 00470000
TP$RTC EQU TUBTP+PL$RTC INTERNAL RETURN CODE WORK AREA 00480000
* ALSO CONTAINS PGM NAME LENGTH + 00490000
* FLAG BYTES FOR PGM REQ/ALLOCATE 00500000
TPERP@ EQU TP$RTC ADDRESS OF PARM LIST IN ERROR 00510000
SPACE 1 00520000
* TERMINAL PHYSICAL ID CHARACTERS 00530000
SPACE 1 00540000
TUBID EQU TP$RTC+2 TERMINAL PHYSICAL IDENTIFIER 00550000
SPACE 1 00560000
* TERMINAL ADDRESS OR INDEX 00570000
SPACE 1 00580000
TUBSID EQU TUBID+1 BSCA INTERNAL TERMINAL ID 00590000
SPACE 1 00600000
TUBSCS EQU TUBSID+1 BSCA STATUS BYTE 00610000
TUBCLR EQU X'80' OPERATOR HIT THE CLEAR KEY-3270. 00620000
TUBDME EQU X'40' DME CHECK SUCCESSFUL. 00630000
TUBDMF EQU X'20' DME CHECK FAILED. 00640000
TUBSWA EQU BIT3 1--SWITCHED LINE DEVICE HANDLED 00650000
* DURING PREVIOUS SYSTEM PURGE 00660000
TUBSSP EQU X'08' STOP STATUS POLLING 00670000
TUBLN# EQU X'07' CURRENT SYSTEM LOG LINE FOR 3270 00680000
TUBRUF EQU BIT5 RUF DATA ON SCREEN (3270 DFF) 00685000
SPACE 1 00690000
TUBTMA EQU TUBID+2 TERMINAL ADDRESS FIELD 00700000
* FOR MLTA THIS IS 2-BYTE ADDRESS 00710000
SPACE 1 00720000
* ATTRIBUTES AND STATUS BYTES 00730000
SPACE 1 00740000
TUBCHR EQU TUBTMA+1 TERMINAL CHARACTERISTICS 00750000
TUBLNE EQU BIT0 1-BSCA LINE 00760000
* 0-MLTA LINE 00770000
TUB@SL EQU BIT1 1-TYPWTR DEVICE AT START OF LINE 00780000
TUBRPT EQU BIT1 1-PUT RESCHEDULE IN PROCESS) IF 00783000
* * BSCA LINE) 00786000
* 0-ELSE 00790000
TUBTYP EQU BIT2 1-MLTA TYPEWRITER DEVICE 00800000
* 0-NOT MLTA TYPEWRITER DEVICE 00810000
TUBNID EQU BIT3 1-NEED IDLES AT BEGIN OF LINE 00820000
* 0-NO IDLES AT BEGIN OF LINE 00830000
TUBCMN EQU BIT4 1-COMMAND (CAPABLE) TERMINAL 00840000
* 0-DATA-ONLY TERMINAL 00850000
TUBMCT EQU BIT5 1-MULTI-COMPONENT TERMINAL 00860000
* 0-ELSE 00870000
TUBOUT EQU BIT6 1-TERMINAL CAPABLE OF OUTPUT 00880000
* 0-NOT CAPABLE OF OUTPUT 00890000
TUBINP EQU BIT7 1-TERMINAL CAPABLE OF INPUT 00900000
* 0-NOT CAPABLE OF INPUT 00910000
SPACE 1 00920000
TUBAT1 EQU TUBCHR+1 TERMINAL ATTRIBUTES BYTE 1 00930000
TUBKNM EQU BIT0 1-THIS TUB IS FOR CONSOLE 00940000
* 0-ELSE 00950000
TUBKNS EQU BIT1 1-*SUBORDINATE* CONSOLE TUB 00960000
* 0-ELSE 00970000
TUBONL EQU BIT2 1-TERMINAL IS ONLINE 00980000
* 0-TERMINAL IS OFFLINE 00990000
TUBSGN EQU BIT3 1-COMMAND TERMINAL IS SIGNED ON 01000000
* 0-ELSE 01010000
TUBQUE EQU BIT4 1-COMMAND TERMINAL IN /Q STATUS 01020000
* 0-ELSE 01030000
TUBREQ EQU BIT5 1-TERMINAL IS REQUESTER OF PGM 01040000
* 0-ELSE 01050000
TUBSWC EQU BIT6 1-TERMINAL ON SWITCHED LINE 01060000
* 0-TERMINAL ON NON-SWITCHED LINE 01070000
TUBOFF EQU BIT7 1-CMD TERM SIGNOFF DEFAULT=HOLD 01080000
* 0-ELSE 01090000
SPACE 1 01100000
TUBAT2 EQU TUBAT1+1 TERMINAL ATTR BYTE 2 01110000
TUBDTA EQU BIT0 1-TERMINAL IN DATA MODE 01120000
* 0-ELSE 01130000
TUBCMD EQU BIT1 1-TERMINAL IN COMMAND MODE 01140000
* 0-ELSE 01150000
* * DTA/CMD/TERMINAL MODE 01160000
* * 0 0 INITIAL 01170000
* * 0 1 COMMAND 01180000
* * 1 0 DATA 01190000
* * 1 1 COMMAND INTERRUPT 01200000
TUBIMI EQU BIT2 1-OUTSTANDING DATA FROM PGM RQST 01210000
* 0-ELSE 01220000
TUBIIS EQU BIT3 1-INVITE OR GET SCHEDULED 01230000
* 0-ELSE 01240000
TUBIIQ EQU BIT4 1-INVITE COMPLETE -- ON TCBINQ 01250000
* 0-NO OUTSTANDING COMPLETE INVITE 01260000
TUBOLT EQU BIT5 1-CURRENTLY RUNNING ONLINE TEST 01270000
* 0-NOT RUNNING ONLINE TEST 01280000
TUBAPP EQU BIT6 1-ALLOCATION PENDING ON THIS TUB 01310000
* 0-ELSE 01320000
TUBOWN EQU BIT7 1-TERMINAL NOW COMMUNICATING ON 01330000
* * BSCA LINE--EOT NOT SENT/RECD 01340000
* 0-ELSE 01350000
SPACE 1 01360000
TUBAT3 EQU TUBAT2+1 TERMINAL ATTRIBUTE BYTE 3 01370000
TUBSAT EQU BIT0 1-NONSTANDARD TAS IN TUBCAS 01380000
* 0-TUBCAS CONTAINS STANDARD TAS 01390000
TUBSPF EQU BIT1 1-STOP POLLING FAILED 01400000
* 0-ELSE 01410000
TUBCNC EQU BIT2 1-/RELEASE BY TERMINAL OPERATOR 01420000
* 0-ELSE 01430000
TUBERP EQU BIT3 1-TERMINAL ERROR -- AWAITING ERP 01440000
* 0-ELSE 01450000
TUBALC EQU BIT4 1-PHYSICALLY ALLOCATED BUT NOT 01460000
* LOGICALLY ALLOCATED (NO I/O 01470000
* POSSIBLE) 01480000
* 0-ALLOCATED TO THE TCB POINTED 01490000
* TO BY TUBTCB 01500000
TUBVFP EQU BIT5 1-VARY OFFLINE PENDING 01510000
* 0-ELSE 01520000
TUBSPP EQU BIT6 1-STOP POLLING PENDING TO TERM'L 01530000
* * IN COMMAND INTERRUPT MODE 01540000
* 0-ELSE 01550000
TUBSWL EQU BIT7 1-DISCARD ABORTED INPUT DATA 01560000
* 0-ELSE 01570000
TUBINV EQU TUBSWL TERMINAL MAY BE REINVITED 01580000
SPACE 1 01590000
* QUEUE CHAIN FIELDS 01600000
SPACE 1 01610000
TUBINQ EQU TUBAT3+2 GET INVITE INPUT QUEUE 01620000
* POINTS TO NEXT TUB IN CHAIN 01630000
TUBTCB EQU TUBINQ+2 @ OF TCB 01640000
TUBTUB EQU TUBTCB+2 NEXT TUB ADDR BY TCBTUB 01650000
TUBPST EQU TUBTUB NEXT TUB ON ALLOCATION QUEUE 01660000
TUBLCB EQU TUBTUB+2 ADDR OF LINE DTF (LCB) 01670000
TUBDTF EQU TUBLCB 01680000
TUBTNT EQU TUBLCB+2 ADDR OF TNT ENTRY 01690000
TUBFSB EQU TUBTNT+2 ADDR OF 1ST ENTRY FOR THIS 01700000
* TERMINAL IN FILE SPEC BLOCK 01710000
SPACE 1 01720000
* ONLINE TEST CONTROL FIELD 01730000
SPACE 1 01740000
TUBOTC EQU TUBFSB+1 TERMINAL ONLINE TEST CONTROL 01750000
* BYTE 01755000
* M L T A SPECS * 01760000
TUBLOP EQU BIT0 * 1-LOOPING TEST SPECIFIED 01770000
TUBALL EQU BIT1 * 1-MULTIPLE TESTS SPECIFIED 01780000
TUBTNR EQU BIT4+BIT5+BIT6+BIT7 BINARY NUMBER OF SINGLE TEST 01790000
* THIS BYTE - X'FF' SPECIFIES STOP 01800000
SPACE 1 01810000
* DATA MODE ESCAPE SAVE FIELDS 01820000
SPACE 1 01830000
TUBDML EQU TUBOTC+2 IF INVITE--SAVED INPUT LENGTH 01840000
* IF GET--SAVED ADDR OF PARM LIST 01850000
TUBCMA EQU TUBDML+1 MCT COMPONENT INDEX FOR OLT 01860000
TUBDMO EQU TUBCMA+1 SAVED 'PLOPC' FROM PARM LIST -- 01870000
* * X'00'=GET / ELSE=INVITE 01880000
SPACE 1 01890000
* TERMINAL ATTRIBUTE SET FIELDS 01900000
SPACE 1 01910000
TUBTAS EQU TUBDMO+1 INDEX OF STANDARD ATTRIBUTE SET 01920000
SPACE 1 01930000
TUBTA1 EQU TUBTAS+1 1ST BYTE OF TERMINAL ATTRIBUTES 01940000
TUBTA2 EQU TUBTA1+1 2ND BYTE OF TERMINAL ATTRIBUTES 01950000
TUBRCL EQU TUBTA2+2 BSCA RECORD LENGTH 01970000
TUBVCS EQU TUBRCL 1-BYTE SAVE AREA FOR I/O 01980000
* COMPONENTS FOR MLTA MCT 01990000
TUBBKF EQU TUBRCL+1 BSCA BLOCKING FACTOR 02000000
SPACE 1 02010000
TUBCAS EQU TUBTAS+5 DEFINES ALL 5 PRECEDING BYTES 02020000
SPACE 1 02030000
* TERMINAL TYPE FIELD 02040000
SPACE 1 02050000
TUBPHY EQU TUBCAS+1 PHYSICAL TERMINAL TYPE--VALUES: 02060000
TUBCON EQU 0 0 - CONSOLE 02070000
TUBMLT EQU 1 1 - MLTA NON-1050 02080000
TUB105 EQU 2 2 - MLTA 1050 02090000
TUB7M1 EQU 3 3 - 3277/84/86 MODEL 1 (480) 02100000
TUB7M2 EQU 4 4 - 3277/84/86 MODEL 2 (1920) 02110000
TUB5M1 EQU 5 5 - 3275 MODEL 1 (480) 02120000
TUB5M2 EQU 6 6 - 3275 MODEL 2 (1920) 02130000
TUB375 EQU 7 7 - 3735 02140000
TUBCPU EQU 8 8 - CPU 02150000
TUB374 EQU 9 9 - 3741 02155000
SPACE 1 02160000
* MULTI-COMPONENT TERMINAL PRINCIPAL COMPONENT INDEXES 02170000
SPACE 1 02180000
TUBPCS EQU TUBPHY+1 PRINCIPAL COMPONENTS FOR 1050 02190000
TUBVHR EQU TUBPCS+1 SAVE AREA FOR TUBCHR FOR MLTA 02200000
SPACE 1 @L 02205000
TUBAT4 EQU TUBVHR+1 TERMINAL ATTRIBUTE BYTE 4 @L 02210000
TUBBSY EQU BIT0 1-PRINTER BUSY @L 02213000
* 0-PRINTER NOT BUSY @L 02216000
SPACE 1 @L 02220000
TUBWAT EQU BIT1 1-TASK WAITING @L 02230000
* 0-TASK NOT WAITING @L 02240000
TUBRSP EQU BIT3 1-STOP POLLING SUCCESSFUL @L 02241000
* 0-NOT SUCCESSFUL @L 02242000
SPACE 1 @L 02243000
TUBLN EQU TUBAT4+1 LENGTH OF TUB @L 02244000
TUBSTP EQU X'04' TUB STOPPER BYTE @L 02245000
SPACE 1 02250000
MEND 02260000