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
170
171
172
173
174
175
176
|
;
; example.asm for TR8
;
.org 0
; address of the frame interrupt vector
.equ INT_VECT 0xff00
; setup an int handler so we
; can use the frame int to sync
ld a, >INT_VECT
ld x, <INT_VECT
ld b, <int_handler
ld [a : x], b
inc x
ld b, >int_handler
ld [a : x], b
; enable interrupts
cif
ld b, 0
loop:
call fill_screen
push b
; update sprite position
ld a, >incx
ld x, <incx
ld y, [a : x]
inc x
bo
inc a
; px
ld b, [a : x]
; px + incx
add b, y
; 128 - 16
cmp b, 112
bnc
jmp turn_x
; new x
ld [a : x], b
jmp update_y
turn_x:
; update incx
; 1 -> -1
; -1 -> 1
ld a, >incx
ld x, <incx
ld y, [a : x]
ld b, 254
xor y, b
ld [a : x], y
; change color
pop b
inc b
and b, 15
push b
update_y:
ld a, >incy
ld x, <incy
ld y, [a : x]
inc x
bo
inc a
; py
ld b, [a : x]
; py + incy
add b, y
; 128 - 16
cmp b, 112
bnc
jmp turn_y
; new y
ld [a : x], b
jmp update_done
turn_y:
; update incy
; 1 -> -1
; -1 -> 1
ld a, >incy
ld x, <incy
ld y, [a : x]
ld b, 254
xor y, b
ld [a : x], y
; change color
pop b
inc b
and b, 15
push b
update_done:
call draw_sprite
; wait 1 frame
halt
pop b
jmp loop
; fill frame-buffer with a color in reg b
fill_screen:
ld a, 0xbf
ld x, 0
ld y, 0x40
fill_loop:
ld [a : x], b
inc x
bno
jmp fill_loop
inc a
dec y
bnz
jmp fill_loop
ret
int_handler:
iret
; draw sprite getting coordinates from px, py
draw_sprite:
; blitter in settings mode
ld x, 128
ld a, 0xb0
port a, x
; setup
inc a
; source
ld x, <sprite
port a, x
ld x, >sprite
port a, x
ld y, <px
ld b, >px
ld x, [b : y]
port a, x
ld y, <py
ld b, >py
ld x, [b : y]
port a, x
; size 16x16
ld x, 16
port a, x
port a, x
; now blit
dec a
ld x, 3
; 3: write with transparent color support
port a, x
ret
sprite:
.incpng "assets/icon.png"
incx:
.db 1
px:
.db 18
incy:
.db 1
py:
.db 64
|
