mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
Prepare for C64 port
This commit is contained in:
Pecusx
@@ -0,0 +1,47 @@
|
||||
vic_spr0_x = $D000
|
||||
vic_spr0_y = $D001
|
||||
vic_spr1_x = $D002
|
||||
vic_spr1_y = $D003
|
||||
vic_spr2_x = $D004
|
||||
vic_spr2_y = $D005
|
||||
vic_spr3_x = $D006
|
||||
vic_spr3_y = $D007
|
||||
vic_spr4_x = $D008
|
||||
vic_spr4_y = $D009
|
||||
vic_spr5_x = $D00A
|
||||
vic_spr5_y = $D00B
|
||||
vic_spr6_x = $D00C
|
||||
vic_spr6_y = $D00D
|
||||
vic_spr7_x = $D00E
|
||||
vic_spr7_y = $D00F
|
||||
vic_spr_hi_x = $D010
|
||||
vic_cr1 = $D011
|
||||
vic_raster = $D012
|
||||
vic_lp_x = $D013
|
||||
vic_lp_y = $D014
|
||||
vic_spr_ena = $D015
|
||||
vic_cr2 = $D016
|
||||
vic_spr_exp_y = $D017
|
||||
vic_mem = $D018
|
||||
vic_irq = $D019
|
||||
vic_irq_ena = $D01A
|
||||
vic_spr_dp = $D01B
|
||||
vic_spr_mcolor = $D01C
|
||||
vic_spr_exp_x = $D01D
|
||||
vic_spr_ss_col = $D01E
|
||||
vic_spr_sd_col = $D01F
|
||||
vic_border = $D020
|
||||
vic_bg_color0 = $D021
|
||||
vic_bg_color1 = $D022
|
||||
vic_bg_color2 = $D023
|
||||
vic_bg_color3 = $D024
|
||||
vic_spr_color1 = $D025
|
||||
vic_spr_color2 = $D026
|
||||
vic_spr0_color = $D027
|
||||
vic_spr1_color = $D028
|
||||
vic_spr2_color = $D029
|
||||
vic_spr3_color = $D02A
|
||||
vic_spr4_color = $D02B
|
||||
vic_spr5_color = $D02C
|
||||
vic_spr6_color = $D02D
|
||||
vic_spr7_color = $D02E
|
||||
@@ -0,0 +1,213 @@
|
||||
|
||||
|
||||
|
||||
.macro basic_start(addr)
|
||||
|
||||
.word upstartEnd // link address
|
||||
.word 10 // line num
|
||||
.byte $9e // sys
|
||||
|
||||
?a=0
|
||||
?b=0
|
||||
?c=0
|
||||
?d=0
|
||||
?e=0
|
||||
|
||||
?v = %%addr
|
||||
|
||||
ift ?v>=10000
|
||||
?a=?v/10000
|
||||
?v=?v-(?a*10000)
|
||||
eif
|
||||
|
||||
ift ?v>=1000
|
||||
?b=?v/1000
|
||||
?v=?v-(?b*1000)
|
||||
eif
|
||||
|
||||
ift ?v>=100
|
||||
?c=?v/100
|
||||
?v=?v-(?c*100)
|
||||
eif
|
||||
|
||||
ift ?v>=10
|
||||
?d=?v/10
|
||||
?v=?v-(?d*10)
|
||||
eif
|
||||
|
||||
?e=?v%10
|
||||
|
||||
dta ?a+$30,?b+$30,?c+$30,?d+$30,?e+$30
|
||||
|
||||
.byte 0
|
||||
upstartEnd
|
||||
.word 0 // empty link signals the end of the program
|
||||
|
||||
.endm
|
||||
|
||||
|
||||
//
|
||||
// Switch bank in VIC-II
|
||||
//
|
||||
// Args:
|
||||
// bank: bank number to switch to. Valid values: 0-3.
|
||||
//
|
||||
.macro SwitchVICBank(bank)
|
||||
//
|
||||
// The VIC-II chip can only access 16K bytes at a time. In order to
|
||||
// have it access all of the 64K available, we have to tell it to look
|
||||
// at one of four banks.
|
||||
//
|
||||
// This is controller by bits 0 and 1 in $dd00 (PORT A of CIA #2).
|
||||
//
|
||||
// +------+-------+----------+-------------------------------------+
|
||||
// | BITS | BANK | STARTING | VIC-II CHIP RANGE |
|
||||
// | | | LOCATION | |
|
||||
// +------+-------+----------+-------------------------------------+
|
||||
// | 00 | 3 | 49152 | ($C000-$FFFF)* |
|
||||
// | 01 | 2 | 32768 | ($8000-$BFFF) |
|
||||
// | 10 | 1 | 16384 | ($4000-$7FFF)* |
|
||||
// | 11 | 0 | 0 | ($0000-$3FFF) (DEFAULT VALUE) |
|
||||
// +------+-------+----------+-------------------------------------+
|
||||
?bits=%11
|
||||
|
||||
ift (%%bank==0)
|
||||
?bits=%11
|
||||
eli (%%bank==1)
|
||||
?bits=%10
|
||||
eli (%%bank==2)
|
||||
?bits=%01
|
||||
eli (%%bank==3)
|
||||
?bits=%00
|
||||
eif
|
||||
|
||||
//
|
||||
// Set Data Direction for CIA #2, Port A to output
|
||||
//
|
||||
lda $dd02
|
||||
and #%11111100 // Mask the bits we're interested in.
|
||||
ora #$03 // Set bits 0 and 1.
|
||||
sta $dd02
|
||||
|
||||
//
|
||||
// Tell VIC-II to switch to bank
|
||||
//
|
||||
lda $dd00
|
||||
and #%11111100
|
||||
ora #?bits
|
||||
sta $dd00
|
||||
.endm
|
||||
|
||||
|
||||
//
|
||||
// Enter hires bitmap mode (a.k.a. standard bitmap mode)
|
||||
//
|
||||
.macro SetHiresBitmapMode
|
||||
//
|
||||
// Clear extended color mode (bit 6) and set bitmap mode (bit 5)
|
||||
//
|
||||
lda $d011
|
||||
and #%10111111
|
||||
ora #%00100000
|
||||
sta $d011
|
||||
|
||||
//
|
||||
// Clear multi color mode (bit 4)
|
||||
//
|
||||
lda $d016
|
||||
and #%11101111
|
||||
sta $d016
|
||||
.endm
|
||||
|
||||
|
||||
//
|
||||
// Enter hires bitmap mode (a.k.a. standard bitmap mode)
|
||||
//
|
||||
.macro SetMulticolorBitmapMode
|
||||
//
|
||||
// Clear extended color mode (bit 6) and set bitmap mode (bit 5)
|
||||
//
|
||||
lda $d011
|
||||
and #%10111111
|
||||
ora #%00100000
|
||||
sta $d011
|
||||
|
||||
//
|
||||
// Clear multi color mode (bit 4)
|
||||
//
|
||||
lda $d016
|
||||
ora #%00010000
|
||||
sta $d016
|
||||
.endm
|
||||
|
||||
|
||||
//
|
||||
// Switch location of screen memory.
|
||||
//
|
||||
// Args:
|
||||
// address: Address relative to current VIC-II bank base address.
|
||||
// Valid values: $0000-$3c00. Must be a multiple of $0400.
|
||||
//
|
||||
.macro SetScreenMemory(address)
|
||||
//
|
||||
// The most significant nibble of $D018 selects where the screen is
|
||||
// located in the current VIC-II bank.
|
||||
//
|
||||
// +------------+-----------------------------+
|
||||
// | | LOCATION* |
|
||||
// | BITS +---------+-------------------+
|
||||
// | | DECIMAL | HEX |
|
||||
// +------------+---------+-------------------+
|
||||
// | 0000XXXX | 0 | $0000 |
|
||||
// | 0001XXXX | 1024 | $0400 (DEFAULT) |
|
||||
// | 0010XXXX | 2048 | $0800 |
|
||||
// | 0011XXXX | 3072 | $0C00 |
|
||||
// | 0100XXXX | 4096 | $1000 |
|
||||
// | 0101XXXX | 5120 | $1400 |
|
||||
// | 0110XXXX | 6144 | $1800 |
|
||||
// | 0111XXXX | 7168 | $1C00 |
|
||||
// | 1000XXXX | 8192 | $2000 |
|
||||
// | 1001XXXX | 9216 | $2400 |
|
||||
// | 1010XXXX | 10240 | $2800 |
|
||||
// | 1011XXXX | 11264 | $2C00 |
|
||||
// | 1100XXXX | 12288 | $3000 |
|
||||
// | 1101XXXX | 13312 | $3400 |
|
||||
// | 1110XXXX | 14336 | $3800 |
|
||||
// | 1111XXXX | 15360 | $3C00 |
|
||||
// +------------+---------+-------------------+
|
||||
//
|
||||
?bits = (%%address / $0400) << 4
|
||||
|
||||
lda $d018
|
||||
and #%00001111
|
||||
ora #?bits
|
||||
sta $d018
|
||||
.endm
|
||||
|
||||
|
||||
//
|
||||
// Set location of bitmap.
|
||||
//
|
||||
// Args:
|
||||
// address: Address relative to VIC-II bank address.
|
||||
// Valid values: $0000 (bitmap at $0000-$1FFF)
|
||||
// $2000 (bitmap at $2000-$3FFF)
|
||||
//
|
||||
.macro SetBitmapAddress(address)
|
||||
//
|
||||
// In standard bitmap mode the location of the bitmap area can
|
||||
// be set to either BANK address + $0000 or BANK address + $2000
|
||||
//
|
||||
// By setting bit 3, we can configure which of the locations to use.
|
||||
//
|
||||
|
||||
lda $d018
|
||||
|
||||
ift %%address == $0000
|
||||
and #%11110111
|
||||
eli %%address == $2000
|
||||
ora #%00001000
|
||||
eif
|
||||
|
||||
sta $d018
|
||||
.end
|
||||
+546
@@ -0,0 +1,546 @@
|
||||
; @com.wudsn.ide.asm.mainsourcefile=scorch.asm
|
||||
;C64 8-bit Scorched Earth source code
|
||||
;---------------------------------------------------
|
||||
;by Tomasz 'pecus' Pecko and Pawel 'pirx' Kalinowski
|
||||
;Warsaw 2000, 2001, 2002, 2003, 2009, 2012, 2013
|
||||
;Miami & Warsaw 2022, 2023
|
||||
|
||||
;---------------------------------------------------
|
||||
.def TARGET = C64 ; :)
|
||||
;---------------------------------------------------
|
||||
.def XCORRECTION_FOR_PM = 0
|
||||
; if 1 - active x position of tanks correction fo PMG
|
||||
.def FASTER_GRAF_PROCS = 0
|
||||
; if 1 - activates faster graphics routines
|
||||
; (direct writes to screen memory - atari only :) )
|
||||
;---------------------------------------------------
|
||||
|
||||
|
||||
opt h-f+
|
||||
org $801
|
||||
org [a($801)],$801
|
||||
basic_start(START)
|
||||
|
||||
|
||||
;---------------------------------------------------
|
||||
.macro build
|
||||
dta d"1.28" ; number of this build (4 bytes)
|
||||
.endm
|
||||
|
||||
.macro RMTSong
|
||||
lda #:1
|
||||
rts ; do nothing in C64
|
||||
.endm
|
||||
|
||||
;---------------------------------------------------
|
||||
icl 'definitions.asm'
|
||||
;---------------------------------------------------
|
||||
|
||||
FirstZpageVariable = $57
|
||||
.zpvar DliColorBack .byte = FirstZpageVariable
|
||||
.zpvar GradientNr .byte
|
||||
.zpvar GradientColors .word
|
||||
.zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn)
|
||||
.zpvar JoystickNumber .byte
|
||||
.zpvar LazyFlag .byte ; 7 bit - run Lazy Darwin, 6 bit - run Lazy Boy or Darwin (!) after inventory, 0 - nothing
|
||||
.zpvar SpyHardFlag .byte ; >$7f - run SpyHard after inventory
|
||||
.zpvar Vdebug .byte ; "visual debug" flag ($00 - off, $ff - on)
|
||||
.zpvar xdraw .word ;= $64 ;variable X for plot
|
||||
.zpvar ydraw .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen)
|
||||
.zpvar xbyte .word
|
||||
.zpvar ybyte .word
|
||||
.zpvar CharCode .byte
|
||||
.zpvar fontind .word
|
||||
.zpvar tanknr .byte
|
||||
.zpvar TankSequencePointer .byte
|
||||
.zpvar oldplot .word
|
||||
.zpvar xc .word
|
||||
.zpvar temp .word ;temporary word for the most embeded loops only
|
||||
.zpvar temp2 .word ;same as above
|
||||
.zpvar modify .word ;origially used to replace self-modyfying code
|
||||
.zpvar tempXROLLER .word ;same as above for XROLLER routine (used also in result display routine)
|
||||
.zpvar xtempDRAW .word ;same as above for XDRAW routine
|
||||
.zpvar ytempDRAW .word ;same as above for XDRAW routine
|
||||
.zpvar tempor2 .word
|
||||
.zpvar CreditsVScrol .byte
|
||||
;--------------temps used in circle routine
|
||||
.zpvar xi .word ;X (word) in draw routine
|
||||
.zpvar fx .byte
|
||||
.zpvar yi .word ;Y (word) in draw routine
|
||||
.zpvar fy .byte
|
||||
.zpvar xk .word
|
||||
.zpvar fs .byte
|
||||
.zpvar yc .byte ;ycircle - temporary for circle
|
||||
.zpvar dx .word
|
||||
.zpvar dy .word
|
||||
.zpvar dd .word
|
||||
.zpvar di .word
|
||||
.zpvar dp .word
|
||||
;----------------------------
|
||||
.zpvar UnderTank1 .byte
|
||||
.zpvar UnderTank2 .byte
|
||||
;----------------------------
|
||||
.zpvar TestFlightFlag .byte ; For AI test flights ($ff - test, $00 - standard shoot flight)
|
||||
.zpvar weaponPointer .word
|
||||
.zpvar dliCounter .byte
|
||||
.zpvar pressTimer .byte
|
||||
.zpvar NTSCcounter .byte
|
||||
.zpvar IsEndOfTheFallFlag .byte ; for small speedup ground falling
|
||||
.zpvar sfx_effect .byte
|
||||
.zpvar RMT_blocked .byte
|
||||
.zpvar ScrollFlag .byte
|
||||
.zpvar SkStatSimulator .byte
|
||||
.zpvar FloatingAlt .byte ; floating tank altitude
|
||||
.zpvar OverTankDir .byte ; (0 go right, $ff go left) direction of bypassing tanks on screen
|
||||
|
||||
; --------------OPTIMIZATION VARIABLES--------------
|
||||
.zpvar Force .word
|
||||
.zpvar Force_ .byte ; Force is 3 bytes long
|
||||
.zpvar Angle .byte
|
||||
.zpvar Parachute .byte ; are you insured with parachute?
|
||||
.zpvar color .byte
|
||||
.zpvar Erase .byte ; if 1 only mask of the character is printed
|
||||
; on the graphics screen. if 0 character is printed normally
|
||||
.zpvar radius .byte
|
||||
.zpvar decimal .word
|
||||
.zpvar NumberOfPlayers .byte ;current number of players (counted from 1)
|
||||
.zpvar Counter .byte ;temporary Counter for outside loops
|
||||
.zpvar ExplosionRadius .byte
|
||||
.zpvar FunkyBombCounter .byte
|
||||
.zpvar ResultY .byte
|
||||
.zpvar xcircle .word
|
||||
.zpvar ycircle .word
|
||||
.zpvar vy .word
|
||||
.zpvar vy_ .word ; 4 bytes
|
||||
.zpvar vx .word
|
||||
.zpvar vx_ .word ; 4 bytes
|
||||
.zpvar HitFlag .byte ;$ff when missile hit ground, $00 when no hit, $01-$06 tank index+1 when hit tank
|
||||
.zpvar PositionOnTheList .byte ; pointer position on the list being displayed
|
||||
.zpvar XHit .word
|
||||
.zpvar delta .word
|
||||
.zpvar HowMuchToFall .byte
|
||||
.zpvar magic .word
|
||||
.zpvar xtraj .word
|
||||
.zpvar xtraj_ .byte ; 3 bytes
|
||||
.zpvar ytraj .word
|
||||
.zpvar ytraj_ .byte ; 3 bytes
|
||||
.zpvar Wind .word
|
||||
.zpvar Wind_ .word ; 4 bytes
|
||||
.zpvar RangeLeft .word
|
||||
.zpvar RangeRight .word
|
||||
.zpvar NewAngle .byte
|
||||
.zpvar escFlag .byte
|
||||
.zpvar LineYdraw .byte
|
||||
.zpvar LineXdraw .word
|
||||
.zpvar plot4x4color .byte ; $00 / $ff
|
||||
.zpvar Multiplier .word
|
||||
.zpvar Multiplier_ .byte ; 3 bytes
|
||||
.zpvar HowToDraw .byte
|
||||
.zpvar gravity .byte
|
||||
.zpvar LineLength .word
|
||||
.zpvar tracerflag .byte
|
||||
.zpvar isInventory .byte
|
||||
.zpvar DifficultyLevel .byte
|
||||
.zpvar goleft .byte
|
||||
.zpvar OffsetDL1 .byte
|
||||
.zpvar L1 .byte
|
||||
HotNapalmFlag = FunkyBombCounter ; reuse variable!
|
||||
;* RMT ZeroPage addresses in artwork/sfx/rmtplayr.a65
|
||||
|
||||
displayposition = modify
|
||||
LineAddress4x4 = xcircle
|
||||
|
||||
;-----------------------------------------------
|
||||
; libraries
|
||||
;-----------------------------------------------
|
||||
icl 'C64/lib/C64SYS.ASM'
|
||||
icl 'C64/lib/MACRO.ASM'
|
||||
|
||||
;-----------------------------------------------
|
||||
; variable declarations in RAM (no code)
|
||||
;-----------------------------------------------
|
||||
ORG PMGraph + $0300 - (variablesEnd - OneTimeZeroVariables + 1)
|
||||
icl 'variables.asm'
|
||||
|
||||
; Game loading address
|
||||
ORG $4000
|
||||
|
||||
WeaponFont
|
||||
ins 'artwork/weapons_AW6_mod.fnt' ; 'artwork/weapons.fnt'
|
||||
|
||||
|
||||
;--------------------------------------------------
|
||||
; Game Code
|
||||
;--------------------------------------------------
|
||||
FirstSTART
|
||||
jsr MakeDarkScreen
|
||||
|
||||
; one time zero variables in RAM (non zero page)
|
||||
lda #0
|
||||
ldy #OneTimeZeroVariablesCount-1
|
||||
@ sta OneTimeZeroVariables,y
|
||||
dey
|
||||
bpl @-
|
||||
|
||||
; one time zero variables in RAM (zero page)
|
||||
ldy #FirstZpageVariable
|
||||
@ sta $0000,y
|
||||
iny
|
||||
bne @-
|
||||
|
||||
; initialize variables in RAM (non zero page)
|
||||
ldy #initialvaluesCount-1
|
||||
@ lda initialvaluesStart,y
|
||||
sta variablesToInitialize,y
|
||||
dey
|
||||
bpl @-
|
||||
|
||||
; set gradient to the full LGBTIQQAAPP+ flag on start
|
||||
mva #0 GradientNr ; #1 to set gradient number 2 :) (next one)
|
||||
jsr SelectNextGradient.NotWind
|
||||
|
||||
; generate linetables
|
||||
jsr GenerateLineTable
|
||||
|
||||
|
||||
; RMT INIT
|
||||
lda #$f0 ;initial value
|
||||
sta RMTSFXVOLUME ;sfx note volume * 16 (0,16,32,...,240)
|
||||
|
||||
lda #$ff ;initial value
|
||||
sta sfx_effect
|
||||
|
||||
RMTSong 0
|
||||
|
||||
VMAIN VBLinterrupt,7 ;jsr SetVBL
|
||||
|
||||
mva #2 chactl ; necessary for 5200
|
||||
|
||||
;--------------------------------------------------
|
||||
; Main program of the game
|
||||
icl 'game.asm'
|
||||
;--------------------------------------------------
|
||||
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc GetKey
|
||||
; waits for pressing a key and returns pressed value in A
|
||||
; when [ESC] is pressed, escFlag is set
|
||||
; result: A=keycode
|
||||
;--------------------------------------------------
|
||||
jsr WaitForKeyRelease
|
||||
@
|
||||
.IF TARGET = 800
|
||||
lda SKSTAT
|
||||
cmp #$ff
|
||||
beq checkJoyGetKey ; key not pressed, check Joy
|
||||
cmp #$f7 ; SHIFT
|
||||
beq checkJoyGetKey
|
||||
.ELSE
|
||||
lda SkStatSimulator
|
||||
and #%11111110
|
||||
bne checkJoyGetKey ; key not pressed, check Joy
|
||||
.ENDIF
|
||||
lda kbcode
|
||||
cmp #@kbcode._none
|
||||
beq checkJoyGetKey
|
||||
and #$3f ;CTRL and SHIFT ellimination
|
||||
cmp #@kbcode._esc ; 28 ; ESC
|
||||
bne getkeyend
|
||||
mvy #$80 escFlag
|
||||
bne getkeyend
|
||||
|
||||
checkJoyGetKey
|
||||
;------------JOY-------------
|
||||
;happy happy joy joy
|
||||
;check for joystick now
|
||||
lda STICK0
|
||||
and #$0f
|
||||
cmp #$0f
|
||||
beq notpressedJoyGetKey
|
||||
tay
|
||||
lda joyToKeyTable,y
|
||||
bne getkeyend
|
||||
|
||||
notpressedJoyGetKey
|
||||
;fire
|
||||
lda STRIG0
|
||||
beq JoyButton
|
||||
.IF TARGET = 800 ; Select and Option key only on A800
|
||||
bne checkSelectKey
|
||||
checkSelectKey
|
||||
lda CONSOL
|
||||
and #%00000010 ; Select
|
||||
beq SelectPressed
|
||||
lda CONSOL
|
||||
and #%00000100 ; Option
|
||||
.ENDIF
|
||||
bne @-
|
||||
OptionPressed
|
||||
lda #@kbcode._atari ; Option key
|
||||
bne getkeyend
|
||||
SelectPressed
|
||||
lda #@kbcode._tab ; Select key
|
||||
bne getkeyend
|
||||
JoyButton
|
||||
lda #@kbcode._ret ;Return key
|
||||
getkeyend
|
||||
ldy #0
|
||||
sty ATRACT ; reset atract mode
|
||||
mvy #sfx_keyclick sfx_effect
|
||||
rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc getkeynowait
|
||||
;--------------------------------------------------
|
||||
jsr WaitForKeyRelease
|
||||
lda kbcode
|
||||
and #$3f ;CTRL and SHIFT ellimination
|
||||
rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc WaitForKeyRelease
|
||||
;--------------------------------------------------
|
||||
mva #128-KeyRepeatSpeed pressTimer ; tricky
|
||||
StillWait
|
||||
bit pressTimer
|
||||
bmi KeyReleased
|
||||
lda STICK0
|
||||
and #$0f
|
||||
cmp #$0f
|
||||
bne StillWait
|
||||
lda STRIG0
|
||||
beq StillWait
|
||||
.IF TARGET = 800
|
||||
lda SKSTAT
|
||||
cmp #$ff
|
||||
bne StillWait
|
||||
lda CONSOL
|
||||
and #%00000110 ; Select and Option only
|
||||
cmp #%00000110
|
||||
bne StillWait
|
||||
.ELSE
|
||||
lda SkStatSimulator
|
||||
and #%11111110
|
||||
beq StillWait
|
||||
.ENDIF
|
||||
KeyReleased
|
||||
rts
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc IsKeyPressed
|
||||
; result: A=0 - yes , A>0 - no
|
||||
;--------------------------------------------------
|
||||
lda SKSTAT
|
||||
and #%00000100
|
||||
beq @+
|
||||
lda #1
|
||||
@ and STRIG0
|
||||
rts
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc DemoModeOrKey
|
||||
; Waits for the key pressed if at least one human is playing.
|
||||
; Otherwise, waits 3 seconds (demo mode).
|
||||
;--------------------------------------------------
|
||||
;check demo mode
|
||||
ldx numberOfPlayers
|
||||
dex
|
||||
checkForHuman ; if all in skillTable other than 0 then switch to DEMO MODE
|
||||
lda skillTable,x
|
||||
beq peopleAreHere
|
||||
dex
|
||||
bpl checkForHuman
|
||||
; no people, just wait a bit
|
||||
;pause 150
|
||||
ldy #75
|
||||
jsr PauseYFrames
|
||||
rts
|
||||
peopleAreHere
|
||||
jmp getkey ; jsr:rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
MakeDarkScreen
|
||||
;--------------------------------------------------
|
||||
jsr PMoutofScreen ; hide P/M
|
||||
mva #0 dmactls ; dark screen
|
||||
; and wait one frame :)
|
||||
;--------------------------------------------------
|
||||
.proc WaitOneFrame
|
||||
;--------------------------------------------------
|
||||
lda CONSOL
|
||||
and #%00000101 ; Start + Option
|
||||
sne:mva #$40 escFlag
|
||||
and #%00000001 ; START KEY
|
||||
seq:wait ; or waitRTC ?
|
||||
rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc PauseYFrames
|
||||
; Y - number of frames to wait (divided by 2)
|
||||
; pauses for maximally 510 frames (255 * 2)
|
||||
;--------------------------------------------------
|
||||
@ jsr WaitOneFrame
|
||||
jsr WaitOneFrame
|
||||
dey
|
||||
bne @-
|
||||
rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc RmtSongSelect
|
||||
; starting song line 0-255 to A reg
|
||||
;--------------------------------------------------
|
||||
cmp #song_ingame
|
||||
bne noingame ; noMusic blocks only ingame song
|
||||
bit noMusic
|
||||
spl:lda #song_silencio
|
||||
noingame
|
||||
mvx #$ff RMT_blocked
|
||||
ldx #<MODUL ;low byte of RMT module to X reg
|
||||
ldy #>MODUL ;hi byte of RMT module to Y reg
|
||||
jsr RASTERMUSICTRACKER ;Init
|
||||
mva #0 RMT_blocked
|
||||
rts
|
||||
.endp
|
||||
;-------------------------------------------------
|
||||
.proc CopyFromROM
|
||||
;-------------------------------------------------
|
||||
;copy from CART to RAM
|
||||
; trashes: Y
|
||||
; temp: source
|
||||
; temp2: destination
|
||||
; modify: destination-end
|
||||
;usage:
|
||||
; mwa #DisplayCopyRom temp
|
||||
; mwa #display temp2
|
||||
; mwa #DisplayCopyEnd+1 modify
|
||||
; jsr CopyFromROM
|
||||
|
||||
ldy #0
|
||||
@ lda (temp),y
|
||||
sta (temp2),y
|
||||
inw temp
|
||||
inw temp2
|
||||
cpw temp2 modify
|
||||
bne @-
|
||||
rts
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
icl 'C64/interrupts.asm'
|
||||
;----------------------------------------------
|
||||
icl 'constants.asm'
|
||||
;----------------------------------------------
|
||||
icl 'C64/textproc.asm'
|
||||
;----------------------------------------------
|
||||
icl 'grafproc.asm'
|
||||
;----------------------------------------------
|
||||
icl 'weapons.asm'
|
||||
;----------------------------------------------
|
||||
icl 'ai.asm'
|
||||
;----------------------------------------------
|
||||
icl 'artwork/talk.asm'
|
||||
;----------------------------------------------
|
||||
TankFont
|
||||
ins 'artwork/tanksv4.fnt',+0,384 ; 48 characters only
|
||||
;----------------------------------------------
|
||||
font4x4
|
||||
ins 'artwork/font4x4s.bmp',+62
|
||||
;----------------------------------------------
|
||||
;RMT PLAYER loading shenaningans
|
||||
icl 'artwork/sfx/rmtplayr_modified.asm'
|
||||
;-------------------------------------------------
|
||||
.proc CheckTankCheat
|
||||
ldy #$07
|
||||
lda TankNr
|
||||
asl
|
||||
asl
|
||||
asl ; 8 chars per name
|
||||
tax
|
||||
@
|
||||
lda CheatName,y
|
||||
sec
|
||||
sbc tanksnames,x
|
||||
cmp #$27
|
||||
bne NoCheat
|
||||
inx
|
||||
dey
|
||||
bpl @-
|
||||
YesCheat
|
||||
ldx TankNr
|
||||
lda TanksWeaponsTableL,x
|
||||
sta temp
|
||||
lda TanksWeaponsTableH,x
|
||||
sta temp+1
|
||||
lda #99
|
||||
@ iny
|
||||
sta (temp),y
|
||||
cpy #(number_of_weapons - 1)
|
||||
bne @-
|
||||
NoCheat
|
||||
rts
|
||||
.endp
|
||||
CheatName
|
||||
dta d" 008.T"+$27
|
||||
;----------------------------------------------
|
||||
.proc DLIinterruptBFG
|
||||
pha
|
||||
lda dliCounter
|
||||
bne EndofBFGDLI
|
||||
lda dliColorsFore
|
||||
bit random
|
||||
bmi @+
|
||||
lda DliColorBack
|
||||
@ sta COLPF2
|
||||
lda dliColorsFore
|
||||
bit random
|
||||
bmi @+
|
||||
lda DliColorBack
|
||||
@ sta COLPF1
|
||||
EndofBFGDLI
|
||||
inc dliCounter
|
||||
pla
|
||||
rti
|
||||
.endp
|
||||
; ------------------------
|
||||
.proc BFGblink
|
||||
SetDLI DLIinterruptBFG ; blinking on
|
||||
ldy #50
|
||||
jsr PauseYFrames
|
||||
SetDLI DLIinterruptGraph ; blinking off
|
||||
rts
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.IF * > MODUL-1
|
||||
.ECHO *
|
||||
.ERROR 'Code and data too long'
|
||||
.ENDIF
|
||||
.ECHO "Bytes left: ",$b000-*
|
||||
|
||||
|
||||
org $b000 ;address of RMT module
|
||||
MODUL
|
||||
;RMT module is standard Atari binary file already
|
||||
ins "artwork/sfx/scorch_str9-NTSC.rmt",+6 ;include music RMT module
|
||||
MODULEND
|
||||
;----------------------------------------------
|
||||
icl 'constants_top.asm'
|
||||
;----------------------------------------------
|
||||
|
||||
.ECHO "Bytes on top left: ",$bfe8-* ;ROM_SETTINGS-*
|
||||
.IF target = 5200
|
||||
.IF * > ROM_SETTINGS-1
|
||||
.ERROR 'Code and RMT song too long to fit in 5200'
|
||||
.ENDIF
|
||||
org ROM_SETTINGS ; 5200 ROM settings address $bfe8
|
||||
; "01234567890123456789"
|
||||
.byte " scorch supersystem " ;20 characters title
|
||||
.byte " ", $ff ;$BFFD == $ff means diagnostic cart, no splash screen
|
||||
.word FirstSTART
|
||||
.ELSE
|
||||
run FirstSTART
|
||||
.ENDIF
|
||||
Reference in New Issue
Block a user