dorde.asm

上课老师给的8086仿真器

	ORG 0100H
DORDE:	MOV SP,#60H
	MOV R3,#50H
DORDE1: MOV A,R3
	MOV R0,A
	MOV R7,#0AH
	CLR 00H
	MOV A,@R0
DORDE2: INC R0
	MOV R2,A
	CLR C
	MOV 22H,@R0
	CJNE A,22H,DORDE3
	SETB C
DORDE3: MOV A,R2
	JC DORDE4
	SETB 00H
	XCH A,@R0
	DEC R0
	XCH A,@R0
	INC R0
DORDE4: MOV A,@R0
	DJNZ R7,DORDE2
	JB 00H,DORDE1
	MOV R0,#7EH
	MOV A,#0FFH
	MOV R4,#06H
DORDE5: MOV @R0,A
	DEC R0
	DJNZ R4,DORDE5
	MOV 7EH,#8CH
DORDE6: LCALL DISPD
	SJMP DORDE6
DISPD:	SETB 0D4H
	MOV R1,#7EH
	MOV R2,#20H
	MOV R3,#00H
DISPD1: MOV DPTR,#0FF21H
	MOV A,R2
	MOVX @DPTR,A
	MOV A,@R1
	MOV DPTR,#0FF22H
	MOVX @DPTR,A
DISPD2: DJNZ R3,DISPD2
	DEC R1
	CLR C
	MOV A,R2
	RRC A
	MOV R2,A
	JNZ DISPD1
	MOV A,#0FFH
	MOV DPTR,#0FF22H
	MOVX @DPTR,A
	CLR 0D4H
	RET
	END