ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w5mtca0.asm
MTCA0 - ISS FOR THE MTCA
2 | LIBR W5B00020
3 | ISS 14 MTCA0 3 W5B00030
4 | * W5B00040
5 | * W5B00050
6 | *************************************************** W5B00060
7 | *STATUS - VERSION 2, MODIFICATION 9 * W5B00070
8 | * * W5B00080
9 | *SUBROUTINE NAME * W5B00090
10 | * FULL NAME - BASE SECTION OF THE MULTIPLE * W5B00100
11 | * TERMINAL COMMUNICATIONS ADAPTER * W5B00110
12 | * (MTCA) IOCS PACKAGE * W5B00120
13 | * CODE NAME - MTCA0 * W5B00130
14 | * * W5B00140
15 | *PURPOSE - * W5B00150
16 | * MTCA0 IS THE INTERFACE FOR ASSEMBLER LANGUAGE * W5B00160
17 | * USERS OF THE MTCA IOCS PACKAGE * W5B00170
18 | * IN CONJUCTION WITH ITS TERMINAL SELECT * W5B00180
19 | * MODULES AND THE PARAMETER SUBROUTINE MTCAP, * W5B00190
20 | * MTCA0 PROVIDES THOSE FUNCTIONS NECESSARY FOR * W5B00200
21 | * CONTROL OF A COMMUNICATIONS NETWORK SUPPORTED * W5B00210
22 | * BY THE MTCA * W5B00220
23 | * * W5B00230
24 | *METHOD - * W5B00240
25 | * MTCA0 ANALYSES AND INITIATES THE FUNCTIONS * W5B00250
26 | * REQUESTED BY THE USER. SHOULD AN ERROR OCCUR * W5B00260
27 | * OR THE CALLING SEQUENCE BE INVALID, AN ERROR * W5B00270
28 | * PROCEDURE IS INITIATED. WHERE THE REQUESTED * W5B00280
29 | * FUNCTION IS DEPENDENT UPON THE PARTICULAR * W5B00290
30 | * TERMINAL TYPE, MTCA0 ENTERS THE TERMINAL SEL- * W5B00300
31 | * ECT MODULE FOR THAT LINE. * W5B00310
32 | * INFORMATION REQUIRED BY MTCA0 AND THE T.S. * W5B00320
33 | * MODULES IN ORDER TO KEEP A CORRECT CONTROL OF * W5B00330
34 | * EACH LINE IS STORED IN THE FORM OF LINE CON- * W5B00340
35 | * TROL BLOCKS. DURING INITIALIZATION MTCA0 SETS * W5B00350
36 | * UP THESE BLOCKS FROM INFORMATION CONTAINED IN * W5B00360
37 | * THE PARAMETER SUBROUTINE MTCAP. * W5B00370
38 | * MTCA HARDWARE RESPONSES (LEVEL 3) ARE HANDLED * W5B00380
39 | * BY MTCA0 AS FOLLOWS - * W5B00390
40 | * BIT 8 - MTCA ADAPTER BASE * W5B00400
41 | * DSW1 IS SENSED AND THE RELEVANT * W5B00410
42 | * TSM IS ENTERED FOR SERVICE * W5B00420
43 | * BIT 9 - MTCA INTERRUPT GENERATOR * W5B00430
44 | * THE TIMER WORD IN EACH LCB IS * W5B00440
45 | * EXAMINED FOR ANY REQUESTED TIMEOUT * W5B00450
46 | * CONDITION. WHERE NECESSARY THE * W5B00460
47 | * APPROPRIATE TIMEOUT SUBROUTINE IS * W5B00470
48 | * ENTERED TO CARRY OUT THE REQUESTED * W5B00480
49 | * FUNCTION * W5B00490
50 | * * W5B00500
51 | *CAPABILITIES AND LIMITATIONS - N/A * W5B00510
52 | * * W5B00520
53 | *ADDITIONAL INFORMATION- * W5B00530
54 | * ERROR PROCEDURES - * W5B00540
55 | * INVALID CALLING PARAMETERS CAUSE A WAIT AT * W5B00550
56 | * $PRET, AN INVALID DSW1 WILL CAUSE A WAIT * W5B00560
57 | * AT $PST3 * W5B00570
58 | * THE USER WILL BE NOTIFIED OF RECOVERABLE * W5B00580
59 | * ERRORS BY MEANS OF A BSI INTO HIS ERROR * W5B00590
60 | * SUBROUTINE. IN CERTAIN CASES, SUBSEQUENT * W5B00600
61 | * ACTION WILL DEPEND UPON THE STATE OF THE * W5B00610
62 | * ACCUMULATOR ON RETURN FROM THE USER * W5B00620
63 | * CALLING SEQUENCE - * W5B00630
64 | * LIBF MTCA0 * W5B00640
65 | * DC CTRL CONTROL PARAMETER * W5B00650
66 | * DC AREA USERS I/O AREA * W5B00660
67 | * DC ERROR USERS ERROR SUBROUTINE * W5B00670
68 | * WHERE CTRL IS OF THE FORM /X0YY AND * W5B00680
69 | * DETAILS THE REQUESTED FUNCTION - * W5B00690
70 | * X IS THE FUNCTION DIGIT * W5B00700
71 | * 0 - TEST * W5B00710
72 | * 1 - READ (RCV) * W5B00720
73 | * 2 - WRITE (TMT) * W5B00730
74 | * 3 - CONNECT LINE * W5B00740
75 | * 4 - DISCONNECT LINE * W5B00750
76 | * 5 - PASS/RESET LINE STATISTICS * W5B00760
77 | * 6 - DIAGNOSE TERMINAL ADAPTER * W5B00770
78 | * 7 - INITIALIZE * W5B00780
79 | * 8 - HALT (DISABLE MTCA) * W5B00790
80 | * YY IS THE LINE NUMBER (IN HEX) * W5B00800
81 | * * W5B00810
82 | *************************************************** W5B00820
83 | * W5B00830
84 | * W5B00840
85 | *************************************************** W5B00850
86 | * * W5B00860
87 | * USE OF 'TIMER' BY MTCA0 * W5B00870
88 | * * W5B00880
89 | *************************************************** W5B00890
90 | * * W5B00900
91 | * 'X00Y' * W5B00910
92 | * WHERE - * W5B00920
93 | * X IS THE FUNCTION DIGIT, * W5B00930
94 | * 1 RCV DATA TIMEOUT * W5B00940
95 | * 2 TMT DATA TIMEOUT * W5B00950
96 | * 3 CONNECT ADAPTER TIMEOUT * W5B00960
97 | * 4 DISCONNECT ADAPTER TIMEOUT * W5B00970
98 | * 5 REQUEST WRAP AND TEST ADAPTER * W5B00980
99 | * 6 WRAP ADAPTER TIMEOUT * W5B00990
100 | * 7 WRAP DATA TIMEOUT * W5B01000
101 | * 8 RECONNECT ADAPTER TIMEOUT * W5B01010
102 | * 9 REPORT PRE-TMT ERROR * W5B01020
103 | * Y IS THE COUNT IN TIMER UNITS * W5B01030
104 | * * W5B01040
105 | *************************************************** W5B01050
106 | * W5B01060
107 | * W5B01070
108 | *************************************************** W5B01080
109 | * * W5B01090
110 | * EQUIVALENCES FOR LCB PARAMETERS * W5B01100
111 | * * W5B01110
112 | *************************************************** W5B01120
113 | * W5B01130
0000 114 | LNBSY EQU 0 LINE BUSY FLAG W5B01140
0001 115 | TSMAD EQU 1 TERM SEL MOD ADDRESS W5B01150
0002 116 | IPPTR EQU 2 INPUT DATA POINTER W5B01160
0003 117 | IPCNT EQU 3 INPUT DATA COUNT W5B01170
0004 118 | OPPTR EQU 4 OUTPUT DATA POINTER W5B01180
0005 119 | OPCNT EQU 5 OUTPUT DATA COUNT W5B01190
0006 120 | ERROR EQU 6 ERROR ROUTINE ADDRESS W5B01200
0007 121 | CNTRL EQU 7 LINE CONTROL FLAGS W5B01210
0008 122 | DIAGN EQU 8 DIAGNOSTIC CONTROL W5B01220
0009 123 | TIMER EQU 9 TIMER CONTROL W5B01230
000A 124 | RXPTR EQU 10 RCV DATA LOCATION W5B01240
000B 125 | TXPTR EQU 11 TMT DATA LOCATION W5B01250
000C 126 | STATC EQU 12 STATISTICS DATA COUNT W5B01260
127 | * * W5B01270
128 | * EQUIVALENCE FOR ERROR TRAP ENTRIES * W5B01280
129 | * * W5B01290
0028 130 | $PRET EQU /28 PREOPERATIVE ERR TRAP W5B01300
0089 131 | $PST3 EQU /89 INT LEVEL 3 ERR TRAP W5B01310
132 | * W5B01320
133 | * W5B01330
134 | *************************************************** W5B01340
135 | * * W5B01350
136 | * ENTRY POINTS * W5B01360
137 | * * W5B01370
138 | *************************************************** W5B01380
139 | * * W5B01390
140 | * CALL HANDLER ENTRY * W5B01400
141 | * * W5B01410
0000 697A 142 | MTCA0 STX 1 MT240+1 STORE INDEX REG 1 W5B01420
0001 6580 0000 143 | LDX I1 *-* LOAD ADDR OF PARAM LIST W5B01430
0003 7006 144 | B MT010 BR TO CALL HANDLER W5B01440
145 | * * W5B01450
146 | * END OF OPERATION INTERRUPT ENTRY * W5B01460
147 | * * W5B01470
0004 0000 148 | MT004 DC *-* W5B01480
0005 4C00 0123R 149 | B L MT500 GO SERVICE INTERRUPT W5B01490
150 | * * W5B01500
151 | * TIMER INTERRUPT ENTRY * W5B01510
152 | * * W5B01520
0007 0000 153 | MT007 DC *-* W5B01530
0008 4C00 0149R 154 | B L MT600 GO SERVICE INTERRRUPT W5B01540
155 | * W5B01550
156 | * W5B01560
157 | *************************************************** W5B01570
158 | * * W5B01580
159 | * CALL HANDLER * W5B01590
160 | * * W5B01600
161 | *************************************************** W5B01610
162 | * W5B01620
000A 6976 163 | MT010 STX 1 MT270+1 SAVE RETURN ADDRESS W5B01630
000B 6A71 164 | STX 2 MT250+1 STORE INDEX REG 2 W5B01640
000C D875 165 | STD MT900 STORE ACC & EXT W5B01650
000D 2870 166 | STS MT260 STORE STATUS W5B01660
000E C100 167 | LD 1 0 LOAD CONTROL WORD W5B01670
000F 4C28 003CR 168 | BN MT060 BR TO TEST FOR HALT W5B01680
169 | * W5B01690
0011 F074 170 | EOR MT904 TEST FOR INITIALIZE W5B01700
0012 4C18 00D5R 171 | BZ MT400 BR IF INITIALIZE W5B01710
172 | * W5B01720
0014 C075 173 | LD MT908 TEST INITIALIZE SWITCH W5B01730
0015 4C18 0042R 174 | BZ MT070 BR IF NOT INITIALIZED W5B01740
175 | * W5B01750
0017 6680 013ER 176 | LDX I2 MT940 LOAD ADDR OF MTCAP W5B01760
0019 C100 177 | LD 1 0 LOAD CONTROL WORD W5B01770
001A E06D 178 | AND MT906 GET LINE NO. W5B01780
001B 4C18 0049R 179 | BZ MT090 BR IF INVALID LINE NO. W5B01790
180 | * W5B01800
001D 9200 181 | S 2 0 SUB HIGHEST LINE NO. W5B01810
001E 4C30 0049R 182 | BP MT090 BR IF INVALID LINE NO. W5B01820
183 | * W5B01830
0020 8200 184 | A 2 0 RESTORE LINE NUMBER W5B01840
0021 6A03 185 | STX 2 MT020+1 CALCULATE LCB ADDRESS W5B01850
0022 8002 186 | A MT020+1 *FOR THIS LINE W5B01860
0023 D001 187 | STO MT020+1 W5B01870
0024 6680 0000 188 | MT020 LDX I2 *-* PUT INTO XR2 W5B01880
0026 7200 189 | MDX 2 0 CHECK FOR NON ZERO W5B01890
0027 4808 190 | SKP + VALID - THEREFORE SKIP W5B01900
0028 7020 191 | B MT090 BR FOR INVALID LINE W5B01910
192 | * W5B01920
0029 C100 193 | LD 1 0 LOAD CONTROL WORD W5B01930
002A E05B 194 | AND MT904 EXAMINE COMMAND W5B01940
002B 4C18 004FR 195 | BZ MT110 BR IF TEST COMMAND W5B01950
196 | * W5B01960
197 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B01970
198 | * CHECK STATE OF LINE * W5B01980
199 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B01990
200 | * W5B02000
002D C200 201 | MT030 LD 2 LNBSY TEST BUSY FLAG W5B02010
002E 4C20 002DR 202 | BNZ MT030 BR IF LINE IS BUSY W5B02020
203 | * W5B02030
0030 E864 204 | OR MT914 SET LINE ABOUT TO W5B02040
0031 D200 205 | STO 2 LNBSY *BE BUSY FLAG W5B02050
0032 C208 206 | MT040 LD 2 DIAGN TEST FOR DIAGNOSTIC W5B02060
0033 4C20 0032R 207 | BNZ MT040 LOOP IF YES W5B02070
208 | * W5B02080
0035 C100 209 | LD 1 0 LOAD CONTROL WORD W5B02090
0036 180C 210 | SRA 12 W5B02100
0037 8056 211 | A MT912 SET UP COMMAND ADDRESS W5B02110
0038 D002 212 | STO MT050+1 W5B02120
0039 C102 213 | LD 1 2 GET THIRD PARAMETER W5B02130
003A 4C80 0000 214 | MT050 B I *-* BR TO EXECUTE COMMAND W5B02140
215 | * W5B02150
216 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B02160
217 | * TEST FOR STOP CYCLE STEAL * W5B02170
218 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B02180
219 | * W5B02190
003C 1001 220 | MT060 SLA 1 TEST FOR HALT COMMAND W5B02200
003D 4C20 0045R 221 | BNZ MT080 BR IF INVALID COMMAND W5B02210
222 | * W5B02220
003F D04A 223 | STO MT908 CLEAR INITIALIZE FLAG W5B02230
0040 0845 224 | XIO MT904 STOP CYCLE STEAL W5B02240
0041 7010 225 | B MT120 GO SET RETURN ADDRESS W5B02250
226 | * W5B02260
227 | * W5B02270
228 | *************************************************** W5B02280
229 | * * W5B02290
230 | * ERROR REPORTING * W5B02300
231 | * * W5B02310
232 | *************************************************** W5B02320
233 | * * W5B02330
234 | * NOT INITIALIZED ERROR * W5B02340
235 | * * W5B02350
0042 1090 236 | MT070 SLT 16 ZEROISE EXTENSION W5B02360
0043 C051 237 | LD MT914 SET FLAG IN ACCUMULATOR W5B02370
0044 7007 238 | B MT100 GO TO ERROR TRAP W5B02380
239 | * * W5B02390
240 | * INVALID COMMAND ERROR * W5B02400
241 | * * W5B02410
0045 C100 242 | MT080 LD 1 0 LOAD CONTROL WORD W5B02420
0046 18D0 243 | XCH STORE IN EXT W5B02430
0047 C04E 244 | LD MT915 SET FLAG IN ACC W5B02440
0048 7003 245 | B MT100 GO TO ERROR TRAP W5B02450
246 | * * W5B02460
247 | * INVALID LINE ERROR * W5B02470
248 | * * W5B02480
0049 C100 249 | MT090 LD 1 0 LOAD CONTROL WORD W5B02490
004A 18D0 250 | XCH STORE IN EXT W5B02500
004B C04B 251 | LD MT916 SET FLAG IN ACC W5B02510
004C 4400 0028 252 | MT100 BSI L $PRET BR TO ERROR TRAP W5B02520
004E 70FD 253 | B MT100 LOOP IN TRAP W5B02530
254 | * W5B02540
255 | * W5B02550
256 | *************************************************** W5B02560
257 | * * W5B02570
258 | * TEST COMMAND * W5B02580
259 | * * W5B02590
260 | *************************************************** W5B02600
261 | * W5B02610
004F C200 262 | MT110 LD 2 LNBSY LOAD BUSY FLAG W5B02620
0050 4818 263 | BSC +- BR IF BUSY W5B02630
0051 7101 264 | MDX 1 1 SELECT RETURN ADDRESS W5B02640
0052 7101 265 | MT120 MDX 1 1 *ACCORDING TO FLAG W5B02650
0053 692D 266 | STX 1 MT270+1 SET RETURN ADDR W5B02660
0054 7025 267 | B MT240 BR TO RESTORE W5B02670
268 | * W5B02680
269 | * W5B02690
270 | *************************************************** W5B02700
271 | * * W5B02710
272 | * READ COMMAND * W5B02720
273 | * * W5B02730
274 | *************************************************** W5B02740
275 | * W5B02750
0055 D206 276 | MT200 STO 2 ERROR SET ERROR ADDR W5B02760
0056 C043 277 | LD MT919 W5B02770
0057 D209 278 | STO 2 TIMER SET TIME OUT FOR LINE W5B02780
0058 C101 279 | LD 1 1 GET BUFFER ADDRESS W5B02790
0059 D202 280 | STO 2 IPPTR STORE IN LCB W5B02800
005A C03D 281 | LD MT917 SET LINE BUSY W5B02810
005B D200 282 | STO 2 LNBSY W5B02820
005C C580 0001 283 | LD I1 1 LOAD COUNT W5B02830
005E D203 284 | STO 2 IPCNT STORE IN LCB W5B02840
005F 7103 285 | MDX 1 3 W5B02850
0060 70F2 286 | B MT120+1 RETURN TO CALLER W5B02860
287 | * W5B02870
288 | * W5B02880
289 | *************************************************** W5B02890
290 | * * W5B02900
291 | * WRITE COMMAND * W5B02910
292 | * * W5B02920
293 | *************************************************** W5B02930
294 | * W5B02940
0061 D206 295 | MT210 STO 2 ERROR SET ERROR ADDR W5B02950
0062 C580 0001 296 | LD I1 1 LOAD COUNT W5B02960
0064 D205 297 | STO 2 OPCNT STORE IN LCB W5B02970
0065 C101 298 | LD 1 1 LOAD COUNT ADDRESS W5B02980
0066 D204 299 | STO 2 OPPTR STORE IN LCB W5B02990
0067 7103 300 | MDX 1 3 W5B03000
0068 6918 301 | STX 1 MT270+1 SET RETURN ADDRESS W5B03010
0069 C201 302 | LD 2 TSMAD SET ENTRY W5B03020
006A 802E 303 | A MT918 *INTO TERMINAL W5B03030
006B D00A 304 | STO MT220+1 *SELECT MODULE W5B03040
305 | * W5B03050
306 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B03060
307 | * SET UP DISABLE TMT TIMEOUT * W5B03070
308 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B03080
309 | * W5B03090
006C C02C 310 | LD MT918 SET A CONSTANT W5B03100
006D 148C*3054 311 | CALL MTCAM *OF VALUE TWO W5B03110
006D 312 | ORG *-2 *INTO THE TRANSFER W5B03120
006D D400 313 | DC /D400 *VECTOR OF W5B03130
006F 314 | ORG *+1 *MTCAM ENTRY POINT W5B03140
006F 0818 315 | XIO MT906 ENABLE TMT W5B03150
316 | * W5B03160
0070 C01C 317 | LD MT911 SET UP SENSE W5B03170
0071 D012 318 | STO MT902 *DSW2 COMMAND W5B03180
0072 402D 319 | BSI MT300 GO ISSUE XIO W5B03190
320 | * W5B03200
0073 F02B 321 | EOR MT924 CHECK VALID FOR TMT W5B03210
0074 1801 322 | SRA 1 REMOVE OVERRUN BIT W5B03220
0075 4400 0000 323 | MT220 BSI L *-* BR TO TERMINAL SELECT W5B03230
324 | * W5B03240
325 | * W5B03250
326 | *************************************************** W5B03260
327 | * * W5B03270
328 | * RETURN TO CALLING ROUTINE * W5B03280
329 | * * W5B03290
330 | *************************************************** W5B03300
331 | * W5B03310
0077 C200 332 | MT230 LD 2 LNBSY SET OFF CALLING W5B03320
0078 E01F 333 | AND MT917 *BITS IN W5B03330
0079 D200 334 | STO 2 LNBSY *LINE BUSY FLAG W5B03340
007A 6500 0000 335 | MT240 LDX L1 *-* RESTORE REG 1 W5B03350
007C 6600 0000 336 | MT250 LDX L2 *-* RESTORE REG 2 W5B03360
007E 2000 337 | MT260 LDS 0 RESTORE STATUS W5B03370
007F C802 338 | LDD MT900 RESTORE ACC & EXT W5B03380
0080 4C00 0000 339 | MT270 B L *-* RETURN TO CALLER W5B03390
340 | * W5B03400
341 | * W5B03410
342 | *************************************************** W5B03420
343 | * * W5B03430
344 | * CONSTANTS * W5B03440
345 | * * W5B03450
346 | *************************************************** W5B03460
347 | * W5B03470
0082 348 | MT900 BSS E 2 SAVE ACC AND EXT E W5B03480
0084 0000 349 | MT902 DC *-* UTILITY E W5B03490
0085 0000 350 | DC *-* *IOCC W5B03500
0086 7000 351 | MT904 DC /7000 INITIALISE COMMAND E W5B03510
0087 FC9C 352 | DC /FC9C HALT CYCLE STEAL W5B03520
0088 00FF 353 | MT906 DC /00FF LINE NUMB MASK E W5B03530
0089 FC0A 354 | DC /FC0A ENABLE TMT IOCC W5B03540
008A 0000 355 | MT908 DC 0 NOT INITIALIZED SWITCH W5B03550
008B FC02 356 | MT909 DC /FC02 DISCONNECT IOCC W5B03560
008C FC04 357 | MT910 DC /FC04 CONNECT IOCC W5B03570
008D FF00 358 | MT911 DC /FF00 SENSE DSW2 IOCC W5B03580
359 | * * W5B03590
360 | * SERVICE COMMAND BRANCH TABLE * W5B03600
361 | * * W5B03610
008E 008ER 362 | MT912 DC MT913-1 W5B03620
008F 0055R 363 | MT913 DC MT200 READ ENTRY W5B03630
0090 0061R 364 | DC MT210 WRITE ENTRY W5B03640
0091 00A9R 365 | DC MT310 CONNECT ENTRY W5B03650
0092 00B3R 366 | DC MT340 DISCONNECT ENTRY W5B03660
0093 00B7R 367 | DC MT350 PASS STATISTICS W5B03670
0094 00CFR 368 | DC MT390 DIAGNOSE ENTRY W5B03680
369 | * W5B03690
0095 E001 370 | MT914 DC /E001 NOT INITIALISED CODE W5B03700
0096 E002 371 | MT915 DC /E002 INVALID COMMAND CODE W5B03710
0097 E003 372 | MT916 DC /E003 INVALID LINE NO. CODE W5B03720
0098 0001 373 | MT917 DC 1 CONSTANT - ONE W5B03730
0099 0002 374 | MT918 DC 2 CONSTANT - TWO W5B03740
009A 100F 375 | MT919 DC /100F READ TIME OUT W5B03750
009B 3002 376 | MT920 DC /3002 CONNECT TIME OUT W5B03760
009C 4002 377 | MT921 DC /4002 DISCONNECT TIME OUT W5B03770
009D 5002 378 | MT922 DC /5002 DIAGNOSE TIMEOUT W5B03780
009E 000F 379 | MT923 DC /000F MASK LAST DIGIT W5B03790
009F 0C00 380 | MT924 DC /0C00 CONNCTD & LNK ACTVE W5B03800
381 | * W5B03810
382 | * W5B03820
383 | *************************************************** W5B03830
384 | * * W5B03840
385 | * XIO SUBROUTINE - OUT OF INTERRUPT * W5B03850
386 | * * W5B03860
387 | *************************************************** W5B03870
388 | * W5B03880
00A0 0000 389 | MT300 DC *-* ENTRY W5B03890
00A1 C20B 390 | LD 2 TXPTR CALCULATE W5B03900
00A2 100C 391 | SLA 12 *LINE W5B03910
00A3 1808 392 | SRA 8 *NUMBER W5B03920
00A4 F0DF 393 | EOR MT902 BUILD UP IOCC W5B03930
00A5 D0DF 394 | STO MT902+1 W5B03940
00A6 08DD 395 | XIO MT902 ISSUE XIO W5B03950
00A7 4C80 00A0R 396 | B I MT300 RETURN TO USER W5B03960
397 | * W5B03970
398 | * W5B03980
399 | *************************************************** W5B03990
400 | * * W5B04000
401 | * CONNECT COMMAND * W5B04010
402 | * * W5B04020
403 | *************************************************** W5B04030
404 | * W5B04040
00A9 C0E2 405 | MT310 LD MT910 SET UP W5B04050
00AA D0D9 406 | STO MT902 *CONNECT IOCC W5B04060
00AB C0EF 407 | LD MT920 W5B04070
00AC D209 408 | MT320 STO 2 TIMER SET TIME OUT FOR LINE W5B04080
409 | * W5B04090
410 | * W5B04100
411 | *************************************************** W5B04110
412 | * * W5B04120
413 | * SBRTN FOR CONNECT/DISCONNECT * W5B04130
414 | * * W5B04140
415 | *************************************************** W5B04150
416 | * W5B04160
00AD C101 417 | LD 1 1 LOAD ERROR ADDRESS W5B04170
00AE D206 418 | STO 2 ERROR STORE IN LCB W5B04180
00AF 40F0 419 | BSI MT300 GO ISSUE XIO W5B04190
00B0 7102 420 | MDX 1 2 W5B04200
00B1 69CF 421 | MT330 STX 1 MT270+1 SET RETURN ADDRESS W5B04210
00B2 70C4 422 | B MT230 RETURN TO CALLER W5B04220
423 | * W5B04230
424 | * W5B04240
425 | *************************************************** W5B04250
426 | * * W5B04260
427 | * DISCONNECT COMMAND * W5B04270
428 | * * W5B04280
429 | *************************************************** W5B04290
430 | * W5B04300
00B3 C0D7 431 | MT340 LD MT909 SET UP W5B04310
00B4 D0CF 432 | STO MT902 *DISCONNECT IOCC W5B04320
00B5 C0E6 433 | LD MT921 GET TIME OUT FOR LINE W5B04330
00B6 70F5 434 | B MT320 GO ISSUE XIO W5B04340
435 | * W5B04350
436 | * W5B04360
437 | *************************************************** W5B04370
438 | * * W5B04380
439 | * PASS AND RESET LINE STATISTICS * W5B04390
440 | * * W5B04400
441 | *************************************************** W5B04410
442 | * W5B04420
00B7 C101 443 | MT350 LD 1 1 STORE THE STATISTICS W5B04430
00B8 D00D 444 | STO MT370+1 *AREA ADDRESS W5B04440
00B9 7102 445 | MDX 1 2 INCR POINTER W5B04450
00BA 69C6 446 | STX 1 MT270+1 SET RETURN ADDRESS W5B04460
00BB 1010 447 | SLA 16 SET OFF W5B04470
00BC D200 448 | STO 2 LNBSY *LINE FLAG W5B04480
00BD C20C 449 | LD 2 STATC LOAD NO. OF STATISTICS W5B04490
00BE E0DF 450 | AND MT923 ISOLATE LAST DIGIT W5B04500
00BF 4C18 007AR 451 | BZ MT240 EXIT IF ZERO W5B04510
452 | * W5B04520
00C1 D001 453 | STO *+1 W5B04530
00C2 6500 0000 454 | LDX L1 *-* PUT INTO XR1 W5B04540
00C4 C20D 455 | MT360 LD 2 STATC+1 LOAD STATISTIC W5B04550
00C5 D400 0000 456 | MT370 STO L *-* STORE W5B04560
00C7 1010 457 | SLA 16 W5B04570
00C8 D20D 458 | STO 2 STATC+1 SET STATISTIC ZERO W5B04580
00C9 7201 459 | MDX 2 1 W5B04590
00CA 7401 00C6R 460 | MDM MT370+1,1 INCR O/P POINTER W5B04600
00CC 71FF 461 | MDX 1 -1 SKIP AFTER LAST STAT. W5B04610
00CD 70F6 462 | B MT360 BR FOR NEXT STATISTIC W5B04620
00CE 70AB 463 | MT380 B MT240 BR TO RESTORE W5B04630
464 | * W5B04640
465 | * W5B04650
466 | *************************************************** W5B04660
467 | * * W5B04670
468 | * DIAGNOSE COMMAND * W5B04680
469 | * * W5B04690
470 | *************************************************** W5B04700
471 | * W5B04710
00CF C101 472 | MT390 LD 1 1 LOAD ERROR ADDRESS W5B04720
00D0 D206 473 | STO 2 ERROR STORE IN LCB W5B04730
00D1 C0CB 474 | LD MT922 SET UP INITIATE W5B04740
00D2 D209 475 | STO 2 TIMER *DIAGNOSE TIMEOUT W5B04750
00D3 7102 476 | MDX 1 2 SET RETURN ADDRESS W5B04760
00D4 70DC 477 | B MT330 BR TO RESTORE W5B04770
MTCA0 - INITIALIZATION SUBROUTINE
479 | *************************************************** W5B04790
480 | * * W5B04800
481 | * INITIALIZATION SUBROUTINE * W5B04810
482 | * * W5B04820
483 | *************************************************** W5B04830
484 | * * W5B04840
485 | * ON FIRST EXECUTION - * W5B04850
486 | * * MTCA MODULES LINKED * W5B04860
487 | * * LINE CONTROL BLOCKS SET UP * W5B04870
488 | * * CYCLE STEAL BLOCK CALCULATED * W5B04880
489 | * * C/S LOCATIONS SET TO HEX 8000 * W5B04890
490 | * * C/S IS ENABLED * W5B04900
491 | * ON SUBSEQUENT EXECUTIONS * W5B04910
492 | * * C/S LOCATIONS SET TO HEX 8000 * W5B04920
493 | * * C/S IS ENABLED * W5B04930
494 | * * W5B04940
495 | * NOTE. THE C/S BLOCK OVERLAYS PART OF THIS * W5B04950
496 | * SUBROUTINE * W5B04960
497 | * * W5B04970
498 | *************************************************** W5B04980
499 | * W5B04990
00D5 7401 0081R 500 | MT400 MDM L MT270+1,1 SET RETURN ADDRESS W5B05000
00D7 68B2 501 | STX MT908 SET INITIALIZE FLAG W5B05010
00D8 7400 0140R 502 | MDM L MT942,0 BEEN HERE BEFORE W5B05020
00DA 703F 503 | B MT460 *YES - RESTART ONLY W5B05030
504 | * *NO - PERFORM LINKAGES W5B05040
00DB C480 013FR 505 | MT410 LD I MT940+1 PICK UP ADDRESS OF W5B05050
00DD D060 506 | STO MT940 *USERS PARAMETER LIST W5B05060
00DE D06D 507 | STO MT610+1 *SAVE FOR TIMER USE W5B05070
508 | * W5B05080
509 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05090
510 | * CALCULATE ADDRESS FOR CYCLE STEAL BLOCK * W5B05100
511 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05110
512 | * W5B05120
00DF C035 513 | LD MT930 CALCULATE THE CYCLE W5B05130
00E0 1805 514 | SRA 5 *STEAL BLOCK W5B05140
00E1 8064 515 | A MT948 *STARTING ADDRESS W5B05150
00E2 1005 516 | SLA 5 *ON FIRST AVAILABLE W5B05160
00E3 D05C 517 | STO MT942 *20 HEX BOUNDARY W5B05170
00E4 9061 518 | S MT948 SUBTRACT ONE AND W5B05180
00E5 D038 519 | STO MT470+1 *SAVE FOR LATER USE W5B05190
520 | * W5B05200
00E6 6580 013ER 521 | LDX I1 MT940 SET XR1 AS POINTER TO W5B05210
522 | * *USER'S PARAM SBRTN W5B05220
00E8 C100 523 | LD 1 0 PICK UP HIGHEST LINE W5B05230
00E9 D007 524 | STO MT420+1 *NUMBER AND SAVE W5B05240
00EA D057 525 | STO MT944 W5B05250
00EB 4C08 0110R 526 | BNP MT450 BR IF INVALID W5B05260
527 | * W5B05270
00ED 9028 528 | S MT931 CHECK NOT GREATER THAN W5B05280
00EE 4C30 0110R 529 | BP MT450 *SIXTEEN - ELSE ERROR W5B05290
530 | * W5B05300
00F0 C500 0000 531 | MT420 LD L1 *-* GET LCB ADDRESS W5B05310
00F2 4C18 010CR 532 | BZ MT440 *EXIT IF ZERO W5B05320
533 | * W5B05330
00F4 D008 534 | STO MT430+1 STORE LCB ADDRESS W5B05340
00F5 8050 535 | A MT948 ADD ONE W5B05350
00F6 D001 536 | STO *+1 SET IN NEXT INSTRUCTION W5B05360
00F7 C400 0000 537 | LD L *-* GET CALL TRANSFER W5B05370
00F9 D045 538 | STO MT940+1 *VECTOR AND SAVE W5B05380
539 | * W5B05390
540 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05400
541 | * SET UP LINE CONTROL BLOCKS * W5B05410
542 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05420
543 | * W5B05430
00FA 6209 544 | LDX 2 9 SET UP INDEX W5B05440
00FB 1010 545 | SLA 16 CLEAR W5B05450
00FC D600 0000 546 | MT430 STO L2 *-* *ALL LINE W5B05460
00FE 72FF 547 | MDX 2 -1 *CONTROL WORDS W5B05470
00FF 70FC 548 | B MT430 GO CLEAR NEXT WORD W5B05480
549 | * W5B05490
0100 6680 00FDR 550 | LDX I2 MT430+1 LCB ADDRESS IN XR2 W5B05500
0102 D200 551 | STO 2 LNBSY CLEAR BUSY FLAG W5B05510
0103 C480 013FR 552 | LD I MT940+1 SET ADDRESS OF TERM SEL W5B05520
0105 D201 553 | STO 2 TSMAD *MODULE IN THE LCB W5B05530
0106 C0EA 554 | LD MT420+1 GET HIGHEST LINE NO. W5B05540
0107 903E 555 | S MT948 SET UP THE W5B05550
0108 8037 556 | A MT942 *RECEIVE AND W5B05560
0109 D20A 557 | STO 2 RXPTR *TRANSMIT CYCLE W5B05570
010A 800B 558 | A MT931 *STEAL LOCATIONS W5B05580
010B D20B 559 | STO 2 TXPTR *IN THE LCB W5B05590
560 | * W5B05600
010C 74FF 00F1R 561 | MT440 MDM L MT420+1,-1 DECREMENT DISPLACEMENT W5B05610
010E 70E1 562 | B MT420 *RETURN FOR NEXT LCB W5B05620
563 | * W5B05630
010F 700A 564 | B MT460 GO ENABLE CYCLE STEAL W5B05640
565 | * W5B05650
566 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05660
567 | * INVALID LINE COUNT ERROR * W5B05670
568 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05680
569 | * W5B05690
0110 1090 570 | MT450 SLT 16 CLEAR EXTENSION W5B05700
0111 C005 571 | LD MT932 INSERT ERROR CODE W5B05710
0112 4400 0028 572 | BSI L $PRET GO REPORT W5B05720
0114 70FB 573 | B MT450 LOOP ON ERROR W5B05730
574 | * W5B05740
575 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05750
576 | * CONSTANTS USED FOR INITIALIZATION * W5B05760
577 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05770
578 | * W5B05780
0115 00DAR 579 | MT930 DC MT410-1 FIRST AVAILABLE W5B05790
580 | * *LOCATION MINUS 1 W5B05800
0116 0010 581 | MT931 DC 16 MAXIMUM LINE COUNT W5B05810
0117 E004 582 | MT932 DC /E004 INVALID LINE COUNT W5B05820
583 | * W5B05830
584 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05840
585 | * RESERVE ENOUGH STORAGE FOR C/S BLOCKS * W5B05850
586 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B05860
587 | * W5B05870
0118 588 | BSS 63-*+MT410 W5B05880
589 | * W5B05890
590 | * W5B05900
591 | *************************************************** W5B05910
592 | * * W5B05920
593 | * ENABLE CYCLE STEAL * W5B05930
594 | * * W5B05940
595 | *************************************************** W5B05950
596 | * W5B05960
011A 6120 597 | MT460 LDX 1 32 SET UP INDEX W5B05970
011B C02A 598 | LD MT948 PUT HEX 8000 W5B05980
011C 100F 599 | SLA 15 *INTO ALL CYCLE W5B05990
011D D500 0000 600 | MT470 STO L1 *-* *STEAL LOCATIONS W5B06000
011F 71FF 601 | MDX 1 -1 DECREMENT INDEX W5B06010
0120 70FC 602 | B MT470 RETURN W5B06020
603 | * W5B06030
0121 081E 604 | XIO MT942 ENABLE CYCLE STEAL W5B06040
0122 70AB 605 | B MT380 BR TO RESTORE W5B06050
606 | * W5B06060
MTCA0 - INTERRUPT SERVICE SUBROUTINES
608 | *************************************************** W5B06080
609 | * * W5B06090
610 | * MTCA ADAPTER BASE RESPONSE HANDLER * W5B06100
611 | * * W5B06110
612 | *************************************************** W5B06120
613 | * W5B06130
0123 6580 0142R 614 | MT500 LDX I1 MT944 LINE COUNT IN XR1 W5B06140
0125 081C 615 | XIO MT944 SENSE DSW1 W5B06150
0126 D01E 616 | STO MT946+1 *AND SAVE W5B06160
0127 1140 617 | SLCA 1 FIND ADAPTER W5B06170
0128 4C10 0136R 618 | BNN MT520 BR IF ERROR W5B06180
619 | * W5B06190
012A 6908 620 | STX 1 MT510+1 SAVE XR1 W5B06200
012B C016 621 | LD MT944 GET HIGHEST LINE W5B06210
012C 8019 622 | A MT948 CALCULATE THIS W5B06220
012D 9005 623 | S MT510+1 *LINE NUMBER W5B06230
012E D004 624 | STO MT510+1 *AND SAVE W5B06240
012F C00E 625 | LD MT940 GET LCB ADDRESS W5B06250
0130 8002 626 | A MT510+1 FOR THIS LINE W5B06260
0131 D001 627 | STO *+1 W5B06270
0132 6680 0000 628 | MT510 LDX I2 *-* PUT INTO XR2 W5B06280
0134 7200 629 | MDX 2 0 CHECK NON ZERO ADDR W5B06290
0135 7004 630 | B MT530 BR IF GOOD W5B06300
631 | * W5B06310
632 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B06320
633 | * INVALID DSW1 SENSED * W5B06330
634 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B06340
635 | * W5B06350
0136 C80D 636 | MT520 LDD MT946 GET ERROR CODE W5B06360
0137 4400 0089 637 | BSI L $PST3 REPORT ERROR W5B06370
638 | * W5B06380
0139 7002 639 | B MT540 RETURN TO MAINLINE W5B06390
640 | * W5B06400
641 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B06410
642 | * GO TO TERMINAL MODULE FOR SERVICE * W5B06420
643 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B06430
644 | * W5B06440
013A 4680 0001 645 | MT530 BSI I2 TSMAD BR TO T.S.M. W5B06450
646 | * W5B06460
013C 4C80 0004R 647 | MT540 B I MT004 RETURN TO ILS03 W5B06470
648 | * W5B06480
649 | *************************************************** W5B06490
650 | * * W5B06500
651 | * IOCC'S AND CONSTANTS * W5B06510
652 | * * W5B06520
653 | *************************************************** W5B06530
654 | * W5B06540
655 | * W5B06550
013E 656 | BSS E 0 FORCE EVEN ALIGNMENT W5B06560
013E 148C*3057 657 | MT940 CALL MTCAP PICK UP USERS PARM RTN W5B06570
0140 0000 658 | MT942 DC *-* ENABLE MTCA E W5B06580
0141 FC48 659 | DC /FC48 *IOCC W5B06590
0142 0000 660 | MT944 DC *-* SAVE LOCATION E W5B06600
0143 FF08 661 | DC /FF08 SENSE DSW1 IOCC W5B06610
0144 E005 662 | MT946 DC /E005 INVALID DSW1 ERROR E W5B06620
0145 0000 663 | DC *-* SAVE DSW1 W5B06630
0146 0001 664 | MT948 DC 1 CONSTANT - ONE E W5B06640
0147 FC0C 665 | DC /FC0C DISABLE TMT IOCC W5B06650
0148 E008 666 | MT950 DC /E008 ERROR CODE FOR RCV T/O W5B06660
667 | * W5B06670
668 | * W5B06680
669 | *************************************************** W5B06690
670 | * * W5B06700
671 | * TIMER RESPONSE HANDLER * W5B06710
672 | * * W5B06720
673 | *************************************************** W5B06730
674 | * W5B06740
0149 6580 0142R 675 | MT600 LDX I1 MT944 SET LINE COUNT IN XR1 W5B06750
676 | * W5B06760
014B C500 0000 677 | MT610 LD L1 *-* GET LCB ADDRESS AND W5B06770
014D 4C18 016AR 678 | BZ MT630 EXIT IF ZERO W5B06780
679 | * W5B06790
014F D001 680 | STO *+1 W5B06800
0150 6600 0000 681 | LDX L2 *-* PUT INTO XR2 W5B06810
0152 C208 682 | LD 2 DIAGN EXIT IF LINE UNDER W5B06820
0153 4C28 016AR 683 | BN MT630 *DIAGNOSTIC CONTROL W5B06830
684 | * W5B06840
0155 C209 685 | LD 2 TIMER GET TIMER CONTROL W5B06850
0156 4C18 016AR 686 | BZ MT630 EXIT IF ZERO W5B06860
687 | * W5B06870
0158 906F 688 | S MT960 SUBTRACT ONE AND W5B06880
0159 D209 689 | STO 2 TIMER *RESTORE W5B06890
015A 100C 690 | SLA 12 ISOLATE COUNT DIGIT W5B06900
015B 4C20 016AR 691 | BNZ MT630 EXIT IF NON ZERO W5B06910
692 | * W5B06920
015D 690B 693 | STX 1 MT620+1 SAVE XR1 W5B06930
015E C209 694 | LD 2 TIMER GET TIMER WORD W5B06940
015F 180C 695 | SRA 12 SET UP THE COMMAND W5B06950
0160 D001 696 | STO *+1 *AS AN INDEX W5B06960
0161 6500 0000 697 | LDX L1 *-* PUT INTO XR1 W5B06970
0163 1804 698 | SRA 4 W5B06980
0164 D209 699 | STO 2 TIMER CLEAR TIMER CONTROL W5B06990
0165 C802 700 | LDD MT620 LINE NO. INTO EXT W5B07000
0166 4D80 01DER 701 | B I1 MT983-1 BR TO SERVICE TIMEOUT W5B07010
702 | * W5B07020
0168 703 | BSS E 0 FORCE EVEN BOUNDARY W5B07030
0168 6500 0000 704 | MT620 LDX L1 *-* RESTORE XR1 E W5B07040
016A 71FF 705 | MT630 MDX 1 -1 DECREMENT LINE COUNT W5B07050
016B 70DF 706 | B MT610 RETURN FOR NEXT LINE W5B07060
707 | * W5B07070
708 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07080
709 | * RESET TIMER AND TMT IF NECESSARY * W5B07090
710 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07100
711 | * W5B07110
016C 148C*3054 712 | CALL MTCAM DECREMENT TMT TIMEOUT W5B07120
016C 713 | ORG *-2 *COUNT BY ONE W5B07130
016C 74FF 714 | DC /74FF *TO CHECK FOR A W5B07140
016E 715 | ORG *+1 *DISABLE CONDITION W5B07150
016E 7001 716 | B *+1 SKIP NEXT INSTRUCTION W5B07160
717 | * W5B07170
016F 08D6 718 | XIO MT948 DISABLE TMT W5B07180
0170 0857 719 | XIO MT960 RESET TIMER COMMAND W5B07190
0171 4C80 0007R 720 | B I MT007 RETURN TO ILS03 W5B07200
721 | * W5B07210
722 | * W5B07220
723 | *************************************************** W5B07230
724 | * * W5B07240
725 | * RECEIVE DATA TIMEOUT * W5B07250
726 | * * W5B07260
727 | *************************************************** W5B07270
728 | * W5B07280
0173 C0D4 729 | MT640 LD MT950 SET UP ERROR CODE W5B07290
0174 4680 0006 730 | BSI I2 ERROR GO TELL USER W5B07300
731 | * W5B07310
732 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07320
733 | * RETURN FROM USER * W5B07330
734 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07340
735 | * W5B07350
0176 4C18 017BR 736 | BZ MT650 BRANCH IF TERMINATE W5B07360
737 | * W5B07370
0178 C056 738 | LD MT967 SET UP FURTHER W5B07380
0179 D209 739 | STO 2 TIMER *RCV DATA TIMEOUT W5B07390
017A 70ED 740 | B MT620 GO SERVICE NEXT LINE W5B07400
741 | * W5B07410
017B D203 742 | MT650 STO 2 IPCNT CLEAR I/P COUNT W5B07420
017C 7009 743 | B MT670 GO CLEAR BUSY FLAG W5B07430
744 | * W5B07440
745 | * W5B07450
746 | *************************************************** W5B07460
747 | * * W5B07470
748 | * WRITE INTERRUPT TIMEOUT * W5B07480
749 | * * W5B07490
750 | *************************************************** W5B07500
751 | * W5B07510
017D C052 752 | MT660 LD MT968 SET UP TMT TIMEOUT W5B07520
017E D209 753 | STO 2 TIMER W5B07530
017F C058 754 | LD MT976 SET UP ERROR CODE W5B07540
0180 4680 0006 755 | BSI I2 ERROR GO TELL USER W5B07550
756 | * W5B07560
757 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07570
758 | * RETURN FROM USER * W5B07580
759 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07590
760 | * W5B07600
0182 4C20 0168R 761 | BNZ MT620 BR IF IGNORE REQUESTED W5B07610
762 | * W5B07620
0184 D205 763 | STO 2 OPCNT CLEAR O/P COUNT W5B07630
0185 D209 764 | STO 2 TIMER CLEAR TIMER W5B07640
0186 1010 765 | MT670 SLA 16 W5B07650
0187 D200 766 | STO 2 LNBSY CLEAR BUSY FLAG W5B07660
0188 70DF 767 | B MT620 GO SERVICE NEXT LINE W5B07670
768 | * W5B07680
769 | * W5B07690
770 | *************************************************** W5B07700
771 | * * W5B07710
772 | * CONNECT ADAPTER TIMEOUT * W5B07720
773 | * * W5B07730
774 | *************************************************** W5B07740
775 | * W5B07750
0189 C044 776 | MT680 LD MT966 SET UP W5B07760
018A D03F 777 | STO MT962 *SENSE DSW2 IOCC W5B07770
018B 4033 778 | BSI MT750 TEST DSW2 W5B07780
779 | * W5B07790
018C 1004 780 | SLA 4 CHECK LINK ACTIVE W5B07800
018D 4C10 019ER 781 | BNN MT700 BRANCH IF NO W5B07810
782 | * W5B07820
018F 1001 783 | SLA 1 CHECK CONNECTED W5B07830
0190 4C28 0186R 784 | BN MT670 RETURN IF CONNECTED W5B07840
785 | * W5B07850
0192 C8D5 786 | MT690 LDD MT620 *NO - SET UP ERROR W5B07860
0193 C041 787 | LD MT973 *CODES AND W5B07870
0194 4680 0006 788 | BSI I2 ERROR *GO TO USER W5B07880
789 | * W5B07890
790 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07900
791 | * RETURN FROM USER * W5B07910
792 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B07920
793 | * W5B07930
0196 4C18 0186R 794 | BZ MT670 BR IF NO RETRY W5B07940
795 | * W5B07950
0198 C038 796 | LD MT969 SET UP A W5B07960
0199 D209 797 | STO 2 TIMER *CONNECT TIMEOUT W5B07970
019A C031 798 | LD MT964 SET UP W5B07980
019B D02E 799 | STO MT962 *CONNECT IOCC W5B07990
019C 4022 800 | BSI MT750 GO CONNECT LINE W5B08000
801 | * W5B08010
019D 70CA 802 | B MT620 GO SERVICE NEXT LINE W5B08020
803 | * W5B08030
019E 1001 804 | MT700 SLA 1 TEST FOR CONNECTED W5B08040
019F 4C10 0192R 805 | BNN MT690 BRANCH IF NO W5B08050
806 | * W5B08060
807 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08070
808 | * CONNECTED BUT NOT LINK ACTIVE * W5B08080
809 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08090
810 | * W5B08100
01A1 C8C6 811 | LDD MT620 GET LINE NUMBER W5B08110
01A2 C036 812 | LD MT977 AND ERROR CODE W5B08120
01A3 4680 0006 813 | BSI I2 ERROR GO TELL USER W5B08130
814 | * W5B08140
815 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08150
816 | * RETURN FROM USER * W5B08160
817 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08170
818 | * W5B08180
01A5 4C18 0186R 819 | BZ MT670 BRANCH IF USER WISHES W5B08190
820 | * *TO IGNORE ERROR W5B08200
01A7 C029 821 | LD MT969 RESTORE T/O CONTROL W5B08210
01A8 D209 822 | STO 2 TIMER W5B08220
01A9 70BE 823 | B MT620 AND RETURN W5B08230
824 | * W5B08240
825 | * W5B08250
826 | *************************************************** W5B08260
827 | * * W5B08270
828 | * DISCONNECT ADAPTER TIMEOUT * W5B08280
829 | * * W5B08290
830 | *************************************************** W5B08300
831 | * W5B08310
01AA C023 832 | MT710 LD MT966 SET UP W5B08320
01AB D01E 833 | STO MT962 *SENSE DSW2 IOCC W5B08330
01AC 4012 834 | BSI MT750 TEST DSW2 W5B08340
01AD 1005 835 | SLA 5 TEST FOR WRAPPED W5B08350
836 | * W5B08360
01AE 4C10 01BCR 837 | BNN MT740 RETURN IF WRAPPED W5B08370
838 | * W5B08380
01B0 C8B7 839 | LDD MT620 SET UP W5B08390
01B1 C024 840 | LD MT974 *ERROR CODES W5B08400
01B2 4680 0006 841 | BSI I2 ERROR GO TELL USER W5B08410
842 | * W5B08420
843 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08430
844 | * RETURN FROM USER * W5B08440
845 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B08450
846 | * W5B08460
01B4 4C18 01BCR 847 | BZ MT740 BR IF NO RETRY W5B08470
848 | * W5B08480
01B6 C01B 849 | LD MT970 SET UP FOR A W5B08490
01B7 D209 850 | MT720 STO 2 TIMER *DISCONNECT T/O W5B08500
01B8 C014 851 | LD MT965 SET UP W5B08510
01B9 D010 852 | STO MT962 *DISCONNECT IOCC W5B08520
01BA 4004 853 | BSI MT750 GO DISCONNECT LINE W5B08530
854 | * W5B08540
01BB 70AC 855 | MT730 B MT620 RETURN FOR NEXT LINE W5B08550
856 | * W5B08560
01BC 1010 857 | MT740 SLA 16 W5B08570
01BD D207 858 | STO 2 CNTRL CLEAR CONTROL FLAGS W5B08580
01BE 70C7 859 | B MT670 GO CLEAR LINE BUSY W5B08590
860 | * W5B08600
861 | * W5B08610
862 | *************************************************** W5B08620
863 | * * W5B08630
864 | * XIO SUBROUTINE * W5B08640
865 | * * W5B08650
866 | *************************************************** W5B08660
867 | * W5B08670
01BF 0000 868 | MT750 DC *-* W5B08680
01C0 C0A8 869 | LD MT620+1 BUILD W5B08690
01C1 9006 870 | S MT960 *UP W5B08700
01C2 1004 871 | SLA 4 *APPROPRIATE W5B08710
01C3 F006 872 | EOR MT962 *IOCC W5B08720
01C4 D006 873 | STO MT962+1 *FOR THAT ADAPTER W5B08730
01C5 0804 874 | XIO MT962 ISSUE XIO W5B08740
01C6 4C80 01BFR 875 | B I MT750 RETURN W5B08750
876 | * W5B08760
877 | * W5B08770
878 | *************************************************** W5B08780
879 | * * W5B08790
880 | * IOCC'S AND CONSTANTS * W5B08800
881 | * * W5B08810
882 | *************************************************** W5B08820
883 | * W5B08830
01C8 884 | BSS E 0 FORCE EVEN BOUNDARY W5B08840
01C8 0001 885 | MT960 DC 1 CONSTANT - ONE E W5B08850
01C9 FC18 886 | DC /FC18 RESET TIMER IOCC W5B08860
01CA 0000 887 | MT962 DC *-* UTILITY E W5B08870
01CB 0000 888 | DC *-* *IOCC W5B08880
01CC FC04 889 | MT964 DC /FC04 CONNECT ADAPTER IOCC W5B08890
01CD FC02 890 | MT965 DC /FC02 DISCONNECT ADAPTER IOCC W5B08900
01CE FF00 891 | MT966 DC /FF00 SENSE DSW2 W5B08910
01CF 100F 892 | MT967 DC /100F TIMER CONTROL FOR RX T/O W5B08920
01D0 2002 893 | MT968 DC /2002 TMT TIMEOUT W5B08930
01D1 3002 894 | MT969 DC /3002 CONNECT ADAPTER CONTROL W5B08940
01D2 4002 895 | MT970 DC /4002 D/CNNCT ADAPTER CONTROL W5B08950
01D3 6001 896 | MT971 DC /6001 DISCONNECT TIMEOUT W5B08960
01D4 7002 897 | MT972 DC /7002 WRAP DATA TIMEOUT W5B08970
01D5 E006 898 | MT973 DC /E006 CONNECT TIME OUT ERROR W5B08980
01D6 E007 899 | MT974 DC /E007 D/CNNCT TIME OUT ERROR W5B08990
01D7 E00C 900 | MT975 DC /E00C ADAPTER FAIL ON WRAP W5B09000
01D8 E00D 901 | MT976 DC /E00D TMT TIMEOUT ERROR W5B09010
01D9 E00F 902 | MT977 DC /E00F LINK NOT ACTIVE ERROR W5B09020
01DA 0004 903 | MT978 DC 4 CONSTANT - FOUR W5B09030
01DB 8000 904 | MT979 DC /8000 BIT 0 W5B09040
01DC 0800 905 | MT980 DC /0800 BIT 4 W5B09050
01DD 7FF0 906 | MT981 DC /7FF0 NOT DIAGNOSE BITS W5B09060
01DE FFF3 907 | MT982 DC /FFF3 NOT BITS 12 AND 13 W5B09070
908 | * * W5B09080
909 | * TIME/OUT SERVICE BRANCH TABLE * W5B09090
910 | * * W5B09100
01DF 0173R 911 | MT983 DC MT640 READ INTERRUPT W5B09110
01E0 017DR 912 | DC MT660 WRITE INTERRUPT W5B09120
01E1 0189R 913 | DC MT680 CONNECT ADAPTER W5B09130
01E2 01AAR 914 | DC MT710 DISCONNECT ADAPTER W5B09140
01E3 01E8R 915 | DC MT760 REQUEST WRAP TEST W5B09150
01E4 01F0R 916 | DC MT770 WRAP COMPLETED W5B09160
01E5 0205R 917 | DC MT780 TMT/RCV TIMEOUT W5B09170
01E6 0215R 918 | DC MT830 RECONNECT TIMEOUT W5B09180
01E7 0225R 919 | DC MT850 REPORT PRE-TMT ERROR W5B09190
920 | * W5B09200
921 | * W5B09210
922 | *************************************************** W5B09220
923 | * * W5B09230
924 | * REQUEST TO WRAP AND TEST A LINE * W5B09240
925 | * * W5B09250
926 | *************************************************** W5B09260
927 | * W5B09270
01E8 C207 928 | MT760 LD 2 CNTRL RESET BITS 12 W5B09280
01E9 E0F4 929 | AND MT982 *AND 13 W5B09290
01EA E8F0 930 | OR MT979 SET BIT 0 W5B09300
01EB D207 931 | STO 2 CNTRL *IN CONTROL W5B09310
01EC 1010 932 | SLA 16 CLEAR W5B09320
01ED D204 933 | STO 2 OPPTR *O/P POINTER W5B09330
01EE C0E4 934 | LD MT971 SET UP WRAP TIMEOUT W5B09340
01EF 70C7 935 | B MT720 GO WRAP LINE W5B09350
936 | * W5B09360
937 | * W5B09370
938 | *************************************************** W5B09380
939 | * * W5B09390
940 | * DISCONNECT COMPLETED - BEGIN TEST * W5B09400
941 | * * W5B09410
942 | *************************************************** W5B09420
943 | * W5B09430
01F0 C0DD 944 | MT770 LD MT966 SET UP SENSE W5B09440
01F1 D0D8 945 | STO MT962 *DSW2 IOCC W5B09450
01F2 40CC 946 | BSI MT750 GO ISSUE XIO W5B09460
947 | * W5B09470
01F3 F0E8 948 | EOR MT980 CHECK VALID DSW2 W5B09480
01F4 4C20 0205R 949 | BNZ MT780 GO REPORT ERR IF NO W5B09490
950 | * W5B09500
01F6 C0DD 951 | LD MT972 SET UP W5B09510
01F7 D209 952 | STO 2 TIMER *TMT/RCV TIMEOUT W5B09520
953 | * W5B09530
954 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B09540
955 | * SET UP DISABLE TMT TIMEOUT * W5B09550
956 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B09560
957 | * W5B09570
01F8 C0E1 958 | LD MT978 SET A CONSTANT W5B09580
01F9 148C*3054 959 | CALL MTCAM *OF VALUE FOUR W5B09590
01F9 960 | ORG *-2 *INTO THE TRANSFER W5B09600
01F9 D400 961 | DC /D400 *VECTOR OF W5B09610
01FB 962 | ORG *+1 *MTCAM ENTRY POINT W5B09620
01FB 0C00 0088R 963 | XIO L MT906 ENABLE TMT W5B09630
964 | * W5B09640
01FD C201 965 | LD 2 TSMAD FIND W5B09650
01FE 80DB 966 | A MT978 *FIRST W5B09660
01FF D001 967 | STO *+1 *WRAP W5B09670
0200 C400 0000 968 | LD L *-* *CHARACTER W5B09680
0202 D680 000B 969 | STO I2 TXPTR TRANSMIT W5B09690
0204 70B6 970 | B MT730 RETURN FOR NEXT LINE W5B09700
971 | * W5B09710
972 | * W5B09720
973 | *************************************************** W5B09730
974 | * * W5B09740
975 | * TMT/RCV TIMEOUT - ON DIAGNOSE * W5B09750
976 | * * W5B09760
977 | *************************************************** W5B09770
978 | * W5B09780
0205 C0D1 979 | MT780 LD MT975 GET ERROR CODE W5B09790
0206 6A03 980 | STX 2 MT790+1 SAVE XR2 W5B09800
981 | * W5B09810
982 | * XR2 USED IN TSM41 ONLINE DIAGNOSTICS W5B09820
983 | * W5B09830
0207 4680 0006 984 | BSI I2 ERROR GO TELL USER W5B09840
985 | * W5B09850
986 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B09860
987 | * CHECK FOR ON LINE DIAGNOSTIC USE * W5B09870
988 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B09880
989 | * W5B09890
0209 6600 0000 990 | MT790 LDX L2 *-* RESTORE XR2 W5B09900
020B C207 991 | LD 2 CNTRL CHECK BIT 15 W5B09910
020C 4C04 0213R 992 | BOD MT820 BR IF SET W5B09920
993 | * W5B09930
020E 1010 994 | MT800 SLA 16 CLEAR - W5B09940
020F D204 995 | STO 2 OPPTR *O/P POINTER W5B09950
0210 D200 996 | STO 2 LNBSY *LINE BUSY FLAG W5B09960
0211 D207 997 | MT810 STO 2 CNTRL *CONTROL WORD W5B09970
0212 70A8 998 | B MT730 RETURN FOR NEXT LINE W5B09980
999 | * W5B09990
0213 E0C9 1000 | MT820 AND MT981 RESET DIAGNOSE BITS W5B10000
0214 70FC 1001 | B MT810 GO RESET CNTRL W5B10010
1002 | * W5B10020
1003 | * W5B10030
1004 | *************************************************** W5B10040
1005 | * * W5B10050
1006 | * RECONNECT - TEST COMPLETED * W5B10060
1007 | * * W5B10070
1008 | *************************************************** W5B10080
1009 | * W5B10090
0215 C0B8 1010 | MT830 LD MT966 SET UP W5B10100
0216 D0B3 1011 | STO MT962 *SENSE DSW 2 IOCC W5B10110
0217 40A7 1012 | BSI MT750 GO ISSUE XIO W5B10120
1013 | * W5B10130
0218 1005 1014 | SLA 5 CHECK CONNECTED W5B10140
0219 4C10 0205R 1015 | BNN MT780 ERROR IF NO W5B10150
1016 | * W5B10160
021B C207 1017 | LD 2 CNTRL CHECK BIT 15 W5B10170
021C 4C04 021FR 1018 | BOD MT840 BR IF SET W5B10180
1019 | * W5B10190
021E 70EF 1020 | B MT800 GO CLEAR BUSY FLAG W5B10200
1021 | * W5B10210
1022 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B10220
1023 | * SUCCESSFUL TEST CALLED FROM A TERMINAL * W5B10230
1024 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5B10240
1025 | * W5B10250
021F E0BD 1026 | MT840 AND MT981 RESET DIAGNOSE BITS W5B10260
0220 D207 1027 | STO 2 CNTRL W5B10270
0221 1010 1028 | SLA 16 CLEAR ACC W5B10280
0222 4680 0006 1029 | BSI I2 ERROR GO TO T.S.M. W5B10290
1030 | * W5B10300
0224 7096 1031 | B MT730 GO SERVICE NEXT LINE W5B10310
1032 | * W5B10320
0225 C204 1033 | MT850 LD 2 OPPTR GET ERROR CODE W5B10330
0226 4680 0006 1034 | BSI I2 ERROR GO TELL USER W5B10340
1035 | * W5B10350
0228 1010 1036 | SLA 16 CLEAR W5B10360
0229 D205 1037 | STO 2 OPCNT *OUTPUT COUNT W5B10370
022A D200 1038 | STO 2 LNBSY *AND BUSY FLAG W5B10380
022B 708F 1039 | B MT730 GO SERVICE NEXT LINE W5B10390
1040 | * W5B10400
022C 1041 | END W5B10410
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PRET 0028 130 252 572
$PST3 0089 131 637
CNTRL 0007 121 858 928 931 991 997 1017 1027
DIAGN 0008 122 206 682
ERROR 0006 120 276 295 418 473 730 755 788 813 841 984 1029 1034
IPCNT 0003 117 284 742
IPPTR 0002 116 280
LNBSY 0000 114 201 205 262 282 332 334 448 551 766 996 1038
MT004 0004R 148 647
MT007 0007R 153 720
MT010 000AR 163 144
MT020 0024R 188 185 186 187
MT030 002DR 201 202
MT040 0032R 206 207
MT050 003AR 214 212
MT060 003CR 220 168
MT070 0042R 236 174
MT080 0045R 242 221
MT090 0049R 249 179 182 191
MT100 004CR 252 238 245 253
MT110 004FR 262 195
MT120 0052R 265 225 286
MT200 0055R 276 363
MT210 0061R 295 364
MT220 0075R 323 304
MT230 0077R 332 422
MT240 007AR 335 142 267 451 463
MT250 007CR 336 164
MT260 007ER 337 166
MT270 0080R 339 163 266 301 421 446 500
MT300 00A0R 389 319 396 419
MT310 00A9R 405 365
MT320 00ACR 408 434
MT330 00B1R 421 477
MT340 00B3R 431 366
MT350 00B7R 443 367
MT360 00C4R 455 462
MT370 00C5R 456 444 460
MT380 00CER 463 605
MT390 00CFR 472 368
MT400 00D5R 500 171
MT410 00DBR 505 579 588
MT420 00F0R 531 524 554 561 562
MT430 00FCR 546 534 548 550
MT440 010CR 561 532
MT450 0110R 570 526 529 573
MT460 011AR 597 503 564
MT470 011DR 600 519 602
MT500 0123R 614 149
MT510 0132R 628 620 623 624 626
MT520 0136R 636 618
MT530 013AR 645 630
MT540 013CR 647 639
MT600 0149R 675 154
MT610 014BR 677 507 706
MT620 0168R 704 693 700 740 761 767 786 802 811 823 839 855 869
MT630 016AR 705 678 683 686 691
MT640 0173R 729 911
MT650 017BR 742 736
MT660 017DR 752 912
MT670 0186R 765 743 784 794 819 859
MT680 0189R 776 913
MT690 0192R 786 805
MT700 019ER 804 781
MT710 01AAR 832 914
MT720 01B7R 850 935
MT730 01BBR 855 970 998 1031 1039
MT740 01BCR 857 837 847
MT750 01BFR 868 778 800 834 853 875 946 1012
MT760 01E8R 928 915
MT770 01F0R 944 916
MT780 0205R 979 917 949 1015
MT790 0209R 990 980
MT800 020ER 994 1020
MT810 0211R 997 1001
MT820 0213R 1000 992
MT830 0215R 1010 918
MT840 021FR 1026 1018
MT850 0225R 1033 919
MT900 0082R 348 165 338
MT902 0084R 349 318 393 394 395 406 432
MT904 0086R 351 170 194 224
MT906 0088R 353 178 315 963
MT908 008AR 355 173 223 501
MT909 008BR 356 431
MT910 008CR 357 405
MT911 008DR 358 317
MT912 008ER 362 211
MT913 008FR 363 362
MT914 0095R 370 204 237
MT915 0096R 371 244
MT916 0097R 372 251
MT917 0098R 373 281 333
MT918 0099R 374 303 310
MT919 009AR 375 277
MT920 009BR 376 407
MT921 009CR 377 433
MT922 009DR 378 474
MT923 009ER 379 450
MT924 009FR 380 321
MT930 0115R 579 513
MT931 0116R 581 528 558
MT932 0117R 582 571
MT940 013ER 657 176 505 506 521 538 552 625
MT942 0140R 658 502 517 556 604
MT944 0142R 660 525 614 615 621 675
MT946 0144R 662 616 636
MT948 0146R 664 515 518 535 555 598 622 718
MT950 0148R 666 729
MT960 01C8R 885 688 719 870
MT962 01CAR 887 777 799 833 852 872 873 874 945 1011
MT964 01CCR 889 798
MT965 01CDR 890 851
MT966 01CER 891 776 832 944 1010
MT967 01CFR 892 738
MT968 01D0R 893 752
MT969 01D1R 894 796 821
MT970 01D2R 895 849
MT971 01D3R 896 934
MT972 01D4R 897 951
MT973 01D5R 898 787
MT974 01D6R 899 840
MT975 01D7R 900 979
MT976 01D8R 901 754
MT977 01D9R 902 812
MT978 01DAR 903 958 966
MT979 01DBR 904 930
MT980 01DCR 905 948
MT981 01DDR 906 1000 1026
MT982 01DER 907 929
MT983 01DFR 911 701
MTCA0 0000R 142
OPCNT 0005 119 297 763 1037
OPPTR 0004 118 299 933 995 1033
RXPTR 000A 124 557
STATC 000C 126 449 455 458
TIMER 0009 123 278 408 475 685 689 694 699 739 753 764 797 822
850 952
TSMAD 0001 115 302 553 645 965
TXPTR 000B 125 390 559 969