serial port

[Jakub Ladman]

Ok, diky zkusim to, mam tam text.
Jakub
----- Original Message -----
From: "Tomáš Dresler" <t.dresler@sh.cvut.cz>
To: "Multiple recipients of list" <hw-news@list.gin.cz>
Sent: Saturday, June 30, 2001 12:12 AM
Subject: RE: serial port


> Prom. f je typu text nebo file of byte? Myslim, ze file of byte by melo
> chodit OK.
>
> --
>
> 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 Jakub
> > Ladman
> > Sent: Friday, June 29, 2001 4:52 PM
> > To: Multiple recipients of list
> > Subject: Re: serial port
> >
> >
> > 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
> > > > >
> > > > >
> > > >
> > >
> > >
> >
>
>