moveang:
 pop hl             ;then advance SP so the bullet table handler can continue
 and %01111111
 add a,a            ;doubling the spread
; add a,192-16        ;get true angle spread
 ld c,a
 ld b,$82           ;and now complete the address thinger. in BC
 rlc L \ rlc L      ;From %ss.yyyyyy to %yyyyyy.ss
 ld a,(bc)          ;Get %AAAaaaaa. Let's use upper 3 bits
 rlca \ rlca \ rlca ;Got %aaaaaAAA
 and %00000111
 bit 7,c
 jp z,_
 neg    ;We had a positive number but we need movement in negative
_:
 add a,L
 ;jp nc,PBTDestroy   ;Bullet went past top. Destroy it.
 ;cp 240
 ;jp nc,PBTDestroy    ; special case handling for top of screen shooting people
 ld L,a
 ld a,c
 add a,64
 ld c,a
 ld a,(bc)          ;Getting X angle.
 rlca \ rlca \ rlca ;like above
 and %00000111
 bit 7,c            ;zero-crossing?
 jr z,_             ;jump if not negative.
 neg
_:
 rlc h \ rlc h
 add a,h
 ld h,a
 and %11111100
 jp z,PBTDestroy

 rrc h \ rrc h
 rrc L \ rrc L
 push hl
 pop hl
 jp PBTMainMoveRet ;stack unavailable