🚀 go-pugleaf

In article <7vq8jp$hon$1@news.planetinternet.be>, RedX wrote:
>Weet er iemand hoe je in qbasic of pascal de uitgangen van de seriele poort
>( COM 1) hoog of laag zet?
>in qb zou dit kunnen met OUT poortadres, bit
>ik ken echter de poortadressen niet.

De poort adressen van je printer & seriele poorten moet je in principe uit je
BIOS lezen. Standaard worden 3f8h -> 3ffh gebruikt voor com1 en 2f8h -> 2ffh
voor com2 gebruikt. Op deze poorten bevinden zich een aantal registers waarmee
je je seriele poorten kan instellen (baud rate, interrupt enable enz.)

De volgende asm procedure leest het poort adres van een com poort uit het BIOS
geh. Hoe je dit in qb of pascal moet doen weet ik niet.

;--------------------------------------------------
;Haal het poort adres uit bios
;al = COMnr
;-> AX = COMadres
;--------------------------------------------------
COMadres         PROC    NEAR
                 push bx
                 push es
                 dec  al
                 mov  bx,0
                 mov  es,bx
                 mov  ah,0
                 shl  ax,1
                 mov  bx,ax
                 mov  ax,es:[400h+bx]
	         pop  es
	         pop  bx
	         ret

mvg,

-- 
Staf Wagemakers

email      : staf@digibel.org
homepage   : http://www.digibel.org/~staf