FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 32

1151 01626 0 01 02214 JMP DN9N OPERATOR IS .NOT. 1152 * 1153 * 1154 * 1155 * 1156 01627 140040 DN63 CRA IM = 0 1157 01630 0 04 00706 STA IM 1158 01631 0 01 01643 JMP DN67 GO TO DN67 (18) 1159 01632 0 02 00735 DN64 LDA K101 1160 01633 0 04 00774 STA TID 1161 01634 0 02 00735 DN66 LDA K101 1162 01635 0 04 00054 STA NT NAME TAG = 1 (CONSTANT) 1163 01636 0 02 00736 LDA K102 IU=VAR 1164 01637 0 04 00710 STA IU 1165 01640 0 02 00737 LDA K103 1166 01641 0 04 00706 STA IM IM = LOG 1167 01642 0 10 01157 JST CH00 1168 01643 0 10 01307 DN67 JST FN00 FINISH OPERATOR 1169 01644 0 02 01346 DN68 LDA F6 IF F6 = 0, 1170 01645 101040 SNZ GO TO DN70 (21) 1171 01646 0 01 01651 JMP DN70 1172 01647 0 02 00661 DN69 LDA K10 1173 01650 0 04 00067 STA TC TC = . 1174 01651 140040 DN70 CRA 1175 01652 0 04 01346 DN71 STA F6 F6 = SXF = 0 1176 01653 0 04 00633 STA SXF 1177 01654 0 02 00706 LDA IM (A) = IM 1178 01655 -0 01 01350 JMP* DN00 RETURN 1179 01656 0 02 01342 DN72 LDA F1 IF F1 = 0, GO TO DN74 1180 01657 101040 SNZ 1181 01660 0 01 01663 JMP DN74 1182 01661 0 04 00067 STA TC ELSE, TC = F1 1183 01662 0 01 01610 JMP DN58 GO TO DN58 (14) 1184 01663 0 02 00067 DN74 LDA TC IF TC = -, GO TO DN82 1185 01664 0 07 00716 SUB K12 1186 01665 101040 SNZ 1187 01666 0 01 01723 JMP DN82 1188 01667 0 06 00736 ADD K102 CHECK FOR TC = + 1189 01670 101040 SNZ 1190 01671 0 01 01723 JMP DN82 1191 01672 0 02 00037 LDA DFL IF DFL = NON-ZERO 1192 01673 100040 SZE 1193 01674 0 01 01627 JMP DN63 GO TO DN63 (15) 1194 01675 0 02 00067 LDA TC 1195 01676 0 11 00664 CAS K43 1196 01677 0 01 01702 JMP *+3 1197 01700 0 01 01705 JMP DN78 1198 01701 0 01 01710 JMP DN81 1199 01702 0 11 01722 CAS K62 1200 01703 0 01 01710 JMP DN81