Previous File Previous Page Single Page Next Page Next File

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

0782 01335 140500 CH12 SSM MAKE E MINUS 0783 01336 0 04 00660 STA EBAR 0784 01337 0 01 11715 JMP C4 GO TO ASSIGN SPEC 0785 01340 000332 K63 OCT 332 0Z 0786 01341 000301 CH13 OCT 301 0787 * 0788 * 0789 * ************* 0790 * *INPUT DIGIT* 0791 * ************* 0792 * A IS ZERO IF NOT DIGIT 0793 * 0794 01342 0 000000 ID00 DAC ** INPUT DIGIT 0795 01343 0 10 01256 JST CH00 INPUT A CHAR 0796 01344 0 11 00716 CAS K61 ='271 (9) 0797 01345 -0 01 01342 JMP* ID00 (A) = TC 0798 01346 0 01 01353 JMP ID10 ELSE, (A) = 0 0799 01347 0 11 00715 CAS K60 RETURN 0800 01350 101000 NOP 0801 01351 0 01 01353 JMP *+2 0802 01352 -0 01 01342 JMP* ID00 0803 01353 140040 ID10 CRA 0804 01354 -0 01 01342 JMP* ID00 0805 * 0806 * 0807 * ********************** 0808 * *INPUT (A) CHARACTERS* 0809 * ********************** 0810 * CHAR COUNT IN XR, TERMINATES WITH EITHER 0811 * 1, CHAR COUNT -1 = ZERO OR 0812 * 2, LAST CHAR IS A DELIMITER 0813 * 0814 01355 0 000000 IA00 DAC ** 0815 01356 140407 TCA SET COUNTER 0816 01357 0 04 01411 STA IA99 0817 01360 0 10 01374 JST IA50 EXCHANGE IBUF AND ID 0818 01361 140040 CRA 0819 01362 0 04 00575 STA NTID NTID = 0 0820 01363 0 10 01256 IA10 JST CH00 INPUT A CHARACTER 0821 01364 0 10 03055 JST PACK 0822 01365 0 02 00643 LDA DFL IF DFL NOT ZERO, 0823 01366 100040 SZE CONTINUE 0824 01367 0 01 01372 JMP IA20 ELSE, 0825 01370 0 12 01411 IRS IA99 TEST COUNTER 0826 01371 0 01 01363 JMP IA10 MORE CHARACTERS TO INPUT 0827 01372 0 10 01374 IA20 JST IA50 EXCHANGE ID AND IBUF 0828 01373 -0 01 01355 JMP* IA00 RETURN 0829 01374 0 000000 IA50 DAC ** EXCHANGE IBUF AND ID 0830 01375 0 10 03007 JST SAV SAVE INDEX 0831 01376 0 02 01410 LDA IA90
Previous File Previous Page Single Page Next Page Next File