24: bitVar = getbit(array, 23); 0004 ce0000 LDX #array 0007 6e81 STX 1,SP 0009 c617 LDAB #23 000b 6b80 STAB 0,SP 000d e602 LDAB 2,X 000f c480 ANDB #128 0011 2702 BEQ *+4 ;abs = 0015 0013 c601 LDAB #1 0015 7b0000 STAB bitVar
24: bitVar = getbit(array, 23); 0004 ce0000 LDX #array 0007 6e81 STX 1,SP 0009 c617 LDAB #23 000b 6b80 STAB 0,SP 000d ec02 LDD 2,X 000f c480 ANDB #128 0011 87 CLRA 0012 046402 TBNE D,*+5 ;abs = 0017 0015 c7 CLRB 0016 8f SKIP2 0017 c601 LDAB #1 0019 7b0000 STAB bitVar
#define GETBIT(v,bn) v[bn/8] & (1 << (bn%8))#define SETBIT(v,bn) v[bn/8] |= (1 << (bn%8))#define CLRBIT(v,bn) v[bn/8] &= ~(1<<(bn%8))