PBTCreate2: ;D=Xofs,E=Yofs,A=Count
 push af
  ld hl,pbtfreebullet
  bit 6,(hl)
  jr z,_        ;stop routine if over 64 bullets. Jump past if no stop.
 pop af
 ret
_:
  ld a,(hl) ;1.read
  inc (hl)  ;2.increment
  ld L,a
  ld h,$8D
  ld L,(hl) ;got bullet position
  push hl
  pop ix
  ld a,(charx)
  srl a \ srl a
  add a,d
  ld (ix+2),a
  ld a,(chary)
  srl a \ srl a
  add a,e
  ld (ix+1),a
  ld a,(mdanmaku)
  rrca
  rrca
  and $80
 pop bc
 or b    ;combining masks for b7=focused, b0-b6=counter
 ld (ix+0),a
 ret