mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 21:34:20 +02:00
Second POKEY init (for ingame music)
And cleanup
This commit is contained in:
Pecusx
@@ -1,877 +0,0 @@
|
|||||||
/***************************************/
|
|
||||||
/* Use MADS http://mads.atari8.info/ */
|
|
||||||
/* Mode: DLI (char mode) */
|
|
||||||
/***************************************/
|
|
||||||
|
|
||||||
;icl "Scorch50.h"
|
|
||||||
;icl "../lib/ATARISYS.ASM"
|
|
||||||
;icl "../lib/macro.hea"
|
|
||||||
|
|
||||||
; --- dmsc LZSS player routine on zero page
|
|
||||||
org $80
|
|
||||||
|
|
||||||
chn_copy .ds 9
|
|
||||||
chn_pos .ds 9
|
|
||||||
bptr .ds 2
|
|
||||||
cur_pos .ds 1
|
|
||||||
chn_bits .ds 1
|
|
||||||
|
|
||||||
bit_data .ds 1
|
|
||||||
|
|
||||||
fcnt .ds 2
|
|
||||||
fadr .ds 2
|
|
||||||
fhlp .ds 2
|
|
||||||
cloc .ds 1
|
|
||||||
regA .ds 1
|
|
||||||
regX .ds 1
|
|
||||||
regY .ds 1
|
|
||||||
|
|
||||||
WIDTH = 40
|
|
||||||
HEIGHT = 30
|
|
||||||
|
|
||||||
; --- BASIC switch OFF
|
|
||||||
org $2000\ mva #$ff portb\ rts\ ini $2000
|
|
||||||
|
|
||||||
; --- MAIN PROGRAM
|
|
||||||
org $2000
|
|
||||||
ant dta $C2,a(scr)
|
|
||||||
dta $02,$82,$02,$02,$82,$02,$82,$02,$82,$02,$02,$02,$82,$02,$82,$82
|
|
||||||
dta $02,$02,$82,$02,$02,$82,$02,$02,$82,$82,$02,$82,$22
|
|
||||||
;dta $42,a(verline)
|
|
||||||
dta $41,a(ant)
|
|
||||||
|
|
||||||
;verline
|
|
||||||
; :37 dta d" "
|
|
||||||
; dta build
|
|
||||||
|
|
||||||
scr ins "Scorch50.scr"
|
|
||||||
|
|
||||||
.ds 0*40
|
|
||||||
|
|
||||||
.ALIGN $0400
|
|
||||||
fnt ins "Scorch50.fnt"
|
|
||||||
|
|
||||||
ift USESPRITES
|
|
||||||
.ALIGN $0800
|
|
||||||
pmg .ds $0300
|
|
||||||
ift FADECHR = 0
|
|
||||||
SPRITES
|
|
||||||
els
|
|
||||||
.ds $500
|
|
||||||
eif
|
|
||||||
eif
|
|
||||||
|
|
||||||
|
|
||||||
song_data
|
|
||||||
ins 'mmm_16.lzs'
|
|
||||||
song_end
|
|
||||||
|
|
||||||
buffers
|
|
||||||
.ds 256 * 9
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
; Song Initialization - this runs in the first tick:
|
|
||||||
;
|
|
||||||
.proc init_song
|
|
||||||
|
|
||||||
mva #1 bit_data
|
|
||||||
|
|
||||||
; Example: here initializes song pointer:
|
|
||||||
|
|
||||||
;mwa #song_data song_ptr
|
|
||||||
|
|
||||||
; Init all channels:
|
|
||||||
ldx #8
|
|
||||||
ldy #0
|
|
||||||
clear
|
|
||||||
; Read just init value and store into buffer and POKEY
|
|
||||||
jsr get_byte
|
|
||||||
sta POKEY, x
|
|
||||||
sty chn_copy, x
|
|
||||||
cbuf
|
|
||||||
sta buffers + 255
|
|
||||||
inc cbuf + 2
|
|
||||||
dex
|
|
||||||
bpl clear
|
|
||||||
|
|
||||||
; Initialize buffer pointer:
|
|
||||||
sty bptr
|
|
||||||
sty cur_pos
|
|
||||||
rts
|
|
||||||
.endp
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
; Wait for next frame
|
|
||||||
;
|
|
||||||
.proc wait_frame
|
|
||||||
|
|
||||||
lda 20
|
|
||||||
delay
|
|
||||||
cmp 20
|
|
||||||
beq delay
|
|
||||||
.endp
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
; Play one frame of the song
|
|
||||||
;
|
|
||||||
.proc play_frame
|
|
||||||
lda #>buffers
|
|
||||||
sta bptr+1
|
|
||||||
|
|
||||||
lda song_data
|
|
||||||
sta chn_bits
|
|
||||||
ldx #8
|
|
||||||
|
|
||||||
; Loop through all "channels", one for each POKEY register
|
|
||||||
chn_loop:
|
|
||||||
lsr chn_bits
|
|
||||||
bcs skip_chn ; C=1 : skip this channel
|
|
||||||
|
|
||||||
lda chn_copy, x ; Get status of this stream
|
|
||||||
bne do_copy_byte ; If > 0 we are copying bytes
|
|
||||||
|
|
||||||
; We are decoding a new match/literal
|
|
||||||
lsr bit_data ; Get next bit
|
|
||||||
bne got_bit
|
|
||||||
jsr get_byte ; Not enough bits, refill!
|
|
||||||
ror ; Extract a new bit and add a 1 at the high bit (from C set above)
|
|
||||||
sta bit_data ;
|
|
||||||
got_bit:
|
|
||||||
jsr get_byte ; Always read a byte, it could mean "match size/offset" or "literal byte"
|
|
||||||
bcs store ; Bit = 1 is "literal", bit = 0 is "match"
|
|
||||||
|
|
||||||
sta chn_pos, x ; Store in "copy pos"
|
|
||||||
|
|
||||||
jsr get_byte
|
|
||||||
sta chn_copy, x ; Store in "copy length"
|
|
||||||
|
|
||||||
; And start copying first byte
|
|
||||||
do_copy_byte:
|
|
||||||
dec chn_copy, x ; Decrease match length, increase match position
|
|
||||||
inc chn_pos, x
|
|
||||||
ldy chn_pos, x
|
|
||||||
|
|
||||||
; Now, read old data, jump to data store
|
|
||||||
lda (bptr), y
|
|
||||||
|
|
||||||
store:
|
|
||||||
ldy cur_pos
|
|
||||||
sta POKEY, x ; Store to output and buffer
|
|
||||||
sta (bptr), y
|
|
||||||
|
|
||||||
skip_chn:
|
|
||||||
; Increment channel buffer pointer
|
|
||||||
inc bptr+1
|
|
||||||
|
|
||||||
dex
|
|
||||||
bpl chn_loop ; Next channel
|
|
||||||
|
|
||||||
inc cur_pos
|
|
||||||
.endp
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
; Check for ending of song and jump to the next frame
|
|
||||||
;
|
|
||||||
|
|
||||||
; not checking really so the tune gets funky :)))
|
|
||||||
;lda song_ptr + 1
|
|
||||||
;cmp #>song_end
|
|
||||||
;bne wait_frame
|
|
||||||
;lda song_ptr
|
|
||||||
;cmp #<song_end
|
|
||||||
;bne wait_frame
|
|
||||||
|
|
||||||
end_loop
|
|
||||||
rts
|
|
||||||
|
|
||||||
song_ptr = get_byte + 1
|
|
||||||
.proc get_byte
|
|
||||||
lda song_data+1
|
|
||||||
inc song_ptr
|
|
||||||
bne skip
|
|
||||||
inc song_ptr+1
|
|
||||||
skip
|
|
||||||
rts
|
|
||||||
.endp
|
|
||||||
|
|
||||||
|
|
||||||
main
|
|
||||||
|
|
||||||
jsr init_song
|
|
||||||
|
|
||||||
; ; copy system font to $a000
|
|
||||||
; ldx #0
|
|
||||||
;@ lda $e000,x
|
|
||||||
; sta $a000,x
|
|
||||||
; ;lda $e100,x ; i need digits only :]
|
|
||||||
; ;sta $a100,x
|
|
||||||
; ;lda $e200,x
|
|
||||||
; ;sta $a200,x
|
|
||||||
; ;lda $e300,x
|
|
||||||
; ;sta $a300,x
|
|
||||||
; inx
|
|
||||||
; bne @-
|
|
||||||
|
|
||||||
; --- init PMG
|
|
||||||
|
|
||||||
ift USESPRITES
|
|
||||||
mva >pmg pmbase ;missiles and players data address
|
|
||||||
mva #$03 GRACTL ;enable players and missiles
|
|
||||||
eif
|
|
||||||
|
|
||||||
lda:cmp:req $14 ;wait 1 frame
|
|
||||||
|
|
||||||
sei ;stop IRQ interrupts
|
|
||||||
mva #$00 nmien ;stop NMI interrupts
|
|
||||||
sta dmactl
|
|
||||||
;mva #$fe portb ;switch off ROM to get 16k more ram
|
|
||||||
|
|
||||||
;mwa #NMI $fffa ;new NMI handler
|
|
||||||
|
|
||||||
sta COLOR4
|
|
||||||
lda #$0E
|
|
||||||
sta COLOR1
|
|
||||||
lda #$84
|
|
||||||
sta COLOR2
|
|
||||||
lda #$0E
|
|
||||||
sta COLOR3
|
|
||||||
lda #$02
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
VMAIN NMI.vbl,6 ;jsr SetVBL
|
|
||||||
VDLI DLI.dli_start
|
|
||||||
|
|
||||||
|
|
||||||
mva #1 vscrol
|
|
||||||
|
|
||||||
mva #$c0 nmien ;switch on NMI+DLI again
|
|
||||||
|
|
||||||
_lp lda trig0 ; FIRE #0
|
|
||||||
beq stop
|
|
||||||
|
|
||||||
lda trig1 ; FIRE #1
|
|
||||||
beq stop
|
|
||||||
|
|
||||||
lda consol ; START
|
|
||||||
and #1
|
|
||||||
beq stop
|
|
||||||
|
|
||||||
lda skctl
|
|
||||||
and #$04
|
|
||||||
bne _lp ;wait to press any key; here you can put any own routine
|
|
||||||
|
|
||||||
|
|
||||||
stop
|
|
||||||
|
|
||||||
cli
|
|
||||||
vmain sysvbv,6
|
|
||||||
|
|
||||||
mva #$00 GRACTL ;PMG disabled
|
|
||||||
tax
|
|
||||||
sta:rne hposp0,x+
|
|
||||||
|
|
||||||
;mva #$ff portb ;ROM switch on
|
|
||||||
mva #$40 nmien ;only NMI interrupts, DLI disabled
|
|
||||||
;cli ;IRQ enabled
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
ldx #8
|
|
||||||
@ sta POKEY,x
|
|
||||||
dex
|
|
||||||
bpl @-
|
|
||||||
|
|
||||||
|
|
||||||
;no glitching please (issue #67)
|
|
||||||
lda #0
|
|
||||||
sta $D400 ;dmactl
|
|
||||||
sta $022F ;dmactls
|
|
||||||
rts ;return to ... DOS
|
|
||||||
|
|
||||||
; --- DLI PROGRAM
|
|
||||||
|
|
||||||
.local DLI
|
|
||||||
|
|
||||||
?old_dli = *
|
|
||||||
|
|
||||||
dli_start
|
|
||||||
|
|
||||||
dli13
|
|
||||||
sta regA
|
|
||||||
|
|
||||||
sta wsync ;line=8
|
|
||||||
sta wsync ;line=9
|
|
||||||
sta wsync ;line=10
|
|
||||||
sta wsync ;line=11
|
|
||||||
sta wsync ;line=12
|
|
||||||
sta wsync ;line=13
|
|
||||||
c9 lda #$14
|
|
||||||
sta wsync ;line=14
|
|
||||||
sta colpm3
|
|
||||||
DLINEW DLI.dli2 1 0 0
|
|
||||||
|
|
||||||
dli2
|
|
||||||
sta regA
|
|
||||||
lda >fnt+$400*$01
|
|
||||||
sta wsync ;line=24
|
|
||||||
sta chbase
|
|
||||||
DLINEW dli3 1 0 0
|
|
||||||
|
|
||||||
dli3
|
|
||||||
sta regA
|
|
||||||
lda >fnt+$400*$02
|
|
||||||
sta wsync ;line=48
|
|
||||||
sta chbase
|
|
||||||
sta wsync ;line=49
|
|
||||||
sta wsync ;line=50
|
|
||||||
sta wsync ;line=51
|
|
||||||
s3 lda #$07
|
|
||||||
sta wsync ;line=52
|
|
||||||
sta sizem
|
|
||||||
DLINEW dli14 1 0 0
|
|
||||||
|
|
||||||
dli14
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
sty regY
|
|
||||||
|
|
||||||
x8 lda #$A3
|
|
||||||
sta wsync ;line=64
|
|
||||||
sta hposp3
|
|
||||||
x9 lda #$AB
|
|
||||||
sta wsync ;line=65
|
|
||||||
sta hposm3
|
|
||||||
sta wsync ;line=66
|
|
||||||
sta wsync ;line=67
|
|
||||||
sta wsync ;line=68
|
|
||||||
sta wsync ;line=69
|
|
||||||
sta wsync ;line=70
|
|
||||||
s4 lda #$13
|
|
||||||
x10 ldx #$A6
|
|
||||||
sta wsync ;line=71
|
|
||||||
sta sizem
|
|
||||||
stx hposm2
|
|
||||||
s5 lda #$01
|
|
||||||
x11 ldx #$72
|
|
||||||
x12 ldy #$62
|
|
||||||
sta wsync ;line=72
|
|
||||||
sta sizep2
|
|
||||||
sta sizep3
|
|
||||||
stx hposp2
|
|
||||||
sty hposp3
|
|
||||||
x13 lda #$A9
|
|
||||||
sta wsync ;line=73
|
|
||||||
sta hposp1
|
|
||||||
DLINEW dli4 1 1 1
|
|
||||||
|
|
||||||
dli4
|
|
||||||
sta regA
|
|
||||||
lda >fnt+$400*$03
|
|
||||||
sta wsync ;line=80
|
|
||||||
sta chbase
|
|
||||||
DLINEW dli5 1 0 0
|
|
||||||
|
|
||||||
dli5
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
lda >fnt+$400*$04
|
|
||||||
sta wsync ;line=112
|
|
||||||
sta chbase
|
|
||||||
sta wsync ;line=113
|
|
||||||
sta wsync ;line=114
|
|
||||||
sta wsync ;line=115
|
|
||||||
sta wsync ;line=116
|
|
||||||
sta wsync ;line=117
|
|
||||||
sta wsync ;line=118
|
|
||||||
s6 lda #$07
|
|
||||||
x14 ldx #$A3
|
|
||||||
sta wsync ;line=119
|
|
||||||
sta sizem
|
|
||||||
stx hposm1
|
|
||||||
s7 lda #$01
|
|
||||||
x15 ldx #$93
|
|
||||||
sta wsync ;line=120
|
|
||||||
sta sizep1
|
|
||||||
stx hposp1
|
|
||||||
DLINEW dli15 1 1 0
|
|
||||||
|
|
||||||
dli15
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
|
|
||||||
sta wsync ;line=128
|
|
||||||
sta wsync ;line=129
|
|
||||||
sta wsync ;line=130
|
|
||||||
sta wsync ;line=131
|
|
||||||
x16 lda #$4A
|
|
||||||
sta wsync ;line=132
|
|
||||||
sta hposp1
|
|
||||||
c10 lda #$D4
|
|
||||||
sta wsync ;line=133
|
|
||||||
sta colpf2
|
|
||||||
s8 lda #$C3
|
|
||||||
x17 ldx #$5A
|
|
||||||
sta wsync ;line=134
|
|
||||||
sta sizem
|
|
||||||
stx hposm3
|
|
||||||
DLINEW dli6 1 1 0
|
|
||||||
|
|
||||||
dli6
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
sty regY
|
|
||||||
lda >fnt+$400*$05
|
|
||||||
sta wsync ;line=136
|
|
||||||
sta chbase
|
|
||||||
sta wsync ;line=137
|
|
||||||
sta wsync ;line=138
|
|
||||||
sta wsync ;line=139
|
|
||||||
sta wsync ;line=140
|
|
||||||
sta wsync ;line=141
|
|
||||||
sta wsync ;line=142
|
|
||||||
s9 lda #$C7
|
|
||||||
x18 ldx #$A9
|
|
||||||
sta wsync ;line=143
|
|
||||||
sta sizem
|
|
||||||
stx hposm1
|
|
||||||
s10 lda #$D7
|
|
||||||
x19 ldx #$9E
|
|
||||||
c11 ldy #$02
|
|
||||||
sta wsync ;line=144
|
|
||||||
sta sizem
|
|
||||||
stx hposm2
|
|
||||||
sty colpm2
|
|
||||||
sta wsync ;line=145
|
|
||||||
c12 lda #$04
|
|
||||||
sta wsync ;line=146
|
|
||||||
sta colpm1
|
|
||||||
sta wsync ;line=147
|
|
||||||
sta wsync ;line=148
|
|
||||||
sta wsync ;line=149
|
|
||||||
s11 lda #$00
|
|
||||||
x20 ldx #$74
|
|
||||||
c13 ldy #$02
|
|
||||||
sta wsync ;line=150
|
|
||||||
sta sizep3
|
|
||||||
stx hposp3
|
|
||||||
sty colpm3
|
|
||||||
sta wsync ;line=151
|
|
||||||
sta wsync ;line=152
|
|
||||||
sta wsync ;line=153
|
|
||||||
sta wsync ;line=154
|
|
||||||
sta wsync ;line=155
|
|
||||||
sta wsync ;line=156
|
|
||||||
sta wsync ;line=157
|
|
||||||
c14 lda #$04
|
|
||||||
sta wsync ;line=158
|
|
||||||
sta colpf0
|
|
||||||
DLINEW dli7 1 1 1
|
|
||||||
|
|
||||||
dli7
|
|
||||||
sta regA
|
|
||||||
lda >fnt+$400*$06
|
|
||||||
sta wsync ;line=160
|
|
||||||
sta chbase
|
|
||||||
DLINEW dli8 1 0 0
|
|
||||||
|
|
||||||
dli8
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
sty regY
|
|
||||||
lda >fnt+$400*$07
|
|
||||||
sta wsync ;line=184
|
|
||||||
sta chbase
|
|
||||||
sta wsync ;line=185
|
|
||||||
s12 lda #$00
|
|
||||||
x21 ldx #$8E
|
|
||||||
c15 ldy #$08
|
|
||||||
sta wsync ;line=186
|
|
||||||
sta sizep2
|
|
||||||
stx hposp2
|
|
||||||
sty colpm2
|
|
||||||
x22 lda #$4C
|
|
||||||
c16 ldx #$0E
|
|
||||||
sta wsync ;line=187
|
|
||||||
sta hposp3
|
|
||||||
stx colpm3
|
|
||||||
c17 lda #$0A
|
|
||||||
c18 ldx #$34
|
|
||||||
sta wsync ;line=188
|
|
||||||
sta colpf1
|
|
||||||
stx colpm3
|
|
||||||
s13 lda #$43
|
|
||||||
x23 ldx #$49
|
|
||||||
sta wsync ;line=189
|
|
||||||
sta sizem
|
|
||||||
stx hposm3
|
|
||||||
c19 lda #$08
|
|
||||||
c20 ldx #$34
|
|
||||||
sta wsync ;line=190
|
|
||||||
sta colpf1
|
|
||||||
stx colpm2
|
|
||||||
sta wsync ;line=191
|
|
||||||
c21 lda #$0A
|
|
||||||
sta wsync ;line=192
|
|
||||||
sta colpf1
|
|
||||||
c22 lda #$08
|
|
||||||
sta wsync ;line=193
|
|
||||||
sta colpf1
|
|
||||||
c23 lda #$0A
|
|
||||||
sta wsync ;line=194
|
|
||||||
sta colpf1
|
|
||||||
c24 lda #$34
|
|
||||||
sta wsync ;line=195
|
|
||||||
sta colpf2
|
|
||||||
c25 lda #$0C
|
|
||||||
sta wsync ;line=196
|
|
||||||
sta colpf1
|
|
||||||
c26 lda #$0A
|
|
||||||
sta wsync ;line=197
|
|
||||||
sta colpf1
|
|
||||||
c27 lda #$0C
|
|
||||||
sta wsync ;line=198
|
|
||||||
sta colpf1
|
|
||||||
sta wsync ;line=199
|
|
||||||
sta wsync ;line=200
|
|
||||||
c28 lda #$0E
|
|
||||||
sta wsync ;line=201
|
|
||||||
sta colpf1
|
|
||||||
c29 lda #$0C
|
|
||||||
sta wsync ;line=202
|
|
||||||
sta colpf1
|
|
||||||
c30 lda #$0E
|
|
||||||
sta wsync ;line=203
|
|
||||||
sta colpf1
|
|
||||||
c31 lda #$0C
|
|
||||||
sta wsync ;line=204
|
|
||||||
sta colpf1
|
|
||||||
c32 lda #$0E
|
|
||||||
sta wsync ;line=205
|
|
||||||
sta colpf1
|
|
||||||
DLINEW dli16 1 1 1
|
|
||||||
|
|
||||||
dli16
|
|
||||||
sta regA
|
|
||||||
|
|
||||||
sta wsync ;line=208
|
|
||||||
sta wsync ;line=209
|
|
||||||
c33 lda #$0C
|
|
||||||
sta wsync ;line=210
|
|
||||||
sta colpf1
|
|
||||||
c34 lda #$0E
|
|
||||||
sta wsync ;line=211
|
|
||||||
sta colpf1
|
|
||||||
c35 lda #$0C
|
|
||||||
sta wsync ;line=212
|
|
||||||
sta colpf1
|
|
||||||
DLINEW dli9 1 0 0
|
|
||||||
|
|
||||||
dli9
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
sty regY
|
|
||||||
lda >fnt+$400*$08
|
|
||||||
c36 ldx #$0A
|
|
||||||
sta wsync ;line=216
|
|
||||||
sta chbase
|
|
||||||
stx colpf1
|
|
||||||
c37 lda #$0C
|
|
||||||
sta wsync ;line=217
|
|
||||||
sta colpf1
|
|
||||||
c38 lda #$0A
|
|
||||||
x24 ldx #$9D
|
|
||||||
c39 ldy #$34
|
|
||||||
sta wsync ;line=218
|
|
||||||
sta colpf1
|
|
||||||
stx hposm1
|
|
||||||
sty colpm1
|
|
||||||
s14 lda #$03
|
|
||||||
x25 ldx #$7D
|
|
||||||
sta wsync ;line=219
|
|
||||||
sta sizep3
|
|
||||||
stx hposp3
|
|
||||||
c40 lda #$08
|
|
||||||
s15 ldx #$13
|
|
||||||
x26 ldy #$45
|
|
||||||
sta wsync ;line=220
|
|
||||||
sta colpf1
|
|
||||||
stx sizem
|
|
||||||
sty hposm2
|
|
||||||
s16 lda #$03
|
|
||||||
x27 ldx #$59
|
|
||||||
sta wsync ;line=221
|
|
||||||
sta sizep2
|
|
||||||
stx hposp2
|
|
||||||
s17 lda #$53
|
|
||||||
x28 ldx #$49
|
|
||||||
x29 ldy #$79
|
|
||||||
sta wsync ;line=222
|
|
||||||
sta sizem
|
|
||||||
stx hposp1
|
|
||||||
sty hposm3
|
|
||||||
c41 lda #$06
|
|
||||||
c42 ldx #$00
|
|
||||||
sta wsync ;line=223
|
|
||||||
sta colpf1
|
|
||||||
stx colpf2
|
|
||||||
lda >fnt+$400*$01
|
|
||||||
s18 ldx #$50
|
|
||||||
x30 ldy #$44
|
|
||||||
sta wsync ;line=224
|
|
||||||
sta chbase
|
|
||||||
stx sizem
|
|
||||||
sty hposm0
|
|
||||||
sta wsync ;line=225
|
|
||||||
c43 lda #$08
|
|
||||||
sta wsync ;line=226
|
|
||||||
sta colpf1
|
|
||||||
c44 lda #$0C
|
|
||||||
sta wsync ;line=227
|
|
||||||
sta colpf1
|
|
||||||
sta wsync ;line=228
|
|
||||||
sta wsync ;line=229
|
|
||||||
c45 lda #$0E
|
|
||||||
sta wsync ;line=230
|
|
||||||
sta colpf1
|
|
||||||
DLINEW dli10 1 1 1
|
|
||||||
|
|
||||||
dli10
|
|
||||||
sta regA
|
|
||||||
lda >fnt+$400*$00
|
|
||||||
sta wsync ;line=232
|
|
||||||
sta chbase
|
|
||||||
;DLINEW dli11 1 0 0
|
|
||||||
|
|
||||||
lda regA
|
|
||||||
rti
|
|
||||||
|
|
||||||
;dli11
|
|
||||||
; sta regA
|
|
||||||
;
|
|
||||||
; lda #>$a000 ; system font
|
|
||||||
; sta wsync ;line=232
|
|
||||||
; sta chbase
|
|
||||||
; lda #$01
|
|
||||||
; sta gtictl
|
|
||||||
;
|
|
||||||
; lda regA
|
|
||||||
; rti
|
|
||||||
|
|
||||||
|
|
||||||
.endl
|
|
||||||
|
|
||||||
; ---
|
|
||||||
|
|
||||||
CHANGES = 1
|
|
||||||
FADECHR = 0
|
|
||||||
|
|
||||||
SCHR = 127
|
|
||||||
|
|
||||||
dliv = $0200
|
|
||||||
|
|
||||||
; ---
|
|
||||||
|
|
||||||
.proc NMI
|
|
||||||
|
|
||||||
bit nmist
|
|
||||||
bpl VBL
|
|
||||||
|
|
||||||
jmp DLI.dli_start
|
|
||||||
|
|
||||||
|
|
||||||
VBL
|
|
||||||
sta regA
|
|
||||||
stx regX
|
|
||||||
sty regY
|
|
||||||
|
|
||||||
;sta nmist ;reset NMI flag
|
|
||||||
|
|
||||||
mwa #ant dlptr ;ANTIC address program
|
|
||||||
|
|
||||||
mva #@dmactl(standard|dma|lineX1|players|missiles) dmactl ;set new screen width
|
|
||||||
|
|
||||||
inc cloc ;little timer
|
|
||||||
|
|
||||||
; Initial values
|
|
||||||
|
|
||||||
lda >fnt+$400*$00
|
|
||||||
sta chbase
|
|
||||||
c0 lda #$00
|
|
||||||
sta colbak
|
|
||||||
c1 lda #$0E
|
|
||||||
sta colpf1
|
|
||||||
c2 lda #$84
|
|
||||||
sta colpf2
|
|
||||||
c3 lda #$0E
|
|
||||||
sta colpf3
|
|
||||||
lda #$02
|
|
||||||
sta CHACTL
|
|
||||||
lda #$01
|
|
||||||
sta PRIOR
|
|
||||||
sta sizep0
|
|
||||||
s0 lda #$03
|
|
||||||
sta sizem
|
|
||||||
x0 lda #$D0
|
|
||||||
sta hposp0
|
|
||||||
x1 lda #$28
|
|
||||||
sta hposm0
|
|
||||||
c4 lda #$00
|
|
||||||
sta colpm0
|
|
||||||
x2 lda #$A2
|
|
||||||
sta hposm3
|
|
||||||
c5 lda #$0E
|
|
||||||
sta colpm3
|
|
||||||
s1 lda #$00
|
|
||||||
sta sizep2
|
|
||||||
sta sizep3
|
|
||||||
x3 lda #$92
|
|
||||||
sta hposp2
|
|
||||||
x4 lda #$8A
|
|
||||||
sta hposp3
|
|
||||||
c6 lda #$14
|
|
||||||
sta colpm2
|
|
||||||
s2 lda #$00
|
|
||||||
sta sizep1
|
|
||||||
x5 lda #$9A
|
|
||||||
sta hposp1
|
|
||||||
c7 lda #$14
|
|
||||||
sta colpm1
|
|
||||||
x6 lda #$A4
|
|
||||||
sta hposm2
|
|
||||||
x7 lda #$A6
|
|
||||||
sta hposm1
|
|
||||||
c8 lda #$00
|
|
||||||
sta colpf0
|
|
||||||
|
|
||||||
mwa #DLI.dli_start dliv ;set the first address of DLI interrupt
|
|
||||||
|
|
||||||
;this area is for yours routines
|
|
||||||
jsr play_frame
|
|
||||||
|
|
||||||
quit
|
|
||||||
lda regA
|
|
||||||
ldx regX
|
|
||||||
ldy regY
|
|
||||||
jmp sysvbv
|
|
||||||
|
|
||||||
.endp
|
|
||||||
|
|
||||||
; ---
|
|
||||||
ini main
|
|
||||||
; ---
|
|
||||||
|
|
||||||
;opt l- ; this stops the listing
|
|
||||||
|
|
||||||
.MACRO SPRITES
|
|
||||||
missiles
|
|
||||||
.he 00 00 00 00 00 00 00 00 03 03 C3 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 83 83 83 C3 C3 C3 C3
|
|
||||||
.he C3 C3 C3 C3 C3 E3 E3 E3 E3 E3 E3 F3 F3 F3 F3 FB
|
|
||||||
.he FB FB FB FB FF FF FF FF F3 33 83 83 83 83 C3 D3
|
|
||||||
.he D3 D3 13 03 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 0F
|
|
||||||
.he 0F 0F 0F 0F 0F 0F 0F 0F 0F 0F 03 03 03 03 C3 C3
|
|
||||||
.he C3 C3 C3 C3 C3 C3 C3 C3 C3 D3 FF FF 3F 3F 3F 3F
|
|
||||||
.he 3F 3F 33 13 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 43 43 C3 C3 C3 C3 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03
|
|
||||||
.he 03 03 0F 0F 3F 3F FF FC FE FE FF DB 03 03 03 03
|
|
||||||
.he 03 03 03 03 03 03 03 03 00 00 00 00 00 00 00 00
|
|
||||||
player0
|
|
||||||
.he 00 00 00 00 00 00 00 00 FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF 00 00 00 00 00 00 00 00
|
|
||||||
player1
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 F0 FC FE FE FF FF FF FF
|
|
||||||
.he FF 0F 0F 0F 0F 0F 0F 0F 0F 0F 07 07 07 07 07 07
|
|
||||||
.he 03 03 03 FF FF FF FF FF CF CF FF FF FF FF FF 9F
|
|
||||||
.he 9F FF FF FF FF FF FF FF 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 F0 F0 F0 F0 78 F8 78 78 78 78 38 78 38 3C 3C
|
|
||||||
.he 3C 3C 1C 3C 1C 1C 1C 1C 1E 1E 1E 1E 0E 1E 0E 0E
|
|
||||||
.he 0E 0F 07 0F 07 0F 07 07 07 07 07 07 06 06 06 06
|
|
||||||
.he FF FF FF FF FF FF FF FF FF FF FF 00 00 3E 3F 7F
|
|
||||||
.he 7F 7F 7F 7F 7F 7F 7F 3F 3F 3F 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 FF FF FF FF FF FF 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
player2
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 FF FF FF FF FF FF FF FF
|
|
||||||
.he FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 FF FF FF FF FF 99 99 FF FF FF FF FF 33
|
|
||||||
.he 33 FF FF FF FF FF FF FF 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 80 F0 F8 F8 F8 FC FC FC FC FC FC FC FC FC
|
|
||||||
.he FC FE FE FE FE FE FE FF FF FF FF FF FF FF FE FC
|
|
||||||
.he F8 F8 F8 F8 F0 F0 F0 F0 F0 F0 F0 F0 E0 E0 E0 E0
|
|
||||||
.he E0 E0 E0 FC FE FE FF FF 8F 87 87 87 07 07 07 07
|
|
||||||
.he 07 07 07 07 07 07 07 03 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 F8 FC FC FE FE FF FF 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 FF FF FF FF FF FF 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
player3
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 01 07 0F 1F 1F 3F 3F 7F
|
|
||||||
.he 7F 78 78 F0 F0 F0 F0 F8 F8 F8 78 7C 7C 7C 3C 3E
|
|
||||||
.he 3E 3E 1E 1F 1F 1F 0F 0F 0F 0F 0F 1F 1F 1F 1F 1F
|
|
||||||
.he 1F 3F 3F 3F 3F 3F 3F 3F FF 7F 7F 3F 3F 1F 1F 0F
|
|
||||||
.he 1F 1F 1F 3F 3F 3F 3F 3F 3F 3B 30 30 30 30 30 30
|
|
||||||
.he 30 30 30 30 38 3E 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F
|
|
||||||
.he 7F 7F 7F 7F 7F 7F 7F FF FF FF FF FF FF FF FF FF
|
|
||||||
.he FF FF FF FF FF FF FF FF 7F 7F 7F 7F 7F 7F FF FF
|
|
||||||
.he FF FF FF FF FE FE FE FE FE FE FE FE FC 1C FF 7E
|
|
||||||
.he 7E FE FE FE FE FF FF FF 7F 7E 7E 3C 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 7C FE FE FF FF FF 00 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.he 00 00 00 FF FF FF FF FF FF FF FF FF 00 00 00 00
|
|
||||||
.he 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
USESPRITES = 1
|
|
||||||
|
|
||||||
.MACRO DLINEW
|
|
||||||
mva <:1 dliv
|
|
||||||
ift [>?old_dli]<>[>:1]
|
|
||||||
mva >:1 dliv+1
|
|
||||||
eif
|
|
||||||
|
|
||||||
ift :2
|
|
||||||
lda regA
|
|
||||||
eif
|
|
||||||
|
|
||||||
ift :3
|
|
||||||
ldx regX
|
|
||||||
eif
|
|
||||||
|
|
||||||
ift :4
|
|
||||||
ldy regY
|
|
||||||
eif
|
|
||||||
|
|
||||||
rti
|
|
||||||
|
|
||||||
.def ?old_dli = *
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
+6
-1
@@ -194,7 +194,6 @@ FirstZpageVariable = $57
|
|||||||
.ELSE
|
.ELSE
|
||||||
icl 'lib/ATARISYS.ASM'
|
icl 'lib/ATARISYS.ASM'
|
||||||
icl 'lib/MACRO.ASM'
|
icl 'lib/MACRO.ASM'
|
||||||
;icl 'artwork/Scorch50.asm' ; splash screen and musix
|
|
||||||
icl 'splash_v2/splash.asm' ; splash screen and musix
|
icl 'splash_v2/splash.asm' ; splash screen and musix
|
||||||
.ENDIF
|
.ENDIF
|
||||||
|
|
||||||
@@ -337,6 +336,12 @@ no5200splash
|
|||||||
bne @-
|
bne @-
|
||||||
|
|
||||||
.IF TARGET = 800
|
.IF TARGET = 800
|
||||||
|
|
||||||
|
; pokeys init
|
||||||
|
lda #3 ; stereo
|
||||||
|
sta POKEY+$0f ; stereo
|
||||||
|
sta POKEY+$1f ; stereo
|
||||||
|
|
||||||
lda PAL
|
lda PAL
|
||||||
and #%00001110
|
and #%00001110
|
||||||
bne NoRMT_PALchange
|
bne NoRMT_PALchange
|
||||||
|
|||||||
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 109 KiB |
Reference in New Issue
Block a user