HT48R50A的 5X7 LED点阵+LCD显示示例程序

****************************************

;Function:5X7LED点阵+LCD显示示例程序*

;MICroProcessor:HT48R50A-1/28SKDIP-A*

;Author:www.picavr.com*
;Crystal:4MHz*
;********************************************

#INCLUDEHT48R50A-1.INC
LCD_DATAEQUPB
LCD_DATA_CTRLEQUPBC
LCD_CTRLEQUPC
LCD_CTRL_CTRLEQUPCC
EEQU5
RSEQU3
TIME_OUTEQU11H
CLR_WDTEQU22H
EXE_HALTEQU33H
CLR_WDT1_WDT2EQU44H
;--------------------------------------------------------------------
DATA.SECTIONAT60H’DATA’
DELAY_COUNTER_1DB?;[60H]
DELAY_COUNTER_2DB?;[61H]
DELAY_COUNTER_3DB?;[62H]
DATADB?;[63H]
COUNTERDB?;[64H]
WARM_RESETDB?;[65H]
DISPLAY_FLAGDB?;[66H]
;--------------------------------------------------------------------
CODE.SECTIONAT00H’CODE’
ORG00H
JMPSTART
START:
CLRPAC
CLRLCD_DATA_CTRL
CLRLCD_CTRL_CTRL
CLRLCD_DATA
CLRLCD_CTRL
;--------------------------------------------------------------------
MOV A,07H;setwatchdogtimeout
MOV WDTS,A;2.6sec
CLRWDT;clearwatchdogtimer
;--------------------------------------------------------------------
MOV A,WARM_RESET
MOV DISPLAY_FLAG,A
SUBA,TIME_OUT
SZACC
JMPCHK_CLR_WDT
JMPGO_TIME_OUT
CHK_CLR_WDT:
MOV A,WARM_RESET
MOV DISPLAY_FLAG,A
SUBA,CLR_WDT
SZACC
JMPCHK_EXE_HALT
JMPGO_CLR_WDT
CHK_EXE_HALT:
MOV A,WARM_RESET
MOV DISPLAY_FLAG,A
SUBA,EXE_HALT
SZACC
JMPCHK_CLR_WDT_12
JMPGO_EXE_HALT
CHK_CLR_WDT_12:
MOV A,WARM_RESET
MOV DISPLAY_FLAG,A
SUBA,CLR_WDT1_WDT2
SZACC
JMPBEGIN
JMPGO_CLR_WDT_12
BEGIN:
CALLLCD_RESET
CLRWDT;clearwatchdogtimer
;--------------------------------------------------------------------
GO_TIME_OUT:
MOV A,CLR_WDT
MOV WARM_RESET,A
MOV A,OFFSETLCD_MESSAGE_1
MOV TBLP,A
CALLLCD_DISPLAY
TIME_OUT_LOOP:
CALLLED_DISPLAY
JMPTIME_OUT_LOOP
RET
;--------------------------------------------------------------------
GO_CLR_WDT:
MOV A,EXE_HALT
MOV WARM_RESET,A
MOV A,OFFSETLCD_MESSAGE_2
MOV TBLP,A
CALLLCD_DISPLAY
CLR_WDT_LOOP:
CALLLED_DISPLAY
JMPCLR_WDT_LOOP
RET
;--------------------------------------------------------------------
GO_EXE_HALT:
MOV A,CLR_WDT1_WDT2
MOV WARM_RESET,A
MOV A,OFFSETLCD_MESSAGE_3
MOV TBLP,A
CALLLCD_DISPLAY
EXE_HALT_LOOP:
CALLLED_DISPLAY
JMPEXE_HALT_LOOP
RET
;--------------------------------------------------------------------
GO_CLR_WDT_12:
MOV A,TIME_OUT
MOV WARM_RESET,A
MOV A,OFFSETLCD_MESSAGE_4
MOV TBLP,A
CALLLCD_DISPLAY
CLR_WDT_12_LOOP:
CALLLED_DISPLAY
JMPCLR_WDT_12_LOOP
RET
;--------------------------------------------------------------------
LED_DISPLAYPROC
SETPA
CALLDELAY
MOV A,OFFSETSEGMENT_DATA
MOV TBLP,A
MOV A,10H
MOV COUNTER,A
DISPLAY_START:
TABRDLDATA
MOV A,DATA
MOV PA,A
CALLDELAY
INCTBLP

MOV A,DISPLAY_FLAG
SUBA,CLR_WDT
SZACC
JMPLED_CLR_WDT12
CLRWDT
JMPDISPLAY_END
LED_CLR_WDT12:
MOV A,DISPLAY_FLAG
SUBA,CLR_WDT1_WDT2
SZACC
JMPLED_EXE_HALT
CLRWDT1
CLRWDT2
JMPDISPLAY_END
LED_EXE_HALT:
MOV A,DISPLAY_FLAG
SUBA,EXE_HALT
SZACC
JMPDISPLAY_END
HALT
DISPLAY_END:
SDZCOUNTER
JMPDISPLAY_START
RET
LED_DISPLAYENDP
;--------------------------------------------------------------------
LCD_RESETPROC
MOV A,30H;LCDreset,step1
MOV LCD_DATA,A;
CALLWRITE;
CALLDELAY;LCDreset,step2
MOV A,30H;LCDreset,step3
MOV LCD_DATA,A;
CALLWRITE;
CALLDELAY;LCDreset,step4
MOV A,30H;LCDreset,step5
MOV LCD_DATA,A;
CALLWRITE;
MOV A,38H;LCDsetting,step1
MOV LCD_DATA,A;functionset
CALLWRITE;
MOV A,06H;LCDsetting,step2
MOV LCD_DATA,A;entrymodeset
CALLWRITE;
MOV A,01H;LCDsetting,step3
MOV LCD_DATA,A;displayclear
CALLWRITE;
CALLDELAY;
MOV A,0EH;LCDsetting,step4
MOV LCD_DATA,A;displayturnon
CALLWRITE;
RET
LCD_RESETENDP
;--------------------------------------------------------------------
LCD_DISPLAYPROC
MOV A,01H;LCDsetting,step5
MOV LCD_DATA,A;displayclear
CALLWRITE;
CALLDELAY;
MOV A,80H;LCDsetting,setp6
MOV LCD_DATA,A;DDRAMaddresssetting
CALLWRITE;address=00h(firstline)
SETLCD_CTRL.RS;LCDsetting,step7
MOV A,10H;writedatatoDDRAM
MOV COUNTER,A
DISPLAY1:
TABRDLDATA
MOV A,DATA
MOV LCD_DATA,A
CALLWRITE
INCTBLP
SDZCOUNTER
JMPDISPLAY1
CLRLCD_CTRL.RS
MOV A,0C0H;LCDsetting,step8
MOV LCD_DATA,A;DDRAMaddresssetting
CALLWRITE;address=40h(secondline)
SETLCD_CTRL.RS;LCDsetting,step9
MOV A,10H;writedatatoDDRAM
MOV COUNTER,A
DISPLAY2:
TABRDLDATA
MOV A,DATA
MOV LCD_DATA,A
CALLWRITE
INCTBLP
SDZCOUNTER
JMPDISPLAY2
RET
LCD_DISPLAYENDP
;--------------------------------------------------------------------
WRITEPROC
SETLCD_CTRL.E
CLRLCD_CTRL.E
MOV A,0FFH
MOV DELAY_COUNTER_1,A
WAIT:
SDZDELAY_COUNTER_1
JMPWAIT
RET
WRITEENDP
;--------------------------------------------------------------------
DELAYPROC
MOV A,003H
MOV DELAY_COUNTER_1,A
MOV DELAY_COUNTER_2,A
MOV DELAY_COUNTER_3,A
DELAY_WAIT:
SDZDELAY_COUNTER_3
JMPDELAY_WAIT
SDZDELAY_COUNTER_2
JMPDELAY_WAIT
SDZDELAY_COUNTER_1
JMPDELAY_WAIT
RET
DELAYENDP
;--------------------------------------------------------------------
ORG0F00H
LCD_MESSAGE_1:;[Now,watchdog]
;[willbetimeout]
DC4EH,6FH,77H,20H,2CH,20H,77H,61H
DC74H,63H,68H,20H,64H,6FH,67H,20H
DC77H,69H,6CH,6CH,20H,62H,65H,20H
DC74H,69H,6DH,65H,20H,6FH,75H,74H

LCD_MESSAGE_2:;[Withouttimeout]
;[BecauseCLRWDT]
DC57H,69H,74H,68H,6FH,75H,74H,20H
DC74H,69H,6DH,65H,20H,6FH,75H,74H
DC42H,65H,63H,61H,75H,73H,65H,20H
DC43H,4CH,52H,20H,57H,44H,54H,20H

LCD_MESSAGE_3:;[Executingthe]
;[HALTinstruction]
DC45H,78H,65H,63H,75H,74H,69H,6EH
DC67H,20H,74H,68H,65H,20H,20H,20H
DC48H,41H,4CH,54H,20H,69H,6EH,73H
DC74H,72H,75H,63H,74H,69H,6FH,6EH

LCD_MESSAGE_4:;[Withouttimeout]
;[CLRWDT1&WDT2]
DC57H,69H,74H,68H,6FH,75H,74H,20H
DC74H,69H,6DH,65H,20H,6FH,75H,74H
DC43H,4CH,52H,20H,57H,44H,54H,31H
DC20H,26H,20H,57H,44H,54H,32H,20H

SEGMENT_DATA:;7SEGMENTDISPLAYDATA(COMMONANODE)
DC081H,0CFH,092H,086H;0123
DC0CCH,0A4H,0A0H,08FH;4567
DC080H,084H,088H,0E0H;89AB
DC0B1H,0C2H,0B0H,0B8H;CDEF
;--------------------------------------------------------------------
END