RS EQU  P2.0
              RW EQU  P2.1
              E  EQU  P2.2

              ORG 0000H
              LJMP START
              ORG 000BH
              LJMP YANT0
              ORG 001BH
              LJMP SLET1
              ORG 0050H

START:        MOV R0,#60H
              MOV R2,#32
CLEARDISP:    MOV @R0,#00H
              INC R0
              DJNZ R2,CLEARDISP
              MOV SP,#2FH
              MOV 20H,#00H
              mov r6,#64h
              mov r7,#14h
              MOV IE, #8AH
              MOV TMOD,#11H
              MOV TL0,#0B0H
              MOV TH0,#3CH
              MOV TL1,#0B0H
              MOV TH1,#3CH
              MOV 7EH,#18
              MOV 7DH,#05H
              MOV R2,#01H
              ACALL ENABLE
              MOV R2,#06H
              ACALL ENABLE
              MOV R2,#0CH
              ACALL ENABLE
              MOV R2,#38H
              ACALL ENABLE
              MOV R2,#01H
              ACALL ENABLE
              LCALL PROCESS
              LCALL DISPLAY
START1:       LCALL TEST
              MOV 75H,#10
STA1:         MOV 76H,#100
STA:          LCALL keyset
              LCALL PROCESS
              LCALL DISPLAY
              DJNZ 76H,STA
              DJNZ 75H,STA1
              SJMP START1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;溫度采集子程序
;R3存放采集數(shù)據(jù)
;7FH存放結(jié)果
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TEST:         CLR A
              MOV R3,A
              MOV 7FH,A
              MOV P0,#0FFH
              MOV R5,#08H
              LCALL GATHER
              RET

GATHER:       SETB P2.3
              NOP
              NOP
              CLR P2.3
              NOP
              NOP
              NOP
              NOP
PWAIT:        JB P3.2,RMOVD
              AJMP PWAIT
RMOVD:        SETB P3.4
              MOV A,P0
              ADD A,R3
              MOV R3,A
              CLR P3.4
              JNC GAC
              INC B
GAC:          DJNZ R5,GATHER
              MOV R5,#03H

AVER:         CLR C
              XCH A,B
              RRC A
              XCH A,B
              RRC A
              DJNZ R5,AVER
              MOV 7FH,A

              MOV B,#30H
              DIV AB