noname5.asm

及时准确地得到温度信息并对其进行适时的控制

RS EQU P3.7
RW EQU P3.6
E EQU P3.5

org 0000h
MOV 30H,#4
MOV 31H,#5
MOV 32H,#6
MOV 33H,#10
MOV 34H,#7
   mov p3,#0ffh
   mov   r0,#34h
ql:MOV P1,#01H; 清零
   ACALL ENABLE
   MOV P1,#38H;8位点阵方式      #28h
   ACALL ENABLE
   MOV P1,#0FH;开显示
   ACALL ENABLE
   MOV r2,#7fH
   ljmp keywork

xswz:;显示位置
     ;mov  p1,r2
     ;ACALL ENABLE
     ;mov dptr,#table4;送数据表4
     ;call write4
     inc  r0
     mov  a,r3
     mov  @r0,a
     mov   p1,r2
     lcall  enable
      mov  dptr ,#table4
      call write5
     LJMP KEYWORK
COL:MOV R2,#080H
      MOV P1,R2
      CALL ENABLE
      MOV DPTR,#TABLE1
      CALL WRITE1
       MOV R2,#085H
      MOV P1,R2
      CALL ENABLE
      MOV DPTR,#TABLE4
      MOV R1,#30H
    GO:CALL WRITE3
      INC R1
      MOV A,R1
      CJNE A,#35H,GO
      INC R2
SET_0:MOV R2,#0C0H
      MOV P1,R2
      CALL ENABLE
      MOV DPTR,#TABLE2
      CALL WRITE1
      LJMP KEYWORK

write1:;写数据
mov r1,#00h
a1:mov a,r1
movc a,@a+dptr
call write2
inc r1
cjne a,#20H,a1

ret

write2:
mov p1,a
setb rs
clr rw
clr e
call delay
setb e
INC R2
ret

WRITE3:
MOV A,@R1
MOVC A,@A+DPTR
CALL WRITE2
RET

WRITE4:
MOV A,R1
MOVC A,@A+DPTR
CALL WRITE2
RET

WRITE5:
MOV A,@R0
MOVC A,@A+DPTR
CALL WRITE2
RET

KEYWORK:;SETB P1.7
        ;CLR P1.6
        ;CLR P1.5
        ;CLR P1.4
       ; CLR P1.3
        MOV P2,#0FFH
        CLR P2.0
        CLR P2.1
        CLR P2.2

        JNB P2.3,K0
        JNB P2.4,K8
        SETB P2.0
        JNB P2.3,K1
        JNB P2.4,K9


        CLR P2.0
        SETB P2.1
        JNB P2.3,K2

        JNB P2.4,K10

        SETB P2.0
        JNB P2.3,K3
        JNB P2.4,K11

        CLR P2.0
        CLR P2.1
        SETB P2.2
        JNB P2.3,K4
        JNB P2.4,K12

        SETB P2.0
        JNB P2.3,K5
        JNB P2.4,K13

        CLR P2.0
        SETB P2.1
        JNB P2.3,K6
        JNB P2.4,K14

        SETB P2.0
        JNB P2.3,K7
        JNB P2.4,K15
        LJMP  KEYWORK
k0:ljmp key0
K8:JMP KEY8
K9:JMP KEY9
K10:JMP KEY10
K11:JMP KEY11
K12:JMP KEY12
K13:JMP KEY13
K14:JMP KEY14
K15:JMP KEY15
K7:JMP  KEY7
K6:JMP  KEY6
K5:JMP  KEY5
K4:JMP  KEY4
K3:JMP  KEY3
K2:JMP  KEY2
K1:JMP KEY1

ENABLE:
CLR RS
CLR RW
CLR E
ACALL DELAY
SETB E
RET




delay:
mov r7,#255
d1:mov r6,#255
d2:djnz r6,d2
djnz r7,d1
ret



 key0:jnb p2.3,$
      mov r3,#00h
      ljmp xswz
 key1: jnb p2.3,$
      mov r3,#01h
      ljmp xswz
 key2:jnb p2.3,$
 mov r3,#02h
      ljmp xswz
 key3:jnb p2.3,$
 mov r3,#03h
      ljmp xswz
 key4:jnb p2.3,$
 mov r3,#04h
      ljmp xswz
 key5:jnb p2.3,$
 mov r3,#05h
      ljmp xswz
 key6: jnb p2.3,$
 mov r3,#06h
      ljmp xswz
 key7:jnb p2.3,$
 mov r3,#07h
      ljmp xswz
 key8:jnb p2.4,$
 mov r3,#08h
      ljmp xswz
 key9:jnb p2.4,$
 mov r3,#09h
      ljmp xswz
 key10: jnb p2.4,$
  mov r3,#0ah
        ljmp xswz
 key11:jnb p2.4,$
 ljmp  COL
 key12: jnb p2.4,$
 LJMP KEYWORK
 key13:ljmp keywork
 key14:ljmp keywork
 key15:jnb p2.4,$
 ljmp ql

TABLE1:DB 43H,4FH,4CH,3AH,20H
TABLE2:DB 53H,45H,54H,3AH,20H
table4:db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h,2eh,20h