serial port

[Tomáš Dresler]

Nezapomnel jste uvest cislo portu? Dale to zkuste bez dvojtecky:

Assign(f,'com1');
Rewrite(f);
...
Close(f);

--

S pozdravem/With best regards

    Tomas Dresler

mailto:edison@hw.cz
mailto:dreslet@fel.cvut.cz
mailto:edison@seznam.cz
--
tel.  (+420)467/52 11 88 (o vikendech/during weekend)
cell. (+420)604/177 822

> -----Original Message-----
> From: hw-news@list.gin.cz [mailto:hw-news@list.gin.cz]On Behalf Of Dusan
> Dolezal
> Sent: Friday, June 29, 2001 8:17 AM
> To: Multiple recipients of list
> Subject: Re: serial port
>
>
> Ja to kdysi davno delal v cecku, sel jsem ale primo na port:
>
> z biosu se zjisti adresa portu:
>
> int com=peek(0,0x400+i*2);  (kde i: 0..com1, 1..com2, atd)
>
> potom se inicializuje (uz si nepamatuju, co to nastavuje za
> parametry, musel
> bych se podivat do chytry knizky (BIOS):
>
> void initcomport(int i)     // i je zase cislo portu pociano od nuly
> {
>    union REGS reg;
>    reg.h.ah=0;
>    reg.h.al=0xE3;
>    reg.x.dx=i;
>  int86(0x14,&reg,&reg);
> }
>
> a pak uz se primo cte (resp. zapisuje pres fci outport):
>
> char ch=inportb(com);
>
> Uz si PACKAL moc nepamatuju, ale ty fce by mohli byt podobny... Pokud to
> bude nutny, mozna bych nekde na disku jeste TP nasel a ty fce prozkoumal.
>
> Dusan Dolezal
>
> ----- Původní zpráva -----
> Od: "Jakub Ladman" <ladmanj@volny.cz>
> Komu: "Multiple recipients of list" <hw-news@list.gin.cz>
> Odesláno: 29. června 2001 7:54
> Předmět: serial port
>
>
> > Prosim, prosim, poradte mi nekdo, jak se otevira com port v
> turbo pascalu.
> > Ja jsem si myslel, ze staci Assign(vystup, 'Com:'); a ono mi to
> pise File
> > not found.
> >
> > Ve starym dobrym Turbu pro CP/M se assignem otevrel soubor AUX: a uz to
> > jelo, ale tady ne a v helpu nemuzu nic najit.
> >
> > Diky za odpoved.
> > Jakub Ladman
> >
> >
>