bit操作

poke/peekの1bit単位版みたいなやつ。pokeとsetbit,peekとgetbitがだいたい対応。byte単位だったのがbit単位になっただけ。当たり前にビッグエンディアンの考え方だからね。

cookies146
2011/12/19 18:15

タグ：
タグはありません

1
2
3
4
5
6
7
8
9
10
11
12
13
#module sgetbit
#const FULL 0xFF
#const NULL 0x00
#deffunc setbit var map, int ptr, int bit
    if (bit!=0) && (bit!=1) : return -1
    if bit==0 : poke map, ptr/8, peek(map, ptr/8) & (FULL ^ (0x80 >> (ptr \ 8)))
    if bit==1 : poke map, ptr/8, peek(map, ptr/8) | (0x80 >> (ptr \ 8))
return 0
#defcfunc getbit var map, int ptr
return (peek(map, ptr/8) & (0x80 >> (ptr \ 8))) != 0
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする