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

unsignificants

Browse Source
This commit is contained in:
pkali
2023-09-03 14:28:20 -04:00
parent f701ef3227
commit 3a9e3f7155
2 changed files with 91 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+6 -20
View File
@@ -585,7 +585,7 @@ UnequalTanks
jsr PMoutofScreen jsr PMoutofScreen
mva #1 Erase ; erase tanks flag mva #1 Erase ; erase tanks flag
.endp .endp
;-- ;-------------------------------------------------
.proc drawtanks .proc drawtanks
;------------------------------------------------- ;-------------------------------------------------
lda TankNr lda TankNr
@@ -743,9 +743,8 @@ NoPlayerMissile
noTankNoPM noTankNoPM
ldy #$01 ldy #$01
lda Erase lda Erase
beq @+ seq:dey
dey sty color
@ sty color
; draw defensive weapons like shield ( tank number in X ) ; draw defensive weapons like shield ( tank number in X )
; in xdraw, ydraw we have coordinates left LOWER corner of Tank char ; in xdraw, ydraw we have coordinates left LOWER corner of Tank char
ldx TankNr ldx TankNr
@@ -786,9 +785,8 @@ NoShieldDraw
BarrelChange BarrelChange
ldy #$01 ldy #$01
lda Erase lda Erase
beq @+ seq:dey
dey sty color
@ sty color
jsr DrawBarrel jsr DrawBarrel
ldx TankNr ldx TankNr
DoNotDrawTankNr DoNotDrawTankNr
@@ -1596,8 +1594,7 @@ notZero
jsr _calc_inverse_display jsr _calc_inverse_display
; now find length of the text ; now find length of the text
@ @ iny
iny
lda (LineAddress4x4),y lda (LineAddress4x4),y
bpl @- bpl @-
iny iny
@@ -2067,17 +2064,6 @@ ybarrel
STA COLOR3 ; joined missiles (5th tank) STA COLOR3 ; joined missiles (5th tank)
rts rts
.endp .endp
;--------------------------------------------------
.proc Lissajous
;--------------------------------------------------
; x = Asin(at + fi)
; y = Bsin(bt)
; center: xdraw, ydraw
rts
.endp
.endif .endif
scorch.asm
+13 -24
View File
@@ -56,15 +56,19 @@ FirstZpageVariable = $51
.zpvar PaddleState .byte ; old state 2nd button for 2 buttons joysticks .zpvar PaddleState .byte ; old state 2nd button for 2 buttons joysticks
.zpvar GradientNr .byte .zpvar GradientNr .byte
.zpvar GradientColors .word .zpvar GradientColors .word
.zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn) .zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag
.zpvar RandomMountains .byte ; mountains type change after each turn flag - (0 - round only, >0 - each turn) ; (0 - round only, >0 - each turn)
.zpvar RandomMountains .byte ; mountains type change after each turn flag
; (0 - round only, >0 - each turn)
.zpvar FastSoilDown .byte ; 0 - standard, >0 - fast .zpvar FastSoilDown .byte ; 0 - standard, >0 - fast
.zpvar JoystickNumber .byte .zpvar JoystickNumber .byte
.zpvar LazyFlag .byte ; 7 bit - run Lazy Darwin, 6 bit - run Lazy Boy or Darwin (!) after inventory, 0 - nothing .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 SpyHardFlag .byte ; >$7f - run SpyHard after inventory
.zpvar Vdebug .byte ; "visual debug" flag ($00 - off, $ff - on) .zpvar Vdebug .byte ; "visual debug" flag ($00 - off, $ff - on)
.zpvar xdraw .word ; = $64 ;variable X for plot .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 ydraw .word ; variable Y for plot
; (like in Atari Basic - Y=0 in upper right corner of the screen)
.zpvar xbyte .word .zpvar xbyte .word
.zpvar ybyte .word .zpvar ybyte .word
.zpvar CharCode .byte .zpvar CharCode .byte
@@ -132,7 +136,8 @@ FirstZpageVariable = $51
.zpvar vy_ .word ; 4 bytes .zpvar vy_ .word ; 4 bytes
.zpvar vx .word .zpvar vx .word
.zpvar vx_ .word ; 4 bytes .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 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 PositionOnTheList .byte ; pointer position on the list being displayed
.zpvar XHit .word .zpvar XHit .word
.zpvar delta .word .zpvar delta .word
@@ -147,7 +152,8 @@ FirstZpageVariable = $51
.zpvar RangeLeft .word .zpvar RangeLeft .word
.zpvar RangeRight .word .zpvar RangeRight .word
.zpvar NewAngle .byte .zpvar NewAngle .byte
.zpvar escFlag .byte ; 7 bit - Exit game, 6 bit - Exit to GameOver (cleared - exit to Menu), 0 - nothing .zpvar escFlag .byte ; 7 bit - Exit game,
; 6 bit - Exit to GameOver (cleared - exit to Menu), 0 - nothing
.zpvar LineYdraw .byte .zpvar LineYdraw .byte
.zpvar LineXdraw .word .zpvar LineXdraw .word
.zpvar plot4x4color .byte ; $00 / $ff .zpvar plot4x4color .byte ; $00 / $ff
@@ -163,7 +169,7 @@ FirstZpageVariable = $51
.zpvar goleft .byte .zpvar goleft .byte
.zpvar OffsetDL1 .byte .zpvar OffsetDL1 .byte
.zpvar L1 .byte .zpvar L1 .byte
HotNapalmFlag = FunkyBombCounter ; reuse variable! HotNapalmFlag = FunkyBombCounter ; variable reuse!
displayposition = modify displayposition = modify
LineAddress4x4 = xcircle LineAddress4x4 = xcircle
;* RMT ZeroPage addresses in artwork/sfx/scorch_str9-NTSC.rmt ;* RMT ZeroPage addresses in artwork/sfx/scorch_str9-NTSC.rmt
@@ -184,23 +190,6 @@ FirstZpageVariable = $51
icl 'Atari/lib/5200SYS.ASM' icl 'Atari/lib/5200SYS.ASM'
icl 'Atari/lib/5200MACRO.ASM' icl 'Atari/lib/5200MACRO.ASM'
.enum @kbcode .enum @kbcode
/*
_0
_1
_2
_3
_4
_5
_6
_7
_8
_9
_asterisk = $0a
_hash = $0b
_start = $0c
_pause = $0d
_reset = $0e
*/
_space = $00 _space = $00
_Y = $01 _Y = $01
_up = $02 _up = $02