FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 108

3272 05062 0 02 00067 LDA TC 3273 05063 0 07 00753 SUB K153 ='16 (=) 3274 05064 100040 SZE GO TO V5E5 3275 05065 0 01 05030 JMP V5E4 3276 05066 0 10 02433 JST IT00 INTEGER TEST 3277 05067 0 02 00707 LDA IOF 3278 05070 101040 SNZ IF IOF = ZERO OR L 3279 05071 0 01 05075 JMP V5H7 3280 05072 0 07 00627 SUB L 3281 05073 100040 SZE 3282 05074 0 01 05077 JMP *+3 ERROR 3283 05075 0 10 02615 V5H7 JST ER00 3284 05076 150322 BCI 1,PR PARENTHESES MISSING IN DO STATEMENT 3285 05077 0 10 06064 JST DP00 DO INPUT 3286 05100 0 02 00707 LDA IOF 3287 05101 0 04 00626 STA I 3288 05102 0 35 00626 LDX I 3289 05103 0 02 00642 LDA D 3290 05104 1 04 17400 STA DP,1 O2(IOF) = D 3291 05105 0 04 00060 STA O2 O2 = D 3292 05106 0 02 00761 LDA K143 ='30 3293 05107 0 04 00061 STA P 3294 05110 0 10 07470 JST ET00 ENTER TRIAD 'T'. 3295 05111 0 01 05051 JMP V5F 3296 05112 140040 V5J CRA 3297 05113 0 10 13243 JST OC00 OUTPUT ABSOLUTE 3298 05114 0 01 04755 JMP V5B 3299 05115 0 00 00000 V5T1 PZE 0 3300 05116 0 000000 V5X DAC ** INPUT FORMAT 3301 05117 0 10 02346 JST XN00 EXAM NEXT CHARACTER 3302 05120 100040 SZE 3303 05121 0 01 05126 JMP V5X5 GO TO INPUT ARRAY NAME 3304 05122 0 10 02264 JST IS00 INPUT STMNT NO. 3305 05123 0400 40 V5X2 LRL 32 OUTPUT DAC A 3306 05124 0 10 11471 JST OB00 OUTPUT OA 3307 05125 -0 01 05116 JMP* V5X RETURN 3308 05126 0 10 02242 V5X5 JST NA00 INPUT NAME 3309 05127 0 10 02424 JST AT00 ARRAY TEST 3310 05130 0 01 05123 JMP V5X2 3311 * 3312 EJCT