TOP > プログラミング関係解説＆調査 > 隊形

$C2/4B51 PHP                     ;ステータスレジスタをスタックへプッシュ
$C2/4B52 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C2/4B54 LDY $00    [$00:0500]   ;Yに[$00:0500]($0000)をロード($C2/00C6の処理)

;ループ処理
$C2/4B56 LDA $0AB0,y             ;Aに[$7E:0AB0+y]をロード
$C2/4B59 AND #$0003              ;Aと$0003で論理積
$C2/4B5C TAX                     ;Aの値をXレジスタに転送
$C2/4B5D TYA                     ;Yレジスタの値をAレジスタに転送
$C2/4B5E SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C2/4B60 STA $51,x               ;Aを[$00:0551+x]に書き込み
$C2/4B62 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C2/4B64 INY                     ;Yをインクリメント +1
$C2/4B65 CPY #$0004              ;Yと$0004を減算比較（ステータスレジスタ変更のみ）
$C2/4B68 BNE $EC    [$4B56]      ;ゼロフラグが立っていないとき[$4B56]分岐
;ループ処理ここまで

$C2/4B6A PLP                     ;Pレジスタにスタックからプル
$C2/4B6B RTS                     ;サブルーチン戻り

$C2/09CE LDA #$FFFF              ;Aに$FFFFをロード
$C2/09D1 STA $65    [$00:0565]   ;Aを[$00:0566][$00:0565]に書き込み
$C2/09D3 STA $67    [$00:0567]   ;Aを[$00:0568][$00:0567]に書き込み
$C2/09D5 JSR $4298  [$C2:4298]   ;[$C2:4298]へジャンプ

$C2/0651 BCS $03    [$0656]      ;キャリーフラグが立っているとき[$0656]分岐
$C2/0653 JMP ($0532)[$C2:08A0]   ;[$C2:08A0]へジャンプ(レジスタをスタックに積まない)
$C2/08A0 LDA $69    [$00:0569]   ;Aに[$00:056A][$00:0569]（コマンド番号$0004）をロード
$C2/08A2 CMP #$0004              ;Aと$0004を減算比較（ステータスレジスタ変更のみ）
$C2/08A5 BNE $03    [$08AA]      ;ゼロフラグが立っていないとき[$08AA]分岐
;ゼロフラグON 隊形の処理
$C2/08A7 JMP $091E  [$C2:091E]   ;[$C2:091E]へジャンプ(レジスタをスタックに積まない)
$C2/091E LDA $65    [$00:0565]   ;Aに[$00:0566][$00:0565]($FFFF)をロード
$C2/0920 BPL $0C    [$092E]      ;ネガティブフラグが立っていないとき[$092E]分岐
;ネガティブフラグOFF
$C2/0922 LDA $44    [$00:0544]   ;Aに[$00:0545][$00:0544](選択元キャラカーソル位置)をロード
$C2/0924 STA $65    [$00:0565]   ;Aを[$00:0566][$00:0565]に書き込み
$C2/0926 LDA #$0404              ;Aに$0404をロード
$C2/0929 JSR $4281  [$C2:4281]   ;[$C2:4281]へジャンプ

$C2/0651 BCS $03    [$0656]      ;キャリーフラグが立っているとき[$0656]分岐
$C2/0653 JMP ($0532)[$C2:08A0]   ;[$C2:08A0]へジャンプ(レジスタをスタックに積まない)
$C2/08A0 LDA $69    [$00:0569]   ;Aに[$00:056A][$00:0569]（コマンド番号$0004）をロード
$C2/08A2 CMP #$0004              ;Aと$0004を減算比較（ステータスレジスタ変更のみ）
$C2/08A5 BNE $03    [$08AA]      ;ゼロフラグが立っていないとき[$08AA]分岐
;ゼロフラグON 隊形の処理
$C2/08A7 JMP $091E  [$C2:091E]   ;[$C2:091E]へジャンプ(レジスタをスタックに積まない)
$C2/091E LDA $65    [$00:0565]   ;Aに[$00:0566][$00:0565]($0000)をロード
$C2/0920 BPL $0C    [$092E]      ;ネガティブフラグが立っていないとき[$092E]分岐
;ネガティブフラグOFF（キャラ選択中）
$C2/092E LDA $44    [$00:0544]   ;Aに[$00:0545][$00:0544](選択先キャラカーソル位置)をロード
$C2/0930 CMP $65    [$00:0565]   ;Aと[$00:0566][$00:0565](選択元キャラカーソル位置)を減算比較（ステータスレジスタ変更のみ）
$C2/0932 BEQ $2B    [$095F]      ;ゼロフラグが立っているとき[$095F]分岐
;ゼロフラグOFF（同一キャラを選択していない）
$C2/0934 STA $67    [$00:0567]   ;A(選択先キャラカーソル位置)を[$00:0568][$00:0567]に書き込み
$C2/0936 AND #$0003              ;Aと$0003で論理積
$C2/0939 TAX                     ;Aの値をXレジスタに転送
$C2/093A JSR $0968  [$C2:0968]   ;[$C2:0968]へジャンプ

$C2/0968 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C2/096A LDA $0A14  [$7E:0A14]   ;Aに[$7E:0A14]（パーティ内の仲間の人数）をロード
$C2/096D CMP $51,x               ;Aと[$00:0551+x]を減算比較（ステータスレジスタ変更のみ）
$C2/096F REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C2/0971 RTS                     ;サブルーチン戻り

$C2/093D BPL $0B    [$094A]      ;A:0003 X:0001 Y:4308 P:envmxdIzC;ネガティブフラグが立っていないとき[$094A]分岐
;ネガティブフラグON（空欄位置の選択）
$C2/093F LDA $65    [$00:0565]   ;Aに[$00:0565]（選択元キャラのカーソル位置）をロード
$C2/0941 AND #$0003              ;Aと$0003で論理積
$C2/0944 TAX                     ;Aの値をXレジスタに転送
$C2/0945 JSR $0968  [$C2:0968]   ;[$C2:0968]へジャンプ
;ネガティブフラグOFF（空欄ではない位置の選択）
$C2/094A LDA #$35CE              ;Aに$35CEをロード
$C2/094D STA $32    [$00:0532]   ;Aを[$00:0532]に書き込み
$C2/094F LDA $65    [$00:0565]   ;Aに[$00:0565]（選択元キャラのカーソル位置）をロード
$C2/0951 JSR $0882  [$C2:0882]   ;[$C2:0882]へジャンプ

$C2/0968 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C2/096A LDA $0A14  [$7E:0A14]   ;Aに[$7E:0A14]（パーティ内の仲間の人数）をロード
$C2/096D CMP $51,x               ;Aと[$00:0551+x]（選択元キャラのカーソル位置）を減算比較（ステータスレジスタ変更のみ）
$C2/096F REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C2/0971 RTS                     ;サブルーチン戻り

$C2/0948 BMI $15    [$095F]      ;ネガティブフラグが立っているとき[$095F]分岐
;ネガティブフラグOFF（空欄ではない位置の選択）
$C2/094A LDA #$35CE              ;Aに$35CEをロード
$C2/094D STA $32    [$00:0532]   ;Aを[$00:0532]に書き込み
$C2/094F LDA $65    [$00:0565]   ;Aに[$00:0565]をロード
$C2/0951 JSR $0882  [$C2:0882]   ;[$C2:0882]へジャンプ
;ネガティブフラグON（空欄位置の選択）
$C2/095F JSR $09CE  [$C2:09CE]   ;[$C2:09CE]へジャンプ

$C2/4B6C PHP                     ;ステータスレジスタをスタックへプッシュ
$C2/4B6D REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C2/4B6F LDA $65    [$00:0565]   ;Aに[$00:0566][$00:0565](選択元キャラカーソル位置)をロード
$C2/4B71 AND #$0003              ;Aと$0003で論理積
$C2/4B74 TAX                     ;Aの値をXレジスタに転送
$C2/4B75 LDA $51,x               ;Aに[$00:0551+x]をロード
$C2/4B77 AND #$0003              ;Aと$0003で論理積
$C2/4B7A TAX                     ;Aの値をXレジスタに転送
$C2/4B7B LDA $67    [$00:0567]   ;Aに[$00:0568][$00:0567]（選択先キャラカーソル位置）をロード
$C2/4B7D AND #$0003              ;Aと$0003で論理積
$C2/4B80 TAY                     ;Aの値をYレジスタに転送
$C2/4B81 LDA $0551,y             ;Aに[$00:0551+y]をロード
$C2/4B84 AND #$0003              ;Aと$0003で論理積
$C2/4B87 TAY                     ;Aの値をYレジスタに転送
$C2/4B88 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C2/4B8A LDA $0AB0,x             ;Aに[$7E:0AB0+x]をロード
$C2/4B8D XBA                     ;Aレジスタの上位バイトと下位バイトを交換
$C2/4B8E LDA $0AB0,y             ;Aに[$7E:0AB0+y]をロード
$C2/4B91 STA $0AB0,x             ;Aを[$7E:0AB0+x]に書き込み
$C2/4B94 XBA                     ;Aレジスタの上位バイトと下位バイトを交換
$C2/4B95 STA $0AB0,y             ;Aを[$7E:0AB0+y]に書き込み
$C2/4B98 JSR $4B51  [$C2:4B51]   ;[$C2:4B51]へジャンプ