|
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«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ELCB«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 7 * 00030000
.* * 00040000
.* NAME: $ELCB * 00050000
.* * 00060000
.* FUNCTION: * 00070000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00080000
.* SYMBOLS FOR LINE CONTROL BLOCK -- FOR: * 00090000
.* . OFFSETS OF FIELDS * 00100000
.* . VALUES WITHIN FIELDS * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* . BSCA-YES/Y/1/NO/N/0 * 00140000
.* . MLTA-YES/Y/1/NO/N/0 * 00150000
.********************************************************************** 00160000
$ELCB &BSCA-1,&MLTA-1 00170000
TABLE &BSCA 00180000
YES TABDF 1 00190000
Y TABDF 1 00200000
NO TABDF 0 00210000
N TABDF 0 00220000
TABLE &MLTA 00230000
YES TABDF 1 00240000
Y TABDF 1 00250000
NO TABDF 0 00260000
N TABDF 0 00270000
TEXT 00280000
*********************************************************************** 00290000
* L I N E C O N T R O L B L O C K * 00300000
*********************************************************************** 00310000
.* 00320000
AIF (&BSCA EQ '0').COMN 00330000
.* 00340000
SPACE 2 00350000
*------------------ FIRST BSCA-ONLY SEGMENT ------------------------* 00360000
SPACE 1 00370000
LCBSCA EQU 76 LCB BEGIN FOR BSCA. 00380000
LCBPOL EQU LCBSCA+1 ADDRESS OF POLLING LIST. 00390000
LCBSEL EQU LCBPOL+2 ADDRESS OF SELECTION LIST. 00400000
LCBNO# EQU LCBSEL @ IN SW ID LIST OF NO VERIFY ID. 00410000
LCBID# EQU LCBSEL+1 ID LAST POLL/SELECTED TERM. 00420000
LCBPL@ EQU LCBID#+2 SAVE FOR CURRENT PARM LIST @. 00430000
LCBWRK EQU LCBPL@+2 WORK AREA FOR SUBRTNS. 00440000
SPACE 00450000
* LCBAT1 AND LCBAT2 ARE BOTH ZEROED WHEN AN EOT IS HANDLED. 00460000
SPACE 00470000
LCBAT1 EQU LCBWRK+1 ATTRIBUTE BYTE 1. 00480000
LCBCRI EQU X'80' CANCEL RCVI, STOP POLLING. 00490000
LCBPRI EQU X'40' CANCEL RCVI, HANDLE PRIORITY PUT 00500000
LCBINT EQU X'10' INTERRUPT WITH NO PARM LIST QUED 00510000
LCBNTQ EQU X'08' ACTIVE PARM LIST REMOVED FR QUE. 00520000
LCBDEQ EQU X'04' DEQUE WHEN EOT IS FOUND. 00530000
LCBEOT EQU X'02' SEARCH EOT. READ LINE FOR EOT. 00540000
SPACE 00545000
LCBAT2 EQU LCBAT1+1 ATTRIBUTE BYTE 2. 00570000
LCBTRC EQU X'80' TRUNCATE BLOCK, BUMP BKX TO END. 00580000
LCBSET EQU X'40' SEND EOT ON THE LINE. 00590000
LCBACT EQU X'20' LINE ACTIVE WITH WORK. 00600000
LCBRFT EQU X'10' REQUEST FOR TEST STARTED. 00610000
LCBABT EQU X'08' ABORT THE LINE CONNECTION. 00620000
LCBSEC EQU X'04' SCOND BLOCK INDICATOR. 00625000
LCBPUT EQU X'02' PUT PENDING ON LINE. 00630000
LCBRCI EQU X'01' RECEIVE INIT ON LINE. 00640000
SPACE 00650000
LCBADJ EQU LCBAT2+2 ADJUSTED OUTPUT LENGTH. 00660000
LCBATL EQU LCBADJ+2 @ OF ASCII TRANSLATE BUFFER. 00670000
LCBOWN EQU LCBATL+2 TCB ADDR OF OWNING TASK. 00680000
LCB$L0 EQU LCBOWN+2 C/S OF LINE INIT. TRANSIENT. 00690000
LCBSRT EQU LCB$L0+2 @ OF START OF LINE BUFFER AREA. 00700000
LCBBND EQU LCBSRT+2 @ OF END OF LINE BUFFER AREA. 00710000
LCBKLC EQU LCBBND+2 BLOCK LENGTH CURRENT INPUT OP. 00720000
.* 00730000
.COMN ANOP . CONTINUE HERE 00740000
.* 00750000
SPACE 2 00760000
*---------------- SEGMENT COMMON TO MLTA AND BSCA ------------------* 00770000
SPACE 1 00780000
LCBCCP EQU X'65' BEGINNING OF LCB 00790000
LCBPLQ EQU LCBCCP+2-1 ADDR OF 1ST PARM LIST IN LINE QU 00800000
LCBCHN EQU LCBPLQ+2 CHAIN OF ALL LCB'S IN CCP SYSTEM 00810000
LCBATA EQU LCBCHN+1 LCB ATTRIBUTE BYTE A. 00820000
LCBIGN EQU X'80' 1-IGNORE OP END. REOPENING LINE 00830000
SPACE 00840000
LCBELC EQU LCBATA+1 ID XLATE XIENT EBCDIC -> LINE. 00850000
LCBRS1 EQU LCBELC+1 RESERVED BYTE 1. (NOT USED) 00860000
SPACE 00870000
*------------------ MLTA / BSCA MULTIPLIED DEFINED BYTE -------------* 00880000
SPACE 00890000
LCBLCE EQU LCBRS1+1 ID XLATE XIENT LINE -> TO UPPER 00900000
* * CASE EBCDIC *MLTA ONLY* 00910000
LCBOPE EQU LCBLCE OP END COUNT ON LINE *BSCA ONLY* 00920000
SPACE 00930000
LCBLID EQU LCBLCE+1 SAVED ID OF LAST TERM POLLED 00940000
LCBLLE EQU LCBLID+1 ID XLATE XIENT LINE -> TO 00950000
* * LOWER CASE EBCDIC. 00960000
SPACE 00970000
*------------------- MLTA / BSCA MULTIPLIED DEFINED BYTE -------------* 00980000
SPACE 00990000
LCBOLT EQU LCBLLE+1 POLT COUNT (RUNNING AND PENDING) 01000000
* ON THIS TP LINE *MLTA ONLY* 01010000
AIF (&BSCA EQ '0').ATR 01020000
LCBAT3 EQU LCBOLT LCB ATTRIBUTE BYTE 3 *BSCA ONLY* 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
LCBBYP EQU BIT4 POLLING A BUSY PRINTER 01072000
LCBSTS EQU BIT5 POLL FOR STATUS IN OPERATION 01074000
LCBSTF EQU BIT6 TERMINATE WITH U- NS. 01076000
.ATR 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 QUEU 01140000
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
LCBTIM EQU BIT7 RESCHEDULE PENDING ON LINE 01235000
SPACE 1 01240000
LCBBFL EQU LCBATR+2 LENGTH OF DATA AREA IN LINE BUFR 01250000
LCBRS3 EQU LCBBFL+2 RESERVED BYTES.(NOT USED) 01260000
LCBIBL EQU LCBRS3+2 LENGTH OF CURRENT INVITE INPUT 01270000
* BUFFER FOR THIS LINE 01280000
LCBIBA EQU LCBIBL+2 ADDRESS OF INVITE INPUT BUFFER 01290000
LCBTCB EQU LCBIBA+2 ADDR OF TCB WHICHS OWNS SWITCHED 01300000
* TP LINE 01310000
LCBATC EQU LCBTCB+1 COUNT OF ALLOCATED TUBS ON 01320000
* SWITCHED LINE 01330000
LCBNW# EQU LCBATC+1 # NEW REQUESTS FOR CM - FROM II 01340000
.* 01350000
AIF (&MLTA EQ '0').BSCA 01360000
.* 01370000
SPACE 2 01380000
*----------------------- MLTA-ONLY SEGMENT -------------------------* 01390000
SPACE 1 01400000
LCBWTC EQU LCBNW#+1 WORLD TRADE TERMAINL TYPE BYTE 01410000
MLNWTC EQU X'00' NOT A WORLD TRADE TERMINAL 01420000
ML2970 EQU X'01' 2970 WORLD TRADE TERMINAL 01430000
ML5930 EQU X'02' 5930 WORLD TRADE TERMINAL 01440000
SPACE 1 01450000
LCBMLN EQU LCBWTC+1 LENGTH OF MLTA LCB 01460000
SPACE 01470000
* SPECIAL MLTA DTF EQUATES IN $MDTTP 01480000
ML2741 EQU X'03' 2741 01490000
SPACE 01500000
* SPECIAL MLTA EQUATES IN IOCS FLAG NUMBER 2 01510000
TDFFL2 EQU 57 IOCS FLAG BYTE 2 01520000
FL2OLP EQU X'20' PROGRAM REQUESTED ONLINE TEST 01530000
FL2OLT EQU X'08' ONLINE TEST IN PROGRESS 01540000
SPACE 01550000
* MLTA DTF EQUATE FOR TDFEPC - INTERNAL EVENT COMPLETION CODE 01560000
TDFEPC EQU 69 INTERNAL EVENT COMPLETION CODE. 01570000
SPACE 01580000
* SPECIAL MLTA DTF EQUATES IN $MDOLT 01590000
TDFERP EQU 80 ERROR RECOVERY STAUTS SWITCHES 01600000
ERPCAL EQU X'80' ERP HAS BEEN CALLED 01610000
SPACE 01620000
$MDPE8 EQU 83 HDB BYTE 7 01630000
SPACE 01640000
* SPECIAL MLTA DTF EQUATES IN $MDPE7 01650000
MLDISC EQU X'80' 1-MLTA SW LINE IS DISCONNECTED 01660000
SPACE 01670000
* 2740M2 BUFFERED-RECEIVE STATUS BYTES IN $MDRSP-1 01680000
MLBID EQU X'04' 2740M2 IN BID STATUS 01690000
MLENTR EQU X'02' 2740M2 IN ENTER STATUS 01700000
MLWBYP EQU X'08' 2740M2 BUSY WITH WRITE (PTTC) 01710000
MLWBYC EQU X'10' 2740M2 BUSY WITH WRITE (CORR) 01720000
SPACE 01730000
* SPECIAL MLTA DTF EQUATES IN $MDTCT 01740000
MLPTTC EQU X'01' PTTC TRANSMISSION CODE 01750000
MLCORR EQU X'02' CORRESPONDENCE TRANSMISSION CODE 01760000
SPACE 01770000
.* 01780000
.BSCA AIF (&BSCA EQ '0').END 01790000
.* 01800000
SPACE 2 01810000
*------------------ SECOND BSCA-ONLY SEGMENT -----------------------* 01820000
SPACE 1 01830000
LCBOPC EQU LCBNW#+1 LAST OP CODE ON BSCA. 01840000
LCBMVD EQU X'80' DATA MOVED INDICATOR ON. 01850000
LCBERP EQU X'40' LINE IN ERP MODE.(IGNORE DATA). 01860000
LCBRVI EQU X'20' RVI IND - SEND/RECEIVE RVI. 01870000
* X'08' * SAVE 01880000
* X'04' * AREA 01890000
* X'02' * FOR CCP 01900000
* X'01' * OP CODE. 01910000
SPACE 01920000
* THE FOLLOW EQUATES ARE FOR OUTPUT (SELECTION) ONLY. 01930000
SPACE 01940000
LCBADL EQU LCBOPC+1 START OF LINE SELECTION LIST. 01950000
LCBADN EQU LCBADL+10 END OF SELECTION LIST. 01960000
SPACE 01970000
* THE FOLLOWING EQUATES ARE FOR INPUT (POLLING) ONLY. 01980000
SPACE 01990000
LCBMRL EQU LCBOPC+2 INCREMENT AREA FOR MSG LENGTH. 02000000
LCBMIL EQU LCBMRL+2 ORIGINAL MESSAGE INPUT LENGTH 02010000
* USED VIA LCBMR@ LABEL. 02020000
LCBMR@ EQU LCBMIL+2 ORIGINAL MESSAGE RECORD ADDR. 02030000
SPACE 1 02040000
LCBBLN EQU LCBADN+1 LENGTH OF BSCA LCB 02050000
SPACE 1 02060000
* THE FOLLOWING EQUATES ARE FOR BSCA SWITCHED AUTO CALL DTF ONLY. 02070000
SPACE 02080000
LCBTEL EQU LCBOPC+1 BEGINING OF AURO DIAL #. 02090000
LCBTL@ EQU LCBTEL+14 END OF AUTO DIAL AREA. 02100000
LCBSWN EQU LCBTL@+1 LENGTH OF BSCA AUTO DIAL DTF. 02110000
SPACE 02120000
.* 02130000
.END ANOP . END OF LCB 02140000
.* 02150000
MEND 02160000