12864.asm

0808数摸转换程序,能够达到一定要求的数值自动报警.

	 RS EQU P3.0
	 RW EQU P3.1
	 E EQU P3.2
	 REST EQU P3.5
     ORG 00H
	 LJMP MAIN
	 ORG 0030H
MAIN:MOV R1,#08H
     MOV SP,#60H
HH:	 LCALL CHUSHIHUA
	 MOV  A,#80H
	 
	 LCALL WZ
	 MOV DPTR,#TAB0
	 LCALL HAN
	 
	 MOV A,#90H
	 LCALL WZ
	 MOV DPTR,#TAB1
	 LCALL HAN

HH1: MOV A,#88H
	 LCALL WZ
	 MOV DPTR,#TAB2
	 LCALL HAN

	MOV A,#98H
	 LCALL WZ
	 MOV DPTR,#TAB3
	 LCALL HAN
	   
	MOV A,#88H
	 LCALL WZ
	 MOV DPTR,#TAB4
	 LCALL HAN

	MOV A,#98H
	 LCALL WZ
	 MOV DPTR,#TAB5
	 LCALL HAN
	 SJMP HH1

HAN:  CLR A
	  MOVC A,@A+DPTR
	  INC DPTR 
	  LCALL WD
	  CLR A
	  MOVC A,@A+DPTR
	  INC DPTR
	  LCALL WD 
	  LCALL DELAY1
	  DJNZ R1,HAN
	  MOV R1,#08H
	  RET
CHUSHIHUA:
     PUSH ACC
	 CLR P3.5
	 NOP
	 SETB P3.5
	 MOV A,#01H
	 LCALL WZ
     MOV A,#30H
	 LCALL WZ
	 MOV A,#06H
	 LCALL WZ

	 MOV A,#0C0H
	 LCALL WZ
	 POP ACC
	 RET
WZ:  
     PUSH ACC
	 LCALL BUZY
	 CLR RS
	 CLR RW
	 MOV P0,A
	 SETB E
	 NOP
	 CLR E
	 POP ACC
	 RET
WD: PUSH ACC
    PUSH DPH
	PUSH DPL
    LCALL BUZY
	SETB RS
	CLR RW
	MOV P0,A
	SETB E
	NOP
	CLR E
	POP DPL
	POP DPH
	POP ACC
	RET

BUZY:
     PUSH ACC 
MANG:MOV P0,#0FFH
	 CLR RS
	 SETB RW
	 SETB E
	 NOP
	 JB P0.7,MANG
	 CLR E
	 POP ACC	  
	 RET
TAB0:DB"山东交通职业学院"
TAB1:DB "  ",02H," 欢迎您! " ,02H,"   "
TAB2:DB 03H,"   刻苦求知!  ",03H
TAB3:DB "  ",18h," 学以致用 ",18h,"  "
TAB4:DB"www.sdjtzyxy.com"
TAB5:DB"    人才摇篮    "
DELAY: MOV    R5, #10       ;2us
D1:    MOV    R6, #250      ;2us        
D2:    MOV    R7, #200      ;2us
D3:    DJNZ   R7, D3        ;2+2*200=402us
       DJNZ   R6, D2        ;250*(2+2*200)+2=100502us
       DJNZ   R5, D1        ;10*[250*(2+2+200)+2]+2=1005022us=1S
       RET 

;延时200ms
DELAY1: MOV    R5,   #2         ;2us
DD1:    MOV    R6,   #200          ;2us
DD2:    MOV    R7,   #248         ;2us
       DJNZ   R7,   $            ;2+2+2*248=498us
       DJNZ   R6,   DD2           ;20*(2+2+2*248)+2=10002us=10ms
       DJNZ   R5,   DD1           ;20*20*(2+2+2*248)+2+2=200004us=200ms
       RET
end