試作した自己書き換えルーチンその２

Shot_Alloc:
　ldx　SMCLabel(.2+1)
.1:
　lda　SH_X,x
　bmi　.9
　lda　Round96+1,x
　tax
.2:
　cpx　#0
　bne　.1
　.db　$24 ; bit <$b8 (set v-flag)
.9:
　clv
　lda　Round96+1,x
　sta　SMCLabel(.2+1)
　rts

cpx #0の#0の部分を書き換え。
弾丸の空きを検索するルーチンで、次回の検索時は空きを検出した
次の場所から検索を始める処理となっています。
Round96は、0,1,2,...94,95,0,1,..と定義されているテーブルで
lda Round96+1,x で (x+1)%96 の計算をしています。
ゼロページの$b8には、$6cが格納されており、bit <$b8 でv-flagが設定されます。
空きがない場合にv-flagが設定されてリターンします。