read.bak

来自「液晶屏的单片机demo程序」· BAK 代码 · 共 69 行

$include (REG52.INC)
public readstatus
public delayy
public Nopp
proc   segment code
rst equ p3.0
cs2 equ p3.1
cs1 equ p3.2
e   equ p3.3
rw  equ p3.4
di  equ p3.5
green equ p0.7
rseg  proc
readstatus:
	clr di
	call delayy
	clr rw
	call delayy
	clr e
	call delayy
	setb rw
	call delayy
	setb e
	call delayy
	clr e
	call delayy
	setb e
	call delayy
	setb green
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	call delayy
	mov r7,P1
	clr green
	ret
delayy:
	mov r1,#20h
loop:
	nop
	nop
	djnz r1,loop
	ret
Nopp:
	nop
	nop
	ret
	end