C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 69

3251 05574 0 01 05603 JMP V5C N0, G0 TO V5C 3252 05575 0 02 00711 V5B2 LDA K42 YES. NAMF = ND 3253 05576 0 04 00571 STA NAMF+1 3254 05577 0 10 12363 JST CN00 CALL NAME 3255 05600 0 02 05732 LDA V5T1 3256 05601 0 04 00057 STA D 3257 05602 0 01 04266 JMP A1 G0 TO C/R TEST 3258 05603 0 10 01251 V5C JST UC00 3259 05604 140040 V5C5 CRA 3260 05605 0 04 00654 STA IOF IOF = 0 3261 05606 0 10 02354 V5D JST II00 INPUT ITEM 3262 05607 100040 SZE 3263 05610 0 01 05625 JMP V5E IF (A) NOT 0, GO TO V5E 3264 05611 0 02 00702 LDA K17 3265 05612 0 10 02547 JST TS00 (-TEST 3266 05613 140040 CRA 3267 05614 0 04 00577 STA O2 O2 = 0 3268 05615 0 02 00654 LDA IOF 3269 05616 0 04 00576 STA O1 01 = IOF 3270 05617 0 02 05733 LDA V5K1 = '27 3271 05620 0 04 00600 STA P 3272 05621 0 10 10436 JST ET00 3273 05622 0 02 00044 LDA L 3274 05623 0 04 00654 STA IOF IOF = L 3275 05624 0 01 05606 JMP V5D GO TO V5D 3276 05625 0 10 02611 V5E JST NC00 NON-CONSTANT TEST 3277 05626 0 02 00655 LDA IU IF IU NOT ARR 3278 05627 0 07 00721 SUB K103 3279 05630 100040 SZE 3280 05631 0 01 05675 JMP V5H GO TO V5H 3281 05632 0 02 00607 LDA TC 3282 05633 0 07 00702 SUB K17 IF TC NOT -(, 3283 05634 100040 SZE 3284 05635 0 01 05673 JMP V5G GO TO V5G 3285 05636 0 02 00633 LDA D0 3286 05637 0 04 05542 STA T0V5 T5 = D0 3287 05640 0 02 00721 LDA K103 3288 05641 140407 TCA 3289 05642 0 10 07041 JST EX00 EXPRESSION 3290 05643 0 02 05542 LDA T0V5 3291 05644 0 04 00633 STA D0 D0 = T5 3292 05645 0 02 00040 V5E5 LDA A 3293 05646 0 04 00577 STA O2 3294 05647 0 02 00633 LDA D0 O2 = D0 3295 05650 0 04 00576 STA O1 3296 05651 0 02 05734 LDA V5K2 ='32 3297 05652 0 04 00600 STA P 3298 05653 0 10 10436 JST ET00 ENTER TRIAD 3299 05654 0 02 00607 V5E7 LDA TC IF TC = COMMA 3300 05655 0 07 00752 SUB K134 GO T0 V5D