ORG 0000H AJMP MAIN ORG 0003H AJMP KEYPRESS ORG 000BH AJMP TIMEOUT ORG 001BH AJMP TIMEOUT SENDDUAN BIT P3.0 JIEDUAN BIT P3.1 INTRPO BIT P3.2 JIEXUAN BIT P3.3 SENDLIGHT BIT P3.4 JIELIGHT BIT P3.5 CS BIT P3.7 DATADUAN BIT P1.6 CLK BIT P1.7 JIANWEI EQU R5 JIANMA EQU R6 SHANGJIAN EQU 07H;R7 OPENKEY EQU 81H CLOSEKEY EQU 00H CHUT0 EQU 11H CHUT1 EQU 11H BUFBEGIN EQU 18H OPENT1 EQU 88H CLOSET1 EQU 00H OPENT0 EQU 82H CLOSET0 EQU 00H DATABEG1 EQU 0AAH DATABEG2 EQU 33H ORG 0030H MAIN: MOV IE,#80H MOV IP,#00H MOV P3,#0FFH CLR CS SETB P1.0 SETB P1.1 SETB P1.2 CLR P1.3 CLR P1.4 CLR P1.5 CLR P1.6 CLR P1.7 MOV R3,#80H MOV R0,00H CYCLE1: MOV @R0,#00H INC R0 DJNZ R3,CYCLE1 MOV PSW,#00H MOV SP,#07H MOV TMOD,#11H MOV TCON,#00H START: MOV SP,#07H SETB SENDDUAN CLR F0 SETB EXO WAITKEY: MOV C,F0 JNC WAITKEY CJNC JIANMA,#1BH,SEND LCALL LEARNP LJMP START SEND: LCALL SENDP LJMP START SENDP: SETB SENDDUAN CLR F0 MOV TMOD,#CHUT1 CLR SENDLIGHT MOV A,JIANMA CJNE A,SHANGJIAN,SAME SAME: MOV R0,#BUFBEGIN CLR TR1 LJMP NEXT3 RETURN: CLR ET1 SETB SENDDUAN SETB SENDLIGHT CLR F0 LCALL DELAY RET NEXT3: CPL F0 JB F0,SEND1 SEND0: CLR C ;1 MOV A,#0FFH SUBB A,@R0 MOV R2,A ;1 INC R0 ;1 MOV A,#0FFH ;1 SUBB A,@R0 ;1 MOV R3,A INC R0 CLR C MOV A,#4FH ADDC A,R2 MOV R2,A MOV A,R3 ADDC A,#00H MOV R3,A MOV TL1,R2 MOV TH1,R3 SETB TR1 ;1 SETB ET1 ;1 SEND1: CLR C MOV A,#0FFH SUBB A,@RO MOV TL1,A INC R0 MOV A,#0FFH SUBB A,@R0 MOV TH1,A INC R0 SETB TR1 SETB ET1 NEXT6: CLR SENGGUAN MOV R3,#03H NEXT4: DJNZ R3,NEXT4 SETB SENDDUAN MOV R3,#07H NEXT5: DJNZ R3,#NEXT5 SJMP NEXT6 TIMA1OUT: CLR ET1 ;2 CLR TR1 ;2 SETB SENDDUAN ;1 CJNE@R0,#DATABEG2,TIM1NT2 MOV DPTR,#RETURN ;2 MOV R1,SP ;2 MOV @R1,DPH ;2 DEC R1 ;1 MOV @R1,DPL ;2 RETI ;2 TIM1NET2: DEC R0 TIM1NET1: CPL F0 ;1 JB F0,SEND11 ;2 SEND00: MOV DPTR,#SENDO ;11 MOV R1,SP MOV @R1,DPH DEC R1 MOV @R1,DPL RETI SEND11: MOV DPTR,#SEND1 ;11 MOV R1,SP MOV @R1,DPH DEC R1 MOV @R1,DPL RETI LEARNP: MOV R2,#02H NEXT91: MOV R3,#0FFH NEXT81: MOV R4,#0FFH NEXT71: DJNZ R4,NEXT71 DJNZ R3,NEXT81 GJNZ R2,NEXT91 CLR F0 SETB EX0 MOV R2,#0AH MEXT9: MOV R3,#0FFH NEXT8: MOV R4,#0FFH NEXT7: JB F0,NEXT10 DJNZ R4,NEXT7 DJNZ R3,MEXT8 DJNZ R2,NEXT9 CLR EX0 RET NEXT10: CJNE JIANMA,#1BH,NEXT11 LJMP NEXT111 NEXT11: RET NEXT111: CLR JIELIGHT CLR JIEXUAN CLR F0 MOV R0,#BUFBEGIN SETB ET0 MOV TCON,#00H MOV TMOD,#CHUT0 MOV TL0,#00H MOV TH0,#00H MOV R2,#02H NEXT92: MOV R3,#0FFH NEXT82: MOV R4,#0FFH NEXT72: DJNZ R4,NEXT72 DJNZ R3,NEXT82 DJNZ R2,NEXT92 CLR TR0 L1: MOV C,JIEDUAN JC L1 L4: SETB TR0 L2: MOV C,JIEDUAN CLR TR0 MOV @R0,TL0 INC R0 MOV TH0,#00H MOV TL0,#00H L6: SETB TR0 L3: MOV C,JIEDUAN JC L3 CLR TR0 CLR C MOV A,TL0 ADDC A,#13H MOV @R0,A INC R0 MOV TH0,#00H MOV TL0,#00H SETB TR0 L5: MOV C,JIEDUAN JNC L5 CLR TR0 CLR C ;1 MOV A,TL0 ;1 ADDC A,#13H ;1 MOV @R0,A ;2 INC R0 MOV A,TH0 ADDC A,#00H MOV @R0,A INC R0 MOV TH0,#00H MOV TL0,#00H SJMP L6 SHUJIAN: SETB JIEXUAN MOV @R0,#DATABEG1 INC R0 MOV @R0,#DATABEG2 SETB EX0 CLR F0 NEXT13: JB F0,NEXT12 LJMP NEXT13 NEXT12: LCALL WRITEP SETB JIELIGHT RET TIME0OUT CLR ET0 CLR TR0 MOV DPTR,#SHUJIAN MOV @R1,DPH DEC R1 MOV @R1,DPL RETI KEYPRESS: CLR EX0 MOV R3,#0DH CYCLE3: MOV R4,#0FFH CYCLE2: DJNZ R4,CYCLE2 DJNZ R3,CYCLE3 MOV C,INTRPO JNC NEXT1 RETI NEXT1: SETB F0 MOV C,P1.0 MOV ACC.0,C MOV C,P1.1 MOV ACC.1,C MOV C,P1.2 MOV ACC.2,C CLR P1.0 CLR P1.1 CLR P1.2 SETB P1.3 SETB P1.4 SETB P1.5 MOV C,P1.3 MOV ACC.3,C MOV C,P1.4 MOV ACC.4,C MOV C,P1.5 MOV ACC.5,C ANL A,300111111B MOV JIANMA,A SETB P1.0 SETB P1.1 SETB P1.2 CLR P1.3 CLR P1.4 CLR P1.5 LCALL JIANWEIP RETI JIANWEIP: CJNE JIANMA,#36H,NEXT14 MOV JIANWEI,#01H LJMP LAST NEXT14: CJNE JIANMA,#35H,NEXT15 MOV JIANWEI,#02H LJMP LAST NEXT15: CJNE JIANMA,#35H,NEXT16 MOV JIANWEI,#03H LJMP LAST NEXT16: CJNE JIANMA,#2EH,NEXT17 MOV JIANWEI,#04H LJMP LAST NEXT17: CJNE JIANMA,#2DH NEXT18 MOV JIANWEI, #05H LJMP LAST NEXT18: CJNE JIANMA,#2BH,NEXT19 MOV JIANWEL,#06H LJMP LAST NEXT19: CJNE JIANMA,#1EH,NEXT20 MOV JIANWEI,#07H LJMP LAST NEXT20: CJNE JIANMA,#1DH,NEXT21 MOV JIANWEL,#09H LJMP LAST NEXT21: CJNE JIANMA,#1BH,NEXT22 MOV JIANWEI,#09H LJMP LAST NEXT22: CLR FO LAST: RET READP: MOV RO,BUFBEGIN MOV A,JIANWEI MOV B,50 MUL AB MOV R3,A SHU JU DI ZHI INC R3 LCALL READCOM READNET2: MOV A,R3 LCALL WRITEADRESS LCALL READBYTE CJNE ,#DATABEG1,READNET1 MOV A R3 INC A LACLL WRITEADRESS LCALL READBYTE CJNE A,#DATABEG2,READNET1 CLR CS RET READNET1: MOV @RO,A INC RO INC R3 LJMP READNET2 WRITEP: MOV RO,BUFBEGIN MOV A,JIAWEI MOV B,50 MUL AB MOV R3,A ;KAI SHI SHU JU DI ZHI INC R3 LCALL EWEN WRITNET1: LACLL WRITECOM MOV,R3 LCALL WRITEADRESS MOV A,@RO CJNE A,#DATABEG1,WRITNET2 INC RO MOV A,@RO CJNE A,DATABEG2,WRITNET3 LCALL EWDS CLR CS RET WRITNRT3: DEC RO WRITNET2: LCALL WRITEBYTE INC RO INC R3 LJMP WRITNE1 RET WRITBYTE: MOV R2,#08H BOUT1: CLR CLK RLC A MOV DATADUAN,C NOP SETB CLK NOPDJNZ R2,BOUT1 CLRDATADUAN RET READBYTE: SETB DATAUAN MOV R2,#08H BIN1: CLR CLK NOP SETB CLK NOP MOV C,DATADUAN RLC A DJNZ R2,BIN1 RET READCOM: CLR CS CLR CLK SETB DATADUAN SETB CS NOP SETB CLK ;1 NOP CLR CLK NOP SETB CLK ;1 NOP CLR DATAUAN CLR CLK NOP SETB CLK ;0 RET WRITECOM: CLR CS NOP CLR CLK SETB DATADUAN SETB CS NOP SETB CLK ;1 NOP CLR DATADUAN NOP CLR CLK NOP SETB CLK ;0 NOP SETB DATADUAN NOP CLR CLK NOP SETB CLK ;1 RET WRITEADRESS: MOV R2,#07H RLC A ;TIAO GUO DI 7 WEI BOUT2: CLR CLK RLC A MOV DATADUAN,C NOP DJNA R2,BOUT2 CLR DATAUAN RET EQEN: CLR CS CLR CLK SETB DATADUAN SETB CS SETB CLK ;1 NOP CLR CLK NOP CLR DATADUAN SETB CLK ;0 NOP NOP CLR CLK NOP SETB CLK ;0 NOP NOP SETB DATADUAN CLR CLK NOP SETB CLK ;1 NOP NOP SETB CLK ;1 NOP NOP CLR CLK NOP NOP CLR CS RET EWDS: CLR CS CLR CLK SETB DATADUAN SETB CS SETB CLK ;1 NOP CLR CLK NOP CLR DATADUAN SETB CLK ;0 NOP NOP CLR CLK NOP SETB CLK ;0 NOP NOP CLR CLK NOP NOP RETB CLK ;0 NOP NOP SETB CLK ;0 NOP NOP CLR CLK NOP NOP SETB CLK ;0 NOP NOP CLR CS CLR CLK RET DELAY: MOV R3,#96H DEL1: MOV R4,#OFFH DEL2: DJNZ R4,DEL2 DJNZ R3,#DEL1 RET END
|
|
66821730(技術(shù)支持)
