Previous File Previous Page Single Page Next Page Next File

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

0956 01610 0 04 01515 DN17 STA F5 F5 = '.' 0957 01611 0 02 00643 LDA DFL IF DFL =0, GO SO DN20 (5) 0958 01612 100040 SZE 0959 01613 0 01 02144 JMP DN90 ELSE GO TO DN90 (9) 0960 01614 0 02 00607 DN20 LDA TC IF TC = D, GO TO DN26 0961 01615 0 07 02543 SUB K11 0962 01616 101040 SNZ 0963 01617 0 01 01660 JMP DN26 0964 01620 0 07 00717 SUB K101 ELSE, IF TC = E, GO TO DN22 0965 01621 101040 SNZ 0966 01622 0 01 01631 JMP DN22 TERMINATOR = E 0967 01623 0 10 01251 JST UC00 0968 01624 0 02 00675 LDA K10 ='256 (,) 0969 01625 0 04 00643 STA DFL SET DELIMITER FLAG 0970 01626 0 02 00717 LDA K101 =1 0971 01627 0 04 00653 STA IM SET ITEM MODE TO INTEGER 0972 01630 0 01 01772 JMP DN67 FINISH OPERATOR AND EXIT 0973 * 0974 01631 0 10 01342 DN22 JST ID00 INPUT DIGIT 0975 01632 101040 SNZ IF (A) = 0, GO TO DN30 0976 01633 0 01 01670 JMP DN30 0977 01634 0 02 00607 LDA TC IF TC = -, GO TO DN28 0978 01635 0 07 00676 SUB K12 0979 01636 101040 SNZ 0980 01637 0 01 01663 JMP DN28 0981 01640 0 06 00720 ADD K102 0982 01641 101040 SNZ 0983 01642 0 01 01665 JMP DN29 0984 01643 0 02 01515 LDA F5 0985 01644 0 04 00643 STA DFL 0986 01645 0 10 01251 JST UC00 UN-INPUT COL 0987 01646 0 10 01412 DN24 JST FN00 FINISH OPERATOR 0988 01647 0 02 00717 DN25 LDA K101 IM = INT 0989 01650 0 04 00653 STA IM 0990 01651 0 02 01476 LDA ID+1 IF ID IS TOO BIG TO 0991 01652 100040 SZE BE AN INTEGER (>L2), 0992 01653 0 01 01776 JMP DN69 GO TO DN69 (20) 0993 01654 0 02 01477 LDA ID+2 0994 01655 100040 SZE 0995 01656 0 01 01776 JMP DN69 0996 01657 0 01 02055 JMP DN84 OTHERWISE, GO TO DN84(12) 0997 01660 0 02 00724 DN26 LDA K106 IM = DBL 0998 01661 0 04 00653 STA IM 0999 01662 0 01 01631 JMP DN22 1000 01663 0 02 00717 DN28 LDA K101 F2 = 1 1001 01664 0 04 01512 STA F2 1002 01665 0 10 01342 DN29 JST ID00 INPUT DIGIT 1003 01666 100040 SZE IF (A) = 0, GO TO DN30 (8.5) 1004 01667 0 01 01776 JMP DN69 ELSE, GO TO DN69 (20) 1005 01670 0 02 01513 DN30 LDA F3 F3 = 10 * F3
Previous File Previous Page Single Page Next Page Next File