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

$C1/D568 LDA $D5000A,x           ;Aに[$D5000A,x](技データ10)をロード
$C1/D56C STA $7E900B[$7E:900B]   ;Aを[$7E:900B]に書き込み
$C1/D570 LDA $D50016,x           ;Aに[$D50016,x](技データ22)をロード
$C1/D574 STA $7E900A[$7E:900A]   ;Aを[$7E:900A]に書き込み
$C1/D578 LDA $D5000D,x           ;Aに[$D5000D,x](技データ13)をロード
$C1/D57C STA $7E9009[$7E:9009]   ;Aを[$7E:9009]に書き込み
$C1/D580 BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）
$C1/D582 BNE $07    [$D58B]      ;ゼロフラグが立っていないとき[$D58B]分岐
$C1/D58B JSR $D614  [$C1:D614]   ;[$C1:D614]へジャンプ

$C1/D8BE LDA $7E901D[$7E:901D]   ;Aに[$7E:901D](技データ13)をロード
$C1/D8C2 BPL $02    [$D8C6]      ;ネガティブフラグが立っていないとき[$D8C6]分岐
;回復技だとネガティブフラグON
$C1/D8C4 BRA $34    [$D8FA]      ;フラグにかかわりなく常に分岐[$D8FA]
$C1/D8FA LDA #$FF                ;Aに$FFをロード
$C1/D8FC RTS                     ;サブルーチン戻り
;
$C1/D7A0 BEQ $14    [$D7B6]      ;ゼロフラグが立っているとき[$D7B6]分岐
;ゼロフラグOFF
$C1/D7A2 LDA $003B,x             ;Aに[$003B,x](技ヒット数 初期値$00)をロード
$C1/D7A5 INC A                   ;Aをインクリメント +1
$C1/D7A6 STA $003B,x             ;A($01)を[$003B,x]に書き込み
$C1/D7A9 CMP #$01                ;Aと$01を減算比較（ステータスレジスタ変更のみ）
$C1/D7AB BNE $09    [$D7B6]      ;ゼロフラグが立っていないとき[$D7B6]分岐
$C1/D7AD JSR $D8FD  [$C1:D8FD]   ;[$C1:D8FD]へジャンプ

$C1/D912 LDA $7E900B[$7E:900B]   ;Aに[$7E:900B](技データ10)ロード
$C1/D916 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/D918 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/D91A AND #$00FC              ;Aと$00FC(%1111 1100)で論理積
$C1/D91D ASL A                   ;Aを算術左シフト *2
$C1/D91E ASL A                   ;Aを算術左シフト *2
$C1/D91F STA $20    [$00:0320]   ;A(LV差係数*4)を[$00:0321][$00:0320]に書き込み
$C1/D921 LSR A                   ;Aを論理右シフト　(/2)
$C1/D922 LSR A                   ;Aを論理右シフト　(/2)
$C1/D923 STA $22    [$00:0322]   ;A(LV差係数)を[$00:0323][$00:0322]に書き込み
$C1/D925 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/D927 JSR $7835  [$C1:7835]   ;[$C1:7835]へジャンプ
;
$C1/7835 LDA $22    [$00:0322]   ;Aに[$00:0322](LV差係数)をロード
$C1/7837 STA $4202  [$00:4202]   ;Aを[$00:4202]に書き込み
;符号付8bit x 8bit $4202(LV差係数)*$4203
$C1/783A JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ

;戦闘乱数計算
$C1/6150 PHX                     ;↓戦闘乱数計算
;（中略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/783D STA $4203  [$00:4203]   ;A(乱数)を[$00:4203]に書き込み
$C1/7840 JSR $46C9  [$C1:46C9]   ;[$C1:46C9]へジャンプ
;
$C1/46C9 RTS                     ;サブルーチン戻り

$C1/7843 LDA $4217  [$00:4217]   ;Aに[$00:4217]をロード
$C1/7846 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/7848 AND #$00FF              ;Aと$00FFで論理積
$C1/784B ADC $20    [$00:0320]   ;A + [$00:0321][$00:0320]
$C1/784D STA $20    [$00:0320]   ;Aを[$00:0321][$00:0320]に書き込み
$C1/784F SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/7851 RTS                     ;サブルーチン戻り
;
$C1/D92A BRA $15    [$D941]      ;フラグにかかわりなく常に分岐[$D941]
$C1/D941 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/D943 LDA $20    [$00:0320]   ;Aに[$00:0321][$00:0320]をロード
$C1/D945 STA $003C,x             ;Aを[$003C,x+1][$003C,x](使用技の単発値)に書き込み
$C1/D948 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/D94A LDA $0039,x             ;Aに[$0039,x](対象の状態異常)をロード
$C1/D94D CMP #$FF                ;Aと$FFを減算比較（ステータスレジスタ変更のみ）
$C1/D94F BEQ $0B    [$D95C]      ;ゼロフラグが立っているとき[$D95C]分岐
$C1/D951 AND #$DF                ;Aと$DF($1101 1111)で論理積
$C1/D953 STA $0039,x             ;Aを[$0039,x](対象の状態異常)に書き込み
$C1/D956 LDA #$00                ;Aに$00をロード
$C1/D958 STA $7ECE05,x           ;Aを[$7ECE05,x](眠り状態継続時間)に書き込み
$C1/D95C RTS                     ;サブルーチン戻り

$C1/D870 LDA $7E901D[$7E:901D]   ;Aに[$7E:901D](技データ13)をロード
$C1/D874 BPL $02    [$D878]      ;ネガティブフラグが立っていないとき[$D878]分岐
;回復技だとネガティブフラグON
$C1/D876 BRA $3A    [$D8B2]      ;フラグにかかわりなく常に分岐[$D8B2]
$C1/D8B2 JSR $03F1  [$C1:03F1]   ;[$C1:03F1]へジャンプ

$C1/03F1 LDY $0002,x             ;Yに[$0002,x]をロード
$C1/03F4 LDA $002F,y             ;Aに[$002F,y](敵データ15　タイプ)をロード
$C1/03F7 BIT #$04                ;Aと$04で論理積（ステータスフラグ変更のみ）
$C1/03F9 RTS                     ;サブルーチン戻り

$C1/D8B5 BEQ $F8    [$D8AF]      ;ゼロフラグが立っているとき[$D8AF]分岐
;ゼロフラグON タイプOBJECT以外
$C1/D8AF LDA #$FF                ;Aに$FFをロード
$C1/D8B1 RTS                     ;サブルーチン戻り

$C1/D7F7 BEQ $1C    [$D815]      ;ゼロフラグが立っているとき[$D815]分岐
$C1/D7F9 LDA $7E9003,x[$7E:AB03] ;Aに[$7E9003,x](ヒット数)をロード
$C1/D7FD INC A                   ;Aをインクリメント +1
$C1/D7FE STA $7E9003,x[$7E:AB03] ;Aを[$7E9003,x](ヒット数)に書き込み
$C1/D802 JSR $D81A  [$C1:D81A]   ;[$C1:D81A]へジャンプ

$C1/D81A PHA                     ;Aをスタックにプッシュ
$C1/D81B LDA $0001,x             ;Aに[$0001,x](敵の状態)をロード
$C1/D81E CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/D820 BNE $0E    [$D830]      ;ゼロフラグが立っていないとき[$D830]分岐
$C1/D830 PLA                     ;Aレジスタに値をプル
$C1/D831 RTS                     ;サブルーチン戻り

$C1/D805 CMP #$01                ;Aと$01を減算比較（ステータスレジスタ変更のみ）
$C1/D807 BNE $0C    [$D815]      ;ゼロフラグが立っていないとき[$D815]分岐
$C1/D809 JSR $D95D  [$C1:D95D]   ;[$C1:D95D]へジャンプ

$C1/D95D JSR $0D0D  [$C1:0D0D]   ;[$C1:0D0D]へジャンプ

$C1/0D0D LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/0D0F LDA $0000,x             ;Aに[$0000,x](敵ID)をロード
$C1/0D12 CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/0D14 BEQ $01    [$0D17]      ;ゼロフラグが立っているとき[$0D17]分岐
$C1/0D16 RTS                     ;サブルーチン戻り

$C1/D978 LDA $7E900B[$7E:900B]   ;Aに[$7E:900B](技データ10)をロード
$C1/D97C LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/D97E REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/D980 AND #$00FC              ;Aと$00FCで論理積
$C1/D983 STA $20    [$00:0320]   ;Aを[$00:0321][$00:0320]に書き込み
$C1/D985 LSR A                   ;Aを論理右シフト　(/2)
$C1/D986 LSR A                   ;Aを論理右シフト　(/2)
$C1/D987 STA $22    [$00:0322]   ;A(LV差係数/4)を[$00:0323][$00:0322]に書き込み
$C1/D989 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/D98B JSR $7835  [$C1:7835]   ;[$C1:7835]へジャンプ

$C1/7835 LDA $22    [$00:0322]   ;Aに[$00:0322]をロード
$C1/7837 STA $4202  [$00:4202]   ;Aを[$00:4202]に書き込み
;符号付8bit x 8bit $4202(LV差係数/4)*$4203
$C1/783A JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ

;戦闘乱数計算
$C1/6150 PHX                     ;↓戦闘乱数計算
;（中略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
;味方回復と処理合流
$C1/783D STA $4203  [$00:4203]   ;A(乱数)を[$00:4203]に書き込み
$C1/7840 JSR $46C9  [$C1:46C9]   ;[$C1:46C9]へジャンプ
;
$C1/46C9 RTS                     ;サブルーチン戻り
;
$C1/7843 LDA $4217  [$00:4217]   ;Aに[$00:4217]をロード
$C1/7846 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/7848 AND #$00FF              ;Aと$00FFで論理積
$C1/784B ADC $20    [$00:0320]   ;A + [$00:0321][$00:0320]
$C1/784D STA $20    [$00:0320]   ;Aを[$00:0321][$00:0320]に書き込み
$C1/784F SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/7851 RTS                     ;サブルーチン戻り

;敵用処理
$C1/D98E BRA $17    [$D9A7]      ;フラグにかかわりなく常に分岐[$D9A7]
$C1/D9A7 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/D9A9 LDA $20    [$00:0320]   ;Aに[$00:0321][$00:0320]をロード
$C1/D9AB STA $7E9004,x           ;Aを[$7E9004,x+1][$7E9004,x](回復量の単発値 2バイト)に書き込み
$C1/D9AF SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/D9B1 LDA $7E8F07,x           ;Aに[$7E8F07,x](状態異常)をロード
$C1/D9B5 AND #$DF                ;Aと$DF($1101 1111)で論理積
$C1/D9B7 STA $7E8F07,x           ;Aを[$7E8F07,x](状態異常)に書き込み
$C1/D9BB LDA #$00                ;Aに$00をロード
$C1/D9BD STA $7E8F0D,x           ;Aを[$7E8F0D,x](眠り状態継続時間)に書き込み
$C1/D9C1 LDA $0000,x             ;Aに[$0000,x](敵ID)をロード
$C1/D9C4 CMP #$D0                ;Aと$D0を減算比較（ステータスレジスタ変更のみ）
$C1/D9C6 BNE $11    [$D9D9]      ;ゼロフラグが立っていないとき[$D9D9]分岐
$C1/D9D9 RTS                     ;サブルーチン戻り