我的输入选择20口，六个输出13－18
单片机程序：
VSCL BIT P2^6
VSDA BIT P2^7
SLA EQU 50H
NUMBYT EQU 51H
MTD EQU 52H
MRD EQU 52H
SLAW EQU 06H

ORG 00H
LJMP MAIN
ORG 23H
LJMP KSCAN
ORG 30H
MAIN:
MOV A,#0FFH
MOV P2,A
CLR P2^0

CLR EA
MOV R1,#MTD；这里想让他们六个同时用一个信号
MOV @R1,06H
INC R1
MOV @R1,0EH
INC R1
MOV @R1,16H
INC R1
MOV @R1,1EH
INC R1
MOV @R1,26H
INC R1
MOV @R1,2EH
MOV NUMBYT,#6
MOV SLA,#SLAW
LCALL WRNBYT
SETB EA

KSCAN: 
MOV A,#0FFH；键盘扫描程序
MOV P1,A
MOV A,P1
JZ KSCAN
CALL T12MS
MOV A,P1
JZ KSCAN
CALL T12MS
JNB ACC.0,AAAA
JNB ACC.1,BBBB
JNB ACC.2,CCCC
JNB ACC.3,DDDD
JNB ACC.4,ERROR
JNB ACC.5,ERROR
JNB ACC.6,ERROR
JNB ACC.7,ERROR
JMP KSCAN
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++
AAAA:
MOV A,0FFH；点亮指示灯
MOV P2,A
CLR P2^0
;*******************
CLR EA；将20口和18口通
MOV R1,#MTD
MOV @R1,06H
MOV NUMBYT,#1
MOV SLA,#SLAW
LCALL WRNBYT
SETB EA
JMP KSCAN
;----------------------------
BBBB:
MOV A,0FFH
MOV P2,A
CLR P2^1
;******************* 
CLR EA
MOV R1,#MTD
MOV @R1,0EH
MOV NUMBYT,#1
MOV SLA,#SLAW
LCALL WRNBYT
SETB EA
JMP KSCAN
;----------------------------
CCCC:
MOV A,0FFH
MOV P2,A
CLR P2^2
;*******************
CLR EA
MOV R1,#MTD
MOV @R1,16H
MOV NUMBYT,#1
MOV SLA,#SLAW
LCALL WRNBYT
SETB EA
JMP KSCAN
;----------------------------
DDDD:
MOV A,0FFH
MOV P2,A
CLR P2^3
;******************* 
CLR EA
MOV R1,#MTD
MOV @R1,1EH
MOV NUMBYT,#1
MOV SLA,#SLAW
LCALL WRNBYT
SETB EA
JMP KSCAN
;----------------------------
ERROR:
JMP KSCAN

T12MS:
MOV R7,#18H
D1: MOV R6,#0FFH
D2: DJNZ R6,D2
DJNZ R7,D1
RET

;NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
;Virtual I2C bus program 
STA:    SETB VSDA;启动I２Ｃ总线
     SETB VSCL
     NOP
     NOP
     NOP
     NOP
     CLR VSDA
     NOP
     NOP
 ......

>>返回讨论的主题