0809.txt

上课老师给的8086仿真器

CODE SEGMENT
ASSUME CS:CODE
ADPORT	EQU 0010h
	ORG 1000H
START:	JMP ADCONTORL
ADCONTORL:CALL FORMAT
ADCON:	MOV AX,00
	MOV DX,ADPORT
	OUT DX,AL
	MOV CX,0500H
DELAY:	LOOP DELAY
	MOV DX,ADPORT
	IN AL,DX
	CALL CONVERS
	CALL DISP
	JMP ADCON
CONVERS:MOV AH,AL
	AND AL,0FH
	MOV BX,077AH
	MOV DS:[BX],AL
	INC BX
	MOV AL,AH
	AND AL,0F0H
	MOV CL,04H
	SHR AL,CL
	MOV DS:[BX],AL
	RET
disp:	  mov dx,077Fh
	  mov ah,20h
disp0:	  mov cx,00ffh
	  mov bx,dx
	  mov bl,ds:[bx]
	  mov bh,0h
	  push dx
	  mov dx,0ff22h
	  mov al,cs:[bx+1060h]
	  OUT DX,AL
	  mov dx,0ff21h
	  mov al,ah
	  OUT DX,AL
disp1:	  loop disp1
	  pop dx
	  dec dx
	  shr ah,01h
	  jnz disp0
	  mov dx,0ff22h
	  mov al,0ffh
	  OUT DX,AL
	  ret
data1:	  db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0ah
	  db 86h,8eh,0ffh,0ch,89h,0deh,0c7h,8ch,0f3h,0bfh
FORMAT: MOV BX,0
	MOV WORD PTR DS:[BX+077AH],0000H
	ADD BX,2
	MOV WORD PTR DS:[BX+077AH],0009H
	ADD BX,2
	MOV WORD PTR DS:[BX+077AH],0008H
	RET
CODE ENDS
END  START