TOP > プログラミング関係解説＆調査 > 敵ターンにおける行動選択 > 回復技判定

;周囲攻撃、反撃専用、回復判定
$C1/9258 LDA $D5000D,x           ;Aに[$D5000D,x]をロード
$C1/925C BIT #$40                ;Aと$40で論理積（ステータスフラグ変更のみ）
$C1/925E BNE $5B    [$92BB]      ;ゼロフラグが立っていないとき[$92BB]分岐
;ゼロフラグON　反撃専用技ではない
$C1/9260 BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）
$C1/9262 BEQ $5A    [$92BE]      ;ゼロフラグが立っているとき[$92BE]分岐
;ゼロフラグON　回復技である
$C1/9264 LDX $AC    [$00:03AC]   ;Xに[$00:03AC]をロード
$C1/9266 LDA $0000,x[$00:1B50]   ;Aに[$00:1B50](敵ID)をロード
$C1/9269 CMP #$D7                ;Aと$D7を減算比較（ステータスレジスタ変更のみ）
$C1/926B BNE $11    [$927E]      ;ゼロフラグが立っていないとき[$927E]分岐
;ゼロフラグON 敵ID$D7はスタビライザー
$C1/926D JSR $927E  [$C1:927E]   ;[$C1:927E]へジャンプ

$C1/926B BNE $11    [$927E]      ;ゼロフラグが立っていないとき[$927E]分岐
;ゼロフラグON 敵ID$D7,スタビライザー
$C1/926D JSR $927E  [$C1:927E]   ;[$C1:927E]へジャンプ
;★$C1:927E（回復技使用判定）へのジャンプ1回目
$C1/9270 BEQ $01    [$9273]      ;ゼロフラグが立っているとき[$9273]分岐
;ゼロフラグOFF
$C1/9272 RTS                     ;サブルーチン戻り
;ゼロフラグON
$C1/9273 PHX                     ;Xをスタックにプッシュ
$C1/9274 LDX #$1B00              ;Xに$1B00をロード
$C1/9277 JSR $927E  [$C1:927E]   ;[$C1:927E]へジャンプ
;★$C1:927E（回復技使用判定）へのジャンプ2回目
$C1/927A PLX                     ;Xレジスタにスタックからプル
$C1/927B AND #$FF                ;Aと$FFで論理積
$C1/927D RTS                     ;サブルーチン戻り
;ゼロフラグOFF スタビライザー以外の敵
$C1/927E PHY                     ;Yをスタックへプッシュ
$C1/927F LDY $0002,x             ;Yに[$0002,x]をロード
$C1/9282 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/9284 LDA $7E8F00,x           ;Aに[$7E8F00,x]をロード
$C1/9288 STA $4204  [$00:4204]   ;Aを[$00:4204]に書き込み
$C1/928B LDA $0010,y             ;Aに[$0010,y]をロード
$C1/928E PLY                     ;Yレジスタにスタックからプル
$C1/928F ASL A                   ;Aを算術左シフト *2
$C1/9290 ASL A                   ;Aを算術左シフト *2
$C1/9291 ASL A                   ;Aを算術左シフト *2
$C1/9292 ASL A                   ;Aを算術左シフト *2
$C1/9293 BNE $03    [$9298]      ;ゼロフラグが立っていないとき[$9298]分岐
$C1/9295 LDA #$0001              ;Aに$0001をロード
$C1/9298 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/929A STA $4206  [$00:4206]   ;Aを[$00:4206]に書き込み
$C1/929D JSR $46C8  [$C1:46C8]   ;[$C1:46C8]へジャンプ
;($C1/46C8~$C1/46C9 計算時間稼ぎ用ジャンプ)
$C1/92A0 LDA $4214  [$00:4214]   ;Aに[$00:4214]をロード
$C1/92A3 STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/92A5 LDA #$1F                ;Aに$1Fをロード
$C1/92A7 SEC                     ;キャリーフラグON
$C1/92A8 SBC $10    [$00:0310]   ;A - [$00:0310]
$C1/92AA STA $4202  [$00:4202]   ;Aを[$00:4202]に書き込み
$C1/92AD JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ
;戦闘乱数計算
$C1/92B0 STA $4203  [$00:4203]   ;Aを[$00:4203]に書き込み
$C1/92B3 JSR $46C9  [$C1:46C9]   ;[$C1:46C9]へジャンプ
;($C1/46C9 計算時間稼ぎ用ジャンプ)
$C1/92B6 LDA $4217  [$00:4217]   ;Aに[$00:4217]をロード
$C1/92B9 BEQ $03    [$92BE]      ;ゼロフラグが立っているとき[$92BE]分岐
;ゼロフラグOFF
$C1/92BB LDA #$00                ;Aに$00をロード
$C1/92BD RTS                     ;サブルーチン戻り
;ゼロフラグON
$C1/92BE LDX $AC    [$00:03AC]   ;Xに[$00:03AC]をロード
$C1/92C0 LDA #$FF                ;Aに$FFをロード
$C1/92C2 RTS                     ;サブルーチン戻り

$C1/926B BNE $11    [$927E]      ;ゼロフラグが立っていないとき[$927E]分岐
;ゼロフラグON 敵ID$D7,スタビライザー
$C1/926D JSR $927E  [$C1:927E]   ;[$C1:927E]へジャンプ
;★$C1:927E（回復技使用判定）へのジャンプ1回目
$C1/9270 BEQ $01    [$9273]      ;ゼロフラグが立っているとき[$9273]分岐
;ゼロフラグOFF
$C1/9272 RTS                     ;サブルーチン戻り
;ゼロフラグON
$C1/9273 PHX                     ;Xをスタックにプッシュ
$C1/9274 LDX #$1B00              ;Xに$1B00をロード（敵番号0、マザーＣＯＭのアドレス呼び出し用）
$C1/9277 JSR $927E  [$C1:927E]   ;[$C1:927E]へジャンプ
;★$C1:927E（回復技使用判定）へのジャンプ2回目
$C1/927A PLX                     ;Xレジスタにスタックからプル
$C1/927B AND #$FF                ;Aと$FFで論理積
$C1/927D RTS                     ;サブルーチン戻り

;ゼロフラグOFF
$C1/927E PHY                     ;Yをスタックへプッシュ
$C1/927F LDY $0002,x             ;Yに[$0002,x]をロード
$C1/9282 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/9284 LDA $7E8F00,x           ;Aに[$7E:AAn1][$7E:AAn0](現在HP)をロード
$C1/9288 STA $4204  [$00:4204]   ;Aを[$00:4205][$00:4204]に書き込み
$C1/928B LDA $0010,y             ;Aに[$00:1A11+$40n][$00:1A10+$40n](最大HP)をロード
$C1/928E PLY                     ;Yレジスタにスタックからプル
$C1/928F ASL A                   ;Aを算術左シフト *2
$C1/9290 ASL A                   ;Aを算術左シフト *2
$C1/9291 ASL A                   ;Aを算術左シフト *2
$C1/9292 ASL A                   ;Aを算術左シフト *2
$C1/9293 BNE $03    [$9298]      ;ゼロフラグが立っていないとき[$9298]分岐
;ゼロフラグON（最大HP * $10が$0000）
$C1/9295 LDA #$0001              ;Aに$0001をロード
;ゼロフラグOFF（最大HP * $10が$0000ではない）
$C1/9298 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/929A STA $4206  [$00:4206]   ;Aを[$00:4206]に書き込み
$C1/929D JSR $46C8  [$C1:46C8]   ;[$C1:46C8]へジャンプ
;
;符号付16bit / 8bit
$C1/46C8 NOP                     ;計算待ち
$C1/46C9 RTS                     ;サブルーチン戻り
;
$C1/92A0 LDA $4214  [$00:4214]   ;Aに[$00:4214](商、下1バイト)をロード
$C1/92A3 STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/92A5 LDA #$1F                ;Aに$1F(31)をロード
$C1/92A7 SEC                     ;キャリーフラグON
$C1/92A8 SBC $10    [$00:0310]   ;A - [$00:0310]
$C1/92AA STA $4202  [$00:4202]   ;Aを[$00:4202]に書き込み
$C1/92AD JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ
;
;戦闘乱数計算
$C1/6150 PHX                     ;戦闘乱数計算
;（省略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/92B0 STA $4203  [$00:4203]   ;Aを[$00:4203]に書き込み
$C1/92B3 JSR $46C9  [$C1:46C9]   ;[$C1:46C9]へジャンプ
;
;符号付8bit x 8bit
$C1/46C9 RTS                     ;サブルーチン戻り
;
$C1/92B6 LDA $4217  [$00:4217]   ;Aに[$00:4217](乗算結果上1バイト)をロード
$C1/92B9 BEQ $03    [$92BE]      ;ゼロフラグが立っているとき[$92BE]分岐
;ゼロフラグOFF（技使用見送り）
$C1/92BB LDA #$00                ;Aに$00をロード
$C1/92BD RTS                     ;サブルーチン戻り
;ゼロフラグON（技使用確定）
$C1/92BE LDX $AC    [$00:03AC]   ;Xに[$00:03AC]をロード
$C1/92C0 LDA #$FF                ;Aに$FFをロード
$C1/92C2 RTS                     ;サブルーチン戻り

$C1/92B9 BEQ $03    [$92BE]      ;ゼロフラグが立っているとき[$92BE]分岐
;ゼロフラグOFF（技使用見送り）
$C1/92BB LDA #$00                ;Aに$00をロード
$C1/92BD RTS                     ;サブルーチン戻り
;ゼロフラグON（技使用確定）
$C1/92BE LDX $AC    [$00:03AC]   ;Xに[$00:03AC]をロード
$C1/92C0 LDA #$FF                ;Aに$FFをロード
$C1/92C2 RTS                     ;サブルーチン戻り

$C1/8F23 BEQ $24    [$8F49]      ;ゼロフラグが立っているとき[$8F49]分岐
;ゼロフラグOFF（技使用確定）
$C1/8F25 JSR $920C  [$C1:920C]   ;[$C1:920C]へジャンプ
;ゼロフラグON（技使用見送り、次判定へ）
$C1/8F49 LDX $AC    [$00:03AC]   ;Xに[$00:03AC]をロード