Dotaz: Resetátor pro paralelní port Wdt1LPT a pascal

[kamil5]

Mam takovy problem Zkousim rozchodit resetator pro LPT Prelozil jsem jadro s podporou LPT Povolil v setupu biosu Prikaz dmesg|grep parport me ukaze tohle

parport0: PC-style at 0x278 (0x678) [PCSPP,TRISTATE,EPP] parport0: irq 5 detected lp0: using parport0 (polling). Snad to znamena ze LPT je funkcni .. Na strankach vyrobce jsem stahl program v Pascalu

Na preklad jsem pouzil Free Pascal Compiler version 1.9.4 [2004/08/12] for i386

a soubor pokus.pas s obsahem dole jsem prelozil

USES PORTS;

var a:byte;

begin

a:=port[$378]; { precte stav portu, adresa $378 plati pro LPT1 }

a:=(a xor 1) or 254; { bit d0 invertuje, ostatni bity do log.1 }

port[$378]:=a; { ulozi novou hodnotu do portu }

end.

Přeloží se uspesne, ale pri spusteni to spadne s chyb. hlaskou debian:~# ./pokus Runtime error 216 at $08049F1F $08049F1F $0804A81F $0805B217

Nevite, kde by mohla byt chyba ? Diky moc za radu

Odpovědi

[hm]

hm, pouštíte to jako root?

a ještě přihodím něco podobného v c-éčku...

[kamil5]

Prekompiloval jsem jadro nahodil jen modul modprobe parport_pc Pak jsem poupravil ten priklad a zda se ze to uz s resetatorem komunikuje.

#define BASEPORT 0x3bc /* lp0 */ atd ..

[petr_P]

Zaprve bych vyhodil modul lp, ktery ti ten parport0 uspesne okupuje, pak bych se ujistil, ze ten program poustit pod rootem (nebo mas k nemu prava) a taky bych mozna zkusil novou verzi FPC (na konci srpna vysla 2.0.4).

A taky prohledat fora, protoze tady varim z cisty vody a pristupovat na I/O porty z pascalu jsem v Linuxu nikdy nezkousel.

[kamil5]

Spoustim to jako root Jak mam vyhodil modul lp ? Dik

[Jirka]

modprobe -r lp

Viz. man modprobe a jeste pomoci lsmod si vypises moduly nactene v kernelu.

[Marble]

Spusti pod rootem samo o sobě nestačí. Je potřeba si ještě říct o přístup na port pomocí ioperm(). To platí pro program v C. Netuším, jestli si to FreePascal řeší sám nějak jinak, ale v každém případě pro přístup k portu z userspace root nestačí. Je ještě potřeba někde nějak explicitně povolit (anebo si napsat místo userspace programu jednoduchý modul do jádra :).

[trekker.dk]

A nebo to udělat slušně a použít funkce operačního systému.

[petr_p]

FP FAQ:

Accessing I/O ports

With versions before 0.99.10: if you're under DOS you can use the outport* and inport* procedures of the go32 unit.

Since version 0.99.8, the Port array is supported like in TP, as long as you use the ports unit in your program (not available under Win32).

I/O port access is possible under Linux, but that requires root privileges. Check the manuals for the IOPerm, ReadPort and WritePort procedures. (Unit Linux)

[Jan Martinek]

Opravdu nechci nějak kritizovat, ale psát v pascalu program, co běží jako root a šahá na porty, které jádro již obsluhuje je dost nešťastný postup.
Ale k věci: aby mohl program přistupovat k portům, tak musí předtím zavolat ioperm, což nevím, jak se v Pascalu dělá. Dej na abclinuxu hledat "ioperm" a dozvíš se ledacos. Psal jsem o tom třeba tyhle příspěvky:
http://www.abclinuxu.cz/forum/show/33111#25033
http://www.abclinuxu.cz/forum/show/111551#4
Další věcí je to, že když už chceš přímo šahat na porty, tak se vůbec nemusíš starat o to, jak jádro nadetekuje parport0 - stejně mu budeš fušovat do řemesla. Takže podporu paralelního portu z jádra raději úplně vyhoď.
Mimochodem, resetátor na paralelní/sériový port je hrozně jednoduchá věc s pár součástkami a desetiřádkovým obslužným programem.