;0802液晶6位計數器:本程序調試通過
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2

org 00h
a_bit equ 30h         ;個位數存放處
b_bit equ 31h         ;十位數存放處
c_bit equ 32h         ;百位數存放處
d_bit equ 33h         ;千位數存放處
e_bit equ 34h         ;萬位數存放處
f_bit equ 35h         ;十萬位數存放處

	mov	a,#30h  ;30H的ASCIC碼為0
	mov	a_bit,a
	mov	b_bit,a
	mov	c_bit,a
	mov	d_bit,a
	mov	e_bit,a
	mov	f_bit,a
org	0030h

	MOV P0,#00000001B	;清屏
	ACALL ENABLE
	MOV P0,#00111000B	;顯示功能
        ACALL ENABLE
	MOV P0,#00001100B	;顯示開關控制
 	ACALL ENABLE
	MOV P0,#06H	;輸入模式
	ACALL ENABLE

stlop:  acall display    ;顯示
        inc a_bit     ;加1
        mov	a,a_bit
        cjne	a,#3AH,stlop;  如果A的值到3AH那么繼續否則重新
        mov	a_bit,#30h      ;顯示數送30H（就是顯示0)
        inc b_bit
        mov	a,b_bit
        cjne	a,#3AH,stlop
        mov	b_bit,#30h
        inc c_bit
        mov	a,c_bit
        cjne	a,#3AH,stlop
        mov	c_bit,#30h
        inc d_bit
        mov	a,d_bit
        cjne	a,#3AH,stlop
        mov	d_bit,#30h
        inc e_bit
        mov	a,e_bit
        cjne	a,#3AH,stlop
        mov	e_bit,#30h
        inc f_bit
        mov	a,f_bit
        cjne	a,#3AH,stlop
        mov	f_bit,#30h
	ajmp	stlop

;顯示子程序

display:

		  MOV P0,#0C6H
        ACALL ENABLE
        MOV A,A_BIT
		  ACALL WRILTE2


	    MOV P0,#0C5H		;顯示的位置
		 ACALL ENABLE
     	 MOV A,B_BIT      ;顯示10位數
		 ACALL WRILTE2    ;顯示


		MOV P0,#0C4H		;數據存貯器地址
		ACALL ENABLE
 	    MOV A,C_BIT
		  ACALL WRILTE2


		MOV P0,#0C3H		;數據存貯器地址
		ACALL ENABLE
 	    MOV A,D_BIT
		  ACALL WRILTE2

		MOV P0,#0C2H		;數據存貯器地址
		ACALL ENABLE
 	    MOV A,E_BIT
		  ACALL WRILTE2

		MOV P0,#0C1H		;數據存貯器地址
		ACALL ENABLE
  	   MOV A,F_BIT
	    ACALL WRILTE2

;1MS延時(按12MHZ算)
;====================================================
D1MS: MOV R7,#2
      DJNZ R7,$
      RET


WRILTE2:MOV p0,A  ;顯示
	SETB RS
	CLR RW
	CLR E
	CALL DELAY
	CALL DELAY3
	SETB E
	RET


ENABLE: CLR RS 			;送命令
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET
DELAY: MOV P0,#0FFH
	CLR RS
	SETB RW
	CLR E
	NOP
	SETB E
	JB P0.7,DELAY		;判斷忙標志
	RET

 DELAY3: ; 延時程序
MOV  R7,#255
D1:MOV R6,#25
D2: DJNZ R6,D2
DJNZ R7,D1
RET

end