µç×ÓÍòÄêÀú

Õª  Òª£º

Ëæ×ſƼ¼µÄ¿ìËÙ·¢Õ¹£¬Ê±¼äµÄÁ÷ÊÅ,ÖÁ´Ó¹ÛÌ«Ñô¡¢°ÚÖÓµ½ÏÖÔÚµç×ÓÖÓ£¬ÈËÀ಻¶ÏÑо¿£¬²»¶Ï´´Ð¼Í¼¡£ÃÀ¹úDALLAS¹«Ë¾ÍƳöµÄ¾ßÓÐä¸Ï¸µçÁ÷³äµçÄܵĵ͹¦ºÄʵʱʱÖÓµç·DS130£²¡£Ëü¿ÉÒÔ¶ÔÄê¡¢Ô¡¢ÈÕ¡¢ÖÜÈÕ¡¢Ê±¡¢·Ö¡¢Ãë½øÐмÆʱ£¬»¹¾ßÓÐÈòÄê²¹³¥µÈ¶àÖÖ¹¦ÄÜ£¬¶øÇÒDS1302µÄʹÓÃÊÙÃü³¤£¬Îó²îС¡£¶ÔÓÚÊý×Öµç×ÓÍòÄêÀú²ÉÓÃÖ±¹ÛµÄÊý×ÖÏÔʾ£¬¿ÉÒÔͬʱÏÔʾÄê¡¢Ô¡¢ÈÕ¡¢ÖÜÈÕ¡¢Ê±¡¢·Ö¡¢ÃëºÍζȵÈÐÅÏ¢£¬»¹¾ßÓÐʱ¼äУ׼µÈ¹¦ÄÜ¡£¸Ãµç·²ÉÓÃAT89S52µ¥Æ¬»ú×÷ΪºËÐÄ£¬¹¦ºÄС£¬ÄÜÔÚ3VµÄµÍѹ¹¤×÷£¬µçѹ¿ÉÑ¡ÓÃ3~5Vµçѹ¹©µç¡£

×ÛÉÏËùÊö´ËÍòÄêÀú¾ßÓжÁÈ¡·½±ã¡¢ÏÔʾֱ¹Û¡¢¹¦ÄܶàÑù¡¢µç·¼ò½à¡¢³É±¾µÍÁ®µÈÖî¶àÓŵ㣬·ûºÏµç×ÓÒÇÆ÷ÒDZíµÄ·¢Õ¹Ç÷ÊÆ£¬¾ßÓйãÀ«µÄÊг¡Ç°¾°¡£

 

 

¹Ø¼ü´Ê£º

ʱÖÓµçÖÓ£»DS1302£»DS18B20£»¶¯Ì¬É¨Ã裻µ¥Æ¬»ú  

~~~~~~Ŀ¼~~~~~~

 

Ò»¡¢Éè¼ÆÒªÇóÓë·½°¸ÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.1 Éè¼ÆÒªÇó ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.2 ϵͳ»ù±¾·½°¸Ñ¡ÔñºÍÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.2.1µ¥Æ¬»úоƬµÄÑ¡Ôñ·½°¸ºÍÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.2.2 ÏÔʾģ¿éÑ¡Ôñ·½°¸ºÍÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.2.3 ʱÖÓоƬµÄÑ¡Ôñ·½°¸ºÍÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­4

1.2.4 ζȴ«¸ÐÆ÷µÄÑ¡Ôñ·½°¸ÓëÂÛÖ¤ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­5

¶þ.ϵͳµÄÓ²¼þÉè¼ÆÓëʵÏÖ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­5

2.1 µç·Éè¼Æ¿òͼ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­5

2.2 ϵͳӲ¼þ¸ÅÊö ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­5

2.3 Ö÷Òªµ¥Ôªµç·µÄÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­6

2.3.1µ¥Æ¬»úÖ÷¿ØÖÆÄ£¿éµÄÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­6

2.3.2ʱÖÓµç·ģ¿éµÄÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­6

2.3.3ζȲɼ¯Ä£¿éÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­7

2.3.4 µç·ԭÀí¼°ËµÃ÷ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­7

2.3.5ÏÔʾģ¿éµÄÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­8

Èý¡¢ÏµÍ³µÄÈí¼þÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­9

3.1³ÌÐòÁ÷³Ì¿òͼ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­9

3.2 ×Ó³ÌÐòµÄÉè¼Æ ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­9

3.2.1 DS18B20ζÈ×Ó³ÌÐò ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­9

3.2.2 ¶Á¡¢Ð´DS1302×Ó³ÌÐò ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­10

ËÄ. Ö¸±ê²â¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­11

4.1 ²âÊÔÒÇÆ÷¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­11

4.2Ó²¼þ²âÊÔ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­11

4.3Èí¼þ²âÊÔ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­11

4.£´²âÊÔ½á¹û·ÖÎöÓë½áÂÛ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­12

4.4.1 ²âÊÔ½á¹û·ÖÎö¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­12

4.4.2 ²âÊÔ½áÂÛ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­12

Îå¡¢×÷Æ·×ܽᡭ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­12

Áù¡¢ÖÂл´Ê¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­12

²Î¿¼ÎÄÏס­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­13

¸½Â¼Ò»£ºÏµÍ³µç·ͼ¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­14

¸½Â¼¶þ£ºÏµÍ³³ÌÐòÇåµ¥¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­15

¸½Â¼Èý£ºÏµÍ³Ê¹ÓÃ˵Ã÷Êé¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­¡­40

  CONFIG12 EQU 7FH
  TEMPH EQU 21H
  TEMPL EQU 20H
  REG2 EQU 22H
  REG3 EQU 23H
  REG4 EQU 24H
  DAT EQU P0.7
  SCLK  EQU P3.2
  IO   EQU P3.3
  RST  EQU P3.4
  year DATA 66H
  month DATA 65H
  week DATA 64H
  day  DATA 63H
  hour DATA 62H
  mintue DATA 61H
  second DATA 60H

  ORG 0000H
  LJMP  START
  ORG 001BH
  LJMP INTT1

START:             ;³õÖµ
  LCALL ZJ
  SETB EA
  MOV TMOD,#10H    ;¼ÆÊýÆ÷1£¬·½Ê½1
  MOV TL1,#00H
  MOV TH1,#00H
  MOV 32H,#8EH
  MOV 31H,#00H     ;ÔÊÐíд1302
  LCALL WRITE
  MOV 32H,#90H
  MOV 31H,#0A6H   ;1302³äµç£¬³äµçµçÁ÷1.1MA
  LCALL WRITE
  ;Ö÷³ÌÐò~~~~~~~~~~~~~~~~~~~~~
MAIN1:
  MOV 32H,#8DH    ;¶Á³öÄê
  LCALL  READ
  MOV year,31H

  MOV 32H,#8BH   ;¶Á³öÐÇÆÚ
  LCALL READ
  MOV week,31H

  MOV 32H,#89H   ;¶Á³öÔÂ
  LCALL READ
  MOV month,31H

  MOV 32H,#87H  ;¶Á³öÈÕ
  LCALL READ
  MOV day,31H

  MOV 32H,#85H  ;¶Á³öСʱ
  LCALL READ
  MOV hour,31H

  MOV 32H,#83H  ;¶Á³ö·ÖÖÓ
  LCALL READ
  MOV mintue,31H

  MOV 32H,#81H  ;¶Á³öÃë
  LCALL READ
  MOV second,31H
  ;~~~~~~~~~~~~·ÖÀ뻺´æ~~~~~~~~
  MOV R0,year    ;Äê·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL DIVIDE
  MOV 7BH,R1
  MOV 4BH,R1
  MOV 7CH,R2
  MOV 4CH,R2
  MOV 78H,week
  MOV 48H,week
  MOV R0,month  ;Ô·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL DIVIDE
  MOV 79H,R1
  MOV 49H,R1
  MOV 7AH,R2
  MOV 4AH,R2
  MOV R0,day   ;ÈÕ·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL DIVIDE
  MOV 76H,R1
  MOV 46H,R1
  MOV 77H,R2
  MOV 47H,R2
  MOV R0,hour ;Сʱ·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL DIVIDE
  MOV 74H,R1
  MOV 44H,R1
  MOV 75H,R2
  MOV 45H,R2
  MOV R0,mintue ;·ÖÖÓ·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL DIVIDE
  MOV 72H,R1
  MOV 42H,R1
  MOV 73H,R2
  MOV 43H,R2
  MOV R0,second  ;Ãë·ÖÀ룬ËÍÏÔʾ»º´æ
  LCALL  DIVIDE
  MOV 70H,R1
  MOV 40H,R1
  MOV 71H,R2
  MOV 41H,R2
  CLR EA
  LCALL TOUTOU
  LCALL NS
  SETB EA
  LCALL DISPLAY
  LCALL GENGXIAN    ;¸üÐÂÅ©Àú³ÌÐò
  JNB P0.1,SETG111
  JNB F0,SSS
  SETB P0.4         ;·ÇÈòÔ£¬Ôòp0.4ÇåÁã,ָʾµÆÁÁ
  LJMP MAIN1
SETG111:
  LJMP SETG
SSS:
  CLR P0.4          ;ÈòÔ£¬Ôòp0.4ÖÃλ£¬Ö¸Ê¾µÆ²»ÁÁ
  LJMP MAIN1

;~~~~~~~~~~~~~~~~~~~~~~~~~  ζÈ

TOUTOU:
  LCALL CHUSHI
  LCALL RDTEMP
  MOV A,TEMPL
  ANL A,#11110000B
  MOV TEMPL,A
  MOV A,TEMPH
  ANL A,#00000111B
  ORL A,TEMPL
  SWAP A
  MOV 25H,A
  MOV A,25H
  MOV B,#64H
  DIV AB
  MOV A,B
  MOV B,#0AH
  DIV AB
  SWAP A
  ORL A,B
  MOV 10H,A
  RET
CHUSHI:
  LCALL RESET
  MOV A,#0CCH
  LCALL WRITE111
  MOV A,#4EH
  LCALL WRITE111
  MOV A,#CONFIG12
  LCALL WRITE111
  RET
RDTEMP:
  LCALL RESET
  MOV A,#0CCH
  LCALL WRITE111
  MOV A,#44H
  LCALL WRITE111
  LCALL DL1MS
  LCALL RESET
  MOV A,#0CCH
  LCALL WRITE111
  MOV A,#0BEH
  LCALL WRITE111
  LCALL ERAD111
  MOV TEMPL,A
  LCALL ERAD111
  MOV TEMPH,A
  RET
RESET:
LA:
  SETB DAT
  MOV 52H,#200
LB:
  CLR DAT
  DJNZ 52H,LB
  SETB DAT
  MOV 52H,#30
LC:
  DJNZ 52H,LC
  CLR C
  ORL C,DAT
  JC LB
  MOV 58H,#80
LD:
  ORL C,DAT
  JC LP
  DJNZ 58H,LD
  SJMP LA
LP:
  MOV 52H,#250
LF:
  DJNZ 52H,LF
  RET
WRITE111:
  MOV 53H,#8
W51HA:
  SETB DAT
  MOV 54H,#8
  RRC A
  CLR DAT
W52HA:
  DJNZ 54H,W52HA
  MOV DAT,C
  MOV 54H,#30
W53HA:
  DJNZ 54H,W53HA
  DJNZ 53H,W51HA
  SETB DAT
  RET
ERAD111:
  CLR EA
  MOV 58H,#8
RD1A:
  CLR DAT
  MOV 54H,#6
  NOP
  SETB DAT
RD2A:
  DJNZ 54H,RD2A
  MOV C,DAT
  RRC A
  MOV 55H,#30
RD3A:
  DJNZ 55H,RD3A
  DJNZ 58H,RD1A
  SETB DAT
  RET

;¹«ÀúÉèÖóÌÐò~~~~~~

SETG :
  SETB TR1
  SETB ET1
  MOV 32H,#8EH
  MOV 31H,#00H      ;ÔÊÐíд1302
  LCALL WRITE
  MOV 32H,#80H
  MOV 31H,#80H      ;1302Í£Ö¹Õñµ´
  LCALL WRITE
GWAIT:           ;~
  LCALL DISPLAY
  JNB P0.1,GWAIT
SETG1:
  LCALL DISPLAY
  JNB P0.1,SETG2
  JNB P0.2,GADDYEAR
  JNB P0.3,JIANYEAR
  AJMP SETG1
GADDYEAR:
  MOV R7,66H      ;Äê¼ÓÒ»
  LCALL ADD1
  MOV 66H,A
  CJNE A,#51H,GADDYEAR1
  MOV 66H,#00H
  AJMP GADDYEAR1
JIANYEAR:
  MOV R7,66H      ;Äê¼õÒ»
  LCALL JIAN1
  MOV 66H,A
  CJNE A,#00H,GADDYEAR1
  MOV 66H,#51H
GADDYEAR1:
  MOV 32H,#8CH    ;ÄêÖµËÍÈË1302
  MOV 31H,66H
  LCALL WRITE
  MOV R0,66H
  LCALL DIVIDE    ;Äê·ÖÀëËÍÏÔʾ»º´æ
  MOV 4BH,R1
  MOV 7BH,R1
  MOV 4CH,R2
  MOV 7CH,R2
WAITT1:          ;~~~~~~~
  LCALL DISPLAY
  JNB P0.2,WAITT1
  JNB P0.3,WAITT1
  AJMP SETG1
SETG2:
  SETB 0AH         ;µ÷ÔÂʱÉÁ±êÖ¾
GWAIT2:
  LCALL DISPLAY
  JNB P0.1,GWAIT2
SETG3:
  LCALL DISPLAY
  JNB P0.1,SETG4
  JNB P0.2,GADDMONTH
  JNB P0.3,JIANMONTH
  AJMP SETG3
GADDMONTH:
  MOV R7,65H     ;Ô¼ÓÒ»
  LCALL ADD1
  MOV 65H,A
  CJNE A,#13H,GADDMONTH1
  MOV 65H,#01H
  AJMP GADDMONTH1
JIANMONTH:
  MOV R7,65H     ;Ô¼õÒ»
  LCALL JIAN1
  MOV 65H,A
  CJNE A,#00H,GADDMONTH1
  MOV 65H,#12H
GADDMONTH1:
  MOV 32H,#88H  ;ÔÂÖµËÍÈË1302
  MOV 31H,65H
  LCALL WRITE
  MOV R0,65H
  LCALL DIVIDE  ;Ô·ÖÀ룬ËÍÏÔʾ»º´æ
  MOV 79H,R1
  MOV 49H,R1
  MOV 7AH,R2
  MOV 4AH,R2
WAITT2:            ;~
  LCALL DISPLAY
  JNB P0.2,WAITT2
  JNB P0.3,WAITT2
  AJMP SETG3
SETG4:
  SETB 0BH    ;µ÷ÈÕʱÉÁ±êÖ¾
GWAIT4:
  LCALL DISPLAY
  JNB P0.1,GWAIT4
SETG5:
  LCALL DISPLAY
  JNB P0.1,SETG6
  JNB P0.2,GADDDAY
  JNB P0.3,JIANDAY
  AJMP SETG5
GADDDAY:
  MOV R7,63H     ;ÈÕ¼ÓÒ»
  LCALL ADD1
  MOV 63H,A
  CJNE A,#32H,GADDDAY1
  MOV  63H,#01H
JIANDAY:
  MOV R7,63H     ;ÈÕ¼õÒ»
  LCALL JIAN1
  MOV 63H,A
  CJNE A,#00H,GADDDAY1
  MOV  63H,#31H
GADDDAY1:
  MOV 32H,#86H ;ÈÕÖµËÍÈË1302
  MOV 31H,63H
  LCALL WRITE
  MOV R0,63H
  LCALL DIVIDE  ;ÈÕ·ÖÀ룬ËÍÏÔʾ»º´æ
  MOV 76H,R1
  MOV 46H,R1
  MOV 77H,R2
  MOV 47H,R2
WAITT3:              ;~~~
  LCALL DISPLAY
  JNB P0.2,WAITT3
  JNB P0.3,WAITT3
  AJMP SETG5
SETG6:
  SETB 0CH    ;µ÷ÐÇÆÚʱÉÁ±êÖ¾
GWAIT6:
  LCALL DISPLAY
  JNB P0.1,GWAIT6
SETG7:
  LCALL DISPLAY
  JNB P0.1,SETG8
  JNB P0.2,GADDWEEK
  JNB P0.3,JIANWEEK
  AJMP SETG7
GADDWEEK:
  MOV R7,64H       ;ÐÇÆÚ¼ÓÒ»
  LCALL ADD1
  MOV 64H,A
  CJNE A,#07H,GADDWEEK1
  MOV  64H,#00H
  AJMP GADDWEEK1
JIANWEEK:
  MOV R7,64H       ;ÐÇÆÚ¼õÒ»
  LCALL JIAN1
  MOV 64H,A
  CJNE A,#00H,GADDWEEK1
  MOV  64H,#06H
GADDWEEK1:
  MOV 32H,#8AH
  MOV 31H,64H     ;ÐÇÆÚÖµËÍÈË1302
  LCALL WRITE
  MOV R0,64H
  LCALL DIVIDE     ;ÐÇÆÚÖµ·ÖÀëËÍÏÔʾ»º´æ
  MOV 48H,R1
  MOV 78H,R1
WAITT4:                ;~~~~
  LCALL DISPLAY
  JNB P0.2,WAITT4
  JNB P0.3,WAITT4
  AJMP SETG7
SETG8:
  SETB 0DH       ;µ÷СʱʱÉÁ±êÖ¾
GWAIT8:
  LCALL DISPLAY
  JNB P0.1,GWAIT8
SETG9:
  LCALL DISPLAY
  JNB P0.1,SETG10
  JNB P0.2,GADDHOUR
  JNB P0.3,JIANHOUR
  AJMP SETG9
GADDHOUR:
  MOV R7,62H        ;Сʱ¼ÓÒ»
  LCALL ADD1
  MOV 62H,A
  CJNE A,#24H,GADDHOUR1
  MOV 62H,#00H
  AJMP GADDHOUR1
JIANHOUR:
  MOV R7,62H        ;Сʱ¼õÒ»
  LCALL JIAN1
  MOV 62H,A
  CJNE A,#00H,GADDHOUR1
  MOV 62H,#23H
GADDHOUR1:
  MOV 32H,#84H     ;СʱֵËÍÈË1302
  MOV 31H,62H
  LCALL WRITE
  MOV R0,62H
  LCALL DIVIDE      ;Сʱֵ·ÖÀëËÍÏÔʾ»º´æ
  MOV 74H,R1
  MOV 44H,R1
  MOV 75H,R2
  MOV 45H,R2
WAITT5:              ;~~~~~
  LCALL DISPLAY
  JNB P0.2,WAITT5
  JNB P0.3,WAITT5
  AJMP SETG9
SETG10:
  SETB 0EH        ;µ÷·ÖʱºòÉÁ±êÖ¾
GWAIT10:
  LCALL DISPLAY
  JNB P0.1,GWAIT10
SETG11:
  LCALL DISPLAY
  JNB P0.1,SETGOUT
  JNB P0.2,GADDMINTUE
  JNB P0.3,JIANMINTUE
  AJMP SETG11
GADDMINTUE:
  MOV R7,61H      ;·ÖÖÓ¼ÓÒ»
  LCALL ADD1
  MOV 61H,A
  CJNE A,#60H,GADDMINTUE1
  MOV 61H,#00H
  AJMP GADDMINTUE1
JIANMINTUE:
  MOV R7,61H      ;·ÖÖÓ¼õÒ»
  LCALL JIAN1
  MOV 61H,A
  CJNE A,#00H,GADDMINTUE1
  MOV 61H,#59H
GADDMINTUE1:
  MOV 32H,#82H    ;·ÖÖÓÖµËÍÈË1302
  MOV 31H,61H
  LCALL WRITE
  MOV R0,61H
  LCALL DIVIDE    ;·ÖÖÓÖµ·ÖÀëËÍÏÔʾ»º´æ
  MOV 72H,R1
  MOV 42H,R1
  MOV 73H,R2
  MOV 43H,R2
WAITT6:
  LCALL DISPLAY
  JNB P0.2,WAITT6
  JNB P0.3,WAITT6
  AJMP SETG11
SETGOUT:
  LCALL DISPLAY
  JNB P0.1,SETGOUT
  LCALL GENGXIAN
  MOV 32H,#80H
  MOV 31H,#00H     ;1302¾§Õñ¿ªÊ¼Õñµ´
  LCALL  WRITE
  MOV 32H,#8EH
  MOV 31H,#80H     ;½ûֹдÈë1302
  LCALL  WRITE
  CLR 08H
  CLR 09H
  CLR 0AH
  CLR 0BH
  CLR 0CH
  CLR 0DH
  CLR 0EH
  CLR 0FH
  CLR ET1                 ;¹ØÉÁÖжÏ
  CLR TR1
  LJMP MAIN1

;;ÉÁ¶¯µ÷ʱ³ÌÐò~~~~~~~~~~~~~~~~~~~~~~~~~~~
INTT1:
  PUSH ACC
  PUSH PSW
GFLASH:
  CPL 0FH
  JB 0FH,GFLASH1
  MOV 7CH,4CH  ;È«²¿ÏÔʾ
  MOV 7BH,4BH
  MOV 7AH,4AH
  MOV 79H,49H
  MOV 78H,48H
  MOV 77H,47H
  MOV 76H,46H
  MOV 75H,45H
  MOV 74H,44H
  MOV 73H,43H
  MOV 72H,42H
  MOV 71H,41H
  MOV 70H,40H
GFLASHOUT:
  POP PSW
  POP ACC
  RETI
GFLASH1:
  JB 0AH,GFLASH2 ;µ÷ÄêÉÁ
  MOV 7CH,#0FH
  MOV 7BH,#0FH
  AJMP GFLASHOUT
GFLASH2:
  JB 0BH,GFLASH3 ;µ÷ÔÂÉÁ
  MOV 7AH,#0FH
  MOV 79H,#0FH
  AJMP GFLASHOUT
GFLASH3:
  JB 0CH,GFLASH4 ;µ÷ÈÕÉÁ
  MOV 77H,#0FH
  MOV 76H,#0FH
  AJMP GFLASHOUT
GFLASH4:
  JB 0DH,GFLASH5 ;µ÷ÐÇÆÚÉÁ
  MOV 78H,#0FH
  AJMP GFLASHOUT
GFLASH5:
  JB 0EH,GFLASH6 ;µ÷СʱÉÁ
  MOV 75H,#0FH
  MOV 74H,#0FH
  AJMP GFLASHOUT
GFLASH6:
  MOV 73H,#0FH  ;µ÷·ÖÖÓÉÁ
  MOV 72H,#0FH
  AJMP GFLASHOUT

;¼ÓÒ»³ÌÐò~~~~~~~~~~~~~~~~~~~~~~~~~

ADD1:
  MOV A,R7
  ADD A,#1
  DA A
  RET
;¼õÒ»³ÌÐò~~~~~~~~~~~~~~~~~~~~~~~~~
JIAN1:
  MOV A,R7
  DEC A
  CJNE A,#4FH,KK1
  MOV A,#49H
KK1:
  CJNE A,#3FH,KK2
  MOV A,#39H
KK2:
  CJNE A,#2FH,KK3
  MOV A,#29H
KK3:
  CJNE A,#1FH,KK4
  MOV A,#19H
KK4:
  CJNE A,#0FH,KK5
  MOV A,#09H
KK5:
  RET

;·ÖÀë³ÌÐò~~~~~~~~~~~~~~~~~~~~~~~~~

DIVIDE:
  MOV A,R0
  ANL A,#0FH
  MOV R1,A
  MOV A,R0
  SWAP A
  ANL A,#0FH
  MOV R2,A
  RET

;д1302³ÌÐò~~~~~~~

WRITE:
  CLR SCLK
  NOP
  SETB RST
  NOP
  MOV A,32H
  MOV R4,#8
WRITE1:
  RRC A     ;Ë͵ØÖ·¸ø1302
  NOP
  NOP
  CLR SCLK
  NOP
  NOP
  NOP
  MOV IO,C
  NOP
  NOP
  NOP
  SETB SCLK
  NOP
  NOP
  DJNZ R4,WRITE1
  CLR SCLK
  NOP
  MOV A,31H
  MOV R4,#8
WRITE2:
  RRC A
  NOP     ;ËÍÊý¾Ý¸ø1302
  CLR SCLK
  NOP
  NOP
  MOV IO,C
  NOP
  NOP
  NOP
  SETB SCLK
  NOP
  NOP
  DJNZ R4,WRITE2
  CLR RST
  RET

;¶Á1302³ÌÐò~~~~~~~~~~~~~~~~~~~~~~~~~

READ:
  CLR SCLK
  NOP
  NOP
  SETB RST
  NOP
  MOV A,32H
  MOV R4,#8
READ1:
  RRC A    ;Ë͵ØÖ·¸ø1302
  NOP
  MOV IO,C
  NOP
  NOP
  NOP
  SETB SCLK
  NOP
  NOP
  NOP
  CLR SCLK
  NOP
  NOP
  DJNZ R4,READ1
  MOV R4,#8
READ2:
  CLR SCLK
  NOP    ;´Ó1302ÖжÁ³öÊý¾Ý
  NOP
  NOP
  MOV C,IO
  NOP
  NOP
  NOP
  NOP
  NOP
  RRC A
  NOP
  NOP
  NOP
  NOP
  SETB SCLK
  NOP
  DJNZ R4,READ2
  MOV 31H,A
  CLR RST
  RET
;BCDÂëת»»Îª10½øÖƳÌÐò~~~~~

BCD_10:
  MOV A,R0
  ANL A,#0FH
  MOV R1,A  ;¸ßλ¡Á10£¬ ¼ÓµÍλ
  MOV A,R0
  SWAP A
  ANL A,#0FH
  MOV B,#10
  MUL AB
  ADD A,R1
  MOV R0,A
  RET

;²éÒ»ÄêÊý¾Ý³ÌÐò~~~~~~~~~~~~~~~~

CHECKMONTH:
  LCALL BCD_10
  MOV A,R0
  MOV B,#04
  MUL AB
  MOV R1,A
  MOV DPTR,#TAB
  MOVC A,@A+DPTR
  MOV R7,A   ;µÚÒ»×Ö½ÚËÍR7
  INC R1
  MOV A,R1
  MOVC A,@A+DPTR
  MOV R6,A  ;µÚ¶þ×Ö½ÚËÍR6
  INC R1
  MOV A,R1
  MOVC A,@A+DPTR
  MOV R5,A   ;µÚÈý×Ö½ÚËÍR6
  INC R1
  MOV A,R1
  MOVC A,@A+DPTR
  MOV R4,A  ;µÚËÄ×Ö½ÚËÍR4
  RET

 

;;;;;×Ô¶¯¸üÐÂÅ©Àú;;;
                        ;;;;;;;;;;;;;;;;;;;;
              GENGXIAN:    MOV R2,#00H
                    MOV R3,#00H
                           MOV A,month
                           CJNE A,#01H,GM2
                           MOV R0,day   ;µ±Ç°ÔÂΪһÔÂ
                           LCALL BCD_10 ;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬ËÍR2
                           MOV A,R0
                           MOV R2,A
                           AJMP TIAOZHENG1
                   GM2:  CJNE A,#02H,GM3
                           MOV R0,day    ;µ±Ç°ÔÂΪ¶þÔÂ
                           LCALL BCD_10 ;;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬
                           MOV A,R0      ;ÔÙ¼Ó31£¬ËÍR2
                           ADD A,#31
                           MOV R2,A
                           AJMP TIAOZHENG1
                    GM3: CJNE A,#03H,GM4
                           MOV R0,day    ;µ±Ç°ÔÂΪÈýÔÂ
                           LCALL BCD_10  ;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬
                           MOV A,R0      ;ÔÙ¼Ó59£¬ËÍR2
                           ADD A,#59
                           MOV R2,A
                           AJMP TIAOZHENG1
                   GM4:  CJNE A,#04H,GM5
                           MOV R0,day     ;µ±Ç°ÔÂΪËÄÔÂ
                           LCALL BCD_10   ;;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0       ;ÔÙ¼Ó90£¬ËÍR2
                           ADD A,#90
                           MOV R2,A
                           AJMP TIAOZHENG1
                    GM5: CJNE A,#05H,GM6
                           MOV R0,day     ;µ±Ç°ÔÂΪÎåÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬
                           MOV A,R0       ;ÔÙ¼Ó120£¬ËÍR2
                           ADD A,#120
                           MOV R2,A
                           AJMP TIAOZHENG1
                    GM6: CJNE A,#06H,GM7
                           MOV R0,day     ;µ±Ç°ÔÂΪÁùÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬
                           MOV A,R0       ;ÔÙ¼Ó151£¬ËÍR2
                           ADD A,#151
                           MOV R2,A
                           AJMP TIAOZHENG1
                    GM7: CJNE A,#07H,GM8
                           MOV R0,day     ;µ±Ç°ÔÂλÆßÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ£¬
                           MOV A,R0       ;ÔÙ¼Ó181£¬ËÍR2
                           ADD A,#181
                           MOV R2,A
                           AJMP TIAOZHENG1
                     GM8:CJNE A,#08H,GM9
                           MOV R0,day     ;µ±Ç°ÔÂΪ°ËÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0       ;ÔÙ¼Ó212£¬ËÍR2
                           ADD A,#212
                           MOV R2,A
                           AJMP TIAOZHENG1
                     GM9:CJNE A,#09H,GM10
                           MOV R0,day    ;µ±Ç°ÔÂΪ¾ÅÔÂ
                           LCALL BCD_10  ;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0      ;ÔÙ¼Ó243
                           CLR C
                           ADD A,#243
                           JC GGG
                           MOV R2,A       ;AûÓÐÒç³ö£¬ËÍR2
                           AJMP TIAOZHENG1
                   GGG:  MOV R3,#0FFH   ;AÒç³ö£¬A¼ÓÒ»ËÍR2
                           INC A          ;R3ÖÐËÍ#0ffh
                           MOV R2,A
                           AJMP TIAOZHENG1
                   GM10: CJNE A,#10H,GM11
                           MOV R0,day    ;µ±Ç°ÔÂΪ10ÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0       ;ÔÙ¼Ó18£¬ËÍR2
                           ADD A,#18      ;R3ÖÐËÍ££0FFH
                           MOV R2,A
                           MOV R3,#0FFH
                           AJMP TIAOZHENG1
                    GM11:CJNE A,#11H,GM12
                           MOV R0,day    ;µ±Ç°ÔÂΪ11ÔÂ
                           LCALL BCD_10  ;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0      ;ÔÙ¼Ó49£¬ËÍR2
                           ADD A,#49     ;R3ÖÐËÍ££0FFH
                           MOV R2,A
                           MOV R3,#0FFH
                           AJMP TIAOZHENG1
                   GM12: MOV R0,day     ;µ±Ç°ÔÂΪ12ÔÂ
                           LCALL BCD_10   ;µ±Ç°ÈÕת»»Îª10½øÖÆ,
                           MOV A,R0       ;ÔÙ¼Ó79£¬ËÍR2
                           ADD A,#79      ;R3ÖÐËÍ££0FFH
                           MOV R2,A
                           MOV R3,#0FFH
                           AJMP TIAOZHENG1
            TIAOZHENG1: MOV A,year
                           MOV B,#04
                           DIV AB
                           MOV A,B
                           JNZ GGG1
                           MOV A,65H   ;µ±Ç°ÄêΪÈòÄê
                           CJNE A,#01H,AAAA
                           AJMP GGG1        ;µ±Ç°ÔÂÊÇ1
                AAAA:   CJNE A,#02H,BBBB
                           AJMP GGG1       ;µ±Ç°ÔÂÊÇ2
                BBBB:   CJNE  R2,#0FFH,GGG2
                           MOV R3,#0FFH   ;µ±Ç°Ô²»ÊÇ1ºÍ2£¬
                           MOV R2,#01H    ;R1ºÍR2×ܺͼÓÒ»
                           AJMP GGG1
                GGG2:   INC R2
                GGG1:   MOV R0,year    ;²éÒ»ÄêÊý¾Ý
                           LCALL CHECKMONTH
                           MOV A,R2
                           CLR C
                           SUBB A,R7
                           MOV P2.7,C
                           CJNE A,#01H,GGG3
                           MOV R2,#01H
                           MOV A,R3
                           CJNE A,#00H,NEW1
                           MOV  57H,#01H   ;R2ºÍR3×ܺͼõR7
                           MOV  56H,#01H   ;Ϊ0£¬ÔòΪ´º½Ú
                           LJMP S_PLAY
                  GGG3:  CJNE A,#00H,GGG6
                           MOV R2,A
                           AJMP OLD
                  GGG6: JNB P2.7,NEW2
                           MOV A,R7
                           CLR C
                           SUBB A,R2
                           MOV R7,A
                           CJNE R3,#0FFH,GGG5
                           MOV A,R3
                           CLR C
                           SUBB A,R7
                           MOV R2,A
                           MOV R3,#00H
                           AJMP NEW
                  GGG5:  MOV A,R7
                           MOV R2,A
                           AJMP OLD
                   NEW1: MOV R2,#0FFH
                           MOV R3,#01H
                           AJMP NEW
                   NEW2: MOV R2,A
                           MOV A,R3
                           CJNE A,#0FFH,GGG4
                           MOV A,R2
                           MOV R3,A
                           MOV R2,#0FFH
                   GGG4: AJMP NEW

  ;OLD Å©ÀúΪ¹«ÀúµÄÇ°Ò»Äê

                 OLD:    MOV A,year
                           DEC A
                           MOV R0,A
                           LCALL CHECKMONTH
                           MOV A,R2
                           CLR C
                           SUBB A,#29
                           MOV P2.7,C
                           MOV R6,A
                           MOV A,R5
                           JB ACC.0,AAA ;12ÔÂΪСÔ£¬×ªµ½AAA
                           MOV A,R2
                           CLR C
                           SUBB A,#30
                           MOV P2.7,C
                           MOV R6,A
                     AAA:MOV A,R6
                           CJNE A,#00H,BBB
                           MOV 56H,#29H ;Ϊ0£¬ÔòΪ11ÔÂ×îºóÒ»Ìì
                           MOV A,R5    ;СÔÂΪ11ÔÂ29
                           JB ACC.1,CCC
                           MOV 56H,#30H  ;´óÔÂΪ11ÔÂ30
                     CCC:MOV 57H,#11H
                           LJMP S_PLAY
                     BBB:JNB P2.7, DDD
                           MOV A,#29  ; CYλÖÃλ£¬Î»12ÔÂ
                           CLR C
                           SUBB A,R2
                           MOV R4,A
                           MOV A,R5
                           JB ACC.0,EEE
                           MOV A,#30
                           CLR C
                           SUBB A,R2
                           MOV R4,A
                    EEE: MOV A,R4
                           MOV R0,A
                           LCALL D_BCD
                           MOV 56H,A
                           MOV 57H,#12H
                           LJMP S_PLAY
                    DDD: MOV A,#29 ;CYΪ0£¬Îª11ÔÂ
                           CLR C
                           SUBB A,R4
                           MOV R1,A
                           MOV A,R5
                           JB ACC.1, FFF
                           MOV A,#30
                           CLR C
                           SUBB A,R4
                           MOV R1,A
                   FFF:   MOV A,R1
                           MOV R0,A
                           LCALL D_BCD
                           MOV 56H,A
                           MOV 57H,#11H
                           LJMP S_PLAY
 ;NEW´ËʱR2ÖеÄֵΪFFHʱ£~
 ; R3ÓÐÖµ£¬·ñÔòΪ0
NEW:
  NOP
M1:
  MOV A,R2   ;R2¼õÒ»ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.6,SM11
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
SM11:
  JC SM12
  MOV A,R1  ;R2¼õ1ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A  ;ת¶þÔÂ
  AJMP M2
SM12:
  CJNE R3,#00H,M13 ;R2¼õ1ÔÂÌìÊý
  LJMP Y1           ;²»¹»¼õ£¬ÅÐR3Ϊ0·ñ
M13:
  MOV A,R2          ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3          ;ÔÙÈÃÒ»Ô¼õ
  MOV R2,A          ;»¹²»¹»£¬ÔòתY1
  MOV R3,#00H
  AJMP M1
M2:
  CLR C    ;R2¼õÒ»ÔÂÌìÊý£¬¹»¼õ
  MOV A,R2 ;תÈýÔÂ
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.5,M21
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M21:
  JC M22
  MOV A,R1  ;R2¼õ2ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  AJMP MM2
M22:
  CJNE R3,#00H,M23  ;R2¼õ2ÔÂÌìÊý
  LJMP Y2         ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M23:
  MOV A,R2        ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3        ;ÔÙÈöþÔ¼õ
  MOV R2,A        ;»¹²»¹»£¬ÔòתY2
  MOV R3,#00H
  AJMP M2
MM2:
  LCALL CHECKRE   ;²é2Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#02H,M3  ;ת3ÔÂ
RM2:
  MOV A,R4
  ANL A,#0FH
  JNZ RM21
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  AJMP RM22
RM21:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM22:
  JC RM23
  MOV A,R1  ;R2¼õÈò2ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A   ;ת3ÔÂ
  AJMP M3
RM23:
  CJNE R3,#00H,RM24 ;R2¼õÈò2ÔÂÌìÊý
  LJMP RY2          ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM24:
  MOV A,R2          ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3          ;ÔÙÈÃÈò2Ô¼õ
  MOV R3,#00H       ;»¹²»¹»£¬ÔòתRY2
  AJMP RM2
M3:
  MOV A,R2       ;R2¼õ3ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.4,M31
  CLR C
  MOV A,R2
  SUBB A,#30
  MOV R1,A
M31:
  JC M32
  MOV A,R1    ;R2¼õ3ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  AJMP MM3
M32:
  CJNE R3,#00H,M33  ;R2¼õ3ÔÂÌìÊý
  LJMP Y3           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M33:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃ3Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתY3
  MOV R3,#00H
  AJMP M3
MM3:
  LCALL CHECKRE    ;²é3Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#03H,M4   ;ת4ÔÂ
RM3:
  MOV A,R4
  ANL A,#0FH     ;R2¼õÈò3ÔÂÌìÊý
  JNZ RM31
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  AJMP RM32
RM31:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM32:
  JC RM33
  MOV A,R1  ;R2¼õÈò3ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A  ;ת4ÔÂ
  AJMP M4
RM33:
  CJNE R3,#00H,RM34 ;R2¼õÈò3ÔÂÌìÊý
  LJMP RY3          ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM34:
  MOV A,R2          ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃÈò3Ô¼õ
  MOV R2,A           ;»¹²»¹»£¬ÔòתRY3
  MOV R3,#00H
  AJMP RM3
M4:
  MOV A,R2
  CLR C           ;R2¼õ4ÔÂÌìÊý
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.2,M41
  CLR C
  MOV A,R2
  SUBB A,#30
  MOV R1,A
M41:
  JC M42
  MOV A,R1   ;R2¼õ4ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  AJMP MM4
M42:
  CJNE R3,#00H,M43  ;R2¼õ4ÔÂÌìÊý
  LJMP Y4           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M43:
  MOV A,R2          ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃ4Ô¼õ
  MOV R2,A           ;»¹²»¹»£¬ÔòתY4
  MOV R3,#00H
  AJMP M4
MM4:
  LCALL CHECKRE ;²é4Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#04H,M5 ;ת5ÔÂ
RM4:
  MOV A,R4
  ANL A,#0FH    ;R2¼õÈò4ÔÂÌìÊý
  JNZ RM41
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  AJMP RM42
RM41:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM42:
  JC RM43
  MOV A,R1   ;R2¼õÈò4ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A   ;ת5ÔÂ
  AJMP M5
RM43:
  CJNE R3,#00H,RM44  ;R2¼õÈò4ÔÂÌìÊý
  LJMP RY4           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM44:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃÈò4Ô¼õ
  MOV R2,A
  MOV R3,#00H        ;»¹²»¹»£¬ÔòתY4
  AJMP RM4
M5:
  MOV A,R2        ;R2¼õ5ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.1,M51
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M51:
  JC M52
  MOV A,R1    ;R2¼õ5ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  AJMP MM5
M52:
  CJNE R3,#00H,M53   ;R2¼õ5ÔÂÌìÊý
  LJMP Y5           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M53:
  MOV A,R2          ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3          ;ÔÙÈÃ5Ô¼õ
  MOV R2,A          ;»¹²»¹»£¬ÔòתY5
  MOV R3,#00H
  LJMP M5
MM5:
  LCALL CHECKRE  ;²é5Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#05H,M6  ;ת6ÔÂ
RM5:
  MOV A,R4       ;R2¼õÈò5ÔÂÌìÊý
  ANL A,#0FH
  JNZ RM51
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  LJMP RM52
RM51:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM52:
  JC RM53
  MOV A,R1   ;R2¼õÈò5ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A   ;ת6ÔÂ
  LJMP M6
RM53:
  CJNE R3,#00H,RM54   ;R2¼õÈò5ÔÂÌìÊý
  LJMP RY5            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM54:
  MOV A,R2            ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃ5Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתRY5
  MOV R3,#00H
  LJMP RM5
M6:
  MOV A,R2        ;R2¼õ6ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R6
  JB ACC.0,M61
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M61:
  JC M62
  MOV A,R1  ;R2¼õ6ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  LJMP MM6
M62:
  CJNE R3,#00H,M63   ;R2¼õ6ÔÂÌìÊý
  LJMP Y6            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M63:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃ6Ô¼õ
  MOV R2,A           ;»¹²»¹»£¬ÔòתY6
  MOV R3,#00H
  LJMP M6
MM6:
  LCALL CHECKRE   ;²é6Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#06H,M7  ;ת7ÔÂ
RM6:
  MOV A,R4
  ANL A,#0FH       ;R2¼õÈò6ÔÂÌìÊý
  JNZ RM61
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  LJMP RM62
RM61:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM62:
  JC RM63
  MOV A,R1   ;R2¼õÈò6ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A    ;ת7ÔÂ
  LJMP M7
RM63:
  CJNE R3,#00H,RM64   ;R2¼õÈò6ÔÂÌìÊý
  LJMP RY6            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM64:
  MOV A,R2            ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃÈò6Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתRY6
  MOV R3,#00H
  LJMP RM6
M7:
  MOV A,R2      ;R2¼õ7ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.6,M71
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M71:
  JC M72
  MOV A,R1  ;R2¼õ7ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  LJMP MM7
M72:
  CJNE R3,#00H,M73   ;R2¼õ7ÔÂÌìÊý
  LJMP Y7            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M73:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃ6Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתY7
  MOV R3,#00H
  LJMP M7
MM7:
  LCALL CHECKRE ;²é7Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#07H,M8 ;ת8ÔÂ
RM7:
  MOV A,R4
  ANL A,#0FH     ;R2¼õÈò7ÔÂÌìÊý
  JNZ RM71
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  LJMP RM72
RM71:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM72:
  JC RM73
  MOV A,R1 ;R2¼õÈò7ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A ;ת8ÔÂ
  LJMP M8
RM73:
  CJNE R3,#00H,RM74  ;R2¼õÈò7ÔÂÌìÊý
  LJMP RY7           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM74:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃÈò7Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתRY7
  MOV R3,#00H
  LJMP RM7
M8:
  MOV A,R2         ;R2¼õ8ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.5,M81
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M81:
  JC M82
  MOV A,R1   ;R2¼õ8ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A   ;ת9ÔÂ
  LJMP M9
M82:
  CJNE R3,#00H,M83   ;R2¼õ8ÔÂÌìÊý
  LJMP Y8            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M83:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃ8Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתY8
  MOV R3,#00H
  LJMP M8
M9:
  MOV A,R2      ;R2¼õ9ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.4,M91
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M91:
  JC M92
  MOV A,R1   ;R2¼õ9ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A
  LJMP MM9
M92:
  CJNE R3,#00H,M93   ;R2¼õ9ÔÂÌìÊý
  LJMP Y9            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M93:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃ9Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתY9
  MOV R3,#00H
  LJMP M9
MM9:
  LCALL CHECKRE  ;²é9Ô£¬Èç¹û²»ÎªÈòÔÂ
  CJNE A,#09H,M10  ;ת10ÔÂ
RM9:
  MOV A,R4         ;R2¼õÈò9ÔÂÌìÊý
  ANL A,#0FH
  JNZ RM91
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
  LJMP RM92
RM91:
  MOV A,R2
  CLR C
  SUBB A,#29
  MOV R1,A
RM92:
  JC RM93
  MOV A,R1  ;R2¼õÈò9ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A  ;ת10ÔÂ
  LJMP M10
RM93:
  CJNE R3,#00H,RM94  ;R2¼õÈò9ÔÂÌìÊý
  LJMP RY9           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
RM94:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃÈò9Ô¼õ
  MOV R2,A           ;»¹²»¹»£¬ÔòתRY9
  MOV R3,#00H
  LJMP RM9
M10:
  MOV A,R2       ;R2¼õ10ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.2,M101
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M101:
  JC M102
  MOV A,R1  ;R2¼õ10ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A  ;ת11ÔÂ
  LJMP M11
M102:
  CJNE R3,#00H,M103     ;R2¼õ10ÔÂÌìÊý
  LJMP Y10              ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M103:
  MOV A,R2              ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3              ;ÔÙÈÃ10Ô¼õ
  MOV R2,A              ;»¹²»¹»£¬ÔòתY10
  MOV R3,#00H
  LJMP M10
M11:
  MOV A,R2          ;R2¼õ11ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.1,M111
  MOV A,R2
  CLR C
  SUBB A,#30
  MOV R1,A
M111:
  JC M112
  MOV A,R1  ;R2¼õ11ÔÂÌìÊý£¬¹»¼õ
  MOV R2,A  ;ת12ÔÂ
  LJMP M12
M112:
  CJNE R3,#00H,M113   ;R2¼õ11ÔÂÌìÊý
  LJMP Y11            ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M113:
  MOV A,R2            ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3            ;ÔÙÈÃ11Ô¼õ
  MOV R2,A            ;»¹²»¹»£¬ÔòתY11
  MOV R3,#00H
  LJMP M11
M12:
  MOV A,R2      ;R2¼õ12ÔÂÌìÊý
  CLR C
  SUBB A,#29
  MOV R1,A
  MOV A,R5
  JB ACC.0,M121
  CLR C
  MOV A,R2
  SUBB A,#30
  MOV R1,A
M121:
  CJNE R3,#00H,M122  ;R2¼õ12ÔÂÌìÊý
  LJMP Y12           ;²»¹»¼õ£¬ÅУ¬R3Ϊ0·ñ
M122:
  MOV A,R2           ;²»Îª0£¬R3¼Óµ½R2ÖÐ
  ADD A,R3           ;ÔÙÈÃ12Ô¼õ
  MOV R2,A           ;»¹²»¹»£¬ÔòתY12
  MOV R3,#00H
  LJMP M12
Y1:
  MOV A,R2
  MOV R0,A       ;R2ÖÐΪÈÕµÄÖµ
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#01H
  CLR F0    ;·ÇÈòÔÂ
  LJMP S_PLAY
Y2:
  CJNE R2,#00H,Y21
  MOV A,R6      ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV 56H,#29H  ;µÄµÄ×îºóÒ»Ìì
  JB ACC.6,Y22
  MOV 56H,#30H
Y22:
  MOV 57H,#01H
  CLR F0
  LJMP S_PLAY
Y21:
  MOV A,R2
  MOV R0,A     ;R2ÖÐΪÈÕµÄÖµ
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#02H
  CLR F0
  LJMP S_PLAY
RY2:
  CJNE R2,#00H,RY21
  MOV 56H,#29H  ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R6      ;µÄµÄ×îºóÒ»Ìì
  JB ACC.5,RY22
  MOV 56H,#30H
RY22:
  MOV 57H,#02H
  CLR F0
  LJMP S_PLAY
RY21:
  MOV A,R2     ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#02H
  SETB F0    ;ÈòÔÂ
  LJMP S_PLAY
Y3:
  CJNE R2,#00H,Y31
  LCALL CHECKRE     ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#02H,Y32
  MOV 56H,#29H      ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4
  ANL A,#0FH         ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  JNZ Y33            ;µÄµÄ×îºóÒ»Ìì
  MOV 56H,#30H
  MOV 57H,#02H
  SETB F0
  LJMP S_PLAY
Y33:
  MOV 57H,#02H
  SETB F0
  LJMP S_PLAY
Y32:
  MOV 56H,#29H  ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R6
  JB ACC.5,Y34
  MOV 56H,#30H
Y34:
  MOV 57H,#02H
  CLR F0
  LJMP S_PLAY
Y31:
  MOV A,R2
  MOV R0,A      ;R2ÖÐΪÈÕµÄÖµ
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#03H
  CLR F0
  LJMP S_PLAY
RY3:
  CJNE R2,#00H,RY31
  MOV 56H,#29H
  MOV A,R6
  JB ACC.4,RY32   ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV 56H,#30H    ;µÄµÄ×îºóÒ»Ìì
RY32:
  MOV 57H,#03H
  CLR F0
  LJMP S_PLAY
RY31:
  MOV A,R2       ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#03H
  SETB F0
  LJMP S_PLAY
Y4:
  CJNE R2,#00H,Y41
  LCALL CHECKRE    ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#03H,Y42
  MOV 56H,#29H     ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4         ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH       ;µÄ×îºóÒ»Ìì
  JNZ Y43
  MOV 56H,#30H
  MOV 57H,#03H
  SETB F0
  LJMP S_PLAY
Y43:
  MOV 57H,#03H
  SETB F0
  LJMP S_PLAY
Y42:
  MOV 56H,#29H  ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R6
  JB ACC.4,Y44
  MOV 56H,#30H
Y44:
  MOV 57H,#03H
  CLR F0
  LJMP S_PLAY
Y41:
  MOV A,R2       ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#04H
  CLR F0
  LJMP S_PLAY
RY4:
  CJNE R2,#00H,RY41
  MOV 56H,#29H    ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R6        ;µÄµÄ×îºóÒ»Ìì
  JB ACC.2,RY42
  MOV 56H,#30H
RY42:
  MOV 57H,#04H
  CLR F0
  LJMP S_PLAY
RY41:
  MOV A,R2       ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#04H
  SETB F0
  LJMP S_PLAY
Y5:
  CJNE R2,#00H,Y51
  LCALL CHECKRE    ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#04H,Y52
  MOV 56H,#29H       ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4           ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH         ;µÄ×îºóÒ»Ìì
  JNZ Y53
  MOV 56H,#30H
  MOV 57H,#04H
  SETB F0
  LJMP S_PLAY
Y53:
  MOV 57H,#04H
  SETB F0
  LJMP S_PLAY
Y52:
  MOV 56H,#29H   ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R6
  JB ACC.2,Y54
  MOV 56H,#30H
Y54:
  MOV 57H,#04H
  CLR F0
  LJMP S_PLAY
Y51:
  MOV A,R2       ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#05H
  CLR F0
  LJMP S_PLAY
RY5:
  CJNE R2,#00H,RY51
  MOV 56H,#29H    ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R6        ;µÄ×îºóÒ»Ìì
  JB ACC.1,RY52
  MOV 56H,#30H
RY52:
  MOV 57H,#05H
  CLR F0
  LJMP S_PLAY
RY51:
  MOV A,R2     ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#05H
  SETB F0
  LJMP S_PLAY
Y6:
  CJNE R2,#00H,Y61
  LCALL CHECKRE   ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#05H,Y62
  MOV 56H,#29H    ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4        ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH      ;µÄ×îºóÒ»Ìì
  JNZ Y63
  MOV 56H,#30H
  MOV 57H,#05H
  SETB F0
  LJMP S_PLAY
Y63:
  MOV 57H,#05H
  SETB F0
  LJMP S_PLAY
Y62:
  MOV 56H,#29H   ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R6
  JB ACC.1,Y64
  MOV 56H,#30H
Y64:
  MOV 57H,#05H
  CLR F0
  LJMP S_PLAY
Y61:
  MOV A,R2        ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#06H
  CLR F0
  LJMP S_PLAY
RY6:
  CJNE R2,#00H,RY61
  MOV 56H,#29H    ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R6        ;µÄ×îºóÒ»Ìì
  JB ACC.0,RY62
  MOV 56H,#30H
RY62:
  MOV 57H,#06H
  CLR F0
  LJMP S_PLAY
RY61:
  MOV A,R2     ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#06H
  SETB F0
  LJMP S_PLAY
Y7:
  CJNE R2,#00H,Y71
  LCALL CHECKRE    ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#06H,Y72
  MOV 56H,#29H     ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4         ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH       ;µÄ×îºóÒ»Ìì
  JNZ Y73
  MOV 56H,#30H
  MOV 57H,#06H
  SETB F0
  LJMP S_pLAY
Y73:
  MOV 57H,#06H
  SETB F0
  LJMP S_PLAY
Y72:
  MOV 56H,#29H   ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R6
  JB ACC.0,Y74
  MOV 56H,#30H
Y74:
  MOV 57H,#06H
  CLR F0
  LJMP S_PLAY
Y71:
  MOV A,R2        ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#07H
  CLR F0
  LJMP S_PLAY
RY7:
  CJNE R2,#00H,RY71
  MOV 56H,#29H    ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R5        ;µÄ×îºóÒ»Ìì
  JB ACC.6,RY72
  MOV 56H,#30H
RY72:
  MOV 57H,#07H
  CLR F0
  LJMP S_PLAY
RY71:
  MOV A,R2      ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#07H
  SETB F0
  LJMP S_PLAY
Y8:
  CJNE R2,#00H,Y81
  LCALL CHECKRE     ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#07H,Y82
  MOV 56H,#29H     ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4         ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH       ;µÄ×îºóÒ»Ìì
  JNZ Y83
  MOV 56H,#30H
  MOV 57H,#07H
  SETB F0
  LJMP S_PLAY
Y83:
  MOV 57H,#07H
  SETB F0
  LJMP S_PLAY
Y82:
  MOV 56H,#29H  ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R5
  JB ACC.6,Y84
  MOV 56H,#30H
Y84:
  MOV 57H,#07H
  CLR F0
  LJMP S_PLAY
Y81:
  MOV A,R2     ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#08H
  CLR F0
  LJMP S_PLAY
Y9:
  CJNE R2,#00H,Y91
  MOV 56H,#29H   ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R5       ;µÄ×îºóÒ»Ìì
  JB ACC.5,Y92
  MOV 56H,#30H
Y92:
  MOV 57H,#08H
  CLR F0
  LJMP S_PLAY
Y91:
  MOV A,R2     ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#09H
  CLR F0
  LJMP S_PLAY
RY9:
  CJNE R2,#00H,RY91
  MOV 56H,#29H    ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R5        ;µÄ×îºóÒ»Ìì
  JB ACC.4,RY92
  MOV 56H,#30H
RY92:
  MOV 57H,#09H
  CLR F0
  LJMP S_PLAY
RY91:
  MOV A,R2      ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#09H
  SETB F0
  LJMP S_PLAY
Y10:
  CJNE R2,#00H,Y101
  LCALL CHECKRE    ;²éÇ°Ò»¸öÔÂÊÇ·ñΪÈòÔÂ
  CJNE A,#09H,Y102
  MOV 56H,#29H     ;Ç°Ò»¸öÔÂÊÇÈòÔÂ
  MOV A,R4         ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  ANL A,#0FH       ;µÄ×îºóÒ»Ìì
  JNZ Y103
  MOV 56H,#30H
  MOV 57H,#09H
  SETB F0
  LJMP S_PLAY
Y103:
  MOV 57H,#09H
  SETB F0
  LJMP S_PLAY
Y102:
  MOV 56H,#29H    ;Ç°Ò»¸öÔ²»ÊÇÈòÔÂ
  MOV A,R5
  JB ACC.4,Y104
  MOV 56H,#30H
Y104:
  MOV 57H,#09H
  CLR F0
  LJMP S_PLAY
Y101:
  MOV A,R2       ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#10H
  CLR F0
  LJMP S_PLAY
Y11:
  CJNE R2,#00H,Y111
  MOV 56H,#29H     ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R5         ;µÄ×îºóÒ»Ìì
  JB ACC.2,Y112
  MOV 56H,#30H
Y112:
  MOV 57H,#10H
  CLR F0
  LJMP S_PLAY
Y111:
  MOV A,R2    ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#11H
  CLR F0
  LJMP S_PLAY
Y12:
  CJNE R2,#00H,Y121
  MOV 56H,#29H     ;R2ÖÐΪ0£¬ÔòΪǰһ¸öÔÂ
  MOV A,R5          ;µÄ×îºóÒ»Ìì
  JB ACC.1,Y122
  MOV 56H,#30H
Y122:
  MOV 57H,#11H
  CLR F0
  LJMP S_PLAY
Y121:
  MOV A,R2    ;R2ÖÐΪÈÕµÄÖµ
  MOV R0,A
  LCALL D_BCD
  MOV 56H,A
  MOV 57H,#12H
  CLR F0
  LJMP S_PLAY
S_PLAY:
  MOV R0,57H
  LCALL DIVIDE  ;Ô·ÖÀëËÍÏÔʾ»º´æ
  MOV 52H,R1
  MOV 53H,R2
  MOV R0,56H
  LCALL DIVIDE  ;ÈÕ·ÖÀëËÍÏÔʾ»º´æ
  MOV 50H,R1
  MOV 51H,R2
  RET

;²éÊÇ·ñÈòÔ³ÌÐò;;

CHECKRE:
  MOV A,R4
  SWAP A
  ANL A,#0FH
  RET
;10½øÖÆת»»ÎªBCDÂë³ÌÐò;

D_BCD:
  MOV A,R0
  MOV B,#10
  DIV AB
  SWAP A
  ORL A,B
  RET

;~~~~~ÄÖÁå~~~~~~~~~~~~~~
NS:
  MOV A,75H
  SWAP A
  ADD A,74H
  MOV 12H,A
  MOV A,73H
  SWAP A
  ADD A,72H
  MOV 13H,A
  MOV A,71H
  SWAP A
  ADD A,70H
  MOV 14H,A
SH1:
  MOV A,12H
  CJNE A,#07H,XH1
  MOV A,13H
  CJNE A,#50H,XH1
  MOV A,14H
  CJNE A,#00H,XH1
  SETB P0.6
  LCALL MPD
  RET
XH1:
  CLR P0.6
  MOV A,12H
  CJNE A,#08H,SH2
  MOV A,13H
  CJNE A,#30H,SH2
  MOV A,14H
  CJNE A,#00H,SH2
  SETB P0.6
  LCALL MPD
  RET
SH2:
  MOV A,12H
  CJNE A,#08H,XH2
  MOV A,13H
  CJNE A,#40H,XH2
  MOV A,14H
  CJNE A,#00H,XH2
  SETB P0.6
  LCALL MPD
  RET
XH2:
  CLR P0.6
  MOV A,12H
  CJNE A,#09H,SH3
  MOV A,13H
  CJNE A,#20H,SH3
  MOV A,14H
  CJNE A,#00H,SH3
  SETB P0.6
  LCALL MPD
  RET
SH3:
  MOV A,12H
  CJNE A,#09H,XH3
  MOV A,13H
  CJNE A,#40H,XH3
  MOV A,14H
  CJNE A,#00H,XH3
  SETB P0.6
  LCALL MPD
  RET
XH3:
  CLR P0.6
  MOV A,12H
  CJNE A,#10H,SH4
  MOV A,13H
  CJNE A,#20H,SH4
  MOV A,14H
  CJNE A,#00H,SH4
  SETB P0.6
  LCALL MPD
  RET
SH4:
  MOV A,12H
  CJNE A,#10H,XH4
  MOV A,13H
  CJNE A,#30H,XH4
  MOV A,14H
  CJNE A,#00H,XH4
  SETB P0.6
  LCALL MPD
  RET
XH4:
  CLR P0.6
  MOV A,12H
  CJNE A,#11H,SH5
  MOV A,13H
  CJNE A,#10H,SH5
  MOV A,14H
  CJNE A,#00H,SH5
  SETB P0.6
  LCALL MPD
  RET
SH5:
  MOV A,12H
  CJNE A,#11H,XH5
  MOV A,13H
  CJNE A,#20H,XH5
  MOV A,14H
  CJNE A,#00H,XH5
  SETB P0.6
  LCALL MPD
  RET
XH5:
  CLR P0.6
  MOV A,12H
  CJNE A,#12H,XSH1
  MOV A,13H
  CJNE A,#00H,XSH1
  MOV A,14H
  CJNE A,#00H,XSH1
  SETB P0.6
  LCALL MPD
  RET

XSH1:
  MOV A,12H
  CJNE A,#15H,XXH1
  MOV A,13H
  CJNE A,#00H,XXH1
  MOV A,14H
  CJNE A,#00H,XXH1
  SETB P0.6
  LCALL MPD
  RET
XXH1:
  CLR P0.6
  MOV A,12H
  CJNE A,#15H,XSH2
  MOV A,13H
  CJNE A,#40H,XSH2
  MOV A,14H
  CJNE A,#00H,XSH2
  SETB P0.6
  LCALL MPD
  RET
XSH2:
  MOV A,12H
  CJNE A,#15H,XXH2
  MOV A,13H
  CJNE A,#50H,XXH2
  MOV A,14H
  CJNE A,#00H,XXH2
  SETB P0.6
  LCALL MPD
  RET
XXH2:
  CLR P0.6
  MOV A,12H
  CJNE A,#16H,XSH3
  MOV A,13H
  CJNE A,#30H,XSH3
  MOV A,14H
  CJNE A,#00H,XSH3
  SETB P0.6
  LCALL MPD
  RET
XSH3:
  MOV A,12H
  CJNE A,#16H,XXH3
  MOV A,13H
  CJNE A,#40H,XXH3
  MOV A,14H
  CJNE A,#00H,XXH3
  SETB P0.6
  LCALL MPD
  RET
XXH3:
  CLR P0.6
  MOV A,12H
  CJNE A,#17H,ZZ2
  MOV A,13H
  CJNE A,#20H,ZZ2
  MOV A,14H
  CJNE A,#00H,ZZ2
  SETB P0.6
  LCALL MPD
ZZ2:
  RET
MPD:
  MOV A,14H
  CJNE A,#10H,ZZ2
  CLR P0.6
  RET

;;ÏÔʾ³ÌÐò;;;

DISPLAY:
  MOV A,10H
  ANL A,#00001111B
  MOV 59H,A
  MOV A,76H               ;µÚ°ËÁÐLED
  ANL A,#00001111B
  SWAP A
  ADD A,59H
  MOV P1,A
  MOV A,70H
  ANL A,#00001111B
  ADD A,#00000000B
  MOV P2,A
  LCALL DL1MS

  MOV A,10H
  ANL A,#11110000B
  SWAP A
  MOV 5AH,A
  MOV A,77H              ;µÚÆßÁÐLED
  ANL A,#00001111B
  SWAP A
  ADD A,5AH
  MOV P1,A
  MOV A,71H
  ANL A,#00001111B
  ADD A,#00010000B
  MOV P2,A
  LCALL DL1MS

  MOV A,56H             ;µÚÁùÁÐLED
  SWAP A
  ANL A,#11110000B
  ADD A,79H
  SWAP A
  MOV P1,A
  MOV A,72H
  ANL A,#00001111B
  ADD A,#00100000B
  MOV P2,A
  LCALL DL1MS

  MOV A,56H            ;µÚÎåÁÐLED
  ANL A,#11110000B
  ADD A,7AH
  SWAP A
  MOV P1,A
  MOV A,73H
  ANL A,#00001111B
  ADD A,#00110000B
  MOV P2,A
  LCALL DL1MS

  MOV A,57H            ;µÚËÄÁÐLED
  SWAP A
  ANL A,#11110000B
  ADD A,7BH
  SWAP A
  MOV P1,A
  MOV A,74H
  ANL A,#00001111B
  ADD A,#01000000B
  MOV P2,A
  LCALL DL1MS

  MOV A,57H            ;µÚÈýÁÐLED
  ANL A,#11110000B
  ADD A,7CH
  SWAP A
  MOV P1,A
  MOV A,75H
  ANL A,#00001111B
  ADD A,#01010000B
  MOV P2,A
  LCALL DL1MS

  MOV P1,#00001111B
  MOV P2,#01101111B    ;µÚ¶þÁÐLED
  LCALL DL1MS

  MOV A,78H            ;µÚÒ»ÁÐLED
  ANL A,#00001111B
  ADD A,#00100000B
  MOV P1,A
  MOV P2,#01111111B
  LCALL DL1MS
  MOV P1,#0FFH
  RET
ZJ:
  MOV 01H,#150
ZZZ1:
  MOV P2,#00001000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#00011000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#00101000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#00111000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#01001000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#01011000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#01101000B
  MOV P1,#88H
  LCALL DL1MS
  MOV P2,#01111000B
  MOV P1,#88H
  LCALL DL1MS
  DJNZ 01H,ZZZ1
  MOV P1,#0FFH
  RET

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

;Êý¾Ý±í~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TAB:
  DB 35,15H,51H,00H,23,11H,52H,41H,42,12H,65H,00H
  DB 31,11H,32H,00H,21,42H,52H,21H,39,52H,25H,00H
  DB 28,25H,04H,71H,48,66H,42H,00H,37,33H,22H,00H
  DB 25,15H,24H,51H,44,05H,52H,00H,33,22H,65H,00H
  DB 22,21H,25H,41H,40,24H,52H,00H,30,52H,42H,91H
  DB 49,55H,05H,00H,38,26H,44H,00H,27,53H,50H,60H
  DB 46,53H,24H,00H,35,25H,54H,00H,24,41H,52H,41H
  DB 42,45H,25H,00H,31,24H,52H,00H,21,51H,12H,21H
  DB 40,55H,11H,00H,28,26H,21H,61H,47,26H,61H,00H
  DB 36,13H,31H,00H,25,05H,31H,51H,43,12H,54H,00H
  DB 33,51H,25H,00H,22,42H,25H,31H,41,32H,22H,00H
  DB 30,55H,02H,71H,49,55H,22H,00H,38,26H,62H,00H
  DB 27,13H,64H,60H,45,13H,32H,00H,34,12H,55H,00H
  DB 23,10H,53H,51H,42,22H,45H,00H,31,52H,22H,00H
  DB 21,52H,44H,21H,40,55H,44H,00H,29,26H,50H,71H
  DB 47,26H,64H,00H,36,25H,32H,00H,25,23H,32H,50H
  DB 44,44H,55H,00H,32,24H,45H,00H,22,55H,11H,30H
  END

;********************************************************

µç×ÓÍòÄêÀúSCH:

08012317341108.rar

 

µç×ÓÍòÄêÀúÉè¼Æ±¨¸æÊé:

08012317348943.rar

 

¶à¹¦Äܵç×ÓÍòÄêÀúASM:

08012317353959.rar

±¾ÎĹؼü×Ö£ºµç×Ó  ÍòÄêÀú  ×Ô¶¯¿ØÖÆ-µ¥Æ¬»ú£¬µç×ÓÖÆ×÷ - ×Ô¶¯¿ØÖÆ-µ¥Æ¬»ú