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 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