【正文】 ,RETI_11。MOV MINUTE,0。MOV SECOND,0。INC HOUR。MOV A,HOUR。CJNE A,24,RETI_11。MOV HOUR,0。MOV MINUTE,0。MOV SECOND,0。T_YEARPD:MOV A,YEAR。MOV B,100。DIV AB。MOV A,B。JZ T_YEARPD2。看年份是否能被100整除，若能，再進行額外判斷MOV A,YEAR。不能被100整除，則判斷是否能被4整除MOV B,4。DIV AB。MOV A,B。JZ T_RUNYEAR。若年份能被4整除則跳轉(zhuǎn)到閏年部分T_PINGYEAR:。年份不能被4整除則為平年MOV A,MONTH。CJNE A,2,T_PINGMONTH。若不是2月，則跳轉(zhuǎn)到平時的月份進行判斷INC DAY。MOV A,DAY。CJNE A,29,RETI_11。MOV DAY,1。INC MONTH。MOV A,MONTH。CJNE A,13,RETI_11。MOV MONTH,1。INC YEAR。AJMP RETI_1。返回T_YEARPD2:。能被100整除的情況下，的額外判斷MOV A,YEAR。MOV B,100。DIV AB。MOV B,4DIV ABJNZ T_PINGYEAR。若不能被400整除則為平年T_RUNYEAR:。閏年的情況MOV A,MONTH。CJNE A,2,T_PINGMONTH?？词遣皇?月INC DAY。MOV A,DAY。CJNE A,30,RETI_1。MOV DAY,1。INC MONTH。MOV A,MONTH。CJNE A,13,RETI_1。MOV MONTH,1。INC YEAR。AJMP RETI_1。T_PINGMONTH: MOV A,MONTHADD A,2SUBB A,3。判斷是不是一月JZ T_DAY31。若是一月調(diào)用一個月31天的程序段MOV A,MONTH。SUBB A,3。JZ T_DAY31。MOV A,MONTH。SUBB A,4。JZ T_DAY30。調(diào)用一個月30天的程序段MOV A,MONTHSUBB A,5JZ T_DAY31MOV A,MONTHSUBB A,6JZ T_DAY30MOV A,MONTHSUBB A,7JZ T_DAY31MOV A,MONTHSUBB A,8JZ T_DAY31MOV A,MONTHSUBB A,9JZ T_DAY30MOV A,MONTHSUBB A,10JZ T_DAY31MOV A,MONTHSUBB A,11JZ T_DAY30MOV A,MONTHSUBB A,12JZ T_DAY31RETI_1:POP PSWPOP ACCRETI。中斷返回T_DAY31:。當一個月為31天時的日期計算方法INC DAYMOV A,DAYCJNE A,32,RETI_1MOV DAY,1INC MONTHMOV A,MONTHCJNE A,13,RETI_1MOV MONTH,1INC YEARAJMP RETI_1T_DAY30:。當一個月為30天時的日期計算方法INC DAYMOV A,DAYCJNE A,31,RETI_1MOV DAY,1INC MONTHMOV A,MONTHCJNE A,13,RETI_1MOV MONTH,1INC YEARAJMP RETI_1DISP:。走時的顯示程序，包括調(diào)時時的顯示MOV DPTR,LEDTABMOV A,SECONDMOV B,10DIV AB。A存十位B存?zhèn)€位MOVC A,@A+DPTRMOV P1,ACLR SEC_SACALL D_1MS。顯示秒十位SETB SEC_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR SEC_GACALL D_1MS。顯示秒個位SETB SEC_GMOV A,MINUTEMOV B,10DIV ABMOVC A,@A+DPTRMOV P1,ACLR MIN_SACALL D_1MSSETB MIN_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR MIN_GACALL D_1MSSETB MIN_GMOV A,HOURMOV B,10DIV ABMOV DPTR,LEDTABMOVC A,@A+DPTRMOV P1,ACLR HOU_SACALL D_1MSSETB HOU_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR HOU_GACALL D_1MSSETB HOU_GRETDATEDISP:。日期的顯示程序，包括日期調(diào)整時的顯示MOV DPTR,LEDTABMOV A,DAYMOV B,10DIV AB。A存十位B存?zhèn)€位MOVC A,@A+DPTRMOV P1,ACLR SEC_SACALL D_1MSSETB SEC_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR SEC_GACALL D_1MSSETB SEC_GMOV A,MONTHMOV B,10DIV ABMOVC A,@A+DPTRMOV P1,ACLR MIN_SACALL D_1MSSETB MIN_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR MIN_GACALL D_1MSSETB MIN_GMOV A,YEARMOV B,100DIV ABMOV A,BMOV B,10DIV ABMOVC A,@A+DPTRMOV P1,ACLR HOU_SACALL D_1MSSETB HOU_SMOV A,BMOVC A,@A+DPTRMOV P1,ACLR HOU_GACALL D_1MSSETB HOU_GRETDATETZ1:。日期調(diào)整程序MOV 35H,100DATETZ2:ACALL DATEDISPDJNZ 35H,DATETZ2JNB ,YEAR_TJNB ,MONTH_TJNB ,DAY_TJNB ,MAIN3AJMP DATETZ1MAIN3:AJMP MAINYEAR_T:。年的調(diào)整很容易；直接加1ACALL DATEDISPINC YEARAJMP DATETZ1MONTH_T:。月的調(diào)整也很容易，加到13時月變?yōu)?ACALL DATEDISPINC MONTHMOV A,MONTHCJNE A,13,DATETZ1MOV MONTH,1AJMP DATETZ1DAY_T:。日期的調(diào)整需要判斷是不是閏年，還要判斷當月具體是哪個月YEARPD:MOV A,YEARMOV B,100DIV ABMOV A,BJZ YEARPD2?？茨攴菔欠衲鼙?00整除，若能，再進行額外判斷MOV A,YEAR。不能被100整除，則判斷是否能被4整除MOV B,4DIV ABMOV A,BJZ RUNYEAR。若年份能被4整除則跳轉(zhuǎn)到閏年部分PINGYEAR:。年份不能被4整除則為平年MOV A,MONTHCJNE A,2,PINGMONTH。若不是2月，則跳轉(zhuǎn)到平時的月份進行判斷INC DAYMOV A,DAYCLR CSUBB A,29JC DATETZ1MOV DAY,1AJMP DATETZ1。返回掃描YEARPD2:。能被100整除的情況下，的額外判斷MOV A,YEARMOV B,100DIV ABMOV B,4DIV ABJNZ PINGYEAR。若不能被400整除則為平年RUNYEAR:。閏年的情況MOV A,MONTHCJNE A,2,PINGMONTH。看是不是2月INC DAYMOV A,DAYCLR CSUBB A,30JC DATETZ1MOV DAY,1AJMP DATETZ1PINGMONTH:MOV A,MONTHADD A,2SUBB A,3。判斷是不是一月JZ DAY31。若是一月調(diào)用一個月31天的程序段MOV A,MONTHSUBB A,3JZ DAY31MOV A,MONTHSUBB A,4JZ DAY30。調(diào)用一個月30天的程序段MOV A,MONTHSUBB A,5JZ DAY31MOV A,MONTHSUBB A,6JZ DAY30MOV A,MONTHSUBB A,7JZ DAY31MOV A,MONTHSUBB A,8JZ DAY31MOV A,MONTHSUBB A,9JZ DAY30MOV A,MONTHSUBB A,10JZ DAY31MOV A,MONTHSUBB A,11JZ DAY30MOV A,MONTHSUBB A,12JZ DAY31DAY30:INC DAYMOV A,DAYCLR CSUBB A,31JC DATETZ11MOV DAY,1AJMP DATETZ1DAY31:INC DAYMOV A,DAYCLR CSUBB A,32JC DATETZ11MOV DAY,1AJMP DATETZ1DATETZ11:AJMP DATETZ1D_1MS:MOV R7,2D_5:MOV R2,250DJNZ R2,$DJNZ R7,D_5RETLEDTAB:DB 7EH,30H,6DH,79H,33H,5BH,5FH,70H,7FH,7BHEND