Pascal keypressed

[Foltos]

Szia!

Szerintem kezeld mashogy a problemat. 
Irj egy megszakitas rutint amit a 0x4A vektorra teszel. Ez nem tesz mast, mint egy globalis valtozo erteket atallitja. 

Aztan az int 1A megszakitas meghivva a kovetkezokepp ertelmezett, megfelelo regiszter ertekekkel:
		AH = 06
		CH = hours in BCD
		CL = minutes in BCD
		DH = seconds in BCD
	on return:
	CF = 1 if alarm already set or clock inoperable

szepen felhuzod az RTC -t, hogy a megadott idopontban hivja meg a 0x4A interrupt -ot.
Ezutan a cikluson nem csinal mast, mint figyeli a globalis valtozo erteket. Ha azt a 4A interrupt handler atallitotta, johet egy readkey -es ciklus. Ha a felhasznalo megfelelo bill -t ut le, lehet ujra probalkozni, egyebkent kilepes.

Ha mar nem kell az alarm IT, ujra meg kell hivni az int 1A -t (AH = 07), hogy felszabaditsd az alarmot. 

Elegge kesze-kuszara sikeredett eme level, de azert remelem ertheto mardt. 

Udv:
	Foltos

ui: Bocs a helyesirasi hibakert. ;)

> -----Original Message-----
> From: elektro-admin at irisz.hu [mailto:elektro-admin at irisz.hu]On 
> Behalf Of Fakla Gyula
> Sent: 2002. június 11. 14:33
> To: elektro at irisz.hu
> Subject: Re: Pascal keypressed
> 
> 
> Idézve: Dátum: 2002.06.11. 12:15:34. Feladó: Juhasz Imre 
> <csuhas at rabbit.hu>.
> >Sziasztok !
> >
> >A kovetkezo problemaba futottam:
> >
> >Pascal programbol vezerlek egy aramkort a printer porton keresztul. 
> >Varok egy nehany miliszekundumos impulzusra. Ez eddig jol mukodik.
> >Viszont ha nem jon akkor billentyunyomassal kilepnek. 
> >No itt a gubanc: a pascal keypressed fuggvenye nagyjabol 50 
> miliszekundumig tart.
> >Azaz ha beirom a varakozo hurokba akkor nem veszem eszre az impulzusokat.
> >Tud-e valaki valami olyan modszert ami nehany mikroszekundum 
> alatt meg tudja mondani
> >volt-e lenyomott billentyu?
> Esetleg probald meg atirni a billentyu rutint (GetIntVec meg 
> SetIntVec) fuggvenyek.
> Aztan a sajat rutinnal meghivod az erdetit. A sajat rutinban 
> atirsz egy valtozot,
> amit egyebkent a port olvaso ciklusodban ertekelsz. (anno TP5-ben 
> mukodott)
> Udv:Fakla Gyula
> 
> 
> 
> 
> 
> 
>