📄 fm_transmitter.lst
字号:
907 00861 02A0 5229 sl0 i2c_buff1
908 00862 02A1 5229 sl0 i2c_buff1
909 00863 02A2 C2C1 call send_clk_data
0864
911 00865 02A3 58A8 lds i2c_buff0,01h
912 00866 02A4 6C21 lda i2c_addr0
913 00867 02A5 6829 sta i2c_buff1
914 00868 02A6 C2C1 call send_clk_data
915 00869 02A7 F400 rts
00870 ;*******************************************
00871 send_i2c_data:
918 00872 02A8 58A8 lds i2c_buff0,01h
919 00873 02A9 6C26 lda i2c_data3
920 00874 02AA 6829 sta i2c_buff1
921 00875 02AB C2C1 call send_clk_data
0876
923 00877 02AC 58A8 lds i2c_buff0,01h
924 00878 02AD 6C25 lda i2c_data2
925 00879 02AE 6829 sta i2c_buff1
926 00880 02AF C2C1 call send_clk_data
0881
928 00882 02B0 58A8 lds i2c_buff0,01h
929 00883 02B1 6C24 lda i2c_data1
930 00884 02B2 6829 sta i2c_buff1
931 00885 02B3 C2C1 call send_clk_data
0886
933 00887 02B4 58A8 lds i2c_buff0,01h
934 00888 02B5 6C23 lda i2c_data0
935 00889 02B6 6829 sta i2c_buff1
936 00890 02B7 C2C1 call send_clk_data
0891
938 00892 02B8 0C0C opb force_zero
939 00893 02B9 5970 lds 70h,02h
940 00894 02BA 0C70 opb 70h
941 00895 02BB 0C0C opb force_zero
942 00896 02BC 0000 nop
943 00897 02BD 5A70 lds 70h,04h
944 00898 02BE 0C70 opb 70h
945 00899 02BF F5B6 spb 10110b
946 00900 02C0 F400 rts
0901
00902 ;*******************************************
00903 send_clk_data:
950 00904 02C1 6C29 lda i2c_buff1
951 00905 02C2 9AC5 jb3 send_clk_data1
952 00906 02C3 C2F4 call send_zero
953 00907 02C4 D2C7 jmp send_clk_data2
00908 send_clk_data1:
955 00909 02C5 C2FA call send_one
956 00910 02C6 0000 nop
00911 send_clk_data2:
958 00912 02C7 5229 sl0 i2c_buff1
959 00913 02C8 5228 sl0 i2c_buff0
960 00914 02C9 A2C1 jnz send_clk_data
961 00915 02CA F400 rts
0916
0917
00918 ;******************************************
00919 ;send_i2c_data:
00920 ; lds i2c_buff0,01h
00921 ;send_i2c_data0:
00922 ; lda i2c_data1
00923 ; jb3 send_i2c_data1
00924 ; call send_zero
00925 ; jmp send_i2c_data2
00926 ;send_i2c_data1:
00927 ; call send_one
00928 ; nop
00929 ;send_i2c_data2:
00930 ; sl0 i2c_data1
00931 ; sl0 i2c_buff0
00932 ; jnz send_i2c_data0
0933
00934 ; lds i2c_buff0,01h
00935 ;send_i2c_data3:
00936 ; lda i2c_data0
00937 ; jb3 send_i2c_data4
00938 ; call send_zero
00939 ; jmp send_i2c_data5
00940 ;send_i2c_data4:
00941 ; call send_one
00942 ; nop
00943 ;send_i2c_data5:
00944 ; sl0 i2c_data0
00945 ; sl0 i2c_buff0
00946 ; jnz send_i2c_data3
0947
00948 ; opb force_zero
00949 ;lds 70h,02h
00950 ;opb 70h
00951 ;opb force_zero
00952 ; nop
00953 ; lds 70h,06h
00954 ; opb 70h
00955 ; spb 10110b
00956 ; opb 70h
00957 ; rts
00958 ;******************************************
00959 read_i2c_data:
1006 00960 02CB C2DB call spc_i2c_data
1007 00961 02CC 6C29 lda i2c_buff1
1008 00962 02CD 6826 sta i2c_data3
0963
1010 00964 02CE C2DB call spc_i2c_data
1011 00965 02CF 6C29 lda i2c_buff1
1012 00966 02D0 6825 sta i2c_data2
0967
1014 00968 02D1 C2DB call spc_i2c_data
1015 00969 02D2 6C29 lda i2c_buff1
1016 00970 02D3 6824 sta i2c_data1
0971
1018 00972 02D4 C2DB call spc_i2c_data
1019 00973 02D5 6C29 lda i2c_buff1
1020 00974 02D6 6823 sta i2c_data0
0975
1022 00976 02D7 0C0C opb force_zero
00977 ;lds 70h,04h
00978 ;opb 70h
1025 00979 02D8 F5B7 spb 10111b
1026 00980 02D9 0C0C opb force_zero
1027 00981 02DA F400 rts
0982
00983 ;******************************************
00984 spc_i2c_data:
1031 00985 02DB F5B6 spb 10110b
1032 00986 02DC 5829 lds i2c_buff1,00h
1033 00987 02DD 5C28 lds i2c_buff0,08h
00988 spc_i2c_d0:
1035 00989 02DE 5B70 lds 70h,06h
1036 00990 02DF 0C70 opb 70h
1037 00991 02E0 5A70 lds 70h,04h
1038 00992 02E1 4471 ipb 71h
1039 00993 02E2 0C70 opb 70h
1040 00994 02E3 82E5 jb0 spc_i2c_d1
1041 00995 02E4 D2E7 jmp spc_i2c_d2
00996 spc_i2c_d1:
1043 00997 02E5 6C28 lda i2c_buff0
1044 00998 02E6 2F29 or* i2c_buff1
00999 spc_i2c_d2:
1046 01000 02E7 5028 sr0 i2c_buff0
1047 01001 02E8 A2DE jnz spc_i2c_d0
1048 01002 02E9 F400 rts
01003 ;*******************************************
01004 ; lds i2c_buff0,08h
01005 ;read_i2c_d3:
01006 ; lds 70h,06h
01007 ; opb 70h
01008 ; lds 70h,04h
01009 ; ipb i2c_buff1
01010 ; opb 70h
01011 ; jb0 read_i2c_d4
01012 ; jmp read_i2c_d5
01013 ;read_i2c_d4:
01014 ; lda i2c_buff0
01015 ; or* i2c_data0
01016 ;read_i2c_d5:
01017 ; sr0 i2c_buff0
01018 ; jnz read_i2c_d3
1019
01020 ; opb force_zero
01021 ; lds 70h,04h
01022 ; opb 70h
01023 ; spb 10111b
01024 ; opb force_zero
01025 ; rts
01026 ;******************************************
01027 detect_ready:
01028 ;lds 70h,06h
01029 ;opb 70h
1076 01030 02EA 5A71 lds 71h,04h
1077 01031 02EB 0C71 opb 71h
1078 01032 02EC 4428 ipb i2c_buff0
1079 01033 02ED 82F0 jb0 detect_ready0
1080 01034 02EE 4129 dec* i2c_buff1
1081 01035 02EF A2EA jnz detect_ready
01036 detect_ready0:
1083 01037 02F0 0C0C opb force_zero
1084 01038 02F1 F5B7 spb 10111b
1085 01039 02F2 0C0C opb force_zero
1086 01040 02F3 F400 rts
01041 ;******************************************
01042 send_zero:
1089 01043 02F4 5A70 lds 70h,04h
1090 01044 02F5 0C70 opb 70h
1091 01045 02F6 5B71 lds 71h,06h
1092 01046 02F7 0C71 opb 71h
1093 01047 02F8 0C70 opb 70h
1094 01048 02F9 F400 rts
01049 send_one:
1096 01050 02FA 5AF0 lds 70h,05h
1097 01051 02FB 0C70 opb 70h
1098 01052 02FC 5BF1 lds 71h,07h
1099 01053 02FD 0C71 opb 71h
1100 01054 02FE 0C70 opb 70h
1101 01055 02FF F400 rts
01056 ;*******************************************
01057 ; radio display subroutine
01058 ;*******************************************
01059 clear_lcd:
1106 01060 0300 5870 lds 70h,00h
1107 01061 0301 0630 lcp 03h,00h
1108 01062 0302 0640 lcp 04h,00h
1109 01063 0303 0650 lcp 05h,00h
1110 01064 0304 0660 lcp 06h,00h
1111 01065 0305 0670 lcp 07h,00h
1112 01066 0306 F400 rts
01067 ;*******************************************
01068 radio_display:
1115 01069 0307 5870 lds 70h,00h
1116 01070 0308 1D70 mvh 70h
1117 01071 0309 1E70 mvu 70h ;for tm87p08
1118 01072 030A 1C0A mvl disp2
1119 01073 030B 6270 ldl 70h,@hl
1120 01074 030C 6C0B lda disp3
1121 01075 030D 2F70 or* 70h
1122 01076 030E 6071 ldh 71h,@hl
1123 01077 030F 0630 lcp 03h,00h
1078
1125 01079 0310 700A mrw 70h,disp2
1126 01080 0311 C325 call trans_disp_data
1127 01081 0312 1C09 mvl disp1
1128 01082 0313 6271 ldl 71h,@hl
1129 01083 0314 0640 lcp 04h,00h
1084
1131 01085 0315 7009 mrw 70h,disp1
1132 01086 0316 C325 call trans_disp_data
1133 01087 0317 6071 ldh 71h,@hl
1134 01088 0318 6C70 lda 70h
1135 01089 0319 0651 lcp 05h,01h
1090
1137 01091 031A 1C08 mvl disp0
1138 01092 031B 6270 ldl 70h,@hl
1139 01093 031C 6C2A lda bat_flag
1140 01094 031D 2F70 or* 70h
1141 01095 031E 6071 ldh 71h,@hl
1142 01096 031F 0660 lcp 06h,00h
1097
1144 01098 0320 7008 mrw 70h,disp0
1145 01099 0321 C325 call trans_disp_data
1146 01100 0322 6C0C lda force_zero
1147 01101 0323 0670 lcp 07h,00h
1148 01102 0324 F400 rts
01103 ;*******************************************
01104 trans_disp_data:
1151 01105 0325 5971 lds 71h,02h
1152 01106 0326 2C70 eor 70h
1153 01107 0327 B330 jz trans_dispd0
1154 01108 0328 5AF1 lds 71h,05h
1155 01109 0329 2C70 eor 70h
1156 01110 032A B332 jz trans_dispd1
1157 01111 032B 5B71 lds 71h,06h
1158 01112 032C 2C70 eor 70h
1159 01113 032D B332 jz trans_dispd1
1160 01114 032E 5BF0 lds 70h,07h
1161 01115 032F F400 rts
01116 trans_dispd0:
1163 01117 0330 59F0 lds 70h,03h
1164 01118 0331 F400 rts
01119 trans_dispd1:
1166 01120 0332 5AF0 lds 70h,05h
1167 01121 0333 F400 rts
01122 ;*******************************************
01123 ; delay time subroutine
01124 ;*******************************************
01125 ;*********** delay=100ms *******************
01126 delay_100ms:
1173 01127 0334 5CAB lds delay_buff0,09h
1174 01128 0335 5AAC lds delay_buff1,05h
01129 d_100ms_0:
1176 01130 0336 C33C call delay
1177 01131 0337 412B dec* delay_buff0
1178 01132 0338 6C0C lda force_zero
1179 01133 0339 232C sbc* delay_buff1
1180 01134 033A BB36 jc d_100ms_0
1181 01135 033B F400 rts
01136 ;*******************************************
01137 delay:
1184 01138 033C 0000 nop
1185 01139 033D 0000 nop
1186 01140 033E 0000 nop
1187 01141 033F F400 rts
1142
01143 .endc
1144
01145 .table
01146 data 00h,56h
01147 data 01h,00h
01148 data 02h,74h
01149 data 03h,70h
01150 data 04h,22h
01151 data 05h,72h
01152 data 06h,76h
01153 data 07h,12h
01154 data 08h,76h
01155 data 09h,72h
01156 .endt
1157
0 Error(s), 0 Warning(s)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -