邵阳学院课程设计
LJMP TSR7 TSR5:
MOV R0,#06BH MOV R1,#03H TSR6:DJNZ R0,TSR6 MOV R0,#6BH DJNZ R1,TSR6 TSR7:SETB P2.0 RET
RE_CONFIG:JB 20H.1,RE_CONFIG1 RET RE_CONFIG1:
MOV A,#0CCH LCALL WRITE_1820 MOV A,#4EH LCALL WRITE_1820 MOV A,#00H LCALL WRITE_1820 MOV A,#00H LCALL WRITE_1820 MOV A,#1FH LCALL WRITE_1820 RET SETB P2.0 LCALL INIT_1820 JB 20H.1,TSS2 RET TSS2:
MOV A,#0CCH LCALL WRITE_1820 MOV A,#44H
-
20
邵阳学院课程设计
LCALL WRITE_1820 LCALL INIT_1820 MOV A,#0CCH LCALL WRITE_1820 MOV A,#0BEH LCALL WRITE_1820 LCALL READ_18200 MOV 37H,A RET WRITE_1820: MOV R2,#8 CLR C WR1:CLR P2.0 NOP NOP NOP NOP RRC A MOV P2.0,C MOV R3,#35 DJNZ R3,$ SETB P2.0 NOP
DJNZ R2,WR1 SETB P2.0 RET READ_18200: MOV R4,#2 RE00:MOV R2,#8 RE01:CLR C SETB P2.0
-
21
邵阳学院课程设计
NOP NOP CLR P2.0 NOP NOP NOP SETB P2.0 NOP NOP MOV C,P2.0 MOV R3,#35 RE20:
DJNZ R3,RE20 RRC A DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET TEMPER_COV: MOV A,#0F0H ANL A,36H SWAP A MOV 37H,A MOV A,36H
JNB ACC.3,TEMPER_COV1 INC 37H TEMPER_COV1: MOV A,35H ANL A,#07H SWAP A
-
22
邵阳学院课程设计
ADD A,37H MOV 37H,A LCALL BIN_BCD RET BIN_BCD: MOV 39H,37H MOV A,37H MOV B,#100 DIV AB MOV 38H,A MOV 37H,B XCH A,B MOV B,#10 DIV AB MOV 37H,A MOV 36H,B RET DISP: SETB RS0
MOV R0, #36H MOV R7, #3 LOOPP:MOV A, @R0 MOV DPTR, #TAB MOVC A, @A+DPTR MOV SBUF, A JNB TI, $ CLR TI INC R0
DJNZ R7, LOOPP CLR RS0 RET
TAB: DB 11H, 0D7H, 32H, 92H, 0D4H, 98H, 18H, 0D1H, 10H,
-
23
邵阳学院课程设计
90H ,0FFH, 070H, 0FEH
T12MS: SETB RS1 MOV R7, #18H TM: MOV R6, #0FFH TM6: DJNZ R6, TM6 DJNZ R7, TM CLR RS1 RET T1S: SETB RS1 MOV R6, #3 LSP:ACALL T12MS DJNZ R6, LSP CLR RS1 RET END
- 24