; This routine loads Y with the index of the first free sprite slot
; If all slots are full Y = #$FF.  This is why we return if we get a
; negative value.
22 E4 A9 02   JSL.L $02A9E4
30 XX         BMI Return 

; Next set the sprite status into $14C8,Y
; Possible values are:
;  1 - Initialization                              
;  2 - Falling off screen (hit by star, shell, etc)
;  3 - Smushed                                     
;  4 - Spin Jumped                                 
;  5 - ?                                  
;  6 - End of level turn to coin                   
;  7 - Nothing, points to return
;  8 - Normal
;  9 - Stationary (Carryable, flipped, stunned)    
;  A - Kicked                                      
;  B - Being carried                                     
;  C - Power up created from carrying a sprite through goal
;
; You probably want to use #$01 or #$08, depending if you want
; the initialization routine to be run
A9 XX         LDA.B #$XX          
99 C8 14      STA.W $14C8,Y 

; Set the sprite to generate          
A9 XX         LDA.B #$XX       
99 9E 00      STA.W 009E,Y     

; Set X/Y Positions             
; ...
99 E4 00      STA.W 00E4,Y  
; ...             
99 E0 14      STA.W 14E0,Y  
; ...             
99 D8 00      STA.W 00D8,Y
; ...             
99 D4 14      STA.W 14D4,Y 

; This subroutine clears out all of the sprite table values,
; and loads the new values for the 6 tweaker tables.
; It requires the sprite index to be in X
DA            PHX                   
BB            TYX                       
22 D2 F7 07   JSL.L $07F7D2    
FA            PLX  

; (EDIT: moved this below the table clearing subroutine)
; Set sprite direction
; ...
99 7C 15      STA.W 157C,Y 

; This routine loads Y with the index of the first free sprite slot
; If all slots are full Y = #$FF.  This is why we return if we get a
; negative value.
        JSL $02A9E4
        BMI Return 

; Put sprite index in X, as the called routines require this
        PHX    
        TYX                       

; Set the sprite to generate into the custom sprite number
        LDA #$XX
        STA $7FAB9E,X   
    
; Set the "normal" sprite status into $14C8 table
        LDA #$08     
        STA $14C8,X

; Set X/Y Positions             
; (insert code to set up position)
        STA $00E4,X
; (insert code to set up position)        
        STA $14E0,X  
; (insert code to set up position)         
        STA $00D8,X
; (insert code to set up position)        
        STA $14D4,X 

        PHY
; This subroutine clears out all of the sprite table values,
; It requires the sprite index to be in X
        JSL $07F7D2
; This routine loads the 6 Tweaker properties for the custom sprite
; It also puts the address of the INIT routine in $00
        JSL $0187A7
; Set as a custom sprite
        LDA #$88
        ORA #$01 ; <---Only if you want the extra bit to be set
        STA $7FAB10,X
; Call INIT routine on sprite
        PHK
        PER.W #$0002
        JML ($0000)
        PLY

        PLX