📄 hf0803.asm
字号:
RTS
Page2InStart136S:
JSR DispP2Card
LDA #1
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart136W:
JSR DispP2Card
LDA #35
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart136N:
JSR DispP2Card
LDA #69
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart144:
LDA Page2Menu
CMP #4
BEQ Page2InStart144E
CMP #8
BEQ Page2InStart144S
CMP #12
BEQ Page2InStart144W
CMP #16
BEQ Page2InStart144N
RTS
Page2InStart144E:
JSR DispP2Card
LDA #109
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart144S:
JSR DispP2Card
LDA #1
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart144W:
JSR DispP2Card
LDA #37
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
Page2InStart144N:
JSR DispP2Card
LDA #73
STA NumID
JSR SaveCardOdd
JSR Cler13CardNum
JSR Join13Card
JSR Disp13CardNum
RTS
ClashCHeck:
LDX #13
ClashCHeck1:
DEX
LDA OddIDinB,X
CMP #0
BEQ ClashCHeck1C0
STA TEMP
LDY #13
ClashCHeck2:
DEY
LDA OddIDin,Y
CMP TEMP
BEQ ClashOC
CPY #0
BNE ClashCHeck2
CPX #0
BNE ClashCHeck1
JMP CheckClashOk
ClashOC:
LDA #<CrashOcc
STA PtrL
LDA #>CrashOcc
STA PtrH
LDA #12
STA LCDY
LDA #7
STA LCDX
JSR DRAW_STRING
RTS
CheckClashOk:
LDA #12
STA LCDY
JSR CLS_LINE
RTS
ClashCHeck1C0:
CPX #0
BEQ CheckClashOk
JMP ClashCHeck1
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Page2SubSubM:
LDA Page2Menu
CMP #0
BEQ SubP2Menu0PR
CMP #1
BEQ SubP2Menu1PR
CMP #2
BEQ SubP2Menu2PR
CMP #3
BEQ SubP2Menu3PR
CMP #4
BEQ SubP2Menu4PR
CMP #5
BEQ SubP2Menu5PR
CMP #6
BEQ SubP2Menu6PR
CMP #7
BEQ SubP2Menu7PR
CMP #8
BEQ SubP2Menu8PR
CMP #9
BEQ SubP2Menu9PR
CMP #10
BEQ SubP2Menu10PR
CMP #11
BEQ SubP2Menu11PR
CMP #12
BEQ SubP2Menu12PR
CMP #13
BEQ SubP2Menu13PR
CMP #14
BEQ SubP2Menu14PR
RTS
SubP2Menu0PR:
JMP SubP2Menu0
SubP2Menu1PR:
JMP SubP2Menu1New
SubP2Menu2PR:
JMP SubP2Menu2New
SubP2Menu3PR:
JMP SubP2Menu1
SubP2Menu4PR:
JMP SubP2Menu2
SubP2Menu5PR:
JMP SubP2Menu3
SubP2Menu6PR:
JMP SubP2Menu4
SubP2Menu7PR:
JMP SubP2Menu5
SubP2Menu8PR:
JMP SubP2Menu6
SubP2Menu9PR:
JMP SubP2Menu7
SubP2Menu10PR:
JMP SubP2Menu8
SubP2Menu11PR:
JMP SubP2Menu9
SubP2Menu12PR:
JMP SubP2Menu10
SubP2Menu13PR:
JMP SubP2Menu11
SubP2Menu14PR:
JMP SubP2Menu12
AddP2Menu0:
LDA ABCKind
CMP #3
BEQ AddP2Menu0End
JSR SetABCOdd
JSR SetAllTime
INC ABCKind
JSR ABCSelect
JSR ClerABALL
STZ OddID
STZ SaveOddIDB
JSR LoadABCOdd
JSR Join13Card
JSR LoadAllTime
JSR LoadABCOdd
JSR SetupPage2New
AddP2Menu0End:
RTS
SubP2Menu0:
LDA ABCKind
CMP #1
BEQ SubP2Menu0End
JSR SetABCOdd
JSR SetAllTime
DEC ABCKind
JSR ABCSelect
JSR ClerABALL
STZ OddID
STZ SaveOddIDB
JSR LoadABCOdd
JSR Join13Card
JSR LoadAllTime
JSR LoadABCOdd
JSR SetupPage2New
SubP2Menu0End:
RTS
AddP2Menu1New:
LDA OddID
CMP #0
BEQ AddP2Menu1New1
LDA CardNum
SEC
SBC #1
STA TEMP
LDA OddID
CMP TEMP
BEQ AddP2Menu1NewEnd
INC OddID
INC OddID
AddP2Menu1NewNext:
LDA #1
STA LCDY
LDA #12
STA LCDX
LDA OddID
JSR DISP_NUMBER
AddP2Menu1NewEnd:
LDA #1
STA LeftORRight
JSR Join13Card
JSR ClashCHeck
RTS
AddP2Menu1New1:
LDA #1
STA OddID
JMP AddP2Menu1NewNext
SubP2Menu1New:
LDA OddID
CMP #0
BEQ SubP2Menu1NewEnd
LDA OddID
CMP #1
BEQ SubP2Menu1New1
DEC OddID
DEC OddID
SubP2Menu1NewNext:
LDA #8
STA LCDX
LDA #1
STA LCDY
LDA #2
STA CHARNUM
JSR CLS_CHARMANY
LDA #1
STA LCDY
LDA #12
STA LCDX
LDA OddID
JSR DISP_NUMBER
SubP2Menu1NewEnd:
LDA #1
STA LeftORRight
JSR Join13Card
JSR ClashCHeck
RTS
SubP2Menu1New1:
LDA #0
STA OddID
JMP SubP2Menu1NewNext
AddP2Menu2New:
LDA SaveOddIDB
CMP #0
BEQ AddP2Menu2New1
LDA CardNum
SEC
SBC #1
STA TEMP
LDA SaveOddIDB
CMP TEMP
BEQ AddP2Menu2NewEnd
INC SaveOddIDB
INC SaveOddIDB
AddP2Menu2NewNext:
LDA #1
STA LCDY
LDA #27
STA LCDX
LDA SaveOddIDB
JSR DISP_NUMBER
AddP2Menu2NewEnd:
LDA #2
STA LeftORRight
JSR Join13Card
JSR ClashCHeck
RTS
AddP2Menu2New1:
LDA #1
STA SaveOddIDB
JMP AddP2Menu2NewNext
SubP2Menu2New:
LDA SaveOddIDB
CMP #0
BEQ SubP2Menu2NewEnd
LDA SaveOddIDB
CMP #1
BEQ SubP2Menu2New1
DEC SaveOddIDB
DEC SaveOddIDB
SubP2Menu2NewNext:
LDA #18
STA LCDX
LDA #1
STA LCDY
LDA #2
STA CHARNUM
JSR CLS_CHARMANY
LDA #1
STA LCDY
LDA #27
STA LCDX
LDA SaveOddIDB
JSR DISP_NUMBER
SubP2Menu2NewEnd:
LDA #2
STA LeftORRight
JSR Join13Card
JSR ClashCHeck
RTS
SubP2Menu2New1:
LDA #0
STA SaveOddIDB
JMP SubP2Menu2NewNext
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
AddP2Menu1:
LDA Etime1
CMP #2
BEQ AddP2Menu1End
INC Etime1
LDA #3
STA LCDY
JSR CLS_LINE
JSR DpP2Line1
LDA #3
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu1End:
RTS
SubP2Menu1:
LDA Etime1
CMP #0
BEQ SubP2Menu1End
DEC Etime1
JSR DpP2Line1
LDA #3
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu1End:
RTS
AddP2Menu2:
LDA Etime2
CMP #3
BEQ AddP2Menu2End
INC Etime2
JSR DpP2Line1
LDA #4
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu2End:
RTS
SubP2Menu2:
LDA Etime2
CMP #0
BEQ SubP2Menu2End
DEC Etime2
JSR DpP2Line1
LDA #4
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu2End:
RTS
AddP2Menu3:
LDA Etime3
CMP #3
BEQ AddP2Menu3End
INC Etime3
JSR DpP2Line1
LDA #5
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu3End:
RTS
SubP2Menu3:
LDA Etime3
CMP #0
BEQ SubP2Menu3End
DEC Etime3
JSR DpP2Line1
LDA #5
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu3End:
RTS
RORLiftCard:
LDA LeftORRight
CMP #1
BEQ LiftCard
CMP #2
BEQ RightCard
RTS
LiftCard:
LDA StartOddID
STA OddID
RTS
RightCard:
LDA StartOddID
STA SaveOddIDB
RTS
Disp13CardNum:
JSR ClashCHeck
LDA LeftORRight
CMP #1
BEQ Disp13CardNumA
CMP #2
BEQ Disp13CardNumB
RTS
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Disp13CardNumA:
LDA ABCKind
CMP #3
BEQ Disp13CardNumC
LDY #13
Disp13CardNumLoopA:
DEY
LDA OddIDin,Y
CMP #0
BEQ Disp13CardNumAEnd
STA NumID
JSR Num108Invid
LDA NeedP2SubPa
CMP Page2SubPage
BNE Disp13CardNumA1
LDA NumID
JSR DISP_NUMBER_IN
CPY #0
BNE Disp13CardNumLoopA
Disp13CardNumAEnd:
RTS
Disp13CardNumC:
LDY #12
JMP Disp13CardNumLoopA
Disp13CardNumA1:
CPY #0
BNE Disp13CardNumLoopA
JMP Disp13CardNumAEnd
Disp13CardNumB:
LDA ABCKind
CMP #3
BEQ Disp13CardNumBC
LDY #4
Disp13CardNumLoopB:
DEY
LDA OddIDinB,Y
CMP #0
BEQ Disp13CardNumBEnd
STA NumID
JSR Num108Invid
LDA NeedP2SubPa
CMP Page2SubPage
BNE Disp13CardNumB1
LDA NumID
JSR DISP_NUMBER_IN
CPY #0
BNE Disp13CardNumLoopB
Disp13CardNumBEnd:
RTS
Disp13CardNumBC:
LDY #12
JMP Disp13CardNumLoopB
Disp13CardNumB1:
CPY #0
BNE Disp13CardNumLoopB
JMP Disp13CardNumBEnd
Cler13CardNum:
LDA LeftORRight
CMP #1
BEQ Cler13CardNumA
CMP #2
BEQ Cler13CardNumB
RTS
Cler13CardNumA:
LDY #13
Cler13CardNumALoop:
DEY
LDA OddIDin,Y
CMP #0
BEQ Cler13CardNumALoop1
STA NumID
JSR Num108Invid
LDA NeedP2SubPa
CMP Page2SubPage
BNE Cler13CardNumALoop2
LDA NumID
JSR DISP_NUMBER
CPY #0
BNE Cler13CardNumALoop
Cler13CardNumAEnd:
RTS
Cler13CardNumALoop2:
CPY #0
BEQ Cler13CardNumAEnd
JMP Cler13CardNumALoop
Cler13CardNumALoop1:
CPY #0
BEQ Cler13CardNumAEnd
JMP Cler13CardNumALoop
Cler13CardNumB:
LDY #12
Cler13CardNumBLoop:
DEY
LDA OddIDinB,Y
CMP #0
BEQ Cler13CardNumBLoop1
STA NumID
JSR Num108Invid
LDA NeedP2SubPa
CMP Page2SubPage
BNE Cler13CardNumBLoop2
LDA NumID
JSR DISP_NUMBER
CPY #0
BNE Cler13CardNumBLoop
Cler13CardNumBEnd:
RTS
Cler13CardNumBLoop2:
CPY #0
BEQ Cler13CardNumBEnd
JMP Cler13CardNumBLoop
Cler13CardNumBLoop1:
CPY #0
BEQ Cler13CardNumBEnd
JMP Cler13CardNumBLoop
AddP2Menu4:
LDA Stime1
CMP #2
BEQ AddP2Menu4End
INC Stime1
JSR DpP2Line2
LDA #6
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu4End:
RTS
SubP2Menu4:
LDA Stime1
CMP #0
BEQ SubP2Menu4End
DEC Stime1
JSR DpP2Line2
LDA #6
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu4End:
RTS
AddP2Menu5:
LDA Stime2
CMP #3
BEQ AddP2Menu5End
INC Stime2
JSR DpP2Line2
LDA #7
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu5End:
RTS
SubP2Menu5:
LDA Stime2
CMP #0
BEQ SubP2Menu5End
DEC Stime2
JSR DpP2Line2
LDA #7
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu5End:
RTS
AddP2Menu6:
LDA Stime3
CMP #3
BEQ AddP2Menu6End
INC Stime3
JSR DpP2Line2
LDA #8
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu6End:
RTS
SubP2Menu6:
LDA Stime3
CMP #0
BEQ SubP2Menu6End
DEC Stime3
JSR DpP2Line2
LDA #8
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu6End:
RTS
AddP2Menu7:
LDA Wtime1
CMP #2
BEQ AddP2Menu7End
INC Wtime1
JSR DpP2Line3
LDA #9
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu7End:
RTS
SubP2Menu7:
LDA Wtime1
CMP #0
BEQ SubP2Menu7End
DEC Wtime1
JSR DpP2Line3
LDA #9
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu7End:
RTS
AddP2Menu8:
LDA Wtime2
CMP #3
BEQ AddP2Menu8End
INC Wtime2
JSR DpP2Line3
LDA #10
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu8End:
RTS
SubP2Menu8:
LDA Wtime2
CMP #0
BEQ SubP2Menu8End
DEC Wtime2
JSR DpP2Line3
LDA #10
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu8End:
RTS
AddP2Menu9:
LDA Wtime3
CMP #3
BEQ AddP2Menu9End
INC Wtime3
JSR DpP2Line3
LDA #11
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu9End:
RTS
SubP2Menu9:
LDA Wtime3
CMP #0
BEQ SubP2Menu9End
DEC Wtime3
JSR DpP2Line3
LDA #11
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu9End:
RTS
AddP2Menu10:
LDA Ntime1
CMP #2
BEQ AddP2Menu10End
INC Ntime1
JSR DpP2Line4
LDA #12
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu10End:
RTS
SubP2Menu10:
LDA Ntime1
CMP #0
BEQ SubP2Menu10End
DEC Ntime1
JSR DpP2Line4
LDA #12
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu10End:
RTS
AddP2Menu11:
LDA Ntime2
CMP #3
BEQ AddP2Menu11End
INC Ntime2
JSR DpP2Line4
LDA #13
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu11End:
RTS
SubP2Menu11:
LDA Ntime2
CMP #0
BEQ SubP2Menu11End
DEC Ntime2
JSR DpP2Line4
LDA #13
STA Page2Menu
JSR JugeP2In
RTS
SubP2Menu11End:
RTS
AddP2Menu12:
LDA Ntime3
CMP #3
BEQ AddP2Menu12End
INC Ntime3
JSR DpP2Line4
LDA #14
STA Page2Menu
JSR JugeP2In
RTS
AddP2Menu12End:
RTS
SubP2Menu12:
LDA Ntime3
CMP #0
BEQ SubP2Menu12End
DEC Ntime3
JSR DpP2Line4
LDA #14
STA Page2Menu
JSR JugeP⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -