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

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

2499 04324 0 07 00723 SUB K105 2500 04325 0 04 00057 STA D D = D-5 2501 04326 0 02 00072 LDA LSTF 2502 04327 0 04 00072 C6E STA LSTF 2503 04330 0 02 00041 LDA I 2504 04331 0 07 00723 SUB K105 2505 04332 0 01 04306 JMP C6D I = I-5 - CONTINUE DO LOOP 2506 04333 0 02 00053 C6H LDA IFF 2507 04334 0 04 00040 STA A 2508 04335 101040 SNZ 2509 04336 0 01 04344 JMP C6J 2510 04337 0410 60 LLL 16 2511 04340 0 02 13733 LDA OMI5 (A) = JMP INSTRUCTION 2512 04341 0 10 12467 JST OB00 OUTPUT OA 2513 04342 140040 CRA 2514 04343 0 04 00053 STA IFF IFF = 0 2515 04344 0 04 00040 C6J STA A A = U 2516 04345 0 02 00070 LDA LIF 2517 04346 0 04 00073 STA LSTP SET TO NON-ZERO TO PREVENT DATA ERROR MSG 2518 04347 0 10 14135 JST OS00 OUTPUT STRING - RPL 2519 04350 0 01 04274 JMP C6A 2520 * 2521 04351 0 10 03116 C6K JST ER00 2522 04352 142324 BCI 1,DT 2523 * 2524 * ***************** 2525 * *STATEMENT INPUT* 2526 * ***************** 2527 * SET UP PROCESSING OF NEXT SOURCE STATEMENT 2528 * PROCESS STATEMENT NUMBER IF PRESENT 2529 * WRAPUP ANY OUTSTANDING ARITHMETIC IF 2530 04353 140040 C7 CRA 2531 04354 0 04 00071 STA LSTN LSTN = 0 2532 04355 0 04 00652 STA IFLG IFLG = 0 2533 04356 0 04 00070 STA LIF LIF = 0 2534 04357 0 02 00113 LDA L0 L = L (0) 2535 04360 0 04 00044 STA L 2536 04361 0 02 01155 LDA CI CHECK CARD COLUMN 1 2537 04362 0404 70 LGR 8 FOR $ CHARACTER 2538 04363 0 07 00700 SUB K15 *($) 2539 04364 101040 SNZ 2540 04365 0 01 04433 JMP CCRD CONTROL CARD 2541 04366 0 10 02525 JST XN00 EXAMINE NEXT CHAR 2542 04367 100040 SZE 2543 04370 0 01 04375 JMP C71 2544 04371 0 10 02443 JST IS00 INPUT STATEMENT = 2545 04372 0 02 00040 LDA A 2546 04373 0 04 00071 STA LSTN LSTN = A 2547 04374 0 04 00073 STA LSTP 2548 04375 0 02 00053 C71 LDA IFF CHECK FOR IFF=0