FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 107

3222 05000 140040 CRA 3223 05001 0 04 00060 STA O2 O2 = 0 3224 05002 0 02 00707 LDA IOF 3225 05003 0 04 00057 STA O1 O1 = IOF 3226 05004 0 02 00760 LDA K142 ='27 3227 05005 0 04 00061 STA P 3228 05006 0 10 07470 JST ET00 3229 05007 0 02 00627 LDA L 3230 05010 0 04 00707 STA IOF IOF = L 3231 05011 0 01 04773 JMP V5D GO TO V5D 3232 05012 0 10 02407 V5E JST NC00 NON-CONSTANT TEST 3233 05013 0 02 00710 LDA IU IF IU NOT ARR 3234 05014 0 07 00737 SUB K103 3235 05015 100040 SZE 3236 05016 0 01 05061 JMP V5H GO TO V5H 3237 05017 0 02 00067 LDA TC 3238 05020 0 07 14474 SUB K17 IF TC NOT -(, 3239 05021 100040 SZE 3240 05022 0 01 05056 JMP V5G GO TO V5G 3241 05023 0 02 00737 LDA K103 3242 05024 140407 TCA 3243 05025 0 10 06225 JST EX00 3244 05026 0 02 00646 LDA TRFA 3245 05027 0 01 05031 JMP *+2 3246 05030 0 02 00625 V5E4 LDA A 3247 05031 0 04 00057 V5E5 STA O1 3248 05032 0 02 00625 LDA A 3249 05033 0 04 00060 STA O2 3250 05034 0 02 12423 LDA OM50 3251 05035 0 04 00061 STA P 3252 05036 0 10 07470 JST ET00 ENTER TRIAD 3253 05037 0 02 00067 V5E7 LDA TC IF TC = COMMA 3254 05040 0 07 00754 SUB K134 GO TO V5D 3255 05041 101040 SNZ 3256 05042 0 01 04773 JMP V5D 3257 05043 0 02 00707 LDA IOF I = IOF 3258 05044 0 04 00626 STA I 3259 05045 100040 SZE IF NOT ZERO, 3260 05046 0 01 05051 JMP V5F GO TO V5F 3261 05047 0 10 11701 JST OT00 OUTPUT TRIADS 3262 05050 0 01 04762 JMP V5B2 GO TO V5B2 3263 05051 0 10 02360 V5F JST IP00 )-INPUT OPERATOR 3264 05052 0 35 00626 LDX I 3265 05053 1 02 17401 LDA DP+1,1 3266 05054 0 04 00707 STA IOF IOF = O1 (I) 3267 05055 0 01 05037 JMP V5E7 3268 05056 0 02 00625 V5G LDA A 3269 05057 140500 SSM 3270 05060 0 01 05031 JMP V5E5 3271 05061 0 10 03274 V5H JST TV00 TAG VARIABLE