DisplayBuffer EQU 30H
ScanCounter   EQU 38h
        ORG     0H
        JMP     RESET
        ORG     0BH
        JMP     TimerInt
RESET:
        MOV     SP,#70H
        MOV     R0,#37H
        MOV     A,#8
LOOP1:
        MOV     @R0,A
        DEC     A
        JZ      FILLOK
        DJNZ    R0,LOOP1
FILLOK:
        MOV     ScanCounter,#0
        MOV     TMOD,#00000010B
        MOV     TL0,#6
        MOV     TH0,#6
        MOV     IE,#10000010B
        SETB    TR0
        SJMP    $
TimerInt:
        clr     tr0
        PUSH    ACC
        ACALL   SCANDISPLAY
        POP     ACC
        setb    tr0
        RETI
SCANDISPLAY:
        MOV     R0,#ScanCounter
        INC     @R0
        CJNE    @R0,#8,NOTOVER
        MOV     @R0,#0
NOTOVER:
        MOV     A,@R0
        ADD     A,#DisplayBuffer
        MOV     R1,A
        MOV     A,@R0
        SWAP    A
        ORL     A,@R1
        MOV     P1,A
        RET
        END