源程序
?????????
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?