find.asm

上课老师给的8086仿真器

	ORG 0160H
FIND:	MOV SP,#60H
	MOV R0,#10H
	MOV R1,#00H
	MOV DPTR,#7000H
FIND1:	MOVX A,@DPTR
	CJNE A,#00H,FIND2
	INC R1
FIND2:	INC DPTR
	DJNZ R0,FIND1
	MOV A,R1
	MOV R0,#79H
	ANL A,#0FH
	MOV @R0,A
	INC R0
	MOV A,R1
	SWAP A
	ANL A,#0FH
	MOV @R0,A
	INC R0
	MOV A,#10H
	MOV R4,#04H
FIND3:	MOV @R0,A
	INC R0
	DJNZ R4,FIND3
FIND4:	LCALL DISP
	SJMP FIND4
DISP:	SETB 0D4H
	MOV R1,#7EH
	MOV R2,#20H
	MOV R3,#00H
DISP1:	MOV DPTR,#0FF21H
	MOV A,R2
	MOVX @DPTR,A
	MOV DPTR,#DATA1
	MOV A,@R1
	MOVC A,@A+DPTR
	MOV DPTR,#0FF22H
	MOVX @DPTR,A
DISP2:	DJNZ R3,DISP2
	DEC R1
	CLR C
	MOV A,R2
	RRC A
	MOV R2,A
	JNZ DISP1
	MOV A,#0FFH
	MOV DPTR,#0FF22H
	MOVX @DPTR,A
	CLR 0D4H
	RET
DATA1:	DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
	DB 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,89H,0DEH
        END