; ********************************************
; Function :       7段数码管显示程序         *

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

; Author:         www.picavr.com             *
; Crystal :       4MHz                       *
; ********************************************
#INCLUDE                HT48R50A-1.INC
;---------------------------------------------
DATA    .SECTION        AT 60H  'DATA'
DELAY_COUNTER_1         DB      ?       ;[60H]
DELAY_COUNTER_2         DB      ?       ;[61H]
SCAN_COUNTER            DB      ?       ;[62H]
SCAN_DATA               DB      ?       ;[63H]
DISPLAY_COUNTER         DB      ?       ;[64H]
DISPLAY_DATA            DB      ?       ;[65H]
LOOP_COUNTER            DB      ?       ;[66H]
;---------------------------------------------
CODE    .SECTION        AT 00H  'CODE'
        ORG     00H
        JMP     START
START:
        CLR     PAC
        SET     PA
        CLR     PCC
        SET     PC
SCAN_BEGIN:
        CLR     DISPLAY_COUNTER
LOOP_1:
        MOV     A,90H
        MOV     LOOP_COUNTER,A
LOOP_2:
        MOV     A,DISPLAY_COUNTER
        MOV     TBLP,A
        MOV     A,0EH
        MOV     SCAN_DATA,A
        MOV     A,04H
        MOV     SCAN_COUNTER,A
SCAN_NEXT:
        MOV     A,SCAN_DATA
        MOV     PC,A
        TABRDL  DISPLAY_DATA
        MOV     A,DISPLAY_DATA
        MOV     PA,A
        CALL    DELAY
        SET     C
        RLC     SCAN_DATA
        INC     TBLP
        SDZ     SCAN_COUNTER
        JMP     SCAN_NEXT
        SDZ     LOOP_COUNTER
        JMP     LOOP_2
        MOV     A,04H
        ADDM    A,DISPLAY_COUNTER
        MOV     A,DISPLAY_COUNTER
        SUB     A,10H
        SZ      ACC
        JMP     LOOP_1
        JMP     SCAN_BEGIN
        RET
;---------------------------------------------
DELAY   PROC
        MOV     A,09H
        MOV     DELAY_COUNTER_1,A
        MOV     DELAY_COUNTER_2,A
WAIT:
        SDZ     DELAY_COUNTER_2
        JMP     WAIT
        SDZ     DELAY_COUNTER_1
        JMP     WAIT
        RET
DELAY   ENDP
;---------------------------------------------
        ORG     0F00H
        DC      081H,0CFH,092H,086H   ;0,1,2,3
        DC      0CCH,0A4H,0A0H,08FH   ;4,5,6,7
        DC      080H,084H,088H,0E0H   ;8,9,A,B
        DC      0B1H,0C2H,0B0H,0B8H   ;C,D,E,F
;---------------------------------------------
        END