INIT:   MOV     A,#40H          ;SYSTEM SET CODE
        LCALL   PR0
        MOV     R2,#08H
        MOV     R3,#00H
INIT0:  MOV     DPTR,#TAB1
        MOV     A,R3
        MOVC    A,@A+DPTR
        LCALL   PR1
        INC     R3
        DJNZ    R2,INIT0
        MOV     A,#44H          ;SCOLL CODE
        LCALL   PR0
        MOV     R2,#0AH
        MOV     R3,#00H
INIT1:  MOV     DPTR,#TAB2
        MOV     A,R3
        MOVC    A,@A+DPTR
        LCALL   PR1
        INC     R3
        DJNZ    R2,INIT1
        MOV     A,#5AH          ;HDOTSCR CODE
        LCALL   PR0
        MOV     A,#00H          ;HDOTSCR P1=0
        LCALL   PR1
        MOV     A,#5BH          ;OVLAY CODE
        LCALL   PR0
        MOV     A,#0CH          ;OVLAY P1=0
        LCALL   PR1
        LCALL   CLEAR           ;CLEAR SUBROUTINE
        MOV     A,#59H
        LCALL   PR0
        MOV     A,#04H          ;GRAPH ON
        LCALL   PR1
        RET
TAB1:   DB      030H,087H,007H,027H,04BH,0F0H,028H,000H
TAB2:   DB      000H,000H,0F0H,080H,025H,0F0H,000H,000H,000H,000H