
_PrepareP2C:
* makes the bitspread table *
make_table:
   lea   p2c,a1
   move.l   d2,a0
   moveq #0,d0
more_table
   move.b   d0,d1

   moveq #8-1,d2
byteloop
   btst  #7,d1
   beq.s zero
   move.b   #1,(a1)+
   bra.s one
zero  clr.b (a1)+
one   add.b d1,d1
   dbra  d2,byteloop

   addq  #1,d0
   cmp.w #256,d0
   bne.b more_table
table_made
   move.l   a0,d2
   rts

