-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathbitmap.asm
144 lines (66 loc) · 3.21 KB
/
bitmap.asm
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
; extra MACRO files need to go here
include "myMacros.inc"
.assume adl=1 ; ez80 ADL memory mode
.org $40000 ; load code here
jp start_here ; jump to start of code
.align 64 ; MOS header
.db "MOS",0,1
start_here:
push af ; store all the registers
push bc
push de
push ix
push iy
; ------------------
; This is our actual code
; prepare the screen
SET_MODE 8 ; mode 8 is 640x480 pixels, 64 colours
; Sending a VDU byte stream
ld hl, VDUdata ; address of string to use
ld bc, endVDUdata - VDUdata ; length of string
rst.lil $18 ; Call the MOS API to send data to VDP
ld a, $08 ; code to send to MOS
rst.lil $08 ; get IX pointer to System Variables
WAIT_HERE: ; loop here until we hit ESC key
ld a, (ix + $05) ; get ASCII code of key pressed
cp 27 ; check if 27 (ascii code for ESC)
jp z, EXIT_HERE ; if pressed, jump to exit
jr WAIT_HERE
; ------------------
; This is where we exit the program
EXIT_HERE:
CLS
pop iy ; Pop all registers back from the stack
pop ix
pop de
pop bc
pop af
ld hl,0 ; Load the MOS API return code (0) for no errors.
ret ; Return to MOS
; ------------------
; This is the data we send to VDP
crystal: EQU 0 ; used for bitmap ID number
star: EQU 1 ; used for bitmap ID number
VDUdata:
.db 23, 0, 192, 0 ; set to non-scaled graphics
; LOAD THE BITMAP FROM A FILE
; file must be 24bit colour plus 8 bit alpha, byte order: RGBA
; 16x16 pixels RGBA should be 1,024 bytes in size
.db 23, 27, 0, crystal ; select bitmap 0 - crystal
.db 23, 27, 1 ; load bitmap data...
.dw 16, 16 ; of size 16x16, from file:
incbin "crystal.data"
.db 23, 27, 0, star ; select bitmap 1 - star
.db 23, 27, 1 ; load bitmap data...
.dw 16, 16 ; of size 16x16, from file:
incbin "star.data"
; PRINT THE BITMAP ON THE SCREEN VDP v1.04 onwards
.db 23, 27, 0, crystal ; select bitmap 0 - crystal
.db 23, 27, 3 ; draw selected bitmap at...
.dw 80, 50 ; X, Y on the screen
; PLOT THE BITMAP ON THE SCREEN VDP v2.1.0 onwards
.db 23, 27, 0, star ; select bitmap 0 - crystal
.db 25, $ED ; plot absolute selected bitmap at...
.dw 150, 120 ; X, Y on the screen
endVDUdata:
; ------------------