TOP > プログラミング関係解説＆調査 > ブリキ大王戦の処理

$C1/F60E LDA $D60000,x[$D6:4A9A] ;Aに[$D6:4A9A](敵パーティデータ00 $00)をロード
$C1/F612 STA $55    [$00:0355]   ;Aを[$00:0355]に書き込み
$C1/F614 LDA $D60001,x[$D6:4A9B] ;Aに[$D6:4A9B](敵パーティデータ01 $01)をロード
$C1/F618 STA $56    [$00:0356]   ;Aを[$00:0356]に書き込み
$C1/F61A LDA $D60006,x[$D6:4AA0] ;Aに[$D6:4AA0](敵パーティデータ06 $04)をロード
$C1/F61E STA $58    [$00:0358]   ;Aを[$00:0358]に書き込み
$C1/F620 PHX                     ;Xをスタックにプッシュ
$C1/F621 STZ $60    [$00:0360]   ;[$00:0360]に$00を書き込み
$C1/F623 JSR $FB2B  [$C1:FB2B]   ;[$C1:FB2B]へジャンプ

;味方キャラ1の向き・座標処理
$C1/F626 BEQ $39    [$F661]      ;ゼロフラグが立っているとき[$F661]分岐
$C1/F628 LDA $D60002,x[$D6:4A9C] ;Aに[$D6:4A9C](敵パーティデータ02 $C0)をロード
$C1/F62C AND #$3F                ;Aと$3Fで論理積
$C1/F62E CMP #$3F                ;Aと$3Fを減算比較（ステータスレジスタ変更のみ）
$C1/F630 BNE $07    [$F639]      ;ゼロフラグが立っていないとき[$F639]分岐
;ゼロフラグON
$C1/F632 LDA #$00                ;Aに$00をロード
$C1/F634 STA $0001,y             ;Aを[$0001,y]($00:1C41, $00:1C81, $00:1CC1)に書き込み
$C1/F637 BRA $28    [$F661]      ;フラグにかかわりなく常に分岐[$F661]
;ゼロフラグOFF
$C1/F639 AND #$07                ;Aと$07で論理積
$C1/F63B STA $0019,y[$00:1C19]   ;Aを[$00:1C19]（初期Y座標）に書き込み
$C1/F63E LDA $D60002,x[$D6:4A9C] ;Aに[$D6:4A9C](敵パーティデータ02 $C0)をロード
$C1/F642 AND #$38                ;Aと$38で論理積
$C1/F644 LSR A                   ;Aを論理右シフト　(/2)
$C1/F645 LSR A                   ;Aを論理右シフト　(/2)
$C1/F646 LSR A                   ;Aを論理右シフト　(/2)
$C1/F647 STA $0018,y[$00:1C18]   ;Aを[$00:1C18]（初期X座標）に書き込み
$C1/F64A LDA $0001,y[$00:1C01]   ;Aに[$00:1C01]をロード
$C1/F64D AND #$FF                ;Aと$FFで論理積
$C1/F64F STA $0001,y[$00:1C01]   ;Aを[$00:1C01]に書き込み
$C1/F652 LDA $D60002,x[$D6:4A9C] ;Aに[$D6:4A9C](敵パーティデータ02 $C0)をロード
$C1/F656 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/F657 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/F658 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/F659 AND #$03                ;Aと$03で論理積
$C1/F65B STA $001D,y[$00:1C1D]   ;Aを[$00:1C1D]（向き）に書き込み
$C1/F65E JSR $45EE  [$C1:45EE]   ;[$C1:45EE]へジャンプ

$C1/F661 INX                     ;Xをインクリメント +1
$C1/F662 INC $60    [$00:0360]   ;A[$00:0360]をインクリメント +1
$C1/F664 LDA $60    [$00:0360]   ;Aに[$00:0360]をロード
$C1/F666 CMP #$04                ;Aと$04を減算比較（ステータスレジスタ変更のみ）
$C1/F668 BNE $B9    [$F623]      ;ゼロフラグが立っていないとき[$F623]分岐
$C1/F66A LDA $1C00  [$00:1C00]   ;Aに[$00:1C00](味方キャラ1キャラID $11 アキラ)をロード
$C1/F66D BEQ $20    [$F68F]      ;ゼロフラグが立っているとき[$F68F]分岐
$C1/F66F LDA $56    [$00:0356]   ;Aに[$00:0356](敵パーティデータ01 $01)をロード
$C1/F671 AND #$0F                ;Aと$0Fで論理積
$C1/F673 BEQ $1A    [$F68F]      ;ゼロフラグが立っているとき[$F68F]分岐

;ゼロフラグOFFはブリキ大王戦のみ
$C1/F675 LDY #$0F80              ;Yに$0F80をロード
$C1/F678 STY $1C02  [$00:1C02]   ;Yを[$00:1C02]に書き込み
$C1/F67B LDY #$1C00              ;Yに$1C00をロード
$C1/F67E LDA #$40                ;Aに$40をロード
$C1/F680 STA $0000,y[$00:1C00]   ;A($40)を[$00:1C00](ブリキ大王ID)に書き込み
$C1/F683 STA $0001,y[$00:1C01]   ;A($40)を[$00:1C01]($40:敵操作状態)に書き込み
$C1/F686 STZ $1C41  [$00:1C41]   ;[$00:1C41]に$00を書き込み($00:戦闘離脱)
$C1/F689 STZ $1C81  [$00:1C81]   ;[$00:1C81]に$00を書き込み($00:戦闘離脱)
$C1/F68C STZ $1CC1  [$00:1CC1]   ;[$00:1CC1]に$00を書き込み($00:戦闘離脱)
;ここから他戦闘と共通処理
$C1/F68F PLX                     ;Xレジスタにスタックからプル
$C1/F690 LDY #$1B00              ;Yに$1B00をロード
$C1/F693 STY $1E    [$00:031E]   ;Yを[$00:031E]に書き込み
$C1/F695 STZ $1A01  [$00:1A01]   ;[$00:1A01]に$00を書き込み
$C1/F698 STZ $1A41  [$00:1A41]   ;[$00:1A41]に$00を書き込み
$C1/F69B STZ $1A81  [$00:1A81]   ;[$00:1A81]に$00を書き込み
$C1/F69E STZ $1AC1  [$00:1AC1]   ;[$00:1AC1]に$00を書き込み
$C1/F6A1 LDA $58    [$00:0358]   ;Aに[$00:0358]をロード
$C1/F6A3 AND #$0F                ;Aと$0Fで論理積
$C1/F6A5 STA $57    [$00:0357]   ;Aを[$00:0357]に書き込み
$C1/F6A7 BEQ $49    [$F6F2]      ;ゼロフラグが立っているとき[$F6F2]分岐
$C1/F6A9 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
$C1/F6AB LDA $0040  [$00:0040]   ;Aに[$00:0040]をロード
$C1/F6AE CMP #$D2                ;Aと$D2を減算比較（ステータスレジスタ変更のみ）
$C1/F6B0 BNE $37    [$F6E9]      ;ゼロフラグが立っていないとき[$F6E9]分岐
$C1/F6E9 JSR $FB62  [$C1:FB62]   ;[$C1:FB62]へジャンプ

$C1/E894 STZ $0005,x[$00:1C05]   ;[$00:1C05](味方キャラ番号1 経験値)に$00を書き込み
$C1/E897 STZ $001E,x[$00:1C1E]   ;[$00:1C1E]に$00を書き込み
$C1/E89A LDA #$04                ;Aに$04をロード
$C1/E89C STA $001F,x[$00:1C1F]   ;Aを[$00:1C1F]に書き込み
$C1/E89F STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
$C1/E8A1 STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/E8A3 LDY $0002,x[$00:1C02]   ;Yに[$00:1C02]をロード
$C1/E8A6 LDA $0006,y[$00:0F86]   ;Aに[$00:0F86]（シナリオ別キャラデータ　ブリキ大王　レベル = $13）をロード
$C1/E8A9 STA $0038,x[$00:1C38]   ;Aを[$00:1C38]（味方キャラデータ1人目　LV(現在値)）に書き込み
$C1/E8AC LDA #$00                ;Aに$00をロード
$C1/E8AE STA $0039,x[$00:1C39]   ;Aを[$00:1C39]（味方キャラデータ1人目　状態異常）に書き込み
$C1/E8B1 LDA #$04                ;Aに$04をロード
$C1/E8B3 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;
;ループ処理
$C1/E8B5 LDA $0010,y             ;Aに[$00:0F90][$00:0F93][$00:0F96][$00:0F99]（力/速/体/知）をロード
$C1/E8B8 STA $0030,x             ;Aを[$00:1C30]～[$00:1C33]（力/速/体/知　通常値）に書き込み
$C1/E8BB STA $0034,x             ;Aを[$00:1C34]～[$00:1C37]（力/速/体/知　現在値）に書き込み
$C1/E8BE INX                     ;Xをインクリメント +1
$C1/E8BF INY                     ;Yをインクリメント +1
$C1/E8C0 INY                     ;Yをインクリメント +1
$C1/E8C1 INY                     ;Yをインクリメント +1
$C1/E8C2 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/E8C4 BNE $EF    [$E8B5]      ;ゼロフラグが立っていないとき[$E8B5]分岐
;ループここまで
;
$C1/E8C6 LDX $14    [$00:0314]   ;Xに[$00:0314]をロード
$C1/E8C8 RTS                     ;サブルーチン戻り

$C1/E94B PHX                     ;Xをスタックにプッシュ
$C1/E94C STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/E94E LDY $0002,x[$00:1C02]   ;Yに[$00:1C02]をロード
$C1/E951 LDX $0004,y[$00:0F84]   ;Xに[$00:0F85][$00:0F84]（味方キャラデータ呼び出し用アドレス）をロード
;[$00:0F85][$00:0F84] = X:02AF サモのデータ呼び出しアドレス
$C1/E954 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/E956 LDA $000D,y[$00:0F8D]   ;Aに[$00:0F8E][$00:0F8D]（ブリキ大王の習得技2バイト $000F）をロード
$C1/E959 STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/E95B SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/E95D LDY $14    [$00:0314]   ;Yに[$00:0314]をロード
$C1/E95F LDA #$10                ;Aに$10をロード
$C1/E961 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
$C1/E963 STA $09    [$00:0309]   ;Aを[$00:0309]に書き込み
$C1/E965 LDA $D50005,x[$D5:02B4] ;Aに[$D5:02B4]（サモの技LV00の技ID$A5「クマの手」をロード）
$C1/E969 STA $12    [$00:0312]   ;A($A5)を[$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/E9A6 LDA $12    [$00:0312]   ;A($A5)に[$00:0312]をロード
$C1/E9A8 STA $7ECD00,x[$7E:E900] ;Aを[$7E:E900]($A5)に書き込み
;（中略）
$C1/E9F0 LDA $000C,y[$00:0F8C]   ;Aに[$00:0F8C]（ブリキ大王のひとつ前に使った技　初期値$00）をロード
$C1/E9F3 BNE $07    [$E9FC]      ;ゼロフラグが立っていないとき[$E9FC]分岐
$C1/E9F5 LDA $7ECD00,x[$7E:E900] ;Aに[$7E:E900]($A5)をロード
$C1/E9F9 STA $000C,y[$00:0F8C]   ;A($A5)を[$00:0F8C]（ブリキ大王のひとつ前に使った技）に書き込み
$C1/E9FC RTS                     ;サブルーチン戻り

$C1/16F4 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/16F6 LDA $000C,x[$00:1B0C]   ;Aに[$00:1B0D][$00:1B0C](キャラの位置のX軸（ピクセル単位))をロード
$C1/16F9 STA $0010,y[$00:1C10]   ;Aを[$00:1C11][$00:1C10](キャラの位置のX軸（ピクセル単位))に書き込み
$C1/16FC LDA $000E,x[$00:1B0E]   ;Aに[$00:1B0F][$00:1B0E](キャラの位置のY軸（ピクセル単位))をロード
$C1/16FF STA $0012,y[$00:1C12]   ;Aを[$00:1C13][$00:1C12](キャラの位置のY軸（ピクセル単位))に書き込み
$C1/1702 LDA $000A,x[$00:1B0A]   ;Aに[$00:1B0B][$00:1B0A](キャラ位置のマス目のY/X座標)をロード
$C1/1705 STA $0018,y[$00:1C18]   ;Aを[$00:1C19][$00:1C18](キャラ位置のマス目のY/X座標)に書き込み
$C1/1708 LDA $0028,y[$00:1C28]   ;Aに[$00:1C29][$00:1C28]（技の範囲指定～使用中のマス目のY/X座標）をロード
$C1/170B STA $7E9102,x[$7E:AC02] ;Aを[$7E:AC03][$7E:AC02]に書き込み
$C1/170F SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/1711 LDA $0004,x[$00:1B04]   ;Aに[$00:1B04](向き・上2ビット)をロード
$C1/1714 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/1715 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/1716 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/1717 AND #$03                ;Aと$03で論理積
$C1/1719 STA $001D,y[$00:1C1D]   ;Aを[$00:1C1D](向き)に書き込み
$C1/171C RTS                     ;サブルーチン戻り