rec.asm

上课老师给的8086仿真器

 	ORG 1000H
START:	MOV SP,#53H
	mov r7,#00h
start1:	ACALL ZH	
	ACALL RECODE
        mov r0,#0fh
 yh:    djnz r0, yh
        inc r7
       	cjne r7,#14h,start1
        MOV A,#0FFH
        MOV DPTR,#8000H
        MOVX @DPTR,A
	SJMP $

RECODE:
	MOV DPTR,#8000H
        MOV A,40H	;REC CODE
	MOVX @DPTR,A
	lCALL D500MS
	lCALL D500MS
        RET
ZH:	MOV A,R7	;R0 IS SEGMENT ADDRESS:0,1,2,....
 	MOV DPTR,#TAB
	MOVC A,@A+DPTR
	MOV 40H,A
	RET
TAB: 	DB 40H ,42H,44H,46H,48H,4AH,4CH
	DB 4EH,50H,52H,54H,56H,58H,5AH,5CH
	DB 5EH,60H,62H,64H,66H

D500MS:	MOV R5,#05H
DL1:	LCALL D100MS
	DJNZ R5,DL1
	RET
D100MS:
	MOV R6,#64H
DL2:	MOV R4,#0FFH
DL3:	DJNZ R4,DL3
	DJNZ R6,DL2
	RET
DELY:	PUSH 02H
LP2:	PUSH 02H
LP1:	PUSH 02H
LP0:	DJNZ R2,LP0
	POP 02H
	DJNZ R2,LP1
	POP 02H
	DJNZ R2,LP2
	POP 02H
      	DJNZ R2,DELY
      	RET
	END