📄 sub.lst
字号:
00000172 4C0000 R +0 842 842 ld ix,EURO_RATE1
00000175 4D0000 R +0 843 843 ld iy,TENKEY
00000178 FC6D +0 844 844 j move_9byte
0000017A +0 845 845 euro2_to_ten:
0000017A 50 +0 846 846 push wa
0000017B 480000 R +0 847 847 ld wa,F_COUNTRY2
0000017E E10000F2 R +0 848 848 set (F_COUNTRY2>>4).a
00000182 D0 +0 849 849 pop wa
00000183 4C0000 R +0 850 850 ld ix,EURO_RATE2
00000186 4D0000 R +0 851 851 ld iy,TENKEY
00000189 FC5C +0 852 852 j move_9byte
0000018B +0 853 853 w2_to_euro1:
0000018B 4C0000 R +0 854 854 ld ix,W2
0000018E 4D0000 R +0 855 855 ld iy,EURO_RATE1
00000191 FC54 +0 856 856 j move_9byte
00000193 +0 857 857 w2_to_euro2:
00000193 4C0000 R +0 858 858 ld ix,W2
00000196 4D0000 R +0 859 859 ld iy,EURO_RATE2
00000199 FC4C +0 860 860 j move_9byte
0000019B +0 861 861 w2_to_tax:
0000019B 4C0000 R +0 862 862 ld ix,W2
0000019E 4D0000 R +0 863 863 ld iy,TAXRT
000001A1 FC44 +0 864 864 j move_9byte
000001A3 +0 865 865 w2_to_tax2:
000001A3 4C0000 R +0 866 866 ld ix,W2
000001A6 4D0000 R +0 867 867 ld iy,TAX2RT
000001A9 FC3C +0 868 868 j move_9byte
000001AB +0 869 869 w2_to_cost:
000001AB 4C0000 R +0 870 870 ld ix,W2
000001AE 4D0000 R +0 871 871 ld iy,COST
000001B1 FC34 +0 872 872 j move_9byte
000001B3 +0 873 873 w2_to_sell:
000001B3 4C0000 R +0 874 874 ld ix,W2
000001B6 4D0000 R +0 875 875 ld iy,SELL
000001B9 FC2C +0 876 876 j move_9byte
000001BB +0 877 877 w2_to_marg:
000001BB 4C0000 R +0 878 878 ld ix,W2
000001BE 4D0000 R +0 879 879 ld iy,MARG
000001C1 FC24 +0 880 880 j move_9byte
000001C3 +0 881 881 dt_to_prn:
+0 882 882 ;V4.03 ld ix,DT_BUF
+0 883 883 ;V4.03 ld iy,PRN_BUF
+0 884 884 ;V4.03 j move_9byte
000001C3 +0 885 885 prn_to_dt:
+0 886 886 ;V4.03 ld ix,PRN_BUF
+0 887 887 ;V4.03 ld iy,DT_BUF
+0 888 888 ;V4.03 j move_9byte
+0 889 889
000001C3 +0 890 890 w1_to_w4:
000001C3 4C0000 R +0 891 891 ld ix,W1
000001C6 4D0000 R +0 892 892 ld iy,W4
000001C9 FE0000 R +0 893 893 jp move_9byte
000001CC +0 894 894 w1_to_ftemp:
+0 895 895 ;V4.11 ld ix,W1
+0 896 896 ;V4.11 ld iy,FN_TEMP
+0 897 897 ;V4.11 jp move_9byte
000001CC +0 898 898 ftemp_to_w2:
+0 899 899 ;V4.11 ld ix,FN_TEMP
+0 900 900 ;V4.11 ld iy,W2
+0 901 901 ;V4.11 jp move_9byte
000001CC +0 902 902 w4_to_w1:
000001CC 4C0000 R +0 903 903 ld ix,W4
000001CF 4D0000 R +0 904 904 ld iy,W1
000001D2 FE0000 R +0 905 905 jp move_9byte
000001D5 +0 906 906 w2_to_w4:
000001D5 4C0000 R +0 907 907 ld ix,W2
000001D8 4D0000 R +0 908 908 ld iy,W4
000001DB FE0000 R +0 909 909 jp move_9byte
000001DE +0 910 910 w4_to_w2:
000001DE 4C0000 R +0 911 911 ld ix,W4
000001E1 4D0000 R +0 912 912 ld iy,W2
000001E4 FE0000 R +0 913 913 jp move_9byte
+0 914 914
000001E7 +0 915 915 move_9byte:
000001E7 1A08 +0 916 916 ld c,9-1 ;move 9bytes
000001E9 +0 917 917 move_nb0:
000001E9 E440 +0 918 918 ld a,(ix)
000001EB F578 +0 919 919 ld (iy),a
000001ED 34 +0 920 920 inc ix
000001EE 35 +0 921 921 inc iy
000001EF 2A +0 922 922 dec c
000001F0 B7 +0 923 923 j f,move_nb0 ;reg.c is not 0xff? yes->
000001F1 FA +0 924 924 ret
+0 925 925 ;---------------------------------------
000001F2 +0 926 926 w1_round:
000001F2 4B0000 R +0 927 927 ld hl,W1
000001F5 FE0000 R +0 928 928 jp wreg_round
+0 929 929 ;------------------------------
000001F8 +0 930 930 w2_round:
000001F8 4B0000 R +0 931 931 ld hl,W2
+0 932 932 ;------------------------------
000001FB +0 933 933 wreg_round:
000001FB FD0000 R +0 934 934 call wk_round
000001FE FA +0 935 935 ret
+0 936 936 ;------------------------------
000001FF +0 937 937 w1_round_print:
000001FF FD0000 R +0 938 938 call w1_round
00000202 +0 939 939 w1_print:
00000202 4B0000 R +0 940 940 ld hl,W1
00000205 FE0000 R +0 941 941 jp wreg_print
+0 942 942 ;------------------------------
00000208 +0 943 943 w2_round_print:
00000208 FD0000 R +0 944 944 call w2_round
0000020B +0 945 945 w2_print:
0000020B 4B0000 R +0 946 946 ld hl,W2
+0 947 947 ;------------------------------
+0 948 948 ;==============================
0000020E +0 949 949 wreg_print:
0000020E FD0000 R +0 950 950 call wk_print
00000211 FA +0 951 951 ret
+0 952 952 ;==============================================================================
+0 953 953 ; Exchange work register use register: ix, iy, c, a, b
+0 954 954 ;==============================================================================
00000212 +0 955 955 exchg_w12:
00000212 4C0000 R +0 956 956 ld ix,W1
00000215 4D0000 R +0 957 957 ld iy,W2
00000218 FC00 +0 958 958 j exchg_9byte
0000021A +0 959 959 exchg_9byte:
0000021A 1A08 +0 960 960 ld c,9-1 ;move 9bytes
0000021C +0 961 961 exchg_nb0:
0000021C E440 +0 962 962 ld a,(ix)
0000021E E543 +0 963 963 ld b,(iy)
00000220 F47B +0 964 964 ld (ix),b
00000222 F578 +0 965 965 ld (iy),a
00000224 34 +0 966 966 inc ix
00000225 35 +0 967 967 inc iy
00000226 2A +0 968 968 dec c
00000227 B3 +0 969 969 j f,exchg_nb0 ;reg.c is not 0xff? yes->
00000228 FA +0 970 970 ret
+0 971 971
+0 972 972 ;==============================================================================
+0 973 973 ; ADD mode
+0 974 974 ;==============================================================================
+0 975 975 ;W2 shift to right(shift DP_POS times)
+0 976 976 ;ignore when not enter tenkey
+0 977 977 ;ignore when enter tenkey with DP
00000229 +0 978 978 add_mode:
00000229 480000 R +0 979 979 ld wa,SW_A
0000022C E10000FC R +0 980 980 test (SW_A>>4).a ;bit -reverse-> jump status
00000230 A8 +0 981 981 j f,add_mode_start ;if jump status is 0 -> branch
00000231 480000 R +0 982 982 ld wa,SW_ADM
00000234 E10000FC R +0 983 983 test (SW_ADM>>4).a ;bit -reverse-> jump status
00000238 DE23 +0 984 984 j t,add_mode9 ;if jump status is 1 -> branch
0000023A +0 985 985 add_mode_start: ;V1.24
0000023A 480000 R +0 986 986 ld wa,F_TNKEY
0000023D E10000FC R +0 987 987 test (F_TNKEY>>4).a ;bit -reverse-> jump status
00000241 DE1A +0 988 988 j t,add_mode9 ;if jump status is 1 -> branch
+0 989 989 ;V1.33 ld a,(TEN_CT)
+0 990 990 ;V1.33 j z,add_mode9 ;if no tenkey entry yes -> ignore add mode
00000243 480000 R +0 991 991 ld wa,F_DPIN
00000246 E10000FC R +0 992 992 test (F_DPIN>>4).a ;bit -reverse-> jump status
0000024A DF11 +0 993 993 j f,add_mode9 ;if jump status is 0 -> branch
0000024C E00043 R +0 994 994 ld b,(DP_POS)
0000024F D80C +0 995 995 j z,add_mode9
00000251 FD0000 R +0 996 996 call ten_to_w2 ;
+0 997 997 ;V3.04 call w2_zerock ;
+0 998 998 ;V3.04 j nz,add_mode3 ;V
+0 999 999 ;V3.04 and (W2_S),0x00 ;clear tenkey sign(not allowed -0 entry)
00000254 +0 1000 1000 add_mode3: ;
00000254 0C00 R +0 1001 1001 ld a,(W2_DP) ;
00000256 E00001 R +0 1002 1002 add a,(DP_POS) ;
00000259 0E00 R +0 1003 1003 ld (W2_DP),a ;
0000025B 05 +0 1004 1004 set cf ;C=1 means add mode shift
0000025C FA +0 1005 1005 ret ;
0000025D +0 1006 1006 add_mode9:
0000025D 04 +0 1007 1007 clr cf ;C=0 means not add mode
0000025E FA +0 1008 1008 ret
+0 1009 1009
+0 1010 1010 ;==============================================================================
+0 1011 1011 ; DP adjustment(follow DP selector setting)
+0 1012 1012 ;==============================================================================
+0 1013 1013 ;transfer TENKEY to W2 with DP adjustment..............
0000025F +0 1014 1014 ten_to_w1dp:
0000025F FD0000 R +0 1015 1015 call ten_to_w1 ;V1.17
00000262 4B0000 R +0 1016 1016 ld hl,W1 ;V1.17
00000265 FD0000 R +0 1017 1017 call dp_adjust ;V1.17
00000268 FA +0 1018 1018 ret ;V1.17
00000269 +0 1019 1019 ten_to_w2dp:
00000269 FD0000 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -