C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 133

6436 * 6437 *-----SUBROUTINE TO CHECK FOR ILLEGAL IM OR MFL MODES, 6438 13313 0 000000 OM44 DAC ** RETURN ADDR, 6439 13314 0 11 00653 CAS IM CHECK FOR IM0(A) 6440 13315 0 01 13317 JMP *+2 6441 13316 0 01 13323 JMP OM46 ERROR 6442 13317 0 11 00045 CAS MFL CHECK FOR MFL=(A) 6443 13320 -0 01 13313 JMP* OM44 6444 13321 0 01 13323 JMP OM46 ERROR 6445 13322 -0 01 13313 JMP* OM44 6446 13323 0 10 03116 OM46 JST ER00 NON-RECOVERABLE ERROR...... 6447 13324 146715 BCI 1,MM MODE MIXING ERROR 6448 * 6449 *------SPECIAL 'P' OPERATOR TABLE 6450 13325 000032 OM50 OCT 32 'Q' 6451 13326 000017 OCT 17 ',' 6452 13327 000000 OCT 00 '0' 6453 13330 000022 OCT 22 'A' 6454 13331 000031 OCT 31 *F' 6455 13332 000020 OCT 20 'E' 6456 13333 0 013611 OM52 DAC OMB3 ('Q') 6457 13334 0 013611 DAC OMB3 (',') 6458 13335 0 013611 DAC OMB3 ('0') 6459 13336 0 013341 DAC OM56 ('A') 6460 13337 0 013343 DAC OM60 ('F') 6461 13340 0 013401 DAC OM70 ('E') 6462 * 6463 * 6464 13341 0 02 13727 OM56 LDA OMI1 SET T(1) = ADD* 6465 13342 0 01 13607 JMP OMB1 6466 * 6467 13343 0 10 02672 OM60 JST STXA SET INDEX = A 6468 13344 1 02 15401 LDA DP+1,1 6469 13345 0404 62 LGR 14 SET UV=IU(A) 6470 13346 0 04 00655 STA IU 6471 13347 0 10 02676 JST STXI SET INDEX=I 6472 13350 1 02 15402 LDA DP+2,1 P(I) 6473 13351 0 03 10027 ANA K133 ='77 6474 13352 101040 SNZ 6475 13353 0 01 13370 JMP OM64 (POSSIBLE DUMMY ARRAY FETCH) 6476 13354 0 02 00653 OM62 LDA IM 6477 13355 0 04 00045 STA MFL SET CURRENT MODE TO ITEM MODE 6478 13356 0414 70 LGL 8 6479 13357 0 06 00653 ADD IM 6480 13360 0 05 13516 ERA OM90 6481 13361 0 04 00571 STA NAMF+1 6482 13362 0 02 00655 LDA IU 6483 13363 0 07 00717 SUB K101 CHECK FOR IU=1 (SUBROUTINE) 6484 13364 100040 SZE 6485 13365 0 01 13526 JMP OMA1