|
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: 8890 (0x22ba)
Types: s3xseg
Names: »S$ELCB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ELCB«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ELCB * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 13,MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR LINE CONTROL BLOCK -- FOR: * 00110000
.* * 00120000
.* . OFFSETS OF FIELDS * 00130000
.* . VALUES WITHIN FIELDS * 00140000
.* * 00150000
.* INPUT OPERANDS: * 00160000
.* * 00170000
.* . BSCA-YES/Y/1/NO/N/0 * 00180000
.* . MLTA-YES/Y/1/NO/N/0 * 00190000
.* * 00200000
.********************************************************************** 00210000
$ELCB &BSCA-,&MLTA- 00220000
TABLE &BSCA 00230000
YES TABDF 1 00240000
Y TABDF 1 00250000
NO TABDF 0 00260000
N TABDF 0 00270000
'' TABDF 1 00280000
TABLE &MLTA 00290000
YES TABDF 1 00300000
Y TABDF 1 00310000
NO TABDF 0 00320000
N TABDF 0 00330000
'' TABDF 1 00340000
TEXT 00350000
*********************************************************************** 00360000
* L I N E C O N T R O L B L O C K * 00370000
*********************************************************************** 00380000
.* 00390000
AIF (&BSCA EQ '0').COMN . SKIP IF *NO* BSCA SUPPORT 00400000
.* 00410000
SPACE 2 00420000
*------------------ FIRST BSCA-ONLY SEGMENT ------------------------* 00430000
SPACE 1 00440000
LCBSCA EQU 76 LCB BEGIN FOR BSCA. 00450000
LCBPOL EQU LCBSCA+1 ADDRESS OF POLLING LIST. 00460000
LCBSEL EQU LCBPOL+2 ADDRESS OF SELECTION LIST. 00470000
LCBNO# EQU LCBSEL @ IN SW ID LIST OF NO VERIFY ID 00475000
LCBID# EQU LCBSEL+1 ID LAST POLL/SELECTED TERM. 00480000
LCBPL@ EQU LCBID#+2 SAVE FOR CURRENT PARM LIST @. 00490000
LCBWRK EQU LCBPL@+2 WORK AREA FOR SUBRTNS. 00500000
SPACE 00510000
* LCBAT1 AND LCBAT2 ARE BOTH ZEROED WHEN AN EOT IS HANDLED. 00520000
SPACE 00530000
LCBAT1 EQU LCBWRK+1 ATTRIBUTE BYTE 1. 00540000
LCBCRI EQU X'80' CANCEL RCVI, STOP POLLING. 00550000
LCBPRI EQU X'40' CANCEL RCVI, HANDLE PRIORITY PUT 00560000
LCBINT EQU X'10' INTERRUPT WITH NO PARM LIST QUED 00570000
LCBNTQ EQU X'08' ACTIVE PARM LIST REMOVED FR QUE. 00580000
LCBDEQ EQU X'04' DEQUE WHEN EOT IS FOUND. 00590000
LCBEOT EQU X'02' SEARCH EOT. READ LINE FOR EOT. 00600000
SPACE 00610000
LCBAT2 EQU LCBAT1+1 ATTRIBUTE BYTE 2. 00620000
LCBTRC EQU X'80' TRUNCATE BLOCK, BUMP BKX TO END. 00630000
LCBSET EQU X'40' SEND EOT ON THE LINE. 00640000
LCBACT EQU X'20' LINE ACTIVE WITH WORK. 00650000
LCBRFT EQU X'10' REQUEST FOR TEST STARTED. 00660000
LCBABT EQU X'08' ABORT THE LINE CONNECTION. 00670000
LCBSEC EQU X'04' SECOND BLOCK INDICATOR. 00675000
LCBPUT EQU X'02' PUT PENDING ON LINE. 00680000
LCBRCI EQU X'01' RECEIVE INIT ON LINE. 00690000
SPACE 00700000
LCBADJ EQU LCBAT2+2 ADJUSTED OUTPUT LENGTH. 00710000
LCBATL EQU LCBADJ+2 @ OF ASCII TRANSLATE BUFFER. 00720000
LCBOWN EQU LCBATL+2 TCB ADDR OF OWNING TASK. 00730000
LCB$L0 EQU LCBOWN+2 C/S OF LINE INIT. TRANSIENT. 00740000
LCBSRT EQU LCB$L0+2 @ OF START OF LINE BUFFER AREA. 00750000
LCBBND EQU LCBSRT+2 @ OF END OF LINE BUFFER AREA. 00760000
LCBKLC EQU LCBBND+2 BLOCK LENGTH CURRENT INPUT OP. 00770000
.* 00780000
.COMN ANOP . CONTINUE HERE 00790000
.* 00800000
SPACE 2 00810000
*---------------- SEGMENT COMMON TO MLTA AND BSCA ------------------* 00820000
SPACE 1 00830000
LCBCCP EQU X'65' BEGINNING OF LCB 00840000
LCBPLQ EQU LCBCCP+2-1 ADDR OF 1ST PARM LIST IN LINE QU 00850000
LCBCHN EQU LCBPLQ+2 CHAIN OF ALL LCB'S IN CCP SYSTEM 00860000
LCBATA EQU LCBCHN+1 LCB ATTRIBUTE BYTE A. 00862000
LCBIGN EQU X'80' 1-IGNORE OP END.RE-OPEN LINE. 00864000
SPACE 00866000
LCBELC EQU LCBATA+1 ADDR OF TRANSLATE TABLE FROM 00870000
* EBCDIC TO LINE CODE 00880000
LCBLCE EQU LCBELC+2 ADDR OF TRANSLATE TABLE FROM 00890000
* LINE CODE TO UPPER CASE EBCDIC 00900000
SPACE 1 00910000
* BSCA DEFINITION OF LCBLCE. 00920000
SPACE 1 00930000
LCBOPE EQU LCBLCE 1 BYTE BSCA OP END COUNT ON LINE 00940000
SPACE 1 00943000
LCBLID EQU LCBLCE+1 SAVE AREA FOR LAST TERMINAL ID 00946000
SPACE 1 00950000
LCBLLE EQU LCBLID+1 ADDR OF TRANSLATE TABLE FROM 00960000
* LINE CODE TO LOWER CASE EBCDIC 00970000
LCBOLT EQU LCBLLE+1 POLT COUNT (RUNNING AND PENDING) 00980000
* ON THIS TP LINE 00990000
SPACE 1 01000000
* BSCA DEFINITION OF LCBOLT. 01010000
SPACE 1 01020000
LCBAT3 EQU LCBOLT BSCA LCB ATTRIBUTE BYTE 3 01030000
LCBITB EQU BIT0 1-ITB SUPPORTED FOR THIS DTF 01040000
LCBTSP EQU BIT1 1-TRANSPARENCY SUPPORTED 01050000
LCBENB EQU BIT2 1-BSCA LINE ENABLED 01060000
LCBATO EQU BIT3 AUTO CALL HARDWARE SUPPORTED. 01070000
SPACE 1 01080000
LCBATR EQU LCBOLT+1 LCB ATTRIBUTE BYTE 01090000
SPACE 1 01100000
LCBNIT EQU BIT0 * HAD SUCCESSFUL INITIAL 01110000
* * OPERATION ON THIS LINE 01120000
LCBOLR EQU BIT1 * 1-POLT CURRENTLY RUNNING 01130000
LCBGMN EQU BIT2 * 1-GETMAIN NEEDED FOR LINE QUEUE01140000
LCBSTP EQU BIT3 1-ABORT ISSUED TO STOP READ 01150000
LCBSWL EQU BIT4 1-SWALLOW INPUT FROM NEXT READ 01160000
* OP END 01170000
LCB1PL EQU BIT5 1-INDICATES NEXT PARM LIST 01180000
* ISSUED TO THIS LINE IS TO BE PUT 01190000
* AT THE TOP OF LINE QUEUE 01200000
LCBTBK EQU BIT6 1-BIT BUCKET DATA FROM READ OP 01210000
* SET FOR 2741 TO DO READ INITIAL 01220000
* WHEN WRITE IS 1ST OP TO TERMINAL 01230000
LCBAPP EQU BIT7 1-LCB ALLOCATION PENDING 01240000
SPACE 1 01250000
LCBBFL EQU LCBATR+2 LENGTH OF DATA AREA IN LINE BUFR 01260000
LCBMCL EQU LCBBFL+2 MAXIMUM COMMAND LENGTH 01270000
* USED FOR LENGTH OF SYSTEM INVITE 01280000
LCBIBL EQU LCBMCL+2 LENGTH OF CURRENT INVITE INPUT 01290000
* BUFFER FOR THIS LINE 01300000
LCBIBA EQU LCBIBL+2 ADDRESS OF INVITE INPUT BUFFER 01310000
LCBTCB EQU LCBIBA+2 ADDR OF TCB WHICHS OWNS SWITCHED 01320000
* TP LINE 01330000
LCBATC EQU LCBTCB+1 COUNT OF ALLOCATED TUBS ON 01340000
* SWITCHED LINE 01350000
.* 01360000
AIF (&MLTA EQ '0').BSCA . SKIP IF *NO* MLTA 01370000
.* 01380000
SPACE 2 01390000
*----------------------- MLTA-ONLY SEGMENT -------------------------* 01400000
SPACE 1 01410000
LCBWTC EQU LCBATC+1 WORLD TRADE TERMAINL TYPE BYTE 01420000
MLNWTC EQU X'00' NOT A WORLD TRADE TERMINAL 01430000
ML2970 EQU X'01' 2970 WORLD TRADE TERMINAL 01440000
ML5930 EQU X'02' 5930 WORLD TRADE TERMINAL 01450000
SPACE 1 01460000
LCBMLN EQU LCBWTC+1 LENGTH OF MLTA LCB 01470000
SPACE 01480000
* MLTA TERMINAL TYPE EQUATES 01490000
* THESE APPLY TO $MDTTP OF THE MLTA DTF 01500000
SPACE 01510000
ML1050 EQU X'01' 1050 01520000
ML2740 EQU X'02' 2740 01530000
ML2741 EQU X'03' 2741 01540000
SPACE 01550000
* SPECIAL MLTA EQUATES (TEMPORARY) 01560000
SPACE 01570000
TDFFL2 EQU X'39' IOCS FLAG BYTE 2 01580000
FL2ENA EQU BIT1 LINE ENABLED 01590000
FL2OLP EQU BIT2 PROGRAM REQUESTED ONLINE TEST 01600000
FL2OLT EQU BIT4 ONLINE TEST IN PROGRESS 01610000
SPACE 01620000
TDFERP EQU X'50' ERROR RECOVERY STAUTS SWITCHES 01630000
ERPCAL EQU BIT0 ERP HAS BEEN CALLED 01640000
SPACE 01650000
$MDPE8 EQU X'53' HDB BYTE 7 01660000
MLDISC EQU BIT0 1-MLTA SW LINE IS DISCONNECTED 01670000
SPACE 01680000
* SPECIAL MLTA 2740M2 BUFFERRED RECIEVE STATUS BYTES 01690000
SPACE 01700000
MLBID EQU X'04' 2740M2 IN BID STATUS 01710000
MLENTR EQU X'02' 2740M2 IN ENTER STATUS 01720000
MLWBYP EQU X'08' 2740M2 BUSY WITH WRITE (PTTC) 01730000
MLWBYC EQU X'10' 2740M2 BUSY WITH WRITE (CORR) 01740000
* 01750000
SPACE 01760000
* TRANSMISSION CODE EQUATES ($MDTCT) 01770000
SPACE 01780000
MLPTTC EQU X'01' PTTC TRANSMISSION CODE 01790000
MLCORR EQU X'02' CORRESPONDENCE TRANSMISSION CODE 01800000
SPACE 01810000
.* 01820000
.BSCA ANOP 01830000
AIF (&BSCA EQ '0').END . SKIP IF *NO* BSCA 01840000
.* 01850000
SPACE 2 01860000
*------------------ SECOND BSCA-ONLY SEGMENT -----------------------* 01870000
SPACE 1 01880000
LCBOPC EQU LCBATC+1 LAST OP CODE ON BSCA. 01890000
LCBMVD EQU X'80' DATA MOVED INDICATOR ON. 01900000
LCBERP EQU X'40' LINE IN ERP MODE.(IGNORE DATA). 01910000
LCBRVI EQU X'20' RVI IND - SEND/RECEIVE RVI. 01920000
* X'08' * SAVE 01930000
* X'04' * AREA 01940000
* X'02' * FOR CCP 01950000
* X'01' * OP CODE. 01960000
SPACE 01970000
* THE FOLLOW EQUATES ARE FOR OUTPUT (SELECTION) ONLY. 01980000
SPACE 01990000
LCBADL EQU LCBOPC+1 START OF LINE SELECTION LIST. 02000000
LCBADN EQU LCBADL+10 END OF SELECTION LIST. 02010000
SPACE 02020000
* THE FOLLOWING EQUATES ARE FOR INPUT (POLLING) ONLY. 02030000
SPACE 02040000
LCBMRL EQU LCBOPC+2 INCREMENT AREA FOR MSG LENGTH. 02050000
LCBMIL EQU LCBMRL+2 ORIGINAL MESSAGE INL. 02060000
LCBMR@ EQU LCBMIL+2 ORIGINAL MESSAGE RECORD ADDR. 02070000
SPACE 1 02080000
LCBBLN EQU LCBADN+1 LENGTH OF BSCA LCB 02090000
SPACE 1 02100000
* THE FOLLOWING EQUATES ARE FOR BSCA SWITCHED AUTO CALL DTF ONLY. 02110000
SPACE 02120000
LCBTEL EQU LCBOPC+1 BEGINING OF AURO DIAL #. 02130000
LCBTL@ EQU LCBTEL+14 END OF AUTO DIAL AREA. 02140000
LCBSWN EQU LCBTL@+1 LENGTH OF BSCA AUTO DIAL DTF. 02150000
SPACE 02160000
.* 02170000
.END ANOP . END OF LCB 02180000
.* 02190000
MEND 02200000