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