液晶显示网址.txt

来自「单片机的源程序」· 文本 代码 · 共 147 行

RS EQU P2.0 

     RW EQU P2.1 

     E EQU P2.2 

     ORG 0000H 

     MOV P0,#00000001B  ;清屏 

     ACALL ENABLE 

     MOV P0,#00000001B  ;清屏 

     ACALL ENABLE 

     MOV P0,#00111000B  ;显示功能 

     ACALL ENABLE 

     MOV P0,#00001100B  ;显示开关控制 

     ACALL ENABLE 

     MOV P0,#00000110B ;输入模式 

     ACALL ENABLE 

     MOV P0,#0C1H       ;数据存贮器地址 
     
     
 
 ACALL ENABLE 
     mov p0,#01110011b  ;ASCII码 "s"
     SETB RS 
     CLR RW 
     CLR E   
 ACALL ENABLE 
     mov p0,#01100001b  ;ASCII码 "a"
     SETB RS 
     CLR RW 
     CLR E 
  ACALL ENABLE 
     mov p0,#01101110b  ;ASCII码 "n"
     SETB RS 
     CLR RW 
     CLR E 
  ACALL ENABLE 
     mov p0,#01101000b  ;ASCII码 "h"
     SETB RS 
     CLR RW 
     CLR E    
  ACALL ENABLE 
     mov p0,#01100101b  ;ASCII码 "e"
     SETB RS 
     CLR RW 
     CLR E   
  ACALL ENABLE 
     mov p0,#01101110b  ;ASCII码 "n"
     SETB RS 
     CLR RW 
     CLR E   
     ACALL ENABLE 
     mov p0,#01100111b  ;ASCII码 "g"
     SETB RS 
     CLR RW 
     CLR E   
     
   ACALL ENABLE 
     mov p0,#01111000b  ;ASCII码 "x"
     SETB RS 
     CLR RW 
     CLR E          
 ACALL ENABLE 
     mov p0,#01101001b  ;ASCII码 "i"
     SETB RS 
     CLR RW 
     CLR E 
 ACALL ENABLE 
     mov p0,#01101110b  ;ASCII码"n" 
     SETB RS 
     CLR RW 
     CLR E 
   
   ACALL ENABLE 
     mov p0,#01100111b  ;ASCII码 "g"
     SETB RS 
     CLR RW 
     CLR E       
ACALL ENABLE 
     mov p0,#00101110b  ;ASCII码 "."
     SETB RS 
     CLR RW 
     CLR E
  ACALL ENABLE 
     mov p0,#01100011b  ;ASCII码 "c"
     SETB RS 
     CLR RW 
     CLR E      
 ACALL ENABLE 
     mov p0,#01101111b  ;ASCII码 "o"
     SETB RS 
     CLR RW 
     CLR E    
 
  ACALL ENABLE 
     mov p0,#01101101b  ;ASCII码 "m"
     SETB RS 
     CLR RW 
     CLR E   
       
ACALL DELAY 

     SETB E 

     AJMP $ 

ENABLE: CLR RS              ;送命令 

     CLR RW 

     CLR E 

     ACALL DELAY 

     SETB E 

     RET 

DELAY: MOV P0,#0FFH 

     CLR RS 

     SETB RW 

     CLR E 

     NOP 

     SETB E 

     JB P0.7,DELAY      ;判断忙标志 

     RET 

     END