Tweet
;----------------------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
Tìm hiểu thêm về tieungu
Comment