;peipei  于08/15/2005
                                     ;************************中斷定義區(qū)****************************************************
ORG 0000H
JMP MAIN
;ORG 0003H
;JMP INT0_INT
;ORG 000BH
;JMP T0_INT;定時采樣周期中斷
;ORG 0023H
;JMP SERIAL_INT
;***********************主程序***************************************
MAIN: LCALL  INIT
      LCALL  CLEAR
      
      

JMP MAIN
TAB1:       DB     030H,087H,007H,027H,02BH,0F0H,028H,000H
TAB2:       DB     000H,000H,0F0H,080H,025H,0F0H,000H,04BH,080H,070H
;*********************************************************************
INIT:       MOV    DPTR,#7fffH     ;COMMAND PORT
            MOV    A,#40H          ;SYSTEM SET CODE
            MOVX   @DPTR,A
            LCALL D10MS
            LCALL D10MS
            MOV    R2,#08H
            MOV    R3,#00H
INIT0:      MOV    DPTR,#TAB1
            MOV    A,R3
            MOVC   A,@A+DPTR
            MOV    DPTR,#7ffeH
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            INC    R3
            DJNZ   R2,INIT0
            MOV    DPTR,#7fffH
            MOV    A,#44H          ;SCOLL CODE
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    R2,#0AH
            MOV    R3,#00H
INIT1:      MOV    DPTR,#TAB2
            MOV    A,R3
            MOVC   A,@A+DPTR
            MOV    DPTR,#7ffeH     ;DATA PORT
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            INC    R3
            DJNZ   R2,INIT1        ;
            MOV    A,#5AH          ;HDOTSCR CODE
            MOV    DPTR,#7fffH
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    DPTR,#7ffeH
            MOV    A,#00H          ;HDOTSCR P1=0
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    DPTR,#7fffH
            MOV    A,#5BH          ;OVLAY CODE
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    DPTR,#7ffeH
            MOV    A,#0CH          ;OVLAY P1=0
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            LCALL  CLEAR           ;CLEAR SUBROUTINE
            MOV    DPTR,#7fffH
            MOV    A,#59H
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    DPTR,#7ffeH
            MOV    A,#04H          ; GRAPH ON
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            RET
;*********************************************************************            
CLEAR:      MOV    DPTR,#7fffH
            MOV    A,#4CH
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    A,#46H
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    DPTR,#7ffeH
            MOV    A,#00H
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    R1,#02H
            MOV    R2,#0F0H
            MOV    R3,#028H
            MOV    DPTR,#7fffH
            MOV    A,#42H
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            MOV    A,#00H
CLEAR0:     MOV    DPTR,#7ffeH
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            DJNZ   R3,CLEAR0
            DJNZ   R2,CLEAR0
            DJNZ   R1,CLEAR0
            ;820添加
            MOV    DPTR,#7fffH
            MOV    A,#4fH
            MOVX   @DPTR,A
             LCALL D10MS
            LCALL D10MS
            RET
D10MS:  MOV       40H,#020H
D10MS0: MOV       41H,#032H
D10MS1: DJNZ      41H,D10MS1
        DJNZ      40H,D10MS0
	    RET