51单片机实验讲义所有源程序

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扩展