TOP > プログラミング関係解説＆調査 > 反撃

$C1/E94B PHX                     ;Xをスタックにプッシュ
$C1/E94C STX $14    [$00:0314]   ;Xを[$00:0314](1C?0)に書き込み
$C1/E94E LDY $0002,x             ;Yに[$0002,x](1C?0+2)をロード
$C1/E951 LDX $0004,y             ;Xに[$0004,y](シナリオ別キャラデータ開始位置+4)をロード
;シナリオ別キャラデータ開始位置+4は味方キャラデータ開始位置アドレス
$C1/E954 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/E956 LDA $000D,y             ;Aに[$000D,y+1][$000D,y]をロード
;[$000D,y+1][$000D,y]はシナリオ別キャラデータ開始位置+$D　習得技2バイト
$C1/E959 STA $10    [$00:0310]   ;Aを[$00:0311][$00:0310](習得技2バイト)に書き込み
$C1/E95B SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/E95D LDY $14    [$00:0314]   ;Yに[$00:0314](1C?0)をロード
$C1/E95F LDA #$10                ;Aに$10をロード
$C1/E961 STA $08    [$00:0308]   ;A($10)を[$00:0308]に書き込み
$C1/E963 STA $09    [$00:0309]   ;A($10)を[$00:0309]に書き込み
$C1/E965 LDA $D50005,x           ;Aに[$D50005,x](キャラデータ05+x/技ID)をロード
$C1/E969 STA $12    [$00:0312]   ;A(キャラデータ05)を[$00:0312]に書き込み
$C1/E96B BNE $06    [$E973]      ;ゼロフラグが立っていないとき[$E973]分岐
$C1/E973 STX $14    [$00:0314]   ;X(シナリオ別キャラデータ開始位置+4)を[$00:0314]に書き込み
$C1/E975 JSR $3D93  [$C1:3D93]   ;[$C1:3D93]へジャンプ
;
;$7E:E9??～へのコピー処理ループここから
;ループ回数は[$00:0308]と[$00:0309]（$10=16回）
;（$C1:3D93～$C1/3DAFのアドレス計算省略）
$C1/E978 LDA $D50008,x           ;Aに[$D50008,x](技データ08)をロード
$C1/E97C STA $13    [$00:0313]   ;A(技データ08)を[$00:0313]に書き込み
$C1/E97E LDA $D5000D,x           ;Aに[$D5000D,x](技データ13)をロード
$C1/E982 STA $18    [$00:0318]   ;A(技データ13)を[$00:0318]に書き込み
$C1/E984 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E985 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E986 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E987 AND #$01                ;Aと$01で論理積(反撃専用時のみ$01、他は$00)
$C1/E989 STA $17    [$00:0317]   ;Aを[$00:0317]に書き込み
$C1/E98B LDA $D5000F,x           ;Aに[$D5000F,x](技データ15)をロード
$C1/E98F AND #$FE                ;Aと$FEで論理積(技データ15/下1ビットなし)
$C1/E991 ORA $17    [$00:0317]   ;Aと[$00:0317]で論理和
$C1/E993 STA $17    [$00:0317]   ;A(技データ15/下1ビットなし+反撃専用の値)を[$00:0317]に書き込み
$C1/E995 LDA $D5000E,x           ;Aに[$D5000E,x](技データ14)をロード
$C1/E999 STA $16    [$00:0316]   ;A(技データ14)を[$00:0316]に書き込み
$C1/E99B TYX                     ;Yレジスタの値をXレジスタに転送
$C1/E99C LSR $11    [$00:0311]   ;[$00:0311]を論理右シフト　(/2)
$C1/E99E ROR $10    [$00:0310]   ;[$00:0310]をキャリーフラグを含めた9bitで右ローテート
$C1/E9A0 BCS $04    [$E9A6]      ;キャリーフラグが立っているとき[$E9A6]分岐
$C1/E9A6 LDA $12    [$00:0312]   ;Aに[$00:0312](キャラデータ05+x/技ID)をロード
$C1/E9A8 STA $7ECD00,x           ;Aを[$7ECD00,x]($7E:E900+x)に書き込み
$C1/E9AC LDA $13    [$00:0313]   ;Aに[$00:0313](技データ08)をロード
$C1/E9AE STA $7ECD10,x           ;Aを[$7E:E910]($7E:E910+x)に書き込み
$C1/E9B2 LDA $16    [$00:0316]   ;Aに[$00:0316](技データ14)をロード
$C1/E9B4 STA $7ECD20,x           ;Aを[$7E:E920]($7E:E920+x)に書き込み
$C1/E9B8 LDA $17    [$00:0317]   ;Aに[$00:0317](技データ15/下1ビットなし+反撃専用の値)をロード
$C1/E9BA STA $7ECD30,x           ;Aを[$7E:E930]($7E:E930+x)に書き込み
$C1/E9BE LDA $18    [$00:0318]   ;Aに[$00:0318](技データ13)をロード
$C1/E9C0 STA $7ECE10,x           ;Aを[$7E:EA10]($7E:EA10+x)に書き込み
$C1/E9C4 LDX $14    [$00:0314]   ;Xに[$00:0314]をロード
$C1/E9C6 INY                     ;Yをインクリメント +1
$C1/E9C7 DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/E9C9 INX                     ;Xをインクリメント +1
$C1/E9CA DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/E9CC BNE $97    [$E965]      ;ゼロフラグが立っていないとき[$E965]分岐

;$C1/E9CCでゼロフラグON
$C1/E9CE LDA $09    [$00:0309]   ;Aに[$00:0309]をロード
$C1/E9D0 BNE $02    [$E9D4]      ;ゼロフラグが立っていないとき[$E9D4]分岐
$C1/E9D2 BRA $18    [$E9EC]      ;フラグにかかわりなく常に分岐[$E9EC]
$C1/E9D4 TYX                     ;Yレジスタの値をXレジスタに転送
;未習得技分は00で埋めるループ処理
$C1/E9D5 LDA #$00                ;Aに$00をロード
$C1/E9D7 STA $7ECD00,x           ;A($00)を[$7ECD00,x]に書き込み
$C1/E9DB STA $7ECD10,x           ;A($00)を[$7ECD10,x]に書き込み
$C1/E9DF STA $7ECD20,x           ;A($00)を[$7ECD20,x]に書き込み
$C1/E9E3 STA $7ECD30,x           ;A($00)を[$7ECD30,x]に書き込み
$C1/E9E7 INX                     ;Xをインクリメント +1
$C1/E9E8 DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/E9EA BNE $E9    [$E9D5]      ;ゼロフラグが立っていないとき[$E9D5]分岐
;未習得技分は00で埋めるループ処理ここまで
$C1/E9EC PLX                     ;Xレジスタにスタックからプル
$C1/E9ED LDY $0002,x             ;Yに[$0002,x]をロード
$C1/E9F0 LDA $000C,y             ;Aに[$000C,y](ひとつ前の技)をロード
$C1/E9F3 BNE $07    [$E9FC]      ;ゼロフラグが立っていないとき[$E9FC]分岐
$C1/E9F5 LDA $7ECD00,x           ;Aに[$7ECD00,x](技LV00の技ID)をロード
$C1/E9F9 STA $000C,y             ;Aを[$000C,y](ひとつ前の技)に書き込み
$C1/E9FC RTS                     ;サブルーチン戻り

;$C1/E9CCでゼロフラグOFF
$C1/E965 LDA $D50005,x           ;Aに[$D50005,x](キャラデータ05+x/技ID)をロード
$C1/E969 STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/E96B BNE $06    [$E973]      ;ゼロフラグが立っていないとき[$E973]分岐
$C1/E973 STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/E975 JSR $3D93  [$C1:3D93]   ;[$C1:3D93]へジャンプ
;ループここまで

$C1/7852 STX $68    [$00:0368]  ;Xを[$00:0368]に書き込み
$C1/7854 PHB                    ;DBレジスタをスタックにプッシュ
$C1/7855 LDA #$7E               ;Aに$7Eをロード
$C1/7857 PHA                    ;Aをスタックにプッシュ
$C1/7858 PLB                    ;DBレジスタに値をプル
$C1/7859 LDY #$9010             ;Yに$9010をロード
;
;技データ00～34をコピーするループ処理
$C1/785C LDA $D50000,x           ;Aに[$D50000,x]をロード
$C1/7860 STA $0000,y             ;Aを[$7E:9010+n]に書き込み
$C1/7863 INX                     ;Xをインクリメント +1
$C1/7864 INY                     ;Yをインクリメント +1
$C1/7865 CPY #$9029              ;Yと$9029を減算比較（ステータスレジスタのみ変更）
$C1/7868 BNE $F2    [$785C]      ;ゼロフラグが立っていないとき[$785C]分岐
;ループここまで
;
$C1/786A PLB                     ;DBレジスタに値をプル
$C1/786B RTS                     ;サブルーチン戻り

$C1/A312 LDX $86    [$00:0386]   ;Xに[$00:0386]をロード
$C1/A314 BEQ $03    [$A319]      ;ゼロフラグが立っているとき[$A319]分岐
$C1/A319 BRL $FE10  [$A12C]      ;フラグにかかわりなく常に分岐[$A12C]
$C1/A12C LDX #$1C00              ;Xに$1C00をロード
$C1/A12F LDA $003B,x[$00:1C3B]   ;Aに[$00:1C3B](味方キャラ1 ヒット数)をロード
$C1/A132 STA $7ECE20,x[$7E:EA20] ;Aを[$7E:EA20]に書き込み
$C1/A136 LDX #$1C40              ;Xに$1C40をロード
$C1/A139 LDA $003B,x[$00:1C7B]   ;Aに[$00:1C7B](味方キャラ2 ヒット数)をロード
$C1/A13C STA $7ECE20,x[$7E:EA60] ;Aを[$7E:EA60]に書き込み
$C1/A140 LDX #$1C80              ;Xに$1C80をロード
$C1/A143 LDA $003B,x[$00:1CBB]   ;Aに[$00:1CBB](味方キャラ3 ヒット数)をロード
$C1/A146 STA $7ECE20,x[$7E:EAA0] ;Aを[$7E:EAA0]に書き込み
$C1/A14A LDX #$1CC0              ;Xに$1CC0をロード
$C1/A14D LDA $003B,x[$00:1CFB]   ;Aに[$00:1CFB](味方キャラ4 ヒット数)をロード
$C1/A150 STA $7ECE20,x[$7E:EAE0] ;Aを[$7E:EAE0]に書き込み
$C1/A154 LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/A156 STX $A8    [$00:03A8]   ;Xを[$00:03A8]に書き込み
$C1/A158 LDA $7E901D[$7E:901D]   ;Aに[$7E:901D](敵の技データ13)をロード
$C1/A15C BMI $1D    [$A17B]      ;ネガティブフラグが立っているとき[$A17B]分岐
$C1/A15E INC A                   ;Aをインクリメント +1
$C1/A15F AND #$0F                ;Aと$0Fで論理積
$C1/A161 BEQ $18    [$A17B]      ;ゼロフラグが立っているとき[$A17B]分岐

$C1/A163 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
$C1/A165 STZ $09    [$00:0309]   ;[$00:0309]に$00を書き込み
$C1/A167 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/A169 LDA #$0000              ;Aに$0000をロード
$C1/A16C SEC                     ;キャリーフラグON
;
;技データ13の下4ビット+1の回数分ループ処理
$C1/A16D ROR A                   ;Aをキャリーフラグを含めた17bitで右ローテート
$C1/A16E DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/A170 BNE $FB    [$A16D]      ;ゼロフラグが立っていないとき[$A16D]分岐
;ループここまで
;
$C1/A172 XBA                     ;Aレジスタの上位バイトと下位バイトを交換
$C1/A173 STA $86    [$00:0386]   ;Aを[$00:0387][$00:0386]に書き込み
$C1/A175 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/A177 LDA #$00                ;Aに$00をロード
$C1/A179 BRA $49    [$A1C4]      ;フラグにかかわりなく常に分岐[$A1C4]

$C1/A1C4 STA $8D    [$00:038D]   ;Aを[$00:038D]に書き込み
$C1/A1C6 STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/A1C8 LDA #$1C                ;Aに$1Cをロード
$C1/A1CA STA $11    [$00:0311]   ;A($1C)を[$00:0311]に書き込み
$C1/A1CC LDX $5A    [$00:035A]   ;Xに[$00:035A]をロード
$C1/A1CE PHX                     ;Xをスタックにプッシュ
$C1/A1CF LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/A1D1 STX $5A    [$00:035A]   ;Xを[$00:035A]に書き込み
$C1/A1D3 LDA $0001,x[$00:1C01]   ;Aに[$00:1C01]（味方キャラ1の戦闘状態）をロード
$C1/A1D6 BIT #$40                ;Aと$40で論理積（ステータスフラグ変更のみ）
;戦闘状態$40:敵操作状態
$C1/A1D8 BEQ $22    [$A1FC]      ;ゼロフラグが立っているとき[$A1FC]分岐
$C1/A1DA LDA $7ECE20,x[$7E:EA20] ;Aに[$7E:EA20]（被ダメージのヒット数）をロード
$C1/A1DE BEQ $1C    [$A1FC]      ;ゼロフラグが立っているとき[$A1FC]分岐
;1ヒット以上の時、反撃判定に続く

;習得技で反撃できるか確認ループ処理
$C1/A1E0 LDA $7ECD00,x           ;Aに[$7E:E900+n]をロード
$C1/A1E4 BEQ $10    [$A1F6]      ;ゼロフラグが立っているとき[$A1F6]分岐
$C1/A1E6 LDA $7ECD20,x           ;Aに[$7E:E920+n]をロード
$C1/A1EA AND $86    [$00:0386]   ;Aと[$00:0386]で論理積
$C1/A1EC BNE $14    [$A202]      ;ゼロフラグが立っていないとき[$A202]分岐
$C1/A1EE LDA $7ECD30,x           ;Aに[$7E:E930+n]をロード
$C1/A1F2 AND $87    [$00:0387]   ;Aと[$00:0387]で論理積
$C1/A1F4 BNE $0C    [$A202]      ;ゼロフラグが立っていないとき[$A202]分岐
$C1/A1F6 INX                     ;Xをインクリメント +1
$C1/A1F7 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/A1F8 AND #$0F                ;Aと$0Fで論理積
$C1/A1FA BNE $E4    [$A1E0]      ;ゼロフラグが立っていないとき[$A1E0]分岐
;ループ処理ここまで
;
$C1/A1FC PLX                     ;Xレジスタにスタックからプル
$C1/A1FD STX $5A    [$00:035A]   ;Xを[$00:035A]に書き込み
$C1/A1FF BRL $FFBB  [$A1BD]      ;フラグにかかわりなく常に分岐[$A1BD]
$C1/A1BD LDA $8D    [$00:038D]   ;Aに[$00:038D]をロード
$C1/A1BF CLC                     ;キャリーフラグクリア
$C1/A1C0 ADC #$40                ;A + $40
$C1/A1C2 BEQ $B7    [$A17B]      ;ゼロフラグが立っているとき[$A17B]分岐
$C1/A1C4 STA $8D    [$00:038D]   ;Aを[$00:038D]に書き込み
;（味方キャラ2の処理へ）

;[$A202]分岐
$C1/A202 STX $0B    [$00:030B]   ;Xを[$00:030B]に書き込み
$C1/A204 LDA $7ECD00,x           ;Aに[$7E:E900+n](技ID)をロード
$C1/A208 STA $6A    [$00:036A]   ;Aを[$00:036A]に書き込み
$C1/A20A LDA $7ECD10,x           ;Aに[$7E:E910+n](技データ08)をロード
$C1/A20E LDX $5A                 ;Xに[$00:035A]をロード
$C1/A210 AND $0039,x[$00:1C39]   ;Aと[$00:1C39](味方キャラ1状態異常)で論理積
$C1/A213 BEQ $04    [$A219]      ;ゼロフラグが立っているとき[$A219]分岐
;ゼロフラグOFF
$C1/A215 LDX $0B    [$00:030B]   ;Xに[$00:030B]をロード
$C1/A217 BRA $DD    [$A1F6]      ;フラグにかかわりなく常に分岐[$A1F6]
;ゼロフラグON
$C1/A219 LDA $6A    [$00:036A]   ;Aに[$00:036A]をロード
$C1/A21B JSR $3D7A  [$C1:3D7A]   ;[$C1:3D7A]へジャンプ

$C1/A227 JSR $723A  [$C1:723A]   ;[$C1:723A]へジャンプ
;
$C1/723A LDX $68    [$00:0368]   ;Xに[$00:0368]をロード
$C1/723C LDA $D5000D,x           ;Aに[$D5000D,x]（反撃技の技データ13）をロード
$C1/7240 BIT #$20                ;Aと$20で論理積（ステータスフラグ変更のみ）
$C1/7242 BEQ $24    [$7268]      ;ゼロフラグが立っているとき[$7268]分岐
;ゼロフラグOFF（周囲攻撃）
$C1/7244 LDX $5A    [$00:035A]   ;Xに[$00:035A]をロード
$C1/7246 LDA $0028,x             ;Aに[0028,x]をロード
$C1/7249 PHA                     ;Aをスタックにプッシュ
$C1/724A LDA $0029,x             ;Aに[$0029,x]をロード
$C1/724D PHA                     ;Aをスタックにプッシュ
$C1/724E LDA $0018,x             ;Aに[$0018,x]をロード
$C1/7251 STA $0028,x             ;Aを[$0028,x]に書き込み
$C1/7254 LDA $0019,x             ;Aに[$0019,x]をロード
$C1/7257 STA $0029,x             ;Aを[$0029,x]に書き込み
$C1/725A JSR $380E  [$C1:380E]   ;[$C1:380E]へジャンプ
;ゼロフラグON（周囲攻撃以外）
$C1/7268 JSR $3B32  [$C1:3B32]   ;[$C1:3B32]へジャンプ

$C1/3B32 LDX $68    [$00:0368]   ;Xに[$00:0368]をロード
$C1/3B34 LDA $D50006,x           ;Aに[$D50006,x](技データ06)をロード
$C1/3B38 STA $12    [$00:0312]   ;A(技データ06)を[$00:0312]に書き込み
$C1/3B3A LDA $D50007,x           ;Aに[$D50007,x](技データ07)をロード
$C1/3B3E STA $13    [$00:0313]   ;A(技データ07)を[$00:0313]に書き込み
$C1/3B40 LDY $5A    [$00:035A]   ;Yに[$00:035A]をロード
$C1/3B42 LDA $0019,y[$00:1C59]   ;Aに[$00:1C19](味方キャラ1のY座標)をロード
$C1/3B45 ASL A                   ;Aを算術左シフト *2
$C1/3B46 ASL A                   ;Aを算術左シフト *2
$C1/3B47 ASL A                   ;Aを算術左シフト *2
$C1/3B48 ADC $0018,y[$00:1C58]   ;A + [$00:1C18](味方キャラのX座標)
$C1/3B4B REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/3B4D AND #$00FF              ;Aと$00FFで論理積
$C1/3B50 STA $10    [$00:0310]   ;Aを[$00:0311][$00:0310]に書き込み

$C1/3B52 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/3B54 LDA $D5000D,x           ;Aに[$D5000D,x](技データ13)をロード
$C1/3B58 BIT #$20                ;Aと$20で論理積（ステータスフラグ変更のみ）
$C1/3B5A BNE $25    [$3B81]      ;ゼロフラグが立っていないとき[$3B81]分岐
$C1/3B5C LDA $D50007,x           ;Aに[$D50007,x](技データ07)をロード
$C1/3B60 BIT #$0F                ;Aと$0Fで論理積（ステータスフラグ変更のみ）
$C1/3B62 BEQ $15    [$3B79]      ;ゼロフラグが立っているとき[$3B79]分岐
$C1/3B64 JSR $3B8E  [$C1:3B8E]   ;[$C1:3B8E]へジャンプ
;$C1/3B62　ゼロフラグON
$C1/3B79 LDX $10    [$00:0310]   ;Xに[$00:0311][$00:0310]をロード
$C1/3B7B LDA #$F0                ;Aに$F0をロード
$C1/3B7D STA $0488,x[$00:2FF7]   ;Aを[$00:2FF7]に書き込み
$C1/3B80 RTS                     ;サブルーチン戻り

;$C1/3B62　ゼロフラグOFF→$C1:3B8E
$C1/3B8E LDX $68    [$00:0368]   ;Xに[$00:0368]をロード
$C1/3B90 LDA $D5000D,x           ;Aに[$D5000D,x](技データ13)をロード
$C1/3B94 BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）
$C1/3B96 BEQ $18    [$3BB0]      ;ゼロフラグが立っているとき[$3BB0]分岐
;ゼロフラグOFF
$C1/3B98 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/3B9A CPY #$1C00              ;Yと$1C00を減算比較（ステータスレジスタのみ変更）
$C1/3B9D BCS $03    [$3BA2]      ;キャリーフラグが立っているとき[$3BA2]分岐
$C1/3B9F JSR $3AB2  [$C1:3AB2]   ;[$C1:3AB2]へジャンプ
$C1/3BA2 LDA #$F0                ;Aに$F0をロード
$C1/3BA4 STA $0488,x[$00:2FF7]   ;Aを[$0488,x]に書き込み
$C1/3BA7 LDA $6B    [$00:036B]   ;Aに[$00:036B]をロード
$C1/3BA9 BEQ $05    [$3BB0]      ;ゼロフラグが立っているとき[$3BB0]分岐
$C1/3BAB LDA #$00                ;Aに$00をロード
$C1/3BAD JSR $3CB3  [$C1:3CB3]   ;[$C1:3CB3]へジャンプ
;ゼロフラグON
$C1/3BB0 RTS                     ;サブルーチン戻り

;反撃キャラ向き判定
$C1/3B67 LDA $001D,y[$00:1C1D]   ;Aに[$00:1C1D](味方キャラ1の向き)をロード
$C1/3B6A AND #$03                ;Aと$03で論理積
$C1/3B6C BEQ $43    [$3BB1]      ;ゼロフラグが立っているとき[$3BB1]分岐
$C1/3B6E CMP #$01                ;Aと$01を減算比較（ステータスレジスタ変更のみ）
$C1/3B70 BEQ $58    [$3BCA]      ;ゼロフラグが立っているとき[$3BCA]分岐
$C1/3B72 CMP #$02                ;Aと$02を減算比較（ステータスレジスタ変更のみ）
$C1/3B74 BEQ $6D    [$3BE3]      ;ゼロフラグが立っているとき[$3BE3]分岐
$C1/3B76 BRL $0083  [$3BFC]      ;フラグにかかわりなく常に分岐[$3BFC]
;キャラの向き　右下($00)
$C1/3BB1 JSR $3C1A  [$C1:3C1A]   ;[$C1:3C1A]へジャンプ
;キャラの向き　左下($01)
$C1/3BCA JSR $3C24  [$C1:3C24]   ;[$C1:3C24]へジャンプ
;キャラの向き　右上($02)
$C1/3BE3 JSR $3C38  [$C1:3C38]   ;[$C1:3C38]へジャンプ
;キャラの向き　左上($03)
$C1/3BFC JSR $3C2E  [$C1:3C2E]   ;[$C1:3C2E]へジャンプ

;キャラの向き　右下($00)
$C1/3C1A LDX #$0009              ;Xに$0009をロード
$C1/3C1D BRA $1E    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
;キャラの向き　左下($01)
$C1/3C24 LDX #$0007              ;Xに$0007をロード
$C1/3C27 BRA $14    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
;キャラの向き　左上($03)
$C1/3C2E LDX #$FFF7              ;Xに$FFF7をロード
$C1/3C31 BRA $0A    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
;キャラの向き　右上($02)
$C1/3C38 LDX #$FFF9              ;Xに$FFF9をロード
$C1/3C3B BRA $00    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
;分岐合流
$C1/3C3D LSR $12    [$00:0312]   ;[$00:0312]を論理右シフト　(/2)
$C1/3C3F BCS $01    [$3C42]      ;キャリーフラグが立っているとき[$3C42]分岐
$C1/3C41 RTS                     ;サブルーチン戻り
$C1/3C42 STZ $08    [$00:0308]   ;[$00:0308]に$00を書き込み
$C1/3C44 STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/3C46 LDX $10    [$00:0310]   ;Xに[$00:0311][$00:0310](キャラ座標)をロード
$C1/3C48 JSR $3C61  [$C1:3C61]   ;[$C1:3C61]へジャンプ

$C1/3C61 LDA $08    [$00:0308]   ;Aに[$00:0308]($00)をロード
$C1/3C63 BEQ $4B    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3CB0 INC $08    [$00:0308]   ;[$00:0308]をインクリメント +1($01)
$C1/3CB2 RTS                     ;サブルーチン戻り

;ループ開始
$C1/3C4B REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/3C4D TXA                     ;Xレジスタの値(キャラ座標)をAレジスタに転送
$C1/3C4E ADC $14    [$00:0314]   ;A(キャラ座標) + [$00:0315][$00:0314](向き)
$C1/3C50 TAX                     ;Aレジスタの値をXレジスタに転送
$C1/3C51 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/3C53 AND #$07                ;Aと$07で論理積
$C1/3C55 CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/3C57 BEQ $07    [$3C60]      ;ゼロフラグが立っているとき[$3C60]分岐
$C1/3C59 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/3C5A AND #$38                ;Aと$38で論理積
$C1/3C5C CMP #$38                ;Aと$38を減算比較（ステータスレジスタ変更のみ）
$C1/3C5E BNE $E8    [$3C48]      ;ゼロフラグが立っていないとき[$3C48]分岐
;ゼロフラグON
$C1/3C60 RTS                     ;サブルーチン戻り→ループを抜ける
;ゼロフラグOFF
$C1/3C48 JSR $3C61  [$C1:3C61]   ;[$C1:3C61]へジャンプ

$C1/3C61 LDA $08    [$00:0308]   ;Aに[$00:0308]（ループ回数）をロード
$C1/3C63 BEQ $4B    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3C65 CMP #$01                ;Aと$01を減算比較（ステータスレジスタ変更のみ）
$C1/3C67 BEQ $10    [$3C79]      ;ゼロフラグが立っているとき[$3C79]分岐
$C1/3C69 CMP #$02                ;Aと$02を減算比較（ステータスレジスタ変更のみ）
$C1/3C6B BEQ $14    [$3C81]      ;ゼロフラグが立っているとき[$3C81]分岐
$C1/3C6D CMP #$03                ;Aと$03を減算比較（ステータスレジスタ変更のみ）
$C1/3C6F BEQ $18    [$3C89]      ;ゼロフラグが立っているとき[$3C89]分岐
$C1/3C71 LDA $13    [$00:0313]   ;Aに[$00:0313](技データ07)をロード
$C1/3C73 BIT #$08                ;Aと$08で論理積（ステータスフラグ変更のみ）
$C1/3C75 BEQ $39    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3C77 BRA $18    [$3C91]      ;フラグにかかわりなく常に分岐[$3C91]

;ループ1回目のジャンプ先
$C1/3C79 LDA $13    [$00:0313]   ;Aに[$00:0313](技データ07)をロード
$C1/3C7B BIT #$01                ;Aと$01で論理積（ステータスフラグ変更のみ）
$C1/3C7D BEQ $31    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3C7F BRA $10    [$3C91]      ;フラグにかかわりなく常に分岐[$3C91]
;ループ2回目のジャンプ先
$C1/3C81 LDA $13    [$00:0313]   ;Aに[$00:0313](技データ07)をロード
$C1/3C83 BIT #$02                ;Aと$02で論理積（ステータスフラグ変更のみ）
$C1/3C85 BEQ $29    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3C87 BRA $08    [$3C91]      ;フラグにかかわりなく常に分岐[$3C91]
;ループ3回目のジャンプ先
$C1/3C89 LDA $13    [$00:0313]   ;Aに[$00:0313](技データ07)をロード
$C1/3C8B BIT #$04                ;Aと$04で論理積（ステータスフラグ変更のみ）
$C1/3C8D BEQ $21    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3C8F BRA $00    [$3C91]      ;フラグにかかわりなく常に分岐[$3C91]

$C1/3C91 LDA #$F0                ;Aに$F0をロード
$C1/3C93 STA $0488,x             ;Aを[$0488,x](戦闘フィールドマスの計算用アドレス)に書き込み
$C1/3C96 JSR $3CE7  [$C1:3CE7]   ;[$C1:3CE7]へジャンプ
;
$C1/3CE7 CPY #$1C00              ;Yと$1C00を減算比較（ステータスレジスタのみ変更）
$C1/3CEA BCC $13    [$3CFF]      ;キャリーフラグが立っていないとき[$3CFF]分岐
;（敵が出す反撃だとここで$3CFF分岐）
$C1/3CEC TXA                     ;Xレジスタの値をAレジスタに転送
$C1/3CED CMP $0D    [$00:030D]   ;Aと[$00:030D]を減算比較（ステータスレジスタ変更のみ）
$C1/3CEF BNE $0D    [$3CFE]      ;ゼロフラグが立っていないとき[$3CFE]分岐
;ゼロフラグON
$C1/3CF1 LDA $0E    [$00:030E]   ;Aに[$00:030E]をロード
$C1/3CF3 BMI $1F    [$3D14]      ;ネガティブフラグが立っているとき[$3D14]分岐
$C1/3CF5 BCC $1D    [$3D14]      ;キャリーフラグが立っていないとき[$3D14]分岐
$C1/3CF7 LDA $001D,y[$00:1C5D]   ;Aに[$00:1C5D]（キャラ1の向き）をロード
$C1/3CFA ORA #$80                ;Aと$80で論理和
$C1/3CFC STA $0E    [$00:030E]   ;Aを[$00:030E]に書き込み
;処理合流
$C1/3CFE RTS                     ;サブルーチン戻り
;
;$C1/3CEAで敵の反撃の場合
$C1/3CFF TXA                     ;Xレジスタの値をAレジスタに転送
$C1/3D00 CMP $34    [$00:0334]   ;Aと[$00:0334]を減算比較（ステータスレジスタ変更のみ）
$C1/3D02 BNE $0F    [$3D13]      ;ゼロフラグが立っていないとき[$3D13]分岐
$C1/3D13 RTS                     ;サブルーチン戻り
;
$C1/3C99 LDA $6B    [$00:036B]   ;Aに[$00:036B]をロード
$C1/3C9B BEQ $13    [$3CB0]      ;ゼロフラグが立っているとき[$3CB0]分岐
$C1/3CB0 INC $08    [$00:0308]   ;[$00:0308]をインクリメント +1
$C1/3CB2 RTS                     ;サブルーチン戻り
;ループここまで

$C1/3C15 LDX #$0001              ;Xに$0001をロード
$C1/3C18 BRA $23    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C1A LDX #$0009              ;Xに$0009をロード
$C1/3C1D BRA $1E    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C1F LDX #$0008              ;Xに$0008をロード
$C1/3C22 BRA $19    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C24 LDX #$0007              ;Xに$0007をロード
$C1/3C27 BRA $14    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C29 LDX #$FFFF              ;Xに$FFFFをロード
$C1/3C2C BRA $0F    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C2E LDX #$FFF7              ;Xに$FFF7をロード
$C1/3C31 BRA $0A    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C33 LDX #$FFF8              ;Xに$FFF8をロード
$C1/3C36 BRA $05    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]
$C1/3C38 LDX #$FFF9              ;Xに$FFF9をロード
$C1/3C3B BRA $00    [$3C3D]      ;フラグにかかわりなく常に分岐[$3C3D]

$C1/17F5 LDX $68    [$00:0368]   ;Xに[$00:0368]をロード
$C1/17F7 LDA $D5000D,x           ;Aに[$D5000D,x](技データ13)をロード
$C1/17FB BPL $0E    [$180B]      ;ネガティブフラグが立っていないとき[$180B]分岐
$C1/180B LDA $A8    [$00:03A8]   ;Aに[$00:03A8]をロード
$C1/180D LSR A                   ;Aを論理右シフト　(/2)
$C1/180E LSR A                   ;Aを論理右シフト　(/2)
$C1/180F LSR A                   ;Aを論理右シフト　(/2)
$C1/1810 LSR A                   ;Aを論理右シフト　(/2)
$C1/1811 INC A                   ;Aをインクリメント +1
$C1/1812 ORA #$10                ;Aと$10で論理和
$C1/1814 JSR $18BB  [$C1:18BB]   ;[$C1:18BB]へジャンプ

$C1/A154 LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/A156 STX $A8    [$00:03A8]   ;Xを[$00:03A8]に書き込み

$C1/18BB STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/18BD STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
$C1/18BF LDA #$00                ;Aに$00をロード
$C1/18C1 STA $09    [$00:0309]   ;A($00)を[$00:0309]に書き込み
;マス目横一列判定ループここから
$C1/18C3 LDA #$00                ;Aに$00をロード
$C1/18C5 STA $08    [$00:0308]   ;A($00)を[$00:0308]に書き込み

;1マス毎のループ処理ここから
$C1/18C7 LDA $09    [$00:0309]   ;Aに[$00:0309]をロード
$C1/18C9 ASL A                   ;Aを算術左シフト *2
$C1/18CA ASL A                   ;Aを算術左シフト *2
$C1/18CB ASL A                   ;Aを算術左シフト *2
$C1/18CC ADC $08    [$00:0308]   ;A + [$00:0308]
$C1/18CE STA $10    [$00:0310]   ;A($00)を[$00:0310]に書き込み
$C1/18D0 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/18D2 LDA $0488,x             ;Aに[$0488,x](計算用アドレス$00:0488～$00:04BE)をロード
$C1/18D5 BEQ $0C    [$18E3]      ;ゼロフラグが立っているとき[$18E3]分岐(技範囲外)
$C1/18D7 LDA $04C8,x             ;Aに[$04C8,x](フィールドの状態$00:04C8～$00:04FE)をロード
$C1/18DA AND #$1F                ;Aと$1Fで論理積
$C1/18DC CMP $12    [$00:0312]   ;Aと[$00:0312]を減算比較（ステータスレジスタ変更のみ）
$C1/18DE BNE $03    [$18E3]      ;ゼロフラグが立っていないとき[$18E3]分岐
;ゼロフラグON（敵がいるマス）
$C1/18E0 LDA #$FF                ;Aに$FFをロード
$C1/18E2 RTS                     ;サブルーチン戻り
;ゼロフラグOFF（敵がいないマス）
$C1/18E3 INC $08    [$00:0308]   ;[$00:0308]をインクリメント +1
$C1/18E5 LDA $08    [$00:0308]   ;Aに[$00:0308]をロード
$C1/18E7 CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/18E9 BNE $DC    [$18C7]      ;ゼロフラグが立っていないとき[$18C7]分岐
;ループここまで

;横1列判定終了
$C1/18EB INC $09    [$00:0309]   ;[$00:0309]をインクリメント +1
$C1/18ED LDA $09    [$00:0309]   ;Aに[$00:0309]をロード
$C1/18EF CMP #$07                ;Aと$07を減算比較（ステータスレジスタ変更のみ）
$C1/18F1 BNE $D0    [$18C3]      ;ゼロフラグが立っていないとき[$18C3]分岐
;ループここまで

$C1/18F3 RTS                     ;サブルーチン戻り

$C1/1817 BNE $01    [$181A]      ;ゼロフラグが立っていないとき[$181A]分岐
;ゼロフラグON
$C1/1819 RTS                     ;サブルーチン戻り
;ゼロフラグOFF
$C1/181A LDX $68    [$00:0368]   ;Xに[$00:0368]をロード
;（以下省略）