test8.asm

基于单片机C51和LCD1602的显示《将近酒》的程序

;=====硬件连接参加如下=========================
CS1  EQU P1.0     ;
RES  EQU P1.1     ;复位端，低电平触发有效，正常时 高电平
A0   EQU P1.7     ;
RW   EQU P1.6     ;
E_RD EQU P1.5     ;
Data_bus data P0  ;LCM Data bus
HLS EQU 40h
org 000H
jmp begin
ORG 0030H
begin:call LCM_INIT
      call busy_check
main: call clr_screen
      call busy_check
      call show_pic1
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic2
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic3
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic4
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic5
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic6
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic7
      call delay_2s

      call clr_screen
      call busy_check
      call show_pic8
      call delay_2s
      ajmp main
show_pic1:mov dptr,#sun
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun1
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun1
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun2
          mov a,#0b4h
          call tcom
          call mlfs
          call disp
mov dptr,#sun2
          mov a,#0b5h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun3
          mov a,#0b6h
          call tcom
          call mlfs
          call disp
mov dptr,#sun3
          mov a,#0b7h
          call tcom
          call mlfs
          call disp3
          ret




mlfs: mov a,#10h
          call tcom
          mov a,#00h
          call tcom
       ret
show_pic2:mov dptr,#sun4
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun4
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun5
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun5
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun6
          mov a,#0b4h
          call tcom
          call mlfs
          call disp
mov dptr,#sun6
          mov a,#0b5h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun7
          mov a,#0b6h
          call tcom
          call mlfs
          call disp
mov dptr,#sun7
          mov a,#0b7h
          call tcom
          call mlfs
          call disp3
          ret
show_pic3:mov dptr,#sun8
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun8
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun9
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun9
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun10
          mov a,#0b4h
          call tcom
          call mlfs
          call disp
mov dptr,#sun10
          mov a,#0b5h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun11
          mov a,#0b6h
          call tcom
          call mlfs
          call disp
mov dptr,#sun11
          mov a,#0b7h
          call tcom
          call mlfs
          call disp3
          ret

show_pic4:mov dptr,#sun12
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun12
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun13
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun13
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun14
          mov a,#0b4h
          call tcom
          call mlfs
          call disp
mov dptr,#sun14
          mov a,#0b5h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun15
          mov a,#0b6h
          call tcom
          call mlfs
          call disp
mov dptr,#sun15
          mov a,#0b7h
          call tcom
          call mlfs
          call disp3
          ret

show_pic5:mov dptr,#sun16
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun16
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun17
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun17
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun18
          mov a,#0b4h
          call tcom
          call mlfs
          call disp
mov dptr,#sun18
          mov a,#0b5h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun19
          mov a,#0b6h
          call tcom
          call mlfs
          call disp
mov dptr,#sun19
          mov a,#0b7h
          call tcom
          call mlfs
          call disp3
          ret
show_pic6:mov dptr,#sun20
          mov a,#0b0h
          call tcom
          call mlfs
          call disp
mov dptr,#sun20
          mov a,#0b1h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun21
          mov a,#0b2h
          call tcom
          call mlfs
          call disp
mov dptr,#sun21
          mov a,#0b3h
          call tcom
          call mlfs
          call disp3
mov dptr,#sun22