|
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: 12954 (0x329a)
Types: s3xseg
Names: »S$DTOM«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$DTOM«
MACRO 00010000
$DTOM &AT1-N,&AT2-N,&CMP-N,&OPC-N,&OSC-N,&SNS-N,&TFT-N 00020000
TEXT 00030000
*********************************************************************** 00040000
* * 00050000
* DTF OFFSET EQUATES FOR THE MLTA * 00060000
* * 00070000
*********************************************************************** 00080000
$MDDEV EQU 0 DEVICE ID - X'28' FOR MLTA LINES 00090000
$MDUP EQU $MDDEV+1 UPSI U1-U8 CUSTOMER CONTROLLED 00100000
* PROGRAM SWITCHES 00110000
$MDAT1 EQU $MDUP+1 FILE ATTRIBUTE BYTE 1 00120000
$MDAT2 EQU $MDAT1+1 FILE ATTRIBUTE BYTE 2 00130000
$MDCHA EQU $MDAT2+2 DTF CHAIN POINTER - POST OPEN 00140000
$MDCHB EQU $MDCHA+2 DTF CHAIN POINTER - ALL DTFS 00150000
$MDARR EQU $MDCHB+2 ADDRESS RECALL REG SAVE AREA 00160000
$MDXR1 EQU $MDARR+2 REGISTER 1 SAVE AREA 00170000
$MDBAA EQU $MDXR1+2 CUSTOMER I/O BUFFER ADDRESS 00180000
$MDCMP EQU $MDBAA+1 COMPLETION CODE 00190000
$MDUWA EQU $MDCMP+2 USER WORK AREA 00200000
$MDLNO EQU $MDUWA+2 LINE NUMBER 00210000
$MDCMA EQU $MDLNO+2 MLTA COMMON DATA AREA ADDRESS 00220000
$MDOPC EQU $MDCMA+1 OPERATION CODE 00230000
$MDOSC EQU $MDOPC+1 OPERATION START CODE 00240000
$MDTTP EQU $MDOSC+1 TERMINAL TYPE 00250000
$MDTFT EQU $MDTTP+1 TERMINAL FEATURE TYPES 00260000
$MDTFR EQU $MDTFT+1 TERMINAL FEATURE RESERVED AREA 00270000
$MDTCT EQU $MDTFR+1 TERMINAL CODE TYPES 00280000
$MDRLM EQU $MDTCT+1 ERROR RETRY LIMIT 00290000
$MDLNF EQU $MDRLM+2 POST OPEN RECEIVE LENGTH + FLAGS 00300000
$MDBSL EQU $MDLNF-0 PRE OPEN LENGTH OF INPUT BUFFER 00310000
$MDBAL EQU $MDLNF+2 LENGTH OF USER BUFFER AREA 00320000
$MDCRL EQU $MDBAL+2 CURRENT RECORD LENGTH 00330000
$MDCRA EQU $MDCRL+2 CURRENT DATA BUFFER ADDRESS 00340000
$MDPBA EQU $MDCRA+2 PCI BUFFER ADDRESS 00350000
$MDPBL EQU $MDPBA+2 PCI RECORD LENGTH 00360000
$MDOLC EQU $MDPBL-1 PROGRAM REQUEST OLT CONTROL BYTE 00370000
$MDOLR EQU $MDPBL-0 PROGRAM REQUEST OLT START BYTE 00380000
$MDLPA EQU $MDPBL+2 LAST PCI BUFFER ADDRESS 00390000
$MDDIA EQU $MDLPA+2 TRANSFER VESTOR ADDRESS 00400000
$MDDLA EQU $MDDIA+2 RESERVED 00410000
$MDEBA EQU $MDDLA+2 ERROR RECORDING BLOCK ADDRESS 00420000
$MDEBC EQU $MDEBA+1 NUMBER OF SDR TABLE ENTRIES 00430000
*** THE $MDMOD AND $MDSNS FIELD CONTAIN THE STATUS FOR 00440000
*** FIRST ERROR ON THE LINE DURING THE OPERATION 00450000
$MDMOD EQU $MDEBC+1 MODE OF TERMINAL WHEN ERROR 00460000
* BIT FUNCTION 00470000
* 0 RECEIVE PCI OVERRUN 00480000
* 1 UPPER OR LOWER CASE 00490000
* 2 TEXT IN 00500000
* 3 TEXT OUT 00510000
* 2-3 BOTH ZERO FOR CONTROL 00520000
* 4-7 RESERVED 00530000
$MDSNS EQU $MDMOD+2 SENSE BYTES 00540000
$MDSN6 EQU $MDSNS-1 HIGH DENSITY BUFFER 6 00550000
$MDSN7 EQU $MDSNS-0 HIGH DENSITY BUFFER 7 00560000
$MDEXP EQU $MDSNS+2 EXPANSION AREA 00570000
$MDWRK EQU $MDEXP+40 THE IOCS USES THIS AREA TO STORE 00580000
* LINE DEPENDENT INFORMATION 00590000
$MDOLT EQU $MDEXP+26 BIT PATTERN FOR START OF ON-LINE 00600000
* TEST REQUEST 00610000
$MDPE0 EQU $MDOLT+2 CONTENTS OF HDB 0 <<* AFTER 00620000
$MDPER EQU $MDPE0+2 CONTENTS OF HDB 6,7 * THE 00630000
$MDPE6 EQU $MDPER-1 CONTENTS OF HDB6 * LAST 00640000
$MDPE7 EQU $MDPER CONTENTS OF HDB7 <<* INTERRUPT 00650000
*******************EQUATES FOR POLLED TERMINALS *********************** 00660000
$MDRSP EQU $MDWRK-4 RESPONSE FROM ADDRESSING 2740 00670000
* MOD 2 WITHOUT CHECKING 00680000
$MDCTN EQU $MDWRK+1 CURRENT TERMINALS RELATIVE NO. 00690000
* IN THE POLL OR ADDRESS LIST 00700000
$MDPLA EQU $MDCTN+2 POLLING LIST ADDRESS 00710000
$MDTMA EQU $MDPLA+2 TERMINAL ADDRESS IN LINE CODE 00720000
* READ---ADDRESS OF THE TERMIAL 00730000
* WITH LAST RESPONSE 00740000
* WRITE--ADDRESS OF TERMINAL TO 00750000
* RECEIVE MESSAGE 00760000
$MDCEA EQU $MDTMA+2 POLL LIST CURRENT ENTRY ADDRESS 00770000
* 00780000
****************** EQUATES FOR ADAPTER DTF **************************** 00790000
$MDERA EQU $MDCMA+2 ERROR RECOVERY ROUTINE ADDRESS 00800000
$MDUSA EQU $MDERA+2 APPLICATION PORGRAM INTERRUPT 00810000
* LEVEL PCI ROUTINE ADDRESS 00820000
$MDDEA EQU $MDUSA+2 APPLICATION PROGRAM TERMINATING 00830000
* ERROR ROUTINE ADDRESS 00840000
$MDFIL EQU $MDDEA+6 DISK FILE NAME FOR THE MLTA 00850000
* MICRO CODE 00860000
AIF (&AT1 NE 'Y').AT2 00870000
* 00880000
* DTF FILE ATTRIBUTE BYTE 1 SWITCHES 00890000
$MAPCI EQU X'80' ALLOW PCI INTERRUPTS 00900000
* EQU X'40' RESERVED 00910000
* EQU X'20' RESERVED 00920000
$MATMI EQU X'10' ALLOW TERMINAL INTERRUPT DURING 00930000
* WRITE OPERATION. 00940000
* EQU X'08' RESERVED 00950000
$MAILT EQU X'04' INHIBIT LINE TIMEOUTS 00960000
$MATCF EQU X'02' TERMINAL CONTROL DEPENDENT FLAG 00970000
$MATCT EQU X'01' TERMINAL CONTROL TYPE 00980000
.AT2 AIF (&AT2 NE 'Y').CMP 00990000
* 01000000
* DTF FILE ATTRIBUTE BYTE 2 SWITCHES 01010000
$MAUSR EQU X'80' USER PCI INTERRUPT LEVEL 01020000
* PROCESSING REQUESTED 01030000
$MAFUL EQU X'40' PCI SWITCH TO INFORM APPLICATION 01040000
* PROGRAM OF FULL DATA BUFFER 01050000
$MAERP EQU X'20' USE IBM ERROR RECOVERY PROCEDURE 01060000
$MARET EQU X'10' RETRY OPERATION ISSUED BY ERP 01070000
* EQU X'08' USED BY IOCS 01080000
$MAOLT EQU X'04' ON LINE TEST ENABLED 01090000
$MABSY EQU X'02' LINE BUSY 01100000
$MAOPN EQU X'01' LINE OPENED 01110000
.CMP AIF (&CMP NE 'Y').OPC 01120000
* 01130000
* COMPLETION CODE EQUATES 01140000
$MCCP1 EQU X'40' NORMAL COMPLETION 01150000
$MCOF1 EQU X'41' OPERATION FAILED, LINE IS OPEN 01160000
$MCEOT EQU X'42' EOT RECEIVED ON SUCCESSFUL READ 01170000
$MCOF2 EQU X'43' OPERATION FAILED AND LOOP TEST 01180000
* FAILED, LINE IS CLOSED 01190000
$MCTNR EQU X'44' SUCCESFUL ABORT OR TRANSMIT 01200000
* BREAK. TERMINAL DID NOT ANSWER 01210000
* ADDRESS. END OF A NON-WRAP 01220000
* POLL LIST. 01230000
$MCOF3 EQU X'45' TRANSMISSION OR RECEPTION ABORT 01240000
* ERROR CONDITION BUT LOOP TEST 01250000
* RAN SUCCESSFULLY, LINE IS CLOSED 01260000
$MCITP EQU X'46' TERMINAL INTERRUPT ON A WRITE 01270000
$MCOF4 EQU X'47' TRANSMISSION OR RECEPTION ABORT 01280000
* ERROR CONDITION AND LOOP TEST 01290000
* FAILED, LINE IS CLOSED. 01300000
$MCCP2 EQU X'48' APPLICATION PROGRAM NOT ABLE TO 01310000
* PROCESS PCI FULL BUFFER BUT THE 01320000
* TRANSMISSION COMPLETED WITHOUT 01330000
* LOST DATA. 01340000
$MCSDR EQU X'49' CURRENT TERMINAL ADDRESS NOT IN 01350000
* SDR TABLE, LINE IS CLOSED. 01360000
$MCCP3 EQU X'4A' EOT RECEIVED AND THE APPLICATION 01370000
* PROGRAM WAS NOT ABLE TO PROCESS 01380000
* PCI FULL BUFFER SEGMENT BUT THE 01390000
* TRANSMISSION COMPLETED WITHOUT 01400000
* LOST DATA. 01410000
$MCOF5 EQU X'4B' APPLICATION PROGRAM NOT ABLE TO 01420000
* PROCESS PCI FULL BUFFER IN TIME 01430000
* AND A LOST DATA ERROR RESULTED. 01440000
$MCCP4 EQU X'4C' SUCCESSFUL COMPLETION OF A READ. 01450000
* ONLY ONE BUFFER SEGMENT RECEIVED 01460000
* ON ERP ISSUED READ. 01470000
* PREVIOUS BUFFER SEGMENTS SHOULD 01480000
* NOT BE USED. 01490000
$MCCP5 EQU X'4E' EOT RECEIVED ON SUCCESSFUL READ. 01500000
* ONLY ONE BUFFER SEGMENT RECEIVED 01510000
* ON ERP ISSUED READ. 01520000
* PREVIOUS BUFFER SEGMENTS SHOULD 01530000
* NOT BE USED. 01540000
$MCCSL EQU X'50' INQUIRY PENDING FROM 5471 01550000
$MCUER EQU X'51' OPERATION FAILED AND NO ERROR 01560000
* RECOVERY WAS REQUESTED 01570000
$MCOF6 EQU X'53' APPLICATION PROGRAM NOT ABLE TO 01580000
* PROCESS PCI FULL BUFFER BUT NO 01590000
* ERROR RECOVERY WAS REQUESTED 01600000
$MCRET EQU X'56' NO COMPLETED EVENT FOUND IN THE 01610000
* CHECK LIST. 01620000
$MCSKP EQU X'57' ALL ENTRYS IN CHECK LIST HAVE 01630000
* A COMBINATION OF THE FOLLOWING 01640000
* THE DFT IS NOT BUSY. 01650000
* THE DFT IS CLOSED. 01660000
* A SKIP BIT ON THE CHECK LIST 01670000
$MCPC1 EQU X'81' ERROR RECOVERY HAS ISSUED A READ 01680000
* OPERATION AND MESSAGE IS BEING 01690000
* RETRANSMITTED. 01700000
$MCPC2 EQU X'82' PCI FULL BUFFER SEGMENT IS 01710000
* READY FOR PROCESSING 01720000
.OPC AIF (&OPC NE 'Y').OSC 01730000
* 01740000
* OPERATION CODE EQUATES 01750000
$MCABT EQU X'00' ABORT CURRENT OPERATION 01760000
$MCBRK EQU X'01' TRANSMIT BREAK 01770000
$MCTTO EQU X'02' INTERVAL TIMEOUT 01780000
$MCTLT EQU X'03' PERFORM LOOP TEST 01790000
$MCTBO EQU X'04' PROGRAM ON LINE TEST REQUEST 01800000
$MWTDS EQU X'05' WRITE DISCONNECT 01810000
$MCTSN EQU X'06' TURN SKIP BIT ON IN POLL LIST 01820000
$MCTSF EQU X'07' TURN SKIP BIT OFF IN POLL LIST 01830000
$MWTA EQU X'08' WRITE POSITIVE ACKNOWLEDGEMENT 01840000
$MWTN EQU X'09' WRITE NEGATIVE ACKNOWLEDGEMENT 01850000
$MRTI EQU X'10' READ INITIAL 01860000
$MRTIR EQU X'11' READ INITIAL WITH RESET 01870000
$MRTT EQU X'12' READ CONTINUE 01880000
$MRTTR EQU X'13' READ CONTINUE WITH RESET 01890000
$MRTV EQU X'14' READ CONVERSATIONAL 01900000
$MRTVR EQU X'15' READ CONVERSATIONAL WITH RESET 01910000
$MRTP EQU X'16' READ REPEAT 01920000
$MRTPR EQU X'17' READ REPEAT WITH RESET 01930000
$MRTS EQU X'18' READ SKIP 01940000
$MRTR EQU X'1A' POLL REQUEST 01950000
$MRTRR EQU X'1B' POLL REQUEST WITH RESET 01960000
$MRTB EQU X'1C' READ FULL BUFFER 01970000
$MRTBR EQU X'1D' READ FULL BUFFER WITH RESET 01980000
$MWTI EQU X'20' WRITE INITIAL 01990000
$MWTIR EQU X'21' WRITE INITIAL WITH RESET 02000000
$MWTT EQU X'22' WRITE CONTINUE 02010000
$MWTTR EQU X'23' WRITE CONTINUE WITH RESET 02020000
$MWTV EQU X'24' WRITE CONVERSATIONAL 02030000
$MWTVR EQU X'25' WRITE CONVERSATIONAL WITH RESET 02040000
$MWTL EQU X'26' WRITE AT LINE ADDRESS 02050000
$MWTLR EQU X'27' WRITE AT LINE ADDRESS WITH RESET 02060000
$MWTS EQU X'28' WRITE ERASE 02070000
$MWRTR EQU X'29' WRITE ERASE WITH RESET 02080000
.OSC AIF (&OSC NE 'Y').TFT 02090000
* 02100000
* OPEN/CLOSE COMPLETION CODES 02110000
$MOCPL EQU X'00' OPEN COMPLETED OK 02120000
$MOOPL EQU X'84' OUTSIDE PARTITION LIMITS 02130000
$MOEXT EQU X'88' UPSI BYTE DOES NOT MATCH 02140000
* EXTERNAL SWITCH INDICATORS 02150000
$MOILN EQU X'8C' INVALID LINE NUMBER 02160000
$MORTS EQU X'90' RECEIVE WORK AREA TOO SMALL 02170000
$MOIEX EQU X'94' INVALID EXTRN TABLE FOR THE 02180000
* TERMINAL FEATURE SPECIFIED 02190000
$MOERP EQU X'98' THE APPLICATION SPECIFIED 02200000
* FULL BUFFER EXIT OR STANDARD 02210000
* ERP RECOVERY BUT THE ADDRESS IN 02220000
* THE ADAPTER DTF WAS X'FFFF' 02230000
$MOLAO EQU X'9C' LINE ALREADY OPEN 02240000
$MOBTS EQU X'A0' LOGICAL RECORD LENGTH L.T. 16 02250000
$MOENL EQU X'A4' COULD NOT ENABLE LINE 02260000
$MODSL EQU X'A8' COULD NOT DISABLE LINE 02270000
$MOAMO EQU X'AC' ADAPTER NOT OPEN AT LINE OPEN 02280000
* 02290000
* OPERATION START CODES 02300000
* EQU X'00' OPERATION STARTED OK 02310000
$MONOP EQU X'04' LINE DTF NOT OPEN 02320000
$MOBSY EQU X'08' LINE BUSY 02330000
$MOIOP EQU X'0C' INVALID OPERATION CODE 02340000
$MOUOP EQU X'10' UNSUPPORTED OPERATION CODE 02350000
$MOASO EQU X'14' ALL POLL SKIP SWITCHES ARE ON 02360000
$MOCTE EQU X'18' CURRENT TERMINAL NO. TOO LARGE 02370000
$MOABE EQU X'1C' CABT OR CBRK NOT ACCEPTED 02380000
$MOABN EQU X'20' CABT OR CBRK NOT DONE 02390000
$MOBDC EQU X'24' NON-MLTA DTF SPECIFIED IN 02400000
* DEVICE CODE 02410000
$MOZER EQU X'28' ZERO LENGTH SPECIFIED FOR WRITE 02420000
$MOSKP EQU X'2C' THE CTSF/CTSN OPERATION DID NOT 02430000
* FIND A MATCHING ENTRY 02440000
$MOBSE EQU X'2E' CTBO NOT STARTED BUFFER TO SMALL 02450000
* OR SWITCHED LINE NOT CONNECTED 02460000
$MOIIS EQU X'32' INVALID INSTRUCTION SEQUENCE 02470000
.TFT AIF (&TFT NE 'Y').SNS 02480000
* 02490000
* DTF TERMINAL FEATURES BYTE 1 02500000
$MTTRC EQU X'80' TRANSMIT CONTROL FEATURE 02510000
$MTINT EQU X'40' TRANSMIT INTERRUPT FEATURE 02520000
$MTLRC EQU X'20' LONGITUDINAL RECORD CHECKING 02530000
$MMDNT EQU X'10' SWITCHED LINE FEATURE 02540000
$MTBPS EQU X'08' LINE SPEED OF 600 BPS 02550000
$MTPLT EQU X'04' STATION CONTROL FEATURE 02560000
$MMAUP EQU X'01' MLTA HAS AUTOPOLL 02570000
* 02580000
* DTF TERMINAL FEATURES BYTE 2 02590000
$MTBFR EQU X'80' BUFFER RECEIVE 02600000
$MTRSP EQU X'40' TEST SECOND BYTE OF ADDRESSING 02610000
* RESPONSE FOR BUFFERED TERMINAL 02620000
.SNS AIF (&SNS NE 'Y').MEND 02630000
* 02640000
* DTF SENSE BYTE HDB0 02650000
$MMCTL EQU X'30' BIT PATTERN FOR ALL OF CONTROL 02660000
* FIELD BITS OFF IS CONTROL MODE 02670000
$MMIN EQU X'20' TEXT-IN MODE 02680000
$MMOUT EQU X'10' TEXT-OUT MODE 02690000
* 02700000
* DTF SENSE BYTE FOR HDB6 02710000
* 02720000
$MSOUT EQU X'80' TIMEOUT 02730000
$MSDCK EQU X'40' DATA CHECK 02740000
$MSTAB EQU X'20' TRANSMISSION ABORTED 02750000
$MSRAB EQU X'10' RECEPTION ABORTED 02760000
$MSOVR EQU X'08' OVERRUN 02770000
$MSINT EQU X'04' TERMINAL INTERRUPT 02780000
$MSNOP EQU X'02' INSTRUCTION NO-OP 02790000
$MSLDT EQU X'01' LOST DATA 02800000
* 02810000
* DTF SENSE BYTE FOR HDB7 02820000
* 02830000
$MSMNR EQU X'80' MODEM NOT READY 02840000
$MSLNR EQU X'10' LINE NOT READY 02850000
.MEND ANOP 02860000
* * 02870000
* END OF DTF EQUATES FOR THE MLTA * 02880000
* * 02890000
*********************************************************************** 02900000
MEND 02910000