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

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

0732 * 2, EQUIVALENCE BUFFER (EBAR NEGATIVE) 0733 * 0734 01256 0 000000 CH00 DAC ** 0735 01257 0 02 00660 LDA EBAR IF EBAR 7 0, 0736 01260 101400 SMI 0737 01261 0 01 01314 JMP CH10 G0 10 CH10 0738 01262 0 10 01066 CH03 JST IC00 INPUT COLUMN 0739 01263 0 07 00673 SUB K8 IF BLANK, REPEAT 0740 01264 101040 SNZ 0741 01265 0 01 01262 JMP CH03 0742 01266 0 02 00607 LDA TC ELSE, 0743 * 0744 01267 0 11 01341 CH04 CAS CH13 ='301 0745 01270 101000 NOP 0746 01271 0 01 01306 JMP CH06 0747 01272 0 11 00716 CAS K61 ='271 0748 01273 0 01 01303 JMP CH05 0749 01274 101000 NOP 0750 01275 0 11 00700 CAS K15 ='244 0751 01276 0 01 01300 JMP *+2 0752 01277 0 01 01302 JMP CH05-1 0753 01300 0 11 00715 CAS K60 ='260 0754 01301 101000 NOP 0755 01302 140040 CRA ALPHA NUMERIC CHARACTER 0756 01303 0 04 00643 CH05 STA DFL DELIMITER ENTRY 0757 01304 0 02 00607 LDA TC EXIT WITH TC IN A 0758 01305 -0 01 01256 JMP* CH00 0759 01306 0 11 01340 CH06 CAS K63 ='332 0760 01307 0 01 01303 JMP CH05 0761 01310 101000 NOP 0762 01311 0 01 01302 JMP CH05-1 0763 01312 0 04 00643 CH08 STA DFL 0764 01313 -0 01 01256 JMP* CH00 0765 01314 0 02 00644 CH10 LDA E IF E = EBAR 0766 01315 0 11 00660 CAS EBAR 0767 01316 0 01 01320 JMP *+2 0768 01317 0 01 01335 JMP CH12 GO TO CH12 0769 01320 0 04 00000 STA 0 SET E INTO INDEX 0770 01321 0410 60 LLL 16 SET (B) TO ZERO 0771 01322 1 02 15400 LDA DP,1 CURRENT CHARACTER WORD 0772 01323 0412 70 LLR 8 0773 01324 1 04 15400 STA DP,1 SAVE REMAINING CHARACTER IF ANY 0774 01325 000201 IAB 0775 01326 0 04 00607 STA TC TC=LEFTMOST CHARACTER 0776 01327 100040 SZE SKIP IF NEW CHARACTER WORD NEEDED 0777 01330 0 01 01267 JMP CH04 0778 01331 0 02 00644 LDA E E=E-1 0779 01332 0 07 00717 SUB K101 =1 0780 01333 0 04 00644 STA E 0781 01334 0 01 01314 JMP CH10 PICK UP NEXT CHARACTER WORD