FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 119

3688 05630 0 013757 DAC PRI+11 3689 05631 1 02 17402 LDA DP+2,1 3690 05632 0 10 13272 JST OR80 3691 05633 0 013763 DAC PRI+15 3692 05634 1 02 17401 LDA DP+1,1 3693 05635 0 10 13272 JST OR80 3694 05636 0 013767 DAC PRI+19 3695 05637 1 02 17400 LDA DP,1 3696 05640 0 10 13272 JST OR80 3697 05641 0 013773 DAC PRI+23 3698 05642 0 10 00000 CALL F4$SYM 3699 05643 0 013744 DAC PRI 3700 05644 0 10 13321 JST PRSP SET TO SPACES AFTER PRINTING 3701 05645 0 02 00625 W5I LDA A A=A+5 3702 05646 0 06 00741 ADD K105 3703 05647 0 04 00625 STA A 3704 05650 0 07 00637 SUB ABAR IF A=ABAR, (DONE) 3705 05651 0 07 00741 SUB K105 3706 05652 100040 SZE 3707 05653 0 01 05570 JMP W5D ELSE, GO TO W5D 3708 05654 0 10 13531 W5J JST FS00 FLUSH BUFFER 3709 05655 0 02 00632 LDA SBF 3710 05656 100040 SZE 3711 05657 0 02 00667 LDA W5Z1 3712 05660 0 05 00675 ERA W5Z2 3713 05661 0 04 13650 STA OCI 3714 05662 0 02 00632 LDA SBF 3715 05663 100040 SZE 3716 05664 0 02 00672 LDA W5Z3 3717 05665 0 04 13651 STA OCI+1 3718 05666 0 02 00742 LDA K106 3719 05667 0 04 00063 STA OCNT 3720 05670 0 10 13531 JST FS00 3721 05671 0 01 01005 JMP A051 GO TO INITIALIZE 3722 05672 0 02 00643 W5K LDA RPL IF RPL NOT ZERO, 3723 05673 101040 SNZ 3724 05674 0 01 05654 JMP W5J 3725 05675 0 10 02615 JST ER00 ERROR IN A BLOCK DATA SUBPROGRAM 3726 05676 041304 VFD 1,0,7,'302,8,'304 ASCII 'BD' WITH SIGN BIT + 3727 05677 0 01 05654 JMP W5J 3728 05700 0 10 03317 W5M JST FA00 FETCH ASSIGNS 3729 05701 0 02 00631 LDA SFF IF FUNCTION, 3730 05702 100040 SZE 3731 05703 0 01 05712 JMP W5N GO TO W5N 3732 05704 0 10 02401 JST NU00 NO USE TEST 3733 05705 0 35 00625 LDX A 3734 05706 1 02 17400 LDA DP,1 IF NO ERROR, 3735 05707 140500 SSM NT(A)=1 3736 05710 1 04 17400 STA DP,1 3737 05711 0 01 05565 JMP W5B GO TO W5B