Category

Development Platform
Home > SourceCode/Document > Embeded-SCM Develop > SCM > View Code
9.asm
Package: aaaa.rar　[view]
Upload User: hongrida
Upload Date: 2022-08-07
Package Size: 154k
Code Size: 6k
Category:

SCM

Development Platform:

Asm

9.asm：Code Content
  2.            RELAY  EQU  P1.3
  3.            RS    EQU  P2.0
  4.            RW    EQU  P2.1
  5.            EN    EQU  P2.2
  6.            X     EQU  26H       ;LCD 地址变量
  7.            ORG  0000H
  8.            JMP  MAIN
  9.            ORG 000BH
  10.            LJMP BREAK 
  11.            ORG 0030H
  12. MAIN:      MOV  SP,#60H
  13.            MOV TMOD,#01H
  14.            CLR   EN
  15.            CALL  SET_LCD
  16.            CALL  MENU1
  17. LOOP0:
  18.            MOV  P1,#0F0H
  19.            MOV  A,P1
  20.            CJNE  A,#0F0H,LOOP1  ;有键按下转LOOP1
  21.            JMP   LOOP0
  22. LOOP1:
  23.            CALL  KEY_IN
  24.            CALL START
  25.            MOV P1,#0F0H
  26.            MOV A,P1
  27.            CJNE A,#0F0H,CONV
  28.            CLR EA
  29.    SETB P3.7
  30.            JMP  LOOP0
  31. CONV:
  32.           MOV   X,#11        ;设置显示起始位置
  33.           MOV   A,R3
  34.           
  35.           ADD A,#01H
  36.           PUSH  ACC
  37.           CLR   C
  38.           SUBB  A,#08H        ;减8
  39.           POP   ACC
  40.           JC    ASCII1        ;该数小于8，转ASCII1
  41.           SUBB   A,#07H
  42.           PUSH ACC
  43.           CLR C
  44.           SUBB A,#08H
  45.           POP ACC
  46.           JC ASCII1
  47.           SUBB A,#07H       
  48. ASCII1:   ADD   A,#30H        ;小于10的数加上30H
  49.           INC   X
  50.           MOV   B,X
  51.           CALL  LCDP2
  52.           JMP LOOP0
  53.    
  54.    
  55. START:     SETB EA
  56.            SETB TR0
  57.            SETB ET0
  58.            CLR EA
  59.            MOV A,R3
  60.            RL A
  61.            MOV DPTR,#TABLE
  62.            MOVC A,@A+DPTR
  63.            MOV TH0,A
  64.            MOV 21H,A
  65.            MOV A,R3
  66.            RL A
  67.            INC A
  68.            MOVC A,@A+DPTR
  69.            MOV TL0,A
  70.            MOV 20H,A
  71.            SETB EA
  72.            RET 
  74. KEY_IN:    MOV  P1,#0F0H
  75.            MOV  A,P1
  76.            ANL  A,#0F0H
  77.            MOV  B,A
  78.            MOV  P1,#0FH
  79.            MOV  A,P1
  80.            ANL  A,#0FH
  81.            ORL  A,B
  82.            CJNE  A,#0FFH,KEY_IN1
  83.            RET
  84. KEY_IN1:   MOV  B,A
  85.            MOV  DPTR,#KEYTABLE
  86.            MOV  R3,#0FFH
  87. KEY_IN2:   INC  R3
  88.            MOV  A,R3
  89.            MOVC  A,@A+DPTR
  90.            CJNE  A,B,KEY_IN3
  91.            MOV  A,R3
  92.            MOV  R5,#08H
  93.            CALL  DELAY
  94.            RET
  95. KEY_IN3:   CJNE  A,#0FFH,KEY_IN2
  96.            RET   
  98. SET_LCD:
  99.           CLR  EN
  100.           CALL  INIT_LCD     ;初始化 LCD
  101.           CALL  DELAY1
  102.           MOV  DPTR,#INFO1   ;指针指到显示信息1
  103.           MOV  A,#1          ;显示在第一行
  104.           CALL  LCD_SHOW
  105.           MOV  DPTR,#INFO2   ;指针指到显示信息2
  106.           MOV  A,#2          ;显示在第二行
  107.           CALL  LCD_SHOW
  108.           RET
  110. INIT_LCD:                 ;8位I/O控制 LCD 接口初始化
  111.           MOV  A,#38H     ;双列显示，字形5*7点阵
  112.           CALL  WCOM
  113.           CALL  DELAY1
  114.           MOV  A,#38H     ;双列显示，字形5*7点阵
  115.           CALL  WCOM
  116.           CALL  DELAY1
  117.           MOV  A,#38H     ;双列显示，字形5*7点阵
  118.           CALL  WCOM
  119.           CALL  DELAY1
  120.           MOV  A,#0CH     ;开显示，关光标，
  121.           CALL  WCOM
  122.           CALL  DELAY1
  123.           MOV  A,#01H     ;清除 LCD 显示屏
  124.           CALL  WCOM
  125.           CALL  DELAY1
  126.           RET
  128. LCD_SHOW:           ;在LCD的第一行或第二行显示信息字符
  130.           CJNE  A,#1,LINE2  ;判断是否为第一行
  131.   LINE1:  MOV  A,#80H       ;设置 LCD 的第一行地址
  132.           CALL  WCOM        ;写入命令
  133.           CALL  CLR_LINE    ;清除该行字符数据
  134.           MOV  A,#80H       ;设置 LCD 的第一行地址
  135.           CALL  WCOM        ;写入命令
  136.           JMP  FILL
  138.   LINE2:  MOV  A,#0C0H      ;设置 LCD 的第二行地址
  139.           CALL  WCOM        ;写入命令
  140.           CALL  CLR_LINE    ;清除该行字符数据
  141.           MOV  A,#0C0H      ;设置 LCD 的第二行地址
  142.           CALL  WCOM
  143.   FILL:   CLR  A            ;填入字符
  144.           MOVC  A,@A+DPTR   ;由信息区取出字符
  145.           CJNE  A,#0,LC1    ;判断是否为结束码
  146.           RET
  147.   
  148.   LC1:    CALL  WDATA       ;写入数据
  149.           INC  DPTR         ;指针加1
  150.           JMP  FILL         ;继续填入字符
  151.           RET
  153. CLR_LINE:                  ;清除该行 LCD 的字符
  154.           MOV  R0,#24
  155.    CL1:   MOV  A,#' '
  156.           CALL  WDATA
  157.           DJNZ  R0,CL1
  158.           RET
  160. MENU1:                      ;LCD 显示工作菜单信息
  161.          MOV   DPTR,#MENU2
  162.          MOV   A,#1         ;在第一行显示信息
  163.          CALL  LCD_SHOW
  164.          RET
  165. MENU2:  DB  "   WELCOME   ",0
  166. INFO1:  DB  "                ",0  ;LCD 第一行显示信息
  167. INFO2:  DB  "Music site:  ",0  ;LCD 第二行显示信息
  171. WCOM:                      ;写指令使能
  172.           MOV  P0,A
  173.           CLR RS           ;RS=L,RW=L,D0-D7=指令码，E=高脉冲
  174.           CLR RW
  175.           SETB EN
  176.           CALL  DELAY0
  177.           CLR EN
  178.           RET
  179. WDATA:                    ;写数据使能
  180.           MOV  P0,A
  181.           SETB  RS        ;RS=H,RW=L,D0-D7=数据，E=高脉冲
  182.           CLR   RW
  183.           SETB  EN
  184.           CALL  DELAY0
  185.           CLR   EN
  186.           RET
  188. DELAY0:   MOV  R7,#250      ;延时500微秒
  189.           DJNZ  R7,$
  190.           RET
  192. LCDP2:                    ;在LCD的第二行显示字符
  193.          PUSH  ACC        ;
  194.          MOV  A,B         ;设置显示地址
  195.          ADD  A,#0C0H     ;设置LCD的第二行地址
  196.          CALL  WCOM       ;写入命令
  197.          POP  ACC         ;由堆栈取出A
  198.          CALL  WDATA      ;写入数据
  199.          RET
  203. DELAY1:                    ;延时5MS
  204.          MOV  R6,#25
  205.   D2:    MOV  R7,#100
  206.          DJNZ  R7,$
  207.          DJNZ  R6,D2
  208.          RET
  210. DELAY:                    ;延时R5×10MS
  211.          MOV  R6,#50
  212.   D1:    MOV  R7,#100
  213.          DJNZ  R7,$
  214.          DJNZ  R6,D1
  215.          DJNZ  R5,DELAY
  216.          RET
  219. BREAK:   PUSH ACC
  220.          PUSH PSW
  221.          MOV TL0,20H
  222.          MOV TH0,21H
  223.          CPL P3.7
  224.          POP PSW
  225.          POP ACC
  226.          RETI 
  227.        
  229. KEYTABLE:
  230.     DB  0EEH,0EDH,0EBH,0E7H,0DEH  ;0,1,2,3,4,  顺序码
  231.     DB  0DDH,0DBH,0D7H,0BEH,0BDH  ;5,6,7,8,9,
  232.     DB  0BBH,0B7H,07EH,07DH,07BH  ;A,B,C,D,E,
  233.     DB  077H,0FFH                 ;F      0FF为结束码
  235. TABLE: DW 63628,63835,64021,64103,64260,64400,64524
  236.        DW 64580,64684,64777,64820,64898,64968,65030
  237.        DW 65058,65110
  239. END