📄 oki80second_1.lst
字号:
734 0021B 08C5 Bc port5,DA ;DATA=0
735 0021C 12E5 call dly
736 0021D 0885 BC port5,CK ;/WR=0
737 0021E 12E5 call dly
738 0021F 0A85 BS port5,CK ;/WR=1
739 ;--------------------------------------------------------------------
740 00220 12E5 call dly
741 00221 0AC5 Bs port5,DA ;DATA=1
742 00222 12E5 call dly
743 00223 0885 BC port5,CK ;/WR=0
744 00224 12E5 call dly
745 00225 0A85 BS port5,CK ;/WR=1
746 ;-------------------------------;WRITE THE
747 00226 12E5 call dly
748 00227 08C5 bc port5,DA ; addr0 =0
749 00228 12E5 call dly
750 00229 0885 BC port5,CK ;/WR=0
751 0022A 12E5 call dly
752 0022B 0A85 BS port5,CK ;/WR=1
753 0022C 12E5 call dly
754 ;----------------------------------------; addr1 =1
755 0022D 0AC5 bs port5,DA
756 0022E 12E5 call dly
757 0022F 0885 BC port5,CK ;/WR=0
758 00230 12E5 call dly
759 00231 0A85 BS port5,CK ;/WR=1
760 00232 12E5 call dly
761 ;--------------------------------------addr2 =1
762 00233 08C5 bc port5,DA
763 00234 12E5 call dly
764 00235 0885 BC port5,CK ;/WR=0
765 00236 12E5 call dly
766 00237 0A85 BS port5,CK ;/WR=1
767 00238 12E5 call dly
768 ;----------------------------------------addr3 =1
769 00239 0AC5 bs port5,DA
770 0023A 12E5 call dly
771 0023B 0885 BC port5,CK ;/WR=0
772 0023C 12E5 call dly
773 0023D 0A85 BS port5,CK ;/WR=1
774 0023E 12E5 call dly
775 ;---------------------------------------addr4 =1
776 0023F 0AC5 bs port5,DA
777 00240 12E5 call dly
778 00241 0885 BC port5,CK ;/WR=0
779 00242 12E5 call dly
780 00243 0A85 BS port5,CK ;/WR=1
781 00244 12E5 call dly
782 ;--------------------------------------addr5 =1
783 00245 08C5 bc port5,DA
784 00246 12E5 call dly
785 00247 0885 BC port5,CK ;/WR=0
786 00248 12E5 call dly
787 00249 0A85 BS port5,CK ;/WR=1
788 ;---------------------------------------seg0
789 0024A 12E5 call dly
790 0024B 041B MOV A,BCDDATA3
791 0024C 1036 CALL dispdatatab
792 0024D 0061 MOV LCDRAM,A
793 0024E 1296 CALL LCDDATA_W
794 ;--------------------------------------SEG1
795 0024F 041B MOV A,BCDDATA3
796 00250 1041 CALL dispdatatab_2
797 00251 0061 MOV LCDRAM,A
798 00252 1296 CALL LCDDATA_W
799 ;----------------------------------;SEG2
800 00253 041A MOV A,BCDDATA2
801 00254 1036 CALL dispdatatab
802 00255 0061 MOV LCDRAM,A
803 00256 1296 CALL LCDDATA_W
804 ;-------------------------------------------;SEG3
805 00257 041A MOV A,BCDDATA2
806 00258 1041 CALL dispdatatab_2
807 00259 0061 MOV LCDRAM,A
808 0025A 1296 CALL LCDDATA_W
809 ;-----------------------------------------------;SEG4
810 0025B 0419 MOV A,BCDDATA1
811 0025C 1036 CALL dispdatatab
812 0025D 0061 MOV LCDRAM,A
813 0025E 1296 CALL LCDDATA_W
814 ;-----------------------------------------;SEG5
815 0025F 0000 nop
816 00260 0418 MOV A,BCDDATA
817 00261 104C CALL dispdatatab_1
818 00262 0061 MOV LCDRAM,A
819 00263 1296 CALL LCDDATA_W
820 ;--------------------------------------------
821 00264 0419 MOV A,BCDDATA1
822 00265 1041 CALL dispdatatab_2
823 00266 0061 MOV LCDRAM,A ;SEG6
824 00267 1296 CALL LCDDATA_W
825 00268 0A05 BS port5,CS ;/CS=1
826 00269 0012 RET
827 ;-----------------------------------------------
828 0026A C_WRITE:
829 0026A 1808 MOV A,@0X08
830 0026B 0050 MOV MOVE_TIME,A
831 0026C 0A85 BS port5,CK ;/WR=1
832 0026D 12E5 call dly
833 0026E 0805 BC port5,CS ;/CS=0
834 0026F 12E5 call dly
835 00270 0885 BC port5,CK ;/WR=0
836 00271 12E5 call dly
837 00272 0AC5 BS port5,DA ;DATA=1
838 00273 12E5 call dly
839 00274 0A85 BS port5,CK ;/WR=1
840 00275 12E5 call dly
841 00276 0885 BC port5,CK ;/WR=0
842 00277 12E5 call dly
843 00278 08C5 BC port5,DA ;DATA=0
844 00279 12E5 call dly
845 0027A 0A85 BS port5,CK ;/WR=1
846 0027B 12E5 call dly
847 0027C 0885 BC port5,CK ;/WR=0
848 0027D 12E5 call dly
849 0027E 08C5 BC port5,DA ;DATA=0
850 0027F 12E5 call dly
851 00280 0A85 BS port5,CK ;/WR=1
852 00281 12E5 call dly
853 00282 0885 BC port5,CK ;/WR=0
854 00283 C8_C1_WRITE:
855 00283 0DE0 JBC COMMAND,7 ;COMMAND,7=0
856 00284 1687 JMP SET_DATA_1
857 00285 08C5 BC port5,DA ;DATA=0
858 00286 1688 JMP NEXT_1
859 00287 SET_DATA_1:
860 00287 0AC5 BS port5,DA ;DATA=1
861 00288 NEXT_1:
862 00288 06E0 RLC COMMAND
863 00289 0A85 BS port5,CK ;/WR=1
864 0028A 12E5 call dly
865 0028B 0885 BC port5,CK ;/WR=0
866 0028C 12E5 call dly
867 0028D 05D0 DJZ MOVE_TIME
868 0028E 1683 JMP C8_C1_WRITE
869 0028F 08C5 BC port5,DA ;DATA=0
870 00290 12E5 call dly
871 00291 0A85 BS port5,CK ;/WR=1
872 00292 12E5 call dly
873 00293 0A05 BS port5,CS ;/CS=1
874 00294 12E5 call dly
875 00295 0012 RET
876 ;--------------------------------------
877 00296 LCDDATA_W:
878 00296 1804 MOV A,@0X04 ;RAM DATA WRITE
879 00297 0050 MOV MOVE_TIME,A
880 00298 lDATA_W:
881 00298 0C21 JBC LCDRAM,0
882 00299 169C JMP RAM_SET
883 0029A 08C5 BC port5,DA ;DATA=0
884 0029B 169D JMP NEXT_3
885 0029C RAM_SET:
886 0029C 0AC5 BS port5,DA ;DATA=1
887 0029D NEXT_3:
888 0029D 0661 RrC LCDRAM
889 0029E 0885 Bc port5,CK ;/WR=1
890 0029F 12E5 call dly
891 002A0 0A85 Bs port5,CK ;/WR=0
892 002A1 12E5 call dly
893 002A2 05D0 DJZ MOVE_TIME
894 002A3 1698 JMP lDATA_W
895 002A4 0012 RET
896 ;----------------------------------------------------------
897 002A5 lcdinit:
898 002A5 0805 BC port5,cs ;RESET 1621 INTERFACE
899 002A6 12E5 call dly
900 002A7 0A05 BS port5,cs
901 002A8 12E5 call dly
902 002A9 0805 BC port5,cs
903 002AA 12E5 call dly
904 002AB 12E5 call dly
905 002AC 18E3 MOV A,@0B11100011 ;COMMAND TNORMAL
906 002AD 0060 MOV COMMAND,A
907 002AE 126A CALL C_WRITE
908 002AF 1880 MOV A,@0B10000000 ;COMMAND /IRQ DIS
909 002B0 0060 MOV COMMAND,A
910 002B1 126A CALL C_WRITE
911 002B2 1818 MOV A,@0B00011000 ;COMMAND on chip scs
912 002B3 0060 MOV COMMAND,A
913 002B4 126A CALL C_WRITE
914 002B5 182B MOV A,@0B00101011 ;COMMAND BIAS1/3,4 COM
915 002B6 0060 MOV COMMAND,A
916 002B7 126A CALL C_WRITE
917 002B8 1808 MOV A,@0B00001000 ;COMMAND TONE OFF
918 002B9 0060 MOV COMMAND,A
919 002BA 126A CALL C_WRITE
920 002BB 1805 MOV A,@0B00000101 ;COMMAND WDT DIS
921 002BC 0060 MOV COMMAND,A
922 002BD 126A CALL C_WRITE
923 002BE 1804 MOV A,@0B00000100 ;COMMAND TIMER DIS
924 002BF 0060 MOV COMMAND,A
925 002C0 126A CALL C_WRITE
926 002C1 1801 MOV A,@0B00000001 ;COMMAND SYS_EN
927 002C2 0060 MOV COMMAND,A
928 002C3 126A CALL C_WRITE
929 002C4 1803 MOV A,@0B00000011 ;COMMAND LCD_ON
930 002C5 0060 MOV COMMAND,A
931 002C6 126A CALL C_WRITE
932 002C7 0012 ret
933 ;--------------------------------------------------------------
934 002C8 INIT:
935 002C8 0004 wdtc
936 002C9 00C5 clr PORT5
937 002CA 00C6 clr PORT6
938 002CB 1800 mov a,@0x0
939 002CC 0005 iow IOC5 ;0 out 1 in
940 002CD 180E MOV A,@00001110b ;P63->P65 IS inPUT,P67->P63 IS IoutPUT
941 002CE 0006 IOW IOC6
942 002CF 1800 mov a,@0x00
943 002D0 000C iow iocc
944 002D1 1880 mov a,@0x80
945 002D2 000E iow ioce
946 002D3 1800 mov a,@0x0
947 002D4 000F iow IOCF ; dis all intertupt
948 002D5 18EF mov a,@0xef
949 002D6 0002 contw
950 002D7 1800 MOV A,@0X0
951 002D8 000D IOW IOCd ;port6 IS PULL HIGH
952 002D9 189E MOV A,@10011110b
953 002DA 0002 CONTW
954 ;---------------------------------------------------------
955 002DB 1811 MOV A,@11H ;CLEAR 10H->3FH RAM ADDRESS
956 002DC 0044 MOV 0X04,A
957 002DD 181E MOV A,@1eH
958 002DE 0050 MOV 0X10,A
959 002DF 00C0 CLR 0
960 002E0 0544 INC 0X04
961 002E1 05D0 DJZ 0X10
962 002E2 16DF JMP $-3
963 002E3 00C1 CLR TCC ;CLEAR
964 002E4 0012 ret
965 ;-------------------------------------
966 002E5 dly:
967 002E5 0000 nop
968 002E6 0000 nop
969 002E7 0000 nop
970 002E8 0000 nop
971 002E9 0000 nop
972 002EA 0000 nop
973 002EB 0000 nop
974 002EC 0000 nop
975 002ED 0000 nop
976 002EE 0012 ret
977 002EF INT_PRO:
978 002EF 0013 reti
979 ;======================================================================
980 END
0 Error(s), 0 Warning(s), 0 User Message(s)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -