FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 125

3907 * *************** 3908 * *DO INITIALIZE* 3909 * *************** 3910 * GENERATE DO INITIALIZATION CODE. 3911 06131 0 000000 DS00 DAC ** 3912 06132 0 35 00626 LDX I 3913 06133 1 02 17400 LDA DP,1 A = DP (I) 3914 06134 0 04 00625 STA A 3915 06135 0 02 13030 LDA K200 3916 06136 0 10 06146 JST DS20 LOAD - LDA INITIAL VALUE 3917 06137 1 02 17376 LDA DP-2,1 3918 06140 0 04 00625 STA A A = DP (1-2) 3919 06141 0 02 00643 LDA RPL 3920 06142 1 04 17400 STA DP,1 SET RETURN ADDRESS INTO DP(I) 3921 06143 0 02 13031 LDA K202 3922 06144 0 10 06146 JST DS20 STORE - STA VARIABLE NAME 3923 06145 -0 01 06131 JMP* DS00 3924 * OUTPUT OA SUBROUTINE 3925 06146 0 000000 DS20 DAC ** 3926 06147 000201 IAB 3927 06150 0410 60 LLL 16 SET B = O 3928 06151 0 10 11471 JST OB00 OUTPUT OA 3929 06152 0 35 00626 LDX I RESTORE I 3930 06153 -0 01 06146 JMP* DS20 RETURN 3931 * 3932 EJCT