Mercurial > hg > Members > kono > nitros9-code
comparison 3rdparty/packages/basic09/gfx-d64.asm @ 25:ad78331ace28
Prego; The basic09 interpreter.
author | roug |
---|---|
date | Sat, 06 Apr 2002 14:47:31 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
24:01a6e267aa38 | 25:ad78331ace28 |
---|---|
1 ******************************************************************** | |
2 * progname - program module | |
3 * | |
4 * $Id$ | |
5 * | |
6 * Ed. Comments Who YY/MM/DD | |
7 * ------------------------------------------------------------------ | |
8 * - Original Basic09 from Dragon Data distribution version | |
9 * | |
10 * $Log$ | |
11 * Revision 1.1 2002/04/06 14:47:31 roug | |
12 * Prego; The basic09 interpreter. | |
13 * | |
14 * | |
15 | |
16 nam GFX | |
17 ttl subroutine module | |
18 | |
19 * Disassembled 02/04/06 16:39:17 by Disasm v1.6 (C) 1988 by RML | |
20 | |
21 ifp1 | |
22 use /dd/defs/os9defs | |
23 endc | |
24 tylg set Sbrtn+Objct | |
25 atrv set ReEnt+rev | |
26 rev set $01 | |
27 mod eom,name,tylg,atrv,start,size | |
28 u0000 rmb 0 | |
29 size equ . | |
30 name equ * | |
31 fcs /GFX/ | |
32 fcb $01 | |
33 L0011 fcb $01 | |
34 fcb $2B + | |
35 fcb $41 A | |
36 fcb $6C l | |
37 fcb $70 p | |
38 fcb $68 h | |
39 fcb $61 a | |
40 fcb $FF | |
41 fcb $01 | |
42 fcb $02 | |
43 fcb $43 C | |
44 fcb $69 i | |
45 fcb $72 r | |
46 fcb $63 c | |
47 fcb $6C l | |
48 fcb $65 e | |
49 fcb $FF | |
50 fcb $00 | |
51 fcb $C7 G | |
52 fcb $43 C | |
53 fcb $6C l | |
54 fcb $65 e | |
55 fcb $61 a | |
56 fcb $72 r | |
57 fcb $FF | |
58 fcb $00 | |
59 fcb $AE . | |
60 fcb $43 C | |
61 fcb $6F o | |
62 fcb $6C l | |
63 fcb $6F o | |
64 fcb $72 r | |
65 fcb $FF | |
66 fcb $01 | |
67 fcb $8E | |
68 fcb $47 G | |
69 fcb $43 C | |
70 fcb $6F o | |
71 fcb $6C l | |
72 fcb $72 r | |
73 fcb $FF | |
74 fcb $01 | |
75 fcb $74 t | |
76 fcb $47 G | |
77 fcb $4C L | |
78 fcb $6F o | |
79 fcb $63 c | |
80 fcb $FF | |
81 fcb $01 | |
82 fcb $BF ? | |
83 fcb $4A J | |
84 fcb $6F o | |
85 fcb $79 y | |
86 fcb $53 S | |
87 fcb $74 t | |
88 fcb $6B k | |
89 fcb $FF | |
90 fcb $00 | |
91 fcb $D7 W | |
92 fcb $4C L | |
93 fcb $69 i | |
94 fcb $6E n | |
95 fcb $65 e | |
96 fcb $FF | |
97 fcb $00 | |
98 fcb $A2 " | |
99 fcb $4D M | |
100 fcb $6F o | |
101 fcb $64 d | |
102 fcb $65 e | |
103 fcb $FF | |
104 fcb $00 | |
105 fcb $A6 & | |
106 fcb $4D M | |
107 fcb $6F o | |
108 fcb $76 v | |
109 fcb $65 e | |
110 fcb $FF | |
111 fcb $00 | |
112 fcb $B2 2 | |
113 fcb $50 P | |
114 fcb $6F o | |
115 fcb $69 i | |
116 fcb $6E n | |
117 fcb $74 t | |
118 fcb $FF | |
119 fcb $01 | |
120 fcb $2F / | |
121 fcb $51 Q | |
122 fcb $75 u | |
123 fcb $69 i | |
124 fcb $74 t | |
125 fcb $FF | |
126 fcb $00 | |
127 fcb $00 | |
128 start equ * | |
129 leas -$09,s | |
130 ldd $0B,s | |
131 beq L00AD | |
132 tsta | |
133 bne L00AD | |
134 leau >L0011,pcr | |
135 L007D ldy ,u++ | |
136 beq L00A9 | |
137 ldx $0D,s | |
138 L0084 lda ,x+ | |
139 eora ,u+ | |
140 anda #$DF | |
141 beq L0094 | |
142 leau -$01,u | |
143 L008E tst ,u+ | |
144 bpl L008E | |
145 bra L007D | |
146 L0094 tst -$01,u | |
147 bpl L0084 | |
148 tfr y,d | |
149 leay >L0011,pcr | |
150 leay d,y | |
151 leax ,s | |
152 leau <$11,s | |
153 ldd $0B,s | |
154 jmp ,y | |
155 L00A9 ldb #$30 | |
156 bra L00AF | |
157 L00AD ldb #$38 | |
158 L00AF coma | |
159 leas $09,s | |
160 rts | |
161 lda #$0F | |
162 bra L00B9 | |
163 lda #$15 | |
164 L00B9 cmpb #$03 | |
165 bne L00AD | |
166 bra L010B | |
167 lda #$11 | |
168 bra L00DE | |
169 cmpb #$03 | |
170 beq L00D4 | |
171 cmpb #$04 | |
172 bne L00AD | |
173 leau <$19,s | |
174 lbsr L015E | |
175 leau <$11,s | |
176 L00D4 lda #$18 | |
177 bra L010B | |
178 cmpb #$01 | |
179 beq L00E4 | |
180 lda #$10 | |
181 L00DE cmpb #$02 | |
182 bne L00AD | |
183 bra L0136 | |
184 L00E4 lda #$13 | |
185 bra L0142 | |
186 cmpb #$06 | |
187 bhi L00AD | |
188 cmpb #$03 | |
189 bcs L015B | |
190 bitb #$01 | |
191 bne L0103 | |
192 leau <$19,s | |
193 cmpb #$04 | |
194 beq L00FE | |
195 leau <$21,s | |
196 L00FE bsr L015E | |
197 leau <$11,s | |
198 L0103 cmpb #$04 | |
199 bls L0109 | |
200 bsr L0164 | |
201 L0109 lda #$16 | |
202 L010B sta ,x+ | |
203 bsr L016E | |
204 bsr L016E | |
205 bra L0144 | |
206 cmpb #$05 | |
207 bhi L015B | |
208 cmpb #$02 | |
209 bcs L015B | |
210 bitb #$01 | |
211 beq L012E | |
212 leau <$15,s | |
213 cmpb #$03 | |
214 beq L0129 | |
215 leau <$1D,s | |
216 L0129 bsr L015E | |
217 leau <$11,s | |
218 L012E cmpb #$03 | |
219 bls L0134 | |
220 bsr L0164 | |
221 L0134 lda #$1A | |
222 L0136 sta ,x+ | |
223 bsr L016E | |
224 bra L0144 | |
225 lda #$0E | |
226 bra L0142 | |
227 lda #$12 | |
228 L0142 sta ,x+ | |
229 L0144 bsr L0149 | |
230 leas $09,s | |
231 rts | |
232 L0149 tfr x,d | |
233 leax $02,s | |
234 pshs x | |
235 subd ,s++ | |
236 tfr d,y | |
237 lda #$01 | |
238 os9 I$Write | |
239 rts | |
240 L0159 leas $06,s | |
241 L015B lbra L00AD | |
242 L015E lda #$11 | |
243 sta ,x+ | |
244 bra L016E | |
245 L0164 puls y | |
246 lda #$15 | |
247 sta ,x+ | |
248 bsr L016E | |
249 pshs y | |
250 L016E pshs y,b,a | |
251 ldd [,u++] | |
252 sta ,x+ | |
253 pulu y | |
254 leay -$01,y | |
255 beq L0183 | |
256 leay -$01,y | |
257 bne L0159 | |
258 tsta | |
259 bne L0159 | |
260 stb -$01,x | |
261 L0183 puls pc,y,b,a | |
262 cmpb #$02 | |
263 bne L015B | |
264 ldx <$13,s | |
265 leax -$02,x | |
266 bne L015B | |
267 lda #$01 | |
268 ldb #$12 | |
269 os9 I$GetStt | |
270 bcs L019C | |
271 stx [<$11,s] | |
272 L019C leas $09,s | |
273 rts | |
274 cmpb #$02 | |
275 beq L01AD | |
276 cmpb #$04 | |
277 bne L015B | |
278 bsr L0164 | |
279 bsr L0149 | |
280 bcs L019C | |
281 L01AD lda #$01 | |
282 ldb #$12 | |
283 os9 I$GetStt | |
284 bcs L019C | |
285 tfr a,b | |
286 bra L01ED | |
287 L01BA leau $04,u | |
288 pshs u,x | |
289 ldx -$02,u | |
290 ldu -$04,u | |
291 leax -$01,x | |
292 beq L01CC | |
293 leax -$01,x | |
294 bne L0159 | |
295 clr ,u+ | |
296 L01CC stb ,u+ | |
297 puls pc,u,x | |
298 cmpb #$05 | |
299 bne L015B | |
300 clr ,x+ | |
301 bsr L016E | |
302 ldx -$02,x | |
303 lda #$01 | |
304 ldb #$13 | |
305 os9 I$GetStt | |
306 bcs L019C | |
307 tfr a,b | |
308 bsr L01BA | |
309 tfr x,d | |
310 bsr L01BA | |
311 tfr y,d | |
312 L01ED bsr L01BA | |
313 leas $09,s | |
314 rts | |
315 emod | |
316 eom equ * |