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

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

3151 05465 0 02 13735 LDA K200 OUTPUT LDA *+2 3152 05466 0 10 13773 JST OR00 OUTPUT REL 3153 05467 0 02 00060 LDA RPL 3154 05470 0 06 00720 ADD K102 3155 05471 0 04 00630 STA AF OUTPUT REL JMP *+2 3156 05472 0 02 13733 LDA K201 3157 05473 0 10 13773 JST OR00 OUTPUT OA 3158 05474 0400 40 LRL 32 3159 05475 0 02 05506 LDA T1W3 3160 05476 0 04 00040 STA A RESTORE A 3161 05477 140040 CRA 3162 05500 0 10 12467 JST OB00 OUTPUT DAC ST. NO. 3163 05501 0 10 02437 JST IR00 INPUT INTEGER VARIABLE 3164 05502 0400 40 LRL 32 3165 05503 0 02 13736 LDA K202 OUTPUT STA INSTRUCTION 3166 05504 0 10 12467 JST OB00 OUTPUT OA 3167 05505 0 01 04266 JMP A1 GO TO C/R TEST 3168 05506 0 00 00000 T1W3 PZE ** TEMP STORE 3169 * 3170 * 3171 * ************************ 3172 * *DO STATEMENT PROCESSOR* 3173 * ************************ 3174 * STACK INFO IN DO TABLE. OUTPUT DO INITIAL 3175 * CODE 3176 05507 0 00 00000 C9T0 PZE ** 3177 05510 0 10 02443 C9 JST IS00 INPUT STATEMENT = 3178 05511 0 10 02574 JST NR00 NON-REL TEST 3179 05512 0 02 00040 LDA A 3180 05513 0 04 05507 STA C9T0 T0 = A 3181 05514 0 10 01251 JST UC00 UNINPUT COLUMN 3182 05515 0 10 02437 JST IR00 3183 05516 0 02 05525 LDA C951 3184 05517 0 10 02547 JST TS00 3185 05520 0 02 05507 LDA C9T0 (A) = T0 3186 05521 000201 IAB 3187 05522 0 10 06702 JST DP00 DO INPUT 3188 05523 0 10 06747 JST DS00 DO INITIALIZE 3189 05524 0 01 04264 JMP C5 GO TO ILLTERM 3190 05525 000016 C951 OCT 16 = 3191 * 3192 * 3193 * ********** 3194 * *END FILE* 3195 * ********** 3196 * *********** 3197 * *BACKSPACE* 3198 * *REWIND * 3199 * *********** 3200 05526 0 02 05537 V6 LDA K71