📄 2ifinput.lst
字号:
00700 ;**********************数据发射程式*************************
00701 ;**********************************************************
00702 TransDataControlByD0:
703 00703 018A 1C1F mvl FixZero ;D0H
704 00704 018B 1D1F mvh FixZero
705 00705 018C 1E1F mvu FixZero
706 00706 018D 6CC0 lda# @hl
707 00707 018E 6823 sta GlobalTemp2
708 00708 018F F59F spa 1fh
00709 ;lds PortAState,08h
00710 ;opa PortAState
711 00711 0190 C04B call SetMuteAsHigh ;2005-9-15 11:07
712 00712 0191 C042 call SetCEAsLow ;2005-9-15 11:08
713 00713 0192 C03C call SetCKAsLow ;2005-9-15 11:08
714 00714 0193 C048 call SetDAAsLow ;2005-9-15 11:08
0715
716 00716 0194 5C21 lds GlobalTemp0,08h
717 00717 0195 5A24 lds GlobalTemp3,04h
718 00718 0196 58A0 lds RAMROMFlag,01h
719 00719 0197 C1B7 call TransferData
720 00720 0198 C1DC call PeriodEnd
721 00721 0199 6C12 lda AutoScanFlag
722 00722 019A A19D jnz GoToEnd
723 00723 019B C244 call Delay100ms
724 00724 019C 0A1F opa FixZero ;prevent mute
00725 GoToEnd:
726 00726 019D F400 rts
00727 ;===================
00728 TransDataControlByD2:
729 00729 019E F602 sf 02H ;SET BCF=1
730 00730 019F EE00 fast
731 00731 01A0 5820 lds RAMROMFlag,00h ;D2H
732 00732 01A1 5C21 lds GlobalTemp0,08h
733 00733 01A2 6C25 lda SysModeFlag
734 00734 01A3 B1A6 jz IFInputFromIFIN1
00735 IFInputFromIFIN2:
736 00736 01A4 5DA2 lds GlobalTemp1,0bh
737 00737 01A5 D1A7 jmp TransDataControlByD2_1
00738 IFInputFromIFIN1:
739 00739 01A6 5D22 lds GlobalTemp1,0ah
00740 TransDataControlByD2_1:
741 00741 01A7 1C1F mvl FixZero
742 00742 01A8 1D22 mvh GlobalTemp1
743 00743 01A9 1E1F mvu FixZero
744 00744 01AA 6323 ldl* GlobalTemp2,@hl
745 00745 01AB C1B7 call TransferData
746 00746 01AC C1DC call PeriodEnd
747 00747 01AD C23A call Delay27ms
00748 ;call Delay27ms
749 00749 01AE 6323 ldl* GlobalTemp2,@hl ;D1H
750 00750 01AF 5921 lds GlobalTemp0,02h
751 00751 01B0 C1B7 call TransferData
752 00752 01B1 C1E5 call ReadRadioData
753 00753 01B2 C1DC call PeriodEnd
754 00754 01B3 C213 call JudgeIfLockDianTai
755 00755 01B4 EE80 slow
756 00756 01B5 F702 rf 02H ;SET BCF=0
757 00757 01B6 F400 rts
00758 TransferData:
00759 ;lds PortAState,0ch
00760 ;opa PortAState
761 00761 01B7 C03F call SetCEAsHigh ;2005-9-15 11:25
762 00762 01B8 6C23 lda GlobalTemp2
763 00763 01B9 81BE jb0 Transmit0
00764 ;lds PortAState,0eh
00765 ;opa PortAState
00766 ;lds PortAState,0ch
00767 ;opa PortAState
00768 ;lds PortAState,08h
00769 ;opa PortAState
770 00770 01BA C039 call SetCKAsHigh ;2005-9-15 11:26
771 00771 01BB C03C call SetCKAsLow ;2005-9-15 11:26
772 00772 01BC C042 call SetCEAsLow ;2005-9-15 11:26
773 00773 01BD D1C2 jmp Transmit1
00774 Transmit0:
00775 ;lds PortAState,0fh
00776 ;opa PortAState
00777 ;lds PortAState,0dh
00778 ;opa PortAState
00779 ;lds PortAState,09h
00780 ;opa PortAState
781 00781 01BE C039 call SetCKAsHigh ;2005-9-15 11:41
782 00782 01BF C045 call SetDAAsHigh ;2005-9-15 11:41
783 00783 01C0 C03C call SetCKAsLow ;2005-9-15 11:41
784 00784 01C1 C042 call SetCEAsLow ;2005-9-15 11:41
00785 Transmit1:
786 00786 01C2 4124 dec* GlobalTemp3
787 00787 01C3 5023 sr0 GlobalTemp2
00788 Transmit2:
789 00789 01C4 6C23 lda GlobalTemp2
790 00790 01C5 81C9 jb0 Transmit3
00791 ;lds PortAState,0ah
00792 ;opa PortAState
00793 ;lds PortAState,08h
794 00794 01C6 C039 call SetCKAsHigh ;2005-9-15 11:42
795 00795 01C7 C048 call SetDAAsLow
796 00796 01C8 D1CB jmp Transmit4
00797 Transmit3:
00798 ;lds PortAState,0bh
00799 ;opa PortAState
00800 ;lds PortAState,09h
00801 ;nop
802 00802 01C9 C039 call SetCKAsHigh ;2005-9-15 11:43
803 00803 01CA C045 call SetDAAsHigh ;2005-9-15 11:43
00804 Transmit4:
805 00805 01CB 4124 dec* GlobalTemp3
806 00806 01CC B1D0 jz Transmit5
00807 ;opa PortAState
808 00808 01CD C03C call SetCKAsLow ;2005-9-15 11:42
809 00809 01CE 5023 sr0 GlobalTemp2
810 00810 01CF D1C4 jmp Transmit2
00811 Transmit5:
00812 ;opa PortAState
813 00813 01D0 C03C call SetCKAsLow ;2005-9-15 11:43
814 00814 01D1 5A24 lds GlobalTemp3,04h
815 00815 01D2 4121 dec* GlobalTemp0
816 00816 01D3 B1DB jz Transmit7
817 00817 01D4 6C20 lda RAMROMFlag
818 00818 01D5 B1D9 jz Transmit6
819 00819 01D6 6CC0 lda# @hl
820 00820 01D7 6823 sta GlobalTemp2
821 00821 01D8 D1C4 jmp Transmit2
00822 Transmit6:
823 00823 01D9 6323 ldl* GlobalTemp2,@hl
824 00824 01DA D1C4 jmp Transmit2
00825 Transmit7:
826 00826 01DB F400 rts
00827 ;==================================
00828 PeriodEnd:
00829 ;lds PortAState,0ch
00830 ;opa PortAState
00831 ;lds PortAState,08h
00832 ;opa PortAState
833 00833 01DC C04B call SetMuteAsHigh
834 00834 01DD C03F call SetCEAsHigh
835 00835 01DE 0000 nop
836 00836 01DF 0000 nop
837 00837 01E0 C042 call SetCEAsLow
838 00838 01E1 C03C call SetCKAsLow
839 00839 01E2 C048 call SetDAAsLow
840 00840 01E3 F59F spa 1fh
841 00841 01E4 F400 rts
00842 ;==================================
00843 ReadRadioData: ;read IF data store address:7bh~7fh
844 00844 01E5 5AA1 lds GlobalTemp0,05h
845 00845 01E6 5823 lds GlobalTemp2,00h
846 00846 01E7 5BA2 lds GlobalTemp1,07h
847 00847 01E8 5DF0 lds 70h,0bh
848 00848 01E9 1C70 mvl 70h
849 00849 01EA 1D22 mvh GlobalTemp1
850 00850 01EB 1E1F mvu FixZero
851 00851 01EC F59E spa 1eh ;DA Pin is set input state
852 00852 01ED 5D78 lds PortAState,0ah
853 00853 01EE 58A4 lds GlobalTemp3,01h
00854 ReadRadioData3:
855 00855 01EF 0A78 opa PortAState
856 00856 01F0 5C70 lds 70h,08h
857 00857 01F1 0A70 opa 70h
858 00858 01F2 0000 nop
859 00859 01F3 0000 nop
860 00860 01F4 4270 ipa 70h
861 00861 01F5 81F7 jb0 ReadRadioData0
862 00862 01F6 D1F9 jmp ReadRadioData1
00863 ReadRadioData0:
864 00864 01F7 6C24 lda GlobalTemp3
865 00865 01F8 2F23 or* GlobalTemp2
00866 ReadRadioData1:
867 00867 01F9 5224 sl0 GlobalTemp3
868 00868 01FA A1EF jnz ReadRadioData3
00869 ReadRadioData2:
870 00870 01FB 58A4 lds GlobalTemp3,01h
871 00871 01FC 6C23 lda GlobalTemp2
872 00872 01FD 68C0 sta# @hl
873 00873 01FE 5823 lds GlobalTemp2,00h
874 00874 01FF 4121 dec* GlobalTemp0
875 00875 0200 A1EF jnz ReadRadioData3
876 00876 0201 5C70 lds 70h,08h
877 00877 0202 0A70 opa 70h
00878 ;spa 1eh
00879 ;====Highest 4 bits of D1 don't be read====
880 00880 0203 0A78 opa PortAState
881 00881 0204 0000 nop
882 00882 0205 0A70 opa 70h
883 00883 0206 0000 nop
884 00884 0207 0A78 opa PortAState
885 00885 0208 0000 nop
886 00886 0209 0A70 opa 70h
887 00887 020A 0000 nop
888 00888 020B 0A78 opa PortAState
889 00889 020C 0000 nop
890 00890 020D 0A70 opa 70h
891 00891 020E 0000 nop
892 00892 020F 0A78 opa PortAState
893 00893 0210 0000 nop
894 00894 0211 0A70 opa 70h
895 00895 0212 F400 rts
00896 ;================================
00897 JudgeIfLockDianTai:
898 00898 0213 5EF0 lds 70h,0dh
899 00899 0214 1E1F mvu FixZero
900 00900 0215 1D70 mvh 70h
901 00901 0216 6C25 lda SysModeFlag
902 00902 0217 B21E jz JudgeIfFM
00903 JudgeIfAM:
904 00904 0218 6C7F lda 7fh
905 00905 0219 A239 jnz JudgeIfEnd
906 00906 021A 5A70 lds 70h,04h
907 00907 021B 1C70 mvl 70h
908 00908 021C C226 call JudgeIfLockDianTai0
909 00909 021D F400 rts
00910 JudgeIfFM:
911 00911 021E 5971 lds 71h,02h
912 00912 021F 6C7F lda 7fh
913 00913 0220 2C71 eor 71h
914 00914 0221 A239 jnz JudgeIfEnd
915 00915 0222 5870 lds 70h,00h
916 00916 0223 1C70 mvl 70h
917 00917 0224 C226 call JudgeIfLockDianTai0
918 00918 0225 F400 rts
00919 JudgeIfLockDianTai0:
920 00920 0226 6270 ldl 70h,@hl
921 00921 0227 267B sub 7bh
922 00922 0228 6170 ldh* 70h,@hl
923 00923 0229 227C sbc 7ch
924 00924 022A 6270 ldl 70h,@hl
925 00925 022B 227D sbc 7dh
926 00926 022C 6170 ldh* 70h,@hl
927 00927 022D 227E sbc 7eh
928 00928 022E AA39 jnc JudgeIfEnd
929 00929 022F 6270 ldl 70h,@hl
930 00930 0230 267B sub 7bh
931 00931 0231 6170 ldh* 70h,@hl
932 00932 0232 227C sbc 7ch
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -