s6-4.asm

手把手教你学单片机（第2版）实验程序

	ORG 0000H
	AJMP DIS1
	ORG 030H
DIS1:	MOV P1,#0FEH
	ACALL DEL
	MOV P1,#0FDH
	ACALL DEL
	MOV P1,#0FBH
	ACALL DEL
	MOV P1,#0F7H
	ACALL DEL
	MOV P1,#0EFH
	ACALL DEL
	MOV P1,#0DFH
	ACALL DEL
	MOV P1,#0BFH
	ACALL DEL
	MOV P1,#07FH
	ACALL DEL
DIS3:	MOV P1,#0FFH
	MOV P3,#0FEH
	ACALL DEL
	MOV P3,#0FDH
	ACALL DEL
	MOV P3,#0FBH
	ACALL DEL
	MOV P3,#0F7H
	ACALL DEL
	MOV P3,#0EFH
	ACALL DEL
	MOV P3,#0DFH
	ACALL DEL
	MOV P3,#0BFH
	ACALL DEL
	MOV P3,#07FH
	ACALL DEL
DIS2:	MOV P3,#0FFH
	MOV P2,#0FEH
	ACALL DEL
	MOV P2,#0FDH
	ACALL DEL
	MOV P2,#0FBH
	ACALL DEL
	MOV P2,#0F7H
	ACALL DEL
	MOV P2,#0EFH
	ACALL DEL
	MOV P2,#0DFH
	ACALL DEL
	MOV P2,#0BFH
	ACALL DEL
	MOV P2,#07FH
	ACALL DEL
DIS0:	MOV P2,#0FFH
	MOV P0,#07FH
	ACALL DEL
	MOV P0,#0BFH
	ACALL DEL
	MOV P0,#0DFH
	ACALL DEL
	MOV P0,#0EFH
	ACALL DEL
	MOV P0,#0F7H
	ACALL DEL
	MOV P0,#0FBH
	ACALL DEL
	MOV P0,#0FDH
	ACALL DEL
	MOV P0,#0FEH
	ACALL DEL
	MOV P0,#0FFH
	AJMP DIS1
DEL:	MOV R5,#04H
DEL1:	MOV R6,#0FFH
DEL2:	MOV R7,#0FFH
DEL3:	DJNZ R7, DEL3
	DJNZ R6, DEL2
	DJNZ R5, DEL1
	RET
	END