mirror of
https://github.com/pkali/scorch_src.git
synced 2026-05-20 22:34:21 +02:00
Code cleanup.
This commit is contained in:
Pecusx
+267
@@ -0,0 +1,267 @@
|
||||
; @com.wudsn.ide.asm.mainsourcefile=scorch.asm
|
||||
|
||||
.IF *>0 ;this is a trick that prevents compiling this file alone
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc DLIinterruptGraph
|
||||
pha
|
||||
phy
|
||||
ldy dliCounter
|
||||
lda dliColorsBack,y
|
||||
.IF TARGET = 800
|
||||
nop ; necessary on 800 because DLIs take less time, jitter visible without it
|
||||
nop
|
||||
nop
|
||||
.ENDIF
|
||||
nop
|
||||
nop
|
||||
sta COLPF1
|
||||
lda GradientNr
|
||||
bne GoGradient
|
||||
ldy #$ff ; one mauntain color
|
||||
GoGradient
|
||||
iny
|
||||
lda (GradientColors),y ; mountains colors array
|
||||
sta COLPF2
|
||||
inc dliCounter
|
||||
ply
|
||||
pla
|
||||
rti
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc DLIinterruptOptions
|
||||
pha
|
||||
phy
|
||||
lda #0 ; background color
|
||||
sta COLPF1
|
||||
ldy GradientNr
|
||||
beq @+
|
||||
ldy #1
|
||||
@ lda (GradientColors),y ; mountains colors array
|
||||
sta COLPF2
|
||||
ply
|
||||
pla
|
||||
rti
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc DLIinterruptGameOver
|
||||
pha
|
||||
phy
|
||||
lda dliCounter
|
||||
bne EndofPMG
|
||||
lda #%00100001 ; playfield after P/M - prior=1
|
||||
;STA WSYNC
|
||||
sta PRIOR
|
||||
bne EndOfDLI_GO
|
||||
EndofPMG
|
||||
cmp #1
|
||||
bne ColoredLines
|
||||
lda #%00100100 ; playfield before P/M
|
||||
;STA WSYNC
|
||||
sta PRIOR
|
||||
bne EndOfDLI_GO
|
||||
ColoredLines
|
||||
cmp #9
|
||||
beq CreditsScroll
|
||||
tay
|
||||
lda GameOverColoursTable-3,y ; -2 because this is DLI nr 2 and -1 (labels line)
|
||||
ldy #$0a ; text colour (brightnes)
|
||||
;STA WSYNC
|
||||
sta COLPF2
|
||||
sty COLPF1
|
||||
bne EndOfDLI_GO
|
||||
CreditsScroll
|
||||
lda #$00
|
||||
sta COLPF2
|
||||
EndOfDLI_GO
|
||||
inc dliCounter
|
||||
ply
|
||||
pla
|
||||
rti
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc DLIinterruptText
|
||||
pha
|
||||
lda dliCounter
|
||||
bne MoreBarsColorChange
|
||||
lda #TextBackgroundColor
|
||||
;sta WSYNC
|
||||
sta COLPF2
|
||||
mva #TextForegroundColor COLPF3
|
||||
bne EndOfDLI_Text
|
||||
MoreBarsColorChange
|
||||
and #%00000001
|
||||
rol
|
||||
sta COLPF2
|
||||
EndOfDLI_Text
|
||||
inc dliCounter
|
||||
pla
|
||||
DLIinterruptNone
|
||||
rti
|
||||
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc VBLinterrupt
|
||||
mva #0 dliCounter
|
||||
mva #$02 DliColorBack
|
||||
|
||||
lda PAL
|
||||
and #%00001110
|
||||
beq itsPAL
|
||||
;it is NTSC here
|
||||
dec NTSCcounter
|
||||
bne itsPAL
|
||||
mva #6 NTSCcounter
|
||||
bne SkippedIfNTSC ; skip doing VBL things each 6 frames in Amerika, Amerika
|
||||
; We're all living in Amerika, Coca Cola, Wonderbra
|
||||
|
||||
itsPAL
|
||||
; pressTimer is trigger tick counter. always 50 ticks / s
|
||||
bit:smi:inc pressTimer ; timer halted if >127. max time measured 2.5 s
|
||||
|
||||
SkippedIfNTSC
|
||||
|
||||
bit RMT_blocked
|
||||
bmi SkipRMTVBL
|
||||
; ------- RMT -------
|
||||
lda sfx_effect
|
||||
bmi lab2
|
||||
asl @ ; * 2
|
||||
tay ;Y = 2,4,..,16 instrument number * 2 (0,2,4,..,126)
|
||||
ldx #0 ;X = 0 channel (0..3 or 0..7 for stereo module)
|
||||
lda #0 ;A = 0 note (0..60)
|
||||
bit noSfx
|
||||
smi:jsr RASTERMUSICTRACKER+15 ;RMT_SFX start tone (It works only if FEAT_SFX is enabled !!!)
|
||||
|
||||
lda #$ff
|
||||
sta sfx_effect ;reinit value
|
||||
lab2
|
||||
jsr RASTERMUSICTRACKER+3 ;1 play
|
||||
; ------- RMT -------
|
||||
SkipRMTVBL
|
||||
bit ScrollFlag
|
||||
bpl EndOfCreditsVBI
|
||||
CreditsVBI
|
||||
inc CreditsVScrol
|
||||
lda CreditsVScrol
|
||||
cmp #32 ;not too fast
|
||||
beq nextlinedisplay
|
||||
:2 lsr ;not too fast
|
||||
sta VSCROL
|
||||
jmp EndOfCreditsVBI
|
||||
nextlinedisplay
|
||||
lda #0
|
||||
sta CreditsVScrol
|
||||
sta VSCROL
|
||||
clc
|
||||
lda DLCreditsAddr
|
||||
adc #40
|
||||
sta DLCreditsAddr
|
||||
bcc @+
|
||||
inc DLCreditsAddr+1
|
||||
@
|
||||
cmp #<CreditsLastLine
|
||||
bne EndOfCreditsVBI
|
||||
lda DLCreditsAddr+1
|
||||
cmp #>CreditsLastLine
|
||||
bne EndOfCreditsVBI
|
||||
; adw DLCreditsAddr #40
|
||||
; cpw DLCreditsAddr #CreditsLastLine
|
||||
; bne EndOfCreditsVBI
|
||||
mwa #Credits DLCreditsAddr
|
||||
EndOfCreditsVBI
|
||||
.IF TARGET = 5200
|
||||
lda SkStatSimulator
|
||||
bmi @+
|
||||
inc SkStatSimulator
|
||||
@
|
||||
lda JoystickNumber ; select port
|
||||
ora #%00000100 ; Speaker off, Pots enabled
|
||||
sta CONSOL5200
|
||||
|
||||
center = 114 ;Read analog stick and make it look like a digital stick
|
||||
threshold = 60
|
||||
|
||||
lda JoystickNumber
|
||||
asl
|
||||
tax
|
||||
lda paddl0,x ;Read POT0 value (horizontal position)
|
||||
cmp #center+threshold ;Compare with right threshold
|
||||
rol stick0 ;Feed carry into digital stick value
|
||||
cmp #center-threshold ;Compare with left threshold
|
||||
rol stick0 ;Feed carry into digital stick value
|
||||
|
||||
lda paddl1,x ;Read POT1 value (vertical position)
|
||||
cmp #center+threshold ;Compare with down threshold
|
||||
rol stick0 ;Feed carry into digital stick value
|
||||
cmp #center-threshold ;Compare with down threshold
|
||||
rol stick0 ;Feed carry into digital stick value
|
||||
|
||||
lda stick0 ;0 indicates a press so the right/down values need to be inverted
|
||||
eor #2+8
|
||||
and #$0f
|
||||
sta stick0
|
||||
|
||||
ldx JoystickNumber
|
||||
; check shift key (5200 second fire button)
|
||||
lda SKSTAT
|
||||
:3 lsr ; third bit
|
||||
and trig0,x ; and first button
|
||||
;lda trig0,x
|
||||
sta strig0 ;Move hardware to shadow
|
||||
|
||||
mva chbas chbase
|
||||
|
||||
lda skstat ;Reset consol key shadow is no key is pressed anymore
|
||||
and #4
|
||||
beq @+
|
||||
mva #consol_reset consol
|
||||
mva #@kbcode._none kbcode
|
||||
@
|
||||
|
||||
pla
|
||||
tay
|
||||
pla
|
||||
tax
|
||||
pla
|
||||
rti
|
||||
.ELSE
|
||||
; support for joysticks :)
|
||||
ldx JoystickNumber
|
||||
lda STICK0,x
|
||||
sta STICK0
|
||||
lda STRIG0,x
|
||||
sta STRIG0
|
||||
jmp XITVBV
|
||||
.ENDIF
|
||||
.endp
|
||||
.IF TARGET = 5200
|
||||
.proc kb_continue
|
||||
sta kbcode ;Store key code in shadow.
|
||||
mva #0 SkStatSimulator
|
||||
exit pla
|
||||
tay
|
||||
pla
|
||||
tax
|
||||
pla
|
||||
rti
|
||||
.endp
|
||||
.ENDIF
|
||||
|
||||
;--------------------------------------------------
|
||||
.macro SetDLI
|
||||
; SetDLI #WORD
|
||||
; Initialises Display List Interrupts
|
||||
LDY # <:1
|
||||
LDX # >:1
|
||||
jsr _SetDLIproc
|
||||
.endm
|
||||
.proc _SetDLIproc
|
||||
LDA #$C0
|
||||
STY VDSLST
|
||||
STX VDSLST+1
|
||||
STA NMIEN
|
||||
rts
|
||||
.endp
|
||||
|
||||
.ENDIF
|
||||
Reference in New Issue
Block a user