TOP > プログラミング関係解説＆調査 > ステータス変動

$C1/D29D LDA #$00                ;Aに$00をロード
$C1/D29F STA $7E9EF0[$7E:9EF0]   ;Aを[$7E:9EF0]に書き込み
$C1/D2A3 STA $7E9EF1[$7E:9EF1]   ;Aを[$7E:9EF1]に書き込み
$C1/D2A7 STA $7E9EF2[$7E:9EF2]   ;Aを[$7E:9EF2]に書き込み
$C1/D2AB STA $7E9EF3[$7E:9EF3]   ;Aを[$7E:9EF3]に書き込み
$C1/D2AF STA $7E9EF4[$7E:9EF4]   ;Aを[$7E:9EF4]に書き込み
$C1/D2B3 STA $7E9EF5[$7E:9EF5]   ;Aを[$7E:9EF5]に書き込み
$C1/D2B7 STA $7E9EF6[$7E:9EF6]   ;Aを[$7E:9EF6]に書き込み
$C1/D2BB RTS                     ;サブルーチン戻り

$C1/DCD6 LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
$C1/DCDA STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/DCDC BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）※上1ビット判定
$C1/DCDE BEQ $03    [$DCE3]      ;ゼロフラグが立っているとき[$DCE3]分岐
;ゼロフラグOFF 使用者のステータスが変動
$C1/DCE0 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DCE2 RTS                     ;サブルーチン戻り

;敵が味方を攻撃して自身にステータス変動　開始位置
$C1/DCC1 LDA $79    [$00:0379]   ;Aに[$00:0379]をロード
$C1/DCC3 CMP #$1C                ;Aと$1Cを減算比較（ステータスレジスタ変更のみ）
$C1/DCC5 BEQ $03    [$DCCA]      ;ゼロフラグが立っているとき[$DCCA]分岐
$C1/DCC7 BRL $00B9  [$DD83]      ;フラグにかかわりなく常に分岐[$DD83]
$C1/DD83 LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/DD85 STX $10    [$00:0310]   ;Xを[$00:0310]に書き込み
$C1/DD87 LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
$C1/DD8B EOR #$80                ;Aと$80で排他的論理和XOR
$C1/DD8D BRA $04    [$DD93]      ;フラグにかかわりなく常に分岐[$DD93]
;味方が敵を攻撃してステータス変動　開始位置
;敵が敵を回復してステータス変動　開始位置
$C1/DD8F LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
;処理合流
$C1/DD93 STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み

$C1/DD93 STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/DD95 BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）※上1ビット判定
$C1/DD97 BEQ $03    [$DD9C]      ;ゼロフラグが立っているとき[$DD9C]分岐
;ゼロフラグOFF 使用者のステータスが変動
$C1/DD99 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DD9B RTS                     ;サブルーチン戻り
;ゼロフラグON 標的のステータスが変動か、ステータス変動なし
$C1/DD9C LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DD9E LDA #$00                ;Aに$00をロード
$C1/DDA0 STA $7E900D,x           ;A($00)を[$7E900D,x]に書き込み
$C1/DDA4 JSR $03F1  [$C1:03F1]   ;[$C1:03F1]へジャンプ
;
$C1/03F1 LDY $0002,x             ;Yに[$00:1B02+x]をロード
$C1/03F4 LDA $002F,y             ;Aに[$00:1A2F+y](敵データ15　タイプ 04はOBJECT)をロード
$C1/03F7 BIT #$04                ;Aと$04で論理積（ステータスフラグ変更のみ）
$C1/03F9 RTS                     ;サブルーチン戻り

$C1/DDA7 BEQ $01    [$DDAA]      ;ゼロフラグが立っているとき[$DDAA]分岐
;ゼロフラグOFFだとOBJECTなのでステータス変動しない
$C1/DDA9 RTS                     ;サブルーチン戻り

;$C1/DDA7でゼロフラグON
$C1/DDAA STZ $15    [$00:0315]   ;[$00:0315]に$00を書き込み
$C1/DDAC STZ $20    [$00:0320]   ;[$00:0320]に$00を書き込み
$C1/DDAE LDA $12    [$00:0312]   ;Aに[$00:0312](技データ23 ステータス変動)をロード
$C1/DDB0 AND #$60                ;Aと$60(%0110 0000)で論理積
$C1/DDB2 BEQ $10    [$DDC4]      ;ゼロフラグが立っているとき[$DDC4]分岐(下降・大)
$C1/DDB4 CMP #$20                ;Aと$20(%0010 0000)を減算比較（ステータスレジスタ変更のみ）
$C1/DDB6 BEQ $10    [$DDC8]      ;ゼロフラグが立っているとき[$DDC8]分岐(下降・中)
$C1/DDB8 CMP #$40                ;Aと$40(%0100 0000)を減算比較（ステータスレジスタ変更のみ）
$C1/DDBA BEQ $10    [$DDCC]      ;ゼロフラグが立っているとき[$DDCC]分岐(下降・小)
;ステータス上昇処理
$C1/DDBC LDA #$01                ;Aに$01をロード
$C1/DDBE STA $15    [$00:0315]   ;Aを[$00:0315]に書き込み
$C1/DDC0 LDA #$50                ;Aに$50をロード
$C1/DDC2 BRA $0A    [$DDCE]      ;フラグにかかわりなく常に分岐[$DDCE]
;ステータス下降・大の処理
$C1/DDC4 LDA #$00                ;Aに$00をロード
$C1/DDC6 BRA $06    [$DDCE]      ;フラグにかかわりなく常に分岐[$DDCE]
;ステータス下降・中の処理
$C1/DDC8 LDA #$20                ;Aに$20をロード
$C1/DDCA BRA $02    [$DDCE]      ;フラグにかかわりなく常に分岐[$DDCE]
;ステータス下降・小の処理
$C1/DDCC LDA #$30                ;Aに$30をロード
;処理合流
$C1/DDCE STA $14    [$00:0314]   ;A(処理値 $50/$00/$10/$30)を[$00:0314]に書き込み

$C1/DDD0 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DDD2 LDA $7E900A,x           ;Aに[$7E:ABnA](敵番号n レベル現在値)をロード
$C1/DDD6 CLC                     ;キャリーフラグクリア
$C1/DDD7 ADC #$10                ;A + $10 (LV + $10 = LV + 16) = $2C
$C1/DDD9 BCC $01    [$DDDC]      ;キャリーフラグが立っていないとき[$DDDC]分岐
;キャリーフラグON レベル＋16が256を越えたらステータス増減なし
$C1/DDDB RTS                     ;サブルーチン戻り
;キャリーフラグOFF
$C1/DDDC CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/DDDE BCC $01    [$DDE1]      ;キャリーフラグが立っていないとき[$DDE1]分岐
;キャリーフラグON 「レベル＋16 - $40(64)」 が0か正の数の時、ステータス増減なし
$C1/DDE0 RTS                     ;サブルーチン戻り
;キャリーフラグOFF
$C1/DDE1 STA $13    [$00:0313]   ;A(LV + $10)を[$00:0313]に書き込み
$C1/DDE3 LSR $12    [$00:0312]   ;[$00:0312](技データ23 ステータス変動)を論理右シフト　(/2)
$C1/DDE5 BCC $23    [$DE0A]      ;キャリーフラグが立っていないとき[$DE0A]分岐(下1ビットに1だとキャリーフラグ)
$C1/DDE7 JSR $DE7B  [$C1:DE7B]   ;[$C1:DE7B]へジャンプ
;
$C1/DE7B JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ

$C1/6150 PHX                     ;↓戦闘乱数計算
;（中略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/DE7E AND #$3F                ;A（乱数$00～$FF）と$3F(%0011 1111)で論理積
$C1/DE80 CMP $13    [$00:0313]   ;Aと[$00:0313](LV + $10)を減算比較（ステータスレジスタ変更のみ）
$C1/DE82 RTS                     ;サブルーチン戻り

$C1/DDEA BCC $1E    [$DE0A]      ;キャリーフラグが立っていないとき[$DE0A]分岐（失敗）
$C1/DDEC BEQ $1C    [$DE0A]      ;ゼロフラグが立っているとき[$DE0A]分岐（失敗）
$C1/DDEE LDA #$01                ;Aに$01をロード
$C1/DDF0 STA $20    [$00:0320]   ;A($01)を[$00:0320]に書き込み
$C1/DDF2 LDA $7E9000,x           ;Aに[$7E:ABn0](LV(現在値))をロード
$C1/DDF6 JSR $DE4D  [$C1:DE4D]   ;[$C1:DE4D]へジャンプ

$C1/DE4D REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/DE4F AND #$00FF              ;Aと$00FFで論理積
$C1/DE52 ASL A                   ;Aを算術左シフト *2
$C1/DE53 ASL A                   ;Aを算術左シフト *2
$C1/DE54 SEP #$20                ;MフラグON　Aレジスタは8bit幅
;符号付16bit x 8bit LV(現在値)*4 * (処理値 $50/$00/$10/$30)
$C1/DE56 STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/DE59 XBA                     ;Aレジスタの上位バイトと下位バイトを交換
$C1/DE5A STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/DE5D LDA $14    [$00:0314]   ;Aに[$00:0314](処理値 $50/$00/$10/$30)をロード
$C1/DE5F STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/DE62 STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/DE65 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/DE67 LDA $2135  [$00:2135]   ;Aに[$00:2135]（乗算結果　中位1バイト）をロード
$C1/DE6A CMP #$00FF              ;Aと$00FFを減算比較（ステータスレジスタ変更のみ）
$C1/DE6D BCC $06    [$DE75]      ;キャリーフラグが立っていないとき[$DE75]分岐
$C1/DE75 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/DE77 CLC                     ;キャリーフラグクリア
$C1/DE78 ADC $15    [$00:0315]   ;A + [$00:0315](上昇の時1)
$C1/DE7A RTS                     ;サブルーチン戻り

$C1/DDF9 LDY #$9EF2              ;Yに$9EF2をロード
$C1/DDFC PHA                     ;Aをスタックにプッシュ
$C1/DDFD SEC                     ;キャリーフラグON
$C1/DDFE SBC $7E9000,x[$7E:AB00] ;A - [$7E:AB00](LV(現在値))
$C1/DE02 JSR $DE83  [$C1:DE83]   ;[$C1:DE83]へジャンプ
;
$C1/DE83 BCS $07    [$DE8C]      ;キャリーフラグが立っているとき[$DE8C]分岐
;キャリーフラグOFF
$C1/DE85 STA $16    [$00:0316]   ;Aを[$00:0316]に書き込み
$C1/DE87 LDA #$00                ;Aに$00をロード
$C1/DE89 SEC                     ;キャリーフラグON
$C1/DE8A SBC $16    [$00:0316]   ;A - [$00:0316]
;キャリーフラグON
$C1/DE8C PHX                     ;Xをスタックにプッシュ
$C1/DE8D TYX                     ;Yレジスタの値をXレジスタに転送
$C1/DE8E CLC                     ;キャリーフラグクリア
$C1/DE8F ADC $7E0000,x[$7E:9EF2] ;A + [$7E:9EF2]
$C1/DE93 BCC $02    [$DE97]      ;キャリーフラグが立っていないとき[$DE97]分岐
;キャリーフラグON
$C1/DE95 LDA #$FF                ;Aに$FFをロード
;キャリーフラグOFF
$C1/DE97 STA $7E0000,x[$7E:9EF2] ;Aを[$7E:9EF2]に書き込み
$C1/DE9B PLX                     ;Xレジスタにスタックからプル
$C1/DE9C RTS                     ;サブルーチン戻り

$C1/DE05 PLA                     ;Aレジスタに値をプル
$C1/DE06 STA $7E9000,x[$7E:AB00] ;Aを[$7E:AB00](LV(現在値))に書き込み
;ここで失敗分岐と合流
$C1/DE0A LDY #$9EF6              ;Yに$9EF6をロード
$C1/DE0D LDA #$02                ;Aに$02をロード
$C1/DE0F STA $21    [$00:0321]   ;Aを[$00:0321]に書き込み
$C1/DE11 LDA #$04                ;Aに$04をロード
$C1/DE13 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
$C1/DE15 LSR $12    [$00:0312]   ;[$00:0312]を論理右シフト　(/2)
$C1/DE17 BCC $23    [$DE3C]      ;キャリーフラグが立っていないとき[$DE3C]分岐
$C1/DE19 JSR $DE7B  [$C1:DE7B]   ;[$C1:DE7B]へジャンプ
;
$C1/DE7B JSR $6150  [$C1:6150]   ;[$C1:6150]へジャンプ

$C1/DDE7 JSR ━━┓
$C1/DE7B JSR ━┓┃
$C1/6150 JSR ┓┃┃
$C1/61A4 RTS ┛┃┃
$C1/DE82 RTS ━┛┃
$C1/DDEA BCC 　←┛

$C1/DE19 JSR ━━┓
$C1/DE7B JSR ━┓┃
$C1/6150 JSR ┓┃┃
$C1/61A4 RTS ┛┃┃
$C1/DE7E RTS ━┛┃
$C1/DE1C BCC 　←┛

$C1/6150 PHX                     ;↓戦闘乱数計算
;（中略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/DE7E AND #$3F                ;Aと$3Fで論理積
$C1/DE80 CMP $13    [$00:0313]   ;Aと[$00:0313](LV + $10)を減算比較（ステータスレジスタ変更のみ）
$C1/DE82 RTS                     ;サブルーチン戻り
;
$C1/DE1C BCC $1E    [$DE3C]      ;キャリーフラグが立っていないとき[$DE3C]分岐（失敗）
$C1/DE1E BEQ $1C    [$DE3C]      ;ゼロフラグが立っているとき[$DE3C]分岐（失敗）
$C1/DE20 LDA $20    [$00:0320]   ;Aに[$00:0320]をロード
$C1/DE22 CLC                     ;キャリーフラグクリア
$C1/DE23 ADC $21    [$00:0321]   ;A + [$00:0321]
$C1/DE25 STA $20    [$00:0320]   ;Aを[$00:0320]に書き込み
$C1/DE27 LDA $7E8F06,x[$7E:AA05] ;Aに[$7E:AA05]をロード　X:1AFF
$C1/DE2B JSR $DE4D  [$C1:DE4D]   ;[$C1:DE4D]へジャンプ

;$C1/DE4D～$C1/DE7A処理
$C1/DE7A RTS                     ;サブルーチン戻り
;
$C1/DE2E PHA                     ;Aをスタックにプッシュ
$C1/DE2F SEC                     ;キャリーフラグON
$C1/DE30 SBC $7E8F06,x[$7E:AA05] ;A - [$7E:AA05]
$C1/DE34 JSR $DE83  [$C1:DE83]   ;[$C1:DE83]へジャンプ
;
;レベル処理と共通$C1/DE83～$C1/DE9C
$C1/DE83 BCS $07    [$DE8C]      ;キャリーフラグが立っているとき[$DE8C]分岐
$C1/DE85 STA $16    [$00:0316]   ;Aを[$00:0316]に書き込み
$C1/DE87 LDA #$00                ;Aに$00をロード
$C1/DE89 SEC                     ;キャリーフラグON
$C1/DE8A SBC $16    [$00:0316]   ;A - [$00:0316]
$C1/DE8C PHX                     ;Xをスタックにプッシュ
$C1/DE8D TYX                     ;Yレジスタの値をXレジスタに転送
$C1/DE8E CLC                     ;キャリーフラグクリア
$C1/DE8F ADC $7E0000,x[$7E:9EF5] ;A + [$7E:9EF5] X:9EF5
$C1/DE93 BCC $02    [$DE97]      ;キャリーフラグが立っていないとき[$DE97]分岐
$C1/DE97 STA $7E0000,x[$7E:9EF5] ;Aを[$7E:9EF5]に書き込み
$C1/DE9B PLX                     ;Xレジスタにスタックからプル
$C1/DE9C RTS                     ;サブルーチン戻り
;
$C1/DE37 PLA                     ;Aレジスタに値をプル
$C1/DE38 STA $7E8F06,x[$7E:AA05] ;Aを[$7E:AA05]に書き込み X:1AFF
;失敗時との合流
$C1/DE3C ASL $21    [$00:0321]   ;[$00:0321]を算術左シフト *2
$C1/DE3E DEX                     ;Xをデクリメント -1
$C1/DE3F DEY                     ;Yをデクリメント -1
$C1/DE40 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/DE42 BNE $D1    [$DE15]      ;ゼロフラグが立っていないとき[$DE15]分岐
;ループ処理ここまで
$C1/DE44 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DE46 LDA $20    [$00:0320]   ;Aに[$00:0320]をロード
$C1/DE48 STA $7E900D,x           ;Aを[$7E:ABnD]に書き込み 
$C1/DE4C RTS                     ;サブルーチン戻り

$C1/DD8F LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
$C1/DD93 STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/DD95 BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）※上1ビット判定
$C1/DD97 BEQ $03    [$DD9C]      ;ゼロフラグが立っているとき[$DD9C]分岐
;ゼロフラグOFF 使用者のステータスが変動
$C1/DD99 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DD9B RTS                     ;サブルーチン戻り

;味方が敵を攻撃して味方自身にステータス変動を起こす　開始位置
$C1/DCC1 LDA $79    [$00:0379]   ;Aに[$00:0379]をロード
$C1/DCC3 CMP #$1C                ;Aと$1Cを減算比較（ステータスレジスタ変更のみ）
$C1/DCC5 BEQ $03    [$DCCA]      ;ゼロフラグが立っているとき[$DCCA]分岐
$C1/DCCA LDX $78    [$00:0378]   ;Xに[$00:0378]をロード
$C1/DCCC STX $10    [$00:0310]   ;Xを[$00:0310]に書き込み
$C1/DCCE LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
$C1/DCD2 EOR #$80                ;Aと$80で排他的論理和XOR
$C1/DCD4 BRA $04    [$DCDA]      ;フラグにかかわりなく常に分岐[$DCDA]
;味方が味方を回復してステータス変動
;及び　敵が味方を攻撃してステータス変動　開始位置
$C1/DCD6 LDA $7E9027[$7E:9027]   ;Aに[$7E:9027](技データ23 ステータス変動)をロード
;処理合流
$C1/DCDA STA $12    [$00:0312]   ;Aを[$00:0312]に書き込み
$C1/DCDC BIT #$80                ;Aと$80で論理積（ステータスフラグ変更のみ）
$C1/DCDE BEQ $03    [$DCE3]      ;ゼロフラグが立っているとき[$DCE3]分岐

$C1/DCE3 LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DCE5 STZ $001C,x[$00:1C1C]   ;[$00:1C1C]に$00を書き込み※味方キャラデータ+$1C
$C1/DCE8 STZ $15    [$00:0315]   ;[$00:0315]に$00を書き込み
$C1/DCEA STZ $20    [$00:0320]   ;[$00:0320]に$00を書き込み
$C1/DCEC LDA $12    [$00:0312]   ;Aに[$00:0312]をロード
$C1/DCEE AND #$60                ;Aと$60で論理積
$C1/DCF0 BEQ $10    [$DD02]      ;ゼロフラグが立っているとき[$DD02]分岐(下降・大)
$C1/DCF2 CMP #$20                ;Aと$20を減算比較（ステータスレジスタ変更のみ）
$C1/DCF4 BEQ $10    [$DD06]      ;ゼロフラグが立っているとき[$DD06]分岐(下降・中)
$C1/DCF6 CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/DCF8 BEQ $10    [$DD0A]      ;ゼロフラグが立っているとき[$DD0A]分岐(下降・小)
;ステータス上昇処理
$C1/DCFA LDA #$01                ;Aに$01をロード
$C1/DCFC STA $15    [$00:0315]   ;Aを[$00:0315]に書き込み
$C1/DCFE LDA #$50                ;Aに$50をロード
$C1/DD00 BRA $0A    [$DD0C]      ;フラグにかかわりなく常に分岐[$DD0C]
;ステータス下降・大の処理
$C1/DD02 LDA #$00                ;Aに$00をロード
$C1/DD04 BRA $06    [$DD0C]      ;フラグにかかわりなく常に分岐[$DD0C]
;ステータス下降・中の処理
$C1/DD06 LDA #$20                ;Aに$20をロード
$C1/DD08 BRA $02    [$DD0C]      ;フラグにかかわりなく常に分岐[$DD0C]
;ステータス下降・小の処理
$C1/DD0A LDA #$30                ;Aに$30をロード
;処理合流
$C1/DD0C STA $14    [$00:0314]   ;Aを[$00:0314]に書き込み
$C1/DD0E LDX $10    [$00:0310]   ;Xに[$00:0310]をロード
$C1/DD10 LDA $002E,x[$00:1C2E]   ;Aに[$00:1C2E]をロード
;[$00:1C2E] = 味方キャラデータ+$2E = LV(現在値) - 背面補正
$C1/DD13 CLC                     ;キャリーフラグクリア
$C1/DD14 ADC #$10                ;A + $10
$C1/DD16 BCC $01    [$DD19]      ;キャリーフラグが立っていないとき[$DD19]分岐
;キャリーフラグON レベル - 背面補正＋16が256を越えたらステータス増減なし
$C1/DD18 RTS                     ;サブルーチン戻り
;キャリーフラグOFF
$C1/DD19 CMP #$40                ;Aと$40を減算比較（ステータスレジスタ変更のみ）
$C1/DD1B BCC $01    [$DD1E]      ;キャリーフラグが立っていないとき[$DD1E]分岐
;キャリーフラグON 「レベル - 背面補正＋16 - $40(64)」 が0か正の数の時、ステータス増減なし
$C1/DD1D RTS                     ;サブルーチン戻り
;キャリーフラグOFF
$C1/DD1E STA $13    [$00:0313]   ;Aを[$00:0313]に書き込み
$C1/DD20 LSR $12    [$00:0312]   ;A[$00:0312]を論理右シフト　(/2)
$C1/DD22 BCC $20    [$DD44]      ;キャリーフラグが立っていないとき[$DD44]分岐
$C1/DD24 JSR $DE7B  [$C1:DE7B]   ;[$C1:DE7B]へジャンプ
;
$C1/6150 PHX                     ;↓戦闘乱数計算
;（中略）
$C1/61A4 RTS                     ;乱数がAと[$00:033B]に入る
;
$C1/DE7E AND #$3F                ;A（乱数$00～$FF）と$3Fで論理積
$C1/DE80 CMP $13    [$00:0313]   ;Aと[$00:0313](LV - 背面補正 + $10)を減算比較（ステータスレジスタ変更のみ）
$C1/DE82 RTS                     ;サブルーチン戻り