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

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

3951 06751 1 02 15400 LDA DP,1 A = DP (I) 3952 06752 0 04 00040 STA A 3953 06753 0 02 13735 LDA K200 3954 06754 0 10 06764 JST DS20 LOAD - LDA INITIAL VALUE 3955 06755 1 02 15376 LDA DP-2,1 3956 06756 0 04 00040 STA A A = DP (I-2) 3957 06757 0 02 00060 LDA RPL 3958 06760 1 04 15400 STA DP,1 SET RETURN ADDRESS INTO DP(I) 3959 06761 0 02 13736 LDA K202 3960 06762 0 10 06764 JST DS20 STORE - STA VARIABLE NAME 3961 06763 -0 01 06747 JMP* DS00 3962 * OUTPUT OA SUBROUTINE 3963 06764 0 000000 DS20 DAC ** 3964 06765 000201 IAB 3965 06766 0410 60 LLL 16 SET B = 0 3966 06767 0 10 12467 JST OB00 OUTPUT OA 3967 06770 0 10 02676 JST STXI RESTORE I 3968 06771 -0 01 06764 JMP* DS20 RETURN 3969 * 3970 06772 0 00 00000 DS90 PZE 0 3971 * 3972 * **************** 3973 * *DO TERMINATION* 3974 * **************** 3975 * GENERATE DO TERMINATION CODE. 3976 06773 0 000000 DQ00 DAC ** 3977 06774 0 10 02676 JST STXI 3978 06775 1 02 15376 LDA DP-2,1 3979 06776 0 04 00040 STA A 3980 06777 0 02 13735 LDA K200 3981 07000 0 10 06764 JST DS20 OUTPUT LDA VARIABLE NAME 3982 07001 1 02 15375 LDA DP-3,1 3983 07002 0 04 00040 STA A 3984 07003 0 02 13732 LDA K203 3985 07004 0 10 06764 JST DS20 OUTPUT ADD INCREMENT 3986 07005 1 02 15377 LDA DP-1,1 3987 07006 0 04 00040 STA A 3988 07007 0 02 13760 LDA OMK9 3989 07010 0 10 06764 JST DS20 OUTPUT CAS FINAL VALUE 3990 07011 140040 CRA 3991 07012 0 04 00040 STA A 3992 07013 0 02 00060 LDA RPL 3993 07014 0 06 00721 ADD K103 3994 07015 0 04 00630 STA AF 3995 07016 1 02 15400 LDA DP,1 3996 07017 0 04 06772 STA DS90 3997 07020 0 02 13733 LDA OMI5 JUMP *+3 3998 07021 0 10 13773 JST OR00 OUTPUT REL 3999 07022 0 02 06772 LDA DS90 4000 07023 0 04 00630 STA AF