FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 33

1201 01704 101000 NOP 1202 01705 0 02 00735 DN78 LDA K101 IM = INT 1203 01706 0 04 00706 STA IM 1204 01707 0 02 00067 DN80 LDA TC PACK TC TO ID 1205 01710 0 10 02555 DN81 JST PACK 1206 01711 0 10 01157 JST CH00 INPUT CHAR 1207 01712 0 02 00037 LDA DFL IF DFL IS NOT ZERO, 1208 01713 100040 SZE GO TO DN67 (18) 1209 01714 0 01 01643 JMP DN67 1210 01715 0 02 00056 LDA NTID IF NTID = 6, GO TO DN67 1211 01716 0 07 00742 SUB K106 1212 01717 100040 SZE 1213 01720 0 01 01707 JMP DN80 1214 01721 0 01 01643 JMP DN67 1215 01722 000316 K62 OCT 316 1216 01723 0 10 01307 DN82 JST FN00 1217 01724 0 04 01342 STA F1 F1 = CONVERTED TC 1218 01725 0 01 01363 JMP DN06 GO TO DN06 (2) 1219 01726 0 02 01342 DN84 LDA F1 IF F1 = -, 1220 01727 0 07 00736 SUB K102 GO TO DN85(13) 1221 01730 100040 SZE 1222 01731 0 01 01751 JMP DN85 1223 01732 140040 CRA 1224 01733 0 07 00774 SUB TID COMPLEMENT THREE WORDS AT TID 1225 01734 100040 SZE 1226 01735 0 01 01742 JMP DN8A 1227 01736 0 07 00775 SUB TID+1 1228 01737 100040 SZE 1229 01740 0 01 01745 JMP DN8B 1230 01741 0 01 01747 JMP DN8C 1231 01742 0 04 00774 DN8A STA TID 1232 01743 0 02 00676 LDA K123 1233 01744 0 07 00775 SUB TID+1 1234 01745 0 04 00775 DN8B STA TID+1 1235 01746 0 02 00676 LDA K123 1236 01747 0 07 00776 DN8C SUB TID+2 1237 01750 0 04 00776 STA TID+2 1238 01751 0 02 00633 DN85 LDA SXF IF SXF = 0, GO TO DN67 (18) 1239 01752 101040 SNZ 1240 01753 0 01 01643 JMP DN67 ELSE, 1241 01754 0 02 00706 LDA IM IF IM NOT = REA. 1242 01755 0 07 00736 SUB K102 1243 01756 100040 SZE GO TO DN67 (18) 1244 01757 0 01 01643 JMP DN67 1245 01760 0 02 01346 LDA F6 ELSE, 1246 01761 101040 SNZ IF F6 = 0, GO TO DN87 1247 01762 0 01 02000 JMP DN87 1248 01763 0 02 00741 LDA K105 1249 01764 0 04 00706 STA IM IM = CPX 1250 01765 0 02 00774 LDA TID INTERCHANGE