HT48R50A的 5X7LED點陣顯示示例程序

; ********************************************
; Function : 5X7 LED點陣顯示示例程序 *

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

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

#INCLUDE HT48R50A-1.INC
;---------------------------------------------
DATA .SECTION AT 60H 'DATA'
LOOP_COUNTER DB ? ;[60H]
DISPLAY_COUNTER DB ? ;[61H]
DISPLAY_DATA DB ? ;[61H]
INDEX DB ? ;[62H]
SCAN_DATA DB ? ;[63H]
SCAN_COUNTER DB ? ;[64H]
DELAY_COUNTER DB ? ;[65H]
;---------------------------------------------
CODE .SECTION AT 00H 'CODE'
ORG 00H
JMP START
START:
CLRPAC
CLR PBC
CLR PCC
CLR TBLP
CLR INDEX
MOV A,10H
MOV LOOP_COUNTER,A
LOOP:
MOV A,0C0H
MOV DISPLAY_COUNTER,A
DISPLAY:
MOV A,INDEX
MOV TBLP,A
TABRDL DISPLAY_DATA
MOV A,DISPLAY_DATA
MOV PA,A
CLR PB
CALL DELAY
SET PB
CALL DELAY
INC TBLP
MOV A,0F7H
MOV SCAN_DATA,A
MOV A,04H
MOV SCAN_COUNTER,A
SCAN:
TABRDL DISPLAY_DATA
MOV A,DISPLAY_DATA
MOV PA,A
MOV A,SCAN_DATA
MOV PC,A
CALL DELAY
SET PC
CALL DELAY
INC TBLP
RR SCAN_DATA
SDZ SCAN_COUNTER
JMP SCAN
SDZ DISPLAY_COUNTER
JMP DISPLAY
MOV A,5
ADDM A,INDEX
SDZ LOOP_COUNTER
JMP LOOP
JMP START
RET
;---------------------------------------------
DELAY PROC
MOV A,0FFH
MOV DELAY_COUNTER,A
WAIT:
SDZ DELAY_COUNTER
JMP WAIT
RET
DELAY ENDP
;---------------------------------------------
ORG 0F00H
DC 0C1H,0BEH,0BEH,0BEH,0C1H ;0
DC 0FEH,0FEH,080H,0DEH,0FEH ;1
DC 0CEH,0B6H,0BAH,0BCH,0CEH ;2
DC 0C9H,0B6H,0B6H,0BEH,0DDH ;3
DC 0FBH,080H,0DBH,0EBH,0F3H ;4
DC 0B9H,0B6H,0B6H,0B6H,086H ;5
DC 0D9H,0B6H,0B6H,0B6H,0C1H ;6
DC 08FH,0B3H,0BCH,0BFH,09FH ;7
DC 0C9H,0B6H,0B6H,0B6H,0C9H ;8
DC 0C1H,0B6H,0B6H,0B6H,0CDH ;9
DC 0E0H,0DBH,0BBH,0DBH,0E0H ;A
DC 0C9H,0B6H,0B6H,0B6H,080H ;B
DC 0DDH,0BEH,0BEH,0BEH,0C1H ;C
DC 0E3H,0DDH,0BEH,0BEH,080H ;D
DC 0BEH,0B6H,0B6H,0B6H,080H ;E
DC 0BFH,0B7H,0B7H,0B7H,080H ;F
;---------------------------------------------
END