🚀 go-pugleaf

In article <8nekll$iv2$1@news.planetinternet.be>, "RedX"
<RedX@mail.dma.be> wrote:
> Ik zit al een tijd met dit probleem. ik lees een byte in van de
> Statuspoort van LPT1 ( C: byte = inp(poortadres);    Pascal: byte :=
> port[poortadres];)
>  maar deze heeft andere waarden dan een byte ingelezen van een andere
>  poort:
> Er worden maar 5 bits gebruikt: 8,16,32,64 en 128. bits 8,16,32 en 64
> zijn geinverteerd: ze hebben een waarde van -8, -16, -32 en -64. bit 128
> is normaal. daarbij wordt er ook nog 127 bij de waarde van de byte
> geteld. Tot nu toe heb ik alle de 4 geinverteerde bits kunnen "losmaken"
> van de byte. als ik de 5de probeer geeft dit verkeerde resultaten. Het
> algoritme dat ik hiervoor gebruik is: (in pseudo-code)
> 
> lees BYTE BYTE - 127 absolute waarde van BYTE BIT1 = (BYTE en 8) / 8
> BIT2 = (BYTE en 16) / 16 BIT3 = (BYTE en 32) / 32 BIT4 = (BYTE en 64) /
> 64 BIT5 = (BYTE en 128) / 128
> 
> Dit werkt correct maar als ik een bit5 een 1 zou krijgen, geeft dit
> verkeerde waarden. Weet iemand een betere manier hiervoor? Op deze
> manier kan ik maar 4 bits invoer gebruiken op LPT1.

Een goede manier om te kijken of een  bit 1 is, is (in C):

bit = (byte & (1 << bitnr)) != 0;

Als je wil weten of de bit 0 is, vervang dan != door ==.

(Voor de conversie naar Pascal: & is "bitsgewijze AND", << is "shift
left", != is "verschillend van", == is "is gelijk aan".)

Jan.