TOP > プログラミング関係解説＆調査 > 位置変化・向き変え

$C1/CBE3 JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ
;
$C1/6150 PHX                     ;戦闘乱数計算開始
;（戦闘乱数計算処理省略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/CBE6 STA $11    [$00:0311]   ;A（乱数1）を[$00:0311]に書き込み
$C1/CBE8 JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ
;
$C1/6150 PHX                     ;戦闘乱数計算開始
;（戦闘乱数計算処理省略）
$C1/61A4 RTS                     ;サブルーチン戻り
;
$C1/CBEB ORA $11    [$00:0311]   ;A(乱数2)と[$00:0311](乱数1 $EA)で論理和
$C1/CBED AND $7E901B[$7E:901B]   ;Aと[$7E:901B](技データ11)で論理積
$C1/CBF1 AND #$07                ;Aと$07(%0000 0111)で論理積
$C1/CBF3 STA $11    [$00:0311]   ;Aを[$00:0311]に書き込み

$C1/CBF5 LDX $60    [$00:0360]   ;Xに[$00:0360]をロード
$C1/CBF7 LDA #$00                ;Aに$00をロード
$C1/CBF9 STA $7E9202,x           ;Aを[$7E:ADx2]に書き込み
$C1/CBFD STA $7E9203,x           ;Aを[$7E:ADx3]に書き込み
$C1/CC01 LDA $7E9003,x           ;Aに[$7E:ABx3](ヒット数)をロード
$C1/CC05 BNE $01    [$CC08]      ;ゼロフラグが立っていないとき[$CC08]分岐
;ゼロフラグON
$C1/CC07 RTS                     ;サブルーチン戻り
;ゼロフラグOFF
$C1/CC08 AND #$7F                ;Aと$7Fで論理積
$C1/CC0A STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/CC0C JSR $03F1  [$C1:03F1]   ;[$C1:03F1]へジャンプ

$C1/03F1 LDY $0002,x             ;Yに[$00:1Bx2]をロード
$C1/03F4 LDA $002F,y             ;Aに[$00:1AxF](敵データ15　タイプ)をロード
$C1/03F7 BIT #$04                ;Aと$04(タイプ:OBJECT)で論理積（ステータスフラグ変更のみ）
$C1/03F9 RTS                     ;サブルーチン戻り
;
$C1/CC0F BEQ $02    [$CC13]      ;ゼロフラグが立っているとき[$CC13]分岐
;ゼロフラグOFF
$C1/CC11 STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
;ゼロフラグON
$C1/CC13 LDA $0000,x[$00:1B20]   ;Aに[$00:1Bx0](敵ID)をロード
$C1/CC16 CMP #$D0                ;Aと$D0(敵IDオディオモール)を減算比較（ステータスレジスタ変更のみ）
$C1/CC18 BEQ $04    [$CC1E]      ;ゼロフラグが立っているとき[$CC1E]分岐
$C1/CC1A CMP #$D1                ;Aと$D1(敵IDピュアオディオ)を減算比較（ステータスレジスタ変更のみ）
$C1/CC1C BNE $02    [$CC20]      ;ゼロフラグが立っていないとき[$CC20]分岐
;$C1/CC18 ゼロフラグON
$C1/CC1E STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
;ゼロフラグOFF
$C1/CC20 LDY $10    [$00:0310]   ;Yに[$00:0310]をロード
$C1/CC22 PHY                     ;Yをスタックへプッシュ
$C1/CC23 STX $AC    [$00:03AC]   ;Xを[$00:03AC]に書き込み
$C1/CC25 PHX                     ;Xをスタックにプッシュ
$C1/CC26 JSR $1429  [$C1:1429]   ;[$C1:1429]へジャンプ

$C1/1429 LDA $11    [$00:0311]   ;Aに[$00:0311]をロード
$C1/142B BNE $01    [$142E]      ;ゼロフラグが立っていないとき[$142E]分岐
;ゼロフラグON
$C1/142D RTS                     ;サブルーチン戻り
;ゼロフラグOFF
$C1/142E LDA $0005,x[$00:1B25]   ;Aに[$00:1Bx5]（技関連状態）をロード
$C1/1431 CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/1433 BNE $03    [$1438]      ;ゼロフラグが立っていないとき[$1438]分岐
;ゼロフラグON（技関連状態が$40・タメ時間中）
$C1/1435 STZ $0005,x[$00:1B25]   ;[$00:1Bx5]に$00を書き込み
;ゼロフラグOFF（技関連状態が$40以外・タメ時間ではない）
$C1/1438 RTS                     ;サブルーチン戻り

$C1/CC42 LDA $11    [$00:0311]   ;Aに[$00:0311]をロード
$C1/CC44 BIT #$02                ;Aと$02で論理積（ステータスフラグ変更のみ）
$C1/CC46 BEQ $09    [$CC51]      ;ゼロフラグが立っているとき[$CC51]分岐
;ゼロフラグOFF　90度回転処理へ
$C1/CC48 JSR $CED4  [$C1:CED4]   ;[$C1:CED4]へジャンプ
;ゼロフラグON
$C1/CC51 LDA $11    [$00:0311]   ;Aに[$00:0311]をロード
$C1/CC53 BIT #$04                ;Aと$04で論理積（ステータスフラグ変更のみ）
$C1/CC55 BEQ $09    [$CC60]      ;ゼロフラグが立っているとき[$CC60]分岐
;ゼロフラグOFF　180度回転処理へ
$C1/CC57 JSR $CF0A  [$C1:CF0A]   ;[$C1:CF0A]へジャンプ
;ゼロフラグON
$C1/CC60 JSR $D025  [$C1:D025]   ;[$C1:D025]へジャンプ
;
$C1/D025 LDA $000A,x             ;Aに[$00:1BxA](現在のマス目のX座標)をロード
$C1/D028 STA $0008,x             ;Aを[$00:1Bx8](敵のX座標・計算値)に書き込み
$C1/D02B LDA $000B,x             ;Aに[$00:1BxB](現在のマス目のY座標)をロード
$C1/D02E STA $0009,x             ;Aを[$00:1Bx9](敵のY座標・計算値)に書き込み
$C1/D031 RTS                     ;サブルーチン戻り
;
$C1/CC63 LDA $11    [$00:0311]   ;Aに[$00:0311]をロード
$C1/CC65 BIT #$01                ;Aと$01で論理積（ステータスフラグ変更のみ）
$C1/CC67 BEQ $09    [$CC72]      ;ゼロフラグが立っているとき[$CC72]分岐（向き変え・吹き飛ばしなし）
;ゼロフラグOFF　吹き飛ばし処理へ
$C1/CC69 LDY $10    [$00:0310]   ;Yに[$00:0310]をロード
$C1/CC6B PHY                     ;Yをスタックへプッシュ
$C1/CC6C JSR $D052  [$C1:D052]   ;[$C1:D052]へジャンプ

;90度回転処理
$C1/CED4 LDA $0004,x[$00:1B24]   ;Aに[$00:1Bx4](敵の向き)をロード
$C1/CED7 BIT #$C0                ;Aと$C0で論理積（ステータスフラグ変更のみ）
$C1/CED9 BEQ $0C    [$CEE7]      ;ゼロフラグが立っているとき[$CEE7]分岐
$C1/CEDB CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/CEDD BEQ $0C    [$CEEB]      ;ゼロフラグが立っているとき[$CEEB]分岐
$C1/CEDF CMP #$80                ;Aと$80を減算比較（ステータスレジスタ変更のみ）
$C1/CEE1 BEQ $0C    [$CEEF]      ;ゼロフラグが立っているとき[$CEEF]分岐
;向きが$C0（右上）
$C1/CEE3 LDA #$80                ;Aに$80をロード
$C1/CEE5 BRA $0A    [$CEF1]      ;フラグにかかわりなく常に分岐[$CEF1]
;向きが$00（右下）
$C1/CEE7 LDA #$40                ;Aに$40をロード
$C1/CEE9 BRA $06    [$CEF1]      ;フラグにかかわりなく常に分岐[$CEF1]
;向きが$40（左下）
$C1/CEEB LDA #$C0                ;Aに$C0をロード
$C1/CEED BRA $02    [$CEF1]      ;フラグにかかわりなく常に分岐[$CEF1]
;向きが$80（左上）
$C1/CEEF LDA #$00                ;Aに$00をロード
;分岐合流
$C1/CEF1 STA $0004,x[$00:1B24]   ;Aを[$00:1Bx4](敵の向き)に書き込み
$C1/CEF4 RTS                     ;サブルーチン戻り

$C1/CF0A LDA $0004,x             ;Aに[$00:1Bx4](敵の向き)をロード
$C1/CF0D EOR #$C0                ;Aと$C0で排他的論理和XOR
$C1/CF0F STA $0004,x             ;Aを[$00:1Bx4](敵の向き)に書き込み
$C1/CF12 RTS                     ;サブルーチン戻り

$C1/D025 LDA $000A,x             ;Aに[$00:1BxA](敵のX座標)をロード
$C1/D028 STA $0008,x             ;Aを[$00:1Bx8](敵のX座標・計算値)に書き込み
$C1/D02B LDA $000B,x             ;Aに[$00:1BxB](敵のY座標)をロード
$C1/D02E STA $0009,x             ;Aを[$00:1Bx9](敵のY座標・計算値)に書き込み
$C1/D031 RTS                     ;サブルーチン戻り
;
$C1/CC63 LDA $11    [$00:0311]   ;Aに[$00:0311]をロード
$C1/CC65 BIT #$01                ;Aと$01で論理積（ステータスフラグ変更のみ）
$C1/CC67 BEQ $09    [$CC72]      ;ゼロフラグが立っているとき[$CC72]分岐（吹き飛ばしなし）
;ゼロフラグOFF　吹き飛ばし処理へ
$C1/CC69 LDY $10    [$00:0310]   ;Yに[$00:0310]をロード
$C1/CC6B PHY                     ;Yをスタックへプッシュ
$C1/CC6C JSR $D052  [$C1:D052]   ;[$C1:D052]へジャンプ
;
$C1/D052 JSR $CF2F  [$C1:CF2F]   ;[$C1:CF2F]へジャンプ
;
$C1/CF2F LDY $78    [$00:0378]   ;Yに[$00:0378]をロード
$C1/CF31 CPY #$1C00              ;Yと$1C00を減算比較（ステータスレジスタ変更のみ）
$C1/CF34 BCS $1A    [$CF50]      ;キャリーフラグが立っているとき[$CF50]分岐
$C1/CF50 LDA $0018,y             ;Aに[$00:1C18+40n](技使用者のX座標)をロード
$C1/CF53 STA $14    [$00:0314]   ;Aを[$00:0314]に書き込み
$C1/CF55 LDA $0019,y             ;Aに[$00:1C19+40n](技使用者のY座標)をロード
$C1/CF58 STA $15    [$00:0315]   ;Aを[$00:0315]に書き込み
$C1/CF5A RTS                     ;サブルーチン戻り
;
$C1/D055 LDY $0002,x[$00:1B22]   ;Yに[$00:1Bx2]をロード
$C1/D058 LDA $14    [$00:0314]   ;Aに[$00:0314](技使用者のX座標)をロード
$C1/D05A CMP $000A,x             ;Aと[$00:1BxA](敵のX座標)を減算比較（ステータスレジスタ変更のみ）
$C1/D05D BCC $10    [$D06F]      ;キャリーフラグが立っていないとき[$D06F]分岐

;キャリーフラグON（技使用者のX座標≧敵のX座標)
$C1/D05F LDA $000A,x[$00:1B1A]   A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;Aに[$00:1BxA](敵のX座標)をロード
$C1/D062 CLC                     A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;キャリーフラグクリア
$C1/D063 ADC $0004,y[$00:1A04]   A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;A + [$00:1An4](敵種類nの横の幅)
$C1/D066 DEC A                   A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;Aをデクリメント -1
$C1/D067 CMP $14    [$00:0314]   A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;Aと[$00:0314](技使用者のX座標)を減算比較（ステータスレジスタ変更のみ）
$C1/D069 BCC $08    [$D073]      A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;キャリーフラグが立っていないとき[$D073]分岐
$C1/D06B LDA #$00                A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;Aに$00をロード
$C1/D06D BRA $06    [$D075]      A:0003 X:1B10 Y:1A00 P:eNvMxdIzc;フラグにかかわりなく常に分岐[$D075]★
;
;キャリーフラグOFF（技使用者のX座標＜敵のX座標)
$C1/D06F LDA #$01                A:0003 X:1B20 Y:1A00 P:eNvMxdIzc;Aに$01をロード
$C1/D071 BRA $02    [$D075]      A:0001 X:1B20 Y:1A00 P:envMxdIzc;フラグにかかわりなく常に分岐[$D075]★
;
;$C1/D069 キャリーフラグOFF（減算結果が負）
$C1/D073 LDA #$FF                A:0002 X:1B10 Y:1C00 P:envMxdIzC;Aに$FFをロード

;処理合流（★飛び先）
$C1/D075 STA $14    [$00:0314]   ;A($00/$FF/$01)を[$00:0314]に書き込み
$C1/D077 LDA $15    [$00:0315]   ;Aに[$00:0315](技使用者のY座標)をロード
$C1/D079 CMP $000B,x             ;Aと[$00:1BxB](敵のY座標)を減算比較（ステータスレジスタ変更のみ）
$C1/D07C BCC $10    [$D08E]      ;キャリーフラグが立っていないとき[$D08E]分岐
;キャリーフラグON（技使用者のY座標≧敵のY座標)
$C1/D07E LDA $000B,x             ;Aに[$00:1BxB](敵のY座標)をロード
$C1/D081 CLC                     ;キャリーフラグクリア
$C1/D082 ADC $0005,y[$00:1A05]   ;A + [$00:1An5](敵種類nの縦の幅)
$C1/D085 DEC A                   ;Aをデクリメント -1
$C1/D086 CMP $15    [$00:0315]   ;Aと[$00:0315](技使用者のY座標)を減算比較（ステータスレジスタ変更のみ）
$C1/D088 BCC $08    [$D092]      ;キャリーフラグが立っていないとき[$D092]分岐
;$C1/D088でキャリーフラグON
$C1/D08A LDA #$00                ;Aに$00をロード
$C1/D08C BRA $06    [$D094]      ;フラグにかかわりなく常に分岐[$D094]★
;$C1/D07CでキャリーフラグOFF（技使用者のY座標＜敵のY座標)
$C1/D08E LDA #$01                ;Aに$01をロード
$C1/D090 BRA $02    [$D094]      ;フラグにかかわりなく常に分岐[$D094]★
;$C1/D088でキャリーフラグOFF
$C1/D092 LDA #$FF                ;Aに$FFをロード
;★合流
$C1/D094 STA $15    [$00:0315]   ;Aを[$00:0315]に書き込み
$C1/D096 ORA $14    [$00:0314]   ;Aと[$00:0314]で論理和
$C1/D098 BEQ $5A    [$D0F4]      ;ゼロフラグが立っているとき[$D0F4]分岐

$C1/D09A LDA $000A,x             ;Aに[$00:1BxA](敵のX座標)をロード
$C1/D09D CLC                     ;キャリーフラグクリア
$C1/D09E ADC $14    [$00:0314]   ;A + [$00:0314]($00/$FF/$01)
$C1/D0A0 CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/D0A2 BCS $17    [$D0BB]      ;キャリーフラグが立っているとき[$D0BB]分岐
$C1/D0A4 STA $0008,x             ;Aを[$00:1Bx8](敵のX座標・計算値)に書き込み
;
$C1/D0A7 LDA $000B,x             ;Aに[$00:1BxB](敵のY座標)をロード
$C1/D0AA CLC                     ;キャリーフラグクリア
$C1/D0AB ADC $15    [$00:0315]   ;A + [$00:0315]($00/$FF/$01)
$C1/D0AD CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/D0AF BCS $26    [$D0D7]      ;キャリーフラグが立っているとき[$D0D7]分岐
$C1/D0B1 STA $0009,x             ;Aを[$00:1Bx9](敵のY座標・計算値)に書き込み
$C1/D0B4 JSR $41F2  [$C1:41F2]   ;[$C1:41F2]へジャンプ

;X座標飛び先がフィールド外の場合
$C1/D0BB LDA $000A,x             ;Aに[$00:1BxA](敵のX座標)をロード
$C1/D0BE STA $0008,x             ;Aを[$00:1Bx8](敵のX座標・計算値)に書き込み
$C1/D0C1 LDA $15    [$00:0315]   ;Aに[$00:0315]($00/$FF/$01)をロード
$C1/D0C3 BEQ $12    [$D0D7]      ;ゼロフラグが立っているとき[$D0D7]分岐
$C1/D0C5 CLC                     ;キャリーフラグクリア
$C1/D0C6 ADC $000B,x             ;A + [$00:1BxB](敵のY座標)
$C1/D0C9 CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/D0CB BCS $0A    [$D0D7]      ;キャリーフラグが立っているとき[$D0D7]分岐
$C1/D0CD STA $0009,x             ;Aを[$00:1Bx9](敵のY座標・計算値)に書き込み
$C1/D0D0 JSR $41F2  [$C1:41F2]   ;[$C1:41F2]へジャンプ
;
;Y座標飛び先がフィールド外の場合
$C1/D0D7 LDA $000B,x             ;Aに[$00:1BxB](敵のY座標)をロード
$C1/D0DA STA $0009,x             ;Aを[$00:1Bx9](敵のY座標・計算値)に書き込み
$C1/D0DD LDA $14    [$00:0314]   ;Aに[$00:0314]($00/$FF/$01)をロード
$C1/D0DF BEQ $13    [$D0F4]      ;ゼロフラグが立っているとき[$D0F4]分岐
$C1/D0E1 CLC                     ;キャリーフラグクリア
$C1/D0E2 ADC $000A,x             ;A + [$00:1BxA](敵のX座標)
$C1/D0E5 CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/D0E7 BCS $0B    [$D0F4]      ;キャリーフラグが立っているとき[$D0F4]分岐
$C1/D0E9 STA $0008,x             ;Aを[$00:1Bx8](敵のX座標・計算値)に書き込み
$C1/D0EC JSR $41F2  [$C1:41F2]   ;[$C1:41F2]へジャンプ
;
$C1/D0F4 RTS                     ;サブルーチン戻り

$C1/41F2 LDA #$10                ;Aに$10をロード
$C1/41F4 STA $13    [$00:0313]   ;Aを[$00:0313]に書き込み
$C1/41F6 LDA $0001,x[$00:1B21]   ;Aに[$00:1Bx1](敵番号x戦闘状態)をロード
$C1/41F9 CMP #$20                ;Aと$20を減算比較（ステータスレジスタ変更のみ）
;(戦闘状態$20:敵キャラをプレイヤーが操作)
$C1/41FB BNE $02    [$41FF]      ;ゼロフラグが立っていないとき[$41FF]分岐
$C1/41FF TXA                     ;Xレジスタの値をAレジスタに転送
$C1/4200 LSR A                   ;Aを論理右シフト　(/2)
$C1/4201 LSR A                   ;Aを論理右シフト　(/2)
$C1/4202 LSR A                   ;Aを論理右シフト　(/2)
$C1/4203 LSR A                   ;Aを論理右シフト　(/2)
$C1/4204 INC A                   ;Aをインクリメント +1
$C1/4205 ORA $13    [$00:0313]   ;Aと[$00:0313]で論理和
$C1/4207 STA $13    [$00:0313]   ;Aを[$00:0313]に書き込み
$C1/4209 JSR $4260  [$C1:4260]   ;[$C1:4260]へジャンプ
;
$C1/4260 LDY $0002,x             ;Yに[$00:1Bx2]をロード
$C1/4263 LDA $0004,y             ;Aに[$00:1Ax4](敵種類xの横の幅)をロード
$C1/4266 STA $0A    [$00:030A]   ;Aを[$00:030A]に書き込み
$C1/4268 LDA $0005,y             ;Aに[$00:1A05](敵種類xの縦の幅)をロード
$C1/426B STA $0B    [$00:030B]   ;Aを[$00:030B]に書き込み
$C1/426D STA $09    [$00:0309]   ;Aを[$00:0309]に書き込み
$C1/426F LDA #$08                ;Aに$08をロード
$C1/4271 SEC                     ;キャリーフラグON
$C1/4272 SBC $0A    [$00:030A]   ;A - [$00:030A](敵種類xの横の幅)
$C1/4274 STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/4276 RTS                     ;サブルーチン戻り

$C1/420C LDA $0008,x             ;Aに[$00:1Bx8](敵のX座標・計算値)をロード
$C1/420F CLC                     ;キャリーフラグクリア
$C1/4210 ADC $0A    [$00:030A]   ;A + [$00:030A](敵種類xの横の幅)
$C1/4212 CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/4214 BCS $47    [$425D]      ;キャリーフラグが立っているとき[$425D]分岐
;キャリーフラグOFF（横方向フィールド内）
$C1/4216 LDA $0009,x             ;Aに[$00:1Bx9](敵のY座標・計算値)をロード
$C1/4219 CLC                     ;キャリーフラグクリア
$C1/421A ADC $0B    [$00:030B]   ;A + [$00:030B](敵種類xの縦の幅)
$C1/421C CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/421E BCS $3D    [$425D]      ;キャリーフラグが立っているとき[$425D]分岐
;キャリーフラグOFF（縦方向フィールド内）
$C1/4220 LDA $0009,x             ;Aに[$00:1Bx9](敵のY座標・計算値)をロード
$C1/4223 ASL A                   ;Aを算術左シフト *2
$C1/4224 ASL A                   ;Aを算術左シフト *2
$C1/4225 ASL A                   ;Aを算術左シフト *2
$C1/4226 ADC $0008,x             ;A + [$00:1Bx8](敵のX座標・計算値)
$C1/4229 STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/422B STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
$C1/422D LDY $10    [$00:0310]   ;Yに[$00:0310]をロード

$C1/425D ORA #$FF                ;Aと$FFで論理和
$C1/425F RTS                     ;サブルーチン戻り

;敵の横幅確認ループ開始
$C1/422F LDA $0A    [$00:030A]   ;Aに[$00:030A](敵種類xの横の幅)をロード
$C1/4231 STA $08    [$00:0308]   ;A(敵種類xの横の幅)を[$00:0308]に書き込み
;1マスずつ確認ループ開始
$C1/4233 LDA $04C8,y[$00:04D5]   ;Aに[$04C8,y](戦闘フィールドマスの状態)をロード
$C1/4236 INY                     ;Yをインクリメント +1
$C1/4237 AND #$1F                ;Aと$1Fで論理積
$C1/4239 CMP $13    [$00:0313]   ;Aと[$00:0313]を減算比較（ステータスレジスタ変更のみ）
$C1/423B BEQ $04    [$4241]      ;ゼロフラグが立っているとき[$4241]分岐
;ゼロフラグOFF
$C1/423D BIT #$0F                ;Aと$0Fで論理積（ステータスフラグ変更のみ）
$C1/423F BNE $1C    [$425D]      ;ゼロフラグが立っていないとき[$425D]分岐
;ゼロフラグON
$C1/4241 DEC $08    [$00:0308]   ;[$00:0308](敵種類xの横の幅)をデクリメント -1
$C1/4243 BNE $EE    [$4233]      ;ゼロフラグが立っていないとき[$4233]分岐
;1マスずつ確認ループここまで
$C1/4245 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/4247 TYA                     ;Yレジスタの値をAレジスタに転送
$C1/4248 ADC $12    [$00:0312]   ;A + [$00:0312]($08-横幅)
$C1/424A AND #$00FF              ;Aと$00FFで論理積
$C1/424D TAY                     ;Aの値をYレジスタに転送
$C1/424E SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/4250 DEC $09    [$00:0309]   ;[$00:0309](敵の縦幅)をデクリメント -1
$C1/4252 BNE $DB    [$422F]      ;ゼロフラグが立っていないとき[$422F]分岐
;敵の横幅確認ループここまで
$C1/4254 JSR $4277  [$C1:4277]   ;[$C1:4277]へジャンプ

$C1/4277 LDA $000B,x             ;Aに[$00:1BxB](敵のY座標)をロード
$C1/427A ASL A                   ;Aを算術左シフト *2
$C1/427B ASL A                   ;Aを算術左シフト *2
$C1/427C ASL A                   ;Aを算術左シフト *2
$C1/427D ADC $000A,x             ;A + [$00:1BxA](敵のX座標)
$C1/4280 STA $14    [$00:0314]   ;A(敵のY座標・X座標)を[$00:0314]に書き込み
$C1/4282 STZ $15    [$00:0315]   ;[$00:0315]に$00を書き込み
$C1/4284 LDY $14    [$00:0314]   ;Yに[$00:0314]をロード
$C1/4286 LDA $0B    [$00:030B]   ;Aに[$00:030B](敵種類xの縦の幅)をロード
$C1/4288 STA $09    [$00:0309]   ;A(敵種類xの縦の幅)を[$00:0309]に書き込み
;敵の横幅確認ループ開始
$C1/428A LDA $0A    [$00:030A]   ;Aに[$00:030A](敵種類xの横の幅)をロード
$C1/428C STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;1マスずつ確認ループ
$C1/428E LDA $04C8,y             ;Aに[$04C8,y](戦闘フィールドマスの状態)をロード
$C1/4291 AND #$E0                ;Aと$E0で論理積
$C1/4293 STA $04C8,y             ;Aを[$04C8,y](戦闘フィールドマスの状態)に書き込み
$C1/4296 INY                     ;Yをインクリメント +1
$C1/4297 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/4299 BNE $F3    [$428E]      ;ゼロフラグが立っていないとき[$428E]分岐
;1マスずつ確認ループここまで
$C1/429B REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/429D TYA                     ;Yレジスタの値をAレジスタに転送
$C1/429E ADC $12    [$00:0312]   ;A + [$00:0312]
$C1/42A0 AND #$00FF              ;Aと$00FFで論理積
$C1/42A3 TAY                     ;Aの値をYレジスタに転送
$C1/42A4 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/42A6 DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/42A8 BNE $E0    [$428A]      ;ゼロフラグが立っていないとき[$428A]分岐
;敵の横幅確認ループ処理ここまで
$C1/42AA RTS                     ;サブルーチン戻り

$C1/4257 JSR $42AB  [$C1:42AB]   ;[$C1:42AB]へジャンプ
;
$C1/42AB LDA $0B    [$00:030B]   ;Aに[$00:030B](敵種類xの縦の幅)をロード
$C1/42AD STA $09    [$00:0309]   ;A(敵種類xの縦の幅)を[$00:0309]に書き込み
$C1/42AF LDY $10    [$00:0310]   ;Yに[$00:0310](敵のY座標・X座標)をロード
;敵の横幅確認ループ開始
$C1/42B1 LDA $0A    [$00:030A]   ;Aに[$00:030A](敵種類xの横の幅)をロード
$C1/42B3 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;1マスずつ確認ループ
$C1/42B5 LDA $04C8,y             ;Aに[$04C8,y](戦闘フィールドマスの状態)をロード
$C1/42B8 AND #$E0                ;Aと$E0で論理積
$C1/42BA ORA $13    [$00:0313]   ;Aと[$00:0313]（飛ばされた敵自身の値$11～$1F）で論理和
$C1/42BC STA $04C8,y[$00:04D5]   ;Aを[$04C8,y](戦闘フィールドマスの状態)に書き込み
$C1/42BF INY                     ;Yをインクリメント +1
$C1/42C0 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/42C2 BNE $F1    [$42B5]      ;ゼロフラグが立っていないとき[$42B5]分岐
;1マスずつ確認ループここまで
$C1/42C4 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/42C6 TYA                     ;Yレジスタの値をAレジスタに転送
$C1/42C7 ADC $12    [$00:0312]   ;A + [$00:0312]
$C1/42C9 AND #$00FF              ;Aと$00FFで論理積
$C1/42CC TAY                     ;Aの値をYレジスタに転送
$C1/42CD SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/42CF DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/42D1 BNE $DE    [$42B1]      ;ゼロフラグが立っていないとき[$42B1]分岐
;敵の横幅確認ループ処理ここまで
$C1/42D3 RTS                     ;サブルーチン戻り

$C1/437F LDA $0008,x             ;Aに[$00:1Bx8](敵のX座標・計算値)をロード
$C1/4382 STA $000A,x             ;Aを[$00:1BxA](敵のX座標)に書き込み
$C1/4385 JSR $456B               ;[$C1:456B]へジャンプ
（中略）
$C1/438B LDA $0009,x             ;Aに[$00:1Bx9](敵のY座標・計算値)をロード
$C1/438E STA $000B,x             ;Aを[$00:1BxB](敵のY座標)に書き込み
$C1/4391 JSR $4577               ;[$C1:4577]へジャンプ