TOP > プログラミング関係解説＆調査 > キューブのバッテリーの判定

$C0/2C45 LDA $000A10[$00:0A10]   ;Aに[$00:0A10](=主人公ID)をロード
$C0/2C49 BEQ $15    [$2C60]      ;ゼロフラグが立っているとき[$2C60]分岐
$C0/2C4B STY $30    [$00:0030]   ;インデックスレジスタY(Y:158E)の値を[$00:0030]に書き込み
$C0/2C4D DEC A                   ;Aをデクリメント(A-1)
$C0/2C4E ASL A                   ;Aを算術左シフト(*2)
$C0/2C4F REP #$20                ;Mフラグをクリア Aレジスタは16bit幅
$C0/2C51 AND #$00FF              ;Aと#$00FFで論理積
$C0/2C54 CLC                     ;キャリーフラグクリア
$C0/2C55 ADC $30    [$00:0030]   ;A+[$00:0030](=$158E)
$C0/2C57 TAX                     ;Aレジスタの値をXレジスタに転送
$C0/2C58 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C0/2C5A LDY $8E00,x             ;Yに[$8E00,x]をロード
$C0/2C5D BRL $EF41  [$1BA1]      ;フラグにかかわりなく常に分岐[$1BA1]

$C0/227D LDA $8E00,y             ;Aに[$8E00,y]をロード
$C0/2280 STA $00013D[$00:013D]   ;Aに[$00:013D]を書き込み

$C0/47E8 LDA #$00                ;Aに$00をロード
$C0/47EA PHA                     ;Aレジスタの値をスタックにプッシュ
$C0/47EB PLB                     ;DBレジスタにスタックから値をプル
$C0/47EC PHX                     ;Xレジスタの値をスタックにプッシュ
$C0/47ED PHY                     ;Yレジスタの値をスタックにプッシュ
;
;持ち物欄のアイテムIDチェック ループ処理 X:0B01 Y:0C01から開始
$C0/47EE LDA $00,x               ;Aに[$00:0B??]をロード（?? = $01～$FF）
$C0/47F0 CMP $013D  [$00:013D]   ;Aと[$00:013D]（アイテムID）を減算比較
$C0/47F3 BEQ $1C    [$4811]      ;ゼロフラグが立っているとき[$4811]分岐（同一アイテムがある時の分岐）
$C0/47F5 INX                     ;Xをインクリメント(+1)
$C0/47F6 INY                     ;Yをインクリメント(+1)
$C0/47F7 CPX #$0C00              ;Xレジスタと$0C00を減算比較
$C0/47FA BNE $F2    [$47EE]      ;ゼロフラグが立っていないとき[$47EE]分岐（ループ頭に戻る）
;ループ終了（最大でX:0B01がX:0C00になるまで全アイテム欄チェック）
;
;持ち物欄に同一アイテムIDがなかった時の処理
$C0/47FC PLY                     ;Yレジスタにスタックから値をプル
$C0/47FD PLX                     ;Xレジスタにスタックから値をプル
;
;持ち物欄のアイテム個数 ループ処理 X:0B01 Y:0C01から開始
$C0/47FE LDA $0000,y             ;Aに[$00:0C??]をロード（?? = $01～$FF）
$C0/4801 BEQ $1D    [$4820]      ;ゼロフラグが立っているとき[$4820]分岐（空欄があった時の分岐）
$C0/4803 INX                     ;Xをインクリメント(+1)
$C0/4804 INY                     ;Yをインクリメント(+1)
$C0/4805 CPX #$0C00              ;Xレジスタと$0C00を減算比較
$C0/4808 BNE $F4    [$47FE]      ;ゼロフラグが立っていないとき[$47FE]分岐（ループ頭に戻る）
;ループ終了（最大でX:0B01がX:0C00になるまで全アイテム欄チェック）
;
;持ち物欄に同一アイテムIDがない　かつ　持ち物欄に空欄があった時の処理
$C0/4820 LDA $013D  [$00:013D]   ;Aに[$00:013D]（アイテムID）をロード
$C0/4823 STA $00,x               ;Aを[$00,x]（アイテム欄の最初の空欄[$00:0B??]）に書き込み
$C0/4825 LDA #$01                ;Aに$01をロード
$C0/4827 STA $0000,y             ;Aを[$0000,y]（アイテム欄の最初の空欄の個数[$00:0C??]）に書き込み
$C0/482A PLB                     ;DBレジスタにスタックから値をプル
$C0/482B CLC                     ;キャリーフラグクリア
$C0/482C RTS                     ;サブルーチン戻り

$C0/4811  LDA $0000,y             ;Aに[$00:0C??]（該当アイテムの所持数）をロード
$C0/4814  CMP #$63                ;$63（10進数99）と減算比較
$C0/4816  BCS $F4    [$480C]      ;キャリーフラグが立っているとき[$C0/481C]へ分岐
$C0/4818  INC A                   ;Aをインクリメント(+1)
$C0/4819  STA $0000,y             ;Aを[$00:0C??]に書き込み
$C0/481C  PLY                     ;Yレジスタにスタックから値をプル
$C0/481D  PLX                     ;Xレジスタにスタックから値をプル
$C0/481E  BRA $0A    [$482A]      ;[$C0/482A]へ

$C0/7D2B AD CE 0A    LDA $0ACE  [$00:0ACE]   A:0003 X:0000 Y:0000 P:envMxdIzC
$C0/7D2E C9 08       CMP #$08                A:0008 X:0000 Y:0000 P:envMxdIzC
$C0/7D30 F0 32       BEQ $32    [$7D64]      A:0008 X:0000 Y:0000 P:envMxdIZC
$C0/7D64 DA          PHX                     A:0008 X:0000 Y:0000 P:envMxdIZC
$C0/7D65 A9 00       LDA #$00                A:0008 X:0000 Y:0000 P:envMxdIZC
$C0/7D67 EB          XBA                     A:0000 X:0000 Y:0000 P:envMxdIZC
$C0/7D68 A5 26       LDA $26    [$00:0026]   A:0000 X:0000 Y:0000 P:envMxdIZC
$C0/7D6A AA          TAX                     A:0000 X:0000 Y:0000 P:envMxdIZC
$C0/7D6B LDA $0A10,x[$00:0A10]   ;Aに[$00:0A10](=主人公ID)をロード
$C0/7D6E PLX                     ;Xレジスタにスタックから値をプル
$C0/7D6F CMP #$04                ;
$C0/7D71 BCC $2B    [$7D9E]      ;