Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

smol edits + wip

Browse Source
This commit is contained in:
pkali
2023-08-26 09:44:47 -04:00
parent 8651e33619
commit d716e02e12
2 changed files with 126 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+12
View File
@@ -2065,6 +2065,18 @@ ybarrel
bpl @-
LDA TankColoursTable+4
STA COLOR3 ; joined missiles (5th tank)
rts
.endp
;--------------------------------------------------
.proc Lissajous
;--------------------------------------------------
; x = Asin(at + fi)
; y = Bsin(bt)
; center: xdraw, ydraw
rts
.endp
scorch.asm
+27 -33
View File
@@ -71,13 +71,13 @@ FirstZpageVariable = $51
.zpvar tempor2 .word
.zpvar CreditsVScrol .byte
;--------------temps used in circle routine
.zpvar xi .word ;X (word) in draw routine
.zpvar xi .word ; X (word) in draw routine
.zpvar fx .byte
.zpvar yi .word ;Y (word) in draw routine
.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 yc .byte ; ycircle - temporary for circle
.zpvar dx .word
.zpvar dy .word
.zpvar dd .word
@@ -110,8 +110,8 @@ FirstZpageVariable = $51
; 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 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
@@ -126,7 +126,7 @@ FirstZpageVariable = $51
.zpvar XHit .word
.zpvar delta .word
.zpvar HowMuchToFall .byte
.zpvar magic .word
.zpvar magic .word ; worst var name in the whole business
.zpvar xtraj .word
.zpvar xtraj_ .byte ; 3 bytes
.zpvar ytraj .word
@@ -153,10 +153,9 @@ FirstZpageVariable = $51
.zpvar OffsetDL1 .byte
.zpvar L1 .byte
HotNapalmFlag = FunkyBombCounter ; reuse variable!
;* RMT ZeroPage addresses in artwork/sfx/rmtplayr.a65
displayposition = modify
LineAddress4x4 = xcircle
;* RMT ZeroPage addresses in artwork/sfx/scorch_str9-NTSC.rmt
;-----------------------------------------------
; libraries
@@ -202,14 +201,13 @@ FirstZpageVariable = $51
_down = $08
_I = $09
_esc = $0a
_help = $0b ;Visual Debug in 5200
_del = $fc ;$0c ;not used in 5200
_help = $0b ; Visual Debug in 5200
_del = $fc ; $0c ;not used in 5200
_M = $0d
_S = $0e
_atari = $fd ; not used in 5200
_ret = $fd ; not used in 5200
_none = $0f
.ende
.ENDIF
@@ -251,7 +249,6 @@ StatusBufferCopyEnd
icl 'Atari/display_static.asm'
;----------------------------------------------
;--------------------------------------------------
; Game Code
@@ -341,7 +338,7 @@ no5200splash
.IF TARGET = 800
; pokeys init
lda #3 ; stereo
lda #3 ; stereo (pseudo)
sta POKEY+$0f ; stereo
sta POKEY+$1f ; stereo
@@ -372,20 +369,20 @@ NoRMT_PALchange
; RMT INIT
lda #$f0 ;initial value
sta RMTSFXVOLUME ;sfx note volume * 16 (0,16,32,...,240)
lda #$f0 ; initial value
sta RMTSFXVOLUME ; sfx note volume * 16 (0,16,32,...,240)
lda #$ff ;initial value
lda #$ff ; initial value
sta sfx_effect
RMTSong 0
.IF TARGET = 5200
mva #$0f STICK0
mva #$04 CONSOL5200 ;Speaker off, Pots enabled, port #1 selected
mwa #kb_continue VKEYCNT ;Keyboard handler
mva #$04 CONSOL5200 ; Speaker off, Pots enabled, port #1 selected
mwa #kb_continue VKEYCNT ; Keyboard handler
.ENDIF
VMAIN VBLinterrupt,7 ;jsr SetVBL
VMAIN VBLinterrupt,7 ; jsr SetVBL
mva #2 chactl ; necessary for 5200
@@ -490,7 +487,7 @@ Check2button
;--------------------------------------------------
jsr WaitForKeyRelease
lda kbcode
and #$3f ;CTRL and SHIFT ellimination
and #$3f ; CTRL and SHIFT ellimination
rts
.endp
@@ -659,9 +656,9 @@ noShellDelay
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
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
@@ -720,8 +717,7 @@ font4x4
asl
asl ; 8 chars per name
tax
@
lda CheatName,y
@ lda CheatName,y
sec
sbc tanksnames,x
cmp #$27
@@ -752,14 +748,12 @@ CheatName
bne EndofBFGDLI
lda dliColorsFore
bit random
bmi @+
lda DliColorBack
@ sta COLPF2
smi:lda DliColorBack
sta COLPF2
lda dliColorsFore
bit random
bmi @+
lda DliColorBack
@ sta COLPF1
smi:lda DliColorBack
sta COLPF1
EndofBFGDLI
inc dliCounter
pla
@@ -799,7 +793,7 @@ MODULEND
.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
.byte " scorch supersystem " ; 20 characters title
.byte " ", $ff ; $BFFD == $ff means diagnostic cart, no splash screen
.word FirstSTART
.ENDIF