FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 30

1051 01467 0 01 01512 JMP DN28 1052 01470 0 06 00736 ADD K102 1053 01471 101040 SNZ 1054 01472 0 01 01514 JMP DN29 1055 01473 0 02 00661 LDA K10 SET LAST READ CHARACTER TD '.' 1056 01474 0 04 00037 STA DFL 1057 01475 0 10 01152 JST UC00 UN-INPUT COL 1058 01476 0 02 00735 DN25 LDA K101 IM = INT 1059 01477 0 04 00706 STA IM 1060 01500 0 02 00775 LDA ID+1 IF ID IS TOO BIG TO 1061 01501 100040 SZE BE AN INTEGER (>L2), 1062 01502 0 01 01647 JMP DN69 GO TO DN69 (20) 1063 01503 0 02 00776 LDA ID+2 1064 01504 100040 SZE 1065 01505 0 01 01647 JMP DN69 1066 01506 0 01 01726 JMP DN84 OTHERWISE. GO TO DN84(12) 1067 01507 0 02 00742 DN26 LDA K106 IM = DBL 1068 01510 0 04 00706 STA IM 1069 01511 0 01 01461 JMP DN22 1070 01512 0 02 00735 DN28 LDA K101 F2 = 1 1071 01513 0 04 01343 STA F2 1072 01514 0 10 01240 DN29 JST ID00 INPUT DIGIT 1073 01515 100040 SZE IF (A) = 0, GO TO DN30 (8.5) 1074 01516 0 01 01647 JMP DN69 ELSE, GO TO DN69 (20) 1075 01517 0 02 01344 DN30 LDA F3 F3 = 10 * F3 1076 01520 0415 75 ALS 3 1077 01521 0 13 01344 IMA F3 F3 = F3 +TC 1078 01522 0415 77 ALS 1 1079 01523 0 06 01344 ADD F3 1080 01524 0 06 00067 ADD TC INPUT DIGIT 1081 01525 0 07 00665 SUB K60 1082 01526 0 04 01344 STA F3 IF (A) = 0, GO TO DN30 (8.5) 1083 01527 0 10 01240 JST ID00 ELSE, GO TO DN90 (9) 1084 01530 100040 SZE 1085 01531 0 01 02015 JMP DN90 1086 01532 0 01 01517 JMP DN30 1087 01533 0 02 00736 DN50 LDA K102 IM=REA 1088 01534 0 04 00706 STA IM 1089 01535 0 02 00067 LDA TC IF TC = ., GO TO DN54 1090 01536 0 07 00661 SUB K10 1091 01537 101040 SNZ 1092 01540 0 01 01577 JMP DN54 ELSE, 1093 01541 0 02 00054 LDA NT 1094 01542 101040 SNZ IF NT = 0, GO TO DN72 1095 01543 0 01 01656 JMP DN72 1096 01544 0 02 00067 LDA TC IF TC = H, GO TO DN9H (22) 1097 01545 0 07 14501 SUB K14 1098 01546 101040 SNZ 1099 01547 0 01 02153 JMP DN9H 1100 01550 0 02 00037 LDA DFL IF DFL = 0,