Logical Bitwise Functions - AND, OR, XOR, NOT

[britlion]

These items do seem to be quite high on a few people's wish list. I hope they help!

Right now I only know how to use FASTCALL with a single parameter. If anyone knows how standard multi parameter calls work when we get into m/c please let me know. For the moment, these work and are pretty fast, even though AND and OR cheat a little.

Binary NOT (8 bit version)

Code:

FUNCTION FASTCALL bNOT (sentIn as uByte) as uByte asm CPL end asm END FUNCTION

USAGE: bNOT(byte value or ubyte value)

Binary NOT (16 bit version)

Code:

FUNCTION FASTCALL bNOT (sentIn as uInteger) as uInteger asm LD a,h CPL ld h,a ld a,l CPL ld l,a end ASM END FUNCTION

USAGE: bNOT(uInteger value)

How about this as a compromise: A NOT function that does an 8 bit not for any value that fits in 8 bits, a 16 bit NOT for any value that fits in 16 bits, and a 32 bit NOT for any larger value.

Code:

FUNCTION FASTCALL bNOT(sentIn as uLONG) as uLONG asm LD A,D OR E JR Z,word ; if DE = 0, assume it's NOT a long! LD A, D CPL LD D, A LD A,E CPL LD E,A word: LD A,H AND A ; if H=0 assume it's not 16 bit. JR Z, byte CPL LD H,A byte: LD A,L CPL LD L,A END asm END Function

Binary AND (8 bit)

Code:

FUNCTION bAND (byte1 as uByte, byte2 as uByte) as uByte return bANDHL(byte1*256+byte2) END function FUNCTION FASTCALL bANDHL (HL as uInteger) as uByte asm LD a,h AND l end asm END FUNCTION

USAGE bAND (byte value1, byte value2)
NOTE: Yes, this is one function that calls another. It cheats by putting two 8 bit values into a 16 bit. It's definitely possible to have something better optimized, and if I learn how standard calls work, I'll use that.
In the meantime, this does work.

Binary OR (8 bit)
NOTE: This uses the same sneaky methods as bAND. I'm sure better code will turn up later.

Code:

FUNCTION bOR (byte1 as uByte, byte2 as uByte) as uByte return bORHL(byte1*256+byte2) END function FUNCTION FASTCALL bORHL (HL as uInteger) as uByte asm LD a,h OR l end asm END FUNCTION

USAGE bOR(byte value,byte value)