;==================
  SpawnSprite:
;==================

       XBA
       LDX #$0B
-      LDA !RAM_SpriteStatus,x
       BEQ .spawn

       DEX
       BPL -

       SEC
       BRA .no_slot

.spawn
       XBA
       STA !RAM_SpriteNum,x

       TXY
       LDX $15E9
       LDA !RAM_SpriteXLo,x
       STA.w !RAM_SpriteXLo,y
       LDA !RAM_SpriteXHi,x
       STA !RAM_SpriteXHi,y
       LDA !RAM_SpriteYLo,x
       STA.w !RAM_SpriteYLo,y
       LDA !RAM_SpriteYHi,x
       STA !RAM_SpriteYHi,y

       TYX
       JSL $87F7D2
       BCC .normal

       LDA !RAM_SpriteNum,x
       STA $7FAB9E,x
       JSL $8187A7
       LDA #$08
       STA $7FAB10,x

.normal
       LDA #$08
       STA !RAM_SpriteStatus,x
       CLC
.no_slot
       TXA
       LDX $15E9
       RTS