mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 06:39:40 +02:00
WIP: 5200 port (not yet working)
This commit is contained in:
+1
-1
@@ -1,6 +1,6 @@
|
||||
.proc talk
|
||||
; Maximum text length is 63 characters!!!
|
||||
L0 dta d"IN TIMES OF TROUBLE, GO WITH WHAT YOU KNOW."
|
||||
L0 dta d"CTO XYEB"
|
||||
L1 dta d"DIE!"
|
||||
L2 dta d"EAT MY SHORTS!"
|
||||
L3 dta d"YOU'RE TOAST!"
|
||||
|
||||
+224
@@ -0,0 +1,224 @@
|
||||
;****************************************************************************
|
||||
;* ATARI 5200 CONSOLE *
|
||||
;* SYSTEM EQUATES *
|
||||
;****************************************************************************
|
||||
; OS VARIABLES FOR 5200
|
||||
;
|
||||
; PAGE 0
|
||||
POKMSK = $00 ;pokmsk at $00 on Atari 5200 instead of $10 on Atari XL
|
||||
RTCLOK = $01 ;Actually $01/$02
|
||||
CRITIC = $03
|
||||
ATRACT = $04 ;attact at $04 on Atari 5200 instead of $4D on Atari XL
|
||||
|
||||
; PAGE 2
|
||||
DLPTRS = $05 ;sdlstl at $05/$06 on Atari 5200 instead of $230 on Atari XL
|
||||
DMACTLS = $07 ;sdmactl at $07 on Atari 5200 instead of $22f on Atari XL
|
||||
SSKCTL = skctl ;There is no shadow on Atari 5200
|
||||
STICK0 = $278 ;There is no stick0 but we will make the analog stick look like a digital one and store it here
|
||||
STRIG0 = $284 ;There is no strig0 but we will make this the shadow of the TRIG0 ($c010) of GITA
|
||||
|
||||
PCOLR0 EQU $08 ;P0 COLOR
|
||||
PCOLR1 EQU $09 ;P1 COLOR
|
||||
PCOLR2 EQU $0a ;P2 COLOR
|
||||
PCOLR3 EQU $0b ;P3 COLOR
|
||||
COLOR0 EQU $0c ;COLOR 0
|
||||
COLOR1 EQU $0d
|
||||
COLOR2 EQU $0e
|
||||
COLOR3 EQU $0f
|
||||
COLOR4 EQU $10
|
||||
COLBAKS EQU COLOR4
|
||||
|
||||
; HARDWARE REGISTERS
|
||||
|
||||
; GTIA
|
||||
CONSOL = $280 ;There are no console keys on Atari 5200, so we replace console h/w reads with a new shadow based on the keypad keys
|
||||
consol_reset = $07 ;The constant value representing that no consol key is pressed
|
||||
; ---------------------------------------------------------------------------
|
||||
POKEY EQU $EB200
|
||||
; ---------------------------------------------------------------------------
|
||||
;
|
||||
; READ
|
||||
;
|
||||
POT0 EQU POKEY+$00
|
||||
POT1 EQU POKEY+$01
|
||||
POT2 EQU POKEY+$02
|
||||
POT3 EQU POKEY+$03
|
||||
POT4 EQU POKEY+$04
|
||||
POT5 EQU POKEY+$05
|
||||
POT6 EQU POKEY+$06
|
||||
POT7 EQU POKEY+$07
|
||||
ALLPOT EQU POKEY+$08
|
||||
KBCODE EQU POKEY+$09
|
||||
RANDOM EQU POKEY+$0a
|
||||
POTGO EQU POKEY+$0b
|
||||
SERIN EQU POKEY+$0d
|
||||
IRQST EQU POKEY+$0e
|
||||
SKSTAT EQU POKEY+$0f
|
||||
;
|
||||
; WRITE
|
||||
;
|
||||
AUDF1 EQU POKEY+$00
|
||||
AUDC1 EQU POKEY+$01
|
||||
AUDF2 EQU POKEY+$02
|
||||
AUDC2 EQU POKEY+$03
|
||||
AUDF3 EQU POKEY+$04
|
||||
AUDC3 EQU POKEY+$05
|
||||
AUDF4 EQU POKEY+$06
|
||||
AUDC4 EQU POKEY+$07
|
||||
AUDCTL EQU POKEY+$08
|
||||
STIMER EQU POKEY+$09
|
||||
SKRES EQU POKEY+$0a
|
||||
SEROUT EQU POKEY+$0d
|
||||
IRQEN EQU POKEY+$0e
|
||||
SKCTL EQU POKEY+$0f
|
||||
;
|
||||
;
|
||||
;
|
||||
; ---------------------------------------------------------------------------
|
||||
GTIA EQU $C000
|
||||
; ---------------------------------------------------------------------------
|
||||
;
|
||||
; WRITE
|
||||
;
|
||||
HPOSP0 EQU GTIA+$00
|
||||
HPOSP1 EQU GTIA+$01
|
||||
HPOSP2 EQU GTIA+$02
|
||||
HPOSP3 EQU GTIA+$03
|
||||
HPOSM0 EQU GTIA+$04
|
||||
HPOSM1 EQU GTIA+$05
|
||||
HPOSM2 EQU GTIA+$06
|
||||
HPOSM3 EQU GTIA+$07
|
||||
SIZEP0 EQU GTIA+$08
|
||||
SIZEP1 EQU GTIA+$09
|
||||
SIZEP2 EQU GTIA+$0a
|
||||
SIZEP3 EQU GTIA+$0b
|
||||
SIZEM EQU GTIA+$0c
|
||||
GRAFP0 EQU GTIA+$0d
|
||||
GRAFP1 EQU GTIA+$0e
|
||||
GRAFP2 EQU GTIA+$0f
|
||||
GRAFP3 EQU GTIA+$10
|
||||
GRAFM EQU GTIA+$11
|
||||
COLPM0 EQU GTIA+$12
|
||||
COLPM1 EQU GTIA+$13
|
||||
COLPM2 EQU GTIA+$14
|
||||
COLPM3 EQU GTIA+$15
|
||||
COLPF0 EQU GTIA+$16
|
||||
COLPF1 EQU GTIA+$17
|
||||
COLPF2 EQU GTIA+$18
|
||||
COLPF3 EQU GTIA+$19
|
||||
COLBAK EQU GTIA+$1a
|
||||
PRIOR EQU GTIA+$1b
|
||||
VDELAY EQU GTIA+$1c
|
||||
GRACTL EQU GTIA+$1d
|
||||
HITCLR EQU GTIA+$1e
|
||||
;CONSOL EQU GTIA+$1f ; no CONSOL in 5200
|
||||
;
|
||||
; READ
|
||||
;
|
||||
M0PF EQU GTIA+$00
|
||||
M1PF EQU GTIA+$01
|
||||
M2PF EQU GTIA+$02
|
||||
M3PF EQU GTIA+$03
|
||||
P0PF EQU GTIA+$04
|
||||
P1PF EQU GTIA+$05
|
||||
P2PF EQU GTIA+$06
|
||||
P3PF EQU GTIA+$07
|
||||
M0PL EQU GTIA+$08
|
||||
M1PL EQU GTIA+$09
|
||||
M2PL EQU GTIA+$0a
|
||||
M3PL EQU GTIA+$0b
|
||||
P0PL EQU GTIA+$0c
|
||||
P1PL EQU GTIA+$0d
|
||||
P2PL EQU GTIA+$0e
|
||||
P3PL EQU GTIA+$0f
|
||||
TRIG0 EQU GTIA+$10
|
||||
TRIG1 EQU GTIA+$11
|
||||
TRIG2 EQU GTIA+$12
|
||||
TRIG3 EQU GTIA+$13
|
||||
PAL EQU GTIA+$14
|
||||
;
|
||||
;
|
||||
; ---------------------------------------------------------------------------
|
||||
ANTIC EQU $D400
|
||||
; ---------------------------------------------------------------------------
|
||||
;
|
||||
DMACTL EQU ANTIC+$00
|
||||
CHACTL EQU ANTIC+$01
|
||||
DLPTR EQU ANTIC+$02
|
||||
;DLISTH EQU ANTIC+$03
|
||||
HSCROL EQU ANTIC+$04
|
||||
VSCROL EQU ANTIC+$05
|
||||
PMBASE EQU ANTIC+$07
|
||||
CHBASE EQU ANTIC+$09
|
||||
WSYNC EQU ANTIC+$0a
|
||||
VCOUNT EQU ANTIC+$0b
|
||||
PENH EQU ANTIC+$0c
|
||||
PENV EQU ANTIC+$0d
|
||||
NMIEN EQU ANTIC+$0e
|
||||
NMIRES EQU ANTIC+$0f
|
||||
NMIST EQU ANTIC+$0f
|
||||
;
|
||||
; ---------------------------------------------------------------------------
|
||||
; Atari ANTIC chip display list equates
|
||||
; ---------------------------------------------------------------------------
|
||||
;
|
||||
JUMP EQU $01 ; display list jump instruction (3 byte)
|
||||
JVB EQU $41 ; display list jump and wait for vblank instruction (3)
|
||||
;
|
||||
SCH EQU $10 ; display list horizontal scrolling
|
||||
SCV EQU $20 ; display list vertical scrolling
|
||||
LMS EQU $40 ; display list load memory scan instruction (3 byte)
|
||||
DLII EQU $80 ; display list interrupt instruction
|
||||
;
|
||||
SKIP1 EQU $00 ; display list skip 1 scan line instruction
|
||||
SKIP2 EQU $10 ; display list skip 2 scan lines instruction
|
||||
SKIP3 EQU $20 ; display list skip 3 scan lines instruction
|
||||
SKIP4 EQU $30 ; display list skip 4 scan lines instruction
|
||||
SKIP5 EQU $40 ; display list skip 5 scan lines instruction
|
||||
SKIP6 EQU $50 ; display list skip 6 scan lines instruction
|
||||
SKIP7 EQU $60 ; display list skip 7 scan lines instruction
|
||||
SKIP8 EQU $70 ; display list skip 8 scan lines instruction
|
||||
;
|
||||
MODE2 EQU $02 ; display list mode 2
|
||||
MODE4 EQU $04 ; display list mode 4
|
||||
MODE8 EQU $08 ; display list mode 8
|
||||
MODEE EQU $0E ; display list mode E
|
||||
MODEF EQU $0F ; display list mode F
|
||||
; ---------------------------------------------------------------------------
|
||||
; ENUMS
|
||||
; ---------------------------------------------------------------------------
|
||||
|
||||
.enum @dmactl
|
||||
blank = %00
|
||||
narrow = %01
|
||||
standard= %10
|
||||
wide = %11
|
||||
missiles= %100
|
||||
players = %1000
|
||||
lineX1 = %10000
|
||||
lineX2 = %00000
|
||||
dma = %100000
|
||||
.ende
|
||||
|
||||
scr48 = @dmactl(wide|dma|players|missiles|lineX1)
|
||||
scr40 = @dmactl(standard|dma|players|missiles|lineX1)
|
||||
scr32 = @dmactl(narrow|dma|players|missiles|lineX1)
|
||||
|
||||
.enum @pmcntl
|
||||
missiles= %1
|
||||
players = %10
|
||||
trigs = %100
|
||||
.ende
|
||||
|
||||
.enum @gtictl
|
||||
prior0 = %0
|
||||
prior1 = %1
|
||||
prior2 = %10
|
||||
prior4 = %100
|
||||
prior8 = %1000
|
||||
ply5 = %10000 ; Fifth Player Enable
|
||||
mlc = %100000 ; Multiple Color Player Enable
|
||||
mode9 = %01000000
|
||||
mode10 = %10000000
|
||||
mode11 = %11000000
|
||||
.ende
|
||||
+33
-22
@@ -2,13 +2,15 @@
|
||||
;Atari 8-bit Scorched Earth source code
|
||||
;---------------------------------------------------
|
||||
;by Tomasz 'pecus' Pecko and Pawel 'pirx' Kalinowski
|
||||
;Warsaw 2000,2001,2002,2003,2009,2012,2013
|
||||
;Warsaw 2000, 2001, 2002, 2003, 2009, 2012, 2013
|
||||
;Miami & Warsaw 2022
|
||||
|
||||
OPT r+ ; saves 12 bytes :O
|
||||
|
||||
.def target = 800 ;5200 ; or 800
|
||||
|
||||
.macro build
|
||||
dta d"1.15" ; number of this build (3 bytes)
|
||||
dta d"1.15" ; number of this build (4 bytes)
|
||||
.endm
|
||||
|
||||
.macro RMTSong
|
||||
@@ -121,19 +123,22 @@
|
||||
LineAddress4x4 = temp
|
||||
|
||||
;-------------------------------
|
||||
|
||||
icl 'lib/ATARISYS.ASM'
|
||||
.IF TARGET = 5200
|
||||
icl 'lib/5200SYS.ASM'
|
||||
.ELSE
|
||||
icl 'lib/ATARISYS.ASM'
|
||||
icl 'artwork/Scorch50.asm' ; splash screen and musix
|
||||
.ENDIF
|
||||
|
||||
icl 'lib/macro.hea'
|
||||
|
||||
.IF target !=5200
|
||||
;splash screen and musix
|
||||
icl 'artwork/Scorch50.asm'
|
||||
.ENDIF
|
||||
|
||||
;Game loading address
|
||||
ORG PMGraph + $0300 - (variablesEnd - OneTimeZeroVariables + 1)
|
||||
icl 'variables.asm'
|
||||
ORG $4000
|
||||
; variable declarations in RAM (no code)
|
||||
ORG PMGraph + $0300 - (variablesEnd - OneTimeZeroVariables + 1)
|
||||
icl 'variables.asm'
|
||||
|
||||
; Game loading address
|
||||
ORG $4000
|
||||
;opt f+ ; single block
|
||||
|
||||
WeaponFont
|
||||
ins 'artwork/weapons_AW6_mod.fnt' ; 'artwork/weapons.fnt'
|
||||
@@ -1698,19 +1703,25 @@ TankFont
|
||||
|
||||
;RMT PLAYER and song loading shenaningans
|
||||
icl 'artwork/sfx/rmtplayr_modified.asm'
|
||||
MODUL equ $b000 ;address of RMT module
|
||||
opt h- ;RMT module is standard Atari binary file already
|
||||
ins "artwork/sfx/scorch_str6.rmt" ;include music RMT module
|
||||
opt h+
|
||||
org $b000
|
||||
MODUL ; equ $b000 ;address of RMT module
|
||||
;opt h- ;RMT module is standard Atari binary file already
|
||||
ins "artwork/sfx/scorch_str6.rmt",+6 ;include music RMT module
|
||||
;opt h+
|
||||
MODULEND
|
||||
;----------------------------------------------
|
||||
org $bf80
|
||||
font4x4
|
||||
ins 'artwork/font4x4s.bmp',+62
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.IF target = 5200
|
||||
org $bfe8
|
||||
; "01234567890123456789"
|
||||
.byte " SCORCH 5200 v" ;20 characters title
|
||||
build ; " "
|
||||
.byte " "
|
||||
.byte '22' ;2 characters year
|
||||
.word FirstSTART
|
||||
.ELSE
|
||||
run FirstSTART
|
||||
.ENDIF
|
||||
BIN
Binary file not shown.
Reference in New Issue
Block a user