基于單片機的數(shù)字萬年歷(存儲版)
【正文】 ture Measurement in the Ocean. Manuscript received 18 August 1997, in final form 9 November 1998：14471449. [9]OMEGA Engineering Technical 39 Home Page [10] Using Thermocouple Sensors Cryogenic Control Systems, Inc. 附 錄源程序清單 ORG 00H MOV R5,00H MOV R7,00H DJNZ R7,$ MOV R7,10H MOV R6,06H MOV R1,35HL1: MOV A,R7 MOV DPTR,TABLE MOVC A,A+DPTR MOV R1,A DEC R1 INC R7 DJNZ R6,L140START: ORL P2,0FFH MOV R4,06H MOV R0,40HCLEAR: MOV R0,00H INC R0 DJNZ R4,CLEARL2: MOV R3,0F7H MOV R1,00HL3: MOV A,R3 MOV P1,A MOV A,P1 MOV R4,A SETB C MOV R5,04HL4: RLC A JNC KEYIN INC R1 DJNZ R5,L4 CALL DISP MOV A,R3 SETB C RRC A MOV R3,A JC L3 JMP L241KEYIN: MOV A,R1 XRL A,0BH JZ X3 MOV A,R1 XRL A,0FH JZ X4 MOV R7,10D1: MOV R6,24 DJNZ R6,$ DJNZ R7,D1D2: MOV A,P1 XRL A,R4 JZ D2 MOV A,R1 MOV DPTR,TABLE MOVC A,A+DPTR MOV R7,A XRL A,0AH JZ SET0 MOV A,R7 XRL A,0BH JZ START MOV A,R7 XRL A,0CH JZ L242 MOV A,R7 XRL A,0DH JZ L2 MOV A,R7 XCH A,40H XCH A,41H XCH A,42H XCH A,43H XCH A,44H XCH A,45H CALL DISP JMP L2X3: JMP DISP2X4: JMP COMPDISP:MOV R0,45HDISP1: MOV A,R0 ADD A,50H MOV P0,A CALL DELAY DEC R0 MOV A,R0 ADD A,40H MOV P0,A CALL DELAY DEC R043 MOV A,R0 ADD A,30H MOV P0,A CALL DELAY DEC R0 MOV A,R0 ADD A,20H MOV P0,A CALL DELAY DEC R0 MOV A,R0 ADD A,10H MOV P0,A CALL DELAY DEC R0 MOV A,R0 ADD A,00H MOV P0,A CALL DELAY RETSET0: MOV R2,06H MOV R0,40H MOV R1,30HE1: MOV A,R0 XCH A,R144 INC R0 INC R1 DJNZ R2,E1 CALL DELAYE2: JMP STARTCOMP: MOV R1,45H MOV R0,35H MOV R2,06HC1: MOV A,R1 XRL A,R0 JNZ C3 DEC R1 DEC R0 DJNZ R2,C1 CLR MOV R2,200C2: MOV R6,248 DJNZ R6,$ DJNZ R2,C2C3: INC R5 MOV A,R5 MOV R5,A CJNE R5 ,03H,C4 CLR MOV R5,00H45 C4: JMP START DISP2: MOV R0,35H CALL DISP MOV A,P1 XRL A,R4 JZ DISP2 CALL DELAY JMP STARTDELAY: MOV R7,C3D3: MOV R6,248 DJNZ R7,D3 RET ORG 300HTABLE: DB 01H 02H 03H 0CH DB 04H 05H 06H 0DH DB 07H 08H 09H 0EH DB 0A
法律信息相關(guān)推薦
鄂ICP備17016276號-1