|
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: 11938 (0x2ea2)
Types: s3xseg
Names: »S$ECIB«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ECIB«
MACRO 00010000
$ECIB 00020000
TEXT 00030000
*********************************************************************** 00040000
* * 00050000
* NAME: $ECIB * 00060000
* * 00070000
* FUNCTION: DEFINE THE BINARY SYNCHRONOUS COMMUNICATION * 00080000
* CONTROLLER (BSCC) INPUT/OUTPUT BLOCK (CIB) * 00090000
* * 00100000
* STATUS: VERSION 2 MODEL 15D ONLY * 00110000
* * 00120000
* DATE: JULY 11,1977 * 00130000
* * 00140000
*********************************************************************** 00150000
ONECIB EQU 1 00160000
TWOCIB EQU 2 00170000
FORCIB EQU 4 00180000
SPACE 2 00190000
CIBBEG EQU 0 START OF CIB 00200000
CIBNXT EQU CIBBEG+ONECIB NEXT CIB ADDRESS 00210000
SPACE 00220000
CIBQ EQU CIBNXT+ONECIB SIO Q-BYTE OF LAST OPERATION 00230000
QSCTRL EQU X'20' CONTROL 00240000
QSRCVO EQU X'21' RECEIVE ONLY 00250000
QSTRCV EQU X'22' TRANSMIT AND RECEIVE 00260000
QSRCVI EQU X'23' RECEIVE INITIAL 00270000
QSMCTR EQU X'25' MICROCONTROL 00280000
QSWRAP EQU X'26' WRAP TEST 00290000
SPACE 00300000
* Q BYTE FOR OTHER BSCC I/O INSTRUCTIONS 00310000
SPACE 2 00320000
* TIO 00330000
QTNRDY EQU X'20' ATTACHMENT NOT READY 00340000
QTOPEI EQU X'21' OP-END INTERRUPT 00350000
QT3MBF EQU X'22' S/3-TO-MICRO BUFFER FULL 00360000
SPACE 00370000
* LIO 00380000
QLSL3 EQU X'22' SELECT LINE 3 00390000
QLSL4 EQU X'23' SELECT LINE 4 00400000
QLCAR EQU X'24' LOAD CAR 00410000
SPACE 00420000
* SNS 00430000
QN3MB EQU X'21' S/3-TO-MICRO BUFFER 00440000
QN3AP# EQU X'22' LINE 3 AUTO POLL SEQ NUMBER 00450000
QNATST EQU X'23' ATTACH STATUS 00460000
QNCAR EQU X'24' SENSE CAR 00470000
QNCLS EQU X'26' COMMUNICATION LINE STATUS 00480000
SPACE 00490000
* I-R BYTE OF SIO INSTRUCTION 00500000
IR EQU B'00000000' IR BYTE FOR FUNCTIONAL SIOS 00510000
IREATT EQU B'01000000' ENABLE ATTACHMENT 00520000
IRDATT EQU B'11000000' DISABLE ATTACHMENT 00530000
IRESET EQU B'10000010' RESET INTERRUPT PENDING 00540000
IREINT EQU B'00000001' ENABLE INTERRUPTS 00550000
IRDINT EQU B'10000001' DISABLE INTERRUPTS 00560000
IRSTPP EQU B'10100000' STOP OUTBOARD POLLING 00570000
IRCNRI EQU B'10110000' CANCEL RECEIVE INITIAL 00580000
IRS2S EQU B'00000001' START 2 SEC TIMEOUT 00590000
IRC2S EQU B'10000001' CANCEL 2 SEC TIMEOUT 00600000
IRWRAP EQU B'00000001' WRAP TEST IR BYTE 00610000
SPACE 2 00620000
CIBLIN EQU CIBQ+ONECIB CIB LINE STATUS 00630000
LINRSE EQU B'11111100' RESERVED 00640000
LIN4 EQU B'00000010' LINE 4 00650000
LIN3 EQU B'00000001' LINE 3 00660000
SPACE 2 00670000
CIBDBL EQU CIBLIN+TWOCIB DATA BUFFER LENGTH (2 BYTES) 00680000
SPACE 00690000
CIBFLA EQU CIBDBL+ONECIB CIB FLAG FIELD-A 00700000
FLAENQ EQU B'10000000' ENQ HAS BEEN SENT 00710000
FLAINV EQU B'01000000' INVALID ACK RECEIVED 00720000
FLARS1 EQU B'00100000' RESERVED 00730000
FLARS2 EQU B'00010000' RESERVED 00740000
FLARS3 EQU B'00001000' RESERVED 00750000
FLAFST EQU B'00000100' FIRST - POINT TO POINT LINE INIT 00760000
FLADEL EQU B'00000010' DELAY CIB 00770000
FLAPLE EQU B'00000001' PROG LEVEL ENTRY TO IOS 00780000
SPACE 2 00790000
CIBFLB EQU CIBFLA+ONECIB CIB FLAG FIELD-B 00800000
FLBINP EQU B'10000000' INPUT MODE 00810000
FLBOUT EQU B'01000000' OUTPUT MODE 00820000
FLBCON EQU B'00100000' CONVERSATION MODE 00830000
FLBTRN EQU B'00010000' TRANSPARENT MODE 00840000
FLBRS1 EQU B'00001000' RESERVED 00850000
FLBASC EQU B'00000100' ASCII 00860000
FLBRS2 EQU B'00000010' RESERVED 00870000
FLBRS3 EQU B'00000001' RESERVED 00880000
SPACE 00890000
CIBFLC EQU CIBFLB+ONECIB CIB FLAG FIELD-C 00900000
FLCECB EQU B'10000000' POST ECB IN CLB 00910000
FLCPOL EQU B'01000000' POLLING 00920000
FLCOUT EQU B'00100000' OUTBOARD POLLING 00930000
FLCSTP EQU B'00010000' STOP POLLING REQUEST 00940000
FLCSEL EQU B'00001000' SELECTION 00950000
FLCPRC EQU B'00000100' CIB IN PROCESS 00960000
FLCRDY EQU B'00000010' READY FOR TRANSMIT 00970000
FLCTRN EQU B'00000001' BEING TRANSMITTED 00980000
SPACE 2 00990000
CIBFLD EQU CIBFLC+ONECIB CIB FLAG FIELD-D 01000000
FLDEOT EQU B'10000000' REQUEST TO SEND EOT 01010000
FLDETS EQU B'01000000' EOT TRANSMITT STARTED 01020000
FLDETF EQU B'00100000' EOT TRANSMITT FINISHED 01030000
FLDACK EQU B'00010000' SEND ACK/RVI WITH BUFFER 01040000
FLDPNK EQU B'00001000' NAK SENT IN POLLING ERP 01050000
FLDRS3 EQU B'00000100' RESERVED 01060000
FLDRS4 EQU B'00000010' RESERVED 01070000
FLDRS5 EQU B'00000001' RESERVED 01080000
SPACE 2 01090000
CIBCMT EQU CIBFLD+ONECIB CIB COMPLETION CODE 01100000
CMTACC EQU X'00' REQUEST ACCEPTED 01110000
CMTRVP EQU X'32' RVI REC'D ON PUT OP 01120000
CMTEND EQU X'40' NORMAL COMPLETION 01130000
CMTUER EQU X'41' USER ERROR 01140000
CMTEOF EQU X'42' END-OF-FILE 01150000
CMTNEG EQU X'44' NEGATIVE RESPONSE TO POLL/ADDR 01160000
CMTNOR EQU X'45' NO RESPONSE TO POLL/ADDRESS 01170000
CMTRTF EQU X'48' INVALID REQUEST FOR TEST (RFT) 01180000
CMTNOA EQU X'49' NO ACTIVE ENTRY POLL/ADDR LIST 01190000
CMTINV EQU X'4B' INVALID ASCII CHARACTER 01200000
CMTNOC EQU X'4C' NO CONNECTION 01210000
CMTIRQ EQU X'4D' INVALID REQUEST 01220000
CMTDLY EQU X'4E' DELAY COUNT EXCEEDED 01230000
CMTPER EQU X'4F' PERMANENT ERROR 01240000
CMTNRR EQU X'50' NO RESPONSE FROM REMOTE DEV 01250000
CMTDCK EQU X'51' DATA CHECK 01260000
CMTLDA EQU X'52' LOST DATA 01270000
CMTLCN EQU X'53' LOST CONNECTION 01280000
CMTIRS EQU X'54' INVALID RESPONSE FROM REMOTE DEV 01290000
CMTADC EQU X'55' ADAPTER CHECK 01300000
CMTFAC EQU X'59' FORWARD ABORT COMPLETE 01310000
CMTEIL EQU X'5A' ERROR IN BSCC INTERRUPT LEVEL 01315000
CMTMPE EQU X'60' MICRO CONTROLLER PARITY ERROR 01320000
CMTABR EQU X'63' ABORT RECEIVED TTD - EOT 01330000
CMTABT EQU X'64' ABORT RECEIVED (NO ETX) - EOT 01340000
CMTRVS EQU X'71' RVI REC'D ON SELECTION 01350000
SPACE 2 01360000
CIBDAT EQU CIBCMT+TWOCIB ADDRESS OF BSCC DATA BUFFER 01370000
SPACE 2 01380000
CIBSN0 EQU CIBDAT+ONECIB OUTBOARD POLLING RESPONSE SEQ # 01390000
SPACE 01400000
CIBSN1 EQU CIBSN0+ONECIB COMMUNICATION LINE STATUS 01410000
SN1BS3 EQU B'10000000' BSC LINE 3 BUSY 01420000
SN1BS4 EQU B'01000000' BSC LINE 4 BUSY 01430000
SN1OP3 EQU B'00100000' LINE 3 OP-END INTERRUPT 01440000
SN1OP4 EQU B'00010000' LINE 4 OP-END INTERRUPT 01450000
SN1SE3 EQU B'00001000' BSC LINE 3 SELECTED 01460000
SN1SE4 EQU B'00000100' BSC LINE 4 SELECTED 01470000
SN1RS1 EQU B'00000010' RESERVED 01480000
SN1RS2 EQU B'00000001' RESERVED 01490000
SPACE 01500000
CIBSN2 EQU CIBSN1+ONECIB DATA FIELD OR ATTACHMENT STATUS 01510000
* IF OP-END THEN DATA FIELD STATUS 01520000
SPACE 01530000
SN2TOR EQU B'10000000' TIMEOUT STATUS - RECEIVE TIMEOUT 01540000
SN2RDC EQU B'01000000' RECEIVE DATA CHECK-BCC(EBCDIC) 01550000
SN2ATT EQU B'00100000' ADAPTER CHECK IN TRAMSNIT 01560000
SN2ATR EQU B'00010000' ADAPTER CHECK IN RECEIVE 01570000
SN2IAS EQU B'00001000' INVALID ASCII CHARACTER 01580000
SN2WTF EQU B'00000001' LINE WRAP TEST FAILED 01590000
SN2ALL EQU B'11111000' MASK 01600000
SPACE 2 01610000
CIBSN3 EQU CIBSN2+ONECIB SECOND BYTE - MICRO CODE DETECTED ERRORS 01620000
SPACE 01630000
SN3NOR EQU X'02' NORMAL, NO MICRO DETECTED ERRORS 01640000
SN3MDO EQU X'03' DATA OVERRUN / OUTBOARD POLLING 01650000
SN3DOR EQU X'5A' DATA OVERRUN / NOT OUTPOLL 01660000
SN3BOR EQU X'7A' OUTBOARD POLL BUFFER OVERRUN 01670000
SN3ICH EQU X'DA' ETB/ETX WITHOUT STX/SOH 01680000
SN3ALL EQU X'F9' ERROR MASK 01690000
SPACE 01700000
* DETAILED INFORMATION ON DATA FIELD STATUS BYTES 01710000
SPACE 01720000
* SN2 SN3 MEANING 01730000
* 00 02 DATA SET READY, NORMAL STATUS INFORMATION 01740000
* 00 03 MAIN STORAGE DATA OVERRUN DURING OUTBOARD POLLING 01750000
* 00 0A DATA TERMINAL READY NOT ON AFTER A SIO COMMAND 01760000
* 00 10 DATA SET READY NOT ON AFTER A SIO COMMAND 01770000
* 00 1A INVALID N-CODE FOR BSCC SIO COMMAND 01780000
* 00 2A INVALID BUFFER SERVICE REQUEST WITH BOTH XMITT 01790000
* TRANSMITT AND RECEIVE BITS ON 01800000
* 00 32 INVALID BUFFER SERVICE REQUEST CONDITION WITH 01810000
* DATA LINK ESCAPE 2 ON AND CYCLE STEAL 1 OFF 01820000
* 00 3A INVALID BUFFER SERVICE REQUEST CONDITION WITH 01830000
* WITH BOTH XMITT AND RECEIVE BITS OFF 01840000
* 00 42 INVALID TRANSMIT STATE, CAR EQUAL TAR WITH NO 01850000
* CHANGE OF DIRECTION (COD) RECEIVE FROM S/3 01860000
* 00 4A INVALID STATE OF CYCLE STEAL BYTES 1 AND 2 01870000
* DURING TRANSMIT 01880000
* 00 52 INVALID STATE OF CYCLE STEAL BYTES 1 AND 2 01890000
* DURING RECEIVE 01900000
* 00 5A INVALID RECEIVE CONDITION, CAR EQUALS SAR 01910000
* BUT NO CHANGE OF DIRECTION (COD) FROM LINE 01920000
* 00 72 INVALID OUTBOARD POLLING REQUEST, MISSING 01930000
* SECOND X'8F' 01940000
* 00 7A OUTBOARD POLL BUFFER FULL WITH 01950000
* NO ETB/ETX RECEIVED FROM LINE 01960000
* 00 82 OUTBOARD POLL LIST DOES NOT END WITH ENQ 01970000
* 00 9A BSCC LINE ERROR, DATA TERMINAL READY NOT ON 01980000
* 00 A8 BSCC LINE ERROR, DATA SET READY NOT ON 01990000
* 00 B2 BSCC LINE ERROR, REQUEST TO SEND NOT ON 02000000
* 00 BA BSCC ATTACHMENT ERROR, TRANSMIT MODE NOT ON 02010000
* 00 C2 INVALID ENTRY BOTH LIO AND SIO FLAGS OFF 02020000
* 00 CA INVALID I/O INSTRUCTION 02030000
* LIO FOR CAR WITH LINE BUSY 02040000
* NEW SIO WITH SIO IN PROCESS 02050000
* SIO WITOUT LIO FOR CAR 02060000
* 00 D2 INVALID IR BYTE FOR MICRO CONTROLLER SIO 02070000
* 00 DA ETB/ETX RECEIVED WITHOUT STX/SOH FROM LINE 02080000
* 00 E2 INVALID IR BYTE FOR DISGNOSTIC SIO 02090000
* 00 EA INVALID CONTROL WORD IN OUTBOARD POLL LIST 02100000
* COUNT IN POLL LIST = 0 02110000
* X1 YY LINE WARP TEST FAILED X OR YY GIVE REASON 02120000
* 08 02 INVALID ASCII CHARACTER RECEIVED FROM S/3 02130000
* 10 02 ADAPTER CHECK ON RECEIVE, HARDWARE ERROR 02140000
* CAUSED OVERRUN 02150000
* 10 62 ADAPTER CHECK ON RECEIVE, TIMEOUT ON STORE 02160000
* CYCLE STEAL REQUEST TO S/3 02170000
* 10 A2 ADAPTER CHECK ON RECEIVE, MICRO CONTOLLER 02180000
* CAUSED OVERRUN 02190000
* 20 22 ADAPTER CHECK ON TRANSMIT, TIMEOUT ON FETCH 02200000
* CYCLE STEAL REQUEST TO S/3 02210000
* 20 F2 ADAPTER CHECK ON TRANSMIT. 02220000
* 40 02 RECEIVED DATA CHECK (EBCDIC) DATA FROM LINE IS BAD 02230000
* 40 FA RECEIVED DATA CHECK (ASCII) DATA FROM LINE IS BAD 02240000
* 80 6A TIME OUT DURING SIO TRANSMIT SETUP, WAITING 02250000
* FOR CLEAR TO SEND (CTS) 02260000
* 80 A2 TIMEOUT ON RECEIVE DURING OUTBOARD POLLING 02270000
* 80 F2 TIMEOUT ON RECEIVE, NOT OUTBOARD POLLING 02280000
SPACE 2 02290000
* IF NO OP-END THEN ATTACHMENT STATUS 02300000
SN2NOP EQU B'10000000' NO-OP 02310000
SN2ANE EQU B'01000000' ATTACHMENT NOT ENABLED 02320000
SN2INE EQU B'00100000' INTERRUPTS NOT ENABLED 02330000
SN2ICR EQU B'00010000' I/O CYCLE REQUEST 02340000
SN2AT3 EQU B'00001000' I/O ATTENTION/LINE 3 02350000
SN2AT4 EQU B'00000100' I/O ATTENTION/LINE 4 02360000
SN2ICY EQU B'00000010' I/O CYCLE 02370000
SN2IOW EQU B'00000001' I/O WORKING 02380000
SPACE 02390000
SN3NIM EQU B'10000000' IMPL COMPLETE 02400000
SN3MER EQU B'01000000' MICRO ERROR 02410000
SN3MSC EQU B'00100000' MICRO START CLOCK 02420000
SN3MRT EQU B'00010000' MICRO RESET 02430000
SN3MWT EQU B'00001000' MICRO WAIT 02440000
SN3MCY EQU B'00000100' MICRO SINGLE CYCLE 02450000
SN3IML EQU B'00000010' IMPL LATCH IS SET 02460000
SN3RS7 EQU B'00000001' RESERVED 02470000
SPACE 02480000
CIBSNS EQU CIBDAT+FORCIB SENSE AREA 4 BYTES 02490000
SPACE 2 02500000
CIBERR EQU CIBSNS+ONECIB RETRY COUNT 02510000
SPACE 2 02520000
CIBCAR EQU CIBERR+TWOCIB CURRENT ADDR REGISTER SAVE AREA 02530000
SPACE 2 02540000
CIBTAR EQU CIBCAR+TWOCIB DISP TRANSITION ADDR FROM CAR 02550000
SPACE 2 02560000
CIBSAR EQU CIBTAR+TWOCIB DISP OF STOP ADDR FROM CAR 02570000
SPACE 2 02580000
CIBEIL EQU CIBSAR+TWOCIB EFFECTIVE INPUT LENGTH 02590000
SPACE 2 02600000
CIBCLB EQU CIBEIL+TWOCIB CLB ADDRESS POINTER 02610000
SPACE 2 02620000
CIBEND EQU CIBCLB CIB END ADDRESS 02630000
SPACE 2 02640000
CIBLNG EQU CIBEND-CIBBEG+1 LENGTH OF CIB 02650000
SPACE 2 02660000
MEND 02670000