5001025-C1101-

A_BIT EQU 20H B_BIT EQU 21H FLAG EQU 38H DQ EQU P3.3 MAIN: ACALL RE_TEMP ACALL TURN ACALL DISPLAY JMP MAIN RE_TEMP: SETB DQ ACALL RESET_1820 JB FLAG,ST ST: MOV A,#0CCH ACALL WRITE_1820 MOV A,#44H ACALL WRITE_1820 ACALL RESET_1820 MOV A,#0CCH ACALL WRITE_1820 MOV A,#0BEH ACALL WRITE_1820 ACALL READ_1820 RET RESET_1820: SETB DQ NOP CLR DQ MOV R1,#3 DLY: MOV R0,#107 DJNZ R0,$ DJNZ R1,DLY SETB DQ NOP NOP NOP MOV R0,#25 T2: JNB DQ,T3 DJNZ R0,T2 JMP T4 T3: SETB FLAG JMP T5 T4: CLR FLAG JMP T7 T5: MOV R0,#117 DJNZ R0,$ T7: SETB DQ RET WRITE_1820: MOV R2,#8 CLR C WR1: CLR DQ MOV R3,#7 DJNZ R3,$ RRC A MOV DQ,C MOV R3,#23 DJNZ R3,$ SETB DQ NOP DJNZ R2,WR1 SETB DQ RET READ_1820: MOV R4,#2 MOV R1,#29H RE0: MOV R2,#8 RE1: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#9 RE2: DJNZ R3,RE2 MOV C,DQ MOV R3,#23 RE3: DJNZ R3,RE3 RRC A DJNZ R2,RE1 MOV @R1,A DEC R1 DJNZ R4,RE0 RET TURN: MOV A,29H MOV C,40H RRC A MOV C,41H RRC A MOV C,42H RRC A MOV C,43H RRC A MOV 29H,A DISPLAY: MOV A,29H MOV B,#10 DIV AB MOV B_BIT,A MOV