键盘程序1.asm

本压缩包包含1602液晶显示

       ORG 00H
       JMP START
       ORG 23H
       JMP UARTI
START: MOV TMOD,#20H
       ANL PCON,#7FH
       MOV TH1,#0F3H
       SETB TR1
       MOV SCON,#0D0H
       MOV IE,#90H
       JMP Y0               ;初始化程序
UARTI: PUSH ACC
       PUSH PSW
       JBC RI,LOOP
       CLR TI
       JMP RETURN
LOOP:  MOV R1,#3
       MOV A,SBUF
       MOV R0,35H
       MOV @R0,A
       INC R2
       DJNZ R1,RETURN
       JMP XS
RETURN:POP PSW
       POP ACC
       RETI                  ;中断服务程序
Y0:    MOV 37H,#0FFH
       SETB P3.4
       SETB P3.5
       SETB P3.6
       JNB P3.7,NEXT0
Y1:    JNB P3.2,NEXT1
NEXT0: JB P3.7, PROCESS0
       JMP NEXT0
NEXT1: JB P3.2,PROCESS1
       CALL XS
       JMP NEXT1
PROCESS0: CALL AISP0
          JMP Y1
PROCESS1: CALL XS
          MOV 31H,#11H
          MOV 32H,#11H
          MOV 33H,#11H
          CALL XS
          JMP Y1
AISP0: MOV R7,#8
       MOV R0,30H
D1:    MOV @R0,#11H
       INC R0
       DJNZ R7,D1
       CALL XS
       RET
XS:    SETB P3.4
       SETB P3.5
       SETB P3.6
       MOV A,37H
       MOV P1,A
       CLR P3.6
       MOV A,36H
       MOV P1,A
       CLR P3.5
       SETB P3.6
       MOV A,35H
       MOV P1,A
       CLR P3.6
       MOV A,34H
       MOV P1,A
       CLR P3.4
       SETB P3.5
       SETB P3.6
       MOV A,33H
       MOV P1,A
       CLR P3.6
       MOV A,32H
       MOV P1,A
       CLR P3.5
       SETB P3.6
       MOV A,31H
       MOV P1,A
       CLR P3.6
       MOV A,30H
       MOV P1,A
       RET