5200 works

This commit is contained in:
2022-09-27 19:17:31 -04:00
parent 0968613b02
commit f9092110ac
4 changed files with 43 additions and 5 deletions
+39 -2
View File
@@ -10,21 +10,40 @@ OptionsScreen
dta d"Welcome to Scorch v. " dta d"Welcome to Scorch v. "
build ; 4 bytes from scorch.asm (fancy method) :) build ; 4 bytes from scorch.asm (fancy method) :)
dta d" (un)2000-2022" dta d" (un)2000-2022"
.IF TARGET = 800
dta d" Please select option with cursor keys " dta d" Please select option with cursor keys "
dta d" and press (Return) to proceed " dta d" and press (Return) to proceed "
.ELIF TARGET = 5200
dta d" Please select option with joystick one "
dta d" and press FIRE to proceed "
.ENDIF
; 0123456789012345678901234567890123456789 ; 0123456789012345678901234567890123456789
;----------------------------------------------- ;-----------------------------------------------
NameScreen NameScreen
.IF TARGET = 800
dta d" Enter names of players " dta d" Enter names of players "
.ELIF TARGET = 5200
dta d" Hold FIRE to enter names "
.ENDIF
NameScreen3 NameScreen3
dta d" Human/Atari (difficulty level) " dta d" Human/Atari (difficulty level) "
NameScreen5 NameScreen5
.IF TARGET = 800
dta d" " dta d" "
dta d"Tab"* dta d"TAB"*
dta d" - Player/Difficulty level " dta d" - Player/Difficulty level "
dta d" " dta d" "
dta d"Return"* dta d"Return"*
dta d" - Proceed " dta d" - Proceed "
.ELIF TARGET = 5200
dta d" "
dta d"Joy"*
dta d" - Player/Difficulty level "
dta d" "
dta d"FIRE"*
dta d" - Proceed "
.ENDIF
;----------------------------------------------- ;-----------------------------------------------
MoreUp MoreUp
dta d" " dta d" "
@@ -40,20 +59,39 @@ MoreDown
dta d" " dta d" "
WeaponsDescription WeaponsDescription
; 0123456789012345678901234567890123456789 ; 0123456789012345678901234567890123456789
.IF TARGET = 800
dta d"Tab"* dta d"Tab"*
dta d ": Defensive/Offensive weapon " dta d ": Defensive/Offensive weapon "
.ELIF TARGET = 5200
dta d"Left"*
dta d ": Defensive/Offensive weapon"
.ENDIF
PurchaseDescription PurchaseDescription
; 0123456789012345678901234567890123456789 ; 0123456789012345678901234567890123456789
.IF TARGET = 800
dta d"Space"* dta d"Space"*
dta d": Purchase " dta d": Purchase "
dta d"Return"* dta d"Return"*
dta d": Finish " dta d": Finish "
.ELIF TARGET = 5200
dta d"Right"*
dta d": Purchase "
dta d"FIRE"*
dta d": Finish "
.ENDIF
ActivateDescription ActivateDescription
; 0123456789012345678901234567890123456789 ; 0123456789012345678901234567890123456789
.IF TARGET = 800
dta d"Space"* dta d"Space"*
dta d": Activate " dta d": Activate "
dta d"Return"* dta d"Return"*
dta d": Finish " dta d": Finish "
.ELIF TARGET = 5200
dta d"Right"*
dta d": Activate "
dta d"FIRE"*
dta d": Finish "
.ENDIF
EmptyLine EmptyLine
dta d" " dta d" "
;--------------------------------------------------- ;---------------------------------------------------
@@ -120,7 +158,6 @@ dl ; MAIN game display list
.byte $41 .byte $41
.word dl .word dl
;----------------------------------------------- ;-----------------------------------------------
;.ALIGN $1000 ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
OptionsDL OptionsDL
.byte $70 .byte $70
.byte $47 .byte $47
+1 -1
View File
@@ -138,7 +138,7 @@ GPRIOR = PRIOR ; no PRIOR shadow (GPRIOR)
VDELAY EQU GTIA+$1c VDELAY EQU GTIA+$1c
GRACTL EQU GTIA+$1d GRACTL EQU GTIA+$1d
HITCLR EQU GTIA+$1e HITCLR EQU GTIA+$1e
;CONSOL EQU GTIA+$1f ; no CONSOL in 5200 CONSOL5200 EQU GTIA+$1f ; no CONSOL in 5200
; ;
; READ ; READ
; ;
+2 -1
View File
@@ -6,7 +6,7 @@
;Miami & Warsaw 2022 ;Miami & Warsaw 2022
;--------------------------------------------------- ;---------------------------------------------------
.def TARGET = 800 ;5200 ; or 800 .def TARGET = 5200 ; or 800
;--------------------------------------------------- ;---------------------------------------------------
OPT r+ ; saves 12 bytes :O OPT r+ ; saves 12 bytes :O
@@ -226,6 +226,7 @@ FirstSTART
.IF TARGET = 5200 .IF TARGET = 5200
mva #$0f STICK0 mva #$0f STICK0
mva #$04 CONSOL5200 ;Speaker off, Pots enabled, port #1 selected
.ENDIF .ENDIF
VMAIN VBLinterrupt,7 ;jsr SetVBL VMAIN VBLinterrupt,7 ;jsr SetVBL
BIN
View File
Binary file not shown.