【正文】 H,0 LCALL DISP JNB TSH,MAIN3 MOV 20H,0 MOV 21H,0FH MOV 22H,0 MOV DS_ADDR,81H LCALL READ ANL A,7FH MOV DS_ADDR,80H MOV DS_DATA,A LCALL WRITE LJMP MAIN1MAIN3A: SETB SETB MOV 22H,0 LCALL DISP JNB TRL,MAIN3A MOV 20H,0 MOV 21H,0FH MOV 22H,0 MOV DS_ADDR,81H LCALL READ ANL A,7FH MOV DS_ADDR,80H MOV DS_DATA,A LCALL WRITE LJMP MAIN1MAIN2: MOV P1,0 MOV DS_ADDR,8DH LCALL READ MOV YEAR,DS_DATA MOV DS_ADDR,89H LCALL READ MOV MONTH,DS_DATA MOV DS_ADDR,87H LCALL READ MOV DAY,DS_DATA MOV DS_ADDR,85H LCALL READ MOV HOUR,DS_DATA MOV DS_ADDR,83H LCALL READ MOV MINUTE,DS_DATA MOV DS_ADDR,81H LCALL READ MOV SECOND,DS_DATA MOV R0,YEAR LCALL DIVIDE MOV 4AH,R1 MOV A,4AH SWAP A MOV 4AH,A MOV 4BH,R2 MOV A,4BH SWAP A MOV 4BH,A MOV R0,MONTH LCALL DIVIDE MOV 48H,R1 MOV A,48H SWAP A MOV 48H,A MOV 49H,R2 MOV A,49H SWAP A MOV 49H,A MOV R0,DAY LCALL DIVIDE MOV 46H,R1 MOV A,46H SWAP A MOV 46H,A MOV 47H,R2 MOV A,47H SWAP A MOV 47H,A MOV R0,HOUR LCALL DIVIDE MOV 44H,R1 MOV 45H,R2 MOV R0,MINUTE LCALL DIVIDE MOV 42H,R1 MOV 43H,R2 MOV R0,SECOND LCALL DIVIDE MOV 40H,R1 MOV 41H,R2 LCALL DISP LJMP MAIN1DISP: SETB SETB JNB 10H,DISP2 CLR DISP2: JNB 11H,DISP1 CLR DISP1: NOP MOV A,46H ORL A,40H MOV P1,A JNB 01H,MIAOL MOV A,21H RL A MOV 21H,A CJNE A,78H,MIAO1MIAO1: JC MIAOL CLR CLR SJMP FENMIAOL: SETB LCALL DELAY1 CLR LCALL DELAY2 MOV A,47H ORL A,41H MOV P1,A SETB LCALL DELAY1 CLR LCALL DELAY2FEN: MOV A,48H ORL A,42H MOV P1,A JNB 02H,FENL MOV A,21H RL A MOV 21H,A CJNE A,78H,FEN1FEN1: JC FENL CLR CLR SJMP SHIFENL: SETB LCALL DELAY1 CLR LCALL DELAY2 MOV A,49H ORL A,43H MOV P1,A SETB LCALL DELAY1 CLR LCALL DELAY2SHI: MOV A,4AH ORL A,44H MOV P1,A JNB 03H,SHIL MOV A,21H RL A MOV 21H,A CJNE A,78H,SHI1SHI1: JC SHIL SJMP SHI2SHIL: SETB LCALL DELAY1 CLR LCALL DELAY2 MOV A,4BH ORL A,45H MOV P1,A SETB LCALL DELAY1 CLR LCALL DELAY2 SJMP SFMSHI2: CLR CLR SFM: RETDELAY1: MOV R7,5DELAY11:MOV R6,0 DJNZ R6,$ DJNZ R7,DELAY11 RETDELAY2: MOV R7,1DELAY21:MOV R6,0 DJNZ R6,$ DJNZ R7,DELAY21 RETDELAY3: MOV R7,40DELAY31:MOV R6,0 DJNZ R6,$ DJNZ R7,DELAY31 RETJIAY1: MOV A,R7 ADD A,1 DA A RETDIVIDE: MOV A,R0 ANL A,0FH MOV R1,A MOV A,R0 SWAP A ANL A,0FH MOV R2,A RETWRITE: CLR SCLK NOP SETB RST NOP MOV A,DS_ADDR MOV R4,8WRITE1: RRC A NOP NOP CLR SCLK NOP NOP NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP DJNZ R4,WRITE1 CLR SCLK NOP MOV A,DS_DATA MOV R4,8WRITE2: RRC A NOP CLR SCLK NOP NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP DJNZ R4,WRITE2 CLR RST RETREAD: CLR SCLK NOP NOP SETB RST NOP MOV A,DS_ADDR MOV R4,8READ1: RRC A NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP NOP CLR SCLK NOP NOP DJNZ R4,READ1 MOV R4,8READ2: CLR SCLK NOP NOP NOP MOV C,IO NOP NOP NOP NOP NOP RRC A NOP NOP NOP NOP SETB SCLK NOP DJNZ R4,READ2 MOV DS_DATA,A CLR RST RETDEY: NOP NOP NOP NOP NOP NOP NOP RET END