|
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: 15240 (0x3b88)
Types: s3xseg
Names: »S$ECLB«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ECLB«
MACRO 00010000
$ECLB &DEFN- 00020000
TABLE &DEFN 00070000
NO TABDF 0 00080000
N TABDF 0 00085000
YES TABDF 1 00090000
Y TABDF 1 00095000
'' TABDF 1 00100000
TEXT 00110000
*********************************************************************** 00120000
* * 00130000
* NAME: $ECLB * 00140000
* * 00150000
* FUNCTION: DEFINE THE BINARY SYNCHRONOUS COMMUNICATION * 00160000
* CONTROLLER (BSCC) COMMUNICATONS CONTROL BLOCK (CLB) * 00170000
* * 00180000
* STATUS: VERSION 3 MODEL 15D ONLY * 00190000
* * 00200000
* DATE: FEB 20,1978 * 00210000
* * 00220000
* NOTE: IT IS NECCESSARY THAT THE DISPLACEMENTS IN THIS CONTROL * 00230000
* BLOCK REMAIN THE SAME AS THE DISPLACEMENTS IN THE MLMP * 00240000
* DTF AND THE BSCA LCB FOR FIELDS THAT HAVE THE SAME * 00250000
* CONTENT. * 00260000
* * 00270000
* * 00280000
*********************************************************************** 00290000
ONECLB EQU 1 00300000
TWOCLB EQU 2 00310000
TRECLB EQU 3 00320000
FORCLB EQU 4 00330000
SIXCLB EQU 6 00340000
TWLCLB EQU 12 00350000
SXTCLB EQU 16 00360000
SPACE 2 00370000
CLBBEG EQU 0 START OF CLB 00380000
CLBDEV EQU 0 DEVICE ID 00390000
DEVBS3 EQU X'83' BSC LINE 3 (BSCC LINE 1) 00400000
DEVBS4 EQU X'84' BSC LINE 4 (BSCC LINE 2) 00410000
DEVSIO EQU X'30' SIOC LINE 00415000
SPACE 2 00420000
CLBIPF EQU CLBDEV+ONECLB SIOC IN PROCESS FLAG 00430000
SPACE 2 00440000
CLBATT EQU CLBIPF+ONECLB ATTRIBUTE BYTE 1 00450000
AIF (&DEFN EQ '0').RI010 00460000
SPACE 00470000
ATTINP EQU B'10000000' INPUT MODE 00480000
ATTOUT EQU B'01000000' OUTPUT MODE 00490000
ATTITB EQU B'00100000' ITB MODE 00500000
ATTTRN EQU B'00010000' TRANSPARENT MODE 00510000
ATTRS1 EQU B'00001000' RESERVED 00520000
ATTCOD EQU B'00000100' ASCII 00530000
ATTCON EQU B'00000010' CONVERSATIONAL MODE 00540000
ATTRS2 EQU B'00000001' RESERVED 00550000
.RI010 ANOP 00560000
SPACE 2 00570000
CLBATR EQU CLBATT+ONECLB ATTRIBUTE BYTE 2 00580000
AIF (&DEFN EQ '0').RI020 00590000
SPACE 00600000
ATRCTL EQU B'10000000' CONTROL STATION 00610000
ATRALL EQU B'01000000' ALLOCATED 00620000
ATRRS1 EQU B'00100000' RESERVED 00630000
ATRRS2 EQU B'00010000' RESERVED 00640000
ATRRS3 EQU B'00001000' RESERVED 00650000
ATRFUS EQU B'00000100' FILE USED 00660000
ATRFAT EQU B'00000010' CLB ACTIVE 00670000
ATRFOP EQU B'00000001' CLB OPENED 00680000
.RI020 ANOP 00690000
SPACE 2 00700000
CLBCH@ EQU CLBATR+TWOCLB CLB BACKWARD CHAIN POINTER 00710000
SPACE 2 00720000
CLBNXT EQU CLBCH@+TWOCLB NEXT CLB POINTER ADDRESS 00730000
SPACE 2 00740000
CLBWK1 EQU CLBNXT+TWOCLB CLB WORK AREA 00750000
SPACE 2 00760000
CLBWK2 EQU CLBWK1+TWOCLB CLB WORK AREA 00770000
SPACE 2 00780000
CLBWKB EQU CLBWK2+TWOCLB ADDRESS OF USERS LOGICAL BUFFER 00790000
SPACE 2 00800000
CLBCMP EQU CLBWKB+ONECLB CLB COMPLETION CODES 00810000
AIF (&DEFN EQ '0').RI030 00820000
SPACE 00830000
CMPACC EQU X'00' REQUEST ACCEPTED 00840000
CMPRVP EQU X'32' RVI REC'D ON PUT OP 00860000
CMPTUC EQU X'34' GETBLK, RECL< EIL 00870000
CMPEND EQU X'40' NORMAL COMPLETION 00880000
CMPUER EQU X'41' USER ERROR 00890000
CMPEOF EQU X'42' END-OF-FILE 00900000
CMPNID EQU X'43' INVALID ID ON POLLING/ADDRESS 00910000
CMPNEG EQU X'44' NEGATIVE RESPONSE TO POLL/ADDR 00920000
CMPNOR EQU X'45' NO RESPONSE TO POLL/ADDRESS 00930000
CMPOLT EQU X'48' INVALID REQUEST FOR TEST(RFT) 00940000
CMPNOA EQU X'49' NO ACT ENTRY IN POLL/ADDR LIST 00950000
CMPINV EQU X'4B' INVALID ASCII CHARACTER 00960000
CMPNOC EQU X'4C' NO CONNECTION 00965000
CMPIRQ EQU X'4D' INVALID REQUEST 00970000
CMPDLY EQU X'4E' DELAY COUNT EXCEEDED 00980000
CMPPER EQU X'4F' PERMANENT ERROR 00990000
CMPTIM EQU X'50' NO RESPONSE FROM REMOTE DEVICE 01000000
CMPDC EQU X'51' DATA CHECK 01010000
CMPLOS EQU X'52' LOST DATA 01020000
CMPCON EQU X'53' LOST CONNECTION 01030000
CMPRSP EQU X'54' INVALID RESPONSE RECEIVED 01040000
CMPADP EQU X'55' ADAPTER CHECK 01050000
CMPCMP EQU X'56' NO COMPLETION IN CHECK LIST 01060000
CMPFAC EQU X'59' FORWARD ABORT COMPLETE 01070000
CMPEIL EQU X'5A' ERROR IN BSCC INTERRUPT LEVEL 01071000
CMPCLS EQU X'5C' SIOC. OTHER CPU'S CLOCK STOPPED 01072000
CMPNST EQU X'5E' SIOC. NO STATUS FROM OTHER CPU 01074000
CMPPME EQU X'5F' SIOC. PERMANENT ERROR IN OTHER CPU 01076000
CMPMPE EQU X'60' MICRO CONTROLLER PARITY ERROR 01080000
CMPABR EQU X'63' ABORT RECEIVED TTD - EOT 01090000
CMPABT EQU X'64' ABORT RECEIVED NO ETX - EOT 01100000
CMPRVS EQU X'71' RVI REC'D ON SELECT 01105000
.RI030 ANOP 01110000
SPACE 2 01120000
CLBOPC EQU CLBCMP+ONECLB OPERATION CODE 01130000
AIF (&DEFN EQ '0').RI040 01140000
SPACE 01150000
OPCPUT EQU X'40' PUT 01160000
OPCEOB EQU X'41' PUT END OF BLOCK 01170000
OPCEOF EQU X'42' PUT END OF FILE 01180000
OPCEOW EQU X'44' PUT EOT TO WACK RESPONSE 01190000
OPCOLT EQU X'48' ONLINE TEST REQUEST 01200000
OPCGET EQU X'80' GET 01210000
OPCGEB EQU X'81' GET A BLOCK 01220000
OPCRVI EQU X'02' REQUEST TO SEND RVI 01230000
OPCEND EQU X'88' GET UNTIL EOT 01240000
OPCSCC EQU X'30' SIOC CLOSE CALL 01245000
OPCSTP EQU X'20' STOP POLLING 01250000
OPCFAB EQU X'10' FORWARD ABORT 01260000
.RI040 ANOP 01270000
SPACE 2 01280000
CLBMRL EQU CLBOPC+TWOCLB MAXIMUM RECORD LENGTH SAVE AREA 01290000
SPACE 2 01300000
CLBLGC EQU CLBMRL+ONECLB INDICATOR BYTE 01310000
AIF (&DEFN EQ '0').RI050 01320000
SPACE 01330000
LGCEOF EQU B'10000000' SIOC END OF FILE 01340000
LGCEOR EQU B'01000000' SIOC END OF RECORD 01343000
LGCBCH EQU B'00100000' SIOC BATCH PROGRAM (NOT-CCP) 01346000
LGCEOB EQU B'00010000' PUT/EOB LAST OPERATION 01350000
LGCNPC EQU B'00001000' SIOC IOS NOT TO INDICATE X'5C' RC. 01355000
LGCRSV EQU B'00000111' RESERVED 01360000
.RI050 ANOP 01370000
SPACE 2 01380000
CLBWK3 EQU CLBLGC+TWOCLB CLB WORK AREA THREE 01390000
SPACE 2 01400000
CLBIND EQU CLBWK3+ONECLB POLLING/ADDR LIST ENTRY ID (CS) 01410000
AIF (&DEFN EQ '0').RI060 01420000
INDACT EQU X'F0' ACTIVATE ALL ENTRIES 01430000
INDSTR EQU X'F1' START A BEGINNING OF LIST 01440000
INDNXT EQU X'F2' START AT NEXT ENTRY 01450000
.RI060 ANOP 01460000
SPACE 2 01470000
CLBCNT EQU CLBIND+TWOCLB POLL LIST COUNT CONTROL STATION 01480000
SPACE 2 01490000
CLBDTT EQU CLBCNT+TWOCLB SIOC ADDRESS OF DEFINE THE TABLE 01493000
SPACE 2 01496000
CLBDTF EQU CLBDTT+TWOCLB SIOC ADDRESS OF DEFINE THE FILE 01500000
SPACE 2 01510000
CLBDLY EQU CLBDTF+TWOCLB DELAY COUNT 01520000
SPACE 2 01530000
CLBREL EQU CLBDLY+TWOCLB RECORD LENGTH 01540000
SPACE 2 01550000
CLBBKL EQU CLBREL+TWOCLB BLOCK LENGTH 01560000
SPACE 2 01570000
CLBCIB EQU CLBBKL+TWOCLB ADDRESS OF CIB OR IOB IN PROCESS BY DM 01580000
SPACE 2 01590000
CLBBKX EQU CLBCIB+TWOCLB POINTER TO DATA IN BSCC BUFFER 01600000
SPACE 2 01610000
CLBTR@ EQU CLBBKX+TWOCLB TRACE ROUTINE ADDRESS 01620000
SPACE 2 01630000
CLBECB EQU CLBTR@+ONECLB ECB FLAG FIELD 01640000
SPACE 01650000
CLBERB EQU CLBTR@+TRECLB ECB RB ADDRESS 01660000
SPACE 2 01670000
CLBPID EQU CLBERB+ONECLB PORTID FOR INTERUPT RTN 01673000
SPACE 2 01676000
CLBRS2 EQU CLBPID+TWOCLB RESERVED (2 BYTES) 01680000
SPACE 2 01690000
CLBNDX EQU CLBRS2+ONECLB INDEX FOR LINE INITIALIZATION 01700000
NDXINT EQU X'02' LINE INITIALIZATION IN PROCESS 01703000
NDXOPD EQU X'04' OP END OCCURRED FOR LINE INIT 01706000
SPACE 2 01710000
CLBWKA EQU CLBNDX+TWOCLB POINTER TO BSCC WORK AREA 01720000
SPACE 2 01730000
CLBRS3 EQU CLBWKA+TRECLB RESERVED FIELD (3 BYTES) 01740000
SPACE 2 01750000
CLBAT1 EQU CLBRS3+ONECLB TERMINAL ATTRIBUTES 01760000
AIF (&DEFN EQ '0').RI070 01770000
SPACE 1 01780000
AT1SOH EQU B'10000000' SOH,%,R REC'D FROM TERM 01790000
AT1FRC EQU B'01000000' FIRST RECORD IN BUFFER 01800000
AT1RS2 EQU B'00100000' RESERVED 01810000
AT1RS3 EQU B'00010000' RESERVED 01820000
AT1RS4 EQU B'00001000' RESERVED 01830000
AT1SIP EQU B'00000100' SPANNING IN PROCESS 01840000
AT1SRU EQU B'00000010' SPANNED RECORDS USED 01850000
AT1RSU EQU B'00000001' RECORD SEPARATOR USED 01860000
.RI070 ANOP 01870000
SPACE 2 01880000
CLBSEP EQU CLBAT1+ONECLB RECORD SEPARATOR CHARACTER 01890000
SPACE 2 01900000
CLBSBF EQU CLBSEP+TWOCLB UPDATED LOGICAL BUFFER ADDRESS 01910000
* FOR SPANNED RECORDS IN PROCESS 01920000
SPACE 2 01930000
CLBPRL EQU CLBSBF+TWOCLB PARTIAL RECORD LENGTH SPANNED 01940000
* RECORDS IN PROCESS 01950000
SPACE 2 01960000
CLBRFT EQU CLBPRL+TWOCLB SAVE AREA OLT PARM LIST @ 01970000
SPACE 2 01980000
CLBTSA EQU CLBRFT+TWOCLB ADDR TERMINAL STAT LOGGING AREA 01990000
SPACE 2 02000000
CLBTBS EQU CLBTSA+SIXCLB CURRENT TUB ATTRIBUTES 02010000
SPACE 2 02020000
CLBERR EQU CLBTBS+ONECLB RETRY COUNT 02030000
SPACE 2 02040000
CLBT1A EQU CLBERR+TWOCLB CYLINDER/SECTOR ADDR OLT ROUTINE 02050000
SPACE 2 02060000
CLBEXA EQU CLBT1A+TWOCLB USER EXIT ADDRESS 02070000
SPACE 2 02080000
CLB003 EQU CLBEXA+ONECLB RESERVED 1 BYTE 02090000
SPACE 2 02100000
CLBWCQ EQU CLB003+TWOCLB Q OF PL WAITING FOR TP BUFFER 02110000
SPACE 2 02120000
CLBPOL EQU CLBWCQ+TWOCLB ADDRESS OF POLLING LIST 02130000
SPACE 2 02140000
CLBSEL EQU CLBPOL+TWOCLB ADDRESS OF SELECTION LIST 02150000
SPACE 2 02160000
CLB002 EQU CLBSEL+ONECLB RESERVED (1 BYTE) 02170000
SPACE 2 02180000
CLBPL@ EQU CLB002+TWOCLB SAVE AREA FOR CURRENT PARM LIST 02190000
SPACE 2 02200000
CLBWRK EQU CLBPL@+TWOCLB WORK AREA 02210000
SPACE 2 02220000
CLBBA1 EQU CLBWRK+ONECLB BSCC ATTRIBUTE BYTE 1 02230000
AIF (&DEFN EQ '0').RI080 02240000
SPACE 02250000
BA1CRI EQU B'10000000' CANCEL RECEIVE INPUT, STOP 02260000
BA1PRI EQU B'01000000' CANCEL REC INPUT, HANDLE PRI PUT 02270000
BA1RS1 EQU B'00100000' RESERVED 02280000
BA1INT EQU B'00010000' INTRP WITH NO PARM LIST IN QUEUE 02290000
BA1NTQ EQU B'00001000' ACTIVE PARM LIST REMOVED FROM Q 02300000
BA1DEQ EQU B'00000100' DEQ WHEN END-OF-TRANSMISSION 02310000
BA1EOT EQU B'00000010' SEARCH FOR EOTXT, READ LINE EOT 02320000
BA1RS2 EQU B'00000001' RESERVED 02330000
.RI080 ANOP 02340000
SPACE 2 02350000
CLBBA2 EQU CLBBA1+ONECLB BSCC ATTRIBUTE BYTE 2 02360000
AIF (&DEFN EQ '0').RI090 02370000
SPACE 02380000
BA2TRC EQU B'10000000' TRUNCATE THE DATA BLOCK 02390000
BA2SET EQU B'01000000' SEND END OF TEXT ON THE LINE 02400000
BA2ACT EQU B'00100000' LINE IS ACTIVE WITH WORK 02410000
BA2RFT EQU B'00010000' REQUEST FOR TEST STARTED 02420000
BA2ABT EQU B'00001000' ABORT THE LINE CONNECTION 02430000
BA2POP EQU B'00000100' PERFORM OUTBOARD POLLING 02440000
BA2PUT EQU B'00000010' PUT PENDING ON THE LINE 02450000
BA2RCI EQU B'00000001' RECEIVE INITIAL ON THE LINE 02460000
.RI090 ANOP 02470000
SPACE 2 02480000
CLBBA3 EQU CLBBA2+ONECLB BSCC ATTRIBUTE BYTE 3 02490000
SPACE 1 02500000
BA3STS EQU B'10000000' STATUS POLL IN OPERATION 02510000
BA3PPR EQU B'01000000' SIOC PRIMARY SYSTEM 02520000
BA3BYP EQU B'00100000' BUSY PRINTER BEING POLLED. 02530000
BA3POR EQU B'00010000' CODE IS EXECUTED FOR BOTH SIOC AND PORT 02540000
BA3PON EQU B'00001000' CODE IS EXECUTED FOR PORTLINE ONLY 02550000
BA3TIN EQU B'00000100' IN ASCII TRANSLATE THIS IS A GET OPERATION 02560000
* EQU B'00000010' NOT USED 02570000
* EQU B'00000001' NOT USED 02580000
SPACE 2 02590000
CLBRS4 EQU CLBBA3+TRECLB RESERVED 02600000
SPACE 2 02610000
CLBOWN EQU CLBRS4+TWOCLB TUB ADDRESS OF OWNER OF THE LINE 02620000
SPACE 2 02630000
CLBSTQ EQU CLBOWN+TWOCLB Q OF PL WITH STOP INVITES 02640000
SPACE 2 02650000
CLBSRT EQU CLBSTQ+TWOCLB POINTER TO BEGIN OF LINE BUF AREA 02660000
SPACE 2 02670000
CLBBND EQU CLBSRT+TWOCLB POINTER TO END LINE BUF AREA 02680000
SPACE 2 02690000
CLBKLC EQU CLBBND+TWOCLB CURRENT I/O BLOCK LENGTH 02700000
SPACE 2 02710000
CLBPLQ EQU CLBKLC+TWOCLB POINTER 1ST PARM LIST IN LINE Q 02720000
SPACE 2 02730000
CLBCHN EQU CLBPLQ+TWOCLB CLB CHAIN ADDRESS(ZERO IF LAST) 02740000
SPACE 2 02750000
CLBATA EQU CLBCHN+ONECLB BSCC ATTRIBUTE BYTE A 02760000
AIF (&DEFN EQ '0').RI100 02770000
* ATTRIBUTES BYTE A 02780000
SPACE 02790000
ATARS0 EQU B'10000000' RESERVED 02800000
ATARS1 EQU B'01000000' RESERVED 02810000
ATARS2 EQU B'00100000' RESERVED 02820000
ATARS3 EQU B'00010000' RESERVED 02830000
ATARS4 EQU B'00001000' RESERVED 02840000
ATARS5 EQU B'00000100' RESERVED 02850000
CLBDFF EQU B'00000010' DFF BUFFER SUPPORTED 02860000
CLBDFB EQU B'00000001' DFF BUFFER BUSY 02870000
.RI100 ANOP 02880000
SPACE 2 02890000
CLBELC EQU CLBATA+ONECLB BINARY ID XLATE TABLE EBCDIC 02900000
SPACE 2 02910000
CLBDTR EQU CLBELC+ONECLB DFF BUFFER ATR VALUE 02920000
SPACE 2 02930000
CLBOPE EQU CLBDTR+ONECLB OP END COUNT FOR THIS LINE 02940000
SPACE 2 02950000
CLBPLC EQU CLBOPE+ONECLB POLL LOOP COUNT SAVE AREA 02960000
SPACE 2 02970000
CLBLLE EQU CLBPLC+ONECLB BINARY ID XLATE TABLE FROM LINE 02980000
SPACE 2 02990000
CLBAT3 EQU CLBLLE+ONECLB ATTRIBUTE BYTE 3 03000000
AIF (&DEFN EQ '0').RI110 03010000
SPACE 03020000
AT3ITB EQU B'10000000' ITB IS SUPPORTED 03030000
AT3TSP EQU B'01000000' TRANSPARENCY SUPPORTED 03040000
AT3ENB EQU B'00100000' BSCC LINE ENABLED 03050000
AT3RS1 EQU B'00010000' RESERVED 03060000
AT3OUT EQU B'00001000' OUTBOARD POLLING CAN BE USED 03070000
AT3RS2 EQU B'00000100' RESERVED 03080000
AT3RS3 EQU B'00000010' RESERVED 03090000
AT3RS4 EQU B'00000001' RESERVED 03100000
.RI110 ANOP 03110000
SPACE 2 03120000
CLBATB EQU CLBAT3+ONECLB CLB ATTRIBUTE BYTE 03130000
AIF (&DEFN EQ '0').RI120 03140000
SPACE 03150000
ATBRS1 EQU B'10000000' RESERVED 03160000
ATBOLR EQU B'01000000' OLT CURRENTLY RUNNING 03170000
ATBGMN EQU B'00100000' GETMAIN REQ FOR REQUEST THIS LINE 03180000
ATBSTP EQU B'00010000' ABORT ISSUED TO STOP THE READ 03190000
ATBRS2 EQU B'00001000' RESERVED 03200000
ATB1PL EQU B'00000100' PLACE NEXT PARM LIST TOP OF QUE 03210000
ATBTBK EQU B'00000010' SAVE READ DATA, WHEN WRITE 1ST 03220000
ATBTIM EQU B'00000001' RESCHEDULE THIS CLB 03230000
.RI120 ANOP 03240000
SPACE 2 03250000
CLBBFL EQU CLBATB+TWOCLB LINE BUFFER DATA AREA LENGTH 03260000
SPACE 2 03270000
CLBMCL EQU CLBBFL+TWOCLB SYSTEM INVITE MAX COMND LENGTH 03280000
SPACE 2 03290000
CLBIBL EQU CLBMCL+TWOCLB CURRENT INVITE INPUT BUF LENGTH 03300000
SPACE 2 03310000
CLBIBA EQU CLBIBL+TWOCLB CURRENT INVITE INPUT BUFFER ADDR 03320000
CLBHIG EQU CLBIBA-ONECLB HIGH ORDER BYTE, IF '00', NO BUF 03330000
HIGNOB EQU X'00' NO BUFFER 03340000
SPACE 2 03350000
CLBRS9 EQU CLBIBA+TRECLB RESERVED 03360000
SPACE 2 03370000
CLBNW# EQU CLBRS9+ONECLB NUMBER OF NEW REQUESTS 03380000
SPACE 2 03390000
CLBOPL EQU CLBNW#+ONECLB LAST OPERATION CODE 03400000
AIF (&DEFN EQ '0').RI130 03410000
SPACE 03420000
OPLRS2 EQU B'10000000' RESERVED 03430000
OPLERP EQU B'01000000' ERP MODE 03440000
OPLRVI EQU B'00100000' RVI 03450000
OPLRS1 EQU B'00010000' RESERVED 03460000
SPACE 03470000
OPLSV1 EQU B'00001000' SAVE 03480000
OPLSV2 EQU B'00000100' AREA 03490000
OPLSV3 EQU B'00000010' FOR 03500000
OPLSV4 EQU B'00000001' OP-CODE 03510000
.RI130 ANOP 03520000
SPACE 2 03530000
CLBMLA EQU CLBOPL+TWOCLB MESSAGE LENGTH INCREMENT AREA 03540000
SPACE 2 03550000
CLBMIL EQU CLBMLA+TWOCLB MESSAGE INPUT LENGTH - ORIGINAL 03560000
SPACE 2 03570000
CLBMR@ EQU CLBMIL+TWOCLB MESSAGE RECORD ADDR - ORIGINAL 03580000
SPACE 2 03590000
CLBEND EQU CLBMR@ END ADDRESS OF CLB 03600000
SPACE 2 03610000
CLBLNG EQU CLBEND-CLBBEG+1 LENGTH OF CLB 03620000
SPACE 2 03630000
MEND 03640000