HT48R50A 点阵显示程序.doc

HT48R50A 点阵显示程序HT48R50A的 5X7LED点阵显示示例程序; *; FuncTIon : 5X7LED点阵显示示例程序 *; MICroProcessor : HT48R50A-1/28SKDIP-A *; Author: *; Crystal : 4MHz *; *#INCLUDE HT48R50A-1.INC;-DATA .SECTION AT 60H DATALOOP_COUNTER DB ? ;60HDISPLAY_COUNTER DB ? ;61HDISPLAY_DATA DB ? ;61HINDEX DB ? ;62HSCAN_DATA DB ? ;63HSCAN_COUNTER DB ? ;64HDELAY_COUNTER DB ? ;65H;-CODE .SECTION AT 00H CODE ORG 00H JMP STARTSTART: CLRPAC CLR PBC CLR PCC CLR TBLP CLR INDEX MOV A,10H MOV LOOP_COUNTER,ALOOP: MOV A,0C0H MOV DISPLAY_COUNTER,ADISPLAY: 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,ASCAN: 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,AWAIT: SDZ DELAY_COUNTER JMP WAIT RETDELAY 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