Program do zaświecania i gaszenia diód na klawiaturze itp.

[mario82]

Witam
Czy mógłby mi ktoś pomóc w napisaniu lub udoskonaleniu programu który już napisałem
ma służyć on do zaświecania lub gaszenia diód na klawiaturze lub zapalaniu po kolei itp.
napisałem to w free pascalu ale wyskakują błędy, słyszałem że powinno się to pisać w asemblerze - ale gdzie taki program znajść, szukałem dlugo i nie mogę znależć go w necie

a to jest zródło programu który napisałem


program diody;
uses crt;
var x,ilosc,wartosc : byte;

procedure LED;

begin
asm
mov al,0edh
out 60h,al
in al,64h
mov al,x
end;
end;
procedure wpisz;
begin
asm
mov al,wartosc
out 60h,al
end;
delay(200);
end;
begin
ilosc:=0;
repeat
ilosc:=ilosc+1;
led;
wartosc:=02;
wpisz;
wartosc:=04;
led;
wpisz;
led;
wartosc:=01;
wpisz;
wartosc:=00;
led;
wpisz;
until ilosc=200;
end.

napisany jest pod free pascalem i wyskakują błędy, proszę o pomoc

z góry dzięki

Pozdrawiam Mariusz

[pajaczek]

Witam
Czy mógłby mi ktoś pomóc w napisaniu lub udoskonaleniu programu który już napisałem
ma służyć on do zaświecania lub gaszenia diód na klawiaturze lub zapalaniu po kolei itp.
napisałem to w free pascalu ale wyskakują błędy, słyszałem że powinno się to pisać w asemblerze - ale gdzie taki program znajść, szukałem dlugo i nie mogę znależć go w necie

To w czym to napiszesz to zalezy juz tylko od Ciebie, to raz. Dwa, to jakos nie wierze ze sam to napisales, a teraz nie wiesz nawet co zrobic z "wyskakujacymi bledami". A wlasnie... moze by cos pomoglo jakbys raczyl te bledy podac, bo wrozek brak (wszystkie maja dzis wolne). I nareszcie, znajść... ale co znajść... przyklad programu w asemblerze, czy sam kompilator asemblera ?? Z tym drugim to nie powinienes miec problemow...


Aaaa... i na przyszlosc uzywaj z laski swojej znacznikow <code> bo strasznie sie takie listingi przeglada. I ostatnia uwaga... w tym "Twoim" kodzie polowa to wstawka asemblerowa, wiec...

[OT]

Bawiłem się kiedyś kodem poniżej (turbo pascal).

Kod: Zaznacz cały

program MIGACZ; USES CRT; PROCEDURE LEDSON; BEGIN ASM MOV AL,$ED OUT $60,AL MOV CX,400 @PETLA: LOOP @PETLA MOV AL,$FF OUT $60,AL END; END; PROCEDURE LEDSOFF; BEGIN ASM MOV AL,$ED OUT $60,AL MOV CX,400 @PETLA: LOOP @PETLA MOV AL,$00 OUT $60,AL END; END; BEGIN CLRSCR; WRITELN(' Ú---------------------------------ż'); WRITELN(' | MIGACZ v.1.00pl |'); WRITELN(' Ŕ---------------------------------Ů'); REPEAT LEDSON; SOUND(1000); DELAY(400); NOSOUND; LEDSOFF; DELAY(400); UNTIL KEYPRESSED END.

[gawel]

Witam
Czy mógłby mi ktoś pomóc w napisaniu lub udoskonaleniu programu który już napisałem
ma służyć on do zaświecania lub gaszenia diód na klawiaturze lub zapalaniu po kolei itp.
napisałem to w free pascalu ale wyskakują błędy, słyszałem że powinno się to pisać w asemblerze - ale gdzie taki program znajść, szukałem dlugo i nie mogę znależć go w necie

a to jest zródło programu który napisałem ....

Dawno tym się bawiłem i trochę wiedza uleciała... ale patrząc w jakieś swoje kawałki to:
1. trzeba na port KBD (60 hex) wysłać zaczepnie ED hex,
2. poczekać aż klawiatura to zrozumie (w odpodiwdzi dostaniesz FA hex, uzyskany jak dla normalnego skankodu),
3. wtedy moża wysłać stan lampek LED (3 najmłodsze bity)