|
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: 8128 (0x1fc0)
Types: s3xseg
Names: »S$DTOB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTOB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$DTOB«
MACRO 00010000
$DTOB 00020000
.***************************************************************** 00030000
.*NAME: $DTOB (NATIVE) 00035000
.*FUNCTION: GENERATES THE BSCA DTF OFFSETS. ASLO GENERATED 00040000
.* EQUATES REQUIRED FOR THE $RFT, $BCSW, $BCPL, AND $CHK MACROS. 00050000
.****************************************************************** 00060000
TEXT 00070000
* BSCA EQUATES. RELEASE-13 00080000
SPACE 00090000
* EQUATES IN IOB 00100000
$BIFLA EQU 5 FLAG A. 00110000
$BIFST EQU X'04' FIRST IN FLAG A. 00120000
$BIOBQ EQU X'02' OFFSET TO IOB OPERATION. 00130000
$BIRVI EQU X'83' RCVI OPERATION. 00140000
$BICMP EQU X'07' OFFSET TO IOB COMPLETION. 00150000
SPACE 00160000
* EQUATES FOR WORK AREA. 00170000
$BWK EQU 1 WORK AREA REG. 00180000
$BWFG3 EQU 29 FLAG 3. 00190000
$BWLGD EQU 35 FLAG BYTE. 00193000
$BPATV EQU X'10' LINE ACTIVE INDICATOR. 00196000
$BWRFT EQU X'08' RFT IND. IN FLAG 3. 00200000
$BPOLD EQU X'17' OFFSET TO POLL INDICS IN WKA. 00210000
$BPCNC EQU X'04' CANCEL POST INDIC. 00220000
$BPRES EQU X'10' RESET POLL INDIC. 00230000
$BWKMC EQU X'59' OFFSET FOR LDA INDICS. 00233000
$B2SEC EQU X'06' TWO SEC TIME FOR LDA. 00236000
SPACE 00240000
* EQUATES FOR $BCPL AND $BCSW MACROS. 00250000
$BPATR EQU 0 CHANGE LIST ATTRIBUTE OFFSET. 00260000
$BPACT EQU X'80' OFF-ACTIVATE;ON-DEACTIVATE. 00270000
$BPEXT EQU X'40' OFF-EXACT,ON-FIRST N CHARS. 00280000
$BPDTF EQU 2 CHANGE LIST DTF ADDR OFFSET. 00290000
$BPNUM EQU 3 CHANGE LIST OFFSET TO LENGTH. 00300000
$BPEND EQU X'FE' END OF POLL/ADDR OR SW ID LIST. 00310000
$BPNOP EQU X'00' NO-OP JUMP INSTR. 00320000
$BPENA EQU X'80' ON-ACTIVE;OFF-INACT. LIST ATTR. 00330000
$BPRM1 EQU 1 REG EQU FOR MACRO PARM LIST. 00340000
$BLST2 EQU 2 REG EQU FOR POLL OR ID LIST- XR2. 00350000
$BLIST EQU 2 REG EQU FOR PTR TO LIST IN XR2. 00360000
SPACE 00370000
* EQUATES FOR $RFT MACRO 00380000
$BRCNT EQU 3 COUNT OF NUMBER OF TRANSMISSIONS. 00390000
$BHX0F EQU X'0F' MASK TO CHECK FOR DECIMAL NUMBER. 00400000
SPACE 00410000
* GENERAL EQUATES. 00420000
$BDISA EQU X'80' ENABLE BSCA. 00430000
$BENAB EQU X'C0' DISABLE BSCA. 00440000
$BFOX EQU X'FF' EQUATE FOR 'FF'. 00450000
$BBAC1 EQU 1 USER REGISTER SAVE (REG 1). 00460000
$BPRS2 EQU 2 PARAMETER REGISTER SAVE (REG 2). 00470000
SPACE 3 00480000
* EQUATES FOR $CANB MACRO 00481000
$BLIN2 EQU X'08' LINE-2. 00482000
$BTREQ EQU X'16' TRUE AND EQUAL 00483000
$BDAON EQU X'10' D.A. SUPPORTED 00484000
$BTOSC EQU X'88' TWO SEC TIME OUT 00485000
$BTRNQ EQU X'11' TRUE AND NOT EQUAL 00486000
$BDTF EQU 2 DTF REG. 00487000
$BIOB EQU 1 IOB REG. 00488000
$BONE EQU 1 OFFSET FOR CONSTANT ONE
$BTRE EQU 3 OFFSET FOR CONSTANT THREE
SPACE 3 00489000
.* BYTE AND BIT DEFINITIONS OF THE FIELDS IN THE BSCA DTF. 00490000
.* ALSO GIVEN WILL BE DEFINITION OF COMPLETION CODES RETURNED BY 00500000
.* BSCA ROUTINES. 00510000
* OFFSETS FOR BSCA DTF. 00520000
$BDDEV EQU 0 DEVICE ID. 00530000
$BDUPS EQU 1 UPSI. 00540000
$BDATT EQU 2 ATTRIBUTE BYTE 1. 00550000
$BCINP EQU X'80' INPUT FILE. 00560000
$BCOUT EQU X'40' OUPUT FILE. 00570000
$BCCNV EQU X'C0' CONVERSATIONAL FILE. 00580000
$BCITB EQU X'20' ITB MODE. 00590000
$BCRAN EQU X'10' TRANSPARENCY. 00600000
$BCGET EQU X'08' GET FILE. 00610000
$BCASK EQU X'04' ON-ASCII; OFF-EBCDIC. 00620000
$BCASM EQU X'01' ASSEM DTF. 00630000
$BDATR EQU 3 ATTRIBUTE BYTE 2. 00640000
$BCMCN EQU X'88' MULTIPOINT CONTROL STATION. 00650000
$BCMPT EQU X'80' MULTIPOINT TRIBUTARY. 00660000
$BCMAN EQU X'20' MANUAL LINE. 00670000
$BCANS EQU X'10' ANSWER LINE. 00680000
$BCSWI EQU X'08' SWITCHED LINE. 00690000
$BCUSD EQU X'04' FILE USED. 00700000
$BCACT EQU X'02' FILE ACTIVE. 00710000
$BCOPN EQU X'01' FILE OPENED. 00720000
$BDCHN EQU 5 POST OPEN DTF CHAINING PTR. 00730000
$BDNXT EQU 7 DTF CHAINING POINTER. 00740000
$BDWK1 EQU 9 WORK AREA. 00750000
$BDWK2 EQU 11 WORK AREA. 00760000
$BDWKB EQU 13 ADDRESS OF USER'S LOGICAL BUFF. 00770000
$BDCMP EQU 14 COMPLETION CODE. 00780000
$BCREQ EQU X'00' REQUEST ACCEPTED. 00790000
$BCDNE EQU X'40' NORMAL COMPLETION. 00800000
$BCUER EQU X'41' USER ERROR. 00810000
$BCEOT EQU X'42' END OF FILE. 00820000
$BCBID EQU X'43' INVALID ID. 00830000
$BCNEG EQU X'44' NEGATIVE RESPONSE TO POLL/ADDR. 00840000
$BCNON EQU X'45' NO RESPONSE TO POLL/ADDR. 00850000
$BCCRP EQU X'46' CONV REPLY PENDING. 00860000
$BCNDT EQU X'47' NO DATA FOR CONV GET. 00870000
$BCOLT EQU X'48' INVALID RFT REQUEST. 00880000
$BCNAC EQU X'49' NO ACT ENTRY IN POLL LIST. 00890000
$BCIGN EQU X'4A' REQUEST IGNORED. 00900000
$BCASC EQU X'4B' INVALID ASCII CHARACTER. 00910000
$BCNCN EQU X'4C' NO-CONNECTION. 00920000
$BCCAL EQU X'4D' INVALID REQUEST. 00930000
$BCLST EQU X'4E' DELAY COUNT EXCEEDED. 00940000
$BCERR EQU X'4F' PERM ERROR. 00950000
$BCTIM EQU X'50' NO RESP FROM REMOTE DEV. 00960000
$BCDAT EQU X'51' DATA CHECK. 00970000
$BCLOS EQU X'52' LOST DATA. 00980000
$BCCON EQU X'53' LOST CONNECTION. 00990000
$BCRSP EQU X'54' INVALID RESP FROM REMOTE DEV. 01000000
$BCADP EQU X'55' ADAPTER CHECK. 01010000
$BCCMP EQU X'56' NO COMPLETIONS IN CHECK LIST. 01020000
$BCACD EQU X'57' NO ACTIVE DTFS IN CHECK LIST. 01030000
$BCRLE EQU X'58' MAXIMUM RECORD LENGTH EXCEEDED. 01040000
$BDOPC EQU 15 OPERATION CODE. 01050000
$BOGET EQU X'80' GET. 01060000
$BOGBK EQU X'81' GET-BLOCK. 01070000
$BOPUT EQU X'40' PUT. 01080000
$BOPEB EQU X'41' PUT END OF BLOCK. 01090000
$BOPEF EQU X'42' PUT END OF FILE. 01100000
$BOPEW EQU X'44' PUT EOT TO WACK RESPONSE. 01110000
$BDMRL EQU 17 MAXIMUM RECORD LENGTH. 01120000
$BDADD EQU 18 SPECIAL USE INDICATORS 01130000
$BCAA1 EQU X'01' ADD ON AREA ON DTF 001140000
$BCPOL EQU X'02' POLLING MODULES RESIDENT 01150000
$BCOFL EQU X'04' TRUNCATE RECORD INDICATOR. 01160000
$BCRCL EQU X'08' SPAN INDICATOR FOR RECORD LENGTH. 01170000
$BCTWO EQU X'10' END OF BLOCK INDICATOR. 01180000
$BCSWD EQU X'80' ID LIST FOR SWICHED LINE 01190000
$BDDCH EQU 20 *ADDRESS OF DIAL NUMBER OR 01200000
$BDPSC EQU 20 *POLL/ADDR CHARACTERS OR 01210000
$BDLST EQU 20 *ADDRESS OF POLL/ADDR LIST. 01220000
$BDDCC EQU 21 *LENGTH OF DIAL NUMBER OR 01230000
$BDIND EQU 21 *POLLING/OR ADDRESSING ID. 01240000
$BDRID EQU 23 *ADDR OF RCV ID OR ID LIST OR 01250000
$BDCNT EQU 23 *LIST COUNT. 01260000
$BDRLN EQU 24 LEN OF RCV ID OR ENTRY SELECTOR. 01270000
$BDLID EQU 24 LAST ID OR POLL/ADDR FUNCTION. 01280000
$BDSID EQU 26 ADDRESS OF SEND ID. 01290000
$BDSLN EQU 27 LENGTH OF SEND ID. 01300000
$BDDLY EQU 29 DELAY COUNT. 01310000
$BDREL EQU 31 RECORD LENGTH. 01320000
$BDBKL EQU 33 BLOCK LENGTH. 01330000
$BDIOB EQU 35 ADDRESS OF IOB IN PROCESS. 01340000
$BDBKX EQU 37 POINT TO DATA IN BSCA BUFFER. 01350000
$BDITB EQU 39 ITB CHARACTER COUNT. 01360000
$BDPRM EQU 42 RESERVED. 01370000
$BDRVI EQU 45 RVI MASK AND DISPLACEMENT. 01380000
$BDNDX EQU 46 INDEX FOR LINE INITIALIZATION. 01390000
$BDWKA EQU 48 ADDRESS OF BSCA WORK AREA. 01400000
$BDINT EQU 50 DISK ADDR OF LINE INIT MODULE. 01410000
$BDDED EQU 51 WORK AREA. 01420000
$BDAT1 EQU 52 ATTRIBUTE BYTE FOR TERMINALS. 01430000
$BCSEP EQU X'01' RECORD SEPARATOR. 01440000
$BCSPN EQU X'02' SPANNING RECORD. 01450000
$BCNOW EQU X'04' SPAN IN PROCESS. 01460000
$BCPUT EQU X'08' PUT SPAN FILE. 01470000
$BCRES EQU X'10' SPAN RESTORE NECESSARY. 01480000
$BCPLR EQU X'40' POLLING RESIDENT. 01490000
$BDSEP EQU 53 RECORD SEPARATOR. 01500000
$BDSBF EQU 55 SAVE AREA FOR USER BUFFER ADDR. 01510000
$BDSRL EQU 57 SAVE AREA FOR RECORD LENGTH. 01520000
$BDRFT EQU 59 SAVE AREA FOR OLT PARM. 01530000
$BDTSA EQU 61 ADDR OF TERM LOG AREA. 01540000
* ADD ON AREA OF DTF 01550000
$BDRL0 EQU 63 ADDR OF RESIDENT L0. 01560000
$BDRCL EQU 65 ADDR OF RESIDENT CLOSE. 01570000
$BDARA EQU 67 AUTO RESPONSE MODULE. 01580000
$BDERR EQU 68 RETRY COUNT. 01590000
$BDT1A EQU 70 SAVE ADDRESS OF OLT CS. 01600000
$BD375 EQU 73 3735 CCP EOT INDIC. 01610000
MEND 01620000