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