record.asm

时间和温度同时拥有,一次满足你两个愿望,而且友好的界面,一定合你心意.

          DATDB   EQU      P0
              TEMPL   EQU      3EH
              TEMPH   EQU      3FH
              ALARMHL EQU      40H
              ALARMHH EQU      41H
              ALARMLL EQU      42H
              ALARMLH EQU      43H
              MODE1   BIT      7EH
              MODE2   BIT      7DH
              ONALARM BIT      7CH
              ALARMM  BIT      P3.6
              ALARMM1 BIT      P3.5
              K1      BIT      P2.0
              K2      BIT      P2.1
              K3      BIT      P2.2
              RS      BIT      P1.0
              RW      BIT      P1.1
              E       BIT      P1.2
              FLAG    BIT      00H
              DAT     BIT      P3.7
              ORG    0000H
              AJMP   READRECORD
             MOV    4AH,#62H
READRECORD:  JNB    K2,$
             ;LCALL  CLS;     清屏
        RE:  MOV    R1,4AH;4A为温度储存单元指针            
             MOV    R0,#51H;51H,50H为查看温度时的时间显示单元
             MOV    51H,35H;当前时间放到查看温度时的时间显示单元
             MOV    50H,34H
      RE2:   CJNE   R1,#62H, RE44
             CLR    C
      RE22:  DEC    R1;每按一次K1,温度指向下一单元
             MOV    3EH,@R1;把采集的一个温度显示出来
             DEC    R1;
             MOV    3FH,@R1
             ;LCALL  TRANNUM
             ;LCALL  DISPLAY3A
             ;LCALL  DISPLAY26
             ;LCALL  DISPLAY27
     RRR3:   JNB    K1,OUTR
             JB     K2,RRR1
             ;LCALL  DS20MS
             ;JNB    K2,RRR1
             LCALL  DEC1;时间减一
       RRR1: CLR    C
             MOV    A,R4
             CJNE   A,#00H,re2
             JMP    RE33     
             
      ;RRR2:  LCALL  DISPLAY3A
            ; LCALL  DISPLAY26
             ;LCALL  DISPLAY27
             ;JNB    K1,OUTR
             JMP  RE2
       RE33: ;JC  RE2
             CLR C
             MOV    51H,#02H
             MOV    50H,#03H
             JMP RE2
              
        RE44:JC     RE22
             CLR    C
             MOV    R1,#0F2H
             JMP    RE22

      OUTR:  LJMP   READRECORD
DEC1:        PUSH   ACC
             PUSH PSW
             MOV    A,@R0
              DEC    R0
              SWAP   A
              ORL    A,@R0
              ADD    A,#99H
              DA     A
              MOV    R4,A
              ANL    A,#0FH
              MOV    @R0,A
              MOV    A,R4
              INC    R0
              SWAP   A
              ANL    A,#0FH
              MOV    @R0,A
              POP    PSW
              POP    ACC
              RET
END