自动存包柜的设计(10)

MOV P2,#255

CLR BEEP ；禁止蜂鸣器

MOV P1,#255 ；禁止LCD显示

RET ；返回

串口初始化

设置串行口工作方式1，定时器1作为波特率发生器 波特率设置为 2400 ；

COMM: MOV TMOD,#20H 时器T1工作方式2

MOV TL1,#0F3H ；定时器计数初值

MOV TH1,#0F3H ；定时器重装值

SETB EA ；允许总的中断

SETB ES ；允许串行中断

MOV PCON,#00H 波特率不倍增

MOV SCON,#50H 42

；设置定 ； ；设置串

口工作方式

SETB TR1 ；定时器开始工作

RET ；返回 串口中断服务程序

COM_INT: CLR ES 断

；清除接收标志位

；从缓冲区取出数据

查数据

；收到联机信号并发送

；等待发送完毕

；清除发送标志

；允许串行中断

CLR RI MOV A,SBUF MOV P1,A MOV DPTR,#TAB

CJNE A,#0FFH,IN_1 MOV SBUF,#255 JNB TI,$ CLR TI SETB ES RETI 43

；检

；禁止串行中

；中断返回

IN_1: CJNE A,#1H, IN_2 ；如果收到1

MOVC A,@A+DPTR

MOV SBUF,A ；发送 'H'

；等待发送完毕

；清除发送中断标志

；允许串行中断

；中断返回

IN_2: CJNE 到 2

；发送 'E'

；等待发送完毕

；清除发送中断

；允许串行中断

JNB TI,$ CLR TI SETB ES RETI A,#2,IN_3 MOVC A,@A+DPTR

MOV SBUF,A JNB TI,$ CLR TI SETB ES 44

接收 ；

RETI ；中断返回

IN_3: MOV A,#03H

MOVC A,@A+DPTR

MOV SBUF,A ；发送 'J'

JNB TI,$ ；等待发送完毕

CLR TI ；清除发送中断标志

SETB ES ；允许串行中断

RETI ；返回

TAB: DB '2','H','E','J' END

键输入字程序清单： KEYI： ACALL KS1

JNZ LK1 NI： ACALL DIR

AJMP

KEYI LK1： ACALL DIR

ACALL DIR

ACALL

KS1

45

；调用判有无键闭合子程序

；调用显示子程序，延迟6ms

；延迟12ms

；调用判有无键闭合子程序

JNZ

ACALL

AJMP

LK2： MOV

MOV

LK4： MOV MOV MOVX INC INC MOVX JB MOV

AJMP

LONE: JB MOV

AJMP

LTW0: JB MOV

AJMP

LTHR: JB

MOV LKP: ADD

PUSH

LK3: ACALL

LK2 DIR

KEYI R2，#0FEH R4，#00H DPTR，#7F01H A，R2 @DPTR,A DPTR

DPTR A,@DPTR

ACC.0,LONE A,#00H LKP

ACC.1,LTWO A,#08H LKP

ACC.2,LTHR A,#08H LKP

ACC.3,NEXT A,#18H A,R4 A DIR

；调用显示子程序延迟6ms

；扫描模式—>R2

；扫描模式—>8155H的PA口

；数据指针增2，指向PC口

；读8155H PC口的行线状态 ；转判1行

；0行有键闭合，首键号0—>A ；跳键号计算子程序 ；转判2行

；1行有键闭合，首键号8—>A ；跳键号计算子程序 ；转判3行

；2行有键闭合，首键号10H—>A ；跳键号计算子程序 ；转判下一行

；行有键闭合，首键号18H—>A ；行首键号+列号=按下的键号 ；键号进栈保护

；调用显示子程序，延时6ms

46