155 lines
3.1 KiB
ArmAsm
155 lines
3.1 KiB
ArmAsm
*
|
|
* Swashbuckler
|
|
* (c) Stephenson
|
|
* (s) 2018, Brutal Deluxe Software
|
|
*
|
|
* This is the $4000..$40FF area
|
|
* It handles the high score and
|
|
* stores it onto disk at T3/SC
|
|
*
|
|
|
|
mx %11
|
|
lst off
|
|
|
|
*----------------------------
|
|
|
|
L4000 LDA TXTPAGE1
|
|
LDA TXTSET
|
|
JSR HOME
|
|
JSR CROUT
|
|
JSR CROUT
|
|
LDA #<L40D8 ; YOUR SCORE
|
|
LDY #>L40D8
|
|
JSR $DB3A ; PRINT STRING
|
|
JSR L4035
|
|
JSR L4055 ; new high?
|
|
LDA #<L40E8 ; HIGH SCORE
|
|
LDY #>L40E8
|
|
JSR $DB3A ; PRINT STRING
|
|
|
|
LDA L40D0 ; put high score
|
|
STA $09C0
|
|
LDA L40D1
|
|
STA $09C1
|
|
JSR L4035
|
|
JMP L4090
|
|
|
|
L4035 LDA $09C0 ; PRINT VALUE
|
|
STA $9F
|
|
LDA $09C1
|
|
STA $9E
|
|
LDA #$90
|
|
STA $9D
|
|
LDA #$00
|
|
STA $A0
|
|
STA $A1
|
|
STA $A2
|
|
JSR $ED2E ; PRINTFAC
|
|
JSR CROUT
|
|
JSR CROUT
|
|
RTS
|
|
|
|
*---------- New high score?
|
|
|
|
L4055 LDA L40D1 ; NEW HIGH SCORE?
|
|
CMP $09C1
|
|
BCC L4068
|
|
BNE L4067
|
|
LDA L40D0
|
|
CMP $09C0
|
|
BCC L4068
|
|
L4067 RTS
|
|
|
|
*--- Yes!
|
|
|
|
L4068 LDA $09C1 ; YES
|
|
STA L40D1 ; SAVE SCORE
|
|
LDA $09C0
|
|
STA L40D0
|
|
LDA #$03 ; T3
|
|
STA $031D
|
|
LDA #$0C ; SC
|
|
STA $031E
|
|
LDA #<L4000
|
|
STA $0328
|
|
LDA #>L4000
|
|
STA $0329
|
|
LDA #$02 ; write
|
|
JSR $033F ; call RWTS
|
|
JMP L4067 ; return
|
|
|
|
L4090 BIT KBD
|
|
BPL L4090
|
|
LDA #$00
|
|
STA KBDSTROBE
|
|
JMP L1B34 ; NEXT STAGE
|
|
|
|
*----------
|
|
|
|
DB $00
|
|
DB $1C
|
|
DB $08
|
|
DB $07
|
|
DB $60
|
|
DB $00
|
|
DB $C8
|
|
DB $AE
|
|
DB $D5
|
|
DB $AA
|
|
DB $D4
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $10
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
|
|
L40D0 DB $B1 ; HIGH SCORE
|
|
L40D1 DB $00 ; HIGH SCORE
|
|
DB $03
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L40D8 ASC "YOUR SCORE = "00
|
|
DB $00
|
|
DB $00
|
|
L40E8 ASC "HIGH SCORE TO DATE = "00
|
|
DB $00
|
|
DB $00
|