-
Notifications
You must be signed in to change notification settings - Fork 0
/
datawad.asm
126 lines (98 loc) · 2.52 KB
/
datawad.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
.exportmode Assembly
.export
UDG = $2000
OSTORE = $2600
.org $2E00
.align 256
enemydat: .incbin "enemydat.bin"
.align 256
subpix: .incbin "prescrolledsubs.bin"
.align 16
PUREMAP: .incbin "map.binlz"
.align 16
enemyidx: .incbin "enemyidx.bin"
.align 16
titlescrn: .incbin "titlescrn.binlz"
.align 16
ttfont: .incbin "hercules.binlz"
.asciimap ' ', '_', {*}-' '
.align 16
scoreline:
.asc " SCORE 00000 HI 00000 ZONE 1 ^_ 4 "
; --------========--------========--------
SCOREP = 8
HIP = 18
ZONEP = 31
LIVESP = 37
.align 16
airline:
.asc " AIR: -------------------------- "
; --------========--------========--------
.align 16
titlecreds
; --------========--------========
.asc " GAME PROGRAMMING: SIRMORRIS "
.asc "DISPLAY ROUTINE: REA / KLOTBLIXT"
.asc " TITLE TUNE: REAR ADMIRER MOGGY "
.asc " STC MUSIC PLAYER: ANDY REA "
.asc " AYFX DRIVER: ALEX SEMENOV "
.asc "MASSIVE THANKS TO: RUSS WETMORE"
zxpdistxt:
.asc " ZXPAND: DISABLED "
.align 16
pressfiretext:
.asc " P R E S S F I R E "
; --------========--------========
.align 16
pausedtext:
.asc " PAUSED "
; --------========--------========
.asciimap 0, 255, {*}-'@'
.asciimap ' ', ' ', 0
.asciimap '.', '.', $1e
.asciimap '!', '!', $3c
.align 16
failedtext:
.asc " MISSION FAILED} "
; --------========--------========
.align 16
congrattext:
; --------========--------========
.asc " Congratulations Captain!~"
.asc "~"
.asc "The biggest threat to our planet~"
.asc "is defeated. We are safe again.~"
.asc "~"
.asc "You will receive the highest~"
.asc "honour our country can give...~"
.asc "~"
.asc " ...ANOTHER MISSION!!~}"
; --------========--------========
.align 16
mul600tab: .word 0,600,1200,1800,2400,3000,3600,4200,4800,5400
.align 16
dofs:
.word $0000
.byte 0,6
.word $004a
.byte 72,6
.word $00b1
.byte 40,6
.word $010b
.byte 72,16
.word $0181
.byte 56,6
.word $01d8
.byte 56,8
.word $021a
.byte 80,6
.word $ffff
.align 64
considertable:
inputsid = $8000
inputstates = $8004
FREELIST = $8030
D_MIRROR = $808a
CHARSETS = $9800
DRAWLIST_0 = $9c00
DRAWLIST_1 = $9e00