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

Minor optimizations

Browse Source
This commit is contained in:
Pecusx
2023-06-01 14:35:25 +02:00
parent 900cb9551a
commit e1f6cffcdc
6 changed files with 14 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+7 -14
View File
@@ -2078,26 +2078,19 @@ ybarrel
rts
.endp
;--------------------------------------------------
.proc ColorsOfSprites
.proc SetPMWidthAndColors
lda #%01010101
sta sizem ; all missiles, double width
ldy #3
@ lda TankColoursTable,y ; colours of sprites under tanks
sta PCOLR0,y
@ lda #$00
sta sizep0,y ; P0-P3 widths
lda TankColoursTable,y ; colours of sprites under tanks
sta PCOLR0,y
dey
bpl @-
LDA TankColoursTable+4
STA COLOR3 ; joined missiles (5th tank)
rts
.endp
;--------------------------------------------------
.proc SetPMWidth
lda #%01010101
sta sizem ; all missiles, double width
lda #$00
sta sizep0 ; P0-P3 widths
sta sizep0+1
sta sizep0+2
sta sizep0+3
rts
.endp
.endif