mode equ 082h
PA
equ 0B000h
CTL
equ 0B003h
CS0809 equ 09000h
code segment
assume cs:code
delay proc near
push cx
MOV
CX,100
lop:
dec cx
jnz lop
ret
delay endp
mainprocnear
mov Al, mode
mov dx, CTL
out dx, Al
again:MOV
AL,0
; 0809 START CONVERT
MOV
DX,CS0809
OUT
DX,AL
call delay
out dx, al
;MOV
DX,18H
ADOK: IN
AL,DX
AND
AL,1
CMP
AL,1
JNE
ADOK ;
MOV
DX,cs0809
IN
AL,DX
MOV
DX,PA
OUT
DX,AL
call delay
mov ah,4ch
int 21h
CODE
ENDS
MAIN
ENDP
END
|