disp4.asm

web51的开发库

;	Ctyrbitove ovladani dvouradkoveho displeje pro procesory x51
;
;	
;	Popis pripojeni displeje
;
;	
; 	K portu P1 je ctyrbitove pripojen dvouradkovy LCD displej takto:
;	P1.4 az P1.7 ... D4 az D7 displeje,
;	P1.1 ... RS
;	P1.2 ... RW
;	P1.3 ... E

; -------------------------- EQU pro hardware ---------------------------------

	.equ	disp, 0x90	;Port 1
	.equ	RS, 0x91	;P1.1		;Instrukce/data displeje
	.equ	RW, 0x92	;P1.2		;Read/write displeje
	.equ	E,  0x93	;P1.3		;Enable displeje
	.equ	ST, 0x97	;P1.7		;status displeje


;PROCEDURY PRO DISPLEJ
.global	d_inst, d_data, d_clr, d_home, d_read, d_init

	.bitcomm	flag_disp,   1		;display init

	.text
; ----------------------- Cekani na ready stav displeje -----------------------
d_wait:				;cekani na bussy flag displeje
	mov	disp,#0xf4	;nastaveni cteni a nahozeni bitu dat
	clr	a
wait_znovu:
	setb	E
	jnb 	ST,dumy		;uz to spadlo?
	clr	E		;vynulovani E
	setb	E		; Pulz E na displej
	clr	E		;dumy cyklus (4 bit)
	djnz	acc,wait_znovu	; timeout !!!
dumy:
	setb	E		; Pulz E na displej
				;dumy cyklus (4 bit)
	clr	E		;vynulovani E
	ret 

; ------------------------ Vyslani dat na displej -----------------------------
;	Data nebo instrukce se daji do R7 a zavola se tahle rutinka

; ----- Instrukce -----
d_inst:		
	push	acc
	push	psw
	clr	c		;jedna se o instrukci
	sjmp	d_send		;vlastni zapisy na displej

; ----- Data -----
d_data:
	push	acc
	push	psw
	setb	c

; ----- Vlastni zapis -----	
d_send:
        lcall 	d_wait
        mov 	a,#0b11110000	;priprava masky
        anl 	a,r7		;prevzeti a vymaskovani instrukce z R7
        mov 	disp,a		;vystaveni dat
	mov	RS,c   	 
	setb	E		; Pulz E na displej
        			;zapis pulzem na E
	clr	E		;vynulovani E
        mov 	a,#0b00001111	;priprava masky
        anl 	a,r7		;prevzeti a vymaskovani instrukce z R7
        swap 	a		;prehozeni niblu
        mov 	disp,a		;vystaveni dat
	mov	RS,c
	setb	E		; Pulz E na displej
        			;zapis pulzem na E
	clr	E		;vynulovani E
        pop	psw
        pop	acc
        ret

; ----------------------------- Cursor home -----------------------------------
d_home:	mov r7,#0b00000010          
        sjmp d_inst
            
; ---------------------------- Display clear ----------------------------------
d_clr:
        mov r7,#0b00000001	;Clear Home
        sjmp d_inst

; ------------------------------- Readout displeje ----------------------------

d_read:	lcall 	d_wait
	setb	RS		; read data
	setb	E		; Pulz E na displej
	mov	a,disp
	clr	E		;vynulovani E
        anl	a,#0xF0
	mov	r7,a
	setb	E		; Pulz E na displej
	mov	a,disp
	clr	E		;vynulovani E
        swap 	a		;prehozeni niblu
        anl	a,#0x0F
	orl	a,r7
done:	ret

; ------------------------------- Oziveni displeje ----------------------------

d_init:
	jb	flag_disp, done
	setb	flag_disp
	clr	E		;E dolu

	mov	a,#7		;10 ms min
L1:	lcall	plongpause	;1.6 ms
	djnz	Acc,L1		;cekani (jeste nefunguje BUSY flag)

        mov 	disp,#0b00110000;Prvni zapis
	setb	E		; Pulz E na displej
	clr	E		;vynulovani E

	mov	a,#3		;4.1 ms min
L2:	lcall	plongpause	;1.6 ms
	djnz	Acc,L2		;cekani (jeste nefunguje BUSY flag)

;	mov	disp,#0b00110000
	setb	E		; Pulz E na displej
				;odeslani dat
	clr	E		;vynulovani E

	mov	a,#0		;100 us min
	djnz	Acc,.		;cekani (jeste nefunguje BUSY flag)

;	mov	disp,#0b00110000
	setb	E		; Pulz E na displej
				;odeslani dat
	clr	E		;vynulovani E

	mov	a,#0		;100 us min
	djnz	Acc,.		;cekani (128 us @ 48 MHz)

        mov 	disp,#0b00100000;4bitovy interface
	setb	E		; Pulz E na displej
				;odeslani dat
	clr	E		;vynulovani E

; .................... Odtud uz se pouziva BUSY flag displeje .................

        mov 	r7,#0b00101000       	;4Bit, 2radkovy, 5*7
        lcall	d_inst
        mov 	r7,#0b00001000       	;Display off
        lcall 	d_inst
        mov 	r7,#0b00001100       	;Display on, cursor on, blink off
        lcall 	d_inst
        mov 	r7,#0b00000110       	;Entry mode increment, no shift
        lcall 	d_inst
	ljmp	d_clr			;Clear displeje

; 	A tady uz je displej Vas a pomoci call d_inst nebo call d_data mu muzete 
;	posilat veskera Vase prani.

	;; END