ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \w5mtcaz.asm MTCAZ - MTCA FORTRAN BUFFER 2 | *************************************************** W5C00020 3 | *STATUS - VERSION 2, MODIFICATION 9 * W5C00030 4 | * * W5C00040 5 | *SUBROUTINE NAME - * W5C00050 6 | * FULL NAME - MTCA FORTRAN BUFFERRING ROUTINE * W5C00060 7 | * CODE NAME - MTCAZ * W5C00070 8 | * * W5C00080 9 | *PURPOSE - * W5C00090 10 | * THIS SUBROUTINE ACTS AS A BUFFER BETWEEN THE * W5C00100 11 | * FORTRAN LANGUAGE USER AND THE ASSEMBLER * W5C00110 12 | * LANGUAGE ORIENTED MTCA BASE SECTION (MTCA0). * W5C00120 13 | * * W5C00130 14 | *METHOD - * W5C00140 15 | * THE ROUTINE CONSISTS OF TWO BASIC SECTIONS * W5C00150 16 | * * THE CALL SECTION PROCESSES THE * W5C00160 17 | * PARAMETERS AND RE-ASSEMBLES THEM IN THE * W5C00170 18 | * FORM OF A LIBF INSTRUCTION CAUSING A * W5C00180 19 | * BRANCH TO THE MTCA BASE SECTION (MTCA0). * W5C00190 20 | * WHERE APPROPRIATE AN ERROR RETURN * W5C00200 21 | * ADDRESS IS SUPPLIED. * W5C00210 22 | * * W5C00220 23 | *CAPABILITIES AND LIMITATIONS - N/A * W5C00230 24 | * * W5C00240 25 | *SPECIAL FEATURES - * W5C00250 26 | * CONTROL IS RETURNED FOLLOWING INITIATION OF * W5C00260 27 | * THE REQUESTED OPERATION. * W5C00270 28 | * * W5C00280 29 | *ADDITIONAL INFORMATION - * W5C00290 30 | * ERROR PROCEDURES - * W5C00300 31 | * ERRORS OCCURRING DURING THE EXECUTION OF A * W5C00310 32 | * COMMAND ARE PROCESSED AND DEALT WITH IN * W5C00320 33 | * ONE OF TWO WAYS - * W5C00330 34 | * * RECOVERABLE ERRORS, E.G. LINE ERRORS * W5C00340 35 | * CAUSE A LINE ERROR FLAG TO BE SET * W5C00350 36 | * APPROPRIATELY. * W5C00360 37 | * * NON-RECOVERABLE ERRORS CAUSE THE * W5C00370 38 | * PROGRAM TO LOOP IN $PRET DISPLAYING * W5C00380 39 | * AN APPROPRIATE ERROR CODE IN THE ACC. * W5C00390 40 | * CALLING SEQUENCE - * W5C00400 41 | * CALL MTCAZ(A,B,C) WHERE * W5C00410 42 | * * A IS THE COMMAND (0 TO 8) * W5C00420 43 | * 0 - TEST * W5C00430 44 | * 1 - READ * W5C00440 45 | * 2 - WRITE * W5C00450 46 | * 3 - CONNECT * W5C00460 47 | * 4 - DISCONNECT * W5C00470 48 | * 5 - PASS AND RESET LINE STATISTICS * W5C00480 49 | * 6 - DIAGNOSE * W5C00490 50 | * 7 - INITIALIZE * W5C00500 51 | * 8 - DISABLE MTCA * W5C00510 52 | * * B IS THE LINE NUMBER (1 TO 16) * W5C00520 53 | * * C IS AN INTEGER VARIABLE DEPENDENT ON * W5C00530 54 | * THE COMMAND * W5C00540 55 | * * W5C00550 56 | *************************************************** W5C00560 57 | * W5C00570 58 | * W5C00580 59 | *************************************************** W5C00590 60 | * * W5C00600 61 | * ENTRY AND HOUSEKEEPING * W5C00610 62 | * * W5C00620 63 | *************************************************** W5C00630 64 | * W5C00640 65 | ENT MTCAZ W5C00650 66 | * W5C00660 0028 67 | $PRET EQU 40 W5C00670 68 | * W5C00680 0000 0000 69 | MTCAZ DC *-* ENTRY POINT W5C00690 0001 D858 70 | STD FB902 SAVE ACC AND EXT W5C00700 0002 284D 71 | STS FB160 SAVE STATUS W5C00710 0003 694E 72 | STX 1 FB170+1 SAVE XR1 W5C00720 0004 6A4F 73 | STX 2 FB180+1 SAVE XR2 W5C00730 0005 6580 0000R 74 | LDX I1 MTCAZ SET XR1 AS PARAM PT W5C00740 75 | * W5C00750 76 | * W5C00760 77 | *************************************************** W5C00770 78 | * * W5C00780 79 | * TRANSFER PARAMETERS FROM CALL TO * W5C00790 80 | * SUBROUTINE * W5C00800 81 | * * W5C00810 82 | *************************************************** W5C00820 83 | * W5C00830 0007 C580 0000 84 | LD I1 0 GET FIRST PARAMETER W5C00840 0009 D00D 85 | STO FB901 *(COMMAND) W5C00850 000A 4C28 00D1R 86 | BN FB330 BR IF COMMAND NEG W5C00860 000C 9055 87 | S FB911 W5C00870 000D 4C30 00D1R 88 | BP FB330 BR IF INVALID W5C00880 000F C580 0001 89 | LD I1 1 GET SECOND PARAMETER W5C00890 0011 D003 90 | STO FB900 *(LINE NUMBER) W5C00900 0012 C102 91 | LD 1 2 GET THIRD PARAMETER W5C00910 0013 D048 92 | STO FB903 *(AREA OR FLAG) W5C00920 93 | * W5C00930 0015R 94 | FB900 EQU *+1 SAVE LOCN FOR LINE NO. W5C00940 95 | * W5C00950 0014 6600 0000 96 | LDX L2 *-* SET XR2 AS LINE PT W5C00960 97 | * W5C00970 98 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5C00980 99 | * SELECT ROUTINE ACCORDING TO COMMAND * W5C00990 100 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5C01000 101 | * W5C01010 0017R 102 | FB901 EQU *+1 SAVE LOCN FOR COMMAND W5C01020 103 | * W5C01030 0016 6500 0000 104 | LDX L1 *-* SET XR1 AS TABLE PT W5C01040 0018 4D80 0063R 105 | B I1 FB912 BR TO REQUIRED ROUTINE W5C01050 106 | * W5C01060 107 | * W5C01070 108 | *************************************************** W5C01080 109 | * * W5C01090 110 | * TEST ROUTINE * W5C01100 111 | * * W5C01110 112 | *************************************************** W5C01120 113 | * W5C01130 001A C0FA 114 | FB010 LD FB900 FETCH LINE NUMBER W5C01140 001B D001 115 | STO FB020 SET UP CONTROL PARAM W5C01150 116 | * *IN LIBF W5C01160 001C 148C*3070 117 | LIBF MTCA0 INITIATE LIBF TO W5C01170 001D 0000 118 | FB020 DC *-* *PERFORM TEST W5C01180 119 | * W5C01190 001E 7009 120 | B FB030 BR IF LINE BUSY W5C01200 001F C600 007ER 121 | LD L2 FB929 FETCH ERROR CODE W5C01210 0021 E03F 122 | AND FB910 EDIT ERROR CODE W5C01220 0022 D480 005CR 123 | STO I FB903 SET TEST FLAG IF ERR W5C01230 0024 1010 124 | SLA 16 W5C01240 0025 D600 007ER 125 | STO L2 FB929 RESET LINE FLAG W5C01250 0027 7028 126 | B FB160 BR TO EXIT W5C01260 127 | * W5C01270 0028 C034 128 | FB030 LD FB904 W5C01280 0029 D480 005CR 129 | STO I FB903 SET TEST FLAG W5C01290 002B 7024 130 | B FB160 BR TO EXIT W5C01300 131 | * W5C01310 132 | * W5C01320 133 | *************************************************** W5C01330 134 | * * W5C01340 135 | * READ ROUTINE * W5C01350 136 | * * W5C01360 137 | *************************************************** W5C01370 138 | * W5C01380 002C C02F 139 | FB040 LD FB903 FETCH AREA ADDRESS W5C01390 002D D020 140 | STO FB140 SET UP LIBF AREA PARAM W5C01400 002E C04A 141 | LD FB923 FETCH ERROR ADDRESS W5C01410 002F 7017 142 | B FB120 BR TO ST ERR PARAM W5C01420 143 | * W5C01430 144 | * W5C01440 145 | *************************************************** W5C01450 146 | * * W5C01460 147 | * WRITE ROUTINE * W5C01470 148 | * * W5C01480 149 | *************************************************** W5C01490 150 | * W5C01500 0030 C02B 151 | FB050 LD FB903 FETCH POINTER TO AREA W5C01510 0031 D01C 152 | STO FB140 SET UP LIBF AREA PARAM W5C01520 0032 C047 153 | LD FB924 FETCH ERROR ADDRESS W5C01530 0033 7013 154 | B FB120 BR TO SET UP ERR PARAM W5C01540 155 | * W5C01550 156 | * W5C01560 157 | *************************************************** W5C01570 158 | * * W5C01580 159 | * CONNECT OR DISCONNECT ROUTINE * W5C01590 160 | * * W5C01600 161 | *************************************************** W5C01610 162 | * W5C01620 0034 C480 005CR 163 | FB060 LD I FB903 GET CONTROL PARAMETER W5C01630 0036 100F 164 | SLA 15 SET BIT 0 TO CONTROL W5C01640 0037 D600 007ER 165 | STO L2 FB929 SAVE IN LINE FLAG W5C01650 0039 C041 166 | LD FB925 FETCH ERROR ADDRESS W5C01660 167 | * W5C01670 003A D013 168 | FB070 STO FB140 SET UP PARAMETER W5C01680 003B C030 169 | LD FB913 FETCH NOP W5C01690 003C 700A 170 | B FB120 BR TO STORE NOP W5C01700 171 | * W5C01710 172 | * W5C01720 173 | *************************************************** W5C01730 174 | * * W5C01740 175 | * PASS LINE STATISTICS ROUTINE * W5C01750 176 | * * W5C01760 177 | *************************************************** W5C01770 178 | * W5C01780 003D C01E 179 | FB080 LD FB903 FETCH AREA ADDRESS W5C01790 003E 70FB 180 | B FB070 BR TO ST AREA PARAM W5C01800 181 | * W5C01810 182 | * W5C01820 183 | *************************************************** W5C01830 184 | * * W5C01840 185 | * DIAGNOSE ROUTINE * W5C01850 186 | * * W5C01860 187 | *************************************************** W5C01870 188 | * W5C01880 003F C03A 189 | FB090 LD FB924 FETCH ERROR RTN ADDR W5C01890 0040 70F9 190 | B FB070 BR TO ST ERR PARAM W5C01900 191 | * W5C01910 192 | * W5C01920 193 | *************************************************** W5C01930 194 | * * W5C01940 195 | * INITIALIZE ROUTINE * W5C01950 196 | * * W5C01960 197 | *************************************************** W5C01970 198 | * W5C01980 0041 148C*3070 199 | FB100 LIBF MTCA0 INITIALIZE W5C01990 0042 7000 200 | DC /7000 *COMMAND W5C02000 201 | * W5C02010 0043 700C 202 | B FB160 BR TO EXIT W5C02020 203 | * W5C02030 204 | * W5C02040 205 | *************************************************** W5C02050 206 | * * W5C02060 207 | * STOP ROUTINE * W5C02070 208 | * * W5C02080 209 | *************************************************** W5C02090 210 | * W5C02100 0044 148C*3070 211 | FB110 LIBF MTCA0 STOP W5C02110 0045 8000 212 | DC /8000 *COMMAND W5C02120 213 | * W5C02130 0046 7009 214 | B FB160 BR TO EXIT W5C02140 215 | * W5C02150 216 | * W5C02160 217 | *************************************************** W5C02170 218 | * * W5C02180 219 | * RESTORE AND RETURN ROUTINE * W5C02190 220 | * * W5C02200 221 | *************************************************** W5C02210 222 | * W5C02220 0047 D007 223 | FB120 STO FB150 ST LIBF PARAMETER W5C02230 0048 C0CC 224 | LD FB900 FETCH LINE NUMBER W5C02240 0049 8500 006BR 225 | A L1 FB913-1 SET UP APPROP. COMMAND W5C02250 004B D001 226 | STO FB130 SET UP LIBF COMMAND W5C02260 227 | * W5C02270 004C 148C*3070 228 | LIBF MTCA0 * W5C02280 004D 0000 229 | FB130 DC *-* * INITIATE W5C02290 004E 0000 230 | FB140 DC *-* * LIBF W5C02300 004F 0000 231 | FB150 DC *-* * W5C02310 232 | * W5C02320 0050 2000 233 | FB160 LDS 0 RESTORE STATUS W5C02330 0051 6500 0000 234 | FB170 LDX L1 *-* RESTORE XR1 W5C02340 0053 6600 0000 235 | FB180 LDX L2 *-* RESTORE XR2 W5C02350 0055 C804 236 | LDD FB902 RESTORE ACC AND EXT W5C02360 0056 7403 0000R 237 | MDM MTCAZ,3 SET PROGRAM RETURN ADDR W5C02370 0058 4C80 0000R 238 | B I MTCAZ RETURN TO CALLER W5C02380 239 | * W5C02390 240 | * W5C02400 241 | *************************************************** W5C02410 242 | * * W5C02420 243 | * CONSTANTS AND DATA AREAS * W5C02430 244 | * * W5C02440 245 | *************************************************** W5C02450 246 | * W5C02460 005A 247 | FB902 BSS E 2 CONTENTS OF ACC & EXT W5C02470 005C 0000 248 | FB903 DC *-* AREA OR FLAG PARAMETER W5C02480 005D 0001 249 | FB904 DC 1 CONSTANT 1 W5C02490 005E 0002 250 | FB905 DC 2 CONSTANT 2 W5C02500 005F 0003 251 | FB906 DC 3 CONSTANT 3 W5C02510 0060 0004 252 | FB907 DC 4 CONSTANT 4 W5C02520 0061 0007 253 | FB910 DC 7 CONSTANT 7 W5C02530 0062 0008 254 | FB911 DC 8 CONSTANT 8 W5C02540 255 | * W5C02550 0063 001AR 256 | FB912 DC FB010 TEST ROUTINE ADDR W5C02560 0064 002CR 257 | DC FB040 READ ROUTINE ADDR W5C02570 0065 0030R 258 | DC FB050 WRITE ROUTINE ADDR W5C02580 0066 0034R 259 | DC FB060 CONNECT ROUTINE ADDR W5C02590 0067 0034R 260 | DC FB060 DISCONNECT ROUTINE ADDR W5C02600 0068 003DR 261 | DC FB080 PASS STAT ROUTINE ADDR W5C02610 0069 003FR 262 | DC FB090 DIAGNOSE ROUTINE ADDR W5C02620 006A 0041R 263 | DC FB100 INITIALIZE ROUTINE ADDR W5C02630 006B 0044R 264 | DC FB110 STOP ROUTINE ADDR W5C02640 265 | * W5C02650 006C 1000 266 | FB913 DC /1000 READ COMMAND W5C02660 006D 2000 267 | DC /2000 WRITE COMMAND W5C02670 006E 3000 268 | DC /3000 CONNECT COMMAND W5C02680 006F 4000 269 | DC /4000 DISCONNECT COMMAND W5C02690 0070 5000 270 | DC /5000 PASS STATISTICS COMMAND W5C02700 0071 6000 271 | DC /6000 DIAGNOSE COMMAND W5C02710 272 | * W5C02720 0072 FF0B 273 | FB915 DC /FF0B INVALID COUNT ERROR W5C02730 0073 E009 274 | FB917 DC /E009 OVERRUN ERROR W5C02740 0074 E00F 275 | FB918 DC /E00F LINK NOT ACTIVE ERROR W5C02750 0075 E022 276 | FB919 DC /E022 INTERRUPT (ATTENTION) W5C02760 0076 0029 277 | FB920 DC /0029 TIMEOUT ERROR MASK W5C02770 0077 002A 278 | FB921 DC /002A WRITE, LINK NOT ACTIVE W5C02780 0078 002F 279 | FB922 DC /002F LOST DATA ERROR MASK W5C02790 280 | * W5C02800 0079 008FR 281 | FB923 DC FB190 READ ERR RTN ADDR W5C02810 007A 00ABR 282 | FB924 DC FB260 WRITE/DIAGNOSE ERR RTN W5C02820 007B 00C3R 283 | FB925 DC FB300 CONNECT ERR RTN ADDR W5C02830 007C 0000 284 | FB927 DC *-* SAVE LOCN FOR ERR CODE W5C02840 285 | * W5C02850 007D 0000 286 | FB928 DC *-* ERROR RETURN CODE W5C02860 287 | * 0 - ENDS THE OPERATION W5C02870 288 | * IN PROGRESS. W5C02880 289 | * 1 - REQUESTS THE OP W5C02890 290 | * BE CONTINUED. W5C02900 291 | * W5C02910 292 | *************************************************** W5C02920 293 | * LINE ERROR FLAGS * W5C02930 294 | *************************************************** W5C02940 295 | * * W5C02950 296 | * FOR READ, WRITE AND DIAGNOSE COMMANDS - * W5C02960 297 | * 0 - NO ERROR * W5C02970 298 | * 2 - BAD DATA ERROR * W5C02980 299 | * 3 - TIMEOUT ERROR * W5C02990 300 | * 4 - ATTENTION FEATURE (2741) * W5C03000 301 | * 5 - TMT ATTEMPTED WITH LINK NOT ACTIVE * W5C03010 302 | * 6 - TMT ATTEMPTED WHILE IN RCV MODE * W5C03020 303 | * 7 - ADAPTER FAILED * W5C03030 304 | * * W5C03040 305 | * FOR CONNECT, BIT 0 IS USED - * W5C03050 306 | * 0 - IGNORE LINK NOT ACTIVE ERROR * W5C03060 307 | * 1 - RESTORE CONNECT TIMEOUT * W5C03070 308 | * * W5C03080 309 | *************************************************** W5C03090 007E 007ER 310 | FB929 DC FB929 ADDR OF LINE ERR FLAGS W5C03100 007F 0000 311 | DC *-* LINE 1 ERROR FLAG W5C03110 0080 0000 312 | DC *-* LINE 2 ERROR FLAG W5C03120 0081 0000 313 | DC *-* LINE 3 ERROR FLAG W5C03130 0082 0000 314 | DC *-* LINE 4 ERROR FLAG W5C03140 0083 0000 315 | DC *-* LINE 5 ERROR FLAG W5C03150 0084 0000 316 | DC *-* LINE 6 ERROR FLAG W5C03160 0085 0000 317 | DC *-* LINE 7 ERROR FLAG W5C03170 0086 0000 318 | DC *-* LINE 8 ERROR FLAG W5C03180 0087 0000 319 | DC *-* LINE 9 ERROR FLAG W5C03190 0088 0000 320 | DC *-* LINE 10 ERROR FLAG W5C03200 0089 0000 321 | DC *-* LINE 11 ERROR FLAG W5C03210 008A 0000 322 | DC *-* LINE 12 ERROR FLAG W5C03220 008B 0000 323 | DC *-* LINE 13 ERROR FLAG W5C03230 008C 0000 324 | DC *-* LINE 14 ERROR FLAG W5C03240 008D 0000 325 | DC *-* LINE 15 ERROR FLAG W5C03250 008E 0000 326 | DC *-* LINE 16 ERROR FLAG W5C03260 327 | * W5C03270 328 | * W5C03280 329 | *************************************************** W5C03290 330 | * * W5C03300 331 | * READ ERROR ROUTINE * W5C03310 332 | * * W5C03320 333 | *************************************************** W5C03330 334 | * W5C03340 008F 0000 335 | FB190 DC *-* ENTRY POINT W5C03350 0090 F0E2 336 | EOR FB917 W5C03360 0091 4820 337 | SKP Z SKIP IF OVERRUN W5C03370 0092 F0CE 338 | EOR FB910 W5C03380 0093 4C18 009DR 339 | BZ FB210 BR IF PARITY ERROR W5C03390 0095 F0E2 340 | EOR FB922 W5C03400 0096 4C18 009CR 341 | BZ FB200 BR IF LOST DATA W5C03410 0098 F0DD 342 | EOR FB920 W5C03420 0099 4C18 00A8R 343 | BZ FB250 BR IF TIMEOUT W5C03430 344 | * W5C03440 009B 7009 345 | B FB240 BR TO RETURN W5C03450 346 | * W5C03460 009C C0C0 347 | FB200 LD FB904 SET ERROR RETURN CODE W5C03470 348 | * W5C03480 009D D0DF 349 | FB210 STO FB928 W5C03490 009E C0BF 350 | LD FB905 FETCH ERROR CODE 2 W5C03500 351 | * W5C03510 009F 18D0 352 | FB220 XCH FETCH LINE NUMBER W5C03520 00A0 80DD 353 | A FB929 SET UP POINTER TO LINE W5C03530 00A1 D002 354 | STO FB230+1 *ERROR FLAG W5C03540 00A2 18D0 355 | XCH RESTORE ERROR CODE W5C03550 00A3 D400 0000 356 | FB230 STO L *-* SET LINE ERROR FLAG W5C03560 00A5 C0D7 357 | FB240 LD FB928 FETCH ERROR RETURN CODE W5C03570 00A6 4C80 008FR 358 | B I FB190 RETURN TO RESP HANDLER W5C03580 359 | * W5C03590 00A8 D0D4 360 | FB250 STO FB928 CLEAR ERROR RETURN CODE W5C03600 00A9 C0B5 361 | LD FB906 FETCH ERROR CODE 3 W5C03610 00AA 70F4 362 | B FB220 BR TO CONTINUE W5C03620 363 | * W5C03630 364 | * W5C03640 365 | *************************************************** W5C03650 366 | * * W5C03660 367 | * WRITE/DIAGNOSE ERROR ROUTINE * W5C03670 368 | * * W5C03680 369 | *************************************************** W5C03690 370 | * W5C03700 00AB 0000 371 | FB260 DC *-* ENTRY POINT W5C03710 00AC D0CF 372 | STO FB927 SAVE ERROR CODE W5C03720 00AD C0FD 373 | LD FB260 GET RETURN ADDRESS W5C03730 00AE D0E0 374 | FB270 STO FB190 ST IN EXIT ADDRESS W5C03740 00AF 1010 375 | SLA 16 W5C03750 00B0 D0CC 376 | STO FB928 CLEAR RETURN CODE W5C03760 00B1 C0CA 377 | LD FB927 RESTORE ERROR CODE W5C03770 00B2 F0C2 378 | EOR FB919 W5C03780 00B3 4C18 00C1R 379 | BZ FB280+1 BR IF ATTENTION W5C03790 00B5 F0A8 380 | EOR FB905 W5C03800 00B6 4C18 00BFR 381 | BZ FB280-1 BR IF IN RCV MODE W5C03810 00B8 F0BE 382 | EOR FB921 W5C03820 00B9 4C18 00C0R 383 | BZ FB280 BR IF LINK NOT ACTIVE W5C03830 00BB F0A1 384 | EOR FB904 W5C03840 00BC 4C18 00D6R 385 | BZ FB340-1 BR IF INVALID COUNT W5C03850 386 | * W5C03860 00BE C09E 387 | LD FB904 GENERATE 7 W5C03870 00BF 809D 388 | A FB904 *APPROPRIATE 6 W5C03880 00C0 809C 389 | FB280 A FB904 *ERROR 5 W5C03890 00C1 809E 390 | A FB907 *CODE 4 W5C03900 00C2 70DC 391 | B FB220 BR TO CONTINUE W5C03910 392 | * W5C03920 393 | * W5C03930 394 | * W5C03940 395 | *************************************************** W5C03950 396 | * * W5C03960 397 | * CONNECT OR DISCONNECT ERROR ROUTINE * W5C03970 398 | * * W5C03980 399 | *************************************************** W5C03990 400 | * W5C04000 00C3 0000 401 | FB300 DC *-* ENTRY POINT W5C04010 00C4 D0B7 402 | STO FB927 SAVE ERROR CODE W5C04020 00C5 F0AE 403 | EOR FB918 LINK NOT ACTIVE ERROR W5C04030 00C6 4C20 00CFR 404 | BNZ FB310 *NO, BR TO CONTINUE W5C04040 00C8 18D0 405 | XCH FETCH LINE NUMBER W5C04050 00C9 80B4 406 | A FB929 GET ADDR OF LINE FLAG W5C04060 00CA D001 407 | STO *+1 W5C04070 00CB C400 0000 408 | LD L *-* GET CONTENTS OF FLAG W5C04080 00CD 4C80 00C3R 409 | B I FB300 RETURN TO RESP HANDLER W5C04090 410 | * W5C04100 00CF C0F3 411 | FB310 LD FB300 GET RETURN ADDRESS W5C04110 00D0 70DD 412 | B FB270 GO SET UP RETURN W5C04120 413 | * W5C04130 414 | * W5C04140 415 | *************************************************** W5C04150 416 | * * W5C04160 417 | * INVALID COMMAND ERROR ROUTINE * W5C04170 418 | * * W5C04180 419 | *************************************************** W5C04190 420 | * W5C04200 00D1 C580 0001 421 | FB330 LD I1 1 FETCH LINE NUMBER W5C04210 00D3 1890 422 | SRT 16 STORE IN EXTENSION W5C04220 00D4 C08D 423 | LD FB911 SET ERROR CODE IN ACC W5C04230 00D5 F087 424 | EOR FB904 * W5C04240 425 | * W5C04250 426 | * W5C04260 427 | *************************************************** W5C04270 428 | * * W5C04280 429 | * PREOPERATIVE ERROR TRAP * W5C04290 430 | * * W5C04300 431 | *************************************************** W5C04310 432 | * W5C04320 00D6 F09B 433 | EOR FB915 MASK ERROR CODE W5C04330 00D7 4400 0028 434 | FB340 BSI L $PRET BR TO PREOP ERROR TRAP W5C04340 00D9 70FD 435 | B FB340 LOOP ON $PRET W5C04350 436 | * W5C04360 437 | * W5C04370 00DA 438 | END W5C04380 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PRET 0028 67 434 FB010 001AR 114 256 FB020 001DR 118 115 FB030 0028R 128 120 FB040 002CR 139 257 FB050 0030R 151 258 FB060 0034R 163 259 260 FB070 003AR 168 180 190 FB080 003DR 179 261 FB090 003FR 189 262 FB100 0041R 199 263 FB110 0044R 211 264 FB120 0047R 223 142 154 170 FB130 004DR 229 226 FB140 004ER 230 140 152 168 FB150 004FR 231 223 FB160 0050R 233 71 126 130 202 214 FB170 0051R 234 72 FB180 0053R 235 73 FB190 008FR 335 281 358 374 FB200 009CR 347 341 FB210 009DR 349 339 FB220 009FR 352 362 391 FB230 00A3R 356 354 FB240 00A5R 357 345 FB250 00A8R 360 343 FB260 00ABR 371 282 373 FB270 00AER 374 412 FB280 00C0R 389 379 381 383 FB300 00C3R 401 283 409 411 FB310 00CFR 411 404 FB330 00D1R 421 86 88 FB340 00D7R 434 385 435 FB900 0015R 94 90 114 224 FB901 0017R 102 85 FB902 005AR 247 70 236 FB903 005CR 248 92 123 129 139 151 163 179 FB904 005DR 249 128 347 384 387 388 389 424 FB905 005ER 250 350 380 FB906 005FR 251 361 FB907 0060R 252 390 FB910 0061R 253 122 338 FB911 0062R 254 87 423 FB912 0063R 256 105 FB913 006CR 266 169 225 FB915 0072R 273 433 FB917 0073R 274 336 FB918 0074R 275 403 FB919 0075R 276 378 FB920 0076R 277 342 FB921 0077R 278 382 FB922 0078R 279 340 FB923 0079R 281 141 FB924 007AR 282 153 189 FB925 007BR 283 166 FB927 007CR 284 372 377 402 FB928 007DR 286 349 357 360 376 FB929 007ER 310 121 125 165 353 406 MTCAZ 0000R 69 74 237 238