17.asm

刚学时编的小程序

	BUF EQU 30H

	ORG 0000H
	JMP BEGIN

BEGIN:MOV SP,#60H
	CALL LED_BL
	MOV A,#0FFH
	MOV P0,A
	MOV R2,#4
	MOV R0,#BUF
	MOV R1,#1
	MOV DPTR,#TABLE

QWE:MOV A,R1
	MOVC A,@A+DPTR
	MOV @R0,A
	INC R1
	INC R0
	DJNZ R2,QWE

LOOP:CALL SCAN
	JMP LOOP

DELAY:MOV R6,#50
ASD:MOV R7,#100
	DJNZ R7,$
	DJNZ R6,ASD
	DJNZ R5,DELAY
	RET

LED_BL:MOV R4,#6
ZXC:CPL P3.7
	MOV R5,#5
	CALL DELAY
	DJNZ R4,ZXC
	RET

TABLE:
DB 3FH,06H,5BH,4FH,66H
DB 6DH,7DH,07H,7FH,6FH

SCAN:
	MOV R0,#BUF
	MOV R2,#4
	MOV A,#FEH
RTY:PUSH A
	MOV A,#R0
	MOV P0,A
	POP A
	MOV P2,A
	MOV R5,#20
	CALL DELAY
	RL A
	INC R0
	DJNZ R2,RTY
	RET
	
	END