TOP > プログラミング関係解説＆調査 > 味方との戦闘 > サブルーチン

$C1/F9B0 LDY #$1A00              ;Yに$1A00をロード
$C1/F9B3 LDA $0018,x[$00:1C58]   ;Aに[$00:1C58](キャラ位置のマス目のX座標)をロード
$C1/F9B6 STA $23    [$00:0323]   ;Aを[$00:0323]に書き込み
$C1/F9B8 LDA $0019,x[$00:1C59]   ;Aに[$00:1C59](キャラ位置のマス目のY座標)をロード
$C1/F9BB STA $24    [$00:0324]   ;Aを[$00:0324]に書き込み
$C1/F9BD LDA $0010,x[$00:1C50]   ;Aに[$00:1C50](キャラの位置のX軸（ピクセル単位))をロード
$C1/F9C0 STA $25    [$00:0325]   ;Aを[$00:0325]に書き込み
$C1/F9C2 LDA $0012,x[$00:1C52]   ;Aに[$00:1C52](キャラの位置のY軸（ピクセル単位))をロード
$C1/F9C5 CLC                     ;キャリーフラグクリア
$C1/F9C6 ADC #$08                ;A + $08
$C1/F9C8 STA $26    [$00:0326]   ;Aを[$00:0326]に書き込み

$C1/F9CA LDA $0A00  [$00:0A00]   ;Aに[$00:0A00]（シナリオID）をロード
$C1/F9CD CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/F9CF BNE $04    [$F9D5]      ;ゼロフラグが立っていないとき[$F9D5]分岐
;最終編用処理
$C1/F9D1 LDA #$FF                ;Aに$FFをロード
$C1/F9D3 BRA $06    [$F9DB]      ;フラグにかかわりなく常に分岐[$F9DB]
;最終編以外の処理
$C1/F9D5 LDA $0000,x[$00:1C40]   ;Aに[$00:1C40]をロード
$C1/F9D8 CLC                     ;キャリーフラグクリア
$C1/F9D9 ADC #$EB                ;A + $EB
$C1/F9DB STA $10    [$00:0310]   ;Aを[$00:0310]に書き込み
$C1/F9DD PHX                     ;Xをスタックにプッシュ
$C1/F9DE JSR $FB81  [$C1:FB81]   ;[$C1:FB81]へジャンプ

$C1/FB81 LDA $0001,y[$00:1A01]   ;Aに[$00:1A01]をロード
$C1/FB84 BEQ $23    [$FBA9]      ;ゼロフラグが立っているとき[$FBA9]分岐
$C1/FBA9 LDA $10    [$00:0310]   ;Aに[$00:0310]をロード
$C1/FBAB STA $0000,y[$00:1A00]   ;Aを[$00:1A00]に書き込み
$C1/FBAE LDA #$FF                ;Aに$FFをロード
$C1/FBB0 STA $0001,y[$00:1A01]   ;A($FF)を[$00:1A01]に書き込み
$C1/FBB3 LDA #$00                ;Aに$00をロード
$C1/FBB5 STA $000A,y[$00:1A0A]   ;A($00)を[$00:1A0A]に書き込み
$C1/FBB8 JSR $FC0A  [$C1:FC0A]   ;[$C1:FC0A]へジャンプ

$C1/FC0A PHX                     ;Xをスタックにプッシュ
$C1/FC0B PHY                     ;Yをスタックへプッシュ
$C1/FC0C LDA $0000,y[$00:1A00]   ;Aに[$00:1A00]($F6)をロード
$C1/FC0F STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/FC12 LDA #$00                ;Aに$00をロード
$C1/FC14 STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/FC17 LDA #$20                ;Aに$20をロード
$C1/FC19 STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/FC1C STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/FC1F REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/FC21 LDA $2134  [$00:2134]   ;Aに[$00:2134]($1EC0)をロード
$C1/FC24 ADC $D50010[$D5:0010]   ;A + [$D5:0011][$D5:0010](=$04CB) = $238B
$C1/FC28 TAX                     ;Aレジスタの値をXレジスタに転送
$C1/FC29 SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/FC2B LDA #$20                ;Aに$20をロード
$C1/FC2D STA $09    [$00:0309]   ;A($20)を[$00:0309]に書き込み
;
;ループ処理
;$D5:238B～$D5:23AAを、$00:1A20～$00:1A3Fに書き込み（$20＝32回分）
$C1/FC2F LDA $D50000,x[$D5:238B] ;Aに[$D5:238B+n]をロード(敵データID $F6　サモ)
$C1/FC33 INX                     ;Xをインクリメント +1
$C1/FC34 STA $0020,y[$00:1A20]   ;Aを[$00:1A20+n]に書き込み
$C1/FC37 INY                     ;Yをインクリメント +1
$C1/FC38 DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/FC3A BNE $F3    [$FC2F]      ;ゼロフラグが立っていないとき[$FC2F]分岐
;ループここまで
;
$C1/FC3C PLY                     ;Yレジスタにスタックからプル
$C1/FC3D PLX                     ;Xレジスタにスタックからプル
$C1/FC3E RTS                     ;サブルーチン戻り

$C1/FD76 LDA $0A00  [$00:0A00]   ;Aに[$00:0A00]（プレイ中のシナリオID）をロード
$C1/FD79 CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/FD7B BNE $03    [$FD80]      ;ゼロフラグが立っていないとき[$FD80]分岐
;[$00:0A00] = $08,最終編のみの処理
$C1/FD7D LDA $0A10  [$00:0A10]   ;Aに[$00:0A10]（最終編主人公の値）をロード
$C1/FD80 RTS                     ;サブルーチン戻り
;
$C1/FD13 BEQ $01    [$FD16]      ;ゼロフラグが立っているとき[$FD16]分岐（最終編主人公 = $00はオルステッド）
$C1/FD15 RTS                     ;サブルーチン戻り
;
$C1/F6FC JSR $F959  [$C1:F959]   ;[$C1:F959]へジャンプ
;
$C1/F959 JSR $FD76  [$C1:FD76]   ;[$C1:FD76]へジャンプ
;
$C1/FD76 LDA $0A00  [$00:0A00]   ;Aに[$00:0A00]（プレイ中のシナリオID）をロード
$C1/FD79 CMP #$08                ;Aと$08を減算比較（ステータスレジスタ変更のみ）
$C1/FD7B BNE $03    [$FD80]      ;ゼロフラグが立っていないとき[$FD80]分岐
;[$00:0A00] = $08,最終編のみの処理
$C1/FD7D LDA $0A10  [$00:0A10]   ;Aに[$00:0A10]をロード
$C1/FD80 RTS                     ;サブルーチン戻り

$C1/F95C BEQ $2B    [$F989]      ;ゼロフラグが立っているとき[$F989]分岐
$C1/F95E LDX $52    [$00:0352]   ;Xに[$00:0352]をロード
$C1/F960 LDA $D60001,x[$D6:4D3F] ;Aに[$D6:4D3F]をロード
$C1/F964 AND #$F0                ;Aと$F0で論理積
$C1/F966 BNE $01    [$F969]      ;ゼロフラグが立っていないとき[$F969]分岐
$C1/F969 STA $27    [$00:0327]   ;A($40)を[$00:0327]に書き込み

$C1/F96B LDX #$1C00              ;Xに$1C00をロード
$C1/F96E STX $1C    [$00:031C]   ;Xを[$00:031C]に書き込み
$C1/F970 LDA #$04                ;Aに$04をロード
$C1/F972 STA $08    [$00:0308]   ;A($04)を[$00:0308]に書き込み
$C1/F974 ASL $27    [$00:0327]   ;[$00:0327]($40)を算術左シフト *2 (=$40*2)
$C1/F976 BCC $03    [$F97B]      ;キャリーフラグが立っていないとき[$F97B]分岐
$C1/F97B LDA $1C    [$00:031C]   ;Aに[$00:031C]($00)をロード
$C1/F97D CLC                     ;キャリーフラグクリア
$C1/F97E ADC #$40                ;A + $40
$C1/F980 STA $1C    [$00:031C]   ;Aを[$00:031C]($40)に書き込み
$C1/F982 LDX $1C    [$00:031C]   ;Xに[$00:031C]($1C40)をロード
$C1/F984 DEC $08    [$00:0308]   ;[$00:0308]($04)をデクリメント -1
$C1/F986 BNE $EC    [$F974]      ;ゼロフラグが立っていないとき[$F974]分岐
$C1/F974 ASL $27    [$00:0327]   ;[$00:0327]($80)を算術左シフト *2
$C1/F976 BCC $03    [$F97B]      ;キャリーフラグが立っていないとき[$F97B]分岐
$C1/F978 JSR $F9A7  [$C1:F9A7]   ;[$C1:F9A7]へジャンプ

;ループここから
$C1/F974 ASL $27    [$00:0327]   ;[$00:0327]($20または$40)を算術左シフト *2
$C1/F976 BCC $03    [$F97B]      ;キャリーフラグが立っていないとき[$F97B]分岐（ループを抜ける）
$C1/F97B LDA $1C    [$00:031C]   ;Aに[$00:031C]($40～)をロード
$C1/F97D CLC                     ;キャリーフラグクリア
$C1/F97E ADC #$40                ;A + $40
$C1/F980 STA $1C    [$00:031C]   ;Aを[$00:031C]に書き込み
$C1/F982 LDX $1C    [$00:031C]   ;Xに[$00:031C]をロード
$C1/F984 DEC $08    [$00:0308]   ;[$00:0308]($03～)をデクリメント -1
$C1/F986 BNE $EC    [$F974]      ;ゼロフラグが立っていないとき[$F974]分岐
;ループここまで

$C1/F9A7 LDA #$20                ;Aに$20をロード
$C1/F9A9 STA $0001,x[$00:1C?1]   ;A($20)を[$00:1C?1]に書き込み
$C1/F9AC JSR $F9B0  [$C1:F9B0]   ;[$C1:F9B0]へジャンプ

$C1/E94B PHX                     ;Xをスタックにプッシュ
$C1/E94C STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/E94E LDY $0002,x[$00:1C42]   ;Yに[$00:1C42]をロード
$C1/E951 LDX $0004,y[$00:0F84]   ;Xに[$00:0F84]をロード
$C1/E954 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/E956 LDA $000D,y[$00:0F8D]   ;Aに[$00:0F8E][$00:0F8D](覚えた技2バイト)をロード
$C1/E959 STA $10    [$00:0310]   ;Aを[$00:0311][$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](レベル00の技ID)をロード
$C1/E969 STA $12    [$00:0312]   ;A(技ID)を[$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/3D93 STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/3D96 LDA #$00                ;Aに$00をロード
$C1/3D98 STA $211B  [$00:211B]   ;Aを[$00:211B]に書き込み
$C1/3D9B LDA #$19                ;Aに$19をロード
$C1/3D9D STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/3DA0 STA $211C  [$00:211C]   ;Aを[$00:211C]に書き込み
$C1/3DA3 REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/3DA5 LDA $2134  [$00:2134]   ;Aに[$00:2134]をロード
$C1/3DA8 ADC $D50018[$D5:0018]   ;A + [$D5:0018]
$C1/3DAC TAX                     ;Aレジスタの値をXレジスタに転送
$C1/3DAD SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/3DAF RTS                     ;サブルーチン戻り
;
$C1/E978 LDA $D50008,x[$D5:34F0] ;Aに[$D5:34F0]をロード
$C1/E97C STA $13    [$00:0313]   ;Aを[$00:0313]に書き込み
$C1/E97E LDA $D5000D,x[$D5:34F5] ;Aに[$D5:34F5]をロード
$C1/E982 STA $18    [$00:0318]   ;Aを[$00:0318]に書き込み
$C1/E984 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E985 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E986 ROL A                   ;Aをキャリーフラグを含めた9bitで左ローテート
$C1/E987 AND #$01                ;Aと#$01で論理積
$C1/E989 STA $17    [$00:0317]   ;Aを[$00:0317]に書き込み
$C1/E98B LDA $D5000F,x[$D5:34F7] ;Aに[$D5:34F7]をロード
$C1/E98F AND #$FE                ;Aと$FEで論理積
$C1/E991 ORA $17    [$00:0317]   ;Aと[$00:0317]で論理和
$C1/E993 STA $17    [$00:0317]   ;Aを[$00:0317]に書き込み
$C1/E995 LDA $D5000E,x[$D5:34F6] ;Aに[$D5:34F6]をロード
$C1/E999 STA $16    [$00:0316]   ;Aを[$00:0316]に書き込み
$C1/E99B TYX                     ;Yレジスタの値をXレジスタに転送
;
$C1/E99C LSR $11    [$00:0311]   ;[$00:0311]を論理右シフト　(/2) [$00:0311][$00:0310]覚えた技2バイト
$C1/E99E ROR $10    [$00:0310]   ;[$00:0310]をキャリーフラグを含めた9bitで右ローテート
$C1/E9A0 BCS $04    [$E9A6]      ;キャリーフラグが立っているとき[$E9A6]分岐
$C1/E9A6 LDA $12    [$00:0312]   ;Aに[$00:0312](技ID)をロード
$C1/E9A8 STA $7ECD00,x[$7E:E940] ;Aを[$7E:E940]に書き込み
$C1/E9AC LDA $13    [$00:0313]   ;Aに[$00:0313]をロード
$C1/E9AE STA $7ECD10,x[$7E:E950] ;Aを[$7E:E950]に書き込み
$C1/E9B2 LDA $16    [$00:0316]   ;Aに[$00:0316]をロード
$C1/E9B4 STA $7ECD20,x[$7E:E960] ;Aを[$7E:E960]に書き込み
$C1/E9B8 LDA $17    [$00:0317]   ;Aに[$00:0317]をロード
$C1/E9BA STA $7ECD30,x[$7E:E970] ;Aを[$7E:E970]に書き込み
$C1/E9BE LDA $18    [$00:0318]   ;Aに[$00:0318]をロード
$C1/E9C0 STA $7ECE10,x[$7E:EA50] ;Aを[$7E:EA50]に書き込み
$C1/E9C4 LDX $14    [$00:0314]   ;Xに[$00:0314]をロード
$C1/E9C6 INY                     ;Yをインクリメント +1
$C1/E9C7 DEC $09    [$00:0309]   ;[$00:0309]をデクリメント -1
$C1/E9C9 INX                     ;Xをインクリメント +1
$C1/E9CA DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/E9CC BNE $97    [$E965]      ;ゼロフラグが立っていないとき[$E965]分岐
$C1/E965 LDA $D50005,x[$D5:02B5] ;Aに[$D5:02B5](レベル01の技ID)をロード
$C1/E969 STA $12    [$00:0312]   ;Aを[$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/E894 STZ $0005,x[$00:1C45]   ;[$00:1C45](味方キャラ番号2 経験値)に$00を書き込み
$C1/E897 STZ $001E,x[$00:1C5E]   ;[$00:1C5E]に$00を書き込み
$C1/E89A LDA #$04                ;Aに$04をロード
$C1/E89C STA $001F,x[$00:1C5F]   ;A($04)を[$00:1C5F]に書き込み
$C1/E89F STZ $11    [$00:0311]   ;[$00:0311]に$00を書き込み
$C1/E8A1 STX $14    [$00:0314]   ;Xを[$00:0314]に書き込み
$C1/E8A3 LDY $0002,x[$00:1C42]   ;Yに[$00:1C42]をロード
$C1/E8A6 LDA $0006,y[$00:0F86]   ;Aに[$00:0F86]（シナリオ別キャラデータ　サモ　レベル）をロード
$C1/E8A9 STA $0038,x[$00:1C78]   ;Aを[$00:1C78]（味方キャラデータ2人目　LV(現在値)）に書き込み
$C1/E8AC LDA #$00                ;Aに$00をロード
$C1/E8AE STA $0039,x[$00:1C79]   ;Aを[$00:1C79]（味方キャラデータ2人目　状態異常）に書き込み
$C1/E8B1 LDA #$04                ;Aに$04をロード
$C1/E8B3 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み

;ループ処理（1回目）
$C1/E8B5 LDA $0010,y[$00:0F90]   ;Aに[$00:0F90]（サモ　力（力＋装備上昇分））をロード
$C1/E8B8 STA $0030,x[$00:1C70]   ;Aを[$00:1C70]（味方キャラデータ2人目　力(通常値)）に書き込み
$C1/E8BB STA $0034,x[$00:1C74]   ;Aを[$00:1C74]（味方キャラデータ2人目　力(現在値)）に書き込み
$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]分岐
;ループ処理（1回目）ここまで
;
;ループ処理（2回目～4回目）省略
;
$C1/E8C6 LDX $14    [$00:0314]   ;Xに[$00:0314]をロード
$C1/E8C8 RTS                     ;サブルーチン戻り

$C1/FA31 PHX                     ;Xをスタックにプッシュ
$C1/FA32 REP #$20                ;Aを16bit幅に変更、Mフラグをクリア
$C1/FA34 LDA $7E900E,x[$7E:AB0E] ;Aに[$7E:AB0F][$7E:AB0E]をロード
$C1/FA38 TAY                     ;Aレジスタの値をYレジスタに転送
$C1/FA39 PHX                     ;Xをスタックにプッシュ
$C1/FA3A LDX $0002,y[$00:1C42]   ;Xに[$00:1C42]をロード
$C1/FA3D LDA $0031,x[$00:0FB1]   ;Aに[$00:0FB2][$00:0FB1]（シナリオ別キャラデータ$31～32）をロード
;シナリオ別キャラデータ$32の下4ビットはフィールド吸収
$C1/FA40 STA $10    [$00:0310]   ;Aを[$00:0311][$00:0310]に書き込み
;($00:0310:フィールド吸収)
$C1/FA42 LDA $000A,x[$00:0F8A]   ;Aに[$00:0F8B][$00:0F8A]（シナリオ別キャラデータ　最大HP（2バイト））をロード
$C1/FA45 PLX                     ;Xレジスタにスタックからプル
$C1/FA46 STA $7E8F00,x[$7E:AA00] ;Aを[$7E:AA01][$7E:AA00]（敵番号0のHP2バイト）に書き込み
$C1/FA4A SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/FA4C LDA $001D,y[$00:1C5D]   ;Aに[$00:1C5D]をロード
$C1/FA4F ROR A                   ;Aをキャリーフラグを含めた9bitで右ローテート
$C1/FA50 ROR A                   ;Aをキャリーフラグを含めた9bitで右ローテート
$C1/FA51 ROR A                   ;Aをキャリーフラグを含めた9bitで右ローテート
$C1/FA52 AND #$C0                ;Aと$C0で論理積
$C1/FA54 STA $0004,x[$00:1B04]   ;Aを[$00:1B04]に書き込み

$C1/FA57 LDA $0030,y[$00:1C70]   ;Aに[$00:1C70]（味方キャラデータ2人目　力(通常値)）をロード
$C1/FA5A STA $7E8F03,x[$7E:AA03] ;Aを[$7E:AA03]（敵番号0　力(現在値)）に書き込み
$C1/FA5E LDA $0031,y[$00:1C71]   ;Aに[$00:1C71]（味方キャラデータ2人目　速(通常値)）をロード
$C1/FA61 STA $7E8F04,x[$7E:AA04] ;Aを[$7E:AA04]（敵番号0　速(現在値)）に書き込み
$C1/FA65 LDA $0032,y[$00:1C72]   ;Aに[$00:1C72]（味方キャラデータ2人目　体(通常値)）をロード
$C1/FA68 STA $7E8F05,x[$7E:AA05] ;Aを[$7E:AA05]（敵番号0　体(現在値)）に書き込み
$C1/FA6C LDA $0033,y[$00:1C73]   ;Aに[$00:1C73]（味方キャラデータ2人目　知(通常値)）をロード
$C1/FA6F STA $7E8F06,x[$7E:AA06] ;Aを[$7E:AA06]（敵番号0　知(現在値)）に書き込み
$C1/FA73 LDA $0038,y[$00:1C78]   ;Aに[$00:1C78]（味方キャラデータ2人目　LV(現在値)）をロード
$C1/FA76 STA $7E9000,x[$7E:AB00] ;Aを[$7E:AB00]（敵番号0　LV(現在値)）に書き込み
$C1/FA7A LDY $0002,x[$00:1B02]   ;Yに[$00:1B02]をロード
$C1/FA7D LDA $7E8F03,x[$7E:AA03] ;Aに[$7E:AA03]（味方キャラデータ2人目　力(通常値)）をロード
$C1/FA81 STA $0025,y[$00:1A25]   ;Aを[$00:1A25]（敵種類1　敵データ05　力）に書き込み
$C1/FA84 LDA $7E8F04,x[$7E:AA04] ;Aに[$7E:AA04]（味方キャラデータ2人目　速(通常値)）をロード
$C1/FA88 STA $0026,y[$00:1A26]   ;Aを[$00:1A26]（敵種類1　敵データ06　速）に書き込み
$C1/FA8B LDA $7E8F05,x[$7E:AA05] ;Aに[$7E:AA05]（味方キャラデータ2人目　体(通常値)）をロード
$C1/FA8F STA $0027,y[$00:1A27]   ;Aを[$00:1A27]（敵種類1　敵データ07　体）に書き込み
$C1/FA92 LDA $7E8F06,x[$7E:AA06] ;Aに[$7E:AA06]（味方キャラデータ2人目　知(通常値)）をロード
$C1/FA96 STA $0028,y[$00:1A28]   ;Aを[$00:1A28]（敵種類1　敵データ08　知）に書き込み
$C1/FA99 LDA $7E9000,x[$7E:AB00] ;Aに[$7E:AB00]（味方キャラデータ2人目　LV(現在値)）をロード
$C1/FA9D STA $000B,y[$00:1A0B]   ;Aを[$00:1A0B]（敵種類1　レベル）に書き込み

$C1/FAA0 LDA $10    [$00:0310]   ;Aに[$00:0310]（下4ビット：フィールド吸収）をロード
$C1/FAA2 ASL A                   ;Aを算術左シフト *2
$C1/FAA3 ASL A                   ;Aを算術左シフト *2
$C1/FAA4 ASL A                   ;Aを算術左シフト *2
$C1/FAA5 ASL A                   ;Aを算術左シフト *2
$C1/FAA6 ORA $0021,y[$00:1A21]   ;Aと[$00:1A21]（敵データ01）で論理和
$C1/FAA9 STA $0021,y[$00:1A21]   ;Aを[$00:1A21]（上4ビット：フィールド吸収）に書き込み
$C1/FAAC REP #$21                ;Aを16bit幅に変更、キャリーフラグクリア
$C1/FAAE LDA $7E8F00,x[$7E:AA00] ;Aに[$7E:AA01][$7E:AA00]（敵番号0のHP2バイト）をロード
$C1/FAB2 STA $0010,y[$00:1A10]   ;Aを[$00:1A11][$00:1A10]（敵種類1のHP2バイト）に書き込み

$C1/FAB5 LDA $7E900E,x[$7E:AB0E] ;Aに[$7E:AB0E]をロード
$C1/FAB9 ADC #$000F              ;A + $000F
$C1/FABC TAX                     ;Aレジスタの値をXレジスタに転送
$C1/FABD SEP #$20                ;MフラグON　Aレジスタは8bit幅
$C1/FABF PHY                     ;Yをスタックへプッシュ
$C1/FAC0 LDY #$0310              ;Yに$0310をロード
$C1/FAC3 LDA #$04                ;Aに$04をロード
$C1/FAC5 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;
;サモの習得技及び技IDチェックループ処理（1回目）
$C1/FAC7 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/FAC8 AND #$0F                ;Aと$0Fで論理積
$C1/FACA BNE $06    [$FAD2]      ;ゼロフラグが立っていないとき[$FAD2]分岐
$C1/FAD2 LDA $7ECD00,x[$7E:E94F] ;Aに[$7E:E94F]をロード
$C1/FAD6 BEQ $20    [$FAF8]      ;ゼロフラグが立っているとき[$FAF8]分岐
$C1/FAF8 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/FAF9 AND #$0F                ;Aと$0Fで論理積
$C1/FAFB BEQ $CA    [$FAC7]      ;ゼロフラグが立っているとき[$FAC7]分岐
$C1/FAFD DEX                     ;Xをデクリメント -1
$C1/FAFE BRA $C7    [$FAC7]      ;フラグにかかわりなく常に分岐[$FAC7]
;ループ処理ここまで

;サモの習得技及び技IDチェックループ処理（11回目）
$C1/FAC7 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/FAC8 AND #$0F                ;Aと$0Fで論理積
$C1/FACA BNE $06    [$FAD2]      ;ゼロフラグが立っていないとき[$FAD2]分岐
$C1/FAD2 LDA $7ECD00,x[$7E:E945] ;Aに[$7E:E945]をロード
$C1/FAD6 BEQ $20    [$FAF8]      ;ゼロフラグが立っているとき[$FAF8]分岐
;習得技IDが入っている（ゼロフラグOFF）
$C1/FAD8 STA $0000,y[$00:0310]   ;Aを[$00:0310]に書き込み
$C1/FADB INY                     ;Yをインクリメント +1
$C1/FADC LDA $7ECD10,x[$7E:E955] ;Aに[$7E:E955]をロード
$C1/FAE0 STA $0000,y[$00:0311]   ;Aを[$00:0311]に書き込み
$C1/FAE3 INY                     ;Yをインクリメント +1
$C1/FAE4 LDA $7ECD20,x[$7E:E965] ;Aに[$7E:E965]をロード
$C1/FAE8 STA $0000,y[$00:0312]   ;Aを[$00:0312]に書き込み
$C1/FAEB INY                     ;Yをインクリメント +1
$C1/FAEC LDA $7ECD30,x[$7E:E975] ;Aに[$7E:E975]をロード
$C1/FAF0 STA $0000,y[$00:0313]   ;Aを[$00:0313]に書き込み
$C1/FAF3 INY                     ;Yをインクリメント +1
$C1/FAF4 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/FAF6 BEQ $08    [$FB00]      ;ゼロフラグが立っているとき[$FB00]分岐
;習得技IDなし（ゼロフラグON）
$C1/FAF8 TXA                     ;Xレジスタの値をAレジスタに転送
$C1/FAF9 AND #$0F                ;Aと$0Fで論理積
$C1/FAFB BEQ $CA    [$FAC7]      ;ゼロフラグが立っているとき[$FAC7]分岐
$C1/FAFD DEX                     ;Xをデクリメント -1
$C1/FAFE BRA $C7    [$FAC7]      ;フラグにかかわりなく常に分岐[$FAC7]
;ループ処理ここまで

$C1/FAF6 BEQ $08    [$FB00]      ;ゼロフラグが立っているとき[$FB00]分岐
;
$C1/FB00 PLX                     ;Xレジスタにスタックからプル
$C1/FB01 LDY #$0310              ;Yに$0310をロード
$C1/FB04 LDA #$04                ;Aに$04をロード
$C1/FB06 STA $08    [$00:0308]   ;Aを[$00:0308]に書き込み
;
;$00:0310～を敵データに書き込むループ処理（1回目）
$C1/FB08 LDA $0000,y[$00:0310]   ;Aに[$00:0310]をロード
$C1/FB0B INY                     ;Yをインクリメント +1
$C1/FB0C STA $002B,x[$00:1A2B]   ;Aを[$00:1A2B]（敵データ11　使用技1　技ID）に書き込み
$C1/FB0F LDA $0000,y[$00:0311]   ;Aに[$00:0311]をロード
$C1/FB12 INY                     ;Yをインクリメント +1
$C1/FB13 STA $001A,x[$00:1A1A]   ;Aを[$00:1A1A]（技1が使用不可になるステータス異常）に書き込み
$C1/FB16 LDA $0000,y[$00:0312]   ;Aに[$00:0312]をロード
$C1/FB19 INY                     ;Yをインクリメント +1
$C1/FB1A STA $0012,x[$00:1A12]   ;Aを[$00:1A12]（技1の反撃属性1）に書き込み
$C1/FB1D LDA $0000,y[$00:0313]   ;Aに[$00:0313]をロード
$C1/FB20 INY                     ;Yをインクリメント +1
$C1/FB21 STA $0016,x[$00:1A16]   ;Aを[$00:1A16]（技1の反撃属性2）に書き込み
$C1/FB24 INX                     ;Xをインクリメント +1
$C1/FB25 DEC $08    [$00:0308]   ;[$00:0308]をデクリメント -1
$C1/FB27 BNE $DF    [$FB08]      ;ゼロフラグが立っていないとき[$FB08]分岐
;ループ処理ここまで
;
$C1/FB29 PLX                     ;Xレジスタにスタックからプル
$C1/FB2A RTS                     ;サブルーチン戻り