TOP > プログラミング関係解説＆調査 > 幕末編のザコ敵 > 固有名称処理

$C1/3DDB LDA $002F,y[$00:1A2F]   ;Aに[$00:1A25]（敵データ15）をロード
$C1/3DDE PLY                     ;Yレジスタに値をプル
$C1/3DDF AND #$F0                ;Aと$F0と論理積（上1桁）
$C1/3DE1 BEQ $0C    [$3DEF]      ;ゼロフラグが立っているとき[$3DEF]分岐
$C1/3DE3 LDA $7E920F,x[$7E:AD0F] ;[$7E:AD0F](=$40)をロード
$C1/3DE7 STA $DC    [$00:03DC]   ;[$00:03DC]に書き込み
$C1/3DE9 LDA #$03                ;Aに$03をロード
$C1/3DEB STA $DD    [$00:03DD]   ;[$00:03DD]に書き込み
$C1/3DED BRA $07    [$3DF6]      ;フラグにかかわりなく常に分岐[$3DF6]
$C1/3DF6 PHB                     ;DBレジスタの値をスタックに積み
$C1/3DF7 LDA #$D6                ;Aに$D6をロード
$C1/3DF9 PHA                     ;Aレジスタの内容をスタックに積み
$C1/3DFA PLB                     ;DBレジスタに値をプル
$C1/3DFB LDX #$1E00              ;Xに$1E00をロード
$C1/3DFE STX $D8    [$00:03D8]   ;Xを[$00:03D8]に書き込み
$C1/3E00 REP #$21                ;Aレジスタは16bit幅, Cフラグクリア
$C1/3E02 LDA $DC    [$00:03DC]   ;Aに[$00:03DD][$00:03DC]をロード
$C1/3E04 ASL A                   ;算術左シフト *2
$C1/3E05 ADC $0038  [$D6:0038]   ;A+[$D6:0039][$D6:0038]
$C1/3E08 TAX                     ;Aレジスタの値をXレジスタに転送
$C1/3E09 LDA $0000,x[$D6:A680]   ;Aに[$D6:A681][$D6:A680]をロード
$C1/3E0C CLC                     ;キャリーフラグクリア
$C1/3E0D ADC $0028  [$D6:0028]   ;A+[$D6:0029][$D6:0028]
$C1/3E10 STA $DC    [$00:03DC]   ;Aを[$00:03DD][$00:03DC]に書き込み = $C2EE(奴1体目の名前開始アドレス[$D6:C2EE])
$C1/3E12 SEP #$20                ;Aレジスタは8bit幅, CフラグON
$C1/3E14 PLB                     ;DBレジスタに値をプル
$C1/3E15 JSR $506C  [$C1:506C]   ;[$C1:506C]へ

$C1/506C LDX #$B000              ;Xに$B000をロード
$C1/506F STX $D6    [$00:03D6]   ;Xを[$00:03D6]に書き込み
$C1/5071 LDA #$00                ;Aに$00をロード
$C1/5073 STZ $E0    [$00:03E0]   ;[$00:03E0] = $00
$C1/5075 RTS                     ;サブルーチン戻り
;
$C1/3E18 LDA #$10                ;Aに$10をロード
$C1/3E1A STA $E3    [$00:03E3]   ;A($10)を[$00:03E3]に書き込み
$C1/3E1C STA $E1    [$00:03E1]   ;A($10)を[$00:03E1]に書き込み
$C1/3E1E LDA #$01                ;Aに$01をロード
$C1/3E20 STA $E2    [$00:03E2]   ;A($01)を[$00:03E2]に書き込み
$C1/3E22 STZ $DF    [$00:03DF]   ;[$00:03DF] = $00
$C1/3E24 LDA #$D6                ;Aに$D6をロード
$C1/3E26 BRL $0022  [$3E4B]      ;フラグにかかわりなく常に分岐[$3E4B]
$C1/3E4B JSR $3E61  [$C1:3E61]   ;[$C1:3E61]へ
;
$C1/3E61 LDX #$0000              ;Xに$0000をロード
$C1/3E64 PHB                     ;DBレジスタの値をスタックに積み
$C1/3E65 PHA                     ;Aレジスタの内容をスタックに積み
$C1/3E66 PLB                     ;DBレジスタに値をプル
$C1/3E67 PHY                     ;Yレジスタの内容をスタックに積み
$C1/3E68 LDY $DC    [$00:03DC]   ;Yに[$00:03DD][$00:03DC](=$C2EE)をロード
$C1/3E6A CMP #$7E                ;Aと$7Eを減算比較（ステータスフラグ変更のみ）
$C1/3E6C BNE $04    [$3E72]      ;ゼロフラグが立っていないとき[$3E72]分岐
$C1/3E6E LDA #$0C                ;Aに$0Cをロード
$C1/3E70 BRA $02    [$3E74]      ;フラグにかかわりなく常に分岐[$3E74]
$C1/3E72 LDA #$60                ;Aに$60をロード
$C1/3E74 STA $08    [$00:0308]   ;A($60)を[$00:0308]に書き込み
$C1/3E76 STZ $09    [$00:0309]   ;[$00:0309] = $00

;名称一覧から文字呼び出しサブルーチン
$C1/3E78 LDA $0000,y             ;Aに[$D6:C2EE + n]（奴の1人目名前開始地点）をロード
$C1/3E7B INY                     ;Yをインクリメント +1
$C1/3E7C CMP #$1D                ;Aと$1Dを減算比較（ステータスフラグ変更のみ）
$C1/3E7E BEQ $2D    [$3EAD]      ;ゼロフラグが立っているとき[$3EAD]分岐
$C1/3E80 CMP #$1E                ;Aと$1Eを減算比較（ステータスフラグ変更のみ）
$C1/3E82 BEQ $29    [$3EAD]      ;ゼロフラグが立っているとき[$3EAD]分岐
$C1/3E84 CMP #$1F                ;Aと$1Fを減算比較（ステータスフラグ変更のみ）
$C1/3E86 BEQ $25    [$3EAD]      ;ゼロフラグが立っているとき[$3EAD]分岐
$C1/3E88 CMP #$0E                ;Aと$0Eを減算比較（ステータスフラグ変更のみ）
$C1/3E8A BEQ $16    [$3EA2]      ;ゼロフラグが立っているとき[$3EA2]分岐
$C1/3E8C CMP #$07                ;Aと$07を減算比較（ステータスフラグ変更のみ）
$C1/3E8E BNE $26    [$3EB6]      ;ゼロフラグが立っていないとき[$3EB6]分岐
;A = $0E　または　$07の時　$C1/3EA2～$C1/3EAB
$C1/3EA2 LDA #$21                ;Aに$21をロード
$C1/3EA4 STA $7EFF00,x           ;Aを[$7E:FF00 + x]に書き込み
$C1/3EA8 INX                     ;Xをインクリメント + 1
$C1/3EA9 LDA #$00                ;Aに$00をロード
$C1/3EAB BRA $09    [$3EB6]      ;フラグにかかわりなく常に分岐[$3EB6]
;漢字用処理　$C1/3EAD～$C1/3EB5
$C1/3EAD STA $7EFF00,x           ;Aを[$7E:FF00 + x+1]に書き込み
$C1/3EB1 INX                     ;Xをインクリメント + 1
$C1/3EB2 LDA $0000,y             ;Aに[$D6:C2EE + n+1]をロード
$C1/3EB5 INY                     ;Yをインクリメント + 1
$C1/3EB6 STA $7EFF00,x           ;Aを[$7E:FF00 + x]に書き込み
$C1/3EBA INX                     ;Xをインクリメント + 1
$C1/3EBB CPX $08    [$00:0308]   ;Xレジスタと[$00:0308]を減算比較
$C1/3EBD BCC $B9    [$3E78]      ;キャリーフラグが立っていないとき[$3E78]分岐
;名称一覧から文字呼び出しサブルーチン　ここまで

$C1/3EBF LDA #$00                ;Aに$00をロード
$C1/3EC1 STA $7EFF00,x[$7E:FF61] ;Aを[$7E:FF61]に書き込み
$C1/3EC5 PLY                     ;Yレジスタへ値をプル
$C1/3EC6 PLB                     ;DBレジスタへ値をプル
$C1/3EC7 RTS                     ;サブルーチン戻り

$C1/3EDB LDA $7EFF00,x[$7E:FF00] ;Aに[$7E:FF00]をロード
$C1/3EDF STA $DE    [$00:03DE]   ;A（[$7E:FF00]）を[$00:03DE]に書き込み
$C1/3EE1 INX                     ;Xをインクリメント
$C1/3EE2 STX $DC    [$00:03DC]   ;Xを[$00:03DC]に書き込み
$C1/3EE4 CMP #$00                ;Aと$00を減算比較（ステータスフラグ変更のみ）
$C1/3EE6 BNE $03    [$3EEB]      ;ゼロフラグが立っていないとき[$3EEB]分岐
$C1/3EEB CMP #$01                ;Aと$01を減算比較（ステータスフラグ変更のみ）
$C1/3EED BNE $03    [$3EF2]      ;ゼロフラグが立っていないとき[$3EF2]分岐
$C1/3EF2 CMP #$0A                ;Aと$0Aを減算比較（ステータスフラグ変更のみ）
$C1/3EF4 BEQ $0C    [$3F02]      ;ゼロフラグが立っているとき[$3F02]分岐
$C1/3EF6 CMP #$0B                ;Aと$0Bを減算比較（ステータスフラグ変更のみ）
$C1/3EF8 BEQ $06    [$3F00]      ;ゼロフラグが立っているとき[$3F00]分岐
$C1/3EFA CMP #$0C                ;Aと$0Cを減算比較（ステータスフラグ変更のみ）
$C1/3EFC BNE $0A    [$3F08]      ;ゼロフラグが立っていないとき[$3F08]分岐
$C1/3F08 CMP #$1D                ;Aと$1Dを減算比較（ステータスフラグ変更のみ）
$C1/3F0A BEQ $08    [$3F14]      ;ゼロフラグが立っているとき[$3F14]分岐
$C1/3F0C CMP #$1E                ;Aと$1Eを減算比較（ステータスフラグ変更のみ）
$C1/3F0E BEQ $04    [$3F14]      ;ゼロフラグが立っているとき[$3F14]分岐
$C1/3F10 CMP #$1F                ;Aと$1Fを減算比較（ステータスフラグ変更のみ）
$C1/3F12 BNE $0F    [$3F23]      ;ゼロフラグが立っていないとき[$3F23]分岐
$C1/3F23 STZ $DF    [$00:03DF]   ;[$00:03DF]に$00をロード
$C1/3F25 JSR $5095  [$C1:5095]   ;[$C1:5095]にジャンプ

$C1/5095 LDA $DE    [$00:03DE]   ;Aに[$00:03DE]（[$7E:FF00]）をロード
$C1/5097 STA $211B  [$00:211B]   ;符号付16bit x 8bit　被乗数の下位バイト
$C1/509A LDA $DF    [$00:03DF]   ;Aに[$00:03DF]（$00）をロード
$C1/509C STA $211B  [$00:211B]   ;符号付16bit x 8bit　被乗数の下位バイト
$C1/509F LDA #$18                ;Aに$18をロード
$C1/50A1 STA $211C  [$00:211C]   ;符号付16bit x 8bit　乗数
$C1/50A4 STA $211C  [$00:211C]   ;符号付16bit x 8bit　乗数
$C1/50A7 REP #$21                ;Aレジスタは16bit幅, Cフラグクリア
$C1/50A9 LDA #$9200              ;Aに$9200をロード
$C1/50AC ADC $2134  [$00:2134]   ;A + 乗算結果下位1バイト＆中位1バイト
$C1/50AF TAX                     ;AレジスタをXレジスタにコピー
$C1/50B0 SEP #$20                ;Aレジスタは8bit幅, CフラグON
$C1/50B2 LDA $E0    [$00:03E0]   ;Aに[$00:03E0]をロード
$C1/50B4 AND #$01                ;Aと$01で論理積
$C1/50B6 BEQ $03    [$50BB]      ;ゼロフラグが立っているとき[$50BB]分岐
$C1/50BB PHB                     ;DBレジスタをスタックへプッシュ
$C1/50BC LDA #$7E                ;Aに$7Eをロード
$C1/50BE PHA                     ;Aレジスタをスタックへプッシュ
$C1/50BF PLB                     ;DBレジスタへ値をプル
$C1/50C0 LDY $D6    [$00:03D6]   ;Yに[$00:03D6]をロード
$C1/50C2 LDA #$0C                ;Aに$0Cをロード
$C1/50C4 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;
;文字画像データのロードループ処理
$C1/50C6 LDA $D40000,x[$D4:A5E0] ;Aに[$D4:A5E0+2n]をロード
$C1/50CA STA $0005,y[$7E:B005]   ;Aを[$7E:B005+2n]に書き込み
$C1/50CD LDA $D40001,x[$D4:A5E1] ;Aに[$D4:A5E1+2n]をロード
$C1/50D1 STA $0025,y[$7E:B025]   ;Aを[$7E:B025+2n]に書き込み
$C1/50D4 INX                     ;Xをインクリメント +1
$C1/50D5 INX                     ;Xをインクリメント +1
$C1/50D6 INY                     ;Yをインクリメント +1
$C1/50D7 INY                     ;Yをインクリメント +1
$C1/50D8 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/50DA BNE $EA    [$50C6]      ;ゼロフラグが立っていないとき[$50C6]分岐
;文字画像データのロードループ処理　ここまで
;
$C1/50DC REP #$21                ;Aレジスタは16bit幅, Cフラグクリア
$C1/50DE LDA $D6    [$00:03D6]   ;Aに[$00:03D7][$00:03D6]をロード
$C1/50E0 ADC #$0020              ;A + $0020
$C1/50E3 STA $D6    [$00:03D6]   ;Aを[$00:03D7][$00:03D6]に書き込み
$C1/50E5 SEP #$20                ;Aレジスタは8bit幅, CフラグON
$C1/50E7 INC $E0    [$00:03E0]   ;[$00:03E0]をインクリメント +1
$C1/50E9 PLB                     ;DBレジスタへ値をプル
$C1/50EA RTS                     ;サブルーチン戻り