Tu dong cap nhat am lich

[vanhoi01]

mình có cái này nhưng còn vướng chỗ tháng 2.
cứ 4 năm lại có 1 ngày 29.nếu thang 28 thì no cập nhật đúng còn 29 thì nó cập nhật chậm mất 1 ngày.
bạn nào biết chỉ mình với mình rối quá rồi.mình cảm ơn nhiêu...

;----------------------tu dong cap nhat am lich---------------------------
                       
 GENGXIAN:MOV R2,#00H
         MOV R3,#00H
          MOV A,month
          CJNE A,#01H,GM2
 
          MOV R0,day   ;thang hien tai cua thang
          LCALL BCD_10 ;chuyen doi sang ngay hien tai 10 nhi phan ，gui R2
          MOV A,R0
          MOV R2,A
          AJMP TIAOZHENG1
   GM2:CJNE A,#02H,GM3
       MOV R0,day    ;thang hien tai la thang hai
       LCALL BCD_10 ;;chuyen doi sang ngay hien tai 10 nhi phan ，
       MOV A,R0      ;cung voi 31，gui R2
       ADD A,#31
       MOV R2,A
       AJMP TIAOZHENG1
  GM3: CJNE A,#03H,GM4
       MOV R0,day    ;thang hien tai cua thang ba
       LCALL BCD_10  ;chuyen doi sang ngay hien tai 10 nhi phan ，
       MOV A,R0      ;cung voi 59，gui R2
       ADD A,#59
       MOV R2,A
       AJMP TIAOZHENG1
  GM4: CJNE A,#04H,GM5
       MOV R0,day     ;thang hien tai la thang tu
       LCALL BCD_10   ;chuyen doi sang ngay  hien tai 10 nhi phan,
       MOV A,R0       ;cung voi 90，gui R2
       ADD A,#90
       MOV R2,A
       AJMP TIAOZHENG1
  GM5: CJNE A,#05H,GM6
       MOV R0,day     ;thang hien tai la thang nam
       LCALL BCD_10   ;chuyen doi sang ngay hien tai 10 nhi phan ，
       MOV A,R0       ;cung voi 120，gui R2
       ADD A,#120
       MOV R2,A
       AJMP TIAOZHENG1
  GM6: CJNE A,#06H,GM7
       MOV R0,day     ;thang hien tai la thang sau
       LCALL BCD_10   ;chuyen doi sang ngay hien tai 10 nhi phan，
       MOV A,R0       ;cung voi 151，gui R2
       ADD A,#151
       MOV R2,A
       AJMP TIAOZHENG1
  GM7: CJNE A,#07H,GM8
       MOV R0,day     ;thang hien tai la thang bay
       LCALL BCD_10   ; chuyen doi sang ngay hien tai 10 nhi phan，
       MOV A,R0       ;cung voi 181，gui R2
       ADD A,#181
       MOV R2,A
       AJMP TIAOZHENG1
  GM8: CJNE A,#08H,GM9
       MOV R0,day     ;thang hien tai la thang tam
       LCALL BCD_10   ;chuyen doi sang ngay hien tai 10 nhi phan,
       MOV A,R0       ;cung voi 212，gui R2
       ADD A,#212
       MOV R2,A
       AJMP TIAOZHENG1
  GM9: CJNE A,#09H,GM10
       MOV R0,day    ;thang hien tai la thang chin
       LCALL BCD_10  ;chuyen doi sang ngay hien tai 10 nhi phan,
       MOV A,R0      ;cun gvoi 243
       CLR C
       ADD A,#243
       JC GGG
       MOV R2,A       ;A khong tran ，goi R2
       AJMP TIAOZHENG1
  GGG: MOV R3,#0FFH   ;A tran，A cong voi mot R2
       INC A          ;R3 khong giao hang #0ffh
       MOV R2,A
       AJMP TIAOZHENG1
 GM10: CJNE A,#10H,GM11
       MOV R0,day    ;thang hien tai la thang muoi
       LCALL BCD_10   ;chuyen doi sang ngay hien tai 10 nhi phan,
       MOV A,R0       ;cung voi 18，goi R2
       ADD A,#18      ;R3 khong giao hang＃0FFH
       MOV R2,A
       MOV R3,#0FFH
       AJMP TIAOZHENG1
 GM11: CJNE A,#11H,GM12
       MOV R0,day    ;thang hien tai la thang 11
       LCALL BCD_10  ; chuyen doi sang ngay hien tai 10 nhi phan,
       MOV A,R0      ;cung voi49，goi R2
       ADD A,#49     ;R3khong giao hang＃0FFH
       MOV R2,A
       MOV R3,#0FFH
       AJMP TIAOZHENG1
  GM12: MOV R0,day     ; thang hien tai la thang 12
       LCALL BCD_10   ; chuyen doi sang ngay hien tai 10 nhi phan,
       MOV A,R0       ;cung voi 79，goi R2
       ADD A,#79      ;R3 khong giao hang ＃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   ;hien tai nhu la mot nam nhuan
       CJNE A,#01H,AAAA
       AJMP GGG1        ;thang hien tai la 1
 AAAA: CJNE A,#02H,BBBB
       AJMP GGG1       ;thang hient ai la 2
 BBBB: CJNE  R2,#0FFH,GGG2
       MOV R3,#0FFH   ;thang hien tai khong phai 1 va 2，
       MOV R2,#01H    ;R1 va R2 che bien tong cong
       AJMP GGG1
 GGG2: INC R2
 GGG1: MOV R0,year    ;kien tra du lieu trong 1 nam
       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 va R3tong so giam R7
       MOV  56H,#01H   ;nhu 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