📄 recorderrx.lst
字号:
00032+ ;F:
00033+ ;F:
00034+ ;F:
00035+ ;*******************************************************************
00036+ F_InitalPort:
588 00037+ 00B9 5870 lds R_WrkReg1,0;
589 00038+ 00BA 0A70 opa R_WrkReg1;
590 00039+ 00BB F580 spa 0;
0040+
592 00041+ 00BC 5870 lds R_WrkReg1,0;
593 00042+ 00BD 0C70 opb R_WrkReg1;
594 00043+ 00BE F5A8 spb 1000b;
0044+
596 00045+ 00BF 0D70 opc R_WrkReg1;
597 00046+ 00C0 F5D8 spc 11000b;
0047+
599 00048+ 00C1 0E70 opd R_WrkReg1;
600 00049+ 00C2 F5F0 spd 10000b;
0050+
602 00051+ 00C3 E27F tmsx 001111111b; 15.625ms interrupt.
603 00052+ 00C4 F680 sf 80h; Enable the re-load function.
604 00053+ 00C5 F400 rts;
00054+ ;***********************************************************************
00055+ ;F: File Name: F_InitContrlPin.
00056+ ;F:
00057+ ;F:
00058+ ;F:
00059+ ;F:
00060+ ;***********************************************************************
00061+ F_InitContrlPin:
613 00062+ 00C6 58F0 lds R_WrkReg1,0001b;
614 00063+ 00C7 0608 lcp 1,R_WrkReg1;
615 00064+ 00C8 0610 lcp 2,R_WrkReg1;
616 00065+ 00C9 0618 lcp 3,R_WrkReg1;
617 00066+ 00CA 0620 lcp 4,R_WrkReg1;
618 00067+ 00CB 0628 lcp 5,R_WrkReg1;
619 00068+ 00CC 0630 lcp 6,R_WrkReg1;
620 00069+ 00CD 0638 lcp 7,R_WrkReg1;
621 00070+ 00CE 0640 lcp 8,R_WrkReg1;
622 00071+ 00CF 0648 lcp 9,R_WrkReg1;
623 00072+ 00D0 0650 lcp 10,R_WrkReg1;
624 00073+ 00D1 0658 lcp 11,R_WrkReg1;
625 00074+ 00D2 0660 lcp 12,R_WrkReg1;
626 00075+ 00D3 0668 lcp 13,R_WrkReg1;
627 00076+ 00D4 0670 lcp 14,R_WrkReg1;
628 00077+ 00D5 0678 lcp 15,R_WrkReg1;
629 00078+ 00D6 0680 lcp 16,R_WrkReg1;
630 00079+ 00D7 5870 lds R_WrkReg1,0;
631 00080+ 00D8 0688 lcp 17,R_WrkReg1;
632 00081+ 00D9 F400 rts;
00082+ ;*********************************************************************
00083+ ;F: Function Name: F_ScanKey.
00084+ ;F:
00085+ ;F:
00086+ ;F:
00087+ ;F:
00088+ ;*********************************************************************
00089+ F_ScanKey:
641 00090+ 00DA 3615 subi R_KeyStep,D_DelStep;
642 00091+ 00DB B0E4 jz L_DelStepPro;
643 00092+ 00DC 3625 subi R_KeyStep,D_WaitStep;
644 00093+ 00DD B0F0 jz L_WaitStepPro;
645 00094+ 00DE 3635 subi R_KeyStep,D_RelaseStep;
646 00095+ 00DF B0F4 jz L_RelaseStepPro;
00096+ L_ChkStepPro:
648 00097+ 00E0 4771 ipc R_IntWrk;
649 00098+ 00E1 B0F9 jz L_ScanKeyRet;
0099+
651 00100+ 00E2 58F5 lds R_KeyStep,D_DelStep;
652 00101+ 00E3 D0F9 jmp L_ScanKeyRet;
00102+ ;=============================================
00103+ ;=============================================
00104+ L_DelStepPro:
656 00105+ 00E4 5975 lds R_KeyStep,D_WaitStep;
657 00106+ 00E5 4771 ipc R_IntWrk;
658 00107+ 00E6 80EA jb0 L_K1Is;
659 00108+ 00E7 88EC jb1 L_K2Is;
660 00109+ 00E8 90EE jb2 L_K3Is;
661 00110+ 00E9 D0F8 jmp L_ErrKey;
00111+ L_K1Is:
663 00112+ 00EA 58F4 lds R_KeyVal,1;
664 00113+ 00EB D0F9 jmp L_ScanKeyRet;
00114+ L_K2Is:
666 00115+ 00EC 5974 lds R_KeyVal,2;
667 00116+ 00ED D0F9 jmp L_ScanKeyRet;
00117+ L_K3Is:
669 00118+ 00EE 5A74 lds R_KeyVal,4;
670 00119+ 00EF D0F9 jmp L_ScanKeyRet;
00120+ ;=============================================
00121+ ;=============================================
00122+ L_WaitStepPro:
674 00123+ 00F0 4771 ipc R_IntWrk;
675 00124+ 00F1 A0F9 jnz L_ScanKeyRet;
0125+
677 00126+ 00F2 59F5 lds R_KeyStep,D_RelaseStep;
678 00127+ 00F3 D0F9 jmp L_ScanKeyRet;
00128+ ;=============================================
00129+ ;=============================================
00130+ L_RelaseStepPro:
682 00131+ 00F4 4771 ipc R_IntWrk;
683 00132+ 00F5 B0F8 jz L_ErrKey;
0133+
685 00134+ 00F6 5975 lds R_KeyStep,D_WaitStep;
686 00135+ 00F7 D0F9 jmp L_ScanKeyRet;
00136+ L_ErrKey:
688 00137+ 00F8 5875 lds R_KeyStep,0;
00138+ L_ScanKeyRet:
690 00139+ 00F9 F400 rts;
00140+ ;*****************************************************************
00141+ ;F: Function Name: F_ProKeyVal.
00142+ ;F:
00143+ ;F:
00144+ ;F:
00145+ ;F:
00146+ ;******************************************************************
00147+ F_ProKeyVal:
699 00148+ 00FA 3614 subi R_KeyVal,D_SelKey;
700 00149+ 00FB B101 jz L_ProSelKey;
701 00150+ 00FC 3624 subi R_KeyVal,D_RecorderKey;
702 00151+ 00FD B10D jz L_ProRecordKey;
703 00152+ 00FE 3644 subi R_KeyVal,D_PlayKey;
704 00153+ 00FF B11E jz L_ProPlayKey;
705 00154+ 0100 D12F jmp L_ProKeyValRet;
00155+ ;=========================================
00156+ ;=========================================
00157+ L_ProSelKey:
709 00158+ 0101 580C lds R_CountTimeLow,0;
710 00159+ 0102 580D lds R_CountTimeHigh,0;
711 00160+ 0103 C27C call F_StopAll;
712 00161+ 0104 59F0 lds R_WrkReg1,3;
713 00162+ 0105 2676 sub R_CurrentMusic;
714 00163+ 0106 B909 jc L_ResetFirtMusic;
0164+
716 00165+ 0107 4076 inc* R_CurrentMusic;
717 00166+ 0108 D10A jmp L_TotalLighLedSel;
00167+ L_ResetFirtMusic:
719 00168+ 0109 5876 lds R_CurrentMusic,0;
00169+ L_TotalLighLedSel:
721 00170+ 010A C273 call F_CloseLED1;
722 00171+ 010B C25F call F_LighLEDSel;
723 00172+ 010C D12F jmp L_ProKeyValRet;
00173+ ;=========================================
00174+ ;=========================================
00175+ L_ProRecordKey:
727 00176+ 010D 580C lds R_CountTimeLow,0;
728 00177+ 010E 580D lds R_CountTimeHigh,0;
0178+
730 00179+ 010F 6C72 lda R_Flags1;
731 00180+ 0110 8919 jb1 L_CloseRecord;
00181+ L_OpenRecord:
733 00182+ 0111 C2A6 call F_OpenVoicePW;
734 00183+ 0112 3F22 ori* R_Flags1,B_Recording;
735 00184+ 0113 3BB2 andi* R_Flags1,1011b;
736 00185+ 0114 C280 call F_CloseSelPin;
737 00186+ 0115 C131 call F_RecordStart;
738 00187+ 0116 C25F call F_LighLEDSel;
739 00188+ 0117 5F8A lds R_DelChk,15;
740 00189+ 0118 D12F jmp L_ProKeyValRet;
00190+ ;=================================
00191+ L_CloseRecord:
743 00192+ 0119 3B92 andi* R_Flags1,1001b;
744 00193+ 011A C27C call F_StopAll;
745 00194+ 011B C273 call F_CloseLED1;
746 00195+ 011C C29D call F_CloseVoicePW;
747 00196+ 011D D12F jmp L_ProKeyValRet;
00197+ ;=========================================
00198+ ;=========================================
00199+ L_ProPlayKey:
751 00200+ 011E 580C lds R_CountTimeLow,0;
752 00201+ 011F 580D lds R_CountTimeHigh,0;
0202+
754 00203+ 0120 6C72 lda R_Flags1;
755 00204+ 0121 912B jb2 L_ClosePlay;
00205+ L_OpenPlay:
757 00206+ 0122 C2A6 call F_OpenVoicePW;
758 00207+ 0123 3BD2 andi* R_Flags1,1101b;
759 00208+ 0124 C280 call F_CloseSelPin;
760 00209+ 0125 C14F call F_PlayStart;
761 00210+ 0126 C280 call F_CloseSelPin;
762 00211+ 0127 C25F call F_LighLEDSel;
763 00212+ 0128 3F42 ori* R_Flags1,B_Playing;
764 00213+ 0129 5F8A lds R_DelChk,15;
765 00214+ 012A D12F jmp L_ProKeyValRet;
00215+ ;=================================
00216+ L_ClosePlay:
768 00217+ 012B 3B92 andi* R_Flags1,1001b;
769 00218+ 012C C27C call F_StopAll;
770 00219+ 012D C273 call F_CloseLED1;
771 00220+ 012E C29D call F_CloseVoicePW;
00221+ L_ProKeyValRet:
773 00222+ 012F 5874 lds R_KeyVal,0;
774 00223+ 0130 F400 rts;
00224+ ;****************************************************************
00225+ ;F: Function Name: F_RecordStart.
00226+ ;F:
00227+ ;F:
00228+ ;F:
00229+ ;F:
00230+ ;****************************************************************
00231+ F_RecordStart:
783 00232+ 0131 5870 lds R_WrkReg1,0;
784 00233+ 0132 0650 lcp R_REnBuf,R_WrkReg1;
0234+
786 00235+ 0133 5F88 lds R_Delay,15;
787 00236+ 0134 C397 call F_DelxxUS;
788 00237+ 0135 5F88 lds R_Delay,15;
789 00238+ 0136 C397 call F_DelxxUS;
790 00239+ 0137 5F88 lds R_Delay,15;
791 00240+ 0138 C397 call F_DelxxUS;
792 00241+ 0139 5F88 lds R_Delay,15;
793 00242+ 013A C397 call F_DelxxUS;
794 00243+ 013B 5870 lds R_WrkReg1,0;
795 00244+ 013C 0658 lcp R_CEnBuf,R_WrkReg1;
0245+
0246+
798 00247+ 013D 5F88 lds R_Delay,15;
799 00248+ 013E C397 call F_DelxxUS;
800 00249+ 013F 5F88 lds R_Delay,15;
801 00250+ 0140 C397 call F_DelxxUS;
802 00251+ 0141 5F88 lds R_Delay,15;
803 00252+ 0142 C397 call F_DelxxUS;
804 00253+ 0143 5F88 lds R_Delay,15;
805 00254+ 0144 C397 call F_DelxxUS;
806 00255+ 0145 5F88 lds R_Delay,15;
807 00256+ 0146 C397 call F_DelxxUS;
808 00257+ 0147 5F88 lds R_Delay,15;
809 00258+ 0148 C397 call F_DelxxUS;
810 00259+ 0149 C22B call F_StrobeSel;
0260+
812 00261+ 014A 58F0 lds R_WrkReg1,0001;
813 00262+ 014B 0630 lcp R_PlayLEDBuf,R_WrkReg1;
814 00263+ 014C 5870 lds R_WrkReg1,0;
815 00264+ 014D 0638 lcp R_RecLEDBuf,R_WrkReg1;
00265+ L_StaRedRet:
817 00266+ 014E F400 rts;
00267+ ;****************************************************************
00268+ ;F: Function Name: F_PlayStart.
00269+ ;F:
00270+ ;F:
00271+ ;F:
00272+ ;F:
00273+ ;****************************************************************
00274+ F_PlayStart:
826 00275+ 014F 58F0 lds R_WrkReg1,D_REn;
827 00276+ 0150 0650 lcp R_REnBuf,R_WrkReg1;
0277+
829 00278+ 0151 5F88 lds R_Delay,15;
830 00279+ 0152 C397 call F_DelxxUS;
831 00280+ 0153 5F88 lds R_Delay,15;
832 00281+ 0154 C397 call F_DelxxUS;
833 00282+ 0155 5F88 lds R_Delay,15;
834 00283+ 0156 C397 call F_DelxxUS;
835 00284+ 0157 5F88 lds R_Delay,15;
836 00285+ 0158 C397 call F_DelxxUS;
837 00286+ 0159 5F88 lds R_Delay,15;
838 00287+ 015A C397 call F_DelxxUS;
839 00288+ 015B 5F88 lds R_Delay,15;
840 00289+ 015C C397 call F_DelxxUS;
841 00290+ 015D 5870 lds R_WrkReg1,0;
842 00291+ 015E 0658 lcp R_CEnBuf,R_WrkReg1;
0292+
844 00293+ 015F 5F88 lds R_Delay,15;
845 00294+ 0160 C397 call F_DelxxUS;
846 00295+ 0161 5F88 lds R_Delay,15;
847 00296+ 0162 C397 call F_DelxxUS;
848 00297+ 0163 5F88 lds R_Delay,15;
849 00298+ 0164 C397 call F_DelxxUS;
850 00299+ 0165 C22B call F_StrobeSel;
0300+
852 00301+ 0166 5F88 lds R_Delay,15;
853 00302+ 0167 C397 call F_DelxxUS;
854 00303+ 0168 5F88 lds R_Delay,15;
855 00304+ 0169 C397 call F_DelxxUS;
856 00305+ 016A 5F88 lds R_Delay,15;
857 00306+ 016B C397 call F_DelxxUS;
858 00307+ 016C 5F88 lds R_Delay,15;
859 00308+ 016D C397 call F_DelxxUS;
860 00309+ 016E 5F88 lds R_Delay,15;
861 00310+ 016F C397 call F_DelxxUS;
862 00311+ 0170 5F88 lds R_Delay,15;
863 00312+ 0171 C397 call F_DelxxUS;
864 00313+ 0172 5F88 lds R_Delay,15;
865 00314+ 0173 C397 call F_DelxxUS;
866 00315+ 0174 5F88 lds R_Delay,15;
867 00316+ 0175 C397 call F_DelxxUS;
868 00317+ 0176 5F88 lds R_Delay,15;
869 00318+ 0177 C397 call F_DelxxUS;
870 00319+ 0178 5F88 lds R_Delay,15;
871 00320+ 0179 C397 call F_DelxxUS;
872 00321+ 017A 5F88 lds R_Delay,15;
873 00322+ 017B C397 call F_DelxxUS;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -