TOP > プログラミング関係解説＆調査 > 回復技

;敵の被ヒット数判定（ループ処理）
$C1/E1A9 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/E1AB TXA                     ;Xレジスタの値をAレジスタに転送
$C1/E1AC ADC #$0010              ;A + $0010
$C1/E1AF TAX                     ;Aの値をXレジスタに転送
$C1/E1B0 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/E1B2 CPX #$1C00              ;Xと$1C00を減算比較（ステータスレジスタ変更のみ）
$C1/E1B5 BEQ $11    [$E1C8]      ;ゼロフラグが立っているとき[$E1C8]分岐
$C1/E1B7 LDA $0001,x             ;Aに[$0001,x](敵の戦闘状態)をロード
$C1/E1BA BIT #$40                ;Aと$40(味方キャラが敵状態)で論理積（ステータスフラグ変更のみ）
$C1/E1BC BNE $07    [$E1C5]      ;ゼロフラグが立っていないとき[$E1C5]分岐
;ゼロフラグOFF
$C1/E1BE CMP #$80                ;Aと$80(敵総数+1の敵番号)を減算比較（ステータスレジスタ変更のみ）
$C1/E1C0 BEQ $06    [$E1C8]      ;ゼロフラグが立っているとき[$E1C8]分岐
$C1/E1C2 LDA #$00                ;Aに$00をロード
$C1/E1C4 RTS                     ;サブルーチン戻り
;ゼロフラグON
$C1/E1C5 LDA #$7F                ;Aに$7Fをロード
$C1/E1C7 RTS                     ;サブルーチン戻り

$C1/D83C BEQ $FB    [$D839]      ;ゼロフラグが立っているとき[$D839]分岐
$C1/D83E BMI $0A    [$D84A]      ;ネガティブフラグが立っているとき[$D84A]分岐
$C1/D840 LDA $7E9003,x           ;Aに[$7E:ABx3]（敵の被ヒット数）をロード
$C1/D844 BEQ $02    [$D848]      ;ゼロフラグが立っているとき[$D848]分岐
;ゼロフラグOFF
$C1/D846 INC $10    [$00:0310]   ;[$00:0310]をインクリメント +1
;ゼロフラグON
$C1/D848 BRA $EF    [$D839]      ;フラグにかかわりなく常に分岐[$D839]
;
$C1/D839 JSR $E1A9  [$C1:E1A9]   ;[$C1:E1A9]へジャンプ
;
$C1/D84A LDA $10    [$00:0310]   ;Aに[$00:0310]をロード
$C1/D84C ORA $83    [$00:0383]   ;Aと[$00:0383]で論理和
$C1/D84E AND #$FF                ;Aと$FFで論理積
$C1/D850 RTS                     ;サブルーチン戻り

$C1/C3FD BNE $35    [$C434]      ;ゼロフラグが立っていないとき[$C434]分岐
$C1/C3FF JSR $D7BB  [$C1:D7BB]   ;[$C1:D7BB]へジャンプ

$C1/D7BB LDA #$00                ;Aに$00をロード
$C1/D7BD ORA $1C3B  [$00:1C3B]   ;Aと[$00:1C3B](味方の被ヒット数)で論理和
$C1/D7C0 ORA $1C7B  [$00:1C7B]   ;Aと[$00:1C7B](味方の被ヒット数)で論理和
$C1/D7C3 ORA $1CBB  [$00:1CBB]   ;Aと[$00:1CBB](味方の被ヒット数)で論理和
$C1/D7C6 ORA $1CFB  [$00:1CFB]   ;Aと[$00:1CFB](味方の被ヒット数)で論理和
$C1/D7C9 RTS                     ;サブルーチン戻り

$C1/C402 BNE $30    [$C434]      ;ゼロフラグが立っていないとき[$C434]分岐
$C1/C404 JSR $C3DD  [$C1:C3DD]   ;[$C1:C3DD]へジャンプ

$C1/C3DD LDA $7E9025[$7E:9025]   ;Aに[$7E:9025](技データ21)をロード
$C1/C3E1 AND #$F0                ;Aと$F0で論理積
$C1/C3E3 CMP #$70                ;Aと$70を減算比較（ステータスレジスタ変更のみ）
$C1/C3E5 BNE $03    [$C3EA]      ;ゼロフラグが立っていないとき[$C3EA]分岐
$C1/C3E7 JSR $D851  [$C1:D851]   ;[$C1:D851]へジャンプ

$C1/C40F REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/C411 LDA #$03E7              ;Aに$03E7をロード
$C1/C414 STA $003C,x             ;Aを[$003C,x+1][$003C,x](被ダメージの単発値2バイト)に書き込み
$C1/C417 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/C419 LDA #$01                ;Aに$01をロード
$C1/C41B STA $003B,x             ;Aを[$003B,x](ヒット数)に書き込み
$C1/C41E STA $003A,x             ;Aを[$003A,x](被ダメージ/回復量のヒット数)に書き込み
$C1/C421 LDA #$00                ;Aに$00をロード
$C1/C423 STA $7ECE33,x           ;Aを[$7ECE33,x]に書き込み
$C1/C427 STA $7ECE34,x           ;Aを[$7ECE34,x]に書き込み
$C1/C42B JSR $C39D  [$C1:C39D]   ;[$C1:C39D]へジャンプ

$C1/C39D LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/C39F STX $60    [$00:0360]   ;Xを[$00:0360]に書き込み
$C1/C3A1 LDY $5A    [$00:035A]   ;Yに[$00:035A]をロード
$C1/C3A3 PHY                     ;Yをスタックへプッシュ
$C1/C3A4 STX $5A    [$00:035A]   ;Xを[$00:035A]に書き込み
$C1/C3A6 STX $10    [$00:0310]   ;Xを[$00:0310]に書き込み
$C1/C3A8 LDA $7E9025[$7E:9025]   ;Aに[$7E:9025](技データ21)をロード
$C1/C3AC AND #$F0                ;Aと$F0で論理積
$C1/C3AE CMP #$80                ;Aと$80を減算比較（ステータスレジスタ変更のみ）
$C1/C3B0 BEQ $03    [$C3B5]      ;ゼロフラグが立っているとき[$C3B5]分岐
$C1/C3B2 JSR $D900  [$C1:D900]   ;[$C1:D900]へジャンプ

$C1/D900 LDA $7E900B[$7E:900B]   ;Aに[$7E:900B](技データ10)をロード
$C1/D904 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/D906 AND #$0003              ;Aと$0003で論理積
$C1/D909 ADC $10    [$00:0310]   ;A + [$00:0311][$00:0310]
$C1/D90B TAX                     ;Aの値をXレジスタに転送
$C1/D90C SEP #$21                ;キャリーフラグON　Aレジスタは8bit幅
$C1/D90E LDA $81    [$00:0381]   ;Aに[$00:0381](技データ13（$7E:901D）)をロード
$C1/D910 BPL $1A    [$D92C]      ;ネガティブフラグが立っていないとき[$D92C]分岐
;ネガティブフラグOFF
$C1/D92C LDA $0034,x             ;Aに[$0034,x](速(現在値))をロード
$C1/D92F STA $26    [$00:0326]   ;Aを[$00:0326]に書き込み
$C1/D931 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/D933 LDA $002E,x             ;Aに[$002E,x](LV(現在値) - 背面補正)をロード
$C1/D936 STA $25    [$00:0325]   ;Aを[$00:0325]に書き込み
$C1/D938 LDA $7ECE35,x           ;Aに[$7ECE35,x]をロード
$C1/D93C STA $17    [$00:0317]   ;Aを[$00:0317]に書き込み
$C1/D93E JSR $77CE  [$C1:77CE]   ;[$C1:77CE]へジャンプ

$C1/D1B2 LDA $7E901D[$7E:901D]   ;Aに[$7E:901D](技データ13)をロード
$C1/D1B6 STA $81    [$00:0381]   ;Aを[$00:0381]に書き込み

$C1/77CE LDA #$08                ;Aに$08をロード
$C1/77D0 CLC                     ;キャリーフラグクリア
$C1/77D1 ADC $7E900C[$7E:900C]   ;A + [$7E:900C](技LV＋自LV)
$C1/77D5 BCC $02    [$77D9]      ;キャリーフラグが立っていないとき[$77D9]分岐
$C1/77D9 SEC                     ;キャリーフラグON
$C1/77DA SBC $25    [$00:0325]   ;A - [$00:0325](LV(現在値) - 背面補正)
$C1/77DC BCC $08    [$77E6]      ;キャリーフラグが立っていないとき[$77E6]分岐

$C1/7813 SEC                     ;キャリーフラグON
$C1/7814 SBC $26    [$00:0326]   ;A - [$00:0326]
$C1/7816 LSR A                   ;Aを論理右シフト　(/2)

$C1/C40F REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/C411 LDA #$03E7              ;Aに$03E7をロード
$C1/C414 STA $003C,x             ;Aを[$003C,x+1][$003C,x](被ダメージの単発値2バイト)に書き込み
$C1/C417 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/C419 LDA #$01                ;Aに$01をロード
$C1/C41B STA $003B,x             ;Aを[$003B,x](ヒット数)に書き込み
$C1/C41E STA $003A,x             ;Aを[$003A,x](被ダメージ/回復量のヒット数)に書き込み
$C1/C421 LDA #$00                ;Aに$00をロード
$C1/C423 STA $7ECE33,x           ;Aを[$7ECE33,x]に書き込み
$C1/C427 STA $7ECE34,x           ;Aを[$7ECE34,x]に書き込み
$C1/C42B JSR $C39D  [$C1:C39D]   ;[$C1:C39D]へジャンプ

$C1/C39D LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/C39F STX $60    [$00:0360]   ;Xを[$00:0360]に書き込み
$C1/C3A1 LDY $5A    [$00:035A]   ;Yに[$00:035A]をロード
$C1/C3A3 PHY                     ;Yをスタックへプッシュ
$C1/C3A4 STX $5A    [$00:035A]   ;Xを[$00:035A]に書き込み
$C1/C3A6 STX $10    [$00:0310]   ;Xを[$00:0310]に書き込み
$C1/C3A8 LDA $7E9025[$7E:9025]   ;Aに[$7E:9025](技データ21)をロード
$C1/C3AC AND #$F0                ;Aと$F0で論理積
$C1/C3AE CMP #$80                ;Aと$80を減算比較（ステータスレジスタ変更のみ）
$C1/C3B0 BEQ $03    [$C3B5]      ;ゼロフラグが立っているとき[$C3B5]分岐
;ゼロフラグON（自爆999ダメージ）
$C1/C3B5 LDX $5A    [$00:035A]   ;Xに[$00:035A]をロード
$C1/C3B7 JSR $CF13  [$C1:CF13]   ;[$C1:CF13]へジャンプ

$C1/CBC2 LDY $2134  [$00:2134]   ;Yに[$00:2134]をロード
$C1/CBC5 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/CBC7 LDY $0002,x             ;Yに[$0002,x+1][$0002,xをロード
$C1/CBCA LDA $0008,y             ;Aに[$0008,y+1][$0008,y](現在HP)をロード
$C1/CBCD SEC                     ;キャリーフラグON
$C1/CBCE SBC $7ECE2E,x           ;A - [$7ECE2E,x+1][$7ECE2E,x]($03E7)
$C1/CBD2 BCS $03    [$CBD7]      ;キャリーフラグが立っているとき[$CBD7]分岐
$C1/CBD4 LDA #$0000              ;Aに$0000をロード
$C1/CBD7 JSR $CE60  [$C1:CE60]   ;[$C1:CE60]へジャンプ
;（中略）
$C1/CBDA STA $0008,y             ;A($0000)を[$0008,y+1][$0008,y](現在HP)に書き込み
$C1/CBDD TAY                     ;Aの値をYレジスタに転送
$C1/CBDE SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/CBE0 LDA #$FF                ;Aに$FFをロード
$C1/CBE2 RTS                     ;サブルーチン戻り

$C1/CB87 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/CB89 LDY $0002,x             ;Yに[$0002,x+1][$0002,x]をロード
$C1/CB8C LDA $0008,y             ;Aに[$0008,y+1][$0008,y](シナリオ別キャラデータ 現在HP)をロード
$C1/CB8F ADC $2134  [$00:2134]   ;A + [$00:2135][$00:2134](回復技の単発回復量×ヒット数)
$C1/CB92 CMP $000A,y             ;Aと[$000A,y+1][$000A,y](シナリオ別キャラデータ 最大HP)を減算比較（ステータスレジスタ変更のみ）
$C1/CB95 BCC $03    [$CB9A]      ;キャリーフラグが立っていないとき[$CB9A]分岐
;キャリーフラグON（回復後、最大HP＜現在HP）
$C1/CB97 LDA $000A,y             ;Aに[$000A,y+1][$000A,y](シナリオ別キャラデータ 最大HP)をロード
;キャリーフラグOFF
$C1/CB9A JSR $CE60  [$C1:CE60]   ;[$C1:CE60]へジャンプ

$C1/CE60 STA $20    [$00:0320]   ;A(回復後HP)を[$00:0321][$00:0320]に書き込み
$C1/CE62 SEC                     ;キャリーフラグON
$C1/CE63 SBC $0008,y             ;A - [$0008,y+1][$0008,y](シナリオ別キャラデータ 現在HP = 回復前HP)
$C1/CE66 BCS $11    [$CE79]      ;キャリーフラグが立っているとき[$CE79]分岐
;キャリーフラグOFF
$C1/CE68 LDA $0008,y             ;Aに[$0008,y+1][$0008,y](シナリオ別キャラデータ 現在HP = 回復前HP)をロード
$C1/CE6B SEC                     ;キャリーフラグON
$C1/CE6C SBC $20    [$00:0320]   ;A - [$00:0321][$00:0320](回復後HP)
$C1/CE6E BRA $09    [$CE79]      ;フラグにかかわりなく常に分岐[$CE79]
;キャリーフラグON
$C1/CE79 CLC                     ;キャリーフラグクリア
$C1/CE7A ADC $7E9EF0[$7E:9EF0]   ;A + [$7E:9EF1][$7E:9EF0]
$C1/CE7E BPL $03    [$CE83]      ;ネガティブフラグが立っていないとき[$CE83]分岐
;ネガティブフラグON
$C1/CE80 LDA #$FFFF              ;Aに$FFFFをロード
;ネガティブフラグOFF
$C1/CE83 STA $7E9EF0[$7E:9EF0]   ;Aを[$7E:9EF1][$7E:9EF0]に書き込み
$C1/CE87 LDA $20    [$00:0320]   ;Aに[$00:0321][$00:0320]をロード
$C1/CE89 RTS                     ;サブルーチン戻り

$C1/CDE7 STZ $22    [$00:0322]   ;[$00:0322]に$00を書き込み
$C1/CDE9 STZ $23    [$00:0323]   ;[$00:0323]に$00を書き込み
$C1/CDEB LDA $77    [$00:0377]   ;Aに[$00:0377]をロード
$C1/CDED AND #$0F                ;Aと$0Fで論理積
$C1/CDEF CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/CDF1 BNE $17    [$CE0A]      ;ゼロフラグが立っていないとき[$CE0A]分岐
$C1/CE0A RTS                     ;サブルーチン戻り
;
$C1/CD9F REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/CDA1 LDA $2134  [$00:2134]   ;Aに[$00:2135][$00:2134](総ダメージ量)をロード
$C1/CDA4 SEC                     ;キャリーフラグON
$C1/CDA5 SBC $20    [$00:0320]   ;A(総ダメージ量) - [$00:0321][$00:0320]($0000)
$C1/CDA7 BCS $03    [$CDAC]      ;キャリーフラグが立っているとき[$CDAC]分岐
$C1/CDAC STA $20    [$00:0320]   ;A(総ダメージ量)を[$00:0321][$00:0320]に書き込み
$C1/CDAE LDA $7ECE35,x           ;Aに[$7ECE35,x+1][$7ECE35,x]をロード
$C1/CDB2 AND #$00FF              ;Aと$00FFで論理積
$C1/CDB5 BEQ $04    [$CDBB]      ;ゼロフラグが立っているとき[$CDBB]分岐
$C1/CDB7 LSR $20    [$00:0320]   ;[$00:0321][$00:0320](総ダメージ量)を論理右シフト　(/2)
$C1/CDB9 INC $20    [$00:0320]   ;[$00:0321][$00:0320](総ダメージ量)をインクリメント +1
$C1/CDBB LDA $20    [$00:0320]   ;Aに[$00:0321][$00:0320](総ダメージ量)をロード
$C1/CDBD CLC                     ;キャリーフラグクリア
$C1/CDBE ADC $22    [$00:0322]   ;A(総ダメージ量) + [$00:0323][$00:0322]($0000)
$C1/CDC0 CMP #$03E7              ;Aと$03E7を減算比較（ステータスレジスタ変更のみ）
$C1/CDC3 BCC $03    [$CDC8]      ;キャリーフラグが立っていないとき[$CDC8]分岐
;キャリーフラグON
$C1/CDC5 LDA #$03E7              ;Aに$03E7をロード
;キャリーフラグOFF
$C1/CDC8 STA $7ECE2E,x           ;Aを[$7ECE2E,x+1][$7ECE2E,x]に書き込み

;（中略）
$C1/CBC7 LDY $0002,x             ;Yに[$0002,x+1][$0002,x]をロード
$C1/CBCA LDA $0008,y             ;Aに[$0008,y+1][$0008,y]（シナリオ別キャラデータ 現在HP）をロード
$C1/CBCD SEC                     ;キャリーフラグON
$C1/CBCE SBC $7ECE2E,x           ;A - [$7ECE2E,x+1][$7ECE2E,x]
$C1/CBD2 BCS $03    [$CBD7]      ;キャリーフラグが立っているとき[$CBD7]分岐
;キャリーフラグOFF
$C1/CBD4 LDA #$0000              ;Aに$0000をロード
;キャリーフラグON
$C1/CBD7 JSR $CE60  [$C1:CE60]   ;[$C1:CE60]へジャンプ
;（中略）
$C1/CBDA STA $0008,y             ;Aを[$0008,y+1][$0008,y]（シナリオ別キャラデータ 現在HP）に書き込み