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 MOV 57H,#03H CLR F0 LJMP S_PLAY RY3:
CJNE R2,#00H,RY31 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 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，则为 MOV A,R2 ;R2中为日的值 MOV R0,A LCALL D_BCD MOV 56H,A 前一个月
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 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