FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 113

3486 * 3487 * 3488 * ******* 3489 * *STOP * 3490 * *PAUSE* 3491 * ******* 3492 * PAUSE AND STOP GENERATE CALLS TO F$HT 3493 05370 0 00 00000 T1W7 PZE 0 3494 05371 0 02 14275 W7 LDA K55 3495 05372 0 04 05370 W7A STA T1W7 3496 05373 0 02 05434 LDA K74 3497 05374 0 04 00052 STA NAMF+1 NAMF = F$HT 3498 05375 0 10 02501 JST NF00 SET-UP REMAINING CHAR OF NAME 3499 05376 0 10 02346 JST XN00 EXAMINE NEXT CHAR 3500 05377 0 02 00067 LDA TC 3501 05400 0 07 00702 SUB CRET 3502 05401 101040 SNZ 3503 05402 0 01 05407 JMP W7C TC = C/R - NOTING FOLLOWING 3504 05403 0 10 02253 JST IV00 INPUT INTEGER/VARIABLE 3505 05404 0400 40 LRL 32 3506 05405 0 02 13030 LDA K200 OUTPUT LDA 3507 05406 0 10 11471 JST OB00 OUTPUT OA 3508 05407 0 10 11363 W7C JST CN00 CALL NAME 3509 05410 140040 CRA 3510 05411 0 04 00035 STA DF DF = 0 3511 05412 0 02 05370 LDA T1W7 3512 05413 0 04 00774 STA ID 3513 05414 0 10 03612 JST AI00 ASSIGN INTEGER CONSTANT 3514 05415 140040 CRA OUTPUT DAC 3515 05416 0 10 11471 JST OB00 OUTPUT OA OF ST/PA OR HT 3516 05417 0 02 05370 LDA T1W7 3517 05420 0 07 14276 SUB K54 3518 05421 101040 SNZ 3519 05422 0 01 03635 JMP C5 PA-NOT THE CASE 3520 05423 0 02 00643 LDA RPL 3521 05424 0 04 00025 STA AF OUTPUT JMP * 3522 05425 140040 CRA 3523 05426 0 04 00625 STA A CAUSE LISTING TO HAVE OCTAL ADDRESS 3524 05427 0 02 13026 LDA K201 3525 05430 0 10 13072 JST OR00 OUTPUT RELATIVE 3526 05431 0 01 03633 JMP B6 3527 05432 0 02 14276 W8 LDA K54 3528 05433 0 01 05372 JMP W7A 3529 05434 144324 K74 BCI 1,HT HT 3530 EJCT