1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
; TIATracker music player
; Copyright 2016 Andre "Kylearan" Wichmann
; Website: https://bitbucket.org/kylearan/tiatracker
; Email: andre.wichmann@gmx.de
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
; Song author: %%AUTHOR%%
; Song name: %%NAME%%
; @com.wudsn.ide.asm.hardware=ATARI2600
processor 6502
include vcs.h
; TV format switches
PAL = %%PAL%%
NTSC = %%NTSC%%
IF PAL
TIM_VBLANK = 43
TIM_OVERSCAN = 36
TIM_KERNEL = 19
ELSE
TIM_VBLANK = 45
TIM_OVERSCAN = 38
TIM_KERNEL = 15
ENDIF
; =====================================================================
; Variables
; =====================================================================
SEG.U variables
ORG $80
include "%%FILENAME%%_variables.asm"
; test
player_time_max ds 1
; =====================================================================
; Start of code
; =====================================================================
SEG Bank0
ORG $f000
Start SUBROUTINE
; Clear zeropage
cld
ldx #0
txa
.clearLoop:
dex
txs
pha
bne .clearLoop
include "%%FILENAME%%_init.asm"
; =====================================================================
; MAIN LOOP
; =====================================================================
MainLoop:
; ---------------------------------------------------------------------
; Overscan
; ---------------------------------------------------------------------
Overscan SUBROUTINE
sta WSYNC
lda #2
sta VBLANK
lda #TIM_OVERSCAN
sta TIM64T
; Do overscan stuff
.waitForIntim
lda INTIM
bne .waitForIntim
; ---------------------------------------------------------------------
; VBlank
; ---------------------------------------------------------------------
VBlank SUBROUTINE
lda #%1110
.vsyncLoop:
sta WSYNC
sta VSYNC
lsr
bne .vsyncLoop
lda #2
sta VBLANK
lda #TIM_VBLANK
sta TIM64T
; Do VBlank stuff
include "%%FILENAME%%_player.asm"
; Measure player worst case timing
lda #TIM_VBLANK
sec
sbc INTIM
cmp player_time_max
bcc .noNewMax
sta player_time_max
.noNewMax:
.waitForVBlank:
lda INTIM
bne .waitForVBlank
sta WSYNC
sta VBLANK
; ---------------------------------------------------------------------
; Kernel
; ---------------------------------------------------------------------
Kernel SUBROUTINE
lda #TIM_KERNEL
sta T1024T
; Do kernel stuff
.waitForIntim:
lda INTIM
bne .waitForIntim
jmp MainLoop
; =====================================================================
; Data
; =====================================================================
include "%%FILENAME%%_trackdata.asm"
; =====================================================================
; Vectors
; =====================================================================
echo "ROM left: ", ($fffc - *)
ORG $fffc
.word Start
.word Start
|
