📄 hf0803.asm
字号:
Page1enterdone:
SMB0 <KeyFlag
SMB1 <SystemFlag
JMP KeyDoneEnd
Page1canceldone:
SMB0 <KeyFlag
RMB1 <SystemFlag
JMP KeyDoneEnd
AddSubPage1:
LDA Page1Menu
CMP #1
BEQ AddPage1Menu1PR
CMP #2
BEQ AddPage1Menu2PR
CMP #3
BEQ AddPage1Menu3PR
CMP #4
BEQ AddPage1Menu4PR
CMP #5
BEQ AddPage1Menu5PR
CMP #6
BEQ AddPage1Menu6PR
CMP #7
BEQ AddPage1Menu7PR
CMP #8
BEQ AddPage1Menu8PR
CMP #9
BEQ AddPage1Menu9PR
RTS
AddPage1Menu1PR:
JMP AddPage1Menu1
AddPage1Menu2PR:
JMP AddPage1Menu2
AddPage1Menu3PR:
JMP AddPage1Menu3
AddPage1Menu4PR:
JMP AddPage1Menu4
AddPage1Menu5PR:
JMP AddPage1Menu5
AddPage1Menu6PR:
JMP AddPage1Menu6
AddPage1Menu7PR:
JMP AddPage1Menu7
AddPage1Menu8PR:
JMP AddPage1Menu8
AddPage1Menu9PR:
JMP AddPage1Menu9
AddSSubPage1:
LDA Page1Menu
CMP #1
BEQ SubPage1Menu1
CMP #2
BEQ SubPage1Menu2
CMP #3
BEQ SubPage1Menu3PR
CMP #4
BEQ SubPage1Menu4PR
CMP #5
BEQ SubPage1Menu5PR
CMP #6
BEQ SubPage1Menu6PR
CMP #7
BEQ SubPage1Menu7PR
CMP #8
BEQ SubPage1Menu8PR
CMP #9
BEQ SubPage1Menu9PR
RTS
SubPage1Menu3PR:
JMP SubPage1Menu3
SubPage1Menu4PR:
JMP SubPage1Menu4
SubPage1Menu5PR:
JMP SubPage1Menu5
SubPage1Menu6PR:
JMP SubPage1Menu6
SubPage1Menu7PR:
JMP SubPage1Menu7
SubPage1Menu8PR:
JMP SubPage1Menu8
SubPage1Menu9PR:
JMP SubPage1Menu9
SubPage1Menu1:
LDA WashTimeKind
CMP #1
BEQ AddP1M1END
JSR JugeBlackPage1
DEC WashTimeKind
JSR SeleWashTime
JSR JugeBlackPage1
RTS
AddPage1Menu1:
LDA WashTimeKind
CMP #2
BEQ AddP1M1END
JSR JugeBlackPage1
INC WashTimeKind
JSR SeleWashTime
JSR JugeBlackPage1
RTS
AddP1M1END:
RTS
AddPage1Menu2:
LDA PChangeM
CMP #2
BEQ AddP1M2END
JSR JugeBlackPage1
INC PChangeM
JSR PlayChangeM
JSR JugeBlackPage1
RTS
AddP1M2END:
RTS
SubPage1Menu2:
LDA PChangeM
CMP #1
BEQ AddP1M2END
JSR JugeBlackPage1
DEC PChangeM
JSR PlayChangeM
JSR JugeBlackPage1
RTS
AddPage1Menu3:
LDA TurnPM
CMP #2
BEQ AddP1M3END
JSR JugeBlackPage1
INC TurnPM
JSR TurnPoleM
JSR JugeBlackPage1
RTS
AddP1M3END:
RTS
SubPage1Menu3:
LDA TurnPM
CMP #1
BEQ AddP1M3END
JSR JugeBlackPage1
DEC TurnPM
JSR TurnPoleM
JSR JugeBlackPage1
RTS
AddPage1Menu4:
LDA TuchM
CMP #2
BEQ AddP1M4END
JSR JugeBlackPage1
INC TuchM
JSR TuchMe
JSR JugeBlackPage1
RTS
AddP1M4END:
RTS
SubPage1Menu4:
LDA TuchM
CMP #1
BEQ AddP1M4END
JSR JugeBlackPage1
DEC TuchM
JSR TuchMe
JSR JugeBlackPage1
RTS
AddPage1Menu5:
LDA PrintColorDKind
CMP #3
BEQ AddPage1Menu5End
INC PrintColorDKind
JSR PrintColorD
JSR JugeBlackPage1
RTS
AddPage1Menu5End:
RTS
SubPage1Menu5:
LDA PrintColorDKind
CMP #1
BEQ SubPage1Menu5End
DEC PrintColorDKind
JSR PrintColorD
JSR JugeBlackPage1
RTS
SubPage1Menu5End:
RTS
AddPage1Menu6:
LDA AllowErTimeKind
CMP #3H
BEQ AddPage1Menu6End
INC AllowErTimeKind
JSR AllowErTime
JSR JugeBlackPage1
RTS
AddPage1Menu6End:
RTS
SubPage1Menu6:
LDA AllowErTimeKind
CMP #1
BEQ SubPage1Menu6End
DEC AllowErTimeKind
JSR AllowErTime
JSR JugeBlackPage1
RTS
SubPage1Menu6End:
RTS
AddPage1Menu7:
LDA TakeCardCKind
CMP #3
BEQ AddPage1Menu7End
INC TakeCardCKind
JSR TakeCardC
JSR JugeBlackPage1
RTS
AddPage1Menu7End:
RTS
SubPage1Menu7:
LDA TakeCardCount
CMP #1
BEQ SubPage1Menu7End
DEC TakeCardCKind
JSR TakeCardC
JSR JugeBlackPage1
RTS
SubPage1Menu7End:
RTS
AddPage1Menu8:
LDA ABCKind
CMP #3
BEQ AddPage1Menu8End
JSR SetABCOdd
JSR SetAllTime
INC ABCKind
JSR ABCSelect
JSR ClerABALL
STZ OddID
STZ SaveOddIDB
JSR LoadABCOdd
JSR Join13Card
JSR LoadAllTime
RTS
AddPage1Menu8End:
RTS
SubPage1Menu8:
LDA ABCKind
CMP #1
BEQ SubPage1Menu8End
JSR SetABCOdd
JSR SetAllTime
DEC ABCKind
JSR ABCSelect
JSR ClerABALL
STZ OddID
STZ SaveOddIDB
JSR LoadABCOdd
JSR Join13Card
JSR LoadAllTime
RTS
SubPage1Menu8End:
RTS
AddPage1Menu9:
LDA SeleCardQLKind
CMP #2
BEQ AddPage1Menu9End
INC SeleCardQLKind
JSR SeleCardQL
AddPage1Menu9End:
RTS
SubPage1Menu9:
LDA SeleCardQLKind
CMP #1
BEQ SubPage1Menu9End
DEC SeleCardQLKind
JSR SeleCardQL
SubPage1Menu9End:
RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;选定区域
JugeBlackPage1:
LDA Page1Menu
CMP #1
BEQ Page1Menu1
CMP #2
BEQ Page1Menu2
CMP #3
BEQ Page1Menu3
CMP #4
BEQ Page1Menu4
CMP #5
BEQ Page1Menu5
CMP #6
BEQ Page1Menu6
CMP #7
BEQ Page1Menu7
CMP #8
BEQ Page1Menu8
CMP #9
BEQ Page1Menu9
RTS
Page1Menu1:
STZ LCDX
STZ LCDY
JSR DrawR
RTS
Page1Menu2:
STZ LCDX
LDA #1
STA LCDY
JSR DrawR
RTS
Page1Menu3:
STZ LCDX
LDA #2
STA LCDY
JSR DrawR
RTS
Page1Menu4:
STZ LCDX
LDA #3
STA LCDY
JSR DrawR
RTS
Page1Menu5:
STZ LCDX
LDA #4
STA LCDY
JSR DrawR
RTS
Page1Menu6:
STZ LCDX
LDA #5
STA LCDY
JSR DrawR
RTS
Page1Menu7:
STZ LCDX
LDA #6
STA LCDY
JSR DrawR
RTS
Page1Menu8:
STZ LCDX
LDA #7
STA LCDY
JSR DrawR
RTS
Page1Menu9:
STZ LCDX
LDA #8
STA LCDY
JSR DrawR
RTS
ClerRowPag1:
LDA Page1Menu
CMP #1
BEQ ClerPage1Menu1
CMP #2
BEQ ClerPage1Menu2
CMP #3
BEQ ClerPage1Menu3
CMP #4
BEQ ClerPage1Menu4
CMP #5
BEQ ClerPage1Menu5
CMP #6
BEQ ClerPage1Menu6
CMP #7
BEQ ClerPage1Menu7
CMP #8
BEQ ClerPage1Menu8
CMP #9
BEQ ClerPage1Menu9
RTS
ClerPage1Menu1:
STZ LCDX
STZ LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu2:
STZ LCDX
LDA #1
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu3:
STZ LCDX
LDA #2
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu4:
STZ LCDX
LDA #3
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu5:
STZ LCDX
LDA #4
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu6:
STZ LCDX
LDA #5
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu7:
STZ LCDX
LDA #6
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu8:
STZ LCDX
LDA #7
STA LCDY
JSR CLS_CHAR12x12
RTS
ClerPage1Menu9:
STZ LCDX
LDA #8
STA LCDY
JSR CLS_CHAR12x12
RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++=
;洗牌最长时间
SeleWashTime:
LDA WashTimeKind
CMP #1
BEQ Istwomin
CMP #2
BEQ Istwohmin
RTS
Istwomin:
LDA #120
STA WahMAXTime
LDA #8
STA LCDX
STZ LCDY
JSR DrawRight
LDA #13
STA LCDX
STZ LCDY
JSR CLS_CHAR12x12
RTS
Istwohmin:
LDA #150
STA WahMAXTime
LDA #13
STA LCDX
STZ LCDY
JSR DrawRight
LDA #8
STA LCDX
STZ LCDY
JSR CLS_CHAR12x12
RTS
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;玩法切换方式
PlayChangeM:
LDA PChangeM
CMP #1
BEQ RCChange
CMP #2
BEQ AutoChange
RTS
RCChange:
LDA #8
STA LCDX
LDA #1
STA LCDY
JSR DrawRight
LDA #13
STA LCDX
LDA #1
STA LCDY
JSR CLS_CHAR12x12
LDA #55H
STA ChageMm
RTS
AutoChange:
LDA #13
STA LCDX
LDA #1
STA LCDY
JSR DrawRight
LDA #8
STA LCDX
LDA #1
STA LCDY
JSR CLS_CHAR12x12
LDA #AAH
STA ChageMm
RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;换磁极方式
TurnPoleM:
LDA TurnPM
CMP #1
BEQ ResTurn
CMP #2
BEQ FrLTurn
RTS
ResTurn:
LDA #8
STA LCDX
LDA #2
STA LCDY
JSR DrawRight
LDA #13
STA LCDX
LDA #2
STA LCDY
JSR CLS_CHAR12x12
LDA #55H
STA TurnPMType
RTS
FrLTurn:
LDA #13
STA LCDX
LDA #2
STA LCDY
JSR DrawRight
LDA #8
STA LCDX
LDA #2
STA LCDY
JSR CLS_CHAR12x12
LDA #AAH
STA TurnPMType
RTS
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;触摸方式
TuchMe:
LDA TuchM
CMP #1
BEQ RCOpen
CMP #2
BEQ AutoOpen
RTS
RCOpen:
LDA #8
STA LCDX
LDA #3
STA LCDY
JSR DrawRight
LDA #13
STA LCDX
LDA #3
STA LCDY
JSR CLS_CHAR12x12
LDA #55H
STA TuchOpenM
RTS
AutoOpen:
LDA #13
STA LCDX
LDA #3
STA LCDY
JSR DrawRight
LDA #8
STA LCDX
LDA #3
STA LCDY
JSR CLS_CHAR12x12
LDA #AAH
STA TuchOpenM
RTS
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;打色延时
PrintColorD:
LDA PrintColorDKind
CMP #1
BEQ PrintColorD6
CMP #2
BEQ PrintColorD8
CMP #3
BEQ PrintColorD10
RTS
PrintColorD6:
LDA #4
STA LCDY
LDA #8
STA LCDX
JSR DrawRight
LDA #4
STA LCDY
LDA #12
STA LCDX
JSR CLS_CHAR12x12
LDA #4
STA LCDY
LDA #16
STA LCDX
JSR CLS_CHAR12x12
LDA #6
STA BrushDelay
RTS
PrintColorD8:
LDA #4
STA LCDY
LDA #12
STA LCDX
JSR DrawRight
LDA #4
STA LCDY
LDA #8
STA LCDX
JSR CLS_CHAR12x12
LDA #4
STA LCDY
LDA #16
STA LCDX
JSR CLS_CHAR12x12
LDA #8
STA BrushDelay
RTS
PrintColorD10:
LDA #4
STA LCDY
LDA #16
STA LCDX
JSR DrawRight
LDA #4
STA LCDY
LDA #8
STA LCDX
JSR CLS_CHAR12x12
LDA #4
STA LCDY
LDA #12
STA LCDX
JSR CLS_CHAR12x12
LDA #10
STA BrushDelay
RTS
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; LDA #4
; STA LCDY
; LDA #1
; STA LCDX
; LDA #<STR27
; STA PtrL
; LDA #>STR27
; STA PtrH
; JSR DRAW_STRING
; LDA #4
; STA LCDY
; LDA #13
; STA LCDX
; LDA BrushDelay
; JSR DISP_NUMBER
; RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;允许误差时间
AllowErTime:
LDA AllowErTimeKind
CMP #1
BEQ AllowErTime15
CMP #2
BEQ AllowErTime20
CMP #3
BEQ AllowErTime30
RTS
AllowErTime15:
LDA #5
STA LCDY
LDA #8
STA LCDX
JSR DrawRight
LDA #5
STA LCDY
LDA #12
STA LCDX
JSR CLS_CHAR12x12
LDA #5
STA LCDY
LDA #16
STA LCDX
JSR CLS_CHAR12x12
LDA #15
STA AllowErTim
RTS
AllowErTime20:
LDA #5
STA LCDY
LDA #12
STA LCDX
JSR DrawRight
LDA #5
STA LCDY
LDA #8
STA LCDX
JSR CLS_CHAR12x12
LDA #5
STA LCDY
LDA #16
STA LCDX
JSR CLS_CHAR12x12
LDA #20
STA AllowErTim
RTS
AllowErTime30:
LDA #5
STA LCDY
LDA #16
STA LCDX
JSR DrawRight
LDA #5
STA LCDY
LDA #8
STA LCDX
JSR CLS_CHAR12x12
LDA #5
STA LCDY
LDA #12
STA LCDX
JSR CLS_CHAR12x12
LDA #30
STA AllowErTim
RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; LDA #5
; STA LCDY
; LDA #1
; STA LCDX
; LDA #<STR28
; STA PtrL
; LDA #>STR28
; STA PtrH
; JSR DRAW_STRING
; LDA #5
; STA LCDY
; LDA #13
; STA LCDX
; LDA AllowErTim
; JSR DISP_NUMBER
; RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;拿牌手数
TakeCardC:
LDA TakeCardCKind
CMP #1
BEQ TakeCardC3
CMP #2
BEQ TakeCardC4
CMP #3
BEQ TakeCardC5
RTS
TakeCardC3:
LDA #6
STA LCDY
LDA #8
STA LCDX
JSR DrawRight
LDA #6
STA LCDY
LDA #12
STA LCDX
JSR CLS_CHAR12x12
LDA #6
STA LCDY
LDA #16
STA LCDX
JSR CLS_CHAR12x12
LDA #3
STA TakeCardCount
RTS
TakeCardC4:
LDA #6
STA LCDY
LDA #12
STA LCDX
JSR DrawRight
LDA #6
STA LCDY
LDA #8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -