ADD A,#BUF MOV R0,A MOV A,@R0 CJNE A,#41H,NEXT2
NEXT2: JC NEXT4 CJNE A,#41H+26,NEXT3 NEXT3:
JNC NEXT4 ADD A,#20H MOV SBUF,A MOV A,RPTR INC A ANL A,#07H
MOV RPTR,A SJMP NEXT NEXT4: CLR ES CLR REN SJMP $ RXDINT:
PUSH ACC PUSH PSW JBC TI,SINT2 CLR RI
MOV A,WPTR ADD A,#BUF MOV R1,A MOV A,SBUF MOV @R1,A MOV A,WPTR INC A ANL A,#07H CJNE A,RPTR,SINT1 SJMP SINT2
SINT1:
MOV WPTR,A SINT2:
POP PSW POP ACC RETI
END
================================================== ②改用查询方式 CSEG AT 0
AJMP MAIN
CSEG AT 0030H MAIN:
MOV SP,#3FH MOV TMOD,#20H MOV TH1,#0F3H SETB TR1 MOV SCON,#50H SETB EA CLR ES
NEXT:
JBC RI,NEXT1 SJMP NEXT NEXT1:
MOV A,SBUF CJNE A,#41H,NEXT2
NEXT2: JC NEXT5 CJNE A,#41H+26,NEXT3 NEXT3:
JNC NEXT5 ADD A,#20H MOV SBUF,A NEXT4:
JBC TI,NEXT SJMP NEXT4 NEXT5: SJMP $
END ;查询方式只做发送 ORG 0000H
MOV TMOD,#20H MOV TH1,#0E6H MOV TL1,#0E6H SETB TR1 MOV SCON,#40H MOV R0,#20H MOV R7,#32 LOOP:
MOV SBUF,@R0 JNB TI,$ CLR TI
INC R0 DJNZ R7,LOOP SJMP $
END ;查询只做接收 ORG 0000H MOV TMOD,#20H MOV TH1,#0E6H MOV TL1,#0E6H SETB TR1 MOV SCON,#50H MOV R0,#20H MOV R7,#32 LOOP:
JNB RI,$ CLR RI
MOV @R0,SBUF INC R0 DJNZ R7,LOOP SJMP $ 实验十单片机总线扩展
IOPORT EQU 8060H DSEG AT 30H BUF: DS 32 CSEG AT 0 AJMP MAIN CSEG AT 30H
MAIN:
MOV DPTR,#IOPORT MOV R0,#BUF MOV R7,#32 MOV B,#0 NEXT: MOVX A,@DPTR CJNE A,B,NEXT1 SJMP NEXT
NEXT1:
MOV B,A MOV @R0,A INC R0 MOVX @DPTR,A DJNZ R7,NEXT SJMP $
END ;Q1~Q8字型口接A~DP,Q9~Q12位型口接LD.0~LD.3 DSEG AT 30H BUF: DS 4
LPTR: DS 1
LBIT: DS 1
BITPORT EQU 8063H SEGPORT EQU 8060H CSEG AT 0 AJMP MAIN CSEG AT 30H
MAIN:
MOV LPTR,#0 MOV LBIT,#11H NEXT:
CALL DLEDX SJMP NEXT DLEDX:
INC LPTR ANL LPTR,#03H
MOV A,LBIT RL A
MOV LBIT,A MOV A,#0FH
MOV DPTR,#BITPORT MOVX @DPTR,A
MOV A,LPTR ADD A,#BUF MOV R0,A
MOV A,@R0
MOV DPTR,#LEDTAB MOVC A,@A+DPTR CPL A
MOV DPTR,#SEGPORT MOVX @DPTR,A
MOV A,LBIT
CPL A
MOV DPTR,#BITPORT MOVX @DPTR,A RET LEDTAB:
DB 3FH,06H,5BH,4FH DB 66H,6DH,7DH,07H DB 7FH,6FH,77H,7CH DB 39H,5EH,79H,71H DB 76H,73H,38H END 实验十一并行D/A芯片DAC0832扩展
