ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w5tsm41.asm
TSM41 - MTCA 2741 TERMINAL MODULE
2 | *************************************************** W5D00020
3 | *STATUS - VERSION 2, MODIFICATION 9 * W5D00030
4 | * * W5D00040
5 | *SUBROUTINE NAME - * W5D00050
6 | * FULL NAME - 2741 TERMINAL SELECT MODULE (TSM) * W5D00060
7 | * FOR THE MULTIPLE TERMINAL * W5D00070
8 | * COMMUNICATIONS ADAPTER (MTCA) * W5D00080
9 | * CODE NAME - TSM41 * W5D00090
10 | * * W5D00100
11 | *PURPOSE - * W5D00110
12 | * THIS SUBROUTINE, IN CONJUNCTION WITH MTCA0 * W5D00120
13 | * PROVIDES THE NECESSARY FUNCTIONS TO CONTROL * W5D00130
14 | * COMMUNICATIONS LINES CONNECTED BETWEEN THE * W5D00140
15 | * MTCA AND 2741 TERMINALS * W5D00150
16 | * DATA IS ASSEMBLED/DISASSEMBLED INTO OR FROM * W5D00160
17 | * THE USERS AREA * W5D00170
18 | * ON-LINE DIAGNOSTICS ARE PROVIDED * W5D00180
19 | * * W5D00190
20 | *METHOD - * W5D00200
21 | * THE SUBROUTINE HAS TWO ENTRY POINTS - * W5D00210
22 | * * INITIATE WRITE - A MESSAGE IS * W5D00220
23 | * TRANSMITTED TO A SPECIFIC TERMINAL * W5D00230
24 | * * INTERRUPT SERVICE - THE ADAPTER STATUS * W5D00240
25 | * IS EXAMINED FOR THE REQUESTED SERVICE, * W5D00250
26 | * (TMT AND/OR RCV) * W5D00260
27 | * THE DIAGNOSE FUNCTION (WRAP MODE) IS * W5D00270
28 | * CONTINUED BY TSM41 ONCE MTCA0 HAS TRANSMITTED * W5D00280
29 | * THE FIRST WRAP CHARACTER * W5D00290
30 | * UPON RECOGNITION OF AN I/P MESSAGE BEGINNING * W5D00300
31 | * WITH TWO LOWER CASE D'S, TSM41 ENTERS ITS * W5D00310
32 | * ON-LINE DIAGNOSTICS MODULE WHICH SETS UP A * W5D00320
33 | * BUFFER INTO WHICH THE DIAGNOSTIC REQUEST * W5D00330
34 | * MESSAGE IS READ. THE MESSAGE IS THEN INTER- * W5D00340
35 | * ROGATED AND THE REQUESTED FUNCTION INITIATED * W5D00350
36 | * * W5D00360
37 | *CAPABILITIES AND LIMITATIONS - * W5D00370
38 | * TSM41 IS ONLY ENTERED BY MTCA0 * W5D00380
39 | * * W5D00390
40 | *SPECIAL FEATURES - * W5D00400
41 | * NONE * W5D00410
42 | * * W5D00420
43 | *ADDITIONAL INFORMATION - * W5D00430
44 | * ERROR PROCEDURES - * W5D00440
45 | * ERRORS ARE REPORTED TO THE USER PROGRAM * W5D00450
46 | * SUBSEQUENT ACTION BY TSM41 MAY DEPEND UPON * W5D00460
47 | * THE CONTENTS OF THE ACCUMULATOR ON RETURN * W5D00470
48 | * FROM THE USERS ERROR SUBROUTINE * W5D00480
49 | * THE ADDRESS OF THE USERS ERROR SUBROUTINE * W5D00490
50 | * IS PLACED IN THE LINE CONTROL BLOCK (LCB) * W5D00500
51 | * BY MTCA0 WHEN INITIATING A CALL * W5D00510
52 | * CALLING SEQUENCE - * W5D00520
53 | * TSM41 IS NOT ENTERED IN THE NORMAL MANNER. * W5D00530
54 | * ITS STARTING ADDRESS IS PLACED IN THE LCB * W5D00540
55 | * FOR ALL LINES OF THAT TYPE DURING * W5D00550
56 | * INITIALIZATION. MTCA0 ENTERS TSM41 BY * W5D00560
57 | * MEANS OF A BSI INSTUCTION AT TSM41+0 FOR * W5D00570
58 | * INTERRUPT SERVICE, AND AT TSM41+2 FOR * W5D00580
59 | * INITIATE WRITE SERVICE. * W5D00590
60 | * LOCATION TSM41+4 CONTAINS THE FIRST WRAP * W5D00600
61 | * CHARACTER (USED BY MTCA0 DURING DIAGNOSE) * W5D00610
62 | * * W5D00620
63 | *************************************************** W5D00630
64 | * W5D00640
65 | * W5D00650
66 | *************************************************** W5D00660
67 | * * W5D00670
68 | * USE OF 'CNTRL' BY TSM41 * W5D00680
69 | * * W5D00690
70 | *************************************************** W5D00700
71 | * * W5D00710
72 | * BIT 0 WRAP MODE * W5D00720
73 | * 1 RCV MODE (ELSE TMT) * W5D00730
74 | * 2 TMT IDLES * W5D00740
75 | * 3 INSPECT FOR DIAGNOSTIC * W5D00750
76 | * 4 ONE D ALREADY RCVD * W5D00760
77 | * 5 TMT CRLF CHARACTER * W5D00770
78 | * 6 ONE SPACE RCVD (ATTN FEATURE) * W5D00780
79 | * 7 TMT CIRCLE C * W5D00790
80 | * 8 BAD MESSAGE INDICATOR * W5D00800
81 | * 9 NOT USED * W5D00810
82 | * 10 NOT USED * W5D00820
83 | * 11 NOT USED * W5D00830
84 | * 12 RCV INTERRUPT RCVD IN WRAP MODE * W5D00840
85 | * 13 TMT INTERRUPT RCVD IN WRAP MODE * W5D00850
86 | * 14 NOT USED * W5D00860
87 | * 15 WRAP REQUESTED FROM A TERMINAL * W5D00870
88 | * * W5D00880
89 | *************************************************** W5D00890
90 | * W5D00900
91 | * W5D00910
92 | *************************************************** W5D00920
93 | * * W5D00930
94 | * USE OF 'DIAGN' BY TSM41 * W5D00940
95 | * * W5D00950
96 | *************************************************** W5D00960
97 | * * W5D00970
98 | * BIT 0 IGNORE DATA * W5D00980
99 | * 1 DIAGNOSTIC WRITE * W5D00990
100 | * 2 DIAGNOSTIC READ * W5D01000
101 | * 3 DIAGNOSTIC TIMEOUTS * W5D01010
102 | * 4-14 NOT USED * W5D01020
103 | * 15 REPEAT MESSAGE * W5D01030
104 | * * W5D01040
105 | *************************************************** W5D01050
106 | * W5D01060
107 | * W5D01070
108 | *************************************************** W5D01080
109 | * * W5D01090
110 | * USE OF 'STATC' BY TSM41 * W5D01100
111 | * * W5D01110
112 | *************************************************** W5D01120
113 | * * W5D01130
114 | * '0XXY' * W5D01140
115 | * WHERE - * W5D01150
116 | * XX IS THE NO OF IDLES FOR TMN * W5D01160
117 | * WHEN THE TMT IDLE BIT OF CNTRL * W5D01170
118 | * IS SET TO ONE. * W5D01180
119 | * Y IS THE STATISTICS COUNT (3) * W5D01190
120 | * * W5D01200
121 | *************************************************** W5D01210
122 | * W5D01220
123 | * W5D01230
124 | *************************************************** W5D01240
125 | * * W5D01250
126 | * USE OF 'TIMER' BY TSM41 * W5D01260
127 | * * W5D01270
128 | *************************************************** W5D01280
129 | * * W5D01290
130 | * 'X00Y' * W5D01300
131 | * WHERE - * W5D01310
132 | * X IS THE FUNCTION DIGIT, * W5D01320
133 | * 1 RCV DATA TIMEOUT * W5D01330
134 | * 2 TMT DATA TIMEOUT * W5D01340
135 | * 3 CONNECT ADAPTER TIMEOUT * W5D01350
136 | * 4 DISCONNECT ADAPTER TIMEOUT * W5D01360
137 | * 5 REQUEST WRAP AND TEST ADAPTER * W5D01370
138 | * 6 WRAP ADAPTER TIMEOUT * W5D01380
139 | * 7 WRAP DATA TIMEOUT * W5D01390
140 | * 8 RECONNECT ADAPTER TIMEOUT * W5D01400
141 | * 9 REPORT PRE-TMT ERROR * W5D01410
142 | * Y IS THE COUNT IN TIMER UNITS * W5D01420
143 | * * W5D01430
144 | *************************************************** W5D01440
145 | * W5D01450
146 | * W5D01460
147 | *************************************************** W5D01470
148 | * * W5D01480
149 | * LINE CONTROL BLOCK FORMAT (2741) * W5D01490
150 | * * W5D01500
151 | *************************************************** W5D01510
152 | * W5D01520
153 | ENT TSM41 W5D01530
154 | * W5D01540
0000 155 | LNBSY EQU 0 LINE BUSY FLAG W5D01550
0001 156 | TSMAD EQU 1 TSM ADDRESS W5D01560
0002 157 | IPPTR EQU 2 INPUT POINTER W5D01570
0003 158 | IPCNT EQU 3 INPUT COUNT W5D01580
0004 159 | OPPTR EQU 4 OUTPUT POINTER W5D01590
0005 160 | OPCNT EQU 5 OUTPUT COUNT W5D01600
0006 161 | ERROR EQU 6 USER'S ERROR ROUTINE W5D01610
0007 162 | CNTRL EQU 7 CONTROL FLAGS W5D01620
0008 163 | DIAGN EQU 8 DIAGNOSTIC CONTROL W5D01630
0009 164 | TIMER EQU 9 INTERVAL TIMER CONTROL W5D01640
000A 165 | RXPTR EQU 10 RCV DATA LOCATION W5D01650
000B 166 | TXPTR EQU 11 TMT DATA LOCATION W5D01660
000C 167 | STATC EQU 12 STATISTICS COUNT W5D01670
000D 168 | STAT1 EQU 13 VRC ERRORS W5D01680
000E 169 | STAT2 EQU 14 GOOD MEESAGES COUNT W5D01690
000F 170 | STAT3 EQU 15 TOTAL MESSAGES COUNT W5D01700
0004 171 | LPDAT EQU OPPTR LOOP DATA ON WRAP W5D01710
172 | * W5D01720
173 | * W5D01730
174 | *************************************************** W5D01740
175 | * * W5D01750
176 | * ENTRY POINTS * W5D01760
177 | * * W5D01770
178 | *************************************************** W5D01780
179 | * W5D01790
0000 0000 180 | TSM41 DC *-* INTERRUPT ENTRY POINT W5D01800
0001 7030 181 | B TM100 BRANCH TO SERVICE W5D01810
182 | * W5D01820
0002 0000 183 | TM002 DC *-* INITIATE WRITE ENTRY W5D01830
0003 7001 184 | B TM010 BRANCH TO INITIATE W5D01840
185 | * W5D01850
0004 0004 186 | TM004 DC /0004 FIRST WRAP CHARACTER W5D01860
187 | * W5D01870
188 | * W5D01880
189 | *************************************************** W5D01890
190 | * * W5D01900
191 | * INITIATE WRITE ROUTINE * W5D01910
192 | * * W5D01920
193 | *************************************************** W5D01930
194 | * W5D01940
0005 4C20 0012R 195 | TM010 BNZ TM020 BR IF LINK NOT ACTIVE W5D01950
196 | * W5D01960
0007 C207 197 | LD 2 CNTRL CHECK FOR W5D01970
0008 1001 198 | SLA 1 *TRANSMIT MODE W5D01980
0009 4C28 0014R 199 | BN TM030 BRANCH IF NO W5D01990
200 | * W5D02000
201 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02010
202 | * LINK ACTIVE - GO TMT AN IDLE * W5D02020
203 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02030
204 | * W5D02040
000B 1010 205 | SLA 16 CLEAR ACC W5D02050
000C D207 206 | STO 2 CNTRL RESET CONTROL WORD W5D02060
000D C017 207 | LD TM903 TRANSMIT AN W5D02070
000E D680 000B 208 | STO I2 TXPTR *IDLE CHARACTER W5D02080
0010 C016 209 | LD TM905 GET TMT TIMEOUT CODE W5D02090
0011 7005 210 | B TM040-1 GO SET UP W5D02100
211 | * W5D02110
212 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02120
213 | * SET UP ERROR CODES * W5D02130
214 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02140
215 | * W5D02150
0012 C015 216 | TM020 LD TM906 LOAD ERROR CODE W5D02160
0013 7001 217 | B *+1 GO REPORT W5D02170
218 | * W5D02180
0014 C00F 219 | TM030 LD TM902 LOAD ERROR CODE W5D02190
0015 D204 220 | STO 2 OPPTR *AND SAVE W5D02200
0016 C012 221 | LD TM907 GET TIMEOUT CODE W5D02210
0017 D209 222 | STO 2 TIMER SET UP TIMEOUT W5D02220
0018 4C80 0002R 223 | TM040 B I TM002 RETURN TO USER W5D02230
224 | * W5D02240
225 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02250
226 | * WRAP TEST COMPLETED - RECONNECT LINE * W5D02260
227 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02270
228 | * W5D02280
001A C00B 229 | TM080 LD TM904 SET UP CONNECT W5D02290
001B D209 230 | STO 2 TIMER *TIMEOUT W5D02300
001C C20B 231 | LD 2 TXPTR GENERATE W5D02310
001D 100C 232 | SLA 12 *CONNECT W5D02320
001E 1808 233 | SRA 8 *ADAPTER W5D02330
001F E803 234 | OR TM901 *IOCC FOR W5D02340
0020 D010 235 | STO TM914+1 *THIS LINE W5D02350
0021 080E 236 | XIO TM914 CONNECT LINE W5D02360
0022 7021 237 | B TM120 RETURN W5D02370
238 | * W5D02380
239 | * W5D02390
240 | *************************************************** W5D02400
241 | * * W5D02410
242 | * IOCC'S AND CONSTANTS (BLOCK 1) * W5D02420
243 | * * W5D02430
244 | *************************************************** W5D02440
245 | * W5D02450
0023 FC04 246 | TM901 DC /FC04 CONNECT IOCC W5D02460
0024 E020 247 | TM902 DC /E020 ATTEMPTIG TO TMT TO A W5D02470
248 | * *2741 WHEN IN RCV MODE W5D02480
0025 02F4 249 | TM903 DC /02F4 ASSEMBLED IDLE W5D02490
0026 8002 250 | TM904 DC /8002 CONNECT TIMEOUT W5D02500
0027 2002 251 | TM905 DC /2002 TMT TIMEOUT CONTROL W5D02510
0028 E00A 252 | TM906 DC /E00A LINK NOT ACTIVE ERROR W5D02520
0029 9001 253 | TM907 DC /9001 REPORT ERROR TIMEOUT W5D02530
002A 0001 254 | TM908 DC /0001 CONSTANT AND BIT 15 W5D02540
002B 2100 255 | TM909 DC /2100 EOR OF TAB AND CRLF W5D02550
002C 1800 256 | TM910 DC /1800 PRINTER CONTROL BITS W5D02560
002D 0010 257 | TM911 DC /0010 SIXTEEN W5D02570
258 | * W5D02580
259 | * STATC LOCATION FOR TMT IDLES W5D02590
260 | * W5D02600
002E 0103 261 | TM912 DC /0103 SIXTEEN W5D02610
002F FFB0 262 | TM913 DC /FFB0 MINUS FIVE W5D02620
263 | * W5D02630
0030 264 | BSS E 0 FORCE EVEN BOUNDARY W5D02640
0030 FF01 265 | TM914 DC /FF01 SENSE/RESET DSW 2 E W5D02650
0031 0000 266 | DC *-* UTILITY IOCC W5D02660
267 | * W5D02670
268 | * W5D02680
269 | *************************************************** W5D02690
270 | * * W5D02700
271 | * INTERRUPT SERVICE ROUTINE * W5D02710
272 | * * W5D02720
273 | *************************************************** W5D02730
274 | * W5D02740
0032 C20A 275 | TM100 LD 2 RXPTR GENERATE SENSE/RESET W5D02750
0033 1004 276 | SLA 4 *DSW2 IOCC W5D02760
0034 E8FB 277 | OR TM914 *FOR THIS LINE W5D02770
0035 D0FB 278 | STO TM914+1 *AND SAVE W5D02780
0036 C680 000A 279 | LD I2 RXPTR SAVE RCV LOCATION W5D02790
0038 D400 00E5R 280 | STO L TM931 *CYCLE STEAL DATA W5D02800
003A C207 281 | LD 2 CNTRL CHECK FOR WRAP MODE W5D02810
003B 4C28 00ABR 282 | BN TM300 BR IF YES W5D02820
283 | * W5D02830
003D 08F2 284 | XIO TM914 SENSE/RESET DSW2 W5D02840
003E D400 00EBR 285 | STO L TM937 *AND SAVE W5D02850
0040 4C28 00ECR 286 | BN TM400 BRANCH IF RCV SERVICE W5D02860
287 | * W5D02870
288 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02880
289 | * CHECK FOR A TRANSMIT INTERRUPT * W5D02890
290 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02900
291 | * W5D02910
0042 1001 292 | TM110 SLA 1 CHECK FOR TRANSMIT W5D02920
0043 4810 293 | SKP - *BIT PRESENT W5D02930
0044 7064 294 | TM120 B TM260 EXIT IF ZERO W5D02940
295 | * W5D02950
296 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02960
297 | * SERVICE TRANSMIT INTERRUPT * W5D02970
298 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D02980
299 | * W5D02990
0045 C207 300 | LD 2 CNTRL CHECK CONTROL FLAGS W5D03000
0046 4C18 0051R 301 | BZ TM130 BR IF NONE SET W5D03010
302 | * W5D03020
0048 1002 303 | SLA 2 CHECK TMT IDLE BIT W5D03030
0049 4C28 0077R 304 | BN TM160 GO SERVICE IF SET W5D03040
305 | * W5D03050
004B 1003 306 | SLA 3 CHECK FOR TMT CRLF W5D03060
004C 4C28 0093R 307 | BN TM210 BR IF SET W5D03070
308 | * W5D03080
004E 1002 309 | SLA 2 CHECK TMT CIRCLE C W5D03090
004F 4C28 0098R 310 | BN TM220 BRANCH IF YES W5D03100
311 | * W5D03110
0051 C205 312 | TM130 LD 2 OPCNT W5D03120
0052 4C18 00A3R 313 | BZ TM250 BR IF ZERO O/P COUNT W5D03130
314 | * W5D03140
315 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03150
316 | * UNPACK OUTPUT DATA * W5D03160
317 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03170
318 | * W5D03180
0054 C680 0004 319 | TM140 LD I2 OPPTR GET O/P COUNT W5D03190
0056 9205 320 | S 2 OPCNT CALCULATE ADDRESS W5D03200
0057 1881 321 | SRT 1 *OF NEXT O/P W5D03210
0058 80D1 322 | A TM908 *CHARACTER W5D03220
0059 8204 323 | A 2 OPPTR SIGN OF EXTENSION W5D03230
005A D004 324 | STO TM150+1 *SHOWS WHICH BYTE W5D03240
005B C205 325 | LD 2 OPCNT DECREMENT W5D03250
005C 90CD 326 | S TM908 *OUTPUT W5D03260
005D D205 327 | STO 2 OPCNT *COUNT W5D03270
005E C400 0000 328 | TM150 LD L *-* GET O/P DATA W5D03280
0060 1081 329 | SLT 1 FIND WHICH BYTE W5D03290
0061 4804 330 | SKP E SKIP FOR LEFT W5D03300
0062 1008 331 | SLA 8 MOVE RIGHT BYTE W5D03310
0063 1801 332 | SRA 1 POSITION W5D03320
0064 E078 333 | AND TM923 CLEAR RIGHT HAND W5D03330
0065 D078 334 | STO TM924 *BITS AND SAVE W5D03340
0066 E0C5 335 | AND TM910 CHECK FOR CONTROL W5D03350
0067 F0C4 336 | EOR TM910 *CHARACTERS BITS W5D03360
0068 4C20 0082R 337 | BNZ TM180 BR IF NO W5D03370
338 | * W5D03380
339 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03390
340 | * TRANSMIT PRINTER FUNCTION CHARACTER * W5D03400
341 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03410
342 | * W5D03420
006A C073 343 | LD TM924 RESTORE CHARACTER W5D03430
006B F074 344 | EOR TM926 CHECK FOR CIRCLE C W5D03440
006C 4C18 009AR 345 | BZ TM230 BR IF YES W5D03450
346 | * W5D03460
006E C06F 347 | LD TM924 W5D03470
006F F06F 348 | EOR TM925 TEST FOR CRLF W5D03480
0070 4C18 008ER 349 | BZ TM200 BRANCH IF YES W5D03490
350 | * W5D03500
0072 F0B8 351 | EOR TM909 CHECK FOR TAB W5D03510
0073 4820 352 | SKP Z SKIP IF YES W5D03520
0074 C0BA 353 | LD TM913 SET UP COUNT W5D03530
0075 8071 354 | A TM933 *FOR PR FUNCTION W5D03540
0076 7018 355 | B TM200+1 GO SET IN STATC W5D03550
356 | * W5D03560
357 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03570
358 | * TRANSMIT AN IDLE * W5D03580
359 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03590
360 | * W5D03600
0077 C06A 361 | TM160 LD TM928 LOAD AN IDLE CHAR W5D03610
0078 D065 362 | STO TM924 *INTO SAVE LOCATION W5D03620
0079 C20C 363 | LD 2 STATC W5D03630
007A 90B2 364 | S TM911 DECR IDLE COUNT W5D03640
007B D20C 365 | STO 2 STATC RESTORE W5D03650
007C 1804 366 | SRA 4 CLEAR STAT COUNT W5D03660
007D 4C20 0082R 367 | BNZ TM180 GO TRANSMIT W5D03670
368 | * W5D03680
007F C207 369 | LD 2 CNTRL W5D03690
0080 F062 370 | EOR TM929 RESET TMT IDLE BIT W5D03700
0081 D207 371 | TM170 STO 2 CNTRL W5D03710
372 | * W5D03720
373 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03730
374 | * TRANSMIT A CHARACTER * W5D03740
375 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03750
376 | * W5D03760
0082 C0A4 377 | TM180 LD TM905 SET UP TMT TIMEOUT W5D03770
0083 D209 378 | STO 2 TIMER W5D03780
379 | * W5D03790
0084 C055 380 | TM190 LD TM920 SET UP A CONSTANT W5D03800
0085 148C*3054 381 | CALL MTCAM *OF VALUE TWO W5D03810
0085 382 | ORG *-2 *IN THE TRANSFER W5D03820
0085 D400 383 | DC /D400 *VECTOR OF W5D03830
0087 384 | ORG *+1 *MTCAM ENTRY POINT W5D03840
0087 0852 385 | XIO TM920 ENABLE TMT W5D03850
386 | * W5D03860
0088 C055 387 | LD TM924 FORMAT CHARACTER W5D03870
0089 1805 388 | SRA 5 *FOR TRANSMISSION W5D03880
008A E856 389 | OR TM927 INCLUDE STOP BIT W5D03890
008B D680 000B 390 | STO I2 TXPTR TRANSMIT W5D03900
008D 701B 391 | B TM260 RETURN TO MTCA0 W5D03910
392 | * W5D03920
393 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03930
394 | * TRANSMIT A CRLF (NORMAL) * W5D03940
395 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D03950
396 | * W5D03960
008E C09F 397 | TM200 LD TM912 SET UP COUNT OF 16 W5D03970
008F D20C 398 | STO 2 STATC STORE IN STAT COUNT WD W5D03980
0090 C207 399 | LD 2 CNTRL W5D03990
0091 E851 400 | OR TM929 SET TMT IDLE BIT W5D04000
0092 70EE 401 | B TM170 GO TRANSMIT CHARACTER W5D04010
402 | * W5D04020
403 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04030
404 | * TRANSMIT A CRLF (FORCED) * W5D04040
405 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04050
406 | * W5D04060
0093 C04B 407 | TM210 LD TM925 LOAD A CRLF CHAR W5D04070
0094 D049 408 | STO TM924 *INTO SAVE LOCATION W5D04080
0095 C207 409 | LD 2 CNTRL RESET TMT CRLF BIT W5D04090
0096 F045 410 | EOR TM922 *SET TMT CIRCLE C BIT W5D04100
0097 7006 411 | B TM240 GO PUT IN CNTRL W5D04110
412 | * W5D04120
413 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04130
414 | * TRANSMIT A CIRCLE C * W5D04140
415 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04150
416 | * W5D04160
0098 C047 417 | TM220 LD TM926 LOAD CIRCLE C CHAR W5D04170
0099 D044 418 | STO TM924 INTO SAVE LOCATION W5D04180
419 | * W5D04190
009A 1010 420 | TM230 SLA 16 CLEAR OUTPUT COUNT W5D04200
009B D205 421 | STO 2 OPCNT W5D04210
009C C207 422 | LD 2 CNTRL RESET W5D04220
009D E046 423 | AND TM930 *TMT CIRCLE C BIT W5D04230
009E D207 424 | TM240 STO 2 CNTRL *IN CONTROL WORD W5D04240
009F C208 425 | LD 2 DIAGN CHECK IGNORE BIT W5D04250
00A0 4C28 0084R 426 | BN TM190 BR IF SET W5D04260
427 | * W5D04270
00A2 70DF 428 | B TM180 GO TMT CHARACTER W5D04280
429 | * W5D04290
430 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04300
431 | * OUTPUT COUNT ZERO * W5D04310
432 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04320
433 | * W5D04330
00A3 C208 434 | TM250 LD 2 DIAGN CHECK FOR DIAGNOSTIC W5D04340
00A4 4C10 00D1R 435 | BNN TM320 BR IF NOT IGNORE BIT W5D04350
436 | * W5D04360
00A6 1010 437 | SLA 16 CLEAR W5D04370
00A7 D207 438 | STO 2 CNTRL *CONTROL WORD W5D04380
00A8 D208 439 | STO 2 DIAGN *DIAGNOSTIC CONTROL W5D04390
440 | * W5D04400
00A9 4C80 0000R 441 | TM260 B I TSM41 RETURN TO MTCA0 W5D04410
442 | * W5D04420
443 | * W5D04430
444 | *************************************************** W5D04440
445 | * * W5D04450
446 | * WRAP MODE SERVICE * W5D04460
447 | * * W5D04470
448 | *************************************************** W5D04480
449 | * W5D04490
450 | * W5D04500
00AB 0884 451 | TM300 XIO TM914 SENSE/RESET DSW2 W5D04510
00AC 180C 452 | SRA 12 ISOLATE RCV/TMT BITS W5D04520
00AD EA07 453 | OR 2 CNTRL SET INTO CONTROL WD W5D04530
00AE D207 454 | STO 2 CNTRL W5D04540
00AF E039 455 | AND TM935 CHECK FOR BOTH BITS W5D04550
00B0 F038 456 | EOR TM935 *RECEIVED W5D04560
00B1 4C20 00A9R 457 | BNZ TM260 BR IF NO W5D04570
458 | * W5D04580
459 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04590
460 | * COMPARE LOOPED DATA * W5D04600
461 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04610
462 | * W5D04620
00B3 C207 463 | LD 2 CNTRL RESET BOTH TMT AND W5D04630
00B4 F034 464 | EOR TM935 *RCV INTERRUPT BITS W5D04640
00B5 D207 465 | STO 2 CNTRL W5D04650
00B6 C02E 466 | LD TM931 GET RCV LOCATION W5D04660
00B7 1807 467 | SRA 7 REMOVE ASSEMBLY AREA W5D04670
00B8 6101 468 | LDX 1 1 SET UP BIT COUNT W5D04680
00B9 4804 469 | TM310 SKP E SKIP IF NO BIT THERE W5D04690
00BA 7101 470 | MDX 1 1 INCR BIT COUNT W5D04700
00BB 1801 471 | SRA 1 MOVE TO NEXT BIT W5D04710
00BC 4820 472 | SKP Z EXIT IF ALL DONE W5D04720
00BD 70FB 473 | B TM310 GO TEST THIS BIT W5D04730
474 | * W5D04740
00BE 691F 475 | STX 1 TM924 CHECK PARITY W5D04750
00BF C01E 476 | LD TM924 *OF XR1 W5D04760
00C0 4C04 00A9R 477 | BOD TM260 BR IF BAD PARITY W5D04770
478 | * W5D04780
00C2 C022 479 | LD TM931 GET RCVD CHARACTER W5D04790
00C3 1001 480 | SLA 1 DROP VRC BIT W5D04800
00C4 1808 481 | SRA 8 W5D04810
00C5 F204 482 | EOR 2 LPDAT COMPARE WITH TMT DATA W5D04820
00C6 4C20 00A9R 483 | BNZ TM260 BRANCH IF BAD COMPARE W5D04830
484 | * W5D04840
485 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04850
486 | * GOOD COMPARE - TMT NEXT CHAR * W5D04860
487 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D04870
488 | * W5D04880
00C8 C204 489 | LD 2 LPDAT INCREMENT W5D04890
00C9 801C 490 | A TM932 *TRANSMIT W5D04900
00CA D204 491 | STO 2 LPDAT *DATA W5D04910
00CB 1008 492 | SLA 8 FORMAT W5D04920
00CC D011 493 | STO TM924 PUT INTO O/P SAVE W5D04930
494 | * ALL 128 CHARS LOOPED W5D04940
00CD 4C28 001AR 495 | BN TM080 BR IF YES W5D04950
496 | * W5D04960
00CF C018 497 | LD TM934 SET UP TMT TIMEOUT W5D04970
00D0 70B2 498 | B TM180+1 GO TMT NEXT CHAR W5D04980
499 | * W5D04990
500 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05000
501 | * NORMAL EXIT PATH * W5D05010
502 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05020
503 | * W5D05030
00D1 4C20 0227R 504 | TM320 BNZ TD040 BR IF ANY DIAGN BITS W5D05040
505 | * W5D05050
00D3 C209 506 | LD 2 TIMER CHECK DIAGNOSTIC MODE W5D05060
00D4 180E 507 | SRA 14 *TIMER CONTROL W5D05070
00D5 4C20 00A9R 508 | BNZ TM260 RETURN IF YES W5D05080
509 | * W5D05090
00D7 D200 510 | STO 2 LNBSY CLEAR LINE BUSY W5D05100
00D8 D209 511 | STO 2 TIMER *AND TIMER W5D05110
00D9 70CF 512 | B TM260 BR TO EXIT W5D05120
513 | * W5D05130
514 | * W5D05140
515 | *************************************************** W5D05150
516 | * * W5D05160
517 | * IOCC'S AND CONSTANTS (BLOCK 2) * W5D05170
518 | * * W5D05180
519 | *************************************************** W5D05190
520 | * W5D05200
00DA 521 | BSS E 0 FORCE ALIGNMENT W5D05210
00DA 0002 522 | TM920 DC 2 CONSTANT - TWO E W5D05220
00DB FC0A 523 | DC /FC0A ENABLE TMT IOCC W5D05230
00DC 0500 524 | TM922 DC /0500 BITS 5 AND 7 W5D05240
00DD FF00 525 | TM923 DC /FF00 MASK LEFT BYTE W5D05250
00DE 0000 526 | TM924 DC *-* SAVE TMT CHAR AND W5D05260
527 | * *ALSO PARITY ON WRAP W5D05270
00DF 5B00 528 | TM925 DC /5B00 CRLF W5D05280
00E0 1F00 529 | TM926 DC /1F00 CIRCLE C W5D05290
00E1 0004 530 | TM927 DC /0004 BIT 13 W5D05300
00E2 5E00 531 | TM928 DC /5E00 IDLE W5D05310
00E3 2000 532 | TM929 DC /2000 BIT 2 W5D05320
00E4 FEFF 533 | TM930 DC /FEFF NOT BIT 7 W5D05330
00E5 0000 534 | TM931 DC *-* SAVE RCV DATA W5D05340
00E6 0001 535 | TM932 DC 1 CONSTANT - ONE W5D05350
00E7 0063 536 | TM933 DC /0063 6 IDLES W5D05360
00E8 7002 537 | TM934 DC /7002 WRAP DATA TIMEOUT W5D05370
00E9 000C 538 | TM935 DC /000C BITS 12 AND 13 W5D05380
00EA 5000 539 | TM936 DC /5000 BITS 1 AND 3 W5D05390
00EB 0000 540 | TM937 DC *-* SAVE DSW 2 W5D05400
541 | * W5D05410
542 | * W5D05420
543 | *************************************************** W5D05430
544 | * * W5D05440
545 | * RECEIVE CHARACTER SERVICE * W5D05450
546 | * * W5D05460
547 | *************************************************** W5D05470
548 | * W5D05480
00EC C0F8 549 | TM400 LD TM931 GET RCV DATA W5D05490
00ED 1001 550 | SLA 1 FORMAT W5D05500
00EE E0EE 551 | AND TM923 *CHARACTER AND W5D05510
00EF D076 552 | STO TM940 *SAVE W5D05520
00F0 C207 553 | LD 2 CNTRL W5D05530
00F1 1001 554 | SLA 1 TEST FOR TMT MODE W5D05540
00F2 4C10 01B0R 555 | BNN TM660 BRANCH IF YES W5D05550
556 | * W5D05560
557 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05570
558 | * CHECK IF TEST FOR DIAGNOSTIC REQD * W5D05580
559 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05590
560 | * W5D05600
00F4 1002 561 | SLA 2 IS TEST FOR D REQD W5D05610
00F5 4C28 0177R 562 | BN TM560 BRANCH IF YES TO TEST W5D05620
563 | * *FOR ON LINE DIAG CALL W5D05630
564 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05640
565 | * CHECK FOR CIRCLE C * W5D05650
566 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05660
567 | * W5D05670
00F7 C06E 568 | TM410 LD TM940 GET RCVD CHARACTER W5D05680
00F8 F0E7 569 | EOR TM926 IS IT CIRCLE C W5D05690
00F9 4C18 0114R 570 | BZ TM440 BRANCH IF YES W5D05700
571 | * W5D05710
00FB C208 572 | LD 2 DIAGN IGNORE DATA W5D05720
00FC 4C28 0111R 573 | BN TM430 YES GO TEST FOR W5D05730
574 | * *TMT SERVICE W5D05740
00FE C203 575 | LD 2 IPCNT CHECK ZERO I/P COUNT W5D05750
00FF 4C18 0111R 576 | BZ TM430 YES GO TEST FOR W5D05760
577 | * *TMT SERVICE W5D05770
0101 C0E3 578 | LD TM931 CHECK FOR VRC ERROR W5D05780
0102 4C28 0153R 579 | BN TM520 BRANCH IF YES W5D05790
580 | * W5D05800
0104 C0E6 581 | TM420 LD TM937 LOAD DSW 2 W5D05810
0105 4C04 0161R 582 | BOD TM550 BRANCH IF OVERRUN W5D05820
583 | * W5D05830
0107 C05E 584 | LD TM940 LOAD RCV DATA W5D05840
0108 F0D6 585 | EOR TM925 TEST FOR CRLF W5D05850
0109 4C18 0150R 586 | BZ TM510 BRANCH IF YES W5D05860
587 | * W5D05870
010B 407B 588 | BSI TM600 GO PACK I/P CHARACTER W5D05880
589 | * W5D05890
010C C05B 590 | LD TM942 SET UP RCV TIMEOUT W5D05900
010D D209 591 | STO 2 TIMER W5D05910
010E C203 592 | LD 2 IPCNT BRANCH IF I/P COUNT W5D05920
010F 4C18 01DER 593 | BZ TM710 *IS ZERO W5D05930
594 | * W5D05940
0111 C0D9 595 | TM430 LD TM937 LOAD DSW 2 W5D05950
0112 4C00 0042R 596 | B L TM110 GO CHECK FOR TMT W5D05960
597 | * W5D05970
598 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D05980
599 | * CIRCLE C RECEIVED * W5D05990
600 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06000
601 | * W5D06010
0114 C207 602 | TM440 LD 2 CNTRL RESET RCV MODE W5D06020
0115 E054 603 | AND TM944 *BIT IN CNTRL W5D06030
0116 D207 604 | STO 2 CNTRL W5D06040
0117 1010 605 | SLA 16 CLEAR OUTPUT COUNT W5D06050
0118 D205 606 | STO 2 OPCNT W5D06060
607 | * W5D06070
608 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06080
609 | * SET UP DISABLE TMT TIMEOUT * W5D06090
610 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06100
611 | * W5D06110
0119 C0C0 612 | LD TM920 SET UP A CONSTANT W5D06120
011A 148C*3054 613 | CALL MTCAM *OF VALUE TWO W5D06130
011A 614 | ORG *-2 *IN THE TRANSFER W5D06140
011A D400 615 | DC /D400 *VECTOR OF W5D06150
011C 616 | ORG *+1 *MTCAM ENTRY POINT W5D06160
617 | * W5D06170
011C 08BD 618 | XIO TM920 ENABLE TMT W5D06180
619 | * W5D06190
011D C04E 620 | LD TM946 TMT PADDED W5D06200
011E D680 000B 621 | STO I2 TXPTR *CIRCLE D CHAR W5D06210
0120 C208 622 | LD 2 DIAGN TEST FOR IGNORE DATA W5D06220
0121 4C28 0111R 623 | BN TM430 BRANCH IF SET W5D06230
624 | * W5D06240
0123 4C20 0132R 625 | BNZ TM460 BR IF ANY BIT SET W5D06250
626 | * W5D06260
0125 C202 627 | LD 2 IPPTR HAVE WE HAD FIRST READ W5D06270
0126 4C18 01D8R 628 | BZ TM700 BR IF NO W5D06280
629 | * W5D06290
0128 C207 630 | LD 2 CNTRL TEST FOR BAD W5D06300
0129 1008 631 | SLA 8 *MESSAGE W5D06310
012A 4C28 012FR 632 | BN TM450 BRANCH IF YES W5D06320
633 | * W5D06330
012C C20E 634 | LD 2 STAT2 INCREMENT W5D06340
012D 8039 635 | A TM941 *GOOD MESSAGES W5D06350
012E D20E 636 | STO 2 STAT2 *READ COUNT W5D06360
637 | * W5D06370
012F C20F 638 | TM450 LD 2 STAT3 INCREMENT W5D06380
0130 8036 639 | A TM941 *TOTAL MESSAGES W5D06390
0131 D20F 640 | STO 2 STAT3 *READ COUNT W5D06400
0132 C207 641 | TM460 LD 2 CNTRL W5D06410
0133 E042 642 | AND TM956 RESET BAD MESSAGE W5D06420
0134 D207 643 | STO 2 CNTRL *INDICATOR BIT W5D06430
0135 C035 644 | LD TM945 SET UP TMT TIMEOUT W5D06440
0136 D209 645 | STO 2 TIMER W5D06450
0137 C203 646 | LD 2 IPCNT TEST ZERO I/P COUNT W5D06460
0138 4C20 0140R 647 | BNZ TM470 BRANCH IF NON ZERO W5D06470
648 | * W5D06480
013A C0AC 649 | LD TM933 SET UP IDLE COUNT W5D06490
013B D20C 650 | STO 2 STATC *IN I/P POINTER W5D06500
013C C207 651 | LD 2 CNTRL SET ON TMT W5D06510
013D E8A5 652 | OR TM929 *IDLE BIT IN CONTROL W5D06520
013E D207 653 | STO 2 CNTRL *WORD W5D06530
013F 70D1 654 | B TM430 GO TEST FOR TMT W5D06540
655 | * W5D06550
0140 4046 656 | TM470 BSI TM600 GO PACK I/P CHAR W5D06560
657 | * W5D06570
0141 C680 0002 658 | TM480 LD I2 IPPTR CHANGE I/P COUNT IN W5D06580
0143 9203 659 | S 2 IPCNT *USER AREA FOR ACTUAL W5D06590
0144 D680 0002 660 | STO I2 IPPTR *CHARS RCVD COUNT W5D06600
0146 1010 661 | SLA 16 W5D06610
0147 D203 662 | STO 2 IPCNT CLEAR I/P COUNT W5D06620
0148 70C8 663 | TM490 B TM430 RETURN W5D06630
664 | * W5D06640
665 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06650
666 | * CIRCLE D RECEIVED * W5D06660
667 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06670
668 | * W5D06680
0149 C0A0 669 | TM500 LD TM936 SET RCV MODE BITS W5D06690
014A D207 670 | STO 2 CNTRL *IN CONTROL WORD W5D06700
014B C208 671 | LD 2 DIAGN W5D06710
014C 1001 672 | SLA 1 TEST FOR DIAG WRITE W5D06720
014D 4C28 02B2R 673 | BN TD460 BRANCH IF YES W5D06730
674 | * W5D06740
014F 70C1 675 | B TM430 RETURN W5D06750
676 | * W5D06760
0150 C017 677 | TM510 LD TM942 SET RCV TIMEOUT, GO W5D06770
0151 D209 678 | STO 2 TIMER *CHANGE COUNT IN W5D06780
0152 70EE 679 | B TM480 *USERS I/P AREA W5D06790
680 | * W5D06800
681 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06810
682 | * VRC ERROR ROUTINE * W5D06820
683 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D06830
684 | * W5D06840
0153 C208 685 | TM520 LD 2 DIAGN CHECK FOR DIAG MODE W5D06850
0154 4C20 0159R 686 | BNZ TM530 BR IF YES W5D06860
687 | * W5D06870
0156 C20D 688 | LD 2 STAT1 INCREMENT W5D06880
0157 800F 689 | A TM941 *VRC ERROR W5D06890
0158 D20D 690 | STO 2 STAT1 *COUNT W5D06900
691 | * W5D06910
0159 4049 692 | TM530 BSI TM630 CALCULATE LINE W5D06920
693 | * W5D06930
015A C017 694 | LD TM952 LOAD ERROR CODE W5D06940
015B 4680 0006 695 | TM540 BSI I2 ERROR GO TO USER W5D06950
696 | * W5D06960
015D C207 697 | LD 2 CNTRL W5D06970
015E E815 698 | OR TM954 SET ERROR BIT W5D06980
015F D207 699 | STO 2 CNTRL W5D06990
0160 70A3 700 | B TM420 CONTINUE W5D07000
701 | * W5D07010
702 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07020
703 | * DATA OVERRUN ERROR * W5D07030
704 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07040
705 | * W5D07050
0161 F005 706 | TM550 EOR TM941 RESET OVERRUN BIT W5D07060
0162 D088 707 | STO TM937 *AND RESTORE W5D07070
0163 403F 708 | BSI TM630 CALCLUATE LINE W5D07080
709 | * W5D07090
0164 C00E 710 | LD TM953 LOAD ERROR CODE W5D07100
0165 70F5 711 | B TM540 GO REPORT ERROR W5D07110
712 | * W5D07120
713 | * W5D07130
714 | *************************************************** W5D07140
715 | * * W5D07150
716 | * IOCC'S AND CONSTANTS (BLOCK 3) * W5D07160
717 | * * W5D07170
718 | *************************************************** W5D07180
719 | * W5D07190
0166 0000 720 | TM940 DC *-* SAVE RCV CHARACTER W5D07200
0167 0001 721 | TM941 DC 1 CONSTANT - ONE W5D07210
0168 100F 722 | TM942 DC /100F RCV TIMEOUT CONTROL W5D07220
0169 1600 723 | TM943 DC /1600 CIRCLE D W5D07230
016A BFFF 724 | TM944 DC /BFFF NOT BIT 1 W5D07240
016B 2002 725 | TM945 DC /2002 TMT CHAR TIMEOUT W5D07250
016C 062D 726 | TM946 DC /062D ASSMBLD CIRCLE D W5D07260
016D 0200 727 | TM947 DC /0200 BIT 6 W5D07270
016E 0100 728 | TM948 DC /0100 BIT 7 W5D07280
016F 6800 729 | TM949 DC /6800 CHARACTER D W5D07290
0170 0800 730 | TM950 DC /0800 BIT 4 W5D07300
0171 000F 731 | TM951 DC /000F MASK LAST DIGIT W5D07310
0172 E00E 732 | TM952 DC /E00E VRC ERROR CODE W5D07320
0173 E009 733 | TM953 DC /E009 DATA OVERRUN ERROR W5D07330
0174 0080 734 | TM954 DC /0080 BIT 8 W5D07340
0175 FF00 735 | TM955 DC /FF00 MASK LEFT BYTE W5D07350
0176 FF7F 736 | TM956 DC /FF7F NOT BIT 8 W5D07360
737 | * W5D07370
738 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07380
739 | * TEST FOR DIAGNOSTIC FROM A TERMINAL * W5D07390
740 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07400
741 | * W5D07410
0177 C0EE 742 | TM560 LD TM940 GET RCV CHAR W5D07420
0178 F0F6 743 | EOR TM949 IS IT A D W5D07430
0179 4C18 0180R 744 | BZ TM580 BRANCH IF YES W5D07440
745 | * W5D07450
017B C06D 746 | LD TM963 RESET BITS 3 AND 4 W5D07460
017C E207 747 | AND 2 CNTRL *OF CONTROL WORD W5D07470
017D D207 748 | TM570 STO 2 CNTRL W5D07480
017E 4C00 00F7R 749 | B L TM410 RETURN TO COMPLETE W5D07490
750 | * *SERVICE W5D07500
0180 C207 751 | TM580 LD 2 CNTRL ONE D ALREADY W5D07510
0181 1004 752 | SLA 4 W5D07520
0182 4C28 01F6R 753 | BN TD010 BRANCH IF YES W5D07530
754 | * W5D07540
0184 C0EB 755 | LD TM950 SET BIT 4 W5D07550
0185 EA07 756 | OR 2 CNTRL *IN CONTROL WORD W5D07560
0186 70F6 757 | B TM570 BR TO STORE W5D07570
758 | * W5D07580
759 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07590
760 | * PACK I/P DATA ROUTINE * W5D07600
761 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07610
762 | * W5D07620
0187 0000 763 | TM600 DC *-* W5D07630
0188 C203 764 | LD 2 IPCNT DECREMENT W5D07640
0189 90DD 765 | S TM941 *INPUT W5D07650
018A D203 766 | STO 2 IPCNT *COUNT W5D07660
018B C680 0002 767 | LD I2 IPPTR CALCULATE W5D07670
018D 9203 768 | S 2 IPCNT *STORAGE ADDR W5D07680
018E 80D8 769 | A TM941 *FOR THE CHARACTER W5D07690
018F 1881 770 | SRT 1 SIGN OF THE EXT W5D07700
0190 8202 771 | A 2 IPPTR *INDICATES WHICH W5D07710
0191 D007 772 | STO TM610+1 *HALF OF THE WORD W5D07720
0192 C0D3 773 | LD TM940 GET THE RCV CHARACTER W5D07730
0193 1807 774 | SRA 7 CLEAR EXTRA W5D07740
0194 1006 775 | SLA 6 *INFORMATION W5D07750
0195 1081 776 | SLT 1 MOVE INDICATOR INTO ACC W5D07760
0196 4804 777 | SKP E SKIP IF LEFT PACKING W5D07770
0197 7004 778 | B TM620 BRANCH FOR RIGHT PACKING W5D07780
779 | * W5D07790
0198 D400 0000 780 | TM610 STO L *-* STORE IN I/P AREA W5D07800
019A 4C80 0187R 781 | B I TM600 RETURN W5D07810
782 | * W5D07820
019C 1808 783 | TM620 SRA 8 MOVE TO RIGHT PORTION W5D07830
019D D0C8 784 | STO TM940 *AND SAVE W5D07840
019E C480 0199R 785 | LD I TM610+1 GET PREVIOUS CHAR W5D07850
01A0 E0D4 786 | AND TM955 REMOVE RIGHT BYTE W5D07860
01A1 E8C4 787 | OR TM940 *ADD THIS CHARACTER W5D07870
01A2 70F5 788 | B TM610 GO STORE IN USER'S AREA W5D07880
789 | * W5D07890
790 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07900
791 | * CALCULATE LINE NUMBER SUBROUTINE * W5D07910
792 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D07920
793 | * W5D07930
01A3 0000 794 | TM630 DC *-* SAVE RETURN ADDR W5D07940
01A4 C206 795 | LD 2 ERROR GET ERROR ADDRESS W5D07950
01A5 4C20 01AAR 796 | BNZ TM640 BRANCH IF VALID W5D07960
797 | * W5D07970
01A7 7403 01A3R 798 | MDM L TM630,3 INCR RETURN ADDR W5D07980
799 | * W5D07990
01A9 7004 800 | B TM650 RETURN WITH ZERO W5D08000
801 | * W5D08010
01AA C20B 802 | TM640 LD 2 TXPTR CALCULATE W5D08020
01AB E0C5 803 | AND TM951 *LINE W5D08030
01AC 80BA 804 | A TM941 *NUMBER W5D08040
01AD 18D0 805 | XCH PUT INTO EXT W5D08050
01AE 4C80 01A3R 806 | TM650 B I TM630 RETURN W5D08060
807 | * W5D08070
808 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08080
809 | * CHARACTER RECEIVED WHEN IN TMT MODE * W5D08090
810 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08100
811 | * W5D08110
01B0 C0B5 812 | TM660 LD TM940 IS IT A SPACE W5D08120
01B1 4C18 01C7R 813 | BZ TM690 BR IF YES W5D08130
814 | * W5D08140
01B3 C205 815 | LD 2 OPCNT WRITE IN PROGRESS W5D08150
01B4 4C20 0111R 816 | BNZ TM430 BR IF YES W5D08160
817 | * W5D08170
01B6 C0AF 818 | LD TM940 CHECK CIRCLE D W5D08180
01B7 F0B1 819 | EOR TM943 W5D08190
01B8 4C18 0149R 820 | BZ TM500 BR IF YES W5D08200
821 | * W5D08210
01BA C207 822 | LD 2 CNTRL IS THIS END OF W5D08220
01BB 1006 823 | SLA 6 *INTERRUPT FEATURE W5D08230
01BC 4C28 01C3R 824 | BN TM670 BR IF YES W5D08240
825 | * W5D08250
01BE C0A7 826 | LD TM940 RESTORE RCV DATA W5D08260
01BF F02C 827 | EOR TM966 CHECK CIRCLE C W5D08270
01C0 4C18 0114R 828 | BZ TM440 BR IF YES W5D08280
829 | * W5D08290
01C2 7085 830 | B TM490 GO CHECK FOR TMT W5D08300
831 | * W5D08310
01C3 C0A9 832 | TM670 LD TM947 RESET OR SET W5D08320
01C4 F207 833 | EOR 2 CNTRL *BIT SIX W5D08330
01C5 D207 834 | TM680 STO 2 CNTRL W5D08340
01C6 7081 835 | B TM490 GO CHECK FOR TMT W5D08350
836 | * W5D08360
01C7 C207 837 | TM690 LD 2 CNTRL HAVE WE ALREADY HAD W5D08370
01C8 1006 838 | SLA 6 *ONE SPACE W5D08380
01C9 4C10 01C3R 839 | BNN TM670 BR IF NO W5D08390
840 | * W5D08400
841 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08410
842 | * REPORT INTERRUPT FEATURE RECOGNISED * W5D08420
843 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08430
844 | * W5D08440
01CB C205 845 | LD 2 OPCNT IS WRITE IN PROGRESS W5D08450
01CC 4C18 0111R 846 | BZ TM430 BR IF NO W5D08460
847 | * W5D08470
01CE 40D4 848 | BSI TM630 GO GET LINE NUMBER W5D08480
849 | * W5D08490
01CF C018 850 | LD TM962 LOAD ERROR CODE W5D08500
01D0 4680 0006 851 | BSI I2 ERROR GO TO USER W5D08510
852 | * W5D08520
01D2 4C20 0111R 853 | BNZ TM430 BRANCH IF USER WISHES W5D08530
854 | * *TO IGNORE INTERRUPTION W5D08540
01D4 D205 855 | STO 2 OPCNT CLEAR O/P COUNT W5D08550
01D5 C019 856 | LD TM969 LOAD BIT 5 W5D08560
01D6 EA07 857 | OR 2 CNTRL *(TMT CRLF, CIRC C) W5D08570
01D7 70ED 858 | B TM680 GO SET INTO CNTRL W5D08580
859 | * W5D08590
860 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08600
861 | * DATA RCVD PRIOR TO FIRST READ * W5D08610
862 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08620
863 | * W5D08630
01D8 C209 864 | TM700 LD 2 TIMER HOLD OFF W5D08640
01D9 4820 865 | SKP Z *ANY PENDING W5D08650
01DA 808C 866 | A TM941 *TIMEOUT CONDITION W5D08660
01DB D209 867 | STO 2 TIMER W5D08670
01DC C091 868 | LD TM948 GET TMT CIRCLE C BIT W5D08680
01DD 70E7 869 | B TM680 SET BIT INTO CONTROL W5D08690
870 | * W5D08700
871 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08710
872 | * REPORT LOST DATA ERROR * W5D08720
873 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D08730
874 | * W5D08740
01DE 40C4 875 | TM710 BSI TM630 CALCULATE LINE NUMBER W5D08750
876 | * W5D08760
01DF C007 877 | LD TM961 LOAD ERROR CODE W5D08770
01E0 4680 0006 878 | BSI I2 ERROR REPORT ERROR W5D08780
879 | * BRANCH IF USER W5D08790
01E2 4C20 0111R 880 | BNZ TM430 *WISHES TO IGNORE W5D08800
881 | * W5D08810
01E4 D200 882 | STO 2 LNBSY CLEAR LINE BUSY FLAG W5D08820
01E5 D209 883 | STO 2 TIMER *AND TIMER W5D08830
01E6 70DF 884 | B TM680+1 GO CHECK FOR TMT W5D08840
885 | * W5D08850
886 | * W5D08860
887 | *************************************************** W5D08870
888 | * * W5D08880
889 | * IOCC'S AND CONSTANTS (BLOCK 4) * W5D08890
890 | * * W5D08900
891 | *************************************************** W5D08910
892 | * W5D08920
01E7 E021 893 | TM961 DC /E021 2741 LOST DATA ERROR W5D08930
01E8 E022 894 | TM962 DC /E022 2741 INTERRUPT ERROR W5D08940
01E9 E7FF 895 | TM963 DC /E7FF NOT BITS 3 AND 4 W5D08950
01EA 0263R 896 | TM964 DC TD909 I/P BUFFER AREA W5D08960
01EB 002E 897 | TM965 DC 46 I/P DATA COUNT W5D08970
01EC 1F00 898 | TM966 DC /1F00 CIRCLE C W5D08980
01ED 100F 899 | TM967 DC /100F RCV DATA TIMEOUT W5D08990
01EE 2000 900 | TM968 DC /2000 BIT 2 W5D09000
01EF 0400 901 | TM969 DC /0400 TMT NL BIT W5D09010
01F0 0005 902 | TM970 DC 5 CONSTANT - FIVE W5D09020
903 | * * W5D09030
904 | * ROUTINE BRANCH ADDRESS TABLE * W5D09040
905 | * * W5D09050
01F1 01F6R 906 | TM971 DC TM972+4 W5D09060
01F2 0240R 907 | TM972 DC TD200 MESSAGE RETURN W5D09070
01F3 02D1R 908 | DC TD600 ROCK,ROLL AND TWIST W5D09080
01F4 02D3R 909 | DC TD610 PRINTER FUNCTION TEST W5D09090
01F5 02FFR 910 | DC TD700 ADAPTER WRAP TEST W5D09100
911 | * W5D09110
TSM41 - ON-LINE DIAGNOSTICS
913 | *************************************************** W5D09130
914 | * * W5D09140
915 | * ON-LINE DIAGNOSTICS MODULE * W5D09150
916 | * * W5D09160
917 | *************************************************** W5D09170
918 | * W5D09180
01F6 C203 919 | TD010 LD 2 IPCNT WAS A READ IN PROGRESS W5D09190
01F7 4820 920 | SKP Z SKIP IF NO W5D09200
01F8 8064 921 | A TD903 ADD ONE TO RESTORE TO W5D09210
01F9 D203 922 | STO 2 IPCNT *ORIGINAL VALUE W5D09220
01FA C207 923 | LD 2 CNTRL RESET CONTROL BITS 3+4 W5D09230
01FB E0ED 924 | AND TM963 - CHECK FOR DIAGNOSTIC W5D09240
01FC D207 925 | STO 2 CNTRL - ONE D ALREADY RCVD W5D09250
01FD 7400 025BR 926 | MDM L TD901,0 TEST FOR MODULE BUSY W5D09260
01FF 7039 927 | B TD110 BRANCH IF YES W5D09270
928 | * W5D09280
0200 C200 929 | LD 2 LNBSY LINE ABOUT TO BE BUSY W5D09290
0201 4C28 0239R 930 | BN TD110 BR IF YES W5D09300
931 | * W5D09310
0203 6857 932 | STX TD901 SET MODULE BUSY FLAG W5D09320
933 | * W5D09330
934 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09340
935 | * SAVE LCB WORDS * W5D09350
936 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09360
937 | * W5D09370
0204 6109 938 | LDX 1 9 SET UP INDEX W5D09380
0205 6A01 939 | STX 2 *+1 SET UP BASE ADDR W5D09390
0206 C500 0000 940 | TD020 LD L1 *-* SAVE AN LCB WORD W5D09400
0208 D500 03C9R 941 | STO L1 TD990-1 *IN SAVE BLOCK W5D09410
020A 71FF 942 | MDX 1 -1 DECREMENT INDEX W5D09420
020B 70FA 943 | B TD020 RETURN FOR NEXT WORD W5D09430
944 | * W5D09440
945 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09450
946 | * SET UP DIAGNOSTIC READ * W5D09460
947 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09470
948 | * W5D09480
020C C0DD 949 | LD TM964 SET UP AN INPUT BUFFER W5D09490
020D D202 950 | STO 2 IPPTR *FOR THE INCOMING DATA W5D09500
020E C0DC 951 | LD TM965 SET UP A COUNT IN W5D09510
020F D053 952 | STO TD909 *INPUT BUFFER W5D09520
0210 904C 953 | S TD903 SUBTRACT ONE W5D09530
0211 D203 954 | STO 2 IPCNT PUT INTO I/P COUNT W5D09540
0212 C04B 955 | LD TD904 SET UP AN ERROR W5D09550
0213 D206 956 | STO 2 ERROR *ROUTINE W5D09560
0214 C0D8 957 | LD TM967 SET UP A READ W5D09570
0215 D209 958 | STO 2 TIMER *DATA TIMEOUT W5D09580
0216 C0D7 959 | LD TM968 SET UP W5D09590
0217 D208 960 | STO 2 DIAGN *DIAGNOSTIC READ W5D09600
0218 7025 961 | B TD120 RETURN TO MTCA0 W5D09610
962 | * W5D09620
963 | * W5D09630
964 | *************************************************** W5D09640
965 | * * W5D09650
966 | * DIAGNOSTIC READ COMPLETED * W5D09660
967 | * * W5D09670
968 | *************************************************** W5D09680
969 | * W5D09690
0219 C049 970 | TD030 LD TD909 CHECK COUNT OF W5D09700
021A 1802 971 | SRA 2 *CHARACTERS RCVD W5D09710
021B 4C18 0254R 972 | BZ TD230 BR IF TOO LOW W5D09720
973 | * W5D09730
021D C046 974 | LD TD909+1 GET FIRST CHARACTER W5D09740
021E 1801 975 | SRA 1 CHECK VALID W5D09750
021F 4820 976 | SKP Z SKIP IF ZERO W5D09760
0220 90CF 977 | S TM970 SUBTRACT FIVE W5D09770
0221 4C10 0254R 978 | BNN TD230 BR IF INVALID W5D09780
979 | * W5D09790
0223 80CD 980 | A TM971 SET UP BR ADDRESS W5D09800
0224 D001 981 | STO *+1 *IN NEXT INSTRUCTION W5D09810
0225 4C80 0000 982 | B I *-* BR TO HANDLE REQUEST W5D09820
983 | * W5D09830
984 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09840
985 | * OUTPUT COUNT ZERO * W5D09850
986 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D09860
987 | * W5D09870
0227 4C04 02E7R 988 | TD040 BOD TD630 BR IF REPEAT MESSAGE W5D09880
989 | * W5D09890
0229 1002 990 | SLA 2 CHECK DIAG READ W5D09900
022A 4C28 0219R 991 | BN TD030 BR IF YES W5D09910
992 | * W5D09920
022C 7011 993 | B TD120 WAIT FOR CIRCLE D W5D09930
994 | * W5D09940
995 | * W5D09950
996 | *************************************************** W5D09960
997 | * * W5D09970
998 | * NORMAL ERROR HANDLING ROUTINE * W5D09980
999 | * * W5D09990
1000 | *************************************************** W5D10000
1001 | * W5D10010
022D 0000 1002 | TD100 DC *-* W5D10020
022E F0B9 1003 | EOR TM962 CHECK FOR INT FEATURE W5D10030
022F 18D0 1004 | XCH SAVE ACC W5D10040
0230 4050 1005 | BSI TD300 RESTORE LCB W5D10050
1006 | * W5D10060
0231 C02A 1007 | LD TD902 SET IGNORE DATA BIT W5D10070
0232 D208 1008 | STO 2 DIAGN *IN DIAGNOSTIC FLAGS W5D10080
0233 C0BB 1009 | LD TM969 SET TMT CRLF BIT W5D10090
0234 EA07 1010 | OR 2 CNTRL *INTO CONTROL WORD W5D10100
0235 D207 1011 | STO 2 CNTRL W5D10110
0236 18D0 1012 | XCH RESTORE ACC W5D10120
0237 4C80 022DR 1013 | B I TD100 RETURN W5D10130
1014 | * W5D10140
1015 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D10150
1016 | * MODULE BUSY - SEND CIRCLE C * W5D10160
1017 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D10170
1018 | * W5D10180
0239 C207 1019 | TD110 LD 2 CNTRL W5D10190
023A E8B4 1020 | OR TM969 SET ON TMT NL AND W5D10200
023B D207 1021 | STO 2 CNTRL *CIRCLE C BIT W5D10210
023C C01F 1022 | LD TD902 SET ON IGNORE W5D10220
023D D208 1023 | STO 2 DIAGN *DATA BIT W5D10230
023E 4C80 0000R 1024 | TD120 B I TSM41 RETURN TO MTCA0 W5D10240
1025 | * W5D10250
1026 | *************************************************** W5D10260
1027 | * * W5D10270
1028 | * RETURN MESSAGE ROUTINE * W5D10280
1029 | * * W5D10290
1030 | *************************************************** W5D10300
1031 | * W5D10310
0240 404E 1032 | TD200 BSI TD400 CHECK ADAPTER NUMBER W5D10320
1033 | * W5D10330
0241 4C20 0254R 1034 | BNZ TD230 BR IF NOT THIS ONE W5D10340
1035 | * W5D10350
0243 C01F 1036 | LD TD909 GET I/P COUNT W5D10360
0244 9018 1037 | S TD903 CALCULATE W5D10370
0245 1801 1038 | SRA 1 *END OF W5D10380
0246 8018 1039 | A TD905 *I/P DATA W5D10390
0247 D005 1040 | STO TD210+1 *AND SAVE W5D10400
0248 C0A2 1041 | LD TM965 W5D10410
0249 D01B 1042 | STO TD909+2 SET UP O/P COUNT W5D10420
024A D205 1043 | STO 2 OPCNT *ALSO IN LCB W5D10430
024B C032 1044 | LD TD912 SET UP END OF W5D10440
024C D400 0000 1045 | TD210 STO L *-* *O/P BUFFER W5D10450
024E C010 1046 | LD TD905 SET UP W5D10460
024F D204 1047 | STO 2 OPPTR *O/P POINTER W5D10470
0250 C02B 1048 | LD TD910 SET UP W5D10480
0251 D208 1049 | STO 2 DIAGN *DIAGNOSTIC WRITE W5D10490
0252 4C00 0054R 1050 | TD220 B L TM140 GO SEND MESSAGE W5D10500
1051 | * W5D10510
1052 | * W5D10520
1053 | *************************************************** W5D10530
1054 | * * W5D10540
1055 | * INVALID DIAGNOSTIC REQUEST - TMT CIR C * W5D10550
1056 | * * W5D10560
1057 | *************************************************** W5D10570
1058 | * W5D10580
0254 402C 1059 | TD230 BSI TD300 GO RESTORE LCB W5D10590
0255 C006 1060 | LD TD902 SET IGNORE W5D10600
0256 D208 1061 | STO 2 DIAGN *DATA BIT ON W5D10610
0257 C097 1062 | LD TM969 SET TMT NL BIT W5D10620
0258 D207 1063 | STO 2 CNTRL W5D10630
0259 4C00 0093R 1064 | B L TM210 GO TMT CRLF W5D10640
1065 | * W5D10650
1066 | * W5D10660
1067 | *************************************************** W5D10670
1068 | * * W5D10680
1069 | * IOCC'S AND CONSTANTS (BLOCK 5) * W5D10690
1070 | * * W5D10700
1071 | *************************************************** W5D10710
1072 | * W5D10720
025B 0000 1073 | TD901 DC *-* MODULE BUSY FLAG W5D10730
025C 8000 1074 | TD902 DC /8000 BIT 0 W5D10740
025D 0001 1075 | TD903 DC /0001 CONSTANT - ONE W5D10750
025E 022DR 1076 | TD904 DC TD100 ERROR SUBROUTINE W5D10760
025F 0265R 1077 | TD905 DC TD909+2 O/P BUFFER W5D10770
0260 5000 1078 | TD906 DC /5000 CIRCLE D RCVD - CNTRL W5D10780
0261 000A 1079 | TD907 DC 10 CONSTANT - TEN W5D10790
0262 002A 1080 | TD908 DC 42 O.K. MESSAGE COUNT W5D10800
0263 002E 1081 | TD909 DC 46 I/P BUFFER W5D10810
0264 0000 1082 | DC 0 * W5D10820
0265 1083 | BSS 23 * W5D10830
027C 4000 1084 | TD910 DC /4000 BIT 1 W5D10840
027D 5B1C 1085 | TD911 DC /5B1C CRLF AND UC CHARS W5D10850
027E 5B1F 1086 | TD912 DC /5B1F CRLF AND CIRCLE C W5D10860
027F 7C5D 1087 | TD913 DC /7C5D LC BS W5D10870
0280 5E5D 1088 | TD914 DC /5E5D IDLE BS W5D10880
1089 | * W5D10890
1090 | * W5D10900
1091 | *************************************************** W5D10910
1092 | * * W5D10920
1093 | * RESTORE LCB * W5D10930
1094 | * * W5D10940
1095 | *************************************************** W5D10950
1096 | * W5D10960
0281 0000 1097 | TD300 DC *-* ENTRY POINT W5D10970
0282 6109 1098 | LDX 1 9 SET UP INDEX W5D10980
0283 6A03 1099 | STX 2 TD320+1 SET BASE ADDR W5D10990
0284 C500 03C9R 1100 | TD310 LD L1 TD990-1 GET SAVED WORD W5D11000
1101 | * W5D11010
0286 D500 0000 1102 | TD320 STO L1 *-* PUT INTO LCB W5D11020
0288 71FF 1103 | MDX 1 -1 DECR INDEX W5D11030
0289 70FA 1104 | B TD310 RETURN FOR NEXT WORD W5D11040
1105 | * W5D11050
028A 1010 1106 | SLA 16 CLEAR W5D11060
028B D0CF 1107 | STO TD901 *MODULE BUSY FLAG W5D11070
028C D208 1108 | STO 2 DIAGN *AND DIAGNOSTIC FLAG W5D11080
028D 4C80 0281R 1109 | B I TD300 RETURN TO CALLER W5D11090
1110 | * W5D11100
1111 | * W5D11110
1112 | *************************************************** W5D11120
1113 | * * W5D11130
1114 | * CALCULATE ADAPTER FOR DIAGNOSTIC * W5D11140
1115 | * * W5D11150
1116 | *************************************************** W5D11160
1117 | * W5D11170
028F 0000 1118 | TD400 DC *-* ENTRY POINT W5D11180
0290 C0D4 1119 | LD TD909+2 GET ADAPTER NUMBER W5D11190
0291 1809 1120 | SRA 9 EXAMINE FIRST DIGIT W5D11200
0292 90CE 1121 | S TD907 SUBTRACT TEN W5D11210
0293 4C30 02AFR 1122 | BP TD420 BR IF INVALID CHAR W5D11220
1123 | * W5D11230
0295 4820 1124 | SKP Z SKIP IF ZERO W5D11240
0296 80CA 1125 | A TD907 RESTORE IF NOT ZERO W5D11250
0297 A0C9 1126 | M TD907 MULTIPLY BY TEN W5D11260
0298 18D0 1127 | XCH GET PRODUCT W5D11270
0299 D05D 1128 | STO TD931 SAVE FIRST DIGIT W5D11280
029A C0CA 1129 | LD TD909+2 GET NUMBER AGAIN W5D11290
029B 1008 1130 | SLA 8 CLEAR TOP HALF W5D11300
029C 1809 1131 | SRA 9 EXAMINE SECOND DIGIT W5D11310
029D 4C18 02AFR 1132 | BZ TD420 BRANCH IF SPACE CHAR W5D11320
1133 | * W5D11330
029F 90C1 1134 | S TD907 SUBTRACT TEN W5D11340
02A0 4C30 02AFR 1135 | BP TD420 BR IF INVALID CHAR W5D11350
1136 | * W5D11360
02A2 4820 1137 | SKP Z SKIP IF ZERO W5D11370
02A3 80BD 1138 | A TD907 RESTORE W5D11380
02A4 8052 1139 | A TD931 ADD TENS DIGIT W5D11390
02A5 D051 1140 | STO TD931 *AND SAVE W5D11400
02A6 4C18 02ADR 1141 | BZ TD410 EXIT IF ZERO W5D11410
1142 | * W5D11420
02A8 C20B 1143 | LD 2 TXPTR GENERATE W5D11430
02A9 100C 1144 | SLA 12 *NUMBER W5D11440
02AA 180C 1145 | SRA 12 *FOR THIS W5D11450
02AB 80B1 1146 | A TD903 *LINE W5D11460
02AC F04A 1147 | EOR TD931 COMPARE W5D11470
02AD 4C80 028FR 1148 | TD410 B I TD400 RETURN TO CALLER W5D11480
1149 | * W5D11490
02AF C041 1150 | TD420 LD TD925 SET ANY INVALID W5D11500
02B0 D046 1151 | STO TD931 *NUMBER IN SAVE WORD W5D11510
02B1 70FB 1152 | B TD410 RETURN W5D11520
1153 | * W5D11530
1154 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D11540
1155 | * DIAGNOSTIC WRITE COMPLETED * W5D11550
1156 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D11560
1157 | * W5D11570
02B2 40CE 1158 | TD460 BSI TD300 RESTORE LCB W5D11580
1159 | * W5D11590
02B3 C0AC 1160 | LD TD906 SET UP NEW W5D11600
02B4 D207 1161 | STO 2 CNTRL *CONTROL WORD W5D11610
02B5 7088 1162 | B TD120 RETURN TO MTCA0 W5D11620
1163 | * W5D11630
1164 | * W5D11640
1165 | *************************************************** W5D11650
1166 | * * W5D11660
1167 | * WRAP DIAGNOSTIC ERROR ROUTINE * W5D11670
1168 | * * W5D11680
1169 | *************************************************** W5D11690
1170 | * W5D11700
02B6 0000 1171 | TD500 DC *-* ENTRY POINT W5D11710
02B7 4C18 02BBR 1172 | BZ TD510 BR IF GOOD TEST W5D11720
1173 | * W5D11730
02B9 C043 1174 | LD TD937 GET FAULTY MESSAGE W5D11740
02BA 7001 1175 | B *+1 *AND SKIP TO STORE W5D11750
02BB C0A6 1176 | TD510 LD TD908 GET O.K. MESSAGE W5D11760
02BC D035 1177 | STO TD926 *AND STORE W5D11770
02BD C031 1178 | LD TD922+1 RESTORE TIMER W5D11780
02BE D209 1179 | STO 2 TIMER W5D11790
02BF C036 1180 | LD TD930 RESTORE ERROR W5D11800
02C0 D206 1181 | STO 2 ERROR W5D11810
02C1 1010 1182 | SLA 16 W5D11820
02C2 D208 1183 | STO 2 DIAGN RESET DIAGN WORD W5D11830
02C3 6600 0000 1184 | TD520 LDX L2 *-* RESTORE LCB POINTER W5D11840
02C5 C0F0 1185 | LD TD500 GET RETURN ADDRESS W5D11850
02C6 D400 0000R 1186 | STO L TSM41 *ADDRESS W5D11860
02C8 C032 1187 | TD530 LD TD935 SET UP O/P BUFFER W5D11870
02C9 D204 1188 | STO 2 OPPTR W5D11880
02CA C031 1189 | LD TD936 SET UP O/P COUNT W5D11890
02CB D205 1190 | STO 2 OPCNT W5D11900
02CC C02B 1191 | LD TD932 SET DIAGNOSTIC WRITE W5D11910
02CD D208 1192 | STO 2 DIAGN *AND REPEAT BITS W5D11920
02CE C08F 1193 | LD TD904 SET UP W5D11930
02CF D206 1194 | STO 2 ERROR *NEW ERROR ROUTINE W5D11940
02D0 7081 1195 | TD540 B TD220 GO SEND MESSAGE W5D11950
1196 | * W5D11960
1197 | * W5D11970
1198 | *************************************************** W5D11980
1199 | * * W5D11990
1200 | * RETURN PRINTER DIAGNOSTIC TESTS * W5D12000
1201 | * * W5D12010
1202 | *************************************************** W5D12020
1203 | * W5D12030
02D1 C81E 1204 | TD600 LDD TD924 GET ROCK,ROLL AND W5D12040
02D2 4808 1205 | SKP + *TWIST BUFFER DATA W5D12050
02D3 C820 1206 | TD610 LDD TD928 GET PR FUNCTION DATA W5D12060
02D4 D81D 1207 | STD TD926 SAVE W5D12070
02D5 40B9 1208 | BSI TD400 CHECK ADAPTER NUMBER W5D12080
1209 | * W5D12090
02D6 4C20 0254R 1210 | BNZ TD230 BR IF NOT THIS ONE W5D12100
1211 | * W5D12110
02D8 C0A6 1212 | LD TD913 RESTORE CASE SHIFT W5D12120
02D9 D07B 1213 | STO TD941 *IN DD3 MESSAGE W5D12130
1214 | * W5D12140
02DA C017 1215 | LD TD926 SET UP O/P BUFFER W5D12150
02DB D204 1216 | STO 2 OPPTR W5D12160
02DC C480 02F2R 1217 | LD I TD926 GET O/P COUNT W5D12170
02DE D013 1218 | STO TD926 SAVE FOR REPEAT W5D12180
02DF C018 1219 | LD TD932 SET BITS 1 & 15 W5D12190
02E0 D208 1220 | STO 2 DIAGN IN DIAG FLAGS W5D12200
02E1 C09B 1221 | LD TD911 GET UC AND CRLF CHARS W5D12210
02E2 D480 02F3R 1222 | TD620 STO I TD927 PUT AT END OF MESSAGE W5D12220
02E4 C00D 1223 | LD TD926 SET UP O/P COUNT W5D12230
02E5 D205 1224 | STO 2 OPCNT W5D12240
02E6 70E9 1225 | B TD540 GO SEND MESSAGE W5D12250
1226 | * W5D12260
02E7 C098 1227 | TD630 LD TD914 DELETE CASE SHIFT W5D12270
02E8 D06C 1228 | STO TD941 *IN DD3 MESSAGE W5D12280
02E9 C092 1229 | LD TD910 SET OFF REPEAT BIT W5D12290
02EA D208 1230 | STO 2 DIAGN W5D12300
02EB C092 1231 | LD TD912 GET CRLF/EOT CHARS W5D12310
02EC 70F5 1232 | B TD620 GO SET IN MESSAGE W5D12320
1233 | * W5D12330
1234 | * W5D12340
1235 | *************************************************** W5D12350
1236 | * * W5D12360
1237 | * IOCCS AND CONTANTS (BLOCK 6) * W5D12370
1238 | * * W5D12380
1239 | *************************************************** W5D12390
1240 | * W5D12400
02ED 0001 1241 | TD921 DC /0001 BIT 15 W5D12410
02EE 1242 | BSS E 0 FORCE EVEN BOUNDARY W5D12420
02EE FF00 1243 | TD922 DC /FF00 SENSE DSW2 IOCC E W5D12430
02EF 0000 1244 | DC *-* W5D12440
02F0 037DR 1245 | TD924 DC TD962 ROCK,ROLL AND TWIST E W5D12450
02F1 03C9R 1246 | TD925 DC TD963 *O/P INFORMATION W5D12460
02F2 0000 1247 | TD926 DC *-* O/P POINTER AND ALSO E W5D12470
1248 | * *O/P COUNT FOR REPEAT W5D12480
02F3 0361R 1249 | TD927 DC TD942 EOM INDICATOR W5D12490
02F4 033CR 1250 | TD928 DC TD940 PRINTER FUNCTION TEST E W5D12500
02F5 0361R 1251 | TD929 DC TD942 *O/P INFORMATION W5D12510
02F6 0000 1252 | TD930 DC *-* SAVE ERROR W5D12520
02F7 0000 1253 | TD931 DC *-* SAVE ADAPTER NUMBER W5D12530
02F8 4001 1254 | TD932 DC /4001 BITS 1 AND 15 W5D12540
02F9 5001 1255 | TD933 DC /5001 REQUEST DIAGNOSE W5D12550
02FA 1000 1256 | TD934 DC /1000 DIAGNOSE TIMEOUT BIT W5D12560
02FB 0367R 1257 | TD935 DC TD960 WRAP RESULT MESSAGE W5D12570
02FC 000E 1258 | TD936 DC 14 O/P COUNT W5D12580
02FD 0026 1259 | TD937 DC 38 FAULTY MESSAGE COUNT W5D12590
02FE 02B6R 1260 | TD938 DC TD500 WRAP ERROR ROUTINE W5D12600
1261 | * W5D12610
1262 | * W5D12620
1263 | *************************************************** W5D12630
1264 | * * W5D12640
1265 | * WRAP ADAPTER TEST REQUESTED * W5D12650
1266 | * * W5D12660
1267 | *************************************************** W5D12670
1268 | * W5D12680
02FF C400 0265R 1269 | TD700 LD L TD909+2 SET UP ADAPTER W5D12690
0301 D079 1270 | STO TD961 *NUMBER FOR MESSAGE W5D12700
0302 408C 1271 | BSI TD400 GO CHECK ADAPTER W5D12710
1272 | * W5D12720
0303 4C18 0254R 1273 | BZ TD230 BR IF THIS LINE W5D12730
1274 | * W5D12740
0305 C480 0364R 1275 | LD I TD951+1 GET ADDRESS OF W5D12750
0307 D05B 1276 | STO TD951 *SYSTEM PARAMETERS W5D12760
0308 C480 0363R 1277 | LD I TD951 GET HIGHEST LINE NUMB W5D12770
030A 90EC 1278 | S TD931 CHECK VALID REQUEST W5D12780
030B 4C28 0339R 1279 | BN TD720 BR IF INVALID W5D12790
1280 | * W5D12800
030D C055 1281 | LD TD951 CALCULATE LCB W5D12810
030E 80E8 1282 | A TD931 *ADDRESS FOR THE LINE W5D12820
030F D001 1283 | STO *+1 PUT INTO W5D12830
0310 6580 0000 1284 | LDX I1 *-* *XR1 W5D12840
0312 7100 1285 | MDX 1 0 CHECK VALID W5D12850
0313 7001 1286 | B *+1 SKIP IF VALID W5D12860
1287 | * W5D12870
0314 7024 1288 | B TD720 BR IF INVALID W5D12880
1289 | * W5D12890
0315 6AAE 1290 | STX 2 TD520+1 SAVE LCB ADDR W5D12900
0316 C10B 1291 | LD 1 TXPTR GENERATE W5D12910
0317 1004 1292 | SLA 4 *SENSE DSW2 W5D12920
0318 E8D5 1293 | OR TD922 *IOCC FOR THIS LINE W5D12930
0319 D0D5 1294 | STO TD922+1 W5D12940
031A 08D3 1295 | XIO TD922 SENSE DSW2 W5D12950
031B 1005 1296 | SLA 5 INSPECT FOR USE W5D12960
031C 482A 1297 | SKP C+Z SKIP IF NOT BUSY W5D12970
031D 7019 1298 | B TD710 GO SEND BUSY MESSAGE W5D12980
1299 | * W5D12990
031E C100 1300 | LD 1 LNBSY CHECK FOR ABOUT TO W5D13000
1301 | * *BE BUSY W5D13010
031F 4810 1302 | SKP - SKIP IF YES W5D13020
0320 C107 1303 | LD 1 CNTRL CHECK FOR WRAP W5D13030
0321 4C28 0337R 1304 | BN TD710 BR IF LINE IS BUSY W5D13040
1305 | * W5D13050
0323 1010 1306 | SLA 16 W5D13060
0324 D209 1307 | STO 2 TIMER CLEAR TIMER W5D13070
0325 C03C 1308 | LD TD950 SET UP INTERIM W5D13080
0326 D206 1309 | STO 2 ERROR *EROR ROUTINE W5D13090
0327 C109 1310 | LD 1 TIMER SAVE TIMER WORD W5D13100
0328 D0C6 1311 | STO TD922+1 W5D13110
0329 C106 1312 | LD 1 ERROR SAVE ERROR ROUTINE W5D13120
032A D0CB 1313 | STO TD930 W5D13130
032B C0CD 1314 | LD TD933 SET UP REQUEST W5D13140
032C D109 1315 | STO 1 TIMER *FOR WRAP TEST W5D13150
032D C0D0 1316 | LD TD938 SET UP ERROR W5D13160
032E D106 1317 | STO 1 ERROR *ROUTINE ADDRESS W5D13170
032F C0CA 1318 | LD TD934 SET UP DIAGNOSE W5D13180
0330 D108 1319 | STO 1 DIAGN *TIMEOUTS ON W5D13190
0331 D208 1320 | STO 2 DIAGN *BOTH LINES W5D13200
0332 C107 1321 | LD 1 CNTRL SET UP WRAP W5D13210
0333 E8B9 1322 | OR TD921 *REQUEST FROM W5D13220
0334 D107 1323 | STO 1 CNTRL *A TERMINAL BIT W5D13230
0335 4C80 0000R 1324 | B I TSM41 RETURN TO MTCA0 W5D13240
1325 | * W5D13250
0337 C02E 1326 | TD710 LD TD954 SET UP BUSY MESSAGE W5D13260
0338 4808 1327 | SKP + W5D13270
0339 C02B 1328 | TD720 LD TD953 SET UP INVALID W5D13280
033A D0B7 1329 | STO TD926 *ADAPTER MESSAGE W5D13290
033B 708C 1330 | B TD530 GO SEND W5D13300
1331 | * W5D13310
1332 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D13320
1333 | * PRINTER FUNCTION TEST DATA * W5D13330
1334 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D13340
1335 | * W5D13350
033C 004A 1336 | TD940 DC 74 OUTPUT COUNT W5D13360
033D 5B67 1337 | DC /5B67 CRLF C W5D13370
033E 5246 1338 | DC /5246 R L W5D13380
033F 6D7A 1339 | DC /6D7A F TAB W5D13390
0340 2662 1340 | DC /2662 T A W5D13400
0341 647A 1341 | DC /647A B TAB W5D13410
0342 2662 1342 | DC /2662 T A W5D13420
0343 645B 1343 | DC /645B B CRLF W5D13430
0344 6752 1344 | DC /6752 C R W5D13440
0345 466D 1345 | DC /466D L F W5D13450
0346 0173 1346 | DC /0173 SP I W5D13460
0347 5D3B 1347 | DC /5D3B BS LF W5D13470
0348 4A5D 1348 | DC /4A5D N BS W5D13480
0349 3B68 1349 | DC /3B68 LF D W5D13490
034A 5D3B 1350 | DC /5D3B BS LF W5D13500
034B 6B5D 1351 | DC /6B5D E BS W5D13510
034C 3B2F 1352 | DC /3B2F LF X W5D13520
034D 5D5D 1353 | DC /5D5D BS BS W5D13530
034E 3B5E 1354 | DC /3B5E LF IDLE W5D13540
034F 254F 1355 | DC /254F S P W5D13550
0350 6267 1356 | DC /6267 A C W5D13560
0351 6B01 1357 | DC /6B01 E SP W5D13570
0352 0101 1358 | DC /0101 SP SP W5D13580
0353 0101 1359 | DC /0101 SP SP W5D13590
0354 1C10 1360 | DC /1C10 UC * W5D13600
0355 7C5D 1361 | TD941 DC /7C5D LC BS W5D13610
0356 5D5D 1362 | DC /5D5D BS BS W5D13620
0357 5D5D 1363 | DC /5D5D BS BS W5D13630
0358 5D5D 1364 | DC /5D5D BS BS W5D13640
0359 5D5D 1365 | DC /5D5D BS BS W5D13650
035A 5D5D 1366 | DC /5D5D BS BS W5D13660
035B 5D45 1367 | DC /5D45 BS K W5D13670
035C 5D5D 1368 | DC /5D5D BS BS W5D13680
035D 675D 1369 | DC /675D C BS W5D13690
035E 5D62 1370 | DC /5D62 BS A W5D13700
035F 5D5D 1371 | DC /5D5D BS BS W5D13710
0360 645E 1372 | DC /645E B IDLE W5D13720
0361 0000 1373 | TD942 DC *-* LAST CHARACTERS W5D13730
1374 | * W5D13740
1375 | * W5D13750
1376 | *************************************************** W5D13760
1377 | * * W5D13770
1378 | * IOCC'S AND CONSTANTS (BLOCK 7) * W5D13780
1379 | * * W5D13790
1380 | *************************************************** W5D13800
1381 | * W5D13810
0362 03D3R 1382 | TD950 DC TD800 INTERIM ERROR ROUTINE W5D13820
0363 148C*3057 1383 | TD951 CALL MTCAP FIND SYSTEM PARAMETERS W5D13830
0365 001E 1384 | TD953 DC 30 INVALID MESSAGE COUNT W5D13840
0366 0014 1385 | TD954 DC 20 BUSY MESSAGE COUNT W5D13850
1386 | * W5D13860
1387 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D13870
1388 | * WRAP DIAGNOSTIC RESULT MESSAGES * W5D13880
1389 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D13890
1390 | * W5D13900
0367 002A 1391 | TD960 DC 42 O/P COUNT W5D13910
0368 4C45 1392 | DC /4C45 O K W5D13920
0369 5B1F 1393 | DC /5B1F CRLF EOT W5D13930
1394 | * W5D13940
036A 6D62 1395 | DC /6D62 F A W5D13950
036B 2946 1396 | DC /2946 U L W5D13960
036C 2631 1397 | DC /2631 T Y W5D13970
036D 5B1F 1398 | DC /5B1F CRLF EOT W5D13980
1399 | * W5D13990
036E 734A 1400 | DC /734A I N W5D14000
036F 2A62 1401 | DC /2A62 V A W5D14010
0370 4673 1402 | DC /4673 L I W5D14020
0371 685E 1403 | DC /685E D IDLE W5D14030
0372 5B1F 1404 | DC /5B1F CRLF EOT W5D14040
1405 | * W5D14050
0373 6429 1406 | DC /6429 B U W5D14060
0374 2531 1407 | DC /2531 S Y W5D14070
0375 5B1F 1408 | DC /5B1F CRLF EOT W5D14080
1409 | * W5D14090
0376 1C62 1410 | DC /1C62 UC A W5D14100
0377 6862 1411 | DC /6862 D A W5D14110
0378 4F26 1412 | DC /4F26 P T W5D14120
0379 6B52 1413 | DC /6B52 E R W5D14130
037A 7C01 1414 | DC /7C01 LC SP W5D14140
037B 2F2F 1415 | TD961 DC /2F2F X X W5D14150
037C 1C01 1416 | DC /1C01 UC SP W5D14160
1417 | * W5D14170
1418 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D14180
1419 | * ROCK, ROLL AND TWIST DATA * W5D14190
1420 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5D14200
1421 | * W5D14210
037D 0098 1422 | TD962 DC 152 OUTPUT COUNT W5D14220
037E 524C 1423 | DC /524C R O W5D14230
037F 6745 1424 | DC /6745 C K W5D14240
0380 5B13 1425 | DC /5B13 CRLF 9 W5D14250
0381 642C 1426 | DC /642C B W W5D14260
0382 4031 1427 | DC /4031 - Y W5D14270
0383 2570 1428 | DC /2570 S H W5D14280
0384 150C 1429 | DC /150C 0 6 W5D14290
0385 4573 1430 | DC /4573 K I W5D14300
0386 514F 1431 | DC /514F Q P W5D14310
0387 166B 1432 | DC /166B # E W5D14320
0388 0B04 1433 | DC /0B04 5 2 W5D14330
0389 4A76 1434 | DC /4A76 N . W5D14340
038A 6143 1435 | DC /6143 & J W5D14350
038B 2026 1436 | DC /2026 @ T W5D14360
038C 3208 1437 | DC /3208 Z 4 W5D14370
038D 464C 1438 | DC /464C L O W5D14380
038E 2337 1439 | DC /2337 / , W5D14390
038F 6267 1440 | DC /6267 A C W5D14400
0390 100E 1441 | DC /100E 8 7 W5D14410
0391 6852 1442 | DC /6852 D R W5D14420
0392 576D 1443 | DC /576D $ F W5D14430
0393 2A29 1444 | DC /2A29 V U W5D14440
0394 0702 1445 | DC /0702 3 1 W5D14450
0395 2F49 1446 | DC /2F49 X M W5D14460
0396 6E5B 1447 | DC /6E5B G CRLF W5D14470
0397 524C 1448 | DC /524C R O W5D14480
0398 4646 1449 | DC /4646 L L W5D14490
0399 5B6E 1450 | DC /5B6E CRLF G W5D14500
039A 6D57 1451 | DC /6D57 F $ W5D14510
039B 3723 1452 | DC /3723 , / W5D14520
039C 4361 1453 | DC /4361 J & W5D14530
039D 4F51 1454 | DC /4F51 P Q W5D14540
039E 3140 1455 | DC /3140 Y - W5D14550
039F 2C25 1456 | DC /2C25 W S W5D14560
03A0 7316 1457 | DC /7316 I # W5D14570
03A1 7620 1458 | DC /7620 . @ W5D14580
03A2 4C62 1459 | DC /4C62 O A W5D14590
03A3 522A 1460 | DC /522A R V W5D14600
03A4 492F 1461 | DC /492F M X W5D14610
03A5 2968 1462 | DC /2968 U D W5D14620
03A6 6746 1463 | DC /6746 C L W5D14630
03A7 264A 1464 | DC /264A T N W5D14640
03A8 6B45 1465 | DC /6B45 E K W5D14650
03A9 7064 1466 | DC /7064 H B W5D14660
03AA 1315 1467 | DC /1315 9 0 W5D14670
03AB 0C0B 1468 | DC /0C0B 6 5 W5D14680
03AC 0432 1469 | DC /0432 2 Z W5D14690
03AD 0810 1470 | DC /0810 4 8 W5D14700
03AE 0E07 1471 | DC /0E07 7 3 W5D14710
03AF 025B 1472 | DC /025B 1 CRLF W5D14720
03B0 262C 1473 | DC /262C T W W5D14730
03B1 7325 1474 | DC /7325 I S W5D14740
03B2 265B 1475 | DC /265B T CRLF W5D14750
03B3 6E13 1476 | DC /6E13 G 9 W5D14760
03B4 6D15 1477 | DC /6D15 F 0 W5D14770
03B5 570C 1478 | DC /570C $ 6 W5D14780
03B6 370B 1479 | DC /370B , 5 W5D14790
03B7 2304 1480 | DC /2304 / 2 W5D14800
03B8 4332 1481 | DC /4332 J Z W5D14810
03B9 6108 1482 | DC /6108 & 4 W5D14820
03BA 4F10 1483 | DC /4F10 P 8 W5D14830
03BB 510E 1484 | DC /510E Q 7 W5D14840
03BC 3107 1485 | DC /3107 Y 3 W5D14850
03BD 4002 1486 | DC /4002 - 1 W5D14860
03BE 2C2F 1487 | DC /2C2F W X W5D14870
03BF 2529 1488 | DC /2529 S U W5D14880
03C0 7368 1489 | DC /7368 I D W5D14890
03C1 1667 1490 | DC /1667 # C W5D14900
03C2 7646 1491 | DC /7646 . L W5D14910
03C3 2026 1492 | DC /2026 @ T W5D14920
03C4 4C4A 1493 | DC /4C4A O N W5D14930
03C5 686B 1494 | DC /686B D E W5D14940
03C6 5245 1495 | DC /5245 R K W5D14950
03C7 2A70 1496 | DC /2A70 V H W5D14960
03C8 4964 1497 | DC /4964 M B W5D14970
03C9 0000 1498 | TD963 DC *-* LAST CHARACTERS W5D14980
1499 | * W5D14990
03CA 1500 | TD990 BSS 9 SAVE LCB WORDS W5D15000
1501 | * W5D15010
1502 | * W5D15020
1503 | *************************************************** W5D15030
1504 | * * W5D15040
1505 | * INTERIM ERROR DURING WRAP * W5D15050
1506 | * * W5D15060
1507 | *************************************************** W5D15070
1508 | * W5D15080
03D3 0000 1509 | TD800 DC *-* ENTRY POINT W5D15090
03D4 4C80 03D3R 1510 | B I TD800 RETURN W5D15100
1511 | * W5D15110
03D6 1512 | END W5D15120
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
CNTRL 0007 162 197 206 281 300 369 371 399 409 422 424 438 453
454 463 465 553 602 604 630 641 643 651 653 670
697 699 747 748 751 756 822 833 834 837 857 923
925 1010 1011 1019 1021 1063 1161 1303 1321 1323
DIAGN 0008 163 425 434 439 572 622 671 685 960 1008 1023 1049 1061
1108 1183 1192 1220 1230 1319 1320
ERROR 0006 161 695 795 851 878 956 1181 1194 1309 1312 1317
IPCNT 0003 158 575 592 646 659 662 764 766 768 919 922 954
IPPTR 0002 157 627 658 660 767 771 950
LNBSY 0000 155 510 882 929 1300
LPDAT 0004 171 482 489 491
OPCNT 0005 160 312 320 325 327 421 606 815 845 855 1043 1190 1224
OPPTR 0004 159 171 220 319 323 1047 1188 1216
RXPTR 000A 165 275 279
STAT1 000D 168 688 690
STAT2 000E 169 634 636
STAT3 000F 170 638 640
STATC 000C 167 363 365 398 650
TD010 01F6R 919 753
TD020 0206R 940 943
TD030 0219R 970 991
TD040 0227R 988 504
TD100 022DR 1002 1013 1076
TD110 0239R 1019 927 930
TD120 023ER 1024 961 993 1162
TD200 0240R 1032 907
TD210 024CR 1045 1040
TD220 0252R 1050 1195
TD230 0254R 1059 972 978 1034 1210 1273
TD300 0281R 1097 1005 1059 1109 1158
TD310 0284R 1100 1104
TD320 0286R 1102 1099
TD400 028FR 1118 1032 1148 1208 1271
TD410 02ADR 1148 1141 1152
TD420 02AFR 1150 1122 1132 1135
TD460 02B2R 1158 673
TD500 02B6R 1171 1185 1260
TD510 02BBR 1176 1172
TD520 02C3R 1184 1290
TD530 02C8R 1187 1330
TD540 02D0R 1195 1225
TD600 02D1R 1204 908
TD610 02D3R 1206 909
TD620 02E2R 1222 1232
TD630 02E7R 1227 988
TD700 02FFR 1269 910
TD710 0337R 1326 1298 1304
TD720 0339R 1328 1279 1288
TD800 03D3R 1509 1382 1510
TD901 025BR 1073 926 932 1107
TD902 025CR 1074 1007 1022 1060
TD903 025DR 1075 921 953 1037 1146
TD904 025ER 1076 955 1193
TD905 025FR 1077 1039 1046
TD906 0260R 1078 1160
TD907 0261R 1079 1121 1125 1126 1134 1138
TD908 0262R 1080 1176
TD909 0263R 1081 896 952 970 974 1036 1042 1077 1119 1129 1269
TD910 027CR 1084 1048 1229
TD911 027DR 1085 1221
TD912 027ER 1086 1044 1231
TD913 027FR 1087 1212
TD914 0280R 1088 1227
TD921 02EDR 1241 1322
TD922 02EER 1243 1178 1293 1294 1295 1311
TD924 02F0R 1245 1204
TD925 02F1R 1246 1150
TD926 02F2R 1247 1177 1207 1215 1217 1218 1223 1329
TD927 02F3R 1249 1222
TD928 02F4R 1250 1206
TD929 02F5R 1251
TD930 02F6R 1252 1180 1313
TD931 02F7R 1253 1128 1139 1140 1147 1151 1278 1282
TD932 02F8R 1254 1191 1219
TD933 02F9R 1255 1314
TD934 02FAR 1256 1318
TD935 02FBR 1257 1187
TD936 02FCR 1258 1189
TD937 02FDR 1259 1174
TD938 02FER 1260 1316
TD940 033CR 1336 1250
TD941 0355R 1361 1213 1228
TD942 0361R 1373 1249 1251
TD950 0362R 1382 1308
TD951 0363R 1383 1275 1276 1277 1281
TD953 0365R 1384 1328
TD954 0366R 1385 1326
TD960 0367R 1391 1257
TD961 037BR 1415 1270
TD962 037DR 1422 1245
TD963 03C9R 1498 1246
TD990 03CAR 1500 941 1100
TIMER 0009 164 222 230 378 506 511 591 645 678 864 867 883 958
1179 1307 1310 1315
TM002 0002R 183 223
TM004 0004R 186
TM010 0005R 195 184
TM020 0012R 216 195
TM030 0014R 219 199
TM040 0018R 223 210
TM080 001AR 229 495
TM100 0032R 275 181
TM110 0042R 292 596
TM120 0044R 294 237
TM130 0051R 312 301
TM140 0054R 319 1050
TM150 005ER 328 324
TM160 0077R 361 304
TM170 0081R 371 401
TM180 0082R 377 337 367 428 498
TM190 0084R 380 426
TM200 008ER 397 349 355
TM210 0093R 407 307 1064
TM220 0098R 417 310
TM230 009AR 420 345
TM240 009ER 424 411
TM250 00A3R 434 313
TM260 00A9R 441 294 391 457 477 483 508 512
TM300 00ABR 451 282
TM310 00B9R 469 473
TM320 00D1R 504 435
TM400 00ECR 549 286
TM410 00F7R 568 749
TM420 0104R 581 700
TM430 0111R 595 573 576 623 654 663 675 816 846 853 880
TM440 0114R 602 570 828
TM450 012FR 638 632
TM460 0132R 641 625
TM470 0140R 656 647
TM480 0141R 658 679
TM490 0148R 663 830 835
TM500 0149R 669 820
TM510 0150R 677 586
TM520 0153R 685 579
TM530 0159R 692 686
TM540 015BR 695 711
TM550 0161R 706 582
TM560 0177R 742 562
TM570 017DR 748 757
TM580 0180R 751 744
TM600 0187R 763 588 656 781
TM610 0198R 780 772 785 788
TM620 019CR 783 778
TM630 01A3R 794 692 708 798 806 848 875
TM640 01AAR 802 796
TM650 01AER 806 800
TM660 01B0R 812 555
TM670 01C3R 832 824 839
TM680 01C5R 834 858 869 884
TM690 01C7R 837 813
TM700 01D8R 864 628
TM710 01DER 875 593
TM901 0023R 246 234
TM902 0024R 247 219
TM903 0025R 249 207
TM904 0026R 250 229
TM905 0027R 251 209 377
TM906 0028R 252 216
TM907 0029R 253 221
TM908 002AR 254 322 326
TM909 002BR 255 351
TM910 002CR 256 335 336
TM911 002DR 257 364
TM912 002ER 261 397
TM913 002FR 262 353
TM914 0030R 265 235 236 277 278 284 451
TM920 00DAR 522 380 385 612 618
TM922 00DCR 524 410
TM923 00DDR 525 333 551
TM924 00DER 526 334 343 347 362 387 408 418 475 476 493
TM925 00DFR 528 348 407 585
TM926 00E0R 529 344 417 569
TM927 00E1R 530 389
TM928 00E2R 531 361
TM929 00E3R 532 370 400 652
TM930 00E4R 533 423
TM931 00E5R 534 280 466 479 549 578
TM932 00E6R 535 490
TM933 00E7R 536 354 649
TM934 00E8R 537 497
TM935 00E9R 538 455 456 464
TM936 00EAR 539 669
TM937 00EBR 540 285 581 595 707
TM940 0166R 720 552 568 584 742 773 784 787 812 818 826
TM941 0167R 721 635 639 689 706 765 769 804 866
TM942 0168R 722 590 677
TM943 0169R 723 819
TM944 016AR 724 603
TM945 016BR 725 644
TM946 016CR 726 620
TM947 016DR 727 832
TM948 016ER 728 868
TM949 016FR 729 743
TM950 0170R 730 755
TM951 0171R 731 803
TM952 0172R 732 694
TM953 0173R 733 710
TM954 0174R 734 698
TM955 0175R 735 786
TM956 0176R 736 642
TM961 01E7R 893 877
TM962 01E8R 894 850 1003
TM963 01E9R 895 746 924
TM964 01EAR 896 949
TM965 01EBR 897 951 1041
TM966 01ECR 898 827
TM967 01EDR 899 957
TM968 01EER 900 959
TM969 01EFR 901 856 1009 1020 1062
TM970 01F0R 902 977
TM971 01F1R 906 980
TM972 01F2R 907 906
TSM41 0000R 180 441 1024 1186 1324
TSMAD 0001 156
TXPTR 000B 166 208 231 390 621 802 1143 1291