正式测试.asm

制作一个温度万年历

DISPLAY:       MOV 7DH,#02H
               MOV 7CH,#00H
               MOV R0,#46H
               MOV R1,#66H
               MOV R2,76H
               MOV R3,#76H
               MOV R5,#0FEH


PLAY1:         MOV    A,#0FFH
               MOV    P2,A

               MOV    A,@R0
               MOV    DPTR,#TAB1
               MOVC   A,@A+DPTR
               MOV    SBUF,A
               JNB    TI,$
               CLR    TI


               MOV    A,@R1
               MOV    DPTR,#TAB1
               MOVC   A,@A+DPTR
               MOV    SBUF,A
               JNB    TI,$
               CLR    TI

               MOV    A,R2
               MOV    DPTR,#TAB1
               MOVC   A,@A+DPTR
               MOV    SBUF,A
               JNB    TI,$
               CLR    TI

               INC    R0
               INC    R1
               INC    R3

               MOV    A,R0
               MOV    R7,A

               MOV    A,R3
               ;SETB   PSW.4
               MOV    R0,A
               MOV    A,@R0


               MOV    R2,A
               ;CLR    PSW.4
               MOV    A,R7
               MOV    R0,A






PLAY3:         MOV    A,R5
               MOV    P2,A
               LCALL  DL1MS

               MOV    A,R5
               JNB    ACC.7,PLAYOUT
               RL     A
               MOV    R5,A
               LJMP   PLAY1

PLAYOUT:       SETB   P2.7


DL1MS:        MOV         R6,#14H;R6,#07H
DL1:          MOV         R7,#19H
DL2:          DJNZ        R7,DL2
              DJNZ        R6,DL1
              RET



YS100:    MOV R6,#99
L100:     LCALL YS10
          NOP
          DJNZ R6,L100
          NOP
          NOP
          RET

YS10:     MOV R7,#250
  L1:     DJNZ R7,L1
          RET









TAB1:  ;DB       0C0H,0F9H,0A4H,0B0H
      ; DB       99H,92H,82H,0F8H,80H,90H,0FFH,0BFH
       DB 03H,9FH,25H,0DH,99H
       DB 49H,41H,1FH,01H,09H,0FFH
               RET