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