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

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

3301 05656 101040 SNZ 3302 05657 0 01 05606 JMP V5D 3303 05660 0 02 00654 LDA IOF I = IOF 3304 05661 0 04 00041 STA I 3305 05662 100040 SZE IF NOT ZERO, 3306 05663 0 01 05666 JMP V5F GO TO V5F 3307 05664 0 10 12700 JST OT00 OUTPUT TRIADS 3308 05665 0 01 05575 JMP V5B2 GO TO V5B2 3309 05666 0 10 02555 V5F JST IP00 )-INPUT OPERATOR 3310 05667 0 10 02676 JST STXI 3311 05670 1 02 15401 LDA DP+1,1 3312 05671 0 04 00654 STA IOF IOF = O1 (I) 3313 05672 0 01 05654 JMP V5E7 3314 05673 0 10 04005 V5G JST KT00 K = = WDS/ITEM 3315 05674 0 01 05645 JMP V5E5 GO TO V5E5 3316 05675 0 10 03642 V5H JST TV00 TAG VARIABLE 3317 05676 0 02 00607 LDA TC 3318 05677 0 07 00701 SUB K16X ='16 (=) 3319 05700 100040 SZE GO TO V5E5 3320 05701 0 01 05645 JMP V5E5 ELSE, 3321 05702 0 10 02635 JST IT00 INTEGER TEST 3322 05703 0 02 00654 LDA IOF 3323 05704 101040 SNZ IF IOF = ZERO OR L 3324 05705 0 01 05711 JMP V5H7 3325 05706 0 07 00044 SUB L 3326 05707 100040 SZE 3327 05710 0 01 05713 JMP *+3 ERROR 3328 05711 0 10 03116 V5H7 JST ER00 3329 05712 150322 BCI 1,PR PARENTHESES MISSING IN DO STATEMENT 3330 05713 0 10 06702 JST DP00 DO INPUT 3331 05714 0 02 00654 LDA IOF 3332 05715 0 04 00041 STA I 3333 05716 0 10 02676 JST STXI 3334 05717 0 02 00057 LDA D 3335 05720 1 04 15400 STA DP,1 O2(IOF) = D 3336 05721 0 04 00577 STA O2 O2 = D 3337 05722 0 02 05735 LDA V5K3 ='30 3338 05723 0 04 00600 STA P 3339 05724 0 10 10436 JST ET00 ENTER TRIAD 'T'. 3340 05725 0 01 05666 JMP V5F 3341 05726 140040 V5J CRA 3342 05727 0 04 00040 STA A A = 0 3343 05730 0 10 14127 JST OA00 OUTPUT ABSOLUTE 3344 05731 0 01 05570 JMP V5B 3345 05732 0 00 00000 V5T1 PZE 0 3346 05733 000027 V5K1 OCT 27 3347 05734 000032 V5K2 OCT 32 3348 05735 000030 V5K3 OCT 30 3349 05736 151263 V5K4 BCI 1,R3 3350 05737 153664 V5K5 BCI 1,W4