serial port

[Tomáš Dresler]

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