浙江农林大学单片机程序汇总1.doc

实验四： ORG 0040H GO: SETB P3.5 LCALL DELAY NOP CLR P3.5 LCALL DELAY NOP LJMP GO LCALL DELAY DELAY: MOV R0,#0H DELAY1: MOV R1,#0H DJNZ R1,$ DJNZ R0,DELAY1 RET END 实验三： ORG 0040H JD: CPL P3.5 LCALL DELAY LJMP JD LCALL DELAY DELAY: MOV R0,#0H DELAY1: MOV R1,#0H DJNZ R1,$ DJNZ R0,DELAY1 RET END 实验七： ORG 0000H AJMP START ORG 001BH AJMP INT_T1 ORG 0100H START: MOV TMOD,#01H MOV TL1,#00H MOV TH1,#4CH MOV R0,#00H MOV R1,#00H SETB TR1 SETB ET1 SETB EA SJMP $ INT_T1: CLR TR1 MOV TL1,#00H MOV TH1,#4CH SETB TR1 INC R1 CJNE R1,#30H,NEXT MOV R1,#00H MOV DPTR,#TABLE MOV A,R0 MOVC A,@A+DPTR MOV P1,A INC R0 CJNE R0,#08H,NEXT MOV R0,#00H NEXT: RETI TABLE: DB 0FAH,0F5H,0AFH, 05FH,0AAH,55H,00H,0FFH END 实验二十： ORG 0000H LJMP START ORG 0003H LJMP INT00 ORG 0040H START: SETB IT0 SETB EA SETB EX0 MOV DPTR,#0F230H MOVX @DPTR,A HERE:SJMP HERE INT00: MOVX A,@DPTR MOV P1,A MOVX @DPTR,A RETI 实验十九： ;ORG 0000H ;LJMP START1 ORG 0040H LJMP START2 ORG 0010H START1: MOV DPTR,#0F218H MOV DPTR,#7FFFH LOOP: MOV A,#00H MOVX @DPTR,A ACALL DELAY MOV A,#FFH MOVX @DPTR,A ACALL DELAY SJMP LOOP START2: MOV DPTR,#0F218H CLR A LOOP1: MOVX @DPTR,A INC A CJNE A,#0FFH,LOOP1 LOOP2: MOVX @DPTR,A DEC A JNZ LOOP2 SJMP LOOP1 DELAY: MOV R7,#0FFH DJNZ R7,$ RET END 实验十六： ORG 0000H LJMP START ORG 001BH AJMP INT_T0 ORG 0100H START: MOV TMOD,#20H MOV TL1,#00H MOV TH1,#4CH MOV PCON,#00H MOV SCON,#00H MOV A,#30H MOV SBUF,A MOV R1,#20H CLR TI CLR RI SETB TR1 SETB ET1 SETB EA SJMP $ INT_T0: CLR EA CLR TR1 MOV TL1,#00H MOV TH1,#4CH SETB TR1 DJNZ R1,EXIT MOV R1,#20H MOV DPTR,#TABLE MOV A,R0 MOVC A,@A+DPTR LCALL DELAY CLR TI MOV SBUF,A INC R0 CJNE R0,#0AH,EXIT MOV R0,#00H EXIT: SETB EA RETI DELAY: MOV R6,#00H DELAY1: MOV R7,#00H