This article has a talk page!This page contains notes for the game Super Real Hanafuda: Koi Koi Shimasho 2.
This is split up by which ROM these fragments were found in. These can be seen at the hex addresses listed below.
|
'...But what does it mean?' |
u26.bin#
0x60404:
002,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 025,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 007,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 007,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel 007,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 006,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 035,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 007,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel 007,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 007,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel 007,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 007,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 007,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel 007,_G02_Ivt02_03,__G02_Ivt02_03
__mEsect_Cel 007,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 007,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel 007,_G02_Ivt02_05,__G02_Ivt02_05
__mEsect_Cel 010,_G02_Ivt02_04,__G02_Ivt02_04
__mEsect_Cel $fff,_G02_Ivt02_03,__G02_Ivt02_03
STOP
tAnm_G02_Ivent21:
__mEsect_Anm 001,tCel_G02_Ivent21
tCel_G02_Ivent21:
__mEsect_Cel 032,_G02_Ivt02_06,__G02_Ivt02_06
__mEsect_Cel $130/002,_G02_Ivt02_06,__G02_Ivt02_06
__mEsect_Cel 002,_G02_Ivt02_06,__G02_Ivt02_06
__mEsect_Cel 002,_G02_Ivt02_07,__G02_Ivt02_07
__mEsect_Cel 002,_G02_Ivt02_08,__G02_Ivt02_08
__mEsect_Cel 002,_G02_Ivt02_09,__G02_Ivt02_09
__mEsect_Cel $fff,_G02_Ivt02_06,__G02_Ivt02_06
STOP
;-----------------------------------------------------------------------------
; イベント３
;-----------------------------------------------------------------------------
tEReqNatumiIvent3_0:
; BG
__mEsect_Init1 __EsectIventMain ;実行プログラム名
__mEsect_Init2 060,_NullData,__NullData ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt30,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_00,__G02_IvtBG03_00 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_01,__G02_IvtBG03_01 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $080,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_02,__G02_IvtBG03_02 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $100,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_03,__G02_IvtBG03_03 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $150,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_04,__G02_IvtBG03_04 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,$100 ;Ｈ、Ｖ
__mEsect_Init4 1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_08,__G02_Ivt03_08 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_09,__G02_Ivt03_09 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $080,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_10,__G02_Ivt03_10 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $100,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 058,_G02_Ivt03_11,__G02_Ivt03_11 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $120,$190 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,tAnm_G02_Ivent30 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
STOP
tMov_G02_Ivnt30:
__StopDat 032 ; ﾜｲﾌﾟが開くまで
__StopDat $120/002
__StopDat 250
STOP
tMov_G02_Ivnt31:
__StopDat 032 ; ﾜｲﾌﾟが開くまで
__EsectDirDat $120/002,$08e,$002
__StopDat $fff
STOP
tAnm_G02_Ivent30:
__mEsect_Anm 001,tCel_G02_Ivent30
tCel_G02_Ivent30:
__mEsect_Cel 032,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel $120/002,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 030,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 007,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 007,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 007,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 007,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 007,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 007,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 007,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 006,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 002,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 002,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 006,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 006,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 006,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 006,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 006,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 006,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel 006,_G02_Ivt03_11,__G02_Ivt03_11
__mEsect_Cel 008,_G02_Ivt03_13,__G02_Ivt03_13
__mEsect_Cel 008,_G02_Ivt03_12,__G02_Ivt03_12
__mEsect_Cel $fff,_G02_Ivt03_11,__G02_Ivt03_11
STOP
;-----------------------------------------------------------------------------
end
�G01_Ivt03_14
__mEsect_Cel 005,_G01_Ivt03_16,__G01_Ivt03_16
__mEsect_Cel 005,_G01_Ivt03_15,__G01_Ivt03_15
__mEsect_Cel 005,_G01_Ivt03_14,__G01_Ivt03_14
__mEsect_Cel 005,_G01_Ivt03_16,__G01_Ivt03_16
__mEsect_Cel 007,_G01_Ivt03_15,__G01_Ivt03_15
__mEsect_Cel 007,_G01_Ivt03_16,__G01_Ivt03_16
__mEsect_Cel $fff,_G01_Ivt03_14,__G01_Ivt03_14
STOP
;-----------------------------------------------------------------------------
end0x62001:
ら場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_TB_koi_ply: ;
pushm #r0/r10-r14/r21-r22 ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_TB_koi_ply ;
give_ini_TB_koi_ply: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
; mov.w [r14](r10),r0 ;目標札ワークの先頭
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_TB_koi_ply ;
get_ini_TB_koi_ply: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
; mov.w [r14](r10),r0 ;目標札ワークの先頭
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_TB_koi_ply: ;
dec.b wbPlyFudaCnt ;札枚数を減らす
mov.b #$02,wbSysCur ;カーソルをスリープモードに移行
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動
;-----------------------------------------------------------------------------
mov_TB_koi_ply: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_TB_koi_ply ;
next_mov_TB_koi_ply: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_TB_koi_ply_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_TB_koi_ply ;
next_mov_TB_koi_ply_ex: ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
; cmp.b #$ff,wbBtoT_fuda4 ;
; be next2_mov_TB_koi_ply ;
; mov.w #wBa_huda,r0 ;
; movz.bw wbFudaForP,r11 ;
; mov.b wbBtoT_fuda4,[r0](r11) ;
; mov.b #$ff,wbBtoT_fuda4 ;
next2_mov_TB_koi_ply: ;
inc.b wbKoiDist ;
end_mov_TB_koi_ply: ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札の詰め
;-----------------------------------------------------------------------------
srt_jam_koi_ply: ;
jsr _Fuda_Mon_SortP ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
end_srt_jam_koi_ply: ;
; dec.b wbPlyFudaCnt ;札枚数を減らす
mov.b #$00,wbKoiDist2_tim ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; 山札を探す（回避も含む）
;-----------------------------------------------------------------------------
src_Ym_koi_ply: ;
pushm #r10/r20 ;
dec.b wbActWaitTim ;ちょっと待った
bne end_src_Ym_koi_ply ;
jsr _Ba_Brk_Cnt ;ブランクのカウント
cmp.b #$01,r20 ;１枚以下なら
ble ex_src_Ym_koi_ply ;イカサマする
job_src_Ym_koi_ply: ;
jsr _Bahuda_Emp ;空き場所を探す
cmp.b #$ff,r20 ;空きがないよ
be ex_src_Ym_koi_ply ;
add.b #$02,wbKoiDist ;イカサマｉｎｔは無し
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
br end_src_Ym_koi_ply ;
ex_src_Ym_koi_ply: ;イカサマの準備
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;イカサマしないといけないよ
end_src_Ym_koi_ply: ;
popm #r10/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; イカサマｉｎｔ
;-----------------------------------------------------------------------------
mag_mby_koi_ply: ;
pushm #r16-r17/r20 ;
mov.w #$00,r20 ;
mov.w #12,r16 ;
loop_mag_mby_koi_ply: ;
jsr _Koi_Ark_m00 ;
test.b r17 ;
bnz end_mag_mby_koi_ply ;
inc.w r20 ;
dec.w r16 ;
bnz loop_mag_mby_koi_ply ;
jsr Reset ;致命的エラーなのでリセット
end_mag_mby_koi_ply: ;
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
inc.b wbKoiDist ;
popm #r16-r17/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札のめくり動作
;-----------------------------------------------------------------------------
opn_Ym_koi_ply: ;
pushm #r10-r12 ;
mov.w #wFuda,r10 ;
movz.bw wbMtoB_fuda,r11 ;めくり札
shl.w #$05,r11 ;
add.w r10,r11 ;目的ワークの先頭
movz.bw wbKoiDist2_tim,r12 ;
mov.b tOpen__Fuda_Rot(r12),_Fuda_dsp[r11] ;
inc.b wbKoiDist2_tim ;
cmp.b #10,wbKoiDist2_tim ;
bne end_opn_Ym_koi_ply ;
inc.b wbKoiDist ;
jsr _init_Hit_Ok ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbTtoB_fuda ;
end_opn_Ym_koi_ply: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r10-r12 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す（山札：場札）
;-----------------------------------------------------------------------------
src2_hit_koi_ply: ;叩ける札を探す（山札：場札）
push r20 ;
jsr _Eva2_hit_jd ;めくり札のヒット評価
test.b wbHitCkB ;
be give_src2_hit_koi_ply ;叩けない
cmp.b #$01,wbHitCkB ;
be sig_src2_hit_koi_ply ;１枚叩ける
cmp.b #$02,wbHitCkB ;
be dbl_src2_hit_koi_ply ;２枚叩ける
nop ;場に３枚以上存在する場合は、
nop ;とばない様に（すり抜けさせる様に）、
nop ;一時的に設定しておく
nop ;
give_src2_hit_koi_ply: ;場に捨てるとき
mov.b #$00,wbFudaMd ;モードの設定
jsr _Bahuda_Emp ;空き場所を探す
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
;; mov.b wbMtoB_fuda,wbBtoT_fuda1 ;
mov.b wbMtoB_fuda,wbTtoB_fuda ;
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b #$ff,wbFudaForN ;エラーを起こさせる
mov.b r20,wbFudaForP ;叩かれ側 札インデックス
br end_src2_hit_koi_ply ;
sig_src2_hit_koi_ply: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
br end_src2_hit_koi_ply ;
dbl_src2_hit_koi_ply: ;
mov.b #$02,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
end_src2_hit_koi_ply: ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
mov.b #$ff,wbMtoB_fuda ;起き札登録の抹消
inc.b wbKoiDist ;
pop r20 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札の選択
;-----------------------------------------------------------------------------
cho2_tre_koi_ply: ;３枚札の選択
push r1 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
bne end_cho2_tre_koi_ply ;
mov.b #$00,wbBaCurPos ;初期化
mov.b #$00,wbBaCurAnm ;
mov.b #$00,wbBaCurBusy ;
mov.b #$00,wbBaCurNum ;
mov.b #$00,wbBaYNPos ;
mov.b wbHitPs,wbBaCurPos ;
mov.w #tEsect_Ba_cur,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
jsr __1PKEY_Init ;Ｉ／Ｏ再初期化
mov.b #ChoFrzIni,wbFudaMovTim ;選択初期硬直時間の設定
push r1 ;
mov.b #SE_Msg,r1 ;メッセージウインドウ
jsr __mya_se ;
pop r1 ;
end_cho2_tre_koi_ply: ;
inc.b wbKoiDist ;
pop r1 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札のキー入力待ち
;-----------------------------------------------------------------------------
wat2_tre_koi_ply: ;３枚札のキー入力待ち
pushm #r10/r11/r15 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
be frz_wat2_tre_koi_ply ;らしい
; mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;ベクタを進める
br end_wat2_tre_koi_ply ;
frz_wat2_tre_koi_ply: ;
test.b wbFudaMovTim ;
be mod_wat2_tre_koi_ply ;
dec.b wbFudaMovTim ;初期硬直
mov.w #$ff,r15 ;ダミー・ニュートラル
br ini_wat2_tre_koi_ply ;
mod_wat2_tre_koi_ply: ;
jsr __1PKEY_JD ;
ini_wat2_tre_koi_ply: ;
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
movz.bw wbBaCurNum,r10 ;ナンバー＋α値取得
mov.w #wbHitPsB,r11 ;
mov.b [r11](r10),wbBaCurPos ;ポジションの登録
A_wat2_tre_koi_ply: ;Ａボタンチェック
test.h whSysTimDsp ;キャンセルタイマーチェック
be fin_wat2_tre_koi_ply ;
test1 #$03,r15 ;
bne R_wat2_tre_koi_ply ;
PA_wat2_tre_koi_ply: ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
push r1 ;
mov.b #SE_Dec1,r1 ;決定音
jsr __mya_se ;
pop r1 ;
test.b wbBaYNPos ;Ｙｅｓを選んだかいな？
be fin_wat2_tre_koi_ply ;
inc.b wbBaCurNum ;Ｎｏを選んだらしい
mov.b #ChoFrzTim,wbFudaMovTim ;硬直時間の再設定
mov.b #$00,wbBaYNPos ;Ｙｅｓに合わせ直し
cmp.b #$02,wbBaCurNum ;
bne end_wat2_tre_koi_ply ;
mov.b #$00,wbBaCurNum ;
br end_wat2_tre_koi_ply ;
R_wat2_tre_koi_ply: ;右チェック
test1 #$04,r15 ;
bne L_wat2_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$01,wbBaYNPos ;右ループしない
br end_wat2_tre_koi_ply ;
L_wat2_tre_koi_ply: ;左チェック
test1 #$05,r15 ;
bne end_wat2_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$00,wbBaYNPos ;左ループしない
br end_wat2_tre_koi_ply ;
fin_wat2_tre_koi_ply: ;
movz.bw wbBaCurNum,r10 ;ナンバー＋α値取得
mov.w #wbHitOkB,r11 ;場札ヒットワーク（３種）
mov.b [r11](r10),wbFudaForN ;叩かれ側 札ナンバー
mov.b [r11](r10),wbBtoT_fuda3 ;
inc.b wbBtoT_fudaC ;カウントする
mov.w #wbHitPsB,r11 ;場札ヒットポジション（３種）
mov.b [r11](r10),wbFudaForP ;叩かれ側 札インデックス
mov.b [r11](r10),r20 ;
jsr _Del_Bafuda ;場札登録の抹消
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;ベクタを進める
mov.b #$01,wbBaCurBusy ;終了！！
end_wat2_tre_koi_ply: ;
popm #r10/r11/r15 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_YB_koi_ply: ;山札から場札への移動のイニシャライズ
pushm #r0/r10-r14/r21-r22 ;
dec.b wbActWaitTim ;待つのだ
bne fin_end_ini_YB_koi_ply ;
init_ini_YB_koi_ply: ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_YB_koi_ply ;
give_ini_YB_koi_ply: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_YB_koi_ply ;
get_ini_YB_koi_ply: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_YB_koi_ply: ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
fin_end_ini_YB_koi_ply: ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動
;-----------------------------------------------------------------------------
mov_YB_koi_ply: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_YB_koi_ply ;
next_mov_YB_koi_ply: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_YB_koi_ply_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_YB_koi_ply ;
next_mov_YB_koi_ply_ex: ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
; cmp.b #$ff,wbBtoT_fuda1 ;
; be next2_mov_YB_koi_ply ;
; mov.w #wBa_huda,r0 ;
; movz.bw wbFudaForP,r11 ;
; mov.b wbBtoT_fuda1,[r0](r11) ;
; mov.b #$ff,wbBtoT_fuda1 ;
next2_mov_YB_koi_ply: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
end_mov_YB_koi_ply: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_all_koi_ply: ;取った札すべての移動のイニシャライズ
pushm #r1/r10-r14 ;
dec.b wbActWaitTim ;
bne fin_ini_all_koi_ply ;
mov.b #$00,wbFuda1_Tim ;タイマー初期化
mov.b #$00,wbFuda2_Tim ;
mov.b #$00,wbFuda3_Tim ;
mov.b #$00,wbFuda4_Tim ;
mov.w #wbGetFudaP,r10 ;ワーク
jsr _Fuda_Shar_Cnt ;カウントしてみる
jsr _init_GetFuda_PosP ;ポジションの割り出し
job1_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda1,r1 ;
cmp.w #$ff,r1 ;
be job2_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job2_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda2,r1 ;
cmp.w #$ff,r1 ;
be job3_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job3_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda3,r1 ;
cmp.w #$ff,r1 ;
be job4_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job4_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda4,r1 ;
cmp.w #$ff,r1 ;
be end_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
end_ini_all_koi_ply: ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
fin_ini_all_koi_ply: ;
popm #r1/r10-r14 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動
;-----------------------------------------------------------------------------
mov_all_koi_ply: ;
pushm #r0-r3/r10 ;
mov.w #wFuda,r1 ;
mov_all_koi_ply_job1: ;
movz.bw wbFuda1_Tim,r2 ;
mov.b tMov_All_Fuda1(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_ply_job2 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job1_ex ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_ply_job1_ex: ;
movz.bw wbBtoT_fuda1,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job2: ;
movz.bw wbFuda2_Tim,r2 ;
mov.b tMov_All_Fuda2(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_ply_job3 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job2_ex ;
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_ply_job2_ex: ;
movz.bw wbBtoT_fuda2,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job3: ;
movz.bw wbFuda3_Tim,r2 ;
mov.b tMov_All_Fuda3(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_ply_job4 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job3_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_ply_job3_ex: ;
movz.bw wbBtoT_fuda3,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job4: ;
movz.bw wbFuda4_Tim,r2 ;
mov.b tMov_All_Fuda4(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_jd1 ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_ply_jd1 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job4_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_ply_job4_ex:
movz.bw wbBtoT_fuda4,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_jd1: ;
movz.bw wbGetIdxP,r2 ;取った札のインデックス
mov.w #wbGetFudaP,r3 ;取った札ワーク
inc.b wbFuda1_Tim ;
cmp.b #16,wbFuda1_Tim ;
bne mov_all_koi_ply_jd2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_ply_jd2 ;
mov.b wbBtoT_fuda1,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda1 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd2: ;
inc.b wbFuda2_Tim ;
cmp.b #20,wbFuda2_Tim ;
bne mov_all_koi_ply_jd3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_ply_jd3 ;
mov.b wbBtoT_fuda2,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda2 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd3: ;
inc.b wbFuda3_Tim ;
cmp.b #24,wbFuda3_Tim ;
bne mov_all_koi_ply_jd4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_ply_jd4 ;
mov.b wbBtoT_fuda3,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda3 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd4: ;
inc.b wbFuda4_Tim ;
cmp.b #28,wbFuda4_Tim ;
bne end_mov_all_koi_ply ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_ply_jd_ex ;
mov.b wbBtoT_fuda4,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda4 ;
jsr _GetFuda_Shar_SetP ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd_ex: ;
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #10,wbActWaitTim ;ウェイトをかます
end_mov_all_koi_ply: ;
popm #r0-r3/r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札のソート
;-----------------------------------------------------------------------------
srt_pul_koi_ply: ;
; pushm #r15/r16 ;
dec.b wbActWaitTim ;
bne fin_srt_pul_koi_ply ;
; mov.w #wbGetFudaP,r15 ;Ｐ取った札のナンバー
; mov.w #wbGetIdxP,r16 ;Ｐ取った札のインデックス
; jsr _Get_Fuda_Req ;移動札を取り札として登録する
jsr _GetFuda_Sort_SetP ;
jsr _GetFuda_Shar_SetP ;
; mov.b #$ff,wbBtoT_fuda1 ;後始末
; mov.b #$ff,wbBtoT_fuda2 ;
; mov.b #$ff,wbBtoT_fuda3 ;
; mov.b #$ff,wbBtoT_fuda4 ;
job_srt_pul_koi_ply: ;
jsr _GetFuda_Arg_AgnP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
end_srt_pul_koi_ply: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
; popm #r15/r16 ;
fin_srt_pul_koi_ply: ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札の評価
;-----------------------------------------------------------------------------
eva_pul_koi_ply: ;
pushm #r15-r20 ;
dec.b wbActWaitTim ;
bne end_eva_pul_koi_ply ;
mov.w #wbGetFudaP,r15 ;取った札ワークアドレス
mov.w #wbYakuJdP,r16 ;出来役判定用カウンターワークＡＤ
jsr _Huda_val ;取った札の評価
mov.w #wbYakuJdP,r15 ;出来役判定用カウンターワーク
mov.w #wbYakuJd2P,r16 ;出来役成立用ワーク（総合）
mov.w #wbYakuJd3P,r17 ;出来役成立用ワーク（瞬間）
mov.w #wbYakuCnt2P,r18 ;各出来役文数カウンター
mov.w #wbYakuCntP,r19 ;総文数カウンター（１回での出来役）
mov.w #wbYakuRchP,r20 ;出来役リーチ用ワーク
jsr _Yaku_val ;出来役の評価
inc.b wbKoiDist ;
end_eva_pul_koi_ply: ;
popm #r15-r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出判定
;-----------------------------------------------------------------------------
ini_dir_mom_koi_ply: ;瞬間での出来役演出判定
push r10 ;
mov.w #wbYakuJd3P,r10 ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
add.b #$06,wbKoiDist ;成立してないや
br end_ini_dir_mom_koi_ply ;
job_ini_dir_mom_koi_ply: ;
; mov.b #$01,wbDPltCk ;ウインドウのセット
mov.b #$00,wbDPltMode ;
mov.b #$01,wbJdKoiKoi ;コイコイをきく必要性がある
jsr _DPlate_Man ;
inc.b wbKoiDist ;
end_ini_dir_mom_koi_ply: ;
; dec.b wbPlyFudaCnt ;札枚数を減らす
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出
;-----------------------------------------------------------------------------
dir_mom_koi_ply: ;
jsr _DPlate_Man ;
test.b wbDPltCk ;
bne end_dir_mom_koi_ply ;
inc.b wbKoiDist ;
test.b wbMainTask ;
be end_dir_mom_koi_ply ;
test.b wbUpCnt ;
bne end_dir_mom_koi_ply ;
push r1 ;
mov.b #21,r1 ;こいこい後のアップテンポ
jsr __mya_bgm ;
pop r1 ;
inc.b wbUpCnt ;
end_dir_mom_koi_ply: ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイする？ウインドウ
;-----------------------------------------------------------------------------
win_ask_koi_ply: ;
push r25 ;
test.b wbJdKoiKoi ;
be next_win_ask_koi_ply ;
test.b wbPlyFudaCnt ;
be next_win_ask_koi_ply ;
mov.b #$02,wbKoiWindowAction ;こいこいする？
jsr Koi_Window ;
test.b r25 ;
bne end_win_ask_koi_ply ;
next_win_ask_koi_ply: ;
inc.b wbKoiDist ;
end_win_ask_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイの選択
;-----------------------------------------------------------------------------
cho_koi_koi_ply: ;
push r1 ;
test.b wbJdKoiKoi ;
be next_cho_koi_koi_ply ;
test.b wbPlyFudaCnt ;
be next_cho_koi_koi_ply ;
mov.b #$00,wbBaCurBusy ;
mov.b #$00,wbBaYNPos ;
test.b wbDipCntrol ;コンパネ判定
bne job_cho_koi_koi_ply_KB ;
job_cho_koi_koi_ply_JS: ;
mov.w #tEsect_Koi_Ok,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
jsr __1PKEY_Init ;Ｉ／Ｏ再初期化
br job_cho_koi_koi_ply_ex ;
job_cho_koi_koi_ply_KB: ;
mov.w #tEsect_Koi_Ok2,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
job_cho_koi_koi_ply_ex: ;
mov.b #ChoFrzIni,wbFudaMovTim ;選択初期硬直時間の設定
mov.b #$02,wbSysCur ;カーソルをスリープモードに移行
push r1 ;
mov.b #SE_Msg,r1 ;メッセージウインドウ
jsr __mya_se ;
pop r1 ;
next_cho_koi_koi_ply: ;
inc.b wbKoiDist ;
end_cho_koi_koi_ply: ;
pop r1 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイのキー入力待ち
;-----------------------------------------------------------------------------
wat_koi_koi_ply: ;
push r15 ;
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
inc.b wbRandEx1 ;うりゃー、まわせー
test.b wbJdKoiKoi ;
be next_wat_koi_koi_ply ;
test.b wbPlyFudaCnt ;０枚？
bne ex_wat_koi_koi_ply ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
mov.b #$00,wbJdKoiKoi ;
mov.b #$01,wbJdKoiEnd ;
inc.b wbKoiDist ;
br next_wat_koi_koi_ply ;
ex_wat_koi_koi_ply: ;
test.b wbFudaMovTim ;
be job_wat_koi_koi_ply ;
dec.b wbFudaMovTim ;
mov.b #$ff,r15 ;
br end_wat_koi_koi_ply ;
job_wat_koi_koi_ply: ;
test.b wbDipCntrol ;コンパネ判定
bne job_wat_koi_koi_ply_KB ;
job_wat_koi_koi_ply_JS: ;
jsr __1PKEY_JD ;
br A_job_wat_koi_koi_ply ;
job_wat_koi_koi_ply_KB: ;
mov.b #$ff,r15 ;回避手段
jsr __KBKEY_JD ;
mov.b #$01,wbBaCurBusy ;
mov.b #$00,wbBaYNPos ;Ｙ
cmp.b #$01,JOY1PKEY ;
be A_job_wat_koi_koi_ply_ex ;
mov.b #$01,wbBaYNPos ;Ｎ
cmp.b #14,JOY1PKEY ;
be A_job_wat_koi_koi_ply_ex ;
mov.b #$00,wbBaCurBusy ;
A_job_wat_koi_koi_ply: ;
; mov.b #$00,wbCurBusy2 ;コンフリクト回避用
; mov.b #$00,r20 ;処理続行中
; jsr _Sys_tim_gen ;
test.h whSysTimDsp ;キャンセルタイマーチェック
bne A_job_wat_koi_koi_ply_Ex ;
test.b wbBaYNPos ;
be AY_job_wat_koi_koi_ply ;
br AN_job_wat_koi_koi_ply ;
; be AN_job_wat_koi_koi_ply ;タイマー切れの場合はＮＯにする
A_job_wat_koi_koi_ply_Ex: ;
test1 #$03,r15 ;
bne R_job_wat_koi_koi_ply ;
A_job_wat_koi_koi_ply_ex: ;
push r1 ;
mov.b #SE_Dec1,r1 ;決定音
jsr __mya_se ;
pop r1 ;
test.b wbBaYNPos ;
bne AN_job_wat_koi_koi_ply ;
AY_job_wat_koi_koi_ply: ;
mov.b #$00,wbJdKoiEnd ;
br AX_job_wat_koi_koi_ply ;
AN_job_wat_koi_koi_ply: ;
mov.b #$00,wbJdKoiKoi ;
mov.b #$01,wbJdKoiEnd ;
inc.b wbKoiDist ;
AX_job_wat_koi_koi_ply: ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
mov.b #$00,wbBaYNPos ;
mov.b #$01,wbBaCurBusy ;
br next_wat_koi_koi_ply ;
R_job_wat_koi_koi_ply: ;
test1 #$04,r15 ;
bne L_job_wat_koi_koi_ply ;
test.b wbBaYNPos ;
bne end_wat_koi_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$01,wbBaYNPos ;
br end_wat_koi_koi_ply ;
L_job_wat_koi_koi_ply: ;
test1 #$05,r15 ;
bne end_wat_koi_koi_ply ;
test.b wbBaYNPos ;
be end_wat_koi_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$00,wbBaYNPos ;
br end_wat_koi_koi_ply ;
next_wat_koi_koi_ply: ;
inc.b wbKoiDist ;
end_wat_koi_koi_ply: ;
pop r15 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイしてくれたウインドウ
;-----------------------------------------------------------------------------
win_koi_koi_ply: ;
push r25 ;
test.b wbJdKoiKoi ;
be next_win_koi_koi_ply ;
mov.b #$03,wbKoiWindowAction ;コイコイしてくれてアリガト
jsr Koi_Window ;
test.b r25 ;
bne end_win_koi_koi_ply ;
next_win_koi_koi_ply: ;
; mov.b #$01,wbSysCur ;カーソル解放
mov.b #$00,wbJdKoiKoi ;
inc.b wbKoiDist ;
inc.b wbKoiDist ;
end_win_koi_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 勝ち負けウインドウ
;-----------------------------------------------------------------------------
win_res_koi_ply: ;
push r25 ;
test.b wbJdKoiEnd ;
be next_win_res_koi_ply ;
mov.b #$01,wbRikoSysCk ;リコ・システムＯＦＦ
mov.b #$05,wbKoiWindowAction ;勝ったよぉ
jsr Koi_Window ;
test.b r25 ;
bne end_win_res_koi_ply ;
; mov.b #$01,wbSysCur ;カーソル解放
mov.b #$00,wbJdKoiEnd ;
; mov.b #$01,wbSPltCk ;
mov.b #$00,wbDPltMode ;
mov.b #24,wbKoiTask ;集計処理へ
mov.b #$00,wbKoiDist ;
br end_win_res_koi_ply ;
next_win_res_koi_ply: ;
inc.b wbKoiDist ;
end_win_res_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 後処理
;-----------------------------------------------------------------------------
next_koi_ply: ;
end_next_koi_ply: ;
mov.b #$00,wbKoiDist ;
inc.b wbKoiTask ;上位タスクも進める
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; ＣＰＵの順番
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
tkoi_cpu_sec: ;
dw init_koi_cpu ;初期イニシャライズ
dw win_str_koi_cpu ;スタートウインドウ
dw src_hit_koi_cpu ;叩ける札を探す
dw ini_TB_koi_cpu ;手札から場札への移動のイニシャライズ
dw mov_TB_koi_cpu ;手札から場札への移動
dw srt_jam_koi_cpu ;手札の詰め
dw src_Ym_koi_cpu ;山札を探す（回避も含む）
dw mag_mby_koi_cpu ;イカサマｉｎｔ
dw opn_Ym_koi_cpu ;山札のめくり動作
dw src2_hit_koi_cpu ;叩ける札を探す（山札：場札）
dw ini_YB_koi_cpu ;山札から場札への移動のイニシャライズ
dw mov_YB_koi_cpu ;山札から場札への移動
dw ini_all_koi_cpu ;取った札すべての移動のイニシャライズ
dw mov_all_koi_cpu ;取った札すべての移動
dw srt_pul_koi_cpu ;取った札のソート
dw eva_pul_koi_cpu ;取った札の評価
dw ini_dir_mom_koi_cpu ;瞬間での出来役演出判定
dw dir_mom_koi_cpu ;瞬間での出来役演出
; dw win_ask_koi_cpu ;コイコイする？ウインドウ
dw cho_koi_koi_cpu ;コイコイの選択
; dw wat_koi_koi_cpu ;コイコイのキー入力待ち
dw win_koi_koi_cpu ;コイコイしてくれたウインドウ
dw win_res_koi_cpu ;勝ち負けウインドウ
dw next_koi_cpu ;後処理
;-----------------------------------------------------------------------------
koi_cpu_sec: ;ＣＰＵセクション
push r10 ;
movz.bw wbKoiDist,r10 ;
mov.w tkoi_cpu_sec(r10),r10 ;
jsr [r10] ;
jsr Fuda_Pri_Man ;
jsr Fuda_Esect ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 初期イニシャライズ
;-----------------------------------------------------------------------------
init_koi_cpu: ;
; jsr _init_Get_Fuda ;「取った札」用ワークの初期化
; jsr _Yaku_val_init ;出来役評価用ワークの初期化
mov.b #$00,wbJdKoiKoi ;
mov.b #$00,wbJdKoiEnd ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; スタートウインドウ
;-----------------------------------------------------------------------------
win_str_koi_cpu: ;
push r25 ;
cmp.b #$08,wbCpuFudaCnt ;初回判定
bne next_win_str_koi_cpu ;
test1 #$00,wbKoiOrd ;
be next_win_str_koi_cpu ;
mov.b #$01,wbKoiWindowAction ;スタートウインドウ
jsr Koi_Window ;
test.b r25 ;
bne end_win_str_koi_cpu ;
next_win_str_koi_cpu: ;
inc.b wbKoiDist ;
end_win_str_koi_cpu: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す
;-----------------------------------------------------------------------------
src_hit_koi_cpu: ;
pushm #r10/r15-r18/r20 ;
mov.w #wCpu_Tehuda,r10 ;
jsr _init_Hit_Ok ;札ヒットワークの初期化
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
mov.w #$00,wBrankFuda ;初期化
mov.w #$00,wBrankFuda+$04 ;
mov.w #$00,wBrankFuda+$08 ;
mov.b #$00,wbFudaMd ;モードセット
cmp.b #07,wbGameLv ;Ｌｖ．８で思考切り替え
bh src_hit_koi_cpu2 ;
src_hit_koi_cpu1: ;
jsr _Koi_Ai_m00 ;ノーマル思考
br src_hit_koi_cpu3 ;
src_hit_koi_cpu2: ;
jsr _Koi_Ai_m01 ;指向性思考
src_hit_koi_cpu3: ;
test.b wbAiHmax ;
bne sig_src_hit_koi_cpu ;
give_src_hit_koi_cpu: ;
mov.b r15,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b r15,wbTtoB_fuda ;移動札としての登録
mov.b #$ff,[r10](r17) ;手札内からの登録抹消
movt.wb r17,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b #$ff,wbFudaForN ;エラーを起こさせる
jsr _Bahuda_Emp ;場札の空き場所を探す
mov.b r20,wbFudaForP ;叩く側（捨てる） 札インデックス
br end_src_hit_koi_cpu ;
sig_src_hit_koi_cpu: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b r15,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b r15,wbBtoT_fuda2 ;手札移動登録
inc.b wbBtoT_fudaC ;カウントする
mov.b #$ff,[r10](r17) ;手札内からの登録抹消
movt.wb r17,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b r16,wbFudaForN ;叩かれ側 札ナンバー
mov.b r16,wbBtoT_fuda4 ;手札に叩かれ移動登録
inc.b wbBtoT_fudaC ;カウントする
movt.wb r18,wbFudaForP ;叩かれ側 札インデックス
movt.wb r18,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
end_src_hit_koi_cpu: ;
inc.b wbKoiDist ;
popm #r10/r15-r18/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_TB_koi_cpu: ;
pushm #r0/r10-r14/r21-r22 ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;
mov.w r0,r12 ;札を表に開く
shl.w #$05,r12 ;
add.w r11,r12 ;
mov.b #$04,_Fuda_dsp[r12] ;
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_TB_koi_cpu ;
give_ini_TB_koi_cpu: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_TB_koi_cpu ;
get_ini_TB_koi_cpu: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_TB_koi_cpu: ;
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動
;-----------------------------------------------------------------------------
mov_TB_koi_cpu: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_TB_koi_cpu ;
next_mov_TB_koi_cpu: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_TB_koi_cpu_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_TB_koi_cpu ;
next_mov_TB_koi_cpu_ex: ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
next2_mov_TB_koi_cpu: ;
inc.b wbKoiDist ;
end_mov_TB_koi_cpu: ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札の詰め
;-----------------------------------------------------------------------------
srt_jam_koi_cpu: ;
jsr _Fuda_Mon_SortC ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
end_srt_jam_koi_cpu: ;
mov.b #$00,wbKoiDist2_tim ;
add.h #26,whGetFudaBMaxC ;役札のＭＡＸが増える
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; 山札を探す（回避も含む）
;-----------------------------------------------------------------------------
src_Ym_koi_cpu: ;
pushm #r10/r20 ;
dec.b wbActWaitTim ;
bne end_src_Ym_koi_cpu ;
jsr _Ba_Brk_Cnt ;ブランクのカウント
cmp.b #$01,r20 ;１枚以下なら
ble ex_src_Ym_koi_cpu ;イカサマする
job_src_Ym_koi_cpu: ;
jsr _Bahuda_Emp ;空き場所を探す
cmp.b #$ff,r20 ;空きがないよ
be ex_src_Ym_koi_cpu ;
add.b #$02,wbKoiDist ;イカサマｉｎｔは無し
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
br end_src_Ym_koi_cpu ;
ex_src_Ym_koi_cpu: ;イカサマの準備
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;イカサマしないといけないよ
end_src_Ym_koi_cpu: ;
popm #r10/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; イカサマｉｎｔ
;-----------------------------------------------------------------------------
mag_mby_koi_cpu: ;
pushm #r16-r17/r20 ;
mov.w #$00,r20 ;
mov.w #12,r16 ;
loop_mag_mby_koi_cpu: ;
jsr _Koi_Ark_m00 ;
test.b r17 ;
bnz end_mag_mby_koi_cpu ;
inc.w r20 ;
dec.w r16 ;
bnz loop_mag_mby_koi_cpu ;
jsr Reset ;致命的エラーなのでリセット
end_mag_mby_koi_cpu: ;
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
inc.b wbKoiDist ;
popm #r16-r17/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札のめくり動作
;-----------------------------------------------------------------------------
opn_Ym_koi_cpu: ;
pushm #r10-r12 ;
mov.w #wFuda,r10 ;
movz.bw wbMtoB_fuda,r11 ;めくり札
shl.w #$05,r11 ;
add.w r10,r11 ;目的ワークの先頭
movz.bw wbKoiDist2_tim,r12 ;
mov.b tOpen__Fuda_Rot(r12),_Fuda_dsp[r11] ;
inc.b wbKoiDist2_tim ;
cmp.b #10,wbKoiDist2_tim ;
bne end_opn_Ym_koi_cpu ;
inc.b wbKoiDist ;
jsr _init_Hit_Ok ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbTtoB_fuda ;
end_opn_Ym_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r10-r12 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す（山札：場札）
;-----------------------------------------------------------------------------
src2_hit_koi_cpu: ;叩ける札を探す（山札：場札）
push r20 ;
jsr _Eva2_hit_jd ;めくり札のヒット評価
test.b wbHitCkB ;
be give_src2_hit_koi_cpu ;叩けない
cmp.b #$01,wbHitCkB ;
be sig_src2_hit_koi_cpu ;１枚叩ける
cmp.b #$02,wbHitCkB ;
be dbl_src2_hit_koi_cpu ;２枚叩ける
nop ;場に３枚以上存在する場合は、
nop ;とばない様に（すり抜けさせる様に）、
nop ;一時的に設定しておく
nop ;
give_src2_hit_koi_cpu: ;場に捨てるとき
mov.b #$00,wbFudaMd ;モードの設定
jsr _Bahuda_Emp ;空き場所を探す
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbTtoB_fuda ;
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b #$ff,wbFudaForN ;エラーを起こさせる
mov.b r20,wbFudaForP ;叩かれ側 札インデックス
br end_src2_hit_koi_cpu ;
sig_src2_hit_koi_cpu: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
br end_src2_hit_koi_cpu ;
dbl_src2_hit_koi_cpu: ;
mov.b #$02,wbFudaMd ;モードの設定
; mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
; mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くヤツ
; inc.b wbBtoT_fudaC ;カウントする
; mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
end_src2_hit_koi_cpu: ;
mov.b #$ff,wbMtoB_fuda ;起き札登録の抹消
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
pop r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_YB_koi_cpu: ;山札から場札への移動のイニシャライズ
pushm #r0/r10-r14/r21-r22 ;
dec.b wbActWaitTim ;
bne fin_ini_YB_koi_cpu ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_YB_koi_cpu ;
give_ini_YB_koi_cpu: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_YB_koi_cpu ;
get_ini_YB_koi_cpu: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_YB_koi_cpu: ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
fin_ini_YB_koi_cpu: ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動
;-----------------------------------------------------------------------------
mov_YB_koi_cpu: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_YB_koi_cpu ;
next_mov_YB_koi_cpu: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_YB_koi_cpu_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_YB_koi_cpu ;
next_mov_YB_koi_cpu_ex: ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
next2_mov_YB_koi_cpu: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
end_mov_YB_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_all_koi_cpu: ;取った札すべての移動のイニシャライズ
pushm #r0/r10-r16/r21-r22 ;
dec.b wbActWaitTim ;
bne fin_ini_all_koi_cpu ;
mov.b #$00,wbFuda1_Tim ;タイマー初期化
mov.b #$00,wbFuda2_Tim ;
mov.b #$00,wbFuda3_Tim ;
mov.b #$00,wbFuda4_Tim ;
mov.w #wbGetFudaC,r10 ;ワーク
jsr _Fuda_Shar_Cnt ;カウントしてみる
jsr _init_GetFuda_PosC ;ポジションの割り出し
job1_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda1,r1 ;
cmp.w #$ff,r1 ;
be job2_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job2_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda2,r1 ;
cmp.w #$ff,r1 ;
be job3_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job3_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda3,r1 ;
cmp.w #$ff,r1 ;
be job4_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job4_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda4,r1 ;
cmp.w #$ff,r1 ;
be end_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
end_ini_all_koi_cpu: ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
fin_ini_all_koi_cpu: ;
popm #r0/r10-r16/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動
;-----------------------------------------------------------------------------
mov_all_koi_cpu: ;
pushm #r0-r3/r10 ;
mov.w #wFuda,r1 ;
mov_all_koi_cpu_job1: ;
movz.bw wbFuda1_Tim,r2 ;
mov.b tMov_All_Fuda1(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_cpu_job2 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job1_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_cpu_job1_ex:
movz.bw wbBtoT_fuda1,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job2: ;
movz.bw wbFuda2_Tim,r2 ;
mov.b tMov_All_Fuda2(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_cpu_job3 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job2_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_cpu_job2_ex:
movz.bw wbBtoT_fuda2,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job3: ;
movz.bw wbFuda3_Tim,r2 ;
mov.b tMov_All_Fuda3(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_cpu_job4 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job3_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_cpu_job3_ex:
movz.bw wbBtoT_fuda3,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job4: ;
movz.bw wbFuda4_Tim,r2 ;
mov.b tMov_All_Fuda4(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_jd1 ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_cpu_jd1 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job4_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_cpu_job4_ex:
movz.bw wbBtoT_fuda4,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_jd1: ;
movz.bw wbGetIdxC,r2 ;取った札のインデックス
mov.w #wbGetFudaC,r3 ;取った札ワーク
inc.b wbFuda1_Tim ;
cmp.b #16,wbFuda1_Tim ;
bne mov_all_koi_cpu_jd2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_cpu_jd2 ;
mov.b wbBtoT_fuda1,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda1 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd2: ;
inc.b wbFuda2_Tim ;
cmp.b #20,wbFuda2_Tim ;
bne mov_all_koi_cpu_jd3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_cpu_jd3 ;
mov.b wbBtoT_fuda2,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda2 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd3: ;
inc.b wbFuda3_Tim ;
cmp.b #24,wbFuda3_Tim ;
bne mov_all_koi_cpu_jd4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_cpu_jd4 ;
mov.b wbBtoT_fuda3,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda3 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd4: ;
inc.b wbFuda4_Tim ;
cmp.b #28,wbFuda4_Tim ;
bne end_mov_all_koi_cpu ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_cpu_jd_ex ;
mov.b wbBtoT_fuda4,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda4 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd_ex: ;
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #10,wbActWaitTim ;ウェイトをかます
end_mov_all_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0-r3/r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札のソート
;-----------------------------------------------------------------------------
srt_pul_koi_cpu: ;
; pushm #r15/r16 ;
dec.b wbActWaitTim ;
bne end_srt_pul_koi_cpu ;
; mov.w #wbGetFudaC,r15 ;Ｐ取った札のナンバー
; mov.w #wbGetIdxC,r16 ;Ｐ取った札のインデックス
; jsr _Get_Fuda_Req ;移動札を取り札として登録する
jsr _GetFuda_Sort_SetC ;
jsr _GetFuda_Shar_SetC ;
; mov.b #$ff,wbBtoT_fuda1 ;後始末
; mov.b #$ff,wbBtoT_fuda2 ;
; mov.b #$ff,wbBtoT_fuda3 ;
; mov.b #$ff,wbB0x71C54:
ECT.MAC : Macro for Esect Initial data table
; written by Manaby
; Copyright (c) 1995-1997 VISCO corp. All rights reserved.
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; __mEsect_Init :データ形式用マクロ
; :詳しくは下を参照
; :４つで１組
; :
;-----------------------------------------------0x74000:
;-----------------------------------------------------------------------------
; KOI_GAME.S : KOIKOI Game Program
; written by Manaby
; Copyright (c) 1995-1997 VISCO corp. All rights reserved.
;------------------------------------------------------------------------------
include mac\esect.mac
include inc\manaby.inc
include inc\system.inc
include inc\koikoi.inc
include inc\koi_sys.inc
xdef koi_ply_sec,koi_cpu_sec,koi_scr_sum
xdef tTehudaPosP,tTehudaPosC,Fuda_Pri_Man
xdef koi_ex_sum,_Fuda_Shar_Cnt
xdef _GetFuda_Arg_AgnC,_init_GetFuda_SetC,_init_GetFuda_PosC
xdef tEsect_Koi_Ok,tEsect_Koi_Ok2,_GetFuda_Arg_AgnP
xdef tMov_All_Fuda1,tMov_All_Fuda2,tMov_All_Fuda3,tMov_All_Fuda4
xdef _init_GetFuda_PosP,_init_GetFuda_SetP,_Ba_Brk_Cnt,_ActWaitTim
xdef tEsect_Ba_cur,ChoFrzIni,ChoFrzTim,tBahudaPos1,tBahudaPos2
xdef _Del_Bafuda,tEsect_Fuda_Hurry
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; ＥＱＵ領域
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
ChoFrzIni equ 24 ;選択初期硬直時間
ChoFrzTim equ 16 ;選択再初期硬直時間
_ActWaitTim equ 06 ;ゲーム中のウェイト用タイマー値
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; ワーク領域
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
.section work
.align 4
xdefon
wbFudaMd ds 01 ;札モード（０：捨てる）
; （１：１枚叩く）
; （２：２枚から選択）
wbFudaFrmN ds 01 ;叩く側（捨てる） 札ナンバー
wbFudaFrmP ds 01 ;叩く側（捨てる） 札インデックス
wbFudaForN ds 01 ;叩かれ側 札ナンバー
wbFudaForP ds 01 ;叩かれ側 札インデックス
wbBaCurPos ds 01 ;場札３枚以上の場合の選択時のカーソルポインタ
wbBaCurAnm ds 01 ;場札３枚以上の場合の選択時のアニメポインタ
wbBaCurBusy ds 01 ;場札３枚以上の場合の選択時のｂｕｓｙフラグ用
wbBaCurNum ds 01 ;候補の場札の何枚目を選択しているか？
wbFudaMovTim ds 01 ;札移動タイマー
wbBaYNPos ds 01 ;Ｙｅｓ・Ｎｏポジション
wbMtoB_fuda ds 01 ;めくり札から場札への移動札ワーク
wbTtoB_fuda ds 01 ;手札から場札への捨て札用ワーク
wbBtoT_fuda1 ds 01 ;起き札
wbBtoT_fuda2 ds 01 ;手札
wbBtoT_fuda3 ds 01 ;起き札に叩かれる方
wbBtoT_fuda4 ds 01 ;手札に叩かれる方
wbBtoT_fudaC ds 01 ;場札から取り札への移動札の枚数カウント用
wbFuda1_Tim ds 01 ;札移動タイマー１
wbFuda2_Tim ds 01 ;札移動タイマー２
wbFuda3_Tim ds 01 ;札移動タイマー３
wbFuda4_Tim ds 01 ;札移動タイマー４
wBrankFuda ds 12 ;空いている場札の場所を正確にチェックする
wbJdKoiKoi ds 01 ;コイコイ選択をする必要性があるか？
wbJdKoiEnd ds 01 ;コイコイしなかった（集計へ）
wbYakuOya ds 01 ;親権発生フラグ
wbFudaHurry ds 01 ;「札を切ってね」表示用
wbActWaitTim ds 01 ;ゲーム中のウェイト用タイマー
wbUpCnt ds 01 ;ＢＧＭアップテンポチェック用
xdefoff
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; メイン領域
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
.section main
.align 4
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; プレイヤーの順番
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
tkoi_ply_sec: ;
dw init_koi_ply ;初期イニシャライズ
dw win_str_koi_ply ;スタートウインドウ
dw src_hit_koi_ply ;叩ける札を探す
dw wat_key_koi_ply ;キー入力待ち
dw bra_key_koi_ply ;入力結果の分析
; dw cho_tre_koi_ply ;３枚札の選択
; dw wat_tre_koi_ply ;３枚札のキー入力待ち
dw ini_TB_koi_ply ;手札から場札への移動のイニシャライズ
dw mov_TB_koi_ply ;手札から場札への移動
dw srt_jam_koi_ply ;手札の詰め
dw src_Ym_koi_ply ;山札を探す（回避も含む）
dw mag_mby_koi_ply ;イカサマｉｎｔ
dw opn_Ym_koi_ply ;山札のめくり動作
dw src2_hit_koi_ply ;叩ける札を探す（山札：場札）
; dw cho2_tre_koi_ply ;３枚札の選択
; dw wat2_tre_koi_ply ;３枚札のキー入力待ち
dw ini_YB_koi_ply ;山札から場札への移動のイニシャライズ
dw mov_YB_koi_ply ;山札から場札への移動
dw ini_all_koi_ply ;取った札すべての移動のイニシャライズ
dw mov_all_koi_ply ;取った札すべての移動
dw srt_pul_koi_ply ;取った札のソート
dw eva_pul_koi_ply ;取った札の評価
dw ini_dir_mom_koi_ply ;瞬間での出来役演出判定
dw dir_mom_koi_ply ;瞬間での出来役演出
dw win_ask_koi_ply ;コイコイする？ウインドウ
dw cho_koi_koi_ply ;コイコイの選択
dw wat_koi_koi_ply ;コイコイのキー入力待ち
dw win_koi_koi_ply ;コイコイしてくれたウインドウ
dw win_res_koi_ply ;勝ち負けウインドウ
dw next_koi_ply ;後処理
;-----------------------------------------------------------------------------
koi_ply_sec: ;プレイヤーセクション
push r10 ;
movz.bw wbKoiDist,r10 ;
mov.w tkoi_ply_sec(r10),r10 ;オラオラオラオラー
jsr [r10] ;
jsr Fuda_Pri_Man ;
jsr Fuda_Esect ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 初期イニシャライズ
;-----------------------------------------------------------------------------
init_koi_ply: ;
; jsr _init_Get_Fuda ;「取った札」用ワークの初期化
; jsr _Yaku_val_init ;出来役評価用ワークの初期化
jsr __1PKEY_Init ;Ｉ／Ｏ初期化
mov.b #$ff,wbCurIO ;初期入力はニュートラルにする
mov.b #$00,wbCurBusy ;動作制限を解除
mov.b #$00,wbCurPos ;カーソルポジションの初期化
; mov.b #$01,wbSysCur ;カーソルをノーマルモードに移行
mov.b #$00,wbJdKoiKoi ;
mov.b #$00,wbJdKoiEnd ;
mov.b #$00,wbDPltVct ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; スタートウインドウ
;-----------------------------------------------------------------------------
win_str_koi_ply: ;
push r25 ;
cmp.b #$08,wbCpuFudaCnt ;初回判定
bne next_win_str_koi_ply ;
test1 #$00,wbKoiOrd ;
bne next_win_str_koi_ply ;
mov.b #$00,wbKoiWindowAction ;スタートウインドウ
jsr Koi_Window ;
test.b r25 ;
bne end_win_str_koi_ply ;
next_win_str_koi_ply: ;
mov.b #$01,wbSysCur ;カーソルをノーマルモードに移行
inc.b wbKoiDist ;
end_win_str_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す
;-----------------------------------------------------------------------------
src_hit_koi_ply: ;
pushm #r1/r3 ;
jsr _init_Hit_Ok ;札ヒットワークの初期化
mov.w #wPly_Tehuda,r3 ;
jsr _Eva_hit_jd ;札のヒット評価
inc.b wbKoiDist ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
mov.w #$00,wBrankFuda ;初期化
mov.w #$00,wBrankFuda+$04 ;
mov.w #$00,wBrankFuda+$08 ;
mov.w #$00,wbMarker ;
mov.w #$00,wbMarker+$04 ;
mov.b #$01,wbMarkerCk ;マーカー始動
mov.b #$01,wbFudaHurry ;「札を切ってね」パネルの始動
mov.w #tEsect_Fuda_Hurry,r1 ;「札を切ってね」をリクエスト
jsr __Esect_Req ;
; mov.b #$00,wbCurPos ;カーソルポジションの初期化
popm #r1/r3 ;
rsr ;
;-----------------------------------------------------------------------------
; キー入力待ち
;-----------------------------------------------------------------------------
wat_key_koi_ply: ;
pushm #r15/r20 ;
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
inc.b wbRandEx1 ;うりゃー、まわせー
test.b wbDipCntrol ;コンパネ判定
bne wat_key_koi_ply_KB ;
wat_key_koi_ply_JS: ;
test.b wbDemoPlay ;
be wat2_key_koi_ply_JS ;
mov.b #$f7,r15 ;デモプレイ中は強制入力
br wat3_key_koi_ply_JS ;
wat2_key_koi_ply_JS: ;
jsr __1PKEY_JD ;
wat3_key_koi_ply_JS: ;
mov.b r15,wbCurIO ;
; mov.b JOY1PKEY,wbCurIO ;
br wat_key_koi_ply_ex ;
wat_key_koi_ply_KB: ;
test.b wbDemoPlay ;
be wat2_key_koi_ply_KB ;
mov.b #$01,JOY1PKEY ;デモプレイ中は強制入力
br wat3_key_koi_ply_KB ;
wat2_key_koi_ply_KB: ;
jsr __KBKEY_JD ;
test.b JOY1PKEY ;
be wat_key_koi_ply_ex ;
wat3_key_koi_ply_KB: ;
cmp.b wbPlyFudaCnt,JOY1PKEY ;
bh wat_key_koi_ply_ex ;
mov.b JOY1PKEY,r15 ;
dec.b r15 ;
mov.b r15,wbCurPos ;
mov.b #$01,wbCurBusy ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
wat_key_koi_ply_ex: ;
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
; mov.b #$00,r20 ;処理続行中
; jsr _Sys_tim_gen ;
test.h whSysTimDsp ;タイマーは稼働終了か？
be det_wat_key_koi_ply ;強制終了へ
test.b wbCurBusy ;
be end_wat_key_koi_ply ;
det_wat_key_koi_ply: ;決定
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
mov.b #$00,wbCurBusy ;
inc.b wbKoiDist ;
mov.b #$00,wbMarkerCk ;マーカー停止
mov.b #$00,wbFudaHurry ;「札を切ってね」パネルの強制停止
end_wat_key_koi_ply: ;
popm #r15/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 入力結果の分析
;-----------------------------------------------------------------------------
bra_key_koi_ply: ;
; pushm #r3/r4 ;
pushm #r10-r15/r20 ;
movz.bw wbCurPos,r10 ;カーソル位置の取得
mov.w #wbHitOk,r11 ;札ヒットワーク（８枚＊３種）
mov.w #wbHitCk,r12 ;札ヒットフラグ（８枚）
mov.w #wbHitPs,r13 ;札ヒットポジション（８枚＊３種）
mov.w #wPly_Tehuda,r14 ;プレイヤー手札ワーク
test.b [r12](r10) ;こいつは叩くことが出来るか？
be give_bra_key_koi_ply ;こいつは叩けないよ
cmp.b #$01,[r12](r10) ;
be sig_bra_key_koi_ply ;１枚だけ叩ける
cmp.b #$02,[r12](r10) ;
be dbl_bra_key_koi_ply ;２枚も叩ける
nop ;場に３枚以上存在する場合は、
nop ;とばない様に（すり抜けさせる様に）、
nop ;一時的に設定しておく
nop ;
give_bra_key_koi_ply: ;場に捨てるとき
mov.b #$00,wbFudaMd ;モードの設定
jsr _Bahuda_Emp ;場札の空き場所を探す
mov.b [r14](r10),wbFudaFrmN ;叩く側（捨てる） 札ナンバー
;; mov.b [r14](r10),wbBtoT_fuda2 ;手札捨てるべし
mov.b [r14](r10),wbTtoB_fuda ;移動札としての登録
mov.b #$ff,[r14](r10) ;手札内からの登録抹消
movt.wb r10,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b #$ff,wbFudaForN ;エラーを起こさせる
mov.b r20,wbFudaForP ;叩く側（捨てる） 札インデックス
; mov.w #whAiBrainNo,r3 ;自動のーみそ吸い取り機
; movz.bh wbPlyFudaCnt,r4 ;
; add.h r4,[r3](r10) ;
br end_bra_key_koi_ply ;
sig_bra_key_koi_ply: ;合わせ札が１枚のとき
mov.b #$01,wbFudaMd ;モードの設定
mov.w r10,r15 ;逃がす
; mov.w #whAiBrainOk,r3 ;自動のーみそ吸い取り機
; movz.bh wbPlyFudaCnt,r4 ;
; add.h r4,[r3](r10) ;
mul.w #$03,r15 ;単位を合わせる
mov.b [r14](r10),wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b [r14](r10),wbBtoT_fuda2 ;手札移動登録
inc.b wbBtoT_fudaC ;カウントする
; mov.b [r14](r10),wbTtoB_fuda ;移動札としての登録
mov.b #$ff,[r14](r10) ;手札内からの登録抹消
movt.wb r10,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b [r11](r15),wbFudaForN ;叩かれ側 札ナンバー
mov.b [r11](r15),wbBtoT_fuda4 ;手札に叩かれ移動登録
inc.b wbBtoT_fudaC ;カウントする
; mov.b #$ff,[r11](r15) ;場札登録の抹消
mov.b [r13](r15),wbFudaForP ;叩かれ側 札インデックス
mov.b [r13](r15),r20 ;
jsr _Del_Bafuda ;場札登録の抹消
br end_bra_key_koi_ply ;
dbl_bra_key_koi_ply: ;合わせ札が２枚のとき
mov.b #$02,wbFudaMd ;モードの設定
; mov.w #whAiBrainOk,r3 ;自動のーみそ吸い取り機
; movz.bh wbPlyFudaCnt,r4 ;
; add.h r4,[r3](r10) ;
mov.b [r14](r10),wbFudaFrmN ;叩く側（捨てる） 札ナンバー
; mov.b [r14](r10),wbTtoB_fuda ;移動札としての登録
mov.b [r14](r10),wbBtoT_fuda2 ;手札移動登録
inc.b wbBtoT_fudaC ;カウントする
mov.b #$ff,[r14](r10) ;手札内からの登録抹消
movt.wb r10,wbFudaFrmP ;叩く側（捨てる） 札インデックス
end_bra_key_koi_ply: ;
inc.b wbKoiDist ;
popm #r10-r15/r20 ;
; popm #r3/r4 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札の選択
;-----------------------------------------------------------------------------
cho_tre_koi_ply: ;
pushm #r1/r10-r11 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
bne end_cho_tre_koi_ply ;違うっす
mov.b #$00,wbBaCurPos ;初期化
mov.b #$00,wbBaCurAnm ;
mov.b #$00,wbBaCurBusy ;
mov.b #$00,wbBaCurNum ;
mov.b #$00,wbBaYNPos ;
movz.bw wbCurPos,r10 ;カーソル位置の取得
mul.w #$03,r10 ;
mov.w #wbHitPs,r11 ;札ヒットポジション（８枚＊３種）
mov.b [r11](r10),wbBaCurPos ;初期ポジションの登録
mov.w #tEsect_Ba_cur,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
jsr __1PKEY_Init ;Ｉ／Ｏ再初期化
mov.b #ChoFrzIni,wbFudaMovTim ;選択初期硬直時間の設定
push r1 ;
mov.b #SE_Msg,r1 ;メッセージウインドウ
jsr __mya_se ;
pop r1 ;
end_cho_tre_koi_ply: ;
inc.b wbKoiDist ;
popm #r1/r10-r11 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札のキー入力待ち
;-----------------------------------------------------------------------------
wat_tre_koi_ply: ;
pushm #r10-r12/r15/r20 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
be frz_wat_tre_koi_ply ;らしい
inc.b wbKoiDist ;ベクタを進める
br end_wat_tre_koi_ply ;
frz_wat_tre_koi_ply: ;
test.b wbFudaMovTim ;
be mod_wat_tre_koi_ply ;
dec.b wbFudaMovTim ;初期硬直
mov.w #$ff,r15 ;ダミー・ニュートラル
br ini_wat_tre_koi_ply ;
mod_wat_tre_koi_ply: ;
jsr __1PKEY_JD ;
ini_wat_tre_koi_ply: ;ワークセットしておかないと
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
movz.bw wbBaCurNum,r12 ;ナンバー＋α値取得
movz.bw wbCurPos,r10 ;カーソル位置の取得
mul.w #$03,r10 ;
add.w r12,r10 ;ずらす
mov.w #wbHitPs,r11 ;札ヒットポジション（８枚＊３種）
mov.b [r11](r10),wbBaCurPos ;ポジションの登録
A_wat_tre_koi_ply: ;Ａボタンチェック
test.h whSysTimDsp ;タイマーは稼働中終了か？
be fin_wat_tre_koi_ply ;
test1 #$03,r15 ;
bne R_wat_tre_koi_ply ;
PA_wat_tre_koi_ply: ;Ａボタンを押した場合
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
push r1 ;
mov.b #SE_Dec1,r1 ;決定音
jsr __mya_se ;
pop r1 ;
test.b wbBaYNPos ;Ｙｅｓを選んだかいな？
be fin_wat_tre_koi_ply ;
inc.b wbBaCurNum ;Ｎｏを選んだらしい
mov.b #ChoFrzTim,wbFudaMovTim ;硬直時間の再設定
mov.b #$00,wbBaYNPos ;Ｙｅｓに合わせ直し
cmp.b #$02,wbBaCurNum ;
bne end_wat_tre_koi_ply ;
mov.b #$00,wbBaCurNum ;
br end_wat_tre_koi_ply ;
R_wat_tre_koi_ply: ;右チェック
test1 #$04,r15 ;
bne L_wat_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$01,wbBaYNPos ;右ループしない
br end_wat_tre_koi_ply ;
L_wat_tre_koi_ply: ;左チェック
test1 #$05,r15 ;
bne end_wat_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$00,wbBaYNPos ;左ループしない
br end_wat_tre_koi_ply ;
fin_wat_tre_koi_ply: ;最終処理（未登録データの登録処理）
movz.bw wbBaCurNum,r12 ;ナンバー＋α値取得
movz.bw wbCurPos,r10 ;カーソル位置の取得
mul.w #$03,r10 ;
add.w r12,r10 ;ずらす
mov.w #wbHitOk,r11 ;札ヒットワーク（８枚＊３種）
mov.b [r11](r10),wbFudaForN ;叩かれ側 札ナンバー
mov.b [r11](r10),wbBtoT_fuda4 ;手札に叩かれ移動登録
inc.b wbBtoT_fudaC ;カウントする
mov.b #$ff,[r11](r10) ;場札登録の抹消
mov.w #wbHitPs,r11 ;札ヒットポジション（８枚＊３種）
mov.b [r11](r10),wbFudaForP ;叩かれ側 札インデックス
mov.b [r11](r10),r20 ;
jsr _Del_Bafuda ;場札登録の抹消
inc.b wbKoiDist ;ベクタを進める
mov.b #$01,wbBaCurBusy ;終了！！
end_wat_tre_koi_ply: ;
popm #r10-r12/r15/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_TB_koi_ply: ;
pushm #r0/r10-r14/r21-r22 ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_TB_koi_ply ;
give_ini_TB_koi_ply: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
; mov.w [r14](r10),r0 ;目標札ワークの先頭
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_TB_koi_ply ;
get_ini_TB_koi_ply: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
; mov.w [r14](r10),r0 ;目標札ワークの先頭
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_TB_koi_ply: ;
dec.b wbPlyFudaCnt ;札枚数を減らす
mov.b #$02,wbSysCur ;カーソルをスリープモードに移行
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動
;-----------------------------------------------------------------------------
mov_TB_koi_ply: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_TB_koi_ply ;
next_mov_TB_koi_ply: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_TB_koi_ply_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_TB_koi_ply ;
next_mov_TB_koi_ply_ex: ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
; cmp.b #$ff,wbBtoT_fuda4 ;
; be next2_mov_TB_koi_ply ;
; mov.w #wBa_huda,r0 ;
; movz.bw wbFudaForP,r11 ;
; mov.b wbBtoT_fuda4,[r0](r11) ;
; mov.b #$ff,wbBtoT_fuda4 ;
next2_mov_TB_koi_ply: ;
inc.b wbKoiDist ;
end_mov_TB_koi_ply: ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札の詰め
;-----------------------------------------------------------------------------
srt_jam_koi_ply: ;
jsr _Fuda_Mon_SortP ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
end_srt_jam_koi_ply: ;
; dec.b wbPlyFudaCnt ;札枚数を減らす
mov.b #$00,wbKoiDist2_tim ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; 山札を探す（回避も含む）
;-----------------------------------------------------------------------------
src_Ym_koi_ply: ;
pushm #r10/r20 ;
dec.b wbActWaitTim ;ちょっと待った
bne end_src_Ym_koi_ply ;
jsr _Ba_Brk_Cnt ;ブランクのカウント
cmp.b #$01,r20 ;１枚以下なら
ble ex_src_Ym_koi_ply ;イカサマする
job_src_Ym_koi_ply: ;
jsr _Bahuda_Emp ;空き場所を探す
cmp.b #$ff,r20 ;空きがないよ
be ex_src_Ym_koi_ply ;
add.b #$02,wbKoiDist ;イカサマｉｎｔは無し
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
br end_src_Ym_koi_ply ;
ex_src_Ym_koi_ply: ;イカサマの準備
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;イカサマしないといけないよ
end_src_Ym_koi_ply: ;
popm #r10/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; イカサマｉｎｔ
;-----------------------------------------------------------------------------
mag_mby_koi_ply: ;
pushm #r16-r17/r20 ;
mov.w #$00,r20 ;
mov.w #12,r16 ;
loop_mag_mby_koi_ply: ;
jsr _Koi_Ark_m00 ;
test.b r17 ;
bnz end_mag_mby_koi_ply ;
inc.w r20 ;
dec.w r16 ;
bnz loop_mag_mby_koi_ply ;
jsr Reset ;致命的エラーなのでリセット
end_mag_mby_koi_ply: ;
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
inc.b wbKoiDist ;
popm #r16-r17/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札のめくり動作
;-----------------------------------------------------------------------------
opn_Ym_koi_ply: ;
pushm #r10-r12 ;
mov.w #wFuda,r10 ;
movz.bw wbMtoB_fuda,r11 ;めくり札
shl.w #$05,r11 ;
add.w r10,r11 ;目的ワークの先頭
movz.bw wbKoiDist2_tim,r12 ;
mov.b tOpen__Fuda_Rot(r12),_Fuda_dsp[r11] ;
inc.b wbKoiDist2_tim ;
cmp.b #10,wbKoiDist2_tim ;
bne end_opn_Ym_koi_ply ;
inc.b wbKoiDist ;
jsr _init_Hit_Ok ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbTtoB_fuda ;
end_opn_Ym_koi_ply: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r10-r12 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す（山札：場札）
;-----------------------------------------------------------------------------
src2_hit_koi_ply: ;叩ける札を探す（山札：場札）
push r20 ;
jsr _Eva2_hit_jd ;めくり札のヒット評価
test.b wbHitCkB ;
be give_src2_hit_koi_ply ;叩けない
cmp.b #$01,wbHitCkB ;
be sig_src2_hit_koi_ply ;１枚叩ける
cmp.b #$02,wbHitCkB ;
be dbl_src2_hit_koi_ply ;２枚叩ける
nop ;場に３枚以上存在する場合は、
nop ;とばない様に（すり抜けさせる様に）、
nop ;一時的に設定しておく
nop ;
give_src2_hit_koi_ply: ;場に捨てるとき
mov.b #$00,wbFudaMd ;モードの設定
jsr _Bahuda_Emp ;空き場所を探す
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
;; mov.b wbMtoB_fuda,wbBtoT_fuda1 ;
mov.b wbMtoB_fuda,wbTtoB_fuda ;
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b #$ff,wbFudaForN ;エラーを起こさせる
mov.b r20,wbFudaForP ;叩かれ側 札インデックス
br end_src2_hit_koi_ply ;
sig_src2_hit_koi_ply: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
br end_src2_hit_koi_ply ;
dbl_src2_hit_koi_ply: ;
mov.b #$02,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
end_src2_hit_koi_ply: ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
mov.b #$ff,wbMtoB_fuda ;起き札登録の抹消
inc.b wbKoiDist ;
pop r20 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札の選択
;-----------------------------------------------------------------------------
cho2_tre_koi_ply: ;３枚札の選択
push r1 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
bne end_cho2_tre_koi_ply ;
mov.b #$00,wbBaCurPos ;初期化
mov.b #$00,wbBaCurAnm ;
mov.b #$00,wbBaCurBusy ;
mov.b #$00,wbBaCurNum ;
mov.b #$00,wbBaYNPos ;
mov.b wbHitPs,wbBaCurPos ;
mov.w #tEsect_Ba_cur,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
jsr __1PKEY_Init ;Ｉ／Ｏ再初期化
mov.b #ChoFrzIni,wbFudaMovTim ;選択初期硬直時間の設定
push r1 ;
mov.b #SE_Msg,r1 ;メッセージウインドウ
jsr __mya_se ;
pop r1 ;
end_cho2_tre_koi_ply: ;
inc.b wbKoiDist ;
pop r1 ;
rsr ;
;-----------------------------------------------------------------------------
; ３枚札のキー入力待ち
;-----------------------------------------------------------------------------
wat2_tre_koi_ply: ;３枚札のキー入力待ち
pushm #r10/r11/r15 ;
cmp.b #$02,wbFudaMd ;３枚選択モードか？
be frz_wat2_tre_koi_ply ;らしい
; mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;ベクタを進める
br end_wat2_tre_koi_ply ;
frz_wat2_tre_koi_ply: ;
test.b wbFudaMovTim ;
be mod_wat2_tre_koi_ply ;
dec.b wbFudaMovTim ;初期硬直
mov.w #$ff,r15 ;ダミー・ニュートラル
br ini_wat2_tre_koi_ply ;
mod_wat2_tre_koi_ply: ;
jsr __1PKEY_JD ;
ini_wat2_tre_koi_ply: ;
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
movz.bw wbBaCurNum,r10 ;ナンバー＋α値取得
mov.w #wbHitPsB,r11 ;
mov.b [r11](r10),wbBaCurPos ;ポジションの登録
A_wat2_tre_koi_ply: ;Ａボタンチェック
test.h whSysTimDsp ;キャンセルタイマーチェック
be fin_wat2_tre_koi_ply ;
test1 #$03,r15 ;
bne R_wat2_tre_koi_ply ;
PA_wat2_tre_koi_ply: ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
push r1 ;
mov.b #SE_Dec1,r1 ;決定音
jsr __mya_se ;
pop r1 ;
test.b wbBaYNPos ;Ｙｅｓを選んだかいな？
be fin_wat2_tre_koi_ply ;
inc.b wbBaCurNum ;Ｎｏを選んだらしい
mov.b #ChoFrzTim,wbFudaMovTim ;硬直時間の再設定
mov.b #$00,wbBaYNPos ;Ｙｅｓに合わせ直し
cmp.b #$02,wbBaCurNum ;
bne end_wat2_tre_koi_ply ;
mov.b #$00,wbBaCurNum ;
br end_wat2_tre_koi_ply ;
R_wat2_tre_koi_ply: ;右チェック
test1 #$04,r15 ;
bne L_wat2_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$01,wbBaYNPos ;右ループしない
br end_wat2_tre_koi_ply ;
L_wat2_tre_koi_ply: ;左チェック
test1 #$05,r15 ;
bne end_wat2_tre_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$00,wbBaYNPos ;左ループしない
br end_wat2_tre_koi_ply ;
fin_wat2_tre_koi_ply: ;
movz.bw wbBaCurNum,r10 ;ナンバー＋α値取得
mov.w #wbHitOkB,r11 ;場札ヒットワーク（３種）
mov.b [r11](r10),wbFudaForN ;叩かれ側 札ナンバー
mov.b [r11](r10),wbBtoT_fuda3 ;
inc.b wbBtoT_fudaC ;カウントする
mov.w #wbHitPsB,r11 ;場札ヒットポジション（３種）
mov.b [r11](r10),wbFudaForP ;叩かれ側 札インデックス
mov.b [r11](r10),r20 ;
jsr _Del_Bafuda ;場札登録の抹消
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;ベクタを進める
mov.b #$01,wbBaCurBusy ;終了！！
end_wat2_tre_koi_ply: ;
popm #r10/r11/r15 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_YB_koi_ply: ;山札から場札への移動のイニシャライズ
pushm #r0/r10-r14/r21-r22 ;
dec.b wbActWaitTim ;待つのだ
bne fin_end_ini_YB_koi_ply ;
init_ini_YB_koi_ply: ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_YB_koi_ply ;
give_ini_YB_koi_ply: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_YB_koi_ply ;
get_ini_YB_koi_ply: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_YB_koi_ply: ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
fin_end_ini_YB_koi_ply: ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動
;-----------------------------------------------------------------------------
mov_YB_koi_ply: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_YB_koi_ply ;
next_mov_YB_koi_ply: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_YB_koi_ply_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_YB_koi_ply ;
next_mov_YB_koi_ply_ex: ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
; cmp.b #$ff,wbBtoT_fuda1 ;
; be next2_mov_YB_koi_ply ;
; mov.w #wBa_huda,r0 ;
; movz.bw wbFudaForP,r11 ;
; mov.b wbBtoT_fuda1,[r0](r11) ;
; mov.b #$ff,wbBtoT_fuda1 ;
next2_mov_YB_koi_ply: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
end_mov_YB_koi_ply: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_all_koi_ply: ;取った札すべての移動のイニシャライズ
pushm #r1/r10-r14 ;
dec.b wbActWaitTim ;
bne fin_ini_all_koi_ply ;
mov.b #$00,wbFuda1_Tim ;タイマー初期化
mov.b #$00,wbFuda2_Tim ;
mov.b #$00,wbFuda3_Tim ;
mov.b #$00,wbFuda4_Tim ;
mov.w #wbGetFudaP,r10 ;ワーク
jsr _Fuda_Shar_Cnt ;カウントしてみる
jsr _init_GetFuda_PosP ;ポジションの割り出し
job1_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda1,r1 ;
cmp.w #$ff,r1 ;
be job2_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job2_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda2,r1 ;
cmp.w #$ff,r1 ;
be job3_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job3_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda3,r1 ;
cmp.w #$ff,r1 ;
be job4_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
job4_ini_all_koi_ply: ;
movz.bw wbBtoT_fuda4,r1 ;
cmp.w #$ff,r1 ;
be end_ini_all_koi_ply ;
jsr _init_GetFuda_SetP ;
end_ini_all_koi_ply: ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
fin_ini_all_koi_ply: ;
popm #r1/r10-r14 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動
;-----------------------------------------------------------------------------
mov_all_koi_ply: ;
pushm #r0-r3/r10 ;
mov.w #wFuda,r1 ;
mov_all_koi_ply_job1: ;
movz.bw wbFuda1_Tim,r2 ;
mov.b tMov_All_Fuda1(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_ply_job2 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job1_ex ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_ply_job1_ex: ;
movz.bw wbBtoT_fuda1,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job2: ;
movz.bw wbFuda2_Tim,r2 ;
mov.b tMov_All_Fuda2(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_ply_job3 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job2_ex ;
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_ply_job2_ex: ;
movz.bw wbBtoT_fuda2,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job3: ;
movz.bw wbFuda3_Tim,r2 ;
mov.b tMov_All_Fuda3(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_job4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_ply_job4 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job3_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_ply_job3_ex: ;
movz.bw wbBtoT_fuda3,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_job4: ;
movz.bw wbFuda4_Tim,r2 ;
mov.b tMov_All_Fuda4(r2),r3 ;
test.b r3 ;
be mov_all_koi_ply_jd1 ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_ply_jd1 ;
cmp.b #$02,r3 ;
bne mov_all_koi_ply_job4_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_ply_job4_ex:
movz.bw wbBtoT_fuda4,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_ply_jd1: ;
movz.bw wbGetIdxP,r2 ;取った札のインデックス
mov.w #wbGetFudaP,r3 ;取った札ワーク
inc.b wbFuda1_Tim ;
cmp.b #16,wbFuda1_Tim ;
bne mov_all_koi_ply_jd2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_ply_jd2 ;
mov.b wbBtoT_fuda1,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda1 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd2: ;
inc.b wbFuda2_Tim ;
cmp.b #20,wbFuda2_Tim ;
bne mov_all_koi_ply_jd3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_ply_jd3 ;
mov.b wbBtoT_fuda2,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda2 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd3: ;
inc.b wbFuda3_Tim ;
cmp.b #24,wbFuda3_Tim ;
bne mov_all_koi_ply_jd4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_ply_jd4 ;
mov.b wbBtoT_fuda3,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda3 ;
jsr _GetFuda_Shar_SetP ;
inc.w r2 ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd4: ;
inc.b wbFuda4_Tim ;
cmp.b #28,wbFuda4_Tim ;
bne end_mov_all_koi_ply ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_ply_jd_ex ;
mov.b wbBtoT_fuda4,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda4 ;
jsr _GetFuda_Shar_SetP ;
inc.b wbGetIdxP ;
mov_all_koi_ply_jd_ex: ;
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #10,wbActWaitTim ;ウェイトをかます
end_mov_all_koi_ply: ;
popm #r0-r3/r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札のソート
;-----------------------------------------------------------------------------
srt_pul_koi_ply: ;
; pushm #r15/r16 ;
dec.b wbActWaitTim ;
bne fin_srt_pul_koi_ply ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
mov.w #$00,wBrankFuda ;初期化
mov.w #$00,wBrankFuda+$04 ;
mov.w #$00,wBrankFuda+$08 ;
; mov.w #wbGetFudaP,r15 ;Ｐ取った札のナンバー
; mov.w #wbGetIdxP,r16 ;Ｐ取った札のインデックス
; jsr _Get_Fuda_Req ;移動札を取り札として登録する
jsr _GetFuda_Sort_SetP ;
jsr _GetFuda_Shar_SetP ;
; mov.b #$ff,wbBtoT_fuda1 ;後始末
; mov.b #$ff,wbBtoT_fuda2 ;
; mov.b #$ff,wbBtoT_fuda3 ;
; mov.b #$ff,wbBtoT_fuda4 ;
job_srt_pul_koi_ply: ;
jsr _GetFuda_Arg_AgnP ;
jsr _GetFuda_Sort_SetC ;先攻時のダミープロセス
jsr _GetFuda_Shar_SetC ;
jsr _GetFuda_Arg_AgnC ;
end_srt_pul_koi_ply: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
; popm #r15/r16 ;
fin_srt_pul_koi_ply: ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札の評価
;-----------------------------------------------------------------------------
eva_pul_koi_ply: ;
pushm #r15-r20 ;
dec.b wbActWaitTim ;
bne end_eva_pul_koi_ply ;
mov.w #wbGetFudaP,r15 ;取った札ワークアドレス
mov.w #wbYakuJdP,r16 ;出来役判定用カウンターワークＡＤ
jsr _Huda_val ;取った札の評価
mov.w #wbYakuJdP,r15 ;出来役判定用カウンターワーク
mov.w #wbYakuJd2P,r16 ;出来役成立用ワーク（総合）
mov.w #wbYakuJd3P,r17 ;出来役成立用ワーク（瞬間）
mov.w #wbYakuCnt2P,r18 ;各出来役文数カウンター
mov.w #wbYakuCntP,r19 ;総文数カウンター（１回での出来役）
mov.w #wbYakuRchP,r20 ;出来役リーチ用ワーク
jsr _Yaku_val ;出来役の評価
inc.b wbKoiDist ;
end_eva_pul_koi_ply: ;
; mov.b #$00,wbFudaFrmN ;初期化
; mov.b #$00,wbFudaFrmP ;
; mov.b #$00,wbFudaForN ;
; mov.b #$00,wbFudaForP ;
;
; mov.b #$ff,wbMtoB_fuda ;初期化
; mov.b #$ff,wbTtoB_fuda ;
; mov.b #$ff,wbBtoT_fuda1 ;
; mov.b #$ff,wbBtoT_fuda2 ;
; mov.b #$ff,wbBtoT_fuda3 ;
; mov.b #$ff,wbBtoT_fuda4 ;
; mov.b #$00,wbBtoT_fudaC ;
;
; mov.w #$00,wBrankFuda ;初期化
; mov.w #$00,wBrankFuda+$04 ;
; mov.w #$00,wBrankFuda+$08 ;
;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r15-r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出判定
;-----------------------------------------------------------------------------
ini_dir_mom_koi_ply: ;瞬間での出来役演出判定
push r10 ;
mov.w #wbYakuJd3P,r10 ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_ply ;
add.b #$06,wbKoiDist ;成立してないや
br end_ini_dir_mom_koi_ply ;
job_ini_dir_mom_koi_ply: ;
; mov.b #$01,wbDPltCk ;ウインドウのセット
mov.b #$00,wbDPltMode ;
mov.b #$01,wbJdKoiKoi ;コイコイをきく必要性がある
jsr _DPlate_Man ;
inc.b wbKoiDist ;
end_ini_dir_mom_koi_ply: ;
; dec.b wbPlyFudaCnt ;札枚数を減らす
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出
;-----------------------------------------------------------------------------
dir_mom_koi_ply: ;
jsr _DPlate_Man ;
test.b wbDPltCk ;
bne end_dir_mom_koi_ply ;
inc.b wbKoiDist ;
test.b wbMainTask ;
be end_dir_mom_koi_ply ;
test.b wbUpCnt ;
bne end_dir_mom_koi_ply ;
push r1 ;
mov.b #21,r1 ;こいこい後のアップテンポ
jsr __mya_bgm ;
pop r1 ;
inc.b wbUpCnt ;
end_dir_mom_koi_ply: ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイする？ウインドウ
;-----------------------------------------------------------------------------
win_ask_koi_ply: ;
push r25 ;
test.b wbJdKoiKoi ;
be next_win_ask_koi_ply ;
test.b wbPlyFudaCnt ;
be next_win_ask_koi_ply ;
mov.b #$02,wbKoiWindowAction ;こいこいする？
jsr Koi_Window ;
test.b r25 ;
bne end_win_ask_koi_ply ;
next_win_ask_koi_ply: ;
inc.b wbKoiDist ;
end_win_ask_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイの選択
;-----------------------------------------------------------------------------
cho_koi_koi_ply: ;
push r1 ;
test.b wbJdKoiKoi ;
be next_cho_koi_koi_ply ;
test.b wbPlyFudaCnt ;
be next_cho_koi_koi_ply ;
mov.b #$00,wbBaCurBusy ;
mov.b #$00,wbBaYNPos ;
test.b wbDipCntrol ;コンパネ判定
bne job_cho_koi_koi_ply_KB ;
job_cho_koi_koi_ply_JS: ;
mov.w #tEsect_Koi_Ok,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
jsr __1PKEY_Init ;Ｉ／Ｏ再初期化
br job_cho_koi_koi_ply_ex ;
job_cho_koi_koi_ply_KB: ;
mov.w #tEsect_Koi_Ok2,r1 ;選択セットをリクエスト
jsr __Esect_Req ;
job_cho_koi_koi_ply_ex: ;
mov.b #ChoFrzIni,wbFudaMovTim ;選択初期硬直時間の設定
mov.b #$02,wbSysCur ;カーソルをスリープモードに移行
push r1 ;
mov.b #SE_Msg,r1 ;メッセージウインドウ
jsr __mya_se ;
pop r1 ;
next_cho_koi_koi_ply: ;
inc.b wbKoiDist ;
end_cho_koi_koi_ply: ;
pop r1 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイのキー入力待ち
;-----------------------------------------------------------------------------
wat_koi_koi_ply: ;
push r15 ;
mov.b #$00,wbCurBusy2 ;コンフリクト回避用
mov.b #$00,r20 ;処理続行中
jsr _Sys_tim_gen ;
inc.b wbRandEx1 ;うりゃー、まわせー
test.b wbJdKoiKoi ;
be next_wat_koi_koi_ply ;
test.b wbPlyFudaCnt ;０枚？
bne ex_wat_koi_koi_ply ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
mov.b #$00,wbJdKoiKoi ;
mov.b #$01,wbJdKoiEnd ;
inc.b wbKoiDist ;
br next_wat_koi_koi_ply ;
ex_wat_koi_koi_ply: ;
test.b wbFudaMovTim ;
be job_wat_koi_koi_ply ;
dec.b wbFudaMovTim ;
mov.b #$ff,r15 ;
br end_wat_koi_koi_ply ;
job_wat_koi_koi_ply: ;
test.b wbDipCntrol ;コンパネ判定
bne job_wat_koi_koi_ply_KB ;
job_wat_koi_koi_ply_JS: ;
jsr __1PKEY_JD ;
br A_job_wat_koi_koi_ply ;
job_wat_koi_koi_ply_KB: ;
mov.b #$ff,r15 ;回避手段
jsr __KBKEY_JD ;
mov.b #$01,wbBaCurBusy ;
mov.b #$00,wbBaYNPos ;Ｙ
cmp.b #$01,JOY1PKEY ;
be A_job_wat_koi_koi_ply_ex ;
mov.b #$01,wbBaYNPos ;Ｎ
cmp.b #14,JOY1PKEY ;
be A_job_wat_koi_koi_ply_ex ;
mov.b #$00,wbBaCurBusy ;
A_job_wat_koi_koi_ply: ;
; mov.b #$00,wbCurBusy2 ;コンフリクト回避用
; mov.b #$00,r20 ;処理続行中
; jsr _Sys_tim_gen ;
test.h whSysTimDsp ;キャンセルタイマーチェック
bne A_job_wat_koi_koi_ply_Ex ;
test.b wbBaYNPos ;
be AY_job_wat_koi_koi_ply ;
br AN_job_wat_koi_koi_ply ;
; be AN_job_wat_koi_koi_ply ;タイマー切れの場合はＮＯにする
A_job_wat_koi_koi_ply_Ex: ;
test1 #$03,r15 ;
bne R_job_wat_koi_koi_ply ;
A_job_wat_koi_koi_ply_ex: ;
push r1 ;
mov.b #SE_Dec1,r1 ;決定音
jsr __mya_se ;
pop r1 ;
test.b wbBaYNPos ;
bne AN_job_wat_koi_koi_ply ;
AY_job_wat_koi_koi_ply: ;
mov.b #$00,wbJdKoiEnd ;
br AX_job_wat_koi_koi_ply ;
AN_job_wat_koi_koi_ply: ;
mov.b #$00,wbJdKoiKoi ;
mov.b #$01,wbJdKoiEnd ;
inc.b wbKoiDist ;
AX_job_wat_koi_koi_ply: ;
mov.b #$01,r20 ;タイマーカット
jsr _Sys_tim_gen ;
mov.b #$00,wbBaYNPos ;
mov.b #$01,wbBaCurBusy ;
br next_wat_koi_koi_ply ;
R_job_wat_koi_koi_ply: ;
test1 #$04,r15 ;
bne L_job_wat_koi_koi_ply ;
test.b wbBaYNPos ;
bne end_wat_koi_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$01,wbBaYNPos ;
br end_wat_koi_koi_ply ;
L_job_wat_koi_koi_ply: ;
test1 #$05,r15 ;
bne end_wat_koi_koi_ply ;
test.b wbBaYNPos ;
be end_wat_koi_koi_ply ;
push r1 ;
mov.b #SE_Cur1,r1 ;カーソル移動音
jsr __mya_se ;
pop r1 ;
mov.b #$00,wbBaYNPos ;
br end_wat_koi_koi_ply ;
next_wat_koi_koi_ply: ;
inc.b wbKoiDist ;
end_wat_koi_koi_ply: ;
pop r15 ;
rsr ;
;-----------------------------------------------------------------------------
; コイコイしてくれたウインドウ
;-----------------------------------------------------------------------------
win_koi_koi_ply: ;
push r25 ;
test.b wbJdKoiKoi ;
be next_win_koi_koi_ply ;
mov.b #$03,wbKoiWindowAction ;コイコイしてくれてアリガト
jsr Koi_Window ;
test.b r25 ;
bne end_win_koi_koi_ply ;
next_win_koi_koi_ply: ;
; mov.b #$01,wbSysCur ;カーソル解放
mov.b #$00,wbJdKoiKoi ;
inc.b wbKoiDist ;
inc.b wbKoiDist ;
end_win_koi_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 勝ち負けウインドウ
;-----------------------------------------------------------------------------
win_res_koi_ply: ;
push r25 ;
test.b wbJdKoiEnd ;
be next_win_res_koi_ply ;
mov.b #$01,wbRikoSysCk ;リコ・システムＯＦＦ
mov.b #$05,wbKoiWindowAction ;勝ったよぉ
jsr Koi_Window ;
test.b r25 ;
bne end_win_res_koi_ply ;
; mov.b #$01,wbSysCur ;カーソル解放
mov.b #$00,wbJdKoiEnd ;
; mov.b #$01,wbSPltCk ;
mov.b #$00,wbDPltMode ;
mov.b #24,wbKoiTask ;集計処理へ
mov.b #$00,wbKoiDist ;
br end_win_res_koi_ply ;
next_win_res_koi_ply: ;
inc.b wbKoiDist ;
end_win_res_koi_ply: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 後処理
;-----------------------------------------------------------------------------
next_koi_ply: ;
end_next_koi_ply: ;
mov.b #$00,wbKoiDist ;
inc.b wbKoiTask ;上位タスクも進める
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; ＣＰＵの順番
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
tkoi_cpu_sec: ;
dw init_koi_cpu ;初期イニシャライズ
dw win_str_koi_cpu ;スタートウインドウ
dw src_hit_koi_cpu ;叩ける札を探す
dw ini_TB_koi_cpu ;手札から場札への移動のイニシャライズ
dw mov_TB_koi_cpu ;手札から場札への移動
dw srt_jam_koi_cpu ;手札の詰め
dw src_Ym_koi_cpu ;山札を探す（回避も含む）
dw mag_mby_koi_cpu ;イカサマｉｎｔ
dw opn_Ym_koi_cpu ;山札のめくり動作
dw src2_hit_koi_cpu ;叩ける札を探す（山札：場札）
dw ini_YB_koi_cpu ;山札から場札への移動のイニシャライズ
dw mov_YB_koi_cpu ;山札から場札への移動
dw ini_all_koi_cpu ;取った札すべての移動のイニシャライズ
dw mov_all_koi_cpu ;取った札すべての移動
dw srt_pul_koi_cpu ;取った札のソート
dw eva_pul_koi_cpu ;取った札の評価
dw ini_dir_mom_koi_cpu ;瞬間での出来役演出判定
dw dir_mom_koi_cpu ;瞬間での出来役演出
; dw win_ask_koi_cpu ;コイコイする？ウインドウ
dw cho_koi_koi_cpu ;コイコイの選択
; dw wat_koi_koi_cpu ;コイコイのキー入力待ち
dw win_koi_koi_cpu ;コイコイしてくれたウインドウ
dw win_res_koi_cpu ;勝ち負けウインドウ
dw next_koi_cpu ;後処理
;-----------------------------------------------------------------------------
koi_cpu_sec: ;ＣＰＵセクション
push r10 ;
movz.bw wbKoiDist,r10 ;
mov.w tkoi_cpu_sec(r10),r10 ;
jsr [r10] ;
jsr Fuda_Pri_Man ;
jsr Fuda_Esect ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 初期イニシャライズ
;-----------------------------------------------------------------------------
init_koi_cpu: ;
; jsr _init_Get_Fuda ;「取った札」用ワークの初期化
; jsr _Yaku_val_init ;出来役評価用ワークの初期化
mov.b #$00,wbJdKoiKoi ;
mov.b #$00,wbJdKoiEnd ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; スタートウインドウ
;-----------------------------------------------------------------------------
win_str_koi_cpu: ;
push r25 ;
cmp.b #$08,wbCpuFudaCnt ;初回判定
bne next_win_str_koi_cpu ;
test1 #$00,wbKoiOrd ;
be next_win_str_koi_cpu ;
mov.b #$01,wbKoiWindowAction ;スタートウインドウ
jsr Koi_Window ;
test.b r25 ;
bne end_win_str_koi_cpu ;
next_win_str_koi_cpu: ;
inc.b wbKoiDist ;
end_win_str_koi_cpu: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す
;-----------------------------------------------------------------------------
src_hit_koi_cpu: ;
pushm #r10/r15-r18/r20 ;
mov.w #wCpu_Tehuda,r10 ;
jsr _init_Hit_Ok ;札ヒットワークの初期化
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
mov.w #$00,wBrankFuda ;初期化
movu27.bin#
60400:
__mEsect_Init3 000,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_09,__G02_IvtBG03_09 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $080,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_10,__G02_IvtBG03_10 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $100,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 060,_G02_IvtBG03_11,__G02_IvtBG03_11 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $150,$200 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
; 本体
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_00,__G02_Ivt03_00 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_01,__G02_Ivt03_01 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $080,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_02,__G02_Ivt03_02 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $100,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_03,__G02_Ivt03_03 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $150,000 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_04,__G02_Ivt03_04 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 000,$100 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_05,__G02_Ivt03_05 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $080,$100 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_06,__G02_Ivt03_06 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $100,$100 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Init1 __EsectIventMovParts ;実行プログラム名
__mEsect_Init2 059,_G02_Ivt03_07,__G02_Ivt03_07 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 $150,$100 ;Ｈ、Ｖ
__mEsect_Init4 tMov_G02_Ivnt31,000 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
__mEsect_Initr10](r17) ;手札内からの登録抹消
movt.wb r17,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b #$ff,wbFudaForN ;エラーを起こさせる
jsr _Bahuda_Emp ;場札の空き場所を探す
mov.b r20,wbFudaForP ;叩く側（捨てる） 札インデックス
br end_src_hit_koi_cpu ;
sig_src_hit_koi_cpu: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b r15,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b r15,wbBtoT_fuda2 ;手札移動登録
inc.b wbBtoT_fudaC ;カウントする
mov.b #$ff,[r10](r17) ;手札内からの登録抹消
movt.wb r17,wbFudaFrmP ;叩く側（捨てる） 札インデックス
mov.b r16,wbFudaForN ;叩かれ側 札ナンバー
mov.b r16,wbBtoT_fuda4 ;手札に叩かれ移動登録
inc.b wbBtoT_fudaC ;カウントする
movt.wb r18,wbFudaForP ;叩かれ側 札インデックス
movt.wb r18,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
end_src_hit_koi_cpu: ;
inc.b wbKoiDist ;
popm #r10/r15-r18/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_TB_koi_cpu: ;
pushm #r0/r10-r14/r21-r22 ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;
mov.w r0,r12 ;札を表に開く
shl.w #$05,r12 ;
add.w r11,r12 ;
mov.b #$04,_Fuda_dsp[r12] ;
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_TB_koi_cpu ;
give_ini_TB_koi_cpu: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_TB_koi_cpu ;
get_ini_TB_koi_cpu: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_TB_koi_cpu: ;
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札から場札への移動
;-----------------------------------------------------------------------------
mov_TB_koi_cpu: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_TB_koi_cpu ;
next_mov_TB_koi_cpu: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_TB_koi_cpu_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_TB_koi_cpu ;
next_mov_TB_koi_cpu_ex: ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
next2_mov_TB_koi_cpu: ;
inc.b wbKoiDist ;
end_mov_TB_koi_cpu: ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 手札の詰め
;-----------------------------------------------------------------------------
srt_jam_koi_cpu: ;
jsr _Fuda_Mon_SortC ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
end_srt_jam_koi_cpu: ;
mov.b #$00,wbKoiDist2_tim ;
add.h #26,whGetFudaBMaxC ;役札のＭＡＸが増える
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; 山札を探す（回避も含む）
;-----------------------------------------------------------------------------
src_Ym_koi_cpu: ;
pushm #r10/r20 ;
dec.b wbActWaitTim ;
bne end_src_Ym_koi_cpu ;
jsr _Ba_Brk_Cnt ;ブランクのカウント
cmp.b #$01,r20 ;１枚以下なら
ble ex_src_Ym_koi_cpu ;イカサマする
job_src_Ym_koi_cpu: ;
jsr _Bahuda_Emp ;空き場所を探す
cmp.b #$ff,r20 ;空きがないよ
be ex_src_Ym_koi_cpu ;
add.b #$02,wbKoiDist ;イカサマｉｎｔは無し
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
br end_src_Ym_koi_cpu ;
ex_src_Ym_koi_cpu: ;イカサマの準備
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;イカサマしないといけないよ
end_src_Ym_koi_cpu: ;
popm #r10/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; イカサマｉｎｔ
;-----------------------------------------------------------------------------
mag_mby_koi_cpu: ;
pushm #r16-r17/r20 ;
mov.w #$00,r20 ;
mov.w #12,r16 ;
loop_mag_mby_koi_cpu: ;
jsr _Koi_Ark_m00 ;
test.b r17 ;
bnz end_mag_mby_koi_cpu ;
inc.w r20 ;
dec.w r16 ;
bnz loop_mag_mby_koi_cpu ;
jsr Reset ;致命的エラーなのでリセット
end_mag_mby_koi_cpu: ;
push r1 ;
mov.b #SE_FRol,r1 ;ひっくり返すときの音
jsr __mya_se ;
pop r1 ;
jsr _Mak_Yamafuda ;
mov.b r20,wbMtoB_fuda ;めくり札に登録
movz.bw r20,r10 ;札ナンバー
mov.w #$ff,r20 ;予定は未定
jsr _fuda_req ;札のリクエスト
inc.b wbKoiDist ;
popm #r16-r17/r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札のめくり動作
;-----------------------------------------------------------------------------
opn_Ym_koi_cpu: ;
pushm #r10-r12 ;
mov.w #wFuda,r10 ;
movz.bw wbMtoB_fuda,r11 ;めくり札
shl.w #$05,r11 ;
add.w r10,r11 ;目的ワークの先頭
movz.bw wbKoiDist2_tim,r12 ;
mov.b tOpen__Fuda_Rot(r12),_Fuda_dsp[r11] ;
inc.b wbKoiDist2_tim ;
cmp.b #10,wbKoiDist2_tim ;
bne end_opn_Ym_koi_cpu ;
inc.b wbKoiDist ;
jsr _init_Hit_Ok ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbTtoB_fuda ;
end_opn_Ym_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r10-r12 ;
rsr ;
;-----------------------------------------------------------------------------
; 叩ける札を探す（山札：場札）
;-----------------------------------------------------------------------------
src2_hit_koi_cpu: ;叩ける札を探す（山札：場札）
push r20 ;
jsr _Eva2_hit_jd ;めくり札のヒット評価
test.b wbHitCkB ;
be give_src2_hit_koi_cpu ;叩けない
cmp.b #$01,wbHitCkB ;
be sig_src2_hit_koi_cpu ;１枚叩ける
cmp.b #$02,wbHitCkB ;
be dbl_src2_hit_koi_cpu ;２枚叩ける
nop ;場に３枚以上存在する場合は、
nop ;とばない様に（すり抜けさせる様に）、
nop ;一時的に設定しておく
nop ;
give_src2_hit_koi_cpu: ;場に捨てるとき
mov.b #$00,wbFudaMd ;モードの設定
jsr _Bahuda_Emp ;空き場所を探す
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbTtoB_fuda ;
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b #$ff,wbFudaForN ;エラーを起こさせる
mov.b r20,wbFudaForP ;叩かれ側 札インデックス
br end_src2_hit_koi_cpu ;
sig_src2_hit_koi_cpu: ;
mov.b #$01,wbFudaMd ;モードの設定
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
br end_src2_hit_koi_cpu ;
dbl_src2_hit_koi_cpu: ;
mov.b #$02,wbFudaMd ;モードの設定
; mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
; mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くヤツ
; inc.b wbBtoT_fudaC ;カウントする
; mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbMtoB_fuda,wbFudaFrmN ;叩く側（捨てる） 札ナンバー
mov.b wbMtoB_fuda,wbBtoT_fuda1 ;叩くやつ
inc.b wbBtoT_fudaC ;カウントする
mov.b #$00,wbFudaFrmP ;１種類だけだから
mov.b wbHitOkB,wbFudaForN ;叩かれ側 札ナンバー
mov.b wbHitOkB,wbBtoT_fuda3 ;起き札に叩かれるヤツ
inc.b wbBtoT_fudaC ;カウントする
mov.b wbHitPsB,wbFudaForP ;叩かれ側 札インデックス
mov.b wbHitPsB,r20 ;
jsr _Del_Bafuda ;場札登録の抹消
end_src2_hit_koi_cpu: ;
mov.b #$ff,wbMtoB_fuda ;起き札登録の抹消
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
inc.b wbKoiDist ;
pop r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_YB_koi_cpu: ;山札から場札への移動のイニシャライズ
pushm #r0/r10-r14/r21-r22 ;
dec.b wbActWaitTim ;
bne fin_ini_YB_koi_cpu ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
movz.bw wbFudaFrmP,r11 ;叩く側（捨てる） 札インデックス
movz.bw wbFudaForN,r12 ;叩かれ側 札ナンバー
movz.bw wbFudaForP,r13 ;叩かれ側 札インデックス
mov.w #wFuda,r14 ;札ワーク
test.b wbFudaMd ;
bne get_ini_YB_koi_cpu ;
give_ini_YB_koi_cpu: ;場に捨てる場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos1(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos1(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
br end_ini_YB_koi_cpu ;
get_ini_YB_koi_cpu: ;札を叩く場合
shl.w #$05,r0 ;１つ３２バイトだから
add.w r14,r0 ;
shl.w #$01,r13 ;
mov.h tBahudaPos2(r13),r21 ;目標Ｈ
inc.w r13 ;
mov.h tBahudaPos2(r13),r22 ;目標Ｖ
jsr _fuda_ptp_mov_init ;
end_ini_YB_koi_cpu: ;
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #16,wbFudaMovTim ;札移動タイマーをセット
fin_ini_YB_koi_cpu: ;
popm #r0/r10-r14/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 山札から場札への移動
;-----------------------------------------------------------------------------
mov_YB_koi_cpu: ;
pushm #r0/r10/r11 ;
; jsr Fuda_Esect ;
movz.bw wbFudaFrmN,r0 ;叩く側（捨てる） 札ナンバー
mov.w #wFuda,r11 ;札ワーク
shl.w #$05,r0 ;
add.w r11,r0 ;
jsr _fuda_ptp_mov ;
dec.b wbFudaMovTim ;
bnz end_mov_YB_koi_cpu ;
next_mov_YB_koi_cpu: ;
cmp.b #$ff,wbTtoB_fuda ;
bne next_mov_YB_koi_cpu_ex ;
push r1 ;
mov.b #SE_FHit2,r1 ;ひっくり返す音後半
jsr __mya_se ;
pop r1 ;
br next2_mov_YB_koi_cpu ;
next_mov_YB_koi_cpu_ex: ;
push r1 ;
mov.b #SE_FHit1,r1 ;札を置く
jsr __mya_se ;
pop r1 ;
mov.w #wBa_huda,r0 ;
movz.bw wbFudaForP,r11 ;
mov.b wbTtoB_fuda,[r0](r11) ;
mov.b #$ff,wbTtoB_fuda ;
next2_mov_YB_koi_cpu: ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
end_mov_YB_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0/r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動のイニシャライズ
;-----------------------------------------------------------------------------
ini_all_koi_cpu: ;取った札すべての移動のイニシャライズ
pushm #r0/r10-r16/r21-r22 ;
dec.b wbActWaitTim ;
bne fin_ini_all_koi_cpu ;
mov.b #$00,wbFuda1_Tim ;タイマー初期化
mov.b #$00,wbFuda2_Tim ;
mov.b #$00,wbFuda3_Tim ;
mov.b #$00,wbFuda4_Tim ;
mov.w #wbGetFudaC,r10 ;ワーク
jsr _Fuda_Shar_Cnt ;カウントしてみる
jsr _init_GetFuda_PosC ;ポジションの割り出し
job1_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda1,r1 ;
cmp.w #$ff,r1 ;
be job2_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job2_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda2,r1 ;
cmp.w #$ff,r1 ;
be job3_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job3_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda3,r1 ;
cmp.w #$ff,r1 ;
be job4_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
job4_ini_all_koi_cpu: ;
movz.bw wbBtoT_fuda4,r1 ;
cmp.w #$ff,r1 ;
be end_ini_all_koi_cpu ;
jsr _init_GetFuda_SetC ;
end_ini_all_koi_cpu: ;
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
fin_ini_all_koi_cpu: ;
popm #r0/r10-r16/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札すべての移動
;-----------------------------------------------------------------------------
mov_all_koi_cpu: ;
pushm #r0-r3/r10 ;
mov.w #wFuda,r1 ;
mov_all_koi_cpu_job1: ;
movz.bw wbFuda1_Tim,r2 ;
mov.b tMov_All_Fuda1(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_cpu_job2 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job1_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_cpu_job1_ex:
movz.bw wbBtoT_fuda1,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job2: ;
movz.bw wbFuda2_Tim,r2 ;
mov.b tMov_All_Fuda2(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_cpu_job3 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job2_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_cpu_job2_ex:
movz.bw wbBtoT_fuda2,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job3: ;
movz.bw wbFuda3_Tim,r2 ;
mov.b tMov_All_Fuda3(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_job4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_cpu_job4 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job3_ex
; push r1 ;
; mov.b #$52,r1 ;札を切る音
; jsr __mya_se ;
; pop r1 ;
mov_all_koi_cpu_job3_ex:
movz.bw wbBtoT_fuda3,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_job4: ;
movz.bw wbFuda4_Tim,r2 ;
mov.b tMov_All_Fuda4(r2),r3 ;
test.b r3 ;
be mov_all_koi_cpu_jd1 ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_cpu_jd1 ;
cmp.b #$02,r3 ;
bne mov_all_koi_cpu_job4_ex
push r1 ;
mov.b #SE_FCut,r1 ;札を切る音
jsr __mya_se ;
pop r1 ;
mov_all_koi_cpu_job4_ex:
movz.bw wbBtoT_fuda4,r10 ;
shl.w #$05,r10 ;
add.w r1,r10 ;
mov.w r10,r0 ;
jsr _fuda_ptp_mov ;
mov_all_koi_cpu_jd1: ;
movz.bw wbGetIdxC,r2 ;取った札のインデックス
mov.w #wbGetFudaC,r3 ;取った札ワーク
inc.b wbFuda1_Tim ;
cmp.b #16,wbFuda1_Tim ;
bne mov_all_koi_cpu_jd2 ;
cmp.b #$ff,wbBtoT_fuda1 ;
be mov_all_koi_cpu_jd2 ;
mov.b wbBtoT_fuda1,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda1 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd2: ;
inc.b wbFuda2_Tim ;
cmp.b #20,wbFuda2_Tim ;
bne mov_all_koi_cpu_jd3 ;
cmp.b #$ff,wbBtoT_fuda2 ;
be mov_all_koi_cpu_jd3 ;
mov.b wbBtoT_fuda2,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda2 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd3: ;
inc.b wbFuda3_Tim ;
cmp.b #24,wbFuda3_Tim ;
bne mov_all_koi_cpu_jd4 ;
cmp.b #$ff,wbBtoT_fuda3 ;
be mov_all_koi_cpu_jd4 ;
mov.b wbBtoT_fuda3,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda3 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd4: ;
inc.b wbFuda4_Tim ;
cmp.b #28,wbFuda4_Tim ;
bne end_mov_all_koi_cpu ;
cmp.b #$ff,wbBtoT_fuda4 ;
be mov_all_koi_cpu_jd_ex ;
mov.b wbBtoT_fuda4,[r3](r2) ;
mov.b #$ff,wbBtoT_fuda4 ;
; jsr _GetFuda_Shar_SetC ;
inc.w r2 ;
inc.b wbGetIdxC ;
mov_all_koi_cpu_jd_ex: ;
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
;; jsr waitblk ;まあ、待てや
inc.b wbKoiDist ;
mov.b #10,wbActWaitTim ;ウェイトをかます
end_mov_all_koi_cpu: ;
; jsr Fuda_Pri_Man ;
; jsr Fuda_Esect ;
popm #r0-r3/r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札のソート
;-----------------------------------------------------------------------------
srt_pul_koi_cpu: ;
; pushm #r15/r16 ;
dec.b wbActWaitTim ;
bne end_srt_pul_koi_cpu ;
; mov.w #wbGetFudaC,r15 ;Ｐ取った札のナンバー
; mov.w #wbGetIdxC,r16 ;Ｐ取った札のインデックス
; jsr _Get_Fuda_Req ;移動札を取り札として登録する
jsr _GetFuda_Sort_SetC ;
jsr _GetFuda_Shar_SetC ;
; mov.b #$ff,wbBtoT_fuda1 ;後始末
; mov.b #$ff,wbBtoT_fuda2 ;
; mov.b #$ff,wbBtoT_fuda3 ;
; mov.b #$ff,wbBtoT_fuda4 ;
jsr _GetFuda_Arg_AgnC ;
mov.b #$00,wbFudaFrmN ;初期化
mov.b #$00,wbFudaFrmP ;
mov.b #$00,wbFudaForN ;
mov.b #$00,wbFudaForP ;
mov.b #$ff,wbMtoB_fuda ;初期化
mov.b #$ff,wbTtoB_fuda ;
mov.b #$ff,wbBtoT_fuda1 ;
mov.b #$ff,wbBtoT_fuda2 ;
mov.b #$ff,wbBtoT_fuda3 ;
mov.b #$ff,wbBtoT_fuda4 ;
mov.b #$00,wbBtoT_fudaC ;
mov.w #$00,wBrankFuda ;初期化
mov.w #$00,wBrankFuda+$04 ;
mov.w #$00,wBrankFuda+$08 ;
inc.b wbKoiDist ;
mov.b #_ActWaitTim,wbActWaitTim ;ウェイトをかます
end_srt_pul_koi_cpu: ;
; popm #r15/r16 ;
rsr ;
;-----------------------------------------------------------------------------
; 取った札の評価
;-----------------------------------------------------------------------------
eva_pul_koi_cpu: ;
pushm #r15-r20 ;
dec.b wbActWaitTim ;
bne end_eva_pul_koi_cpu ;
mov.w #wbGetFudaC,r15 ;取った札ワークアドレス
mov.w #wbYakuJdC,r16 ;出来役判定用カウンターワークＡＤ
jsr _Huda_val ;取った札の評価
mov.w #wbYakuJdC,r15 ;出来役判定用カウンターワーク
mov.w #wbYakuJd2C,r16 ;出来役成立用ワーク（総合）
mov.w #wbYakuJd3C,r17 ;出来役成立用ワーク（瞬間）
mov.w #wbYakuCnt2C,r18 ;各出来役文数カウンター
mov.w #wbYakuCntC,r19 ;総文数カウンター（１回での出来役）
mov.w #wbYakuRchC,r20 ;出来役リーチ用ワーク
jsr _Yaku_val ;出来役の評価
inc.b wbKoiDist ;
end_eva_pul_koi_cpu: ;
popm #r15-r20 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出判定
;-----------------------------------------------------------------------------
ini_dir_mom_koi_cpu: ;瞬間での出来役演出判定
push r10 ;
mov.w #wbYakuJd3C,r10 ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_cpu ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_cpu ;
test.w [r10+] ;
bne job_ini_dir_mom_koi_cpu ;
add.b #$04,wbKoiDist ;
br end_ini_dir_mom_koi_cpu ;
job_ini_dir_mom_koi_cpu: ;
; mov.b #$01,wbDPltCk ;
mov.b #$01,wbDPltMode ;
jsr _DPlate_Man ;
mov.b #$01,wbJdKoiKoi ;コイコイをきく必要性がある
inc.b wbKoiDist ;
end_ini_dir_mom_koi_cpu: ;
dec.b wbCpuFudaCnt ;札枚数を減らす
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 瞬間での出来役演出
;-----------------------------------------------------------------------------
dir_mom_koi_cpu: ;
jsr _DPlate_Man ;
test.b wbDPltCk ;
bne end_dir_mom_koi_cpu ;
inc.b wbKoiDist ;
test.b wbMainTask ;
be end_dir_mom_koi_cpu ;
test.b wbUpCnt ;
bne end_dir_mom_koi_cpu ;
push r1 ;
mov.b #21,r1 ;こいこい後のアップテンポ
jsr __mya_bgm ;
pop r1 ;
inc.b wbUpCnt ;
end_dir_mom_koi_cpu: ;
rsr ;
;;-----------------------------------------------------------------------------
;; コイコイする？ウインドウ
;;-----------------------------------------------------------------------------
;win_ask_koi_cpu: ;
; inc.b wbKoiDist ;
; rsr ;
;-----------------------------------------------------------------------------
; コイコイの選択
;-----------------------------------------------------------------------------
cho_koi_koi_cpu: ;
push r10 ;
test.b wbCpuFudaCnt ;
be ex_cho_koi_koi_cpu ;
movz.bw wbPerNo,r10 ;
mov.b tJD_Cpu_KoiKoi(r10),r10 ;
cmp.b r10,wbCpuFudaCnt ;多い場合は、
bh end_cho_koi_koi_cpu ;こいこいします
mov.b #$01,wbJdKoiEnd ;こいこいしない
mov.b #$00,wbJdKoiKoi ;
inc.b wbKoiDist ;
br end_cho_koi_koi_cpu ;
ex_cho_koi_koi_cpu: ;最後の１枚の時は、
mov.b #$01,wbJdKoiEnd ;こいこいしない
mov.b #$00,wbJdKoiKoi ;
inc.b wbKoiDist ;
end_cho_koi_koi_cpu: ;
inc.b wbKoiDist ;
pop r10 ;
rsr ;
;;-----------------------------------------------------------------------------
;; コイコイのキー入力待ち
;;-----------------------------------------------------------------------------
;wat_koi_koi_cpu: ;
; inc.b wbKoiDist ;
; rsr ;
;-----------------------------------------------------------------------------
; コイコイしてくれたウインドウ
;-----------------------------------------------------------------------------
win_koi_koi_cpu: ;
push r25 ;
test.b wbJdKoiKoi ;
be next_win_koi_koi_cpu ;
mov.b #$04,wbKoiWindowAction ;こいこいするよ
jsr Koi_Window ;
test.b r25 ;
bne end_win_koi_koi_cpu ;
next_win_koi_koi_cpu: ;
mov.b #$00,wbJdKoiKoi ;
inc.b wbKoiDist ;
end_win_koi_koi_cpu: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 勝ち負けウインドウ
;-----------------------------------------------------------------------------
win_res_koi_cpu: ;
push r25 ;
test.b wbJdKoiEnd ;
be next_win_res_koi_cpu ;
mov.b #$01,wbRikoSysCk ;リコ・システムＯＦＦ
mov.b #$06,wbKoiWindowAction ;勝ったよぉ
jsr Koi_Window ;
test.b r25 ;
bne end_win_res_koi_cpu ;
mov.b #$00,wbJdKoiEnd ;
; mov.b #$01,wbSPltCk ;
mov.b #$01,wbDPltMode ;
mov.b #24,wbKoiTask ;集計処理へ
mov.b #$00,wbKoiDist ;
br end_win_res_koi_cpu ;
next_win_res_koi_cpu: ;
inc.b wbKoiDist ;
end_win_res_koi_cpu: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; 後処理
;-----------------------------------------------------------------------------
next_koi_cpu: ;
mov.b #$00,wbKoiDist ;
inc.b wbKoiTask ;上位タスクも進める
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; 究極の選択 ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
t_koi_ex_sum: ;
dw Init_koi_ex_sum ;
dw JobD_koi_ex_sum ;
dw JobS_koi_ex_sum ;
dw End_koi_ex_sum ;
koi_ex_sum: ;
push r10 ;
movz.bw wbKoiDist,r10 ;
mov.w t_koi_ex_sum(r10),r10 ;
jsr [r10] ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
Init_koi_ex_sum: ;
test1 #$00,wbKoiOrd ;
bne jdC_Init_koi_ex_sum ;
jdP_Init_koi_ex_sum: ;
mov.b #$01,wbYakuOya ;
mov.b #$01,wbRikoSysCk ;リコ・システムＯＦＦ
; mov.b #$01,wbDPltCk ;ウインドウのセット
mov.b #$00,wbDPltMode ;
jsr _DPlate_Man ;
br end_Init_koi_ex_sum ;
jdC_Init_koi_ex_sum: ;
mov.b #$02,wbYakuOya ;
mov.b #$01,wbRikoSysCk ;リコ・システムＯＦＦ
; mov.b #$01,wbDPltCk ;
mov.b #$01,wbDPltMode ;
jsr _DPlate_Man ;
end_Init_koi_ex_sum: ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
JobD_koi_ex_sum: ;
jsr _DPlate_Man ;
test.b wbDPltCk ;
bne end_JobD_koi_ex_sum ;
next_JobD_koi_ex_sum: ;
inc.b wbKoiDist ;
end_JobD_koi_ex_sum: ;
rsr ;
;-----------------------------------------------------------------------------
JobS_koi_ex_sum: ;
jsr __mya_bgm_stp ;演奏停止
jsr __mya_se_stp ;ＳＥ停止
jsr Kill_Se_Man ;ＳＥバッファークリアー
jsr __mya_bgm_stp ;演奏停止
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
End_koi_ex_sum: ;
test1 #$00,wbKoiOrd ;
bne jobC_End_koi_ex_sum ;
jobP_End_koi_ex_sum: ;
; mov.b #$01,wbSPltCk ;
mov.b #$00,wbDPltMode ;
br next_end_End_koi_ex_sum ;
jobC_End_koi_ex_sum: ;
; mov.b #$01,wbSPltCk ;
mov.b #$01,wbDPltMode ;
next_end_End_koi_ex_sum: ;
mov.b #$00,wbKoiDist ;
inc.b wbKoiTask ;
end_End_koi_ex_sum: ;
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; 集計タ～～～～イム
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
tkoi_scr_sum: ;
dw init_koi_scr_sum ;前処理
dw ent_koi_scr_sum ;ウインドウ登場
dw dsp_koi_scr_sum ;出来役表示
dw job_koi_scr_sum ;集計処理
dw reg_koi_scr_sum ;ウインドウ退場
dw next_koi_scr_sum ;後処理
;-----------------------------------------------------------------------------
koi_scr_sum: ;集計タイム
push r10 ;
movz.bw wbKoiDist,r10 ;
mov.w tkoi_scr_sum(r10),r10 ;オラオラオラオラー
jsr [r10] ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; 集計処理
;-----------------------------------------------------------------------------
init_koi_scr_sum: ;
jsr _SPlate_Man ;
test.b wbSPltCk ;ウインドウ処理
bne end_init_koi_scr_sum ;
inc.b wbKoiDist ;
end_init_koi_scr_sum: ;
rsr ;
;-----------------------------------------------------------------------------
; 通信対戦用勝ち負けフラグセット
;-----------------------------------------------------------------------------
ent_koi_scr_sum: ;
test.b wbRsMode ;
be next_ent_koi_scr_sum ;通信対戦以外は関係なし
test.b wbPntGirl ;
be win_ent_koi_scr_sum ;勝ち
test.b wbPntPly ;
be lose_ent_koi_scr_sum ;負け
cmp.b #$02,wbRsRound ;
bl next_ent_koi_scr_sum ;延長戦以外は通常続行
cmp.b #$02,wbRsRound ;
bne set_ent_koi_scr_sum ;
cmp.b wbPntGirl,wbPntPly ;最終戦の場合だね
be next_ent_koi_scr_sum ;
bl lose_ent_koi_scr_sum ;
br win_ent_koi_scr_sum ;
set_ent_koi_scr_sum: ;延長戦の場合だね
cmp.b wbPntGirl,wbPntPly ;
ble lose_ent_koi_scr_sum ;同点は無いと思うけど
win_ent_koi_scr_sum: ;プレイヤーの勝ち
mov.b #$01,wbRsWinJd ;勝ちフラグ
br next_ent_koi_scr_sum ;
lose_ent_koi_scr_sum: ;プレイヤーの負け
mov.b #$02,wbRsWinJd ;負けフラグ
next_ent_koi_scr_sum: ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; 勝ち負け演出
;-----------------------------------------------------------------------------
dsp_koi_scr_sum: ;
push r25 ;
test.b wbRsMode ;
be next_dsp_koi_scr_sum ;通常ゲームの場合は関係なし
test.b wbRsWinJd ;
be next_dsp_koi_scr_sum ;まだ勝負はついていない
mov.b wbRsWinJd,wbRs_MsgNo ;
dec.b wbRs_MsgNo ;
jsr Koi_Rs_Comm ;
test.b r25 ;
bne end_dsp_koi_scr_sum ;
next_dsp_koi_scr_sum: ;
inc.b wbKoiDist ;
end_dsp_koi_scr_sum: ;
pop r25 ;
rsr ;
;-----------------------------------------------------------------------------
; ワイプセット
;-----------------------------------------------------------------------------
job_koi_scr_sum: ;
mov.b #$00,wbWipeMode ;ワイプセット
mov.b #$00,wbWipeIO ;
mov.b #$01,wbWipeCk ;
mov.b #$00,wbYakuOya ;親権フラグを毎回クリア
; push r0 ;
; mov.b #$fe,r0 ;ＢＧＭフェードアウト
; jsr play_music ;
; pop r0 ;
inc.b wbKoiDist ;
rsr ;
;-----------------------------------------------------------------------------
; ワイプアウト
;-----------------------------------------------------------------------------
reg_koi_scr_sum: ;
test.b wbWipeCk ;
bne end_reg_koi_scr_sum ;
jsr __Esect_Kill_All ;エセクト強制終了
inc.b wbKoiDist ;
end_reg_koi_scr_sum: ;
rsr ;
;-----------------------------------------------------------------------------
; 後処理
;-----------------------------------------------------------------------------
next_koi_scr_sum: ;
mov.b #$00,wbKoiDist ;
inc.b wbKoiTask ;上位タスクも進める
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; サブルーチンの類
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; _Ba_Cur_YN ; Ｙｅｓ／Ｎｏ選択パネル用
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_Ba_Cur_YN: ;
pushm #r1/r2 ;
; jsr Esect_Anm ;
test.b wbBaCurBusy ;決定したかい？
bne kill_Ba_Cur_YN ;終了へ
mov.w _Ese_Anm_Tbl[r0],r1 ;アニメーションテーブルを確保
movz.bw wbBaYNPos,r2 ;
mov.w [r1](r2),r2 ;
movz.hw _Ese_Mov_Tim[r0],r1 ;
; shl.w #$01,r1 ;
; mov.h [r2](r1),_Ese_Cobj_Num[r0] ;子オブジェの数
mov.h [r2](r1),_Ese_Cobj_Pls[r0] ;子オブジェの場所
inc.h _Ese_Mov_Tim[r0] ;
cmp.h #18,_Ese_Mov_Tim[r0] ;
bne end_Ba_Cur_YN ;
mov.h #$00,_Ese_Mov_Tim[r0] ;
br end_Ba_Cur_YN ;
kill_Ba_Cur_YN: ;
jsr Esect_Kill ;コロる
end_Ba_Cur_YN: ;
popm #r1/r2 ;
rsr ;
;-----------------------------------------------------------------------------
; _Ba_Cur_Msg ; 「合わせ札はこれで良いかい？」パネル用
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_Ba_Cur_Msg: ;
jsr Esect_Anm ;
test.b wbBaCurBusy ;決定したかい？
be end_Ba_Cur_Msg ;
kill_Ba_Cur_Msg: ;
jsr Esect_Kill ;コロる
end_Ba_Cur_Msg: ;
rsr ;
;-----------------------------------------------------------------------------
; _Ba_Cur ; 場札選択カーソル用
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_Ba_Cur: ;
pushm #r1/r2 ;
test.b wbBaCurBusy ;決定したかい？
bne kill_Ba_Cur ;
pos_Ba_Cur: ;ポジションセット
movz.bw wbBaCurPos,r2 ;
shl.w #$01,r2 ;
mov.h tBaCurPos(r2),_Ese_Pos_H[r0] ;Ｈ
inc.w r2 ;
mov.h tBaCurPos(r2),_Ese_Pos_V[r0] ;Ｖ
anm_Ba_Cur: ;アニメーション・パターンセット
movz.bw wbBaCurAnm,r1 ;
shl.w #$01,r1 ;
mov.h tFuda_cel_cur(r1),_Ese_Cobj_Pls[r0] ;
inc.w r1 ;
mov.h tFuda_cel_cur(r1),_Ese_Cobj_Num[r0] ;
inc.b wbBaCurAnm ;
cmp.b #20,wbBaCurAnm ;
bne end_Ba_Cur ;
mov.b #$00,wbBaCurAnm ;
br end_Ba_Cur ;
kill_Ba_Cur: ;
jsr Esect_Kill ;コロる
end_Ba_Cur: ;
popm #r1/r2 ;
rsr ;
;-----------------------------------------------------------------------------
; _Del_Bafuda ; 場札の登録抹消（仮抹消）
; in : r20(.b) -> 登録抹消する札インデックス
; out : nothing
;-----------------------------------------------------------------------------
_Del_Bafuda: ;
pushm #r10-r12 ;
mov.w #wBa_huda,r10 ;
movz.bw r20,r11 ;
mov.w #wBrankFuda,r12 ;
mov.b #$ff,[r10](r11) ;
mov.b #$01,[r12](r11) ;こっちにも登録
popm #r10-r12 ;
rsr ;
;-----------------------------------------------------------------------------
; _Ba_Brk_Cnt ; 場札のブランクカウント
; in : nothing
; out : r20(.b) -> ブランク数
;-----------------------------------------------------------------------------
_Ba_Brk_Cnt: ;場札のブランクカウント
pushm #r10-r13 ;
mov.w #wBa_huda,r10 ;
mov.w #$00,r11 ;
mov.w #12,r12 ;
mov.w #wBrankFuda,r13 ;
mov.b #$00,r20 ;
job_Ba_Brk_Cnt: ;
cmp.b #$ff,[r10](r11) ;
bne loop_Ba_Brk_Cnt ;
test.b [r13](r11) ;正確にチェックする
bne loop_Ba_Brk_Cnt ;
inc.b r20 ;
loop_Ba_Brk_Cnt: ;
inc.w r11 ;
dec.w r12 ;
bnz job_Ba_Brk_Cnt ;
end_Ba_Brk_Cnt: ;
popm #r10-r13 ;
rsr ;
;;-----------------------------------------------------------------------------
;; _Get_Fuda_Req ;移動札を取り札として登録する
;; in :r15(.w) -> 取った札ワークアドレス
;; :r16(.w) -> 取った札インデックスアドレス
;; out :nothing
;;-----------------------------------------------------------------------------
;_Get_Fuda_Req: ;
; push r17 ;
; movz.bw [r16],r17 ;インデックスの取得
;_Get_Fuda_Req1: ;
; cmp.b #$ff,wbBtoT_fuda1 ;
; be _Get_Fuda_Req2 ;
; mov.b wbBtoT_fuda1,[r15](r17) ;
; inc.w r17 ;
; inc.b [r16] ;
;_Get_Fuda_Req2: ;
; cmp.b #$ff,wbBtoT_fuda2 ;
; be _Get_Fuda_Req3 ;
; mov.b wbBtoT_fuda2,[r15](r17) ;
; inc.w r17 ;
; inc.b [r16] ;
;_Get_Fuda_Req3: ;
; cmp.b #$ff,wbBtoT_fuda3 ;
; be _Get_Fuda_Req4 ;
; mov.b wbBtoT_fuda3,[r15](r17) ;
; inc.w r17 ;
; inc.b [r16] ;
;_Get_Fuda_Req4: ;
; cmp.b #$ff,wbBtoT_fuda4 ;
; be end_Get_Fuda_Req ;
; mov.b wbBtoT_fuda4,[r15](r17) ;
; inc.w r17 ;
; inc.b [r16] ;
;end_Get_Fuda_Req: ;
; pop r17 ;
; rsr ;
;-----------------------------------------------------------------------------
; _Fuda_Shar_Cnt ; 取った札の点数別カウント
; in : r10(.w) -> 取った札ワーク
; out : r11(.w) -> ００点札の枚数
; : r12(.w) -> ０５点札の枚数
; : r13(.w) -> １０点札の枚数
; : r14(.w) -> ２０点札の枚数
;-----------------------------------------------------------------------------
_Fuda_Shar_Cnt: ;
pushm #r15-r17 ;
mov.w #$00,r11 ;００点札の枚数
mov.w #$00,r12 ;０５点札の枚数
mov.w #$00,r13 ;１０点札の枚数
mov.w #$00,r14 ;２０点札の枚数
mov.w #32,r15 ;ＬＣ
job_Fuda_Shar_Cnt: ;
movz.bw [r10+],r16 ;
cmp.w #$ff,r16 ;
be end_Fuda_Shar_Cnt ;
mov.b tFuda_points(r16),r17 ;
job_Fuda_Shar_Cnt00: ;
test.b r17 ;
bne job_Fuda_Shar_Cnt05 ;
inc.w r11 ;
br loop__Fuda_Shar_Cnt ;
job_Fuda_Shar_Cnt05: ;
cmp.b #$01,r17 ;
bne job_Fuda_Shar_Cnt10 ;
inc.w r12 ;
br loop__Fuda_Shar_Cnt ;
job_Fuda_Shar_Cnt10: ;
cmp.b #$02,r17 ;
bne job_Fuda_Shar_Cnt20 ;
inc.w r13 ;
br loop__Fuda_Shar_Cnt ;
job_Fuda_Shar_Cnt20: ;
inc.w r14 ;
loop__Fuda_Shar_Cnt: ;
dec.w r15 ;
bne job_Fuda_Shar_Cnt ;
end_Fuda_Shar_Cnt: ;
popm #r15-r17 ;
rsr ;
;-----------------------------------------------------------------------------
; _Fuda_Dir_Pos_Set: : 札の直接ポジションセット
; in : r0(.w) -> 札ナンバー
; : r1(.h) -> Ｈ
; : r2(.h) -> Ｖ
; out : nothing
;-----------------------------------------------------------------------------
_Fuda_Dir_Pos_Set: ;
push r10 ;
mov.w r0,r10 ;逃がす
shl.w #$05,r10 ;
add.w #wFuda,r10 ;
mov.h r1,_Fuda_posH+$2[r10] ;
mov.h r2,_Fuda_posV+$2[r10] ;
mov.h #$00,_Fuda_posH[r10] ;
mov.h #$00,_Fuda_posV[r10] ;
end_Fuda_Dir_Pos_Set: ;
pop r10 ;
rsr ;
;-----------------------------------------------------------------------------
; _init_GetFuda_PosP ; プレイヤーの札移動ポジション等の割り出し
; in : r11(.w) -> ００点札の枚数
; : r12(.w) -> ０５点札の枚数
; : r13(.w) -> １０点札の枚数
; : r14(.w) -> ２０点札の枚数
; out : nothing
;-----------------------------------------------------------------------------
_init_GetFuda_PosP: ;
pushm #r15-r17 ;
job_init_GetFuda_PosP00: ;
test.w r11 ;
bne job2_init_GetFuda_PosP00 ;
mov.h #Hpos_PFX00,whGetFudaPos00P ;
br job_init_GetFuda_PosP05 ;
job2_init_GetFuda_PosP00: ;
shl.w #$03,r11 ;００点札総ドット数
movt.wh r11,r11 ;
neg.h r11,r11 ;
add.h #Hpos_PFX00,r11 ;
add.h #-8,r11 ;
mov.h r11,whGetFudaPos00P ;置く位置セット
job_init_GetFuda_PosP05: ;
test.w r12 ;
bne job2_init_GetFuda_PosP05 ;
mov.h #Hpos_PFX05,whGetFudaPos05P ;
br job_init_GetFuda_PosP10 ;
job2_init_GetFuda_PosP05: ;
mov.w r12,r16 ;逃がす
mov.w r16,r17 ;
mul.w #26,r12 ;０５点札総ドット数
mov.w #HsizGetFuda05,r15 ;
cmp.w r15,r12 ;
bh job3_init_GetFuda_PosP05 ;置き領域オーバー
movt.wh r12,r12 ;
neg.h r12,r12 ;
add.h #26,r12 ;
add.h #Hpos_PFX05,r12 ;
add.h #-4,r12 ;
mov.h r12,whGetFudaPos05P ;
br job_init_GetFuda_PosP10 ;
job3_init_GetFuda_PosP05: ;
movt.wh r15,r15 ;
neg.h r15,r15 ;
add.h #Hpos_PFX05,r15 ;
add.h #-4,r15 ;
mov.h r15,whGetFudaPos05P ;
job_init_GetFuda_PosP10: ;
test.w r13 ;
bne job2_init_GetFuda_PosP10 ;
mov.h #Hpos_PFX10,whGetFudaPos10P ;
br job_init_GetFuda_PosP20 ;
job2_init_GetFuda_PosP10: ;
mov.w r13,r16 ;逃がす
mul.w #26,r13 ;１０点札総ドット数
mov.w #HsizGetFuda10,r15 ;
cmp.w r15,r13 ;
bh job3_init_GetFuda_PosP10 ;置き領域オーバー
movt.wh r13,r13 ;
neg.h r13,r13 ;
add.h #26,r13 ;
add.h #Hpos_PFX10,r13 ;
add.h #-4,r13 ;
mov.h r13,whGetFudaPos10P ;
br job_init_GetFuda_PosP20 ;
job3_init_GetFuda_PosP10: ;
movt.wh r15,r15 ;
neg.h r15,r15 ;
add.h #Hpos_PFX10,r15 ;
add.h #-4,r15 ;
mov.h r15,whGetFudaPos10P ;
job_init_GetFuda_PosP20: ;
test.w r14 ;
bne job2_init_GetFuda_PosP20 ;
mov.h #Hpos_PFX20,whGetFudaPos20P ;
br end_init_GetFuda_PosP ;
job2_init_GetFuda_PosP20: ;
mov.w r14,r16 ;逃がす
mul.w #26,r14 ;２０点札総ドット数
mov.w #HsizGetFuda20,r15 ;
cmp.w r15,r14 ;
bh job3_init_GetFuda_PosP20 ;置き領域オーバー
movt.wh r14,r14 ;
neg.h r14,r14 ;
add.h #26,r14 ;
add.h #Hpos_PFX20,r14 ;
add.h #-4,r14 ;
mov.h r14,whGetFudaPos20P ;
br end_init_GetFuda_PosP ;
job3_init_GetFuda_PosP20: ;
movt.wh r15,r15 ;
neg.h r15,r15 ;
add.h #Hpos_PFX20,r15 ;
add.h #-4,r15 ;
mov.h r15,whGetFudaPos20P ;
end_init_GetFuda_PosP: ;
popm #r15-r17 ;
rsr ;
;-----------------------------------------------------------------------------
; _init_GetFuda_SetP ; プレイヤーの札移動直前？
; in : r1(.w) -> 札ナンバー
; out : nothing
;-----------------------------------------------------------------------------
_init_GetFuda_SetP: ;
pushm #r0/r21-r22 ;
job_init_GetFuda_SetP: ;
mov.w r1,r0 ;
shl.w #$05,r0 ;
add.w #wFuda,r0 ;ワーク先頭の確保
mov.b tFuda_points(r1),r1 ;
job_init_GetFuda_SetP00: ;
test.b r1 ;
bne job_init_GetFuda_SetP05 ;
mov.h whGetFudaPos00P,r21 ;
mov.h #Vpos_PFX00,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #-8,whGetFudaPos00P ;
br end_init_GetFuda_SetP ;
job_init_GetFuda_SetP05: ;
cmp.b #$01,r1 ;
bne job_init_GetFuda_SetP10 ;
mov.h whGetFudaPos05P,r21 ;
mov.h #Vpos_PFX05,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #-4,whGetFudaPos05P ;
br end_init_GetFuda_SetP ;
job_init_GetFuda_SetP10: ;
cmp.b #$02,r1 ;
bne job_init_GetFuda_SetP20 ;
mov.h whGetFudaPos10P,r21 ;
mov.h #Vpos_PFX10,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #-4,whGetFudaPos10P ;
br end_init_GetFuda_SetP ;
job_init_GetFuda_SetP20: ;
mov.h whGetFudaPos20P,r21 ;
mov.h #Vpos_PFX20,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #-4,whGetFudaPos20P ;
end_init_GetFuda_SetP: ;
popm #r0/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; _GetFuda_Arg_AgnP: ; 取った札の再配置（最新版）
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_GetFuda_Arg_AgnP: ;
pushm #r0-r2/r10-r25 ;
mov.w #wbGetFudaP,r10 ;
jsr _Fuda_Shar_Cnt ;
mov.w #wbGet00FudaP,r20 ;
mov.w #wbGet05FudaP,r21 ;
mov.w #wbGet10FudaP,r22 ;
mov.w #wbGet20FudaP,r23 ;
mov.w r11,r15 ;ＬＣ００
mov.w r12,r16 ;ＬＣ０５
mov.w r13,r17 ;ＬＣ１０
mov.w r14,r18 ;ＬＣ２０
job_GetFuda_Arg_AgnP: ;
init_GetFuda_Arg_AgnP00: ;００点札
test.w r11 ;
be init_GetFuda_Arg_AgnP05 ;
mov.h #Hpos_PFX00,r11 ;
job_GetFuda_Arg_AgnP00: ;
movz.bw [r20+],r24 ;
mov.w r24,r0 ;
mov.h r11,r1 ;
mov.h #Vpos_PFX00,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.h #-8,r11 ;
loop_GetFuda_Arg_AgnP00: ;
dec.w r15 ;
bnz job_GetFuda_Arg_AgnP00 ;
init_GetFuda_Arg_AgnP05: ;０５点札
mov.w r12,r19 ;逃がす
test.w r12 ;
be init_GetFuda_Arg_AgnP10 ;除外対象
mul.w #26,r12 ;取った札の総ドット数
sha.w #16,r12 ;
mov.w #(HsizGetFuda05+26),r25 ;ＭＡＸ幅
sha.w #16,r25 ;浮動小数点演算用
cmp.w r25,r12 ;
bh init2_GetFuda_Arg_AgnP05 ;ＭＡＸ幅を越えているとき
mov.w #-26,r12 ;札重なり幅（この場合は無し）
sha.w #16,r12 ;浮動小数点演算用
mov.w #$00,r25 ;
br job_GetFuda_Arg_AgnP05 ;
init2_GetFuda_Arg_AgnP05: ;
sub.w r12,r25 ;ここでマイナス
dec.w r19 ;
div.w r19,r25 ;
add.w #$1a0000,r25 ;２６＊６５５３６（浮動小数点演算用）
mov.w r25,r12 ;
neg.w r12,r12 ;
mov.w #$00,r25 ;
job_GetFuda_Arg_AgnP05: ;
movz.bw [r21+],r24 ;
mov.w r24,r0 ;
; mov.w r12,r1 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_PFX05,r1 ;
mov.h #Vpos_PFX05,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r12,r25 ;
loop_GetFuda_Arg_AgnP05: ;
dec.w r16 ;
bnz job_GetFuda_Arg_AgnP05 ;
;-----------------------------------------------------------------------------
init_GetFuda_Arg_AgnP10: ;
mov.w r13,r19 ;逃がす
test.w r13 ;
be init_GetFuda_Arg_AgnP20 ;除外対象
mul.w #26,r13 ;取った札の総ドット数
sha.w #16,r13 ;
mov.w #(HsizGetFuda10+26),r25 ;ＭＡＸ幅
sha.w #16,r25 ;
cmp.w r25,r13 ;
bh init2_GetFuda_Arg_AgnP10 ;ＭＡＸ幅を越えているとき
mov.w #-26,r13 ;札重なり幅（この場合は無し）
sha.w #16,r13 ;浮動小数点演算用
mov.w #$00,r25 ;
br job_GetFuda_Arg_AgnP10 ;
init2_GetFuda_Arg_AgnP10: ;
sub.w r13,r25 ;ここでマイナス
dec.w r19 ;
div.w r19,r25 ;
add.w #$1a0000,r25 ;２６＊６５５３６（浮動小数点演算用）
mov.w r25,r13 ;
neg.w r13,r13 ;
mov.w #$00,r25 ;
job_GetFuda_Arg_AgnP10: ;
movz.bw [r22+],r24 ;
mov.w r24,r0 ;
; mov.w r13,r1 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_PFX10,r1 ;
mov.h #Vpos_PFX10,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r13,r25 ;
loop_GetFuda_Arg_AgnP10: ;
dec.w r17 ;
bnz job_GetFuda_Arg_AgnP10 ;
;-----------------------------------------------------------------------------
init_GetFuda_Arg_AgnP20: ;
mov.w r14,r19 ;逃がす
test.w r14 ;
be end_GetFuda_Arg_AgnP ;除外対象
mul.w #26,r14 ;取った札の総ドット数
sha.w #16,r14 ;
mov.w #(HsizGetFuda20+26),r25 ;ＭＡＸ幅
sha.w #16,r25 ;
cmp.w r25,r14 ;
bh init2_GetFuda_Arg_AgnP20 ;ＭＡＸ幅を越えているとき
mov.w #-26,r14 ;札重なり幅（この場合は無し）
sha.w #16,r14 ;浮動小数点演算用
mov.w #$00,r25 ;
br job_GetFuda_Arg_AgnP20 ;
init2_GetFuda_Arg_AgnP20: ;
sub.w r14,r25 ;ここでマイナス
dec.w r19 ;
div.w r19,r25 ;
add.w #$1a0000,r25 ;２６＊６５５３６（浮動小数点演算用）
mov.w r25,r14 ;
neg.w r14,r14 ;
mov.w #$00,r25 ;
job_GetFuda_Arg_AgnP20: ;
movz.bw [r23+],r24 ;
mov.w r24,r0 ;
; mov.w r14,r1 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_PFX20,r1 ;
mov.h #Vpos_PFX20,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r14,r25 ;
loop_GetFuda_Arg_AgnP20: ;
dec.w r18 ;
bnz job_GetFuda_Arg_AgnP20 ;
end_GetFuda_Arg_AgnP: ;
popm #r0-r2/r10-r25 ;
rsr ;
;-----------------------------------------------------------------------------
; _init_GetFuda_PosC ; ＣＰＵの札移動ポジション等の割り出し
; in : r11(.w) -> ００点札の枚数
; : r12(.w) -> ０５点札の枚数
; : r13(.w) -> １０点札の枚数
; : r14(.w) -> ２０点札の枚数
; out : nothing
;-----------------------------------------------------------------------------
_init_GetFuda_PosC: ;
pushm #r15-r17 ;
job_init_GetFuda_PosC00: ;
test.w r11 ;
bne job2_init_GetFuda_PosC00 ;
mov.h #Hpos_CPUColKs,whGetFudaPos00C ;
br job_init_GetFuda_PosC05 ;
job2_init_GetFuda_PosC00: ;
mov.w r11,r16 ;逃がす
mov.w r16,r17 ;
mul.w #26,r11 ;００点札総ドット数
mov.w #HsizGetFudaC00,r15 ;
cmp.w r15,r11 ;
bh job3_init_GetFuda_PosC00 ;置き領域オーバー
movt.wh r11,r11 ;
add.h #-26,r11 ;
add.h #Hpos_CPUColKs,r11 ;
add.h #4,r11 ;
mov.h r11,whGetFudaPos00C ;
br job_init_GetFuda_PosC05 ;
job3_init_GetFuda_PosC00: ;
movt.wh r15,r15 ;
add.h #Hpos_CPUColKs,r15 ;
add.h #4,r15 ;
mov.h r15,whGetFudaPos00C ;
job_init_GetFuda_PosC05: ;
add.w r12,r13 ;
add.w r14,r13 ;３種混同
test.w r13 ;
bne job2_init_GetFuda_PosC05 ;
mov.h #Hpos_CPUColYaku,whGetFudaPos35C ;
br end_init_GetFuda_PosC ;
job2_init_GetFuda_PosC05: ;
mov.w r13,r16 ;逃がす
mul.w #26,r13 ;その他の札総ドット数
mov.w whGetFudaBMaxC,r15 ;
cmp.w r15,r13 ;
bh job3_init_GetFuda_PosC05 ;置き領域オーバー
movt.wh r13,r13 ;
add.h #-26,r13 ;
add.h #Hpos_CPUColYaku,r13 ;
add.h #4,r13 ;
mov.h r13,whGetFudaPos35C ;
br end_init_GetFuda_PosC ;
job3_init_GetFuda_PosC05: ;
movt.wh r15,r15 ;
add.h #Hpos_CPUColYaku,r15 ;
add.h #4,r15 ;
mov.h r15,whGetFudaPos35C ;
end_init_GetFuda_PosC: ;
popm #r15-r17 ;
rsr ;
;-----------------------------------------------------------------------------
; _init_GetFuda_SetC ; ＣＰＵの札移動直前？
; in : r1(.w) -> 札ナンバー
; out : nothing
;-----------------------------------------------------------------------------
_init_GetFuda_SetC: ;
pushm #r0/r21-r22 ;
job_init_GetFuda_SetC: ;
mov.w r1,r0 ;
shl.w #$05,r0 ;
add.w #wFuda,r0 ;ワーク先頭の確保
mov.b tFuda_points(r1),r1 ;
job_init_GetFuda_SetC00: ;
test.b r1 ;
bne job_init_GetFuda_SetC05 ;
mov.h whGetFudaPos00C,r21 ;
mov.h #Vpos_CPUColKs,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #4,whGetFudaPos00C ;
br end_init_GetFuda_SetC ;
job_init_GetFuda_SetC05: ;
mov.h whGetFudaPos35C,r21 ;
mov.h #Vpos_CPUColYaku,r22 ;
jsr _fuda_ptp_mov_init ;
add.h #4,whGetFudaPos35C ;
end_init_GetFuda_SetC: ;
popm #r0/r21-r22 ;
rsr ;
;-----------------------------------------------------------------------------
; _GetFuda_Arg_AgnC: ; 取った札の再配置（最新版）
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_GetFuda_Arg_AgnC: ;
pushm #r0-r2/r10-r25 ;
mov.w #wbGetFudaC,r10 ;
jsr _Fuda_Shar_Cnt ;
mov.w #wbGet00FudaC,r20 ;
mov.w #wbGet05FudaC,r21 ;
mov.w #wbGet10FudaC,r22 ;
mov.w #wbGet20FudaC,r23 ;
mov.w r11,r15 ;ＬＣ００
mov.w r12,r16 ;ＬＣ０５
mov.w r13,r17 ;ＬＣ１０
mov.w r14,r18 ;ＬＣ２０
job_GetFuda_Arg_AgnC: ;
init_GetFuda_Arg_AgnC00: ;０５点札
mov.w r11,r19 ;逃がす
test.w r11 ;
be init_GetFuda_Arg_AgnC05 ;除外対象
mul.w #26,r11 ;取った札の総ドット数
sha.w #16,r11 ;
mov.w #(HsizGetFudaC00+26),r25 ;ＭＡＸ幅
sha.w #16,r25 ;浮動小数点演算用
cmp.w r25,r11 ;
bh init2_GetFuda_Arg_AgnC00 ;ＭＡＸ幅を越えているとき
mov.w #26,r11 ;札重なり幅（この場合は無し）
sha.w #16,r11 ;浮動小数点演算用
mov.w #$00,r25 ;
br job_GetFuda_Arg_AgnC00 ;
init2_GetFuda_Arg_AgnC00: ;
sub.w r11,r25 ;ここでマイナス
dec.w r19 ;
div.w r19,r25 ;
add.w #$1a0000,r25 ;２６＊６５５３６（浮動小数点演算用）
mov.w r25,r11 ;
mov.w #$00,r25 ;
job_GetFuda_Arg_AgnC00: ;
movz.bw [r20+],r24 ;
mov.w r24,r0 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_CPUColKs,r1 ;
mov.h #Vpos_CPUColKs,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r11,r25 ;
loop_GetFuda_Arg_AgnC00: ;
dec.w r15 ;
bnz job_GetFuda_Arg_AgnC00 ;
;-----------------------------------------------------------------------------
init_GetFuda_Arg_AgnC05: ;
mov.w r16,r15 ;
add.w r17,r16 ;ＬＣ
add.w r18,r16 ;ＬＣ
add.w r13,r12 ;
add.w r14,r12 ;
mov.w r12,r19 ;逃がす
test.w r12 ;
be end_GetFuda_Arg_AgnC ;除外対象
mul.w #26,r12 ;取った札の総ドット数
sha.w #16,r12 ;
movz.hw whGetFudaBMaxC,r25 ;ＭＡＸ幅
add.w #26,r25 ;ＭＡＸ幅＋α
sha.w #16,r25 ;
cmp.w r25,r12 ;
bh init2_GetFuda_Arg_AgnC05 ;ＭＡＸ幅を越えているとき
mov.w #26,r12 ;札重なり幅（この場合は無し）
sha.w #16,r12 ;浮動小数点演算用
mov.w #$00,r25 ;
br ex_job_GetFuda_Arg_AgnC05 ;
init2_GetFuda_Arg_AgnC05: ;
sub.w r12,r25 ;ここでマイナス
dec.w r19 ;
div.w r19,r25 ;
add.w #$1a0000,r25 ;２６＊６５５３６（浮動小数点演算用）
mov.w r25,r12 ;
mov.w #$00,r25 ;
ex_job_GetFuda_Arg_AgnC05: ;
test.w r15 ;
be ex_job_GetFuda_Arg_AgnC10 ;
job_GetFuda_Arg_AgnC05: ;
movz.bw [r21+],r24 ;
cmp.w #$ff,r24 ;
be ex_job_GetFuda_Arg_AgnC10 ;コロル
mov.w r24,r0 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_CPUColYaku,r1 ;
mov.h #Vpos_CPUColYaku,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r12,r25 ;
loop_GetFuda_Arg_AgnC05: ;
dec.w r15 ;
bnz job_GetFuda_Arg_AgnC05 ;
ex_job_GetFuda_Arg_AgnC10: ;
test.w r17 ;
be ex_job_GetFuda_Arg_AgnC20 ;
job_GetFuda_Arg_AgnC10: ;
movz.bw [r22+],r24 ;
cmp.w #$ff,r24 ;
be ex_job_GetFuda_Arg_AgnC20 ;
mov.w r24,r0 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_CPUColYaku,r1 ;
mov.h #Vpos_CPUColYaku,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r12,r25 ;
loop_GetFuda_Arg_AgnC10: ;
dec.w r17 ;
bnz job_GetFuda_Arg_AgnC10 ;
ex_job_GetFuda_Arg_AgnC20: ;
test.w r18 ;
be end_GetFuda_Arg_AgnC ;
job_GetFuda_Arg_AgnC20: ;
movz.bw [r23+],r24 ;
cmp.w #$ff,r24 ;
be end_GetFuda_Arg_AgnC ;
mov.w r24,r0 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_CPUColYaku,r1 ;
mov.h #Vpos_CPUColYaku,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r12,r25 ;
loop_GetFuda_Arg_AgnC20: ;
dec.w r18 ;
bnz job_GetFuda_Arg_AgnC20 ;
end_GetFuda_Arg_AgnC: ;
popm #r0-r2/r10-r25 ;
rsr ;
;-----------------------------------------------------------------------------
; Fuda_Pri_Man ; 札表示プライオリティーコントローラー
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
Fuda_Pri_Man: ;下から表示すんぞぉ
pushm #r10/r11 ;
mov.b #100,wbFudaPriCnt ;試験的に１００から始めてみる
mov.w #wPly_Tehuda,r10 ;プレイヤーの手札
mov.w #08,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wCpu_Tehuda,r10 ;ＣＰＵの手札
mov.w #08,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet00FudaP,r10 ;プレイヤーの取った００点札
mov.w #24,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet05FudaP,r10 ;プレイヤーの取った０５点札
mov.w #10,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet10FudaP,r10 ;プレイヤーの取った１０点札
mov.w #09,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet20FudaP,r10 ;プレイヤーの取った２０点札
mov.w #05,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet00FudaC,r10 ;ＣＰＵの取った００点札
mov.w #24,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet05FudaC,r10 ;ＣＰＵの取った０５点札
mov.w #10,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet10FudaC,r10 ;ＣＰＵの取った１０点札
mov.w #09,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbGet20FudaC,r10 ;ＣＰＵの取った２０点札
mov.w #05,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wBa_huda,r10 ;場札
mov.w #12,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbBtoT_fuda4,r10 ;手札に叩かれる方
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbBtoT_fuda3,r10 ;起き札に叩かれる方
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbBtoT_fuda2,r10 ;手札
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbBtoT_fuda1,r10 ;起き札
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbTtoB_fuda,r10 ;手札から場札への捨て札用ワーク
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
mov.w #wbMtoB_fuda,r10 ;めくり札から場札への移動札ワーク
mov.w #01,r11 ;
jsr _Fuda_Pri_Set ;
popm #r10/r11 ;
rsr ;
;-----------------------------------------------------------------------------
; _Fuda_Pri_Set ; 札表示プライオリティーセット
; in : r10(.w) -> 札ナンバーの入っているワークＡＤ
; : r11(.w) -> ワーク用ＬＣ
; out : nothing
;-----------------------------------------------------------------------------
_Fuda_Pri_Set: ;
push r0 ;
job_Fuda_Pri_Set: ;
mov.b [r10+],r0 ;
cmp.b #$ff,r0 ;
be loop_job_Fuda_Pri_Set ;
movz.bw r0,r0 ;
shl.w #$05,r0 ;
add.w #wFuda,r0 ;
mov.b wbFudaPriCnt,_Fuda_pri[r0] ;
dec.b wbFudaPriCnt ;
loop_job_Fuda_Pri_Set: ;
dec.w r11 ;
bnz job_Fuda_Pri_Set ;
pop r0 ;
rsr ;
;-----------------------------------------------------------------------------
; _Fuda_Hurry ; 「札を切ってね」表示内部用
; in : nothing
; out : nothing
;-----------------------------------------------------------------------------
_Fuda_Hurry: ;
test.b wbDemoPlay ;デモプレイ中は、
bne Kill_Fuda_Hurry ;コロる
jsr Esect_Anm ;
dec.w _Ese_Mov_Tbl[r0] ;
bz Kill_Fuda_Hurry ;タイマー切れでもコロる
test.b wbFudaHurry ;
bne end_Fuda_Hurry ;
Kill_Fuda_Hurry: ;
jsr Esect_Kill ;コロる
mov.b #$00,wbFudaHurry ;
end_Fuda_Hurry: ;
rsr ;
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; データ領域
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
.section data
.align 4
tJD_Cpu_KoiKoi: ;ＣＰＵ用コイコイ判断データ（残り枚数依存型）
db 01 ;１人目
db 02 ;２人目
db 03 ;３人目
db 04 ;４人目
db 04 ;５人目
; db 00 ;６人目（隠しキャラ）
; db 05 ;
; db 06 ;
; db 07 ;
; db 08 ;
tTehudaPosP: ;プレイヤー手札ＨＶ
dh Hpos_PLYHand1-2,Vpos_PLYHand1,Hpos_PLYHand2-2,Vpos_PLYHand2
dh Hpos_PLYHand3-2,Vpos_PLYHand3,Hpos_PLYHand4-2,Vpos_PLYHand4
dh Hpos_PLYHand5-2,Vpos_PLYHand5,Hpos_PLYHand6-2,Vpos_PLYHand6
dh Hpos_PLYHand7-2,Vpos_PLYHand7,Hpos_PLYHand8-2,Vpos_PLYHand8
tTehudaPosC: ;ＣＰＵ手札ＨＶ
dh Hpos_CPUHand1,Vpos_CPUHand1,Hpos_CPUHand2,Vpos_CPUHand2
dh Hpos_CPUHand3,Vpos_CPUHand3,Hpos_CPUHand4,Vpos_CPUHand4
dh Hpos_CPUHand5,Vpos_CPUHand5,Hpos_CPUHand6,Vpos_CPUHand6
dh Hpos_CPUHand7,Vpos_CPUHand7,Hpos_CPUHand8,Vpos_CPUHand8
tBahudaPos1: ;場札位置ＨＶ
; dh Hpos_Table01,Vpos_Table01,Hpos_Table02,Vpos_Table02
dh Hpos_Table03,Vpos_Table03,Hpos_Table04,Vpos_Table04
dh Hpos_Table05,Vpos_Table05,Hpos_Table06,Vpos_Table06
dh Hpos_Table07,Vpos_Table07,Hpos_Table08,Vpos_Table08
dh Hpos_Table09,Vpos_Table09,Hpos_Table10,Vpos_Table10
dh Hpos_Table11,Vpos_Table11,Hpos_Table12,Vpos_Table12
dh Hpos_Table13,Vpos_Table13,Hpos_Table14,Vpos_Table14
tBahudaPos2: ;場札への合わせ位置ＨＶ
; dh Hpos_Table01+HSpos_Same,Vpos_Table01+VSpos_Same
; dh Hpos_Table02+HSpos_Same,Vpos_Table02+VSpos_Same
dh Hpos_Table03+HSpos_Same,Vpos_Table03+VSpos_Same
dh Hpos_Table04+HSpos_Same,Vpos_Table04+VSpos_Same
dh Hpos_Table05+HSpos_Same,Vpos_Table05+VSpos_Same
dh Hpos_Table06+HSpos_Same,Vpos_Table06+VSpos_Same
dh Hpos_Table07+HSpos_Same,Vpos_Table07+VSpos_Same
dh Hpos_Table08+HSpos_Same,Vpos_Table08+VSpos_Same
dh Hpos_Table09+HSpos_Same,Vpos_Table09+VSpos_Same
dh Hpos_Table10+HSpos_Same,Vpos_Table10+VSpos_Same
dh Hpos_Table11+HSpos_Same,Vpos_Table11+VSpos_Same
dh Hpos_Table12+HSpos_Same,Vpos_Table12+VSpos_Same
dh Hpos_Table13+HSpos_Same,Vpos_Table13+VSpos_Same
dh Hpos_Table14+HSpos_Same,Vpos_Table14+VSpos_Same
tBaCurPos: ;場札へのカーソル位置ＨＶ
; dh Hpos_Ba_Cur01,Vpos_Ba_Cur01,Hpos_Ba_Cur02,Vpos_Ba_Cur02
dh Hpos_Ba_Cur03,Vpos_Ba_Cur03,Hpos_Ba_Cur04,Vpos_Ba_Cur04
dh Hpos_Ba_Cur05,Vpos_Ba_Cur05,Hpos_Ba_Cur06,Vpos_Ba_Cur06
dh Hpos_Ba_Cur07,Vpos_Ba_Cur07,Hpos_Ba_Cur08,Vpos_Ba_Cur08
dh Hpos_Ba_Cur09,Vpos_Ba_Cur09,Hpos_Ba_Cur10,Vpos_Ba_Cur10
dh Hpos_Ba_Cur11,Vpos_Ba_Cur11,Hpos_Ba_Cur12,Vpos_Ba_Cur12
dh Hpos_Ba_Cur13,Vpos_Ba_Cur13,Hpos_Ba_Cur14,Vpos_Ba_Cur14
tAnm_Cur_Yes:
dw tAnm_Cur_Yes1,tAnm_Cur_Yes0
tAnm_Cur_No:
dw tAnm_Cur_No0,tAnm_Cur_No1
tAnm_Cur_Yes0: ;Ｙｅｓアニメーション用データ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
dh __Msg_yes0 ;Ｙｅｓ（暗）
tAnm_Cur_Yes1: ;Ｙｅｓアニメーション用データ（明）
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes1 ;Ｙｅｓ（明）０
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes2 ;Ｙｅｓ（明）１
dh __Msg_yes3 ;Ｙｅｓ（明）２
dh __Msg_yes3 ;Ｙｅｓ（明）２
dh __Msg_yes3 ;Ｙｅｓ（明）２
dh __Msg_yes3 ;Ｙｅｓ（明）２
dh __Msg_yes3 ;Ｙｅｓ（明）２
dh __Msg_yes3 ;Ｙｅｓ（明）２
tAnm_Cur_No0: ;Ｎｏアニメーション用データ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
dh __Msg_no0 ;Ｎｏ（暗）
tAnm_Cur_No1: ;Ｎｏアニメーション用データ（明）
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no1 ;Ｎｏ（明）０
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no2 ;Ｎｏ（明）１
dh __Msg_no3 ;Ｎｏ（明）２
dh __Msg_no3 ;Ｎｏ（明）２
dh __Msg_no3 ;Ｎｏ（明）２
dh __Msg_no3 ;Ｎｏ（明）２
dh __Msg_no3 ;Ｎｏ（明）２
dh __Msg_no3 ;Ｎｏ（明）２
tMov_All_Fuda4: ;札４の移動
db 0,0,0,0
tMov_All_Fuda3: ;札３の移動
db 0,0,0,0
tMov_All_Fuda2: ;札２の移動
db 0,0,0,0
tMov_All_Fuda1: ;札１の移動
db 2,1,1,1
db 1,1,1,1
db 1,1,1,1
db 1,1,1,1
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; エセクト用リクエストデータ
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
tEsect_Ba_cur: ;場カーソル、及びメッセージパネル、その他のリクエスト
;場カーソル
__mEsect_Init1 _Ba_Cur ;実行プログラム名
__mEsect_Init2 020,_NullData,__NullData ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 672,480 ;Ｈ、Ｖ
__mEsect_Init4 tFuda_pos_cur,tFuda_cel_cur ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;合わせ札はこれでいいですか？
__mEsect_Init1 _Ba_Cur_Msg ;実行プログラム名
__mEsect_Init2 020,_Msg_hit1,__Msg_hit1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgSel,Vpos_DlgSel ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Msg1 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;Ｙｅｓ
__mEsect_Init1 _Ba_Cur_YN ;実行プログラム名
__mEsect_Init2 020,_Msg_yes1,__Msg_yes1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgYes,Vpos_DlgYes ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Cur_Yes ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;Ｎｏ
__mEsect_Init1 _Ba_Cur_YN ;実行プログラム名
__mEsect_Init2 020,_Msg_no0,__Msg_no0 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgNo,Vpos_DlgNo ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Cur_No ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
STOP
tEsect_Koi_Ok: ;コイコイするかい？ セット ＪＳ版
;こいこいする？
__mEsect_Init1 _Ba_Cur_Msg ;実行プログラム名
__mEsect_Init2 020,_Msg_koi1,__Msg_koi1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgCall,Vpos_DlgCall ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Msg2 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;Ｙｅｓ
__mEsect_Init1 _Ba_Cur_YN ;実行プログラム名
__mEsect_Init2 020,_Msg_yes1,__Msg_yes1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgYes2,Vpos_DlgYes2 ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Cur_Yes ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;Ｎｏ
__mEsect_Init1 _Ba_Cur_YN ;実行プログラム名
__mEsect_Init2 020,_Msg_no0,__Msg_no0 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgNo2,Vpos_DlgNo2 ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Cur_No ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
STOP
tEsect_Koi_Ok2: ;コイコイするかい？ セット ＫＢ版
;こいこいする？
__mEsect_Init1 _Ba_Cur_Msg ;実行プログラム名
__mEsect_Init2 020,_Msg_koi1,__Msg_koi1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgCall,Vpos_DlgCall ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Msg2 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;ＹｅｓＡ
__mEsect_Init1 _Ba_Cur_Msg ;実行プログラム名
__mEsect_Init2 020,_MsgM_yes1,__MsgM_yes1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgYes2,Vpos_DlgYes2 ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_Yes_KB ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
;ＮｏＮ
__mEsect_Init1 _Ba_Cur_Msg ;実行プログラム名
__mEsect_Init2 020,_MsgM_no1,__MsgM_no1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 Hpos_DlgNo2,Vpos_DlgNo2 ;Ｈ、Ｖ
__mEsect_Init4 000,tAnm_No_KB ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
STOP
tEsect_Fuda_Hurry: ;「札を切ってね」
__mEsect_Init1 _Fuda_Hurry ;実行プログラム名
__mEsect_Init2 020,_Msg_hury1,__Msg_hury1 ;ﾌﾟﾗｲｵﾘﾃｨｰ,子ｵﾌﾞｼﾞｪの数，子ｵﾌﾞｼﾞｪの場所
__mEsect_Init3 16*8,16*3+8 ;Ｈ、Ｖ
__mEsect_Init4 120,tAnm_Msg3 ;移動ﾃｰﾌﾞﾙ先頭ｱﾄﾞﾚｽ、ｱﾆﾒｰｼｮﾝﾃｰﾌﾞﾙｱﾄﾞﾚｽ
STOP
;-----------------------------------------------------------------------------
; エセクト用アニメデータ
;-----------------------------------------------------------------------------
tAnm_Msg1:
__mEsect_Anm $ffff,tCel_Msg1
STOP
tCel_Msg1:
__mEsect_Cel 006,_Msg_hit1,__Msg_hit1 ;「合わせ札はこれでいい？」０
__mEsect_Cel 006,_Msg_hit2,__Msg_hit2 ;「合わせ札はこれでいい？」１
__mEsect_Cel 006,_Msg_hit3,__Msg_hit3 ;「合わせ札はこれでいい？」２
STOP
tAnm_Msg2:
__mEsect_Anm $ffff,tCel_Msg2
STOP
tCel_Msg2:
__mEsect_Cel 006,_Msg_koi1,__Msg_koi1 ;「こいこいする？」０
__mEsect_Cel 006,_Msg_koi2,__Msg_koi2 ;「こいこいする？」１
__mEsect_Cel 006,_Msg_koi3,__Msg_koi3 ;「こいこいする？」２
STOP
tAnm_Msg3:
__mEsect_Anm $ffff,tCel_Msg3
STOP
tCel_Msg3:
__mEsect_Cel 006,_Msg_hury1,__Msg_hury1 ;「札を切ってね」０
__mEsect_Cel 006,_Msg_hury2,__Msg_hury2 ;「札を切ってね」１
__mEsect_Cel 006,_Msg_hury3,__Msg_hury3 ;「札を切ってね」２
STOP
tAnm_Yes_KB:
__mEsect_Anm $ffff,tCel_Yes_KB
STOP
tCel_Yes_KB:
__mEsect_Cel 006,_MsgM_yes1,__MsgM_yes1 ;ＹｅｓＡ（明）０
__mEsect_Cel 006,_MsgM_yes2,__MsgM_yes2 ;ＹｅｓＡ（明）１
__mEsect_Cel 006,_MsgM_yes3,__MsgM_yes3 ;ＹｅｓＡ（明）２
STOP
tAnm_No_KB:
__mEsect_Anm $ffff,tCel_No_KB
STOP
tCel_No_KB:
__mEsect_Cel 006,_MsgM_no1,__MsgM_no1 ;ＮｏＮ（明）０
__mEsect_Cel 006,_MsgM_no2,__MsgM_no2 ;ＮｏＮ（明）１
__mEsect_Cel 006,_MsgM_no3,__MsgM_no3 ;ＮｏＮ（明）２
STOP
;-----------------------------------------------------------------------------
end
mov.w r24,r0 ;
mov.w r25,r1 ;
sha.w #-16,r1 ;
movt.wh r1,r1 ;
add.h #Hpos_CPUColKs,r1 ;
mov.h #Vpos_CPUColKs,r2 ;
jsr _Fuda_Dir_Pos_Set ;
add.w r11,r25 ;
loop_GetFuda_Arg_AgnC00: ;
dec.w r15 ;
bnz job_GetFuda_Arg_AgnC00 ;
;-----------------------------------------------------------------------------
init_