📄 business_fn.lst
字号:
00000074 E10000670C R +0 688 688 cmp (COUNTRY_TEN),12
00000079 DA06 +0 689 689 j lt,rate_ten_key_00
0000007B +0 690 690 rate_ten_key_001:
0000007B FD0000 R +0 691 691 call euro_display
0000007E FE0000 R +0 692 692 jp rate_key_end
+0 693 693
00000081 +0 694 694 rate_ten_key_00:
00000081 E1000040 R +0 695 695 ld a,(KEYIN)
00000085 F1000078 R +0 696 696 ld (DISP+6),a
+0 697 697 ;V4.17 j rate_ten_key_01
00000089 FC56 +0 698 698 j rate_ten_key_01x ;V4.17
0000008B +0 699 699 rate_ten_key_0:
0000008B 480000 R +0 700 700 ld wa,F_TNKEY
0000008E E10000FC R +0 701 701 test (F_TNKEY>>4).a ;bit -reverse-> jump status
00000092 A6 +0 702 702 j f,rate_ten_key_0x ;if jump status is 0 -> branch
00000093 E1000040 R +0 703 703 ld a,(KEYIN)
00000097 FE0000 R +0 704 704 jp rate_ten_key_0y
0000009A +0 705 705 rate_ten_key_0x:
0000009A 4B0000 R +0 706 706 ld hl,TENKEY ;V3.06
0000009D FD0000 R +0 707 707 call _zerock ;V3.06
000000A0 D81C +0 708 708 j eq,rate_ten_key_01 ;V3.06
000000A2 E1000040 R +0 709 709 ld a,(KEYIN)
+0 710 710 ; cmp a,1
+0 711 711 ; j lt,rate_ten_key_01
000000A6 +0 712 712 rate_ten_key_0y:
000000A6 F1000078 R +0 713 713 ld (DISP+5),a
000000AA F10000F93F R +0 714 714 ld (DISP+6),D_SPC
000000AF 41 +0 715 715 ld w,a ;V4.18
000000B0 180A +0 716 716 ld a,10 ;V4.18
000000B2 E8F2 +0 717 717 mul w,a ;V4.18
000000B4 F1000078 R +0 718 718 ld (COUNTRY_TEN),a ;V4.18
000000B8 6711 +0 719 719 cmp a,17 ;V4.18
+0 720 720 ;V4.18 cmp a,2
000000BA DA3C +0 721 721 j lt,rate_ten_key_1
000000BC FC23 +0 722 722 j rate_ten_key_01x ;V4.17
000000BE +0 723 723 rate_ten_key_01:
000000BE 4B0000 R +0 724 724 ld hl,TENKEY ;V4.12
000000C1 FD0000 R +0 725 725 call _zerock ;V4.12
000000C4 D91B +0 726 726 j nz,rate_ten_key_01x ;V4.12
000000C6 FD0000 R +0 727 727 call ten_clear ;V4.12
+0 728 728 ; @CLB (F_TNKEY) ;V4.12
000000C9 480000 R +0 729 729 ld wa,F_DPIN
000000CC E10000FA R +0 730 730 clr (F_DPIN>>4).a
+0 731 731 ; @CLB (F_MIN_TRA) ;V4.12
000000D0 0A0000 R +0 732 732 ld (TEN_CT),0 ;V4.12
000000D3 F10000F900 R +0 733 733 ld (DT_CT),0 ;V4.12
000000D8 FD0000 R +0 734 734 call spc_disp ;V4.12
000000DB 4B0000 R +0 735 735 ld hl,TENKEY ;V4.12
000000DE FD0000 R +0 736 736 call edit_disp ;V4.12
000000E1 +0 737 737 rate_ten_key_01x: ;V4.12
000000E1 480000 R +0 738 738 ld wa,F_CALER
000000E4 E10000F2 R +0 739 739 set (F_CALER>>4).a
000000E8 480000 R +0 740 740 ld wa,ICON_E
000000EB E10000F2 R +0 741 741 set (ICON_E>>4).a
000000EF E1000040 R +0 742 742 ld a,(KEYIN) ;V4.12a
000000F3 0E00 R +0 743 743 ld (PRE_KEY),a ;V4.12a
000000F5 FE0000 R +0 744 744 j rate_key_end_99
000000F8 +0 745 745 rate_ten_key_1:
000000F8 F1000078 R +0 746 746 ld (COUNTRY_TEN),a
000000FC 480000 R +0 747 747 ld wa,F_COUNTRY
000000FF E10000F2 R +0 748 748 set (F_COUNTRY>>4).a
00000103 FE0000 R +0 749 749 j rate_key_end_99
+0 750 750 ;------------------------------
00000106 +0 751 751 fix_euro_to_ten:
00000106 E1000041 R +0 752 752 ld w,(COUNTRY_TEN)
0000010A 1808 +0 753 753 ld a,8
0000010C E8F2 +0 754 754 mul w,a
0000010E 42 +0 755 755 ld c,a
0000010F 1B00 +0 756 756 ld b,0
00000111 4C0000 R +0 757 757 ld ix,euro_fix_rate_tbl
00000114 04 +0 758 758 clr cf
00000115 E9A1 +0 759 759 add ix,bc
00000117 FD0000 R +0 760 760 call move_to_ten
0000011A 4B0000 R +0 761 761 ld hl,TENKEY
0000011D FD0000 R +0 762 762 call stg_sfr49
00000120 4B0000 R +0 763 763 ld hl,TENKEY
00000123 FD0000 R +0 764 764 call stg_sfr49
00000126 FA +0 765 765 ret
+0 766 766 ;====================================================================
00000127 +0 767 767 rate_key:
00000127 0C00 R +0 768 768 ld a,(FLG_E) ;V3.04
00000129 E00006 R +0 769 769 or a,(FLG_C) ;V3.04
0000012C 647F +0 770 770 and a,0y01111111 ;V3.04
0000012E D803FE0000 R +0 771 771 j ne,no_operation ;V3.04
00000133 070010 R +0 772 772 cmp (PRE_KEY),K_PLS
00000136 D903FE0000 R +0 773 773 j eq,no_operation
0000013B 070011 R +0 774 774 cmp (PRE_KEY),K_MIN
0000013E D903FE0000 R +0 775 775 j eq,no_operation
00000143 480000 R +0 776 776 ld wa,EURO_PROG
00000146 E10000FC R +0 777 777 test (EURO_PROG>>4).a ;bit -reverse-> jump status
0000014A 82FE0000 R +0 778 778 j f,no_operation ;if jump status is 0 -> branch
0000014E 480000 R +0 779 779 ld wa,F_COUNTRY
00000151 E10000FC R +0 780 780 test (F_COUNTRY>>4).a ;bit -reverse-> jump status
00000155 82FE0000 R +0 781 781 j f,no_operation ;if jump status is 0 -> branch
+0 782 782
00000159 070048 R +0 783 783 cmp (PRE_KEY),K_EURO_LOCAL_TAX_DUM
0000015C D906 +0 784 784 j ne,rate_key_0
0000015E FD0000 R +0 785 785 call ten_clear
00000161 FE0000 R +0 786 786 jp rate_key_enter_rate_mode
00000164 +0 787 787 rate_key_0:
00000164 480000 R +0 788 788 ld wa,F_TNKEY
00000167 E10000FC R +0 789 789 test (F_TNKEY>>4).a ;bit -reverse-> jump status
0000016B DF1D +0 790 790 j f,rate_key_1 ;if jump status is 0 -> branch
0000016D 4B0000 R +0 791 791 ld hl,TENKEY
00000170 FD0000 R +0 792 792 call _zerock
00000173 D803FE0000 R +0 793 793 j ne,no_operation
00000178 0C00 R +0 794 794 ld a,(TENKEY+OFF_DP)
0000017A D803FE0000 R +0 795 795 j ne,no_operation
0000017F E100005A R +0 796 796 test (FLG_MODE).2
00000183 85 +0 797 797 j t,rate_key_1
00000184 5800 R +0 798 798 test (TEN_S).0 ;V4.12
00000186 82FE0000 R +0 799 799 j f,no_operation ;V4.12
+0 800 800 ;V3.01 call ten_clear ;V1.26
0000018A +0 801 801 rate_key_1:
0000018A 480000 R +0 802 802 ld wa,F_RATE
0000018D E10000F2 R +0 803 803 set (F_RATE>>4).a
00000191 0C00 R +0 804 804 ld a,(TENKEY)
00000193 D914 +0 805 805 j ne,rate_key_2
00000195 FD0000 R +0 806 806 call ten_to_w1
00000198 FD0000 R +0 807 807 call w2_clear
0000019B 0A0001 R +0 808 808 ld (W2+4),0x01 ;set w2=1000000
0000019E E0006501 R +0 809 809 xor (W2_S),1
000001A2 FD0000 R +0 810 810 call calc_add
000001A5 5800 R +0 811 811 test (W1_S).0
000001A7 DF1A +0 812 812 j f,rate_key_enter_rate_mode
000001A9 +0 813 813 rate_key_2:
000001A9 480000 R +0 814 814 ld wa,ICON_E
000001AC E10000F2 R +0 815 815 set (ICON_E>>4).a
000001B0 480000 R +0 816 816 ld wa,F_CALER
000001B3 E10000F2 R +0 817 817 set (F_CALER>>4).a
000001B7 FD0000 R +0 818 818 call ten_clear
000001BA E1000040 R +0 819 819 ld a,(KEYIN) ;V4.17
000001BE 0E00 R +0 820 820 ld (PRE_KEY),a ;V4.17
000001C0 FE0000 R +0 821 821 jp rate_key_end_9
000001C3 +0 822 822 rate_key_enter_rate_mode:
000001C3 480000 R +0 823 823 ld wa,F_RATE
000001C6 E10000F2 R +0 824 824 set (F_RATE>>4).a
000001CA FD0000 R +0 825 825 call to_dec_ten_digit
+0 826 826 ;V3.01 @CLB (RATE_PROG) ;V1.09
+0 827 827 ;V3.01 @CLB (EURO_PROG) ;V1.09
+0 828 828 ;V4.13 @CLB (M_TX2) ;V2.07
+0 829 829 ;V4.13 @CLB (M_TX1) ;V2.07
+0 830 830 ;V1.30 @SEB (SW_RAT_RT)
000001CD 0A0096 R +0 831 831 ld (DW_CT),RATE_HOLD_TIM
+0 832 832 ;V1.09 @BBS (F_RATE,no_operation)
+0 833 833
000001D0 +0 834 834 rate_key_end_9:
000001D0 FD0000 R +0 835 835 call spc_disp
000001D3 4B0000 R +0 836 836 ld hl,TENKEY
000001D6 FD0000 R +0 837 837 call edit_disp
000001D9 +0 838 838 rate_key_end_99:
000001D9 F10000F905 R +0 839 839 ld (DISP+2),D_S
000001DE F10000F90E R +0 840 840 ld (DISP+3),D_E
000001E3 F10000F919 R +0 841 841 ld (DISP+4),D_T
000001E8 FD0000 R +0 842 842 call disp_to_dbr
000001EB +0 843 843 rate_key_end:
+0 844 844 ;V3.01 jp function_end
000001EB FE0000 R +0 845 845 jp no_operation ;V3.01
+0 846 846 ;=============================================================================
000001EE +0 847 847 keep_ten_6dig:
000001EE 0A000E R +0 848 848 ld (TEN_CT),14
000001F1 1A01 +0 849 849 ld c,1
000001F3 4B0000 R +0 850 850 ld hl,TENKEY
000001F6 +0 851 851 keep_ten_6dig_x:
000001F6 E740 +0 852 852 ld a,(hl+c)
000001F8 64F0 +0 853 853 and a,0xf0
000001FA D925 +0 854 854 j ne,keep_ten_6dig_0
000001FC E000F8 R +0 855 855 dec (TEN_CT)
000001FF D70040 R +0 856 856 ld a,(hl+OFF_DP)
00000202 E00007 R +0 857 857 cmp a,(TEN_CT)
00000205 DB1A +0 858 858 j ge,keep_ten_6dig_0
00000207 E740 +0 859 859 ld a,(hl+c)
00000209 640F +0 860 860 and a,0x0f
0000020B D914 +0 861 861 j ne,keep_ten_6dig_0
0000020D E000F8 R +0 862 862 dec (TEN_CT)
00000210 D70040 R +0 863 863 ld a,(hl+OFF_DP)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -