ibm:ibm1130-lib:dmsr2v12:w5tsm41_lst
W5TSM41
| Table Of Contents |
|---|
|
- w5tsm41.lst
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
ibm/ibm1130-lib/dmsr2v12/w5tsm41_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator