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

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

2549 04376 0 02 00053 LDA IFF IF IFF = 0, 2550 04377 101040 SNZ 2551 04400 0 01 04405 JMP C7B GO TO C7B 2552 04401 0 07 00071 SUB LSTN IF = LSTN 2553 04402 100040 SZE 2554 04403 0 01 04407 JMP C7C 2555 04404 0 04 00053 C7A STA IFF IFF = 0 2556 04405 0 10 04416 C7B JST C7LT LINE TEST 2557 04406 0 01 04456 JMP C8 2558 04407 0 02 00053 C7C LDA IFF IFF = A 2559 04410 0 04 00040 STA A 2560 04411 0400 40 LRL 32 2561 04412 0 02 13733 LDA K201 (A) = JMP INSTRUCTION 2562 04413 0 10 12467 JST OB00 OUTPUT OA 2563 04414 140040 CRA 2564 04415 0 01 04404 JMP C7A GO TO C7A 2565 04416 0 000000 C7LT DAC ** LINE TEST 2566 04417 0 02 01157 LDA CI+2 CI = BLANK 2567 04420 0 03 00733 ANA K116 LIST LINE 2568 04421 0 06 00673 ADD K8 RETURN 2569 04422 0 04 01157 STA CI+2 2570 04423 0 02 00607 LDA TC 2571 04424 0 07 00763 SUB HC2 IF TC : SPECIAL 2572 04425 100040 SZE 2573 04426 0 01 04431 JMP C7LU 2574 04427 0 10 03227 JST LIST 2575 04430 -0 01 04416 JMP* C7LT 2576 04431 0 10 03116 C7LU JST ER00 CONSTRUCTION ERROR 2577 04432 151703 BCI 1,SC STATEMENT NO. ON A CONTINUATION CARD 2578 * 2579 * 2580 * 2581 * ************************ 2582 * *CONTROL CARD PROCESSOR* 2583 * ************************ 2584 04433 0 10 14523 CCRD JST FS00 FLUSH BUFFER IF NECESSARY 2585 04434 0 10 03227 JST LIST LIST CARD 2586 04435 0 02 01155 LDA CI WORD CONTAINING COLUMN 1 2587 04436 0414 64 LGL 12 2588 04437 101040 SNZ 2589 04440 0 02 04454 LDA CCRK ='030000 (EOJ CODE = 3) 2590 04441 0404 72 LGR 6 TRUNCATE TO A DIGIT 2591 04442 0 04 14632 STA OCI 2592 04443 0 02 00724 LDA K106 =6 2593 04444 0 04 00602 STA OCNT SET BUFFER WORD COUNT TO 3 2594 04445 0 10 14523 JST FS00 FLUSH BUFFER 2595 04446 0 02 01155 LDA CI 2596 04447 0414 64 LGL 12 CHECK COLUMN 1 FOR CONTROL CODE 0 2597 04450 100040 SZE 2598 04451 0 01 03150 JMP ER20 SKIP TO NEXT CARD (NOT CONTROL CARD)