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

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

3551 06230 000307 K53 OCT 307 0G 3552 000712 K50 EQU K43 0I 3553 * 3554 * 3555 * ******* 3556 * *STOP * 3557 * *PAUSE* 3558 * ******* 3559 * PAUSE AND STOP CENERATE CALLS TO F$HT 3560 06231 0 00 00000 T1W7 PZE 0 3561 06232 0 00 00000 T2W7 PZE 0 3562 06233 0 02 06300 W7 LDA K55 3563 06234 0 04 06231 STA T1W7 3564 06235 0 02 06276 W7A LDA K74 3565 06236 0 04 00571 STA NAMF+1 NAMF = F$HT 3566 06237 0 10 02722 JST NF00 SET-UP REMAINING CHAR 0F NAME 3567 06240 0 10 02525 JST XN00 EXAMINE NEXT CHAR 3568 06241 0 02 00607 LDA TC 3569 06242 0 07 00756 SUB CRET 3570 06243 101040 SNZ 3571 06244 0 01 06251 JMP W7C TC = C/R - NOTING FOLLOWING 3572 06245 0 10 02432 JST IV00 INPUT INTEGER/VARIA8LE 3573 06246 0400 40 LRL 32 3574 06247 0 02 13735 LDA K200 OUTPUT LDA 3575 06250 0 10 12467 JST OB00 OUTPUT OA 3576 06251 0 10 12363 W7C JST CN00 CALL NAME 3577 06252 140040 CRA 3578 06253 0 04 00640 STA DF DF = 0 3579 06254 0 02 06231 LDA T1W7 3580 06255 0 04 01475 STA ID 3581 06256 0 10 04241 JST AI00 ASSIGN INTEGER CONSTANT 3582 06257 140040 CRA OUTPUT DAC 3583 06260 0 10 12467 JST OB00 OUTPUT OA OF ST/PA OR HT 3584 06261 0 02 06231 LDA T1W7 3585 06262 0 07 06277 SUB K54 3586 06263 101040 SNZ 3587 06264 0 01 04264 JMP C5 PA-NOT THE CASE 3588 06265 0 02 00060 LDA RPL 3589 06266 0 04 00630 STA AF OUTPUT JMP * 3590 06267 140040 CRA 3591 06270 0 04 00040 STA A CAUSE LISTING TO HAVE OCTAL ADDRESS 3592 06271 0 02 13733 LDA K201 3593 06272 0 10 13773 JST OR00 OUTPUT RELATWE 3594 06273 0 01 04262 JMP B6 3595 06274 0 02 06277 W8 LDA K54 3596 06275 0 01 06234 JMP W7+1 3597 06276 144324 K74 BCI 1,HT HT 3598 06277 150301 K54 BCI 1,PA PA 3599 06300 151724 K55 BCI 1,ST ST 3600 *