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

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

2449 * 2450 * ********** 2451 * *JUMP * 2452 * *ILL TERM* 2453 * ********** 2454 * 2455 * CLEAR LAST OP FLAG FOR NO PATH TESTING 2456 * 2457 04262 140040 B6 CRA 2458 04263 0 04 00073 STA LSTP LSTP = 0 2459 * SET ILLEGAL DO TERM FLAG 2460 04264 0 02 00717 C5 LDA K101 2461 04265 0 04 00072 STA LSTF LSTF =1 2462 04266 0 02 00756 A1 LDA CRET 2463 04267 0 10 02547 JST TS00 IF TC NOT C/R, ERROR 2464 04270 0 01 04271 JMP C6 2465 * 2466 * 2467 * ********** 2468 * *CONTINUE* 2469 * ********** 2470 * WRAPUP LOGICAL IF, CHECK TRACE STOP AND SEARCH 2471 * DO TABLE FOR DO TERMINATION 2472 04271 0 02 00070 C6 LDA LIF 2473 04272 100040 SZE IF LIF NON-ZERO, 2474 04273 0 01 04333 JMP C6H GO TO 2475 04274 0 02 00071 C6A LDA LSTN IF LSTN NON-ZERO, 2476 04275 100040 SZE GO TO 2477 04276 0 01 04301 JMP C6C 2478 04277 0 04 00072 C6B STA LSTF LSTF = 0 2479 04300 0 01 04353 JMP C7 GO TO STATEMENT INPUT 2480 04301 0 07 00065 C6C SUB TRF TRACE FLAG 2481 04302 101040 SNZ SMP IF NOT END OF TRACE ZONE 2482 04303 0 04 00065 STA TRF SET TRF TO ZERO (TURN FLAG OFF) 2483 04304 0 02 00661 LDA DO START OF DO TABLE 2484 04305 0 06 00057 ADD D 2485 04306 0 04 00041 C6D STA I I = DO + D 2486 04307 0 10 02676 JST STXI 2487 04310 0 07 00661 SUB DO 2488 04311 101040 SNZ 2489 04312 0 01 04277 JMP C6B GO TO C6B - FINISHED DO 2490 04313 1 02 15374 LDA DP-4,1 2491 04314 0 07 00071 SUB LSTN 2492 04315 100040 SZE 2493 04316 0 01 04327 JMP C6E 2494 04317 0 02 00072 LDA LSTF 2495 04320 100040 SZE 2496 04321 0 01 04351 JMP C6K 2497 04322 0 10 06773 JST DQ00 DO TERMINATION 2498 04323 0 02 00057 LDA D