serial port

[Jakub Ladman]

Diky.
Na cislo jsem nezapomel, jen do mailu jsem to napsal spatne.
Na tu dvojtecku uz jsem prisel, takze mi to chodi.
Teda skoro. Ted zas nevim jak na ten seriak procpat znak Eof -
Write(Vystup,chr(26)); zda se vubec nefunguje.
Jakub Ladman

----- Original Message -----
From: "Tomáš Dresler" <t.dresler@sh.cvut.cz>
To: "Multiple recipients of list" <hw-news@list.gin.cz>
Sent: Friday, June 29, 2001 8:23 AM
Subject: RE: serial port


> 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
> > >
> > >
> >
>
>