Improved bAND, bOR, bXOR

[britlion]

Here are more general purpose functions for AND, OR and NOT. They work with Byte, Integer or Long types (the function is long, but the cast works upscale).

A binary NOT is tougher - what bits do you invert? If you send me 8, and I invert 32 is that what you wanted?
(of course, you could bAND the result into the last 8 or 16 bits)

These functions are very similar, of course.

Binary AND:

Code:

Function bAND(a as uLong, b as uLong) as uLong
asm
    
    POP BC ; something
    EXX
    POP HL ; return address
    EXX
    POP HL ; aL
    POP DE ; aH
    POP BC ; bL
    
    LD A,B
    AND H
    LD H,A
    
    LD A,C
    AND L
    LD L,A
    
    POP BC ;bH
    
    LD A,B
    AND D
    LD D,A
    
    LD A,C
    AND E
    LD E,A
    
    EXX
    PUSH HL ; put return address back
    EXX
            
end asm
END function

Binary OR:

Code:

Function bOR(c as uLong, d as uLong) as uLong
asm
    
    POP BC ; something
    EXX
    POP HL ; return address
    EXX
    
    POP HL ; aL
    POP DE ; aH
    POP BC ; bL
    
    LD A,B
    OR H
    LD H,A
    
    LD A,C
    OR L
    LD L,A
    
    POP BC ;bH
    
    LD A,B
    OR D
    LD D,A
    
    LD A,C
    OR E
    LD E,A
    
    EXX
    PUSH HL ; put return address back
    EXX      
end asm
END function

Binary XOR:

Code:

Function bXOR(e as uLong, f as uLong) as uLong
asm
    
    POP BC ; something
    EXX
    POP HL ; return address
    EXX
    
    POP HL ; aL
    POP DE ; aH
    POP BC ; bL
    
    LD A,B
    XOR H
    LD H,A
    
    LD A,C
    XOR L
    LD L,A
    
    POP BC ;bH
    
    LD A,B
    XOR D
    LD D,A
    
    LD A,C
    XOR E
    LD E,A
    
    EXX
    PUSH HL ; put return address back
    EXX        
end asm
END function

Here's the 32 bit NOT function. This is the one that's tricky. If you want a NOT in 8 bits, do bAND(255,bNOT32(num)) - in other words, AND it to cut the length you want; or you are going to be confused at the result being a LOT bigger than you wanted.

8 bit result: bAND with 255
16 bit result: bAND with 65535

If you want the function, it's probably obvious to you. You could also use bNOT16 and bNOT8 listed in the previous thread - and if you always want 16 or 8 bit values, that's the smaller and faster route.

32 Bit Binary NOT:

Code:

FUNCTION FASTCALL bNOT32(g as uLong) as uLong
asm
   LD A,D
   CPL
   LD D,A
  
   LD A,E
   CPL
   LD E,A
  
   LD A,H
   CPL
   LD H,A
  
   LD A,L
   CPL
   LD L,A
end asm
END FUNCTION