FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 29

1001 01406 141206 AOA 1002 01407 0 04 00710 STA IU IU = VAR/COD 1003 01410 0 10 02720 JST SFT SHIFT ID LEFT 1004 01411 0 000774 DAC ID 1005 01412 0 10 02523 JST MOV3 MOVE TO TEMP STORE 1006 01413 0 10 02720 JST SFT 1007 01414 0 000774 DAC ID 1008 01415 0 10 02720 JST SFT 1009 01416 0 000774 DAC ID 1010 01417 0 10 02442 JST AD3 ID = 10*ID+TC 1011 01420 0 10 02510 JST BLNK 1012 01421 0 002221 DAC DNX1 1013 01422 0 02 00067 LDA TC 1014 01423 0 07 00665 SUB K60 1015 01424 0 04 02221 STA DNX1 1016 01425 0 10 02442 JST AD3 1017 01426 0 01 01365 JMP DN07 1018 01427 0 02 00713 SKIP LDA MIN2 1019 01430 0 06 00706 ADD IM 1020 01431 0405 77 ARS 1 1021 01432 0 06 01345 ADD F4 1022 01433 0 04 01345 STA F4 1023 01434 0 01 01365 JMP DN07 1024 01435 0 02 00706 DN14 LDA IM IM = REAL 1025 01436 0 07 00736 SUB K102 1026 01437 100040 SZE 1027 01440 0 01 01533 JMP DN50 NO. GO TO DN50 1028 01441 0 02 00037 DN16 LDA DFL IF DFL=0, GO TO DN20 (5) 1029 01442 100040 SZE 1030 01443 0 01 02015 JMP DN90 ELSE GO TO DN90 (9) 1031 01444 0 02 00067 LDA TC IF TC = D, GO TO DN26 1032 01445 0 07 00763 SUB K11 1033 01446 101040 SNZ 1034 01447 0 01 01507 JMP DN26 1035 01450 0 07 00735 SUB K101 ELSE, IF TC = E, GO TO DN22 1036 01451 101040 SNZ 1037 01452 0 01 01461 JMP DN22 TERMINATOR = E 1038 01453 0 10 01152 JST UC00 1039 01454 0 02 00661 LDA K10 ='256 (.) 1040 01455 0 04 00037 STA DFL SET DELIMITER FLAG 1041 01456 0 02 00735 DN17 LDA K101 =1 1042 01457 0 04 00706 STA IM SET ITEM MODE TO INTEGER 1043 01460 0 01 01643 JMP DN67 FINISH OPERATOR AND EXIT 1044 * 1045 01461 0 10 01240 DN22 JST ID00 INPUT DIGIT 1046 01462 101040 SNZ IF (A) = 0, GO TO DN30 1047 01463 0 01 01517 JMP DN30 1048 01464 0 02 00067 LDA TC IF TC = -, GO TO DN28 1049 01465 0 07 00716 SUB K12 1050 01466 101040 SNZ