🚀 go-pugleaf

deze taal moet je in een ANSI taal zetten en bewaren als een .rom fyle
het programma om dit te doen vind je op www.ATMEL.com

Staf Wagemakers <staf@digibel.org> schreef in berichtnieuws
slrn82h204.14s.staf@freeware.sam.be...
> 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