Rev 158 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 158 | Rev 181 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | 1 | ||
2 | ;1720708 |
- | |
3 | - | ||
4 | ;LAST UPDATE: 28.05.2021 savelij |
2 | ; LAST UPDATE: 11.12.2024 savelij |
5 | 3 | ||
6 | include ../macros.a80 |
4 | include ../macros.a80 |
7 | include ../ports_ngs.a80 |
5 | include ../ports_ngs.a80 |
8 | include equ_ngs.a80 |
6 | include equ_ngs.a80 |
9 | include ../sdcomand.a80 |
7 | include ../sdcomand.a80 |
10 | include version.a80 |
8 | include version.a80 |
11 | 9 | ||
12 | ;GSRomBaseL equ 0X0000 |
10 | ;GSRomBaseL equ 0x0000 |
13 | ;GSRomBaseH equ 0Xc000 |
11 | ;GSRomBaseH equ 0xc000 |
14 | 12 | ||
15 | ; ORG GSRomBaseL ;clear low ROM |
13 | ; ORG GSRomBaseL ;clear low ROM |
16 | ; DEFS 0X4000,0XFF |
14 | ; DEFS 0x4000,0xFF |
17 | 15 | ||
18 | ; ORG GSRomBaseH ;clear high ROM |
16 | ; ORG GSRomBaseH ;clear high ROM |
19 | ; DEFS 0X4000,0XFF |
17 | ; DEFS 0x4000,0xFF |
20 | 18 | ||
21 | ORG GSRomBaseL |
19 | ORG GSRomBaseL |
22 | DI |
20 | DI |
23 | JP INIT |
21 | JP INIT |
24 | 22 | ||
25 | ;---patched |
23 | ;---patched |
26 | ; DEFB 0X0A ;LOW (in BCD!) |
24 | ; DEFB 0x0A ;LOW (in BCD!) |
27 | ; DEFB 0X01 ;HIGH (in BCD!) |
25 | ; DEFB 0x01 ;HIGH (in BCD!) |
28 | DW VERS_BIN |
26 | DW VERS_BIN |
29 | ;--- |
27 | ;--- |
30 | 28 | ||
31 | ROMCRC DW 0XE428 ;CRC from original rom, corrupted!? |
29 | ROMCRC DW 0xE428 ;CRC from original rom, corrupted!? |
32 | 30 | ||
33 | ORG GSRomBaseL+0X0030 |
31 | DUPL 0x0030 - $,0xFF |
34 | JP SGEN ;0X2030 |
32 | JP SGEN ;0x2030 |
35 | 33 | ||
36 | ORG GSRomBaseL+0X0038 |
34 | DUPL 0x0038 - $,0xFF |
37 | 35 | ||
38 | INT8 EX AF,AF' |
36 | INT8 EX AF,AF' |
39 | PUSH DE |
37 | PUSH DE |
40 | LD E,A |
38 | LD E,A |
41 | LD D,IXH |
39 | LD D,IXH |
Line 54... | Line 52... | ||
54 | EI |
52 | EI |
55 | RET |
53 | RET |
56 | 54 | ||
57 | INT8_ JP QTDONE |
55 | INT8_ JP QTDONE |
58 | 56 | ||
59 | ORG GSRomBaseL+0X0066 |
57 | DUPL 0x0066 - $,0xFF |
60 | NMILP POP HL |
58 | NMILP POP HL |
61 | LD A,L |
59 | LD A,L |
62 | OUT (ZXDATWR),A |
60 | OUT (ZXDATWR),A |
63 | NMILP2 IN A,(ZXSTAT) |
61 | NMILP2 IN A,(ZXSTAT) |
64 | RLCA |
62 | RLCA |
Line 68... | Line 66... | ||
68 | NMILP3 IN A,(ZXSTAT) |
66 | NMILP3 IN A,(ZXSTAT) |
69 | RLCA |
67 | RLCA |
70 | JR C,NMILP3 |
68 | JR C,NMILP3 |
71 | JP NMILP |
69 | JP NMILP |
72 | 70 | ||
73 | ORG GSRomBaseL+0X0080 |
71 | DUPL 0x0080 - $,0xFF |
74 | DB "This is improved ROM Version 1.04 Beta. " |
72 | DB "This is improved ROM Version 1.04 Beta. " |
75 | DB "Bugfixes by psb & Evgeny Muchkin, 2007.",0 |
73 | DB "Bugfixes by psb & Evgeny Muchkin, 2007.",0 |
76 | 74 | ||
77 | ORG GSRomBaseL+0X0100 |
75 | DUPL 0x0100 - $,0xFF |
78 | DB "General Sound (tm) ROM" |
76 | DB "General Sound (tm) ROM" |
79 | DB "Copyright 1997 Stinger" |
77 | DB "Copyright 1997 Stinger" |
80 | DB "Version ",VERS_TXT," " |
78 | DB "Version ",VERS_TXT," " |
81 | 79 | ||
82 | ; LOW ROM INCLUDES |
80 | ; LOW ROM INCLUDES |
Line 86... | Line 84... | ||
86 | OUT (CLRCBIT),A |
84 | OUT (CLRCBIT),A |
87 | INIT_ XOR A |
85 | INIT_ XOR A |
88 | OUT (ZXDATWR),A |
86 | OUT (ZXDATWR),A |
89 | ; LD L,A |
87 | ; LD L,A |
90 | ; LD H,A |
88 | ; LD H,A |
91 | ; LD BC,0X0004 |
89 | ; LD BC,0x0004 |
92 | ; LD SP,0X0008 |
90 | ; LD SP,0x0008 |
93 | ; JR INIT02 |
91 | ; JR INIT02 |
94 | 92 | ||
95 | ;INIT00 |
93 | ;INIT00 |
96 | OUT (MPAG),A |
94 | OUT (MPAG),A |
97 | ; LD SP,0XC000 |
95 | ; LD SP,0xC000 |
98 | ; LD C,0X04 |
96 | ; LD C,0x04 |
99 | ; DEC A |
97 | ; DEC A |
100 | ;INIT01 POP DE |
98 | ;INIT01 POP DE |
101 | ; ADD HL,DE |
99 | ; ADD HL,DE |
102 | ; POP DE |
100 | ; POP DE |
103 | ; ADD HL,DE |
101 | ; ADD HL,DE |
Line 125... | Line 123... | ||
125 | ; LD A,2 |
123 | ; LD A,2 |
126 | ;CREATE_LIST_PAGE |
124 | ;CREATE_LIST_PAGE |
127 | ; LD (HL),A |
125 | ; LD (HL),A |
128 | ; INC HL |
126 | ; INC HL |
129 | ; INC A |
127 | ; INC A |
130 | ; CP 0X40 |
128 | ; CP 0x40 |
131 | ; JR NZ,CREATE_LIST_PAGE |
129 | ; JR NZ,CREATE_LIST_PAGE |
132 | ; LD (HL),1 |
130 | ; LD (HL),1 |
133 | ; INC HL |
131 | ; INC HL |
134 | ; LD (HL),0 |
132 | ; LD (HL),0 |
135 | LD HL,0X8000 |
133 | LD HL,0x8000 |
136 | LD A,0X7F |
134 | LD A,0x7F |
137 | OUT (MPAG),A |
135 | OUT (MPAG),A |
138 | LD (HL),0XAA |
136 | LD (HL),A ; для 4МБ |
139 | LD A,0X3F |
137 | LD A,0x3F |
140 | OUT (MPAG),A |
138 | OUT (MPAG),A |
141 | LD (HL),0X55 |
139 | LD (HL),A ; для 2МБ |
142 | LD A,0X7F |
140 | LD A,0x0F |
143 | OUT (MPAG),A |
141 | OUT (MPAG),A |
- | 142 | LD (HL),A ; для 512К |
|
- | 143 | ||
144 | LD A,(HL) |
144 | LD A,0x7F |
- | 145 | OUT (MPAG),A |
|
145 | CP 0XAA |
146 | CP (HL) |
- | 147 | JR Z,.L1 |
|
146 | LD A,0X7E ;КОЛИЧЕСТВО СТРАНИЦ ДЛЯ 4 МЕГАБАЙТНОЙ NEOGS |
148 | LD A,0x3F |
- | 149 | OUT (MPAG),A |
|
- | 150 | CP (HL) |
|
147 | JR Z,CP_RAMPAGES |
151 | JR Z,.L1 |
148 | LD A,0X3E ;КОЛИЧЕСТВО СТРАНИЦ ДЛЯ 2 МЕГАБАЙТНОЙ NEOGS |
152 | LD A,0x0F |
149 | CP_RAMPAGES LD (NUMPG),A |
153 | OUT (MPAG),A |
- | 154 | .L1 LD A,(HL) |
|
- | 155 | DEC A |
|
- | 156 | LD (NUMPG),A ; количество страниц памяти |
|
150 | OUT (ZXDATWR),A |
157 | OUT (ZXDATWR),A |
151 | ADD A,2 |
158 | ADD A,2 |
152 | LD B,A |
159 | LD B,A |
153 | LD HL,RAMPG |
160 | LD HL,RAMPG |
154 | LD A,2 |
161 | LD A,2 |
Line 160... | Line 167... | ||
160 | XOR A |
167 | XOR A |
161 | OUT (MPAG),A |
168 | OUT (MPAG),A |
162 | LD (HL),1 |
169 | LD (HL),1 |
163 | INC HL |
170 | INC HL |
164 | LD (HL),A |
171 | LD (HL),A |
165 | LD SP,0X8000 |
172 | LD SP,0x8000 |
166 | JP Patch5i3 |
173 | JP Patch5i3 |
167 | 174 | ||
168 | SET_SIZE_MOD LD A,E |
175 | SET_SIZE_MOD LD A,E |
169 | INC A |
176 | INC A |
170 | LD (SIZE_MOD),A ;РАЗМЕР ЗАГРЖЕННОГО ФАЙЛА В 32К СТРАНИЦАХ |
177 | LD (SIZE_MOD),A ;РАЗМЕР ЗАГРЖЕННОГО ФАЙЛА В 32К СТРАНИЦАХ |
Line 182... | Line 189... | ||
182 | OUT (VOL8),A |
189 | OUT (VOL8),A |
183 | PUSH HL |
190 | PUSH HL |
184 | LD HL,0 |
191 | LD HL,0 |
185 | ADD HL,SP |
192 | ADD HL,SP |
186 | EXX |
193 | EXX |
187 | LD A,0X10 |
194 | LD A,0x10 |
188 | LD SP,0X7F00 |
195 | LD SP,0x7F00 |
189 | LD BC,0XA97E |
196 | LD BC,0xA97E |
190 | LD DE,0X2C77 |
197 | LD DE,0x2C77 |
191 | SPEDI1 REPT 16 |
198 | SPEDI1 REPT 16 |
192 | PUSH DE |
199 | PUSH DE |
193 | PUSH BC |
200 | PUSH BC |
194 | ENDM |
201 | ENDM |
195 | DEC A |
202 | DEC A |
196 | JP NZ,SPEDI1 |
203 | JP NZ,SPEDI1 |
197 | LD HL,SPEDI2 |
204 | LD HL,SPEDI2 |
198 | LD DE,0X7F00 |
205 | LD DE,0x7F00 |
199 | LD BC,ESPEDI2-SPEDI2 |
206 | LD BC,ESPEDI2-SPEDI2 |
200 | LDIR |
207 | LDIR |
201 | EXX |
208 | EXX |
202 | LD SP,HL |
209 | LD SP,HL |
203 | POP HL |
210 | POP HL |
204 | LD A,L |
211 | LD A,L |
205 | EXX |
212 | EXX |
206 | LD L,A |
213 | LD L,A |
207 | LD H,0 |
214 | LD H,0 |
208 | LD BC,0X7B00 |
215 | LD BC,0x7B00 |
209 | ADD HL,HL |
216 | ADD HL,HL |
210 | ADD HL,HL |
217 | ADD HL,HL |
211 | ADD HL,BC |
218 | ADD HL,BC |
212 | EX (SP),HL |
219 | EX (SP),HL |
213 | EXX |
220 | EXX |
214 | LD A,(SIZE_MOD) |
221 | LD A,(SIZE_MOD) |
215 | LD B,A |
222 | LD B,A |
216 | LD C,0X80 |
223 | LD C,0x80 |
217 | RET |
224 | RET |
218 | 225 | ||
219 | SPEDI2 INC H |
226 | SPEDI2 INC H |
220 | JP NZ,0X7B00 |
227 | JP NZ,0x7B00 |
221 | INC E |
228 | INC E |
222 | LD A,(DE) |
229 | LD A,(DE) |
223 | LD H,0X80 |
230 | LD H,0x80 |
224 | OUT (MPAG),A |
231 | OUT (MPAG),A |
225 | DEC B |
232 | DEC B |
226 | JP NZ,0X7B00 |
233 | JP NZ,0x7B00 |
227 | JP END7XOR |
234 | JP END7XOR |
228 | ESPEDI2 |
235 | ESPEDI2 |
229 | 236 | ||
230 | END7XOR EXX |
237 | END7XOR EXX |
231 | LD HL,0 |
238 | LD HL,0 |
232 | ADD HL,SP |
239 | ADD HL,SP |
233 | LD SP,0X8000 |
240 | LD SP,0x8000 |
234 | LD DE,0X8080 |
241 | LD DE,0x8080 |
235 | LD B,0X28 |
242 | LD B,0x28 |
236 | E7X1 REPT 16 |
243 | E7X1 REPT 16 |
237 | PUSH DE |
244 | PUSH DE |
238 | ENDM |
245 | ENDM |
239 | DJNZ E7X1 |
246 | DJNZ E7X1 |
240 | LD SP,HL |
247 | LD SP,HL |
241 | EXX |
248 | EXX |
242 | JP NOCONV |
249 | JP NOCONV |
243 | 250 | ||
244 | DUPL GSRomBaseL+0X269-$,0 |
251 | DUPL GSRomBaseL+0x269-$,0 |
245 | ; ORG GSRomBaseL+0X269 |
252 | ; ORG GSRomBaseL+0x269 |
246 | 253 | ||
247 | ;INCLUDE "COM_L.a80" |
254 | ;INCLUDE "COM_L.a80" |
248 | COMHZ OUT (CLRCBIT),A |
255 | COMHZ OUT (CLRCBIT),A |
249 | COMINT LD SP,ISTACK ;0X026B |
256 | COMINT LD SP,ISTACK ;0x026B |
250 | COMINT_ IN A,(ZXSTAT) |
257 | COMINT_ IN A,(ZXSTAT) |
251 | RRCA |
258 | RRCA |
252 | JR C,COMINT1 |
259 | JR C,COMINT1 |
253 | LD A,(PROCESS) ;0X0273 |
260 | LD A,(PROCESS) ;0x0273 |
254 | OR A |
261 | OR A |
255 | JR Z,COMINT_ |
262 | JR Z,COMINT_ |
256 | LD A,(BUSY) |
263 | LD A,(BUSY) |
257 | OR A |
264 | OR A |
258 | JR NZ,COMINT_ |
265 | JR NZ,COMINT_ |
259 | IN A,(ZXSTAT) |
266 | IN A,(ZXSTAT) |
260 | RRCA |
267 | RRCA |
261 | JR C,COMINT1 |
268 | JR C,COMINT1 |
262 | LD A,0XFF |
269 | LD A,0xFF |
263 | LD (INGEN),A |
270 | LD (INGEN),A |
264 | PUSH DE |
271 | PUSH DE |
265 | CALL ENGINE |
272 | CALL ENGINE |
266 | POP DE |
273 | POP DE |
267 | XOR A |
274 | XOR A |
268 | LD (INGEN),A |
275 | LD (INGEN),A |
269 | JP COMINT_ |
276 | JP COMINT_ |
270 | 277 | ||
271 | COMINT1 IN A,(ZXCMD) |
278 | COMINT1 IN A,(ZXCMD) |
272 | CP 0X20 |
279 | CP 0x20 |
273 | JR C,COMLOW |
280 | JR C,COMLOW |
274 | COMINT2 CP 0XF0 |
281 | COMINT2 CP 0xF0 |
275 | JR C,COMHIGH |
282 | JR C,COMHIGH |
276 | SUB 0XD0 |
283 | SUB 0xD0 |
277 | COMLOW ADD A,A |
284 | COMLOW ADD A,A |
278 | LD H,HIGH (COMTAB) |
285 | LD H,HIGH (COMTAB) |
279 | LD L,A |
286 | LD L,A |
280 | LD A,(HL) |
287 | LD A,(HL) |
281 | INC L |
288 | INC L |
Line 295... | Line 302... | ||
295 | LD H,(HL) |
302 | LD H,(HL) |
296 | LD L,A |
303 | LD L,A |
297 | JP (HL) |
304 | JP (HL) |
298 | 305 | ||
299 | WTDTL IN A,(ZXSTAT) |
306 | WTDTL IN A,(ZXSTAT) |
300 | AND 0X81 |
307 | AND 0x81 |
301 | JR Z,WTDTL |
308 | JR Z,WTDTL |
302 | IN A,(ZXDATRD) |
309 | IN A,(ZXDATRD) |
303 | JP P,COMINT1 |
310 | JP P,COMINT1 |
304 | JP (IY) |
311 | JP (IY) |
305 | 312 | ||
Line 350... | Line 357... | ||
350 | COM00 IN A,(ZXDATRD) |
357 | COM00 IN A,(ZXDATRD) |
351 | OUT (CLRCBIT),A |
358 | OUT (CLRCBIT),A |
352 | JP COMINT_ |
359 | JP COMINT_ |
353 | 360 | ||
354 | ;Set silence (*) |
361 | ;Set silence (*) |
355 | ;Выводит в ЦАПы всех каналов 0X80. По сути устанавливает тишину. |
362 | ;Выводит в ЦАПы всех каналов 0x80. По сути устанавливает тишину. |
356 | COM01 OUT (CLRCBIT),A |
363 | COM01 OUT (CLRCBIT),A |
357 | LD A,0X80 |
364 | LD A,0x80 |
358 | LD HL,DAC0 |
365 | LD HL,DAC0 |
359 | LD (HL),A |
366 | LD (HL),A |
360 | LD B,(HL) |
367 | LD B,(HL) |
361 | INC H |
368 | INC H |
362 | LD (HL),A |
369 | LD (HL),A |
Line 370... | Line 377... | ||
370 | JP COMINT_ |
377 | JP COMINT_ |
371 | 378 | ||
372 | ;Set low volume (*) |
379 | ;Set low volume (*) |
373 | ;Устанавливает громкостx ЦАПов всех каналов в ноль. |
380 | ;Устанавливает громкостx ЦАПов всех каналов в ноль. |
374 | COM02 OUT (CLRCBIT),A |
381 | COM02 OUT (CLRCBIT),A |
375 | LD A,0X3F |
382 | LD A,0x3F |
376 | OUT (VOL1),A |
383 | OUT (VOL1),A |
377 | OUT (VOL2),A |
384 | OUT (VOL2),A |
378 | OUT (VOL3),A |
385 | OUT (VOL3),A |
379 | OUT (VOL4),A |
386 | OUT (VOL4),A |
380 | JP COMINT_ |
387 | JP COMINT_ |
Line 390... | Line 397... | ||
390 | JP COMINT_ |
397 | JP COMINT_ |
391 | 398 | ||
392 | ;Set 'E' 3bits (*) |
399 | ;Set 'E' 3bits (*) |
393 | ;Устанавливает в 'E' регистре GS 3 младших бита в соответствии с задан- |
400 | ;Устанавливает в 'E' регистре GS 3 младших бита в соответствии с задан- |
394 | ;ным значением (2 младших бита в сущности являются номером канала |
401 | ;ным значением (2 младших бита в сущности являются номером канала |
395 | ;0X00-0X03). |
402 | ;0x00-0x03). |
396 | COM04 IN A,(ZXDATRD) |
403 | COM04 IN A,(ZXDATRD) |
397 | OUT (CLRCBIT),A |
404 | OUT (CLRCBIT),A |
398 | AND 0X07 |
405 | AND 0x07 |
399 | LD E,A |
406 | LD E,A |
400 | JP COMINT_ |
407 | JP COMINT_ |
401 | 408 | ||
402 | ;Out volume port (*) |
409 | ;Out volume port (*) |
403 | ;Устанавливает громкость канала, номер которого содержится в 'E', в ука- |
410 | ;Устанавливает громкость канала, номер которого содержится в 'E', в ука- |
404 | ;занное значение. (Команда срабатывает при условии, что 'E' находится в |
411 | ;занное значение. (Команда срабатывает при условии, что 'E' находится в |
405 | ;пределах 0X00-0X03) |
412 | ;пределах 0x00-0x03) |
406 | COM05 IN A,(ZXDATRD) |
413 | COM05 IN A,(ZXDATRD) |
407 | OUT (CLRCBIT),A |
414 | OUT (CLRCBIT),A |
408 | LD B,A |
415 | LD B,A |
409 | LD A,E |
416 | LD A,E |
410 | CP 0X04 |
417 | CP 0x04 |
411 | JP NC,COMINT_ |
418 | JP NC,COMINT_ |
412 | ADD A,VOL1 |
419 | ADD A,VOL1 |
413 | LD C,A |
420 | LD C,A |
414 | OUT (C),B |
421 | OUT (C),B |
415 | JP COMINT_ |
422 | JP COMINT_ |
Line 418... | Line 425... | ||
418 | ;Выводит байт в ЦАП канала, указываемого по 'E'. |
425 | ;Выводит байт в ЦАП канала, указываемого по 'E'. |
419 | COM06 IN A,(ZXDATRD) |
426 | COM06 IN A,(ZXDATRD) |
420 | OUT (CLRCBIT),A |
427 | OUT (CLRCBIT),A |
421 | LD B,A |
428 | LD B,A |
422 | LD A,E |
429 | LD A,E |
423 | CP 0X04 |
430 | CP 0x04 |
424 | JP NC,COMINT_ |
431 | JP NC,COMINT_ |
425 | ADD A,HIGH (DAC0) |
432 | ADD A,HIGH (DAC0) |
426 | LD H,A |
433 | LD H,A |
427 | LD L,0X00 |
434 | LD L,0x00 |
428 | LD (HL),B |
435 | LD (HL),B |
429 | LD A,(HL) |
436 | LD A,(HL) |
430 | JP COMINT_ |
437 | JP COMINT_ |
431 | 438 | ||
432 | ;Send to DAC and to volume port (*) |
439 | ;Send to DAC and to volume port (*) |
433 | ;Выводит байт в ЦАП ('E') с заданной громкостью. |
440 | ;Выводит байт в ЦАП ('E') с заданной громкостью. |
434 | COM07 IN A,(ZXDATRD) |
441 | COM07 IN A,(ZXDATRD) |
435 | OUT (CLRCBIT),A |
442 | OUT (CLRCBIT),A |
436 | LD B,A |
443 | LD B,A |
437 | LD A,E |
444 | LD A,E |
438 | CP 0X04 |
445 | CP 0x04 |
439 | JP NC,COMINT_ |
446 | JP NC,COMINT_ |
440 | ADD A,HIGH (DAC0) |
447 | ADD A,HIGH (DAC0) |
441 | LD H,A |
448 | LD H,A |
442 | LD L,0X00 |
449 | LD L,0x00 |
443 | LD (HL),B |
450 | LD (HL),B |
444 | SUB HIGH (DAC0) |
451 | SUB HIGH (DAC0) |
445 | ADD A,VOL1 |
452 | ADD A,VOL1 |
446 | LD C,A |
453 | LD C,A |
447 | LD IY,COM07_1 |
454 | LD IY,COM07_1 |
Line 449... | Line 456... | ||
449 | 456 | ||
450 | COM07_1 OUT (C),A |
457 | COM07_1 OUT (C),A |
451 | LD A,(HL) |
458 | LD A,(HL) |
452 | JP COMINT_ |
459 | JP COMINT_ |
453 | 460 | ||
454 | ;то же что и команда 0X00 |
461 | ;то же что и команда 0x00 |
455 | ;Reset flags |
462 | ;Reset flags |
456 | ;Сбрасывает флаги Data bit и Command bit. |
463 | ;Сбрасывает флаги Data bit и Command bit. |
457 | COM08 EQU COMZ |
464 | COM08 EQU COMZ |
458 | 465 | ||
459 | ;Sets one's byte volume. (*) |
466 | ;Sets one's byte volume. (*) |
Line 461... | Line 468... | ||
461 | COM09 IN A,(ZXDATRD) |
468 | COM09 IN A,(ZXDATRD) |
462 | OUT (CLRCBIT),A |
469 | OUT (CLRCBIT),A |
463 | LD B,A |
470 | LD B,A |
464 | RLCA |
471 | RLCA |
465 | RLCA |
472 | RLCA |
466 | AND 0X03 |
473 | AND 0x03 |
467 | ADD A,VOL1 |
474 | ADD A,VOL1 |
468 | LD C,A |
475 | LD C,A |
469 | LD A,B |
476 | LD A,B |
470 | AND 0X3F |
477 | AND 0x3F |
471 | OUT (C),A |
478 | OUT (C),A |
472 | JP COMINT_ |
479 | JP COMINT_ |
473 | 480 | ||
474 | ;DAC output (*) |
481 | ;DAC output (*) |
475 | ;Еще один непосредственный вывод в ЦАП. |
482 | ;Еще один непосредственный вывод в ЦАП. |
Line 477... | Line 484... | ||
477 | OUT (CLRCBIT),A |
484 | OUT (CLRCBIT),A |
478 | LD B,A |
485 | LD B,A |
479 | LD IY,COM0A_1 |
486 | LD IY,COM0A_1 |
480 | JP WTDTL |
487 | JP WTDTL |
481 | 488 | ||
482 | COM0A_1 AND 0X03 |
489 | COM0A_1 AND 0x03 |
483 | ADD A,HIGH (DAC0) |
490 | ADD A,HIGH (DAC0) |
484 | LD H,A |
491 | LD H,A |
485 | LD L,0X00 |
492 | LD L,0x00 |
486 | LD (HL),B |
493 | LD (HL),B |
487 | LD A,(HL) |
494 | LD A,(HL) |
488 | JP COMINT_ |
495 | JP COMINT_ |
489 | 496 | ||
490 | ;DAC and Volume output (*) |
497 | ;DAC and Volume output (*) |
Line 496... | Line 503... | ||
496 | JP WTDTL |
503 | JP WTDTL |
497 | 504 | ||
498 | COM0B_1 LD B,A |
505 | COM0B_1 LD B,A |
499 | RLCA |
506 | RLCA |
500 | RLCA |
507 | RLCA |
501 | AND 0X03 |
508 | AND 0x03 |
502 | ADD A,HIGH (DAC0) |
509 | ADD A,HIGH (DAC0) |
503 | LD H,A |
510 | LD H,A |
504 | LD L,0X00 |
511 | LD L,0x00 |
505 | LD (HL),C |
512 | LD (HL),C |
506 | SUB HIGH (DAC0) |
513 | SUB HIGH (DAC0) |
507 | ADD A,VOL1 |
514 | ADD A,VOL1 |
508 | LD C,A |
515 | LD C,A |
509 | LD A,B |
516 | LD A,B |
510 | AND 0X3F |
517 | AND 0x3F |
511 | OUT (C),A |
518 | OUT (C),A |
512 | LD A,(HL) |
519 | LD A,(HL) |
513 | JP COMINT_ |
520 | JP COMINT_ |
514 | 521 | ||
515 | ;Call SounDrive Covox mode (*) |
522 | ;Call SounDrive Covox mode (*) |
Line 546... | Line 553... | ||
546 | ;гистр данных по каналам, число которых регулируется (1-4).В отличие от |
553 | ;гистр данных по каналам, число которых регулируется (1-4).В отличие от |
547 | ;предыдущего варианта синхронизация не производится. Выход также произ- |
554 | ;предыдущего варианта синхронизация не производится. Выход также произ- |
548 | ;водится автоматически по записи последнего байта. |
555 | ;водится автоматически по записи последнего байта. |
549 | COM0D IN A,(ZXDATRD) |
556 | COM0D IN A,(ZXDATRD) |
550 | OUT (CLRCBIT),A |
557 | OUT (CLRCBIT),A |
551 | AND 0X0F |
558 | AND 0x0F |
552 | JP Z,COMINT_ |
559 | JP Z,COMINT_ |
553 | RLCA |
560 | RLCA |
554 | RLCA |
561 | RLCA |
555 | RLCA |
562 | RLCA |
556 | RLCA |
563 | RLCA |
Line 571... | Line 578... | ||
571 | JP WTDTL |
578 | JP WTDTL |
572 | 579 | ||
573 | ;Go to LPT Covox mode |
580 | ;Go to LPT Covox mode |
574 | ;Переходит в режим одноканального Ковокса, напрямую копирует регистр |
581 | ;Переходит в режим одноканального Ковокса, напрямую копирует регистр |
575 | ;данных в ЦАПы двух (правого и левого) каналов. Выход из этого режима - |
582 | ;данных в ЦАПы двух (правого и левого) каналов. Выход из этого режима - |
576 | ;запись 0X00 в регистр команд. |
583 | ;запись 0x00 в регистр команд. |
577 | COM0E OUT (CLRCBIT),A |
584 | COM0E OUT (CLRCBIT),A |
578 | LD HL,DAC0 |
585 | LD HL,DAC0 |
579 | LD BC,DAC2 |
586 | LD BC,DAC2 |
580 | COM0E_1 IN A,(ZXDATRD) |
587 | COM0E_1 IN A,(ZXDATRD) |
581 | LD (HL),A |
588 | LD (HL),A |
Line 588... | Line 595... | ||
588 | JP COMINT_ |
595 | JP COMINT_ |
589 | 596 | ||
590 | ;Go in Profi Covox mode (*) |
597 | ;Go in Profi Covox mode (*) |
591 | ;Переходит в режим двухканального Ковокса, напрямую копирует регистр |
598 | ;Переходит в режим двухканального Ковокса, напрямую копирует регистр |
592 | ;данных в ЦАПы одного канала, а регистр каманд в ЦАПы второго канала. |
599 | ;данных в ЦАПы одного канала, а регистр каманд в ЦАПы второго канала. |
593 | ;Выход из этого режима - запись 0X4Е в регистр данных, затем последова- |
600 | ;Выход из этого режима - запись 0x4Е в регистр данных, затем последова- |
594 | ;тельно 0X0F и 0XAA в регистр команд. |
601 | ;тельно 0x0F и 0xAA в регистр команд. |
595 | COM0F IN A,(ZXDATRD) |
602 | COM0F IN A,(ZXDATRD) |
596 | OUT (CLRCBIT),A |
603 | OUT (CLRCBIT),A |
597 | CP "Y" |
604 | CP "Y" |
598 | JP NZ,COMINT_ |
605 | JP NZ,COMINT_ |
599 | LD HL,DAC0 |
606 | LD HL,DAC0 |
Line 605... | Line 612... | ||
605 | LD A,(HL) |
612 | LD A,(HL) |
606 | LD A,(DE) |
613 | LD A,(DE) |
607 | IN A,(ZXSTAT) |
614 | IN A,(ZXSTAT) |
608 | OR A |
615 | OR A |
609 | JP M,COM0F_1 |
616 | JP M,COM0F_1 |
610 | LD B,0X00 |
617 | LD B,0x00 |
611 | OUT (CLRCBIT),A |
618 | OUT (CLRCBIT),A |
612 | COM0F_2 IN A,(ZXSTAT) |
619 | COM0F_2 IN A,(ZXSTAT) |
613 | AND 0X81 |
620 | AND 0x81 |
614 | JR NZ,COM0F_1 |
621 | JR NZ,COM0F_1 |
615 | DJNZ COM0F_2 |
622 | DJNZ COM0F_2 |
616 | COM0F_3 IN A,(ZXSTAT) |
623 | COM0F_3 IN A,(ZXSTAT) |
617 | AND 0X81 |
624 | AND 0x81 |
618 | JR Z,COM0F_3 |
625 | JR Z,COM0F_3 |
619 | CP 0X80 |
626 | CP 0x80 |
620 | JR NZ,COM0F_1 |
627 | JR NZ,COM0F_1 |
621 | IN A,(ZXDATRD) |
628 | IN A,(ZXDATRD) |
622 | CP "N" |
629 | CP "N" |
623 | JP NZ,COM0F_1 |
630 | JP NZ,COM0F_1 |
624 | COM0F_4 IN A,(ZXSTAT) |
631 | COM0F_4 IN A,(ZXSTAT) |
625 | AND 0X81 |
632 | AND 0x81 |
626 | JR Z,COM0F_4 |
633 | JR Z,COM0F_4 |
627 | CP 0X01 |
634 | CP 0x01 |
628 | JR NZ,COM0F_1 |
635 | JR NZ,COM0F_1 |
629 | IN A,(ZXCMD) |
636 | IN A,(ZXCMD) |
630 | CP 0X0F |
637 | CP 0x0F |
631 | JP NZ,COM0F_1 |
638 | JP NZ,COM0F_1 |
632 | OUT (CLRCBIT),A |
639 | OUT (CLRCBIT),A |
633 | COM0F_5 IN A,(ZXSTAT) |
640 | COM0F_5 IN A,(ZXSTAT) |
634 | AND 0X81 |
641 | AND 0x81 |
635 | JR Z,COM0F_5 |
642 | JR Z,COM0F_5 |
636 | CP 0X01 |
643 | CP 0x01 |
637 | JR NZ,COM0F_1 |
644 | JR NZ,COM0F_1 |
638 | IN A,(ZXCMD) |
645 | IN A,(ZXCMD) |
639 | CP 0XAA |
646 | CP 0xAA |
640 | JP NZ,COM0F_1 |
647 | JP NZ,COM0F_1 |
641 | OUT (CLRCBIT),A |
648 | OUT (CLRCBIT),A |
642 | JP COMINT_ |
649 | JP COMINT_ |
643 | 650 | ||
644 | ;Out to any port (*) |
651 | ;Out to any port (*) |
645 | ;Выводит байт вo внутренний порт GS (0X00-0X09). |
652 | ;Выводит байт вo внутренний порт GS (0x00-0x09). |
646 | COM10 IN A,(ZXDATRD) |
653 | COM10 IN A,(ZXDATRD) |
647 | OUT (CLRCBIT),A |
654 | OUT (CLRCBIT),A |
648 | LD C,A |
655 | LD C,A |
649 | LD IY,COM10_1 |
656 | LD IY,COM10_1 |
650 | JP WTDTL |
657 | JP WTDTL |
651 | 658 | ||
652 | COM10_1 OUT (C),A |
659 | COM10_1 OUT (C),A |
653 | JP COMINT_ |
660 | JP COMINT_ |
654 | 661 | ||
655 | ;In from any port (*) |
662 | ;In from any port (*) |
656 | ;читает байт из внутреннего порта GS (0X00-0X09). |
663 | ;читает байт из внутреннего порта GS (0x00-0x09). |
657 | COM11 IN A,(ZXDATRD) |
664 | COM11 IN A,(ZXDATRD) |
658 | LD C,A |
665 | LD C,A |
659 | IN A,(C) |
666 | IN A,(C) |
660 | OUT (ZXDATWR),A |
667 | OUT (ZXDATWR),A |
661 | OUT (CLRCBIT),A |
668 | OUT (CLRCBIT),A |
662 | JP COMINT_ |
669 | JP COMINT_ |
663 | 670 | ||
664 | ;OUT to 0 port (*) |
671 | ;OUT to 0 port (*) |
665 | ;Выводит байт в порт кофигурации GS (0X00). |
672 | ;Выводит байт в порт кофигурации GS (0x00). |
666 | COM12 IN A,(ZXDATRD) |
673 | COM12 IN A,(ZXDATRD) |
667 | OUT (CLRCBIT),A |
674 | OUT (CLRCBIT),A |
668 | OUT (MPAG),A |
675 | OUT (MPAG),A |
669 | JP COMINT_ |
676 | JP COMINT_ |
670 | 677 | ||
Line 703... | Line 710... | ||
703 | COM14_3 LD D,A |
710 | COM14_3 LD D,A |
704 | LD A,B |
711 | LD A,B |
705 | OR C |
712 | OR C |
706 | JP Z,COMINT_ |
713 | JP Z,COMINT_ |
707 | LD IXL,B |
714 | LD IXL,B |
708 | LD B,0X81 |
715 | LD B,0x81 |
709 | BIT 0,C |
716 | BIT 0,C |
710 | JR NZ,COM14_7 |
717 | JR NZ,COM14_7 |
711 | COM14_6 IN A,(ZXSTAT) |
718 | COM14_6 IN A,(ZXSTAT) |
712 | AND B |
719 | AND B |
713 | JR Z,COM14_6 |
720 | JR Z,COM14_6 |
Line 750... | Line 757... | ||
750 | COM15_3 LD D,A |
757 | COM15_3 LD D,A |
751 | LD A,B |
758 | LD A,B |
752 | OR C |
759 | OR C |
753 | JP Z,COMINT_ |
760 | JP Z,COMINT_ |
754 | LD IXL,B |
761 | LD IXL,B |
755 | LD B,0X81 |
762 | LD B,0x81 |
756 | LD A,(DE) |
763 | LD A,(DE) |
757 | INC DE |
764 | INC DE |
758 | OUT (ZXDATWR),A |
765 | OUT (ZXDATWR),A |
759 | OUT (CLRCBIT),A |
766 | OUT (CLRCBIT),A |
760 | LD HL,COM15_4 |
767 | LD HL,COM15_4 |
Line 848... | Line 855... | ||
848 | ;Увеличивает пару DE на единичку. |
855 | ;Увеличивает пару DE на единичку. |
849 | COM1B OUT (CLRCBIT),A |
856 | COM1B OUT (CLRCBIT),A |
850 | INC DE |
857 | INC DE |
851 | JP COMINT_ |
858 | JP COMINT_ |
852 | 859 | ||
853 | ;Poke to (0X20XX) address (*) |
860 | ;Poke to (0x20xX) address (*) |
854 | ;Записывает байт по адресу, старший байт которого равен 0X20. |
861 | ;Записывает байт по адресу, старший байт которого равен 0x20. |
855 | COM1C IN A,(ZXDATRD) |
862 | COM1C IN A,(ZXDATRD) |
856 | OUT (CLRCBIT),A |
863 | OUT (CLRCBIT),A |
857 | LD L,A |
864 | LD L,A |
858 | LD IY,COM1C_1 |
865 | LD IY,COM1C_1 |
859 | JP WTDTL |
866 | JP WTDTL |
860 | 867 | ||
861 | COM1C_1 LD H,0X20 |
868 | COM1C_1 LD H,0x20 |
862 | LD (HL),A |
869 | LD (HL),A |
863 | JP COMINT_ |
870 | JP COMINT_ |
864 | 871 | ||
865 | ;Peek from (0X20XX) address (*) |
872 | ;Peek from (0x20xX) address (*) |
866 | ;читает байт с адреса, старший байт которого равен 0X20. |
873 | ;читает байт с адреса, старший байт которого равен 0x20. |
867 | COM1D IN A,(ZXDATRD) |
874 | COM1D IN A,(ZXDATRD) |
868 | LD L,A |
875 | LD L,A |
869 | LD H,0X20 |
876 | LD H,0x20 |
870 | LD A,(HL) |
877 | LD A,(HL) |
871 | OUT (ZXDATWR),A |
878 | OUT (ZXDATWR),A |
872 | OUT (CLRCBIT),A |
879 | OUT (CLRCBIT),A |
873 | JP COMINT_ |
880 | JP COMINT_ |
874 | 881 | ||
Line 883... | Line 890... | ||
883 | ;лизации. |
890 | ;лизации. |
884 | COMF3 OUT (CLRCBIT),A |
891 | COMF3 OUT (CLRCBIT),A |
885 | JP INITVAR |
892 | JP INITVAR |
886 | 893 | ||
887 | ;Cold restart |
894 | ;Cold restart |
888 | ;Полный перезапуск GS со всеми проверками. По сути, JP 0X0000. |
895 | ;Полный перезапуск GS со всеми проверками. По сути, JP 0x0000. |
889 | COMF4 OUT (CLRCBIT),A |
896 | COMF4 OUT (CLRCBIT),A |
890 | JP 0X0000 |
897 | JP 0x0000 |
891 | 898 | ||
892 | ;Busy on |
899 | ;Busy on |
893 | ;Устанавливает флаг занятости в 0XFF |
900 | ;Устанавливает флаг занятости в 0xFF |
894 | COMF5 OUT (CLRCBIT),A |
901 | COMF5 OUT (CLRCBIT),A |
895 | LD A,IXH |
902 | LD A,IXH |
896 | AND 0X80 |
903 | AND 0x80 |
897 | JP NZ,COMF5_1 |
904 | JP NZ,COMF5_1 |
898 | LD A,0XFF |
905 | LD A,0xFF |
899 | LD (BUSY),A |
906 | LD (BUSY),A |
900 | JP COMINT_ |
907 | JP COMINT_ |
901 | 908 | ||
902 | COMF5_1 OR 0X40 |
909 | COMF5_1 OR 0x40 |
903 | LD IXH,A |
910 | LD IXH,A |
904 | JP COMINT_ |
911 | JP COMINT_ |
905 | 912 | ||
906 | ;Busy off |
913 | ;Busy off |
907 | ;Устанавливает флаг занятости в 0X00 |
914 | ;Устанавливает флаг занятости в 0x00 |
908 | COMF6 OUT (CLRCBIT),A |
915 | COMF6 OUT (CLRCBIT),A |
909 | LD A,IXH |
916 | LD A,IXH |
910 | AND 0X80 |
917 | AND 0x80 |
911 | JP NZ,COMF6_1 |
918 | JP NZ,COMF6_1 |
912 | XOR A |
919 | XOR A |
913 | LD (BUSY),A |
920 | LD (BUSY),A |
914 | JP COMINT_ |
921 | JP COMINT_ |
915 | 922 | ||
Line 936... | Line 943... | ||
936 | ;INCLUDE "MEM_L.a80" |
943 | ;INCLUDE "MEM_L.a80" |
937 | ;MEMORY MOVEMENT MODULE - LOW PART |
944 | ;MEMORY MOVEMENT MODULE - LOW PART |
938 | 945 | ||
939 | align 256 |
946 | align 256 |
940 | 947 | ||
941 | LDITAB REPT 0X100 |
948 | LDITAB REPT 0x100 |
942 | DB 0XED,0XA0 |
949 | DB 0xED,0xA0 |
943 | ENDM |
950 | ENDM |
944 | RET C |
951 | RET C |
945 | LD A,(SYSTEM) |
952 | LD A,(SYSTEM) |
946 | LD (CPAGE),A |
953 | LD (CPAGE),A |
947 | OUT (MPAG),A |
954 | OUT (MPAG),A |
Line 949... | Line 956... | ||
949 | 956 | ||
950 | MLDI NEG |
957 | MLDI NEG |
951 | ADD A,A |
958 | ADD A,A |
952 | LD IYL,A |
959 | LD IYL,A |
953 | LD A,HIGH (LDITAB) |
960 | LD A,HIGH (LDITAB) |
954 | ADC A,0X00 |
961 | ADC A,0x00 |
955 | LD IYH,A |
962 | LD IYH,A |
956 | LD A,(SDPAGE) |
963 | LD A,(SDPAGE) |
957 | LD (CPAGE),A |
964 | LD (CPAGE),A |
958 | OUT (MPAG),A |
965 | OUT (MPAG),A |
959 | JP (IY) |
966 | JP (IY) |
960 | 967 | ||
961 | TLDI NEG |
968 | TLDI NEG |
962 | ADD A,A |
969 | ADD A,A |
963 | LD IYL,A |
970 | LD IYL,A |
964 | LD A,HIGH (LDITAB) |
971 | LD A,HIGH (LDITAB) |
965 | ADC A,0X00 |
972 | ADC A,0x00 |
966 | LD IYH,A |
973 | LD IYH,A |
967 | SCF |
974 | SCF |
968 | JP (IY) |
975 | JP (IY) |
969 | 976 | ||
970 | MLDD NEG |
977 | MLDD NEG |
971 | ADD A,A |
978 | ADD A,A |
972 | LD IYL,A |
979 | LD IYL,A |
973 | LD A,HIGH (LDDTAB) |
980 | LD A,HIGH (LDDTAB) |
974 | ADC A,0X00 |
981 | ADC A,0x00 |
975 | LD IYH,A |
982 | LD IYH,A |
976 | LD A,(SDPAGE) |
983 | LD A,(SDPAGE) |
977 | LD (CPAGE),A |
984 | LD (CPAGE),A |
978 | OUT (MPAG),A |
985 | OUT (MPAG),A |
979 | JP (IY) |
986 | JP (IY) |
980 | 987 | ||
981 | align 256 |
988 | align 256 |
982 | 989 | ||
983 | LDDTAB REPT 0X100 |
990 | LDDTAB REPT 0x100 |
984 | DB 0XED,0XA8 |
991 | DB 0xED,0xA8 |
985 | ENDM |
992 | ENDM |
986 | LD A,(SYSTEM) |
993 | LD A,(SYSTEM) |
987 | LD (CPAGE),A |
994 | LD (CPAGE),A |
988 | OUT (MPAG),A |
995 | OUT (MPAG),A |
989 | RET |
996 | RET |
990 | 997 | ||
991 | ;INCLUDE "LOAD_L.a80" |
998 | ;INCLUDE "LOAD_L.a80" |
992 | 999 | ||
993 | ; RET B,DE - OLD CURADR |
1000 | ; RET B,DE - OLD CURADR |
994 | ;0X0C09 |
1001 | ;0x0C09 |
995 | 1002 | ||
996 | LOAD LD B,0X81 |
1003 | LOAD LD B,0x81 |
997 | LD HL,(CURADR) |
1004 | LD HL,(CURADR) |
998 | LD A,(CURADR+2) |
1005 | LD A,(CURADR+2) |
999 | SCF |
1006 | SCF |
1000 | RL H |
1007 | RL H |
1001 | RLA |
1008 | RLA |
Line 1009... | Line 1016... | ||
1009 | OUT (MPAG),A |
1016 | OUT (MPAG),A |
1010 | LD A,(NUMPG) |
1017 | LD A,(NUMPG) |
1011 | CP E |
1018 | CP E |
1012 | JR NZ,LOADWT |
1019 | JR NZ,LOADWT |
1013 | LD A,H |
1020 | LD A,H |
1014 | CP 0XC0 |
1021 | CP 0xC0 |
1015 | JR C,LOADWT2 |
1022 | JR C,LOADWT2 |
1016 | JP LOADWT3 |
1023 | JP LOADWT3 |
1017 | 1024 | ||
1018 | LOADWT IN A,(ZXSTAT) |
1025 | LOADWT IN A,(ZXSTAT) |
1019 | AND B |
1026 | AND B |
Line 1026... | Line 1033... | ||
1026 | INC L |
1033 | INC L |
1027 | JP NZ,LOADWT |
1034 | JP NZ,LOADWT |
1028 | INC H |
1035 | INC H |
1029 | JP NZ,LOADWT |
1036 | JP NZ,LOADWT |
1030 | INC E |
1037 | INC E |
1031 | LD HL,0X8000 |
1038 | LD HL,0x8000 |
1032 | JP LOAD_ |
1039 | JP LOAD_ |
1033 | 1040 | ||
1034 | LOADCM IN A,(ZXCMD) |
1041 | LOADCM IN A,(ZXCMD) |
1035 | CP 0XF3 |
1042 | CP 0xF3 |
1036 | JP Z,COMF3 |
1043 | JP Z,COMF3 |
1037 | CP 0XF4 |
1044 | CP 0xF4 |
1038 | JP Z,COMF4 |
1045 | JP Z,COMF4 |
1039 | OUT (CLRCBIT),A |
1046 | OUT (CLRCBIT),A |
1040 | CP 0XD2 |
1047 | CP 0xD2 |
1041 | JP Z,LOAD3 |
1048 | JP Z,LOAD3 |
1042 | JP LOADWT |
1049 | JP LOADWT |
1043 | 1050 | ||
1044 | LOADWT2 IN A,(ZXSTAT) |
1051 | LOADWT2 IN A,(ZXSTAT) |
1045 | AND B |
1052 | AND B |
Line 1058... | Line 1065... | ||
1058 | JR Z,LOADWT3 |
1065 | JR Z,LOADWT3 |
1059 | RRCA |
1066 | RRCA |
1060 | IN A,(ZXDATRD) |
1067 | IN A,(ZXDATRD) |
1061 | JP NC,LOADWT3 |
1068 | JP NC,LOADWT3 |
1062 | IN A,(ZXCMD) |
1069 | IN A,(ZXCMD) |
1063 | CP 0XF3 |
1070 | CP 0xF3 |
1064 | JP Z,COMF3 |
1071 | JP Z,COMF3 |
1065 | CP 0XF4 |
1072 | CP 0xF4 |
1066 | JP Z,COMF4 |
1073 | JP Z,COMF4 |
1067 | OUT (CLRCBIT),A |
1074 | OUT (CLRCBIT),A |
1068 | CP 0XD2 |
1075 | CP 0xD2 |
1069 | JR Z,LOAD3 |
1076 | JR Z,LOAD3 |
1070 | JP LOADWT3 |
1077 | JP LOADWT3 |
1071 | 1078 | ||
1072 | LOADCM2 IN A,(ZXCMD) |
1079 | LOADCM2 IN A,(ZXCMD) |
1073 | CP 0XF3 |
1080 | CP 0xF3 |
1074 | JP Z,COMF3 |
1081 | JP Z,COMF3 |
1075 | CP 0XF4 |
1082 | CP 0xF4 |
1076 | JP Z,COMF4 |
1083 | JP Z,COMF4 |
1077 | OUT (CLRCBIT),A |
1084 | OUT (CLRCBIT),A |
1078 | CP 0XD2 |
1085 | CP 0xD2 |
1079 | JR Z,LOAD3 |
1086 | JR Z,LOAD3 |
1080 | JP LOADWT2 |
1087 | JP LOADWT2 |
1081 | 1088 | ||
1082 | LOAD3 LD A,E |
1089 | LOAD3 LD A,E |
1083 | RL H |
1090 | RL H |
Line 1093... | Line 1100... | ||
1093 | OUT (MPAG),A |
1100 | OUT (MPAG),A |
1094 | EX AF,AF' ;LD A,E |
1101 | EX AF,AF' ;LD A,E |
1095 | RET |
1102 | RET |
1096 | 1103 | ||
1097 | ;INCLUDE "PLAY.a80" |
1104 | ;INCLUDE "PLAY.a80" |
1098 | PLAYMD LD A,(RAMPG) ;0X0CC9 |
1105 | PLAYMD LD A,(RAMPG) ;0x0CC9 |
1099 | OUT (MPAG),A |
1106 | OUT (MPAG),A |
1100 | LD IY,CHANS |
1107 | LD IY,CHANS |
1101 | LD DE,CHANLEN |
1108 | LD DE,CHANLEN |
1102 | LD B,0X04 |
1109 | LD B,0x04 |
1103 | RDLP1 |
1110 | RDLP1 |
1104 | ;---patched |
1111 | ;---patched |
1105 | CALL Patch4 |
1112 | CALL Patch4 |
1106 | NOP |
1113 | NOP |
1107 | ;--- |
1114 | ;--- |
1108 | LD (IY+CHCNTH),0X00 |
1115 | LD (IY+CHCNTH),0x00 |
1109 | LD (IY+CHOLDV),0X80 |
1116 | LD (IY+CHOLDV),0x80 |
1110 | LD (IY+CHSTAT),0X01 |
1117 | LD (IY+CHSTAT),0x01 |
1111 | LD (IY+CHLPCNT),0X00 |
1118 | LD (IY+CHLPCNT),0x00 |
1112 | LD (IY+CHPATPS),0X00 |
1119 | LD (IY+CHPATPS),0x00 |
1113 | LD (IY+CHTRMPS),0X00 |
1120 | LD (IY+CHTRMPS),0x00 |
1114 | LD (IY+CHVIBPS),0X00 |
1121 | LD (IY+CHVIBPS),0x00 |
1115 | LD (IY+CHVOL),0X40 |
1122 | LD (IY+CHVOL),0x40 |
1116 | LD (IY+CHMVOL),0X40 |
1123 | LD (IY+CHMVOL),0x40 |
1117 | LD (IY+CHINS),0X00 |
1124 | LD (IY+CHINS),0x00 |
1118 | LD (IY+CHSMP),0X00 |
1125 | LD (IY+CHSMP),0x00 |
1119 | LD (IY+CHPAN),0X80 |
1126 | LD (IY+CHPAN),0x80 |
1120 | LD (IY+CHEPAN),0X20 |
1127 | LD (IY+CHEPAN),0x20 |
1121 | LD (IY+CHEVOL),0X40 |
1128 | LD (IY+CHEVOL),0x40 |
1122 | LD (IY+CHFADVL),0XFF |
1129 | LD (IY+CHFADVL),0xFF |
1123 | LD (IY+CHFADVH),0XFF |
1130 | LD (IY+CHFADVH),0xFF |
1124 | ADD IY,DE |
1131 | ADD IY,DE |
1125 | DJNZ RDLP1 |
1132 | DJNZ RDLP1 |
1126 | LD IXL,0XFF |
1133 | LD IXL,0xFF |
1127 | LD A,(0X8000+1080) ;определение сигнатуры заголовка |
1134 | LD A,(0x8000+1080) ;определение сигнатуры заголовка |
1128 | CP "M" |
1135 | CP "M" |
1129 | JR Z,TTY1 |
1136 | JR Z,TTY1 |
1130 | CP "4" |
1137 | CP "4" |
1131 | JR Z,TTY1 |
1138 | JR Z,TTY1 |
1132 | CP "F" |
1139 | CP "F" |
1133 | JR Z,TTY1 |
1140 | JR Z,TTY1 |
1134 | LD IXL,0X00 |
1141 | LD IXL,0x00 |
1135 | JP TTY0 |
1142 | JP TTY0 |
1136 | TTY1 LD A,(0X8000+1081) |
1143 | TTY1 LD A,(0x8000+1081) |
1137 | CP "." |
1144 | CP "." |
1138 | JR Z,TTY2 |
1145 | JR Z,TTY2 |
1139 | CP "L" |
1146 | CP "L" |
1140 | JR Z,TTY2 |
1147 | JR Z,TTY2 |
1141 | CP "!" |
1148 | CP "!" |
1142 | JR Z,TTY2 |
1149 | JR Z,TTY2 |
1143 | CP "C" |
1150 | CP "C" |
1144 | JR Z,TTY2 |
1151 | JR Z,TTY2 |
1145 | LD IXL,0X00 |
1152 | LD IXL,0x00 |
1146 | JP TTY0 |
1153 | JP TTY0 |
1147 | TTY2 LD A,(0X8000+1082) |
1154 | TTY2 LD A,(0x8000+1082) |
1148 | CP "K" |
1155 | CP "K" |
1149 | JR Z,TTY0 |
1156 | JR Z,TTY0 |
1150 | CP "T" |
1157 | CP "T" |
1151 | JR Z,TTY0 |
1158 | JR Z,TTY0 |
1152 | CP "H" |
1159 | CP "H" |
1153 | JR Z,TTY0 |
1160 | JR Z,TTY0 |
1154 | LD IXL,0X00 |
1161 | LD IXL,0x00 |
1155 | TTY0 LD A,IXL |
1162 | TTY0 LD A,IXL |
1156 | LD (MODTP),A |
1163 | LD (MODTP),A |
1157 | LD HL,0X8000+952 |
1164 | LD HL,0x8000+952 |
1158 | OR A |
1165 | OR A |
1159 | ;---patched |
1166 | ;---patched |
1160 | LD DE,0X0000+1084 |
1167 | LD DE,0x0000+1084 |
1161 | JR NZ,TTY10 |
1168 | JR NZ,TTY10 |
1162 | LD DE,0X0000+600 ;размер заголовка файла |
1169 | LD DE,0x0000+600 ;размер заголовка файла |
1163 | LD HL,0X8000+472 ;смещение до таблицы патернов |
1170 | LD HL,0x8000+472 ;смещение до таблицы патернов |
1164 | TTY10 LD B,0X80 ;сканирование таблицы патернов |
1171 | TTY10 LD B,0x80 ;сканирование таблицы патернов |
1165 | SUB A |
1172 | SUB A |
1166 | FDF2 CP (HL) |
1173 | FDF2 CP (HL) |
1167 | JR NC,FDF |
1174 | JR NC,FDF |
1168 | LD A,(HL) |
1175 | LD A,(HL) |
1169 | FDF INC HL |
1176 | FDF INC HL |
Line 1177... | Line 1184... | ||
1177 | LD A,H |
1184 | LD A,H |
1178 | LD H,L |
1185 | LD H,L |
1179 | LD L,B |
1186 | LD L,B |
1180 | ADD HL,DE |
1187 | ADD HL,DE |
1181 | ADC A,B |
1188 | ADC A,B |
1182 | DB 0XCB,0X34;SLI H |
1189 | DB 0xCB,0x34;SLI H |
1183 | RLA |
1190 | RLA |
1184 | RRC H |
1191 | RRC H |
1185 | LD E,A |
1192 | LD E,A |
1186 | LD (SMPS),HL |
1193 | LD (SMPS),HL |
1187 | LD (SMPS+2),A |
1194 | LD (SMPS+2),A |
1188 | DUPL 3,0 |
1195 | DUPL 3,0 |
1189 | ;--- |
1196 | ;--- |
1190 | LD A,IXL |
1197 | LD A,IXL |
1191 | OR A |
1198 | OR A |
1192 | LD BC,0X8000+950 |
1199 | LD BC,0x8000+950 |
1193 | JR NZ,TTT11 |
1200 | JR NZ,TTT11 |
1194 | LD BC,0X8000+470 |
1201 | LD BC,0x8000+470 |
1195 | TTT11 LD A,(BC) |
1202 | TTT11 LD A,(BC) |
1196 | DEC A |
1203 | DEC A |
1197 | LD (MTSNGSZ),A |
1204 | LD (MTSNGSZ),A |
1198 | INC BC |
1205 | INC BC |
1199 | LD A,(BC) |
1206 | LD A,(BC) |
1200 | LD (MTSNGLP),A |
1207 | LD (MTSNGLP),A |
1201 | LD IX,0X5400 |
1208 | LD IX,0x5400 |
1202 | LD IY,0X8000+20 ;начало сэмплов |
1209 | LD IY,0x8000+20 ;начало сэмплов |
1203 | LD B,31 |
1210 | LD B,31 |
1204 | LD C,E |
1211 | LD C,E |
1205 | RDLP3 PUSH BC |
1212 | RDLP3 PUSH BC |
1206 | LD (IX+SMPBEG),C |
1213 | LD (IX+SMPBEG),C |
1207 | LD (IX+SMPBEG+1),L |
1214 | LD (IX+SMPBEG+1),L |
1208 | LD (IX+SMPBEG+2),H |
1215 | LD (IX+SMPBEG+2),H |
1209 | LD A,(IY+28) |
1216 | LD A,(IY+28) |
1210 | OR A |
1217 | OR A |
1211 | JR NZ,LPL |
1218 | JR NZ,LPL |
1212 | LD A,(IY+29) |
1219 | LD A,(IY+29) |
1213 | CP 0X02 |
1220 | CP 0x02 |
1214 | JP C,NLPL |
1221 | JP C,NLPL |
1215 | LPL PUSH HL |
1222 | LPL PUSH HL |
1216 | PUSH BC |
1223 | PUSH BC |
1217 | LD L,(IY+27) |
1224 | LD L,(IY+27) |
1218 | LD H,(IY+26) |
1225 | LD H,(IY+26) |
Line 1236... | Line 1243... | ||
1236 | RRC H |
1243 | RRC H |
1237 | ADD HL,DE |
1244 | ADD HL,DE |
1238 | LD A,C |
1245 | LD A,C |
1239 | ADC A,B |
1246 | ADC A,B |
1240 | LD C,A |
1247 | LD C,A |
1241 | DB 0XCB,0X34;SLI H |
1248 | DB 0xCB,0x34;SLI H |
1242 | RL C |
1249 | RL C |
1243 | RRC H |
1250 | RRC H |
1244 | LD (IX+SMPLPB),C |
1251 | LD (IX+SMPLPB),C |
1245 | LD (IX+SMPLPB+1),L |
1252 | LD (IX+SMPLPB+1),L |
1246 | LD (IX+SMPLPB+2),H |
1253 | LD (IX+SMPLPB+2),H |
Line 1256... | Line 1263... | ||
1256 | RL B |
1263 | RL B |
1257 | ADD HL,DE |
1264 | ADD HL,DE |
1258 | LD A,C |
1265 | LD A,C |
1259 | ADC A,B |
1266 | ADC A,B |
1260 | LD C,A |
1267 | LD C,A |
1261 | DB 0XCB,0X34;SLI H |
1268 | DB 0xCB,0x34;SLI H |
1262 | RL C |
1269 | RL C |
1263 | RRC H |
1270 | RRC H |
1264 | LD (IX+SMPLPE),C |
1271 | LD (IX+SMPLPE),C |
1265 | LD (IX+SMPLPE+1),L |
1272 | LD (IX+SMPLPE+1),L |
1266 | LD (IX+SMPLPE+2),H |
1273 | LD (IX+SMPLPE+2),H |
Line 1269... | Line 1276... | ||
1269 | LD E,(IY+23) |
1276 | LD E,(IY+23) |
1270 | LD D,(IY+22) |
1277 | LD D,(IY+22) |
1271 | EX DE,HL |
1278 | EX DE,HL |
1272 | ADD HL,HL |
1279 | ADD HL,HL |
1273 | EX DE,HL |
1280 | EX DE,HL |
1274 | LD B,0X00 |
1281 | LD B,0x00 |
1275 | RL B |
1282 | RL B |
1276 | SRL C |
1283 | SRL C |
1277 | RL H |
1284 | RL H |
1278 | RRC H |
1285 | RRC H |
1279 | ADD HL,DE |
1286 | ADD HL,DE |
1280 | LD A,C |
1287 | LD A,C |
1281 | ADC A,B |
1288 | ADC A,B |
1282 | LD C,A |
1289 | LD C,A |
1283 | DB 0XCB,0X34;SLI H |
1290 | DB 0xCB,0x34;SLI H |
1284 | RL C |
1291 | RL C |
1285 | RRC H |
1292 | RRC H |
1286 | JP LPL2 |
1293 | JP LPL2 |
1287 | 1294 | ||
1288 | LD A,(IX+SMPLPE) |
1295 | LD A,(IX+SMPLPE) |
Line 1310... | Line 1317... | ||
1310 | LD (IX+SMPEND+1),A |
1317 | LD (IX+SMPEND+1),A |
1311 | LD A,(IX+SMPLPE+2) |
1318 | LD A,(IX+SMPLPE+2) |
1312 | LD (IX+SMPEND+2),A |
1319 | LD (IX+SMPEND+2),A |
1313 | JP LPCNT |
1320 | JP LPCNT |
1314 | 1321 | ||
1315 | NLPL LD (IX+SMPLPB),0XFF |
1322 | NLPL LD (IX+SMPLPB),0xFF |
1316 | LD E,(IY+23) |
1323 | LD E,(IY+23) |
1317 | LD D,(IY+22) |
1324 | LD D,(IY+22) |
1318 | EX DE,HL |
1325 | EX DE,HL |
1319 | ADD HL,HL |
1326 | ADD HL,HL |
1320 | EX DE,HL |
1327 | EX DE,HL |
1321 | LD B,0X00 |
1328 | LD B,0x00 |
1322 | RL B |
1329 | RL B |
1323 | SRL C |
1330 | SRL C |
1324 | RL H |
1331 | RL H |
1325 | RRC H |
1332 | RRC H |
1326 | ADD HL,DE |
1333 | ADD HL,DE |
1327 | LD A,C |
1334 | LD A,C |
1328 | ADC A,B |
1335 | ADC A,B |
1329 | LD C,A |
1336 | LD C,A |
1330 | DB 0XCB,0X34;SLI H |
1337 | DB 0xCB,0x34;SLI H |
1331 | RL C |
1338 | RL C |
1332 | RRC H |
1339 | RRC H |
1333 | RDLP2 LD (IX+SMPEND+1),L |
1340 | RDLP2 LD (IX+SMPEND+1),L |
1334 | LD (IX+SMPEND+2),H |
1341 | LD (IX+SMPEND+2),H |
1335 | LD (IX+SMPEND),C |
1342 | LD (IX+SMPEND),C |
1336 | LPCNT LD A,(IY+24) |
1343 | LPCNT LD A,(IY+24) |
1337 | ADD A,A |
1344 | ADD A,A |
1338 | LD (IX+SMPFT),A |
1345 | LD (IX+SMPFT),A |
1339 | LD A,(IY+25) |
1346 | LD A,(IY+25) |
1340 | LD (IX+SMPVOL),A |
1347 | LD (IX+SMPVOL),A |
1341 | LD DE,0X0010 |
1348 | LD DE,0x0010 |
1342 | ADD IX,DE |
1349 | ADD IX,DE |
1343 | LD DE,30 |
1350 | LD DE,30 |
1344 | ADD IY,DE |
1351 | ADD IY,DE |
1345 | LD A,C |
1352 | LD A,C |
1346 | POP BC |
1353 | POP BC |
Line 1349... | Line 1356... | ||
1349 | JP NZ,RDLP3 |
1356 | JP NZ,RDLP3 |
1350 | LD HL,CONVERT |
1357 | LD HL,CONVERT |
1351 | LD A,(HL) |
1358 | LD A,(HL) |
1352 | OR A |
1359 | OR A |
1353 | JR NZ,NOCONV |
1360 | JR NZ,NOCONV |
1354 | LD (HL),0XFF |
1361 | LD (HL),0xFF |
1355 | LD HL,(SMPS) |
1362 | LD HL,(SMPS) |
1356 | LD A,(SMPS+2) |
1363 | LD A,(SMPS+2) |
1357 | LD E,A |
1364 | LD E,A |
1358 | LD D,HIGH (RAMPG) |
1365 | LD D,HIGH (RAMPG) |
1359 | LD A,(NUMPG) |
1366 | LD A,(NUMPG) |
Line 1362... | Line 1369... | ||
1362 | SMPMD2 LD A,(DE) |
1369 | SMPMD2 LD A,(DE) |
1363 | OUT (MPAG),A |
1370 | OUT (MPAG),A |
1364 | CALL SET7XOR ;КОНВЕРСИЯ ЗАГРУЖЕННОГО MOD ФАЙЛА |
1371 | CALL SET7XOR ;КОНВЕРСИЯ ЗАГРУЖЕННОГО MOD ФАЙЛА |
1365 | JR SMPMD4 |
1372 | JR SMPMD4 |
1366 | 1373 | ||
1367 | ;SMPMD1 LD A,(HL) ;начало ADD A,0X80 |
1374 | ;SMPMD1 LD A,(HL) ;начало ADD A,0x80 |
1368 | ; ADD A,0X80 |
1375 | ; ADD A,0x80 |
1369 | ; LD (HL),A |
1376 | ; LD (HL),A |
1370 | ; INC L |
1377 | ; INC L |
1371 | ; JP NZ,SMPMD1 |
1378 | ; JP NZ,SMPMD1 |
1372 | ; INC H |
1379 | ; INC H |
1373 | ; JP NZ,SMPMD1 |
1380 | ; JP NZ,SMPMD1 |
1374 | ; LD H,0X80 |
1381 | ; LD H,0x80 |
1375 | ; INC E |
1382 | ; INC E |
1376 | ; DJNZ SMPMD2 |
1383 | ; DJNZ SMPMD2 |
1377 | ; LD A,(DE) |
1384 | ; LD A,(DE) |
1378 | ; OUT (MPAG),A |
1385 | ; OUT (MPAG),A |
1379 | ; OR A |
1386 | ; OR A |
1380 | ; JR Z,SMPMD4 |
1387 | ; JR Z,SMPMD4 |
1381 | ;SMPMD3 LD A,(HL) |
1388 | ;SMPMD3 LD A,(HL) |
1382 | ; ADD A,0X80 |
1389 | ; ADD A,0x80 |
1383 | ; LD (HL),A |
1390 | ; LD (HL),A |
1384 | ; INC L |
1391 | ; INC L |
1385 | ; JP NZ,SMPMD3 |
1392 | ; JP NZ,SMPMD3 |
1386 | ; INC H |
1393 | ; INC H |
1387 | ; BIT 6,H |
1394 | ; BIT 6,H |
1388 | ; JP Z,SMPMD3 |
1395 | ; JP Z,SMPMD3 |
1389 | 1396 | ||
1390 | DUPL 0XF20-$,0XFF |
1397 | DUPL 0xF20-$,0xFF |
1391 | SMPMD4 |
1398 | SMPMD4 |
1392 | NOCONV XOR A |
1399 | NOCONV XOR A |
1393 | LD (CPAGE),A |
1400 | LD (CPAGE),A |
1394 | OUT (MPAG),A |
1401 | OUT (MPAG),A |
1395 | RET |
1402 | RET |
Line 1397... | Line 1404... | ||
1397 | INITPAT LD A,(MTSNGPS) |
1404 | INITPAT LD A,(MTSNGPS) |
1398 | LD E,A |
1405 | LD E,A |
1399 | LD D,0 |
1406 | LD D,0 |
1400 | LD A,(MODTP) |
1407 | LD A,(MODTP) |
1401 | INC A |
1408 | INC A |
1402 | LD HL,0X8000+952 |
1409 | LD HL,0x8000+952 |
1403 | JR Z,TTT13 |
1410 | JR Z,TTT13 |
1404 | LD HL,0X8000+472 |
1411 | LD HL,0x8000+472 |
1405 | TTT13 ADD HL,DE |
1412 | TTT13 ADD HL,DE |
1406 | LD A,(RAMPG) |
1413 | LD A,(RAMPG) |
1407 | OUT (MPAG),A |
1414 | OUT (MPAG),A |
1408 | ;---patched |
1415 | ;---patched |
1409 | JP Patch11 |
1416 | JP Patch11 |
1410 | ;--- |
1417 | ;--- |
1411 | LD E,D |
1418 | LD E,D |
1412 | LD D,A |
1419 | LD D,A |
1413 | LD A,(MODTP) |
1420 | LD A,(MODTP) |
1414 | INC A |
1421 | INC A |
1415 | LD HL,0X0000+1084 |
1422 | LD HL,0x0000+1084 |
1416 | JR Z,TTT15 |
1423 | JR Z,TTT15 |
1417 | LD HL,0X0000+600 |
1424 | LD HL,0x0000+600 |
1418 | TTT15 XOR A |
1425 | TTT15 XOR A |
1419 | LD (CPAGE),A |
1426 | LD (CPAGE),A |
1420 | OUT (MPAG),A |
1427 | OUT (MPAG),A |
1421 | ADD HL,DE |
1428 | ADD HL,DE |
1422 | LD DE,0X5000 |
1429 | LD DE,0x5000 |
1423 | LD BC,0X400 |
1430 | LD BC,0x400 |
1424 | CALL LDMEM |
1431 | CALL LDMEM |
1425 | XOR A |
1432 | XOR A |
1426 | OUT (MPAG),A |
1433 | OUT (MPAG),A |
1427 | RET |
1434 | RET |
1428 | 1435 | ||
Line 1438... | Line 1445... | ||
1438 | LD A,(GSCHNS) |
1445 | LD A,(GSCHNS) |
1439 | AND C |
1446 | AND C |
1440 | LD C,A |
1447 | LD C,A |
1441 | LD IY,CHANS ;CHANNELS |
1448 | LD IY,CHANS ;CHANNELS |
1442 | LD A,(MTSTAT) |
1449 | LD A,(MTSTAT) |
1443 | AND 0XC0 |
1450 | AND 0xC0 |
1444 | JR NZ,L221 |
1451 | JR NZ,L221 |
1445 | L204 LD A,C |
1452 | L204 LD A,C |
1446 | AND (IY+CHRDR) |
1453 | AND (IY+CHRDR) |
1447 | JR Z,L205 |
1454 | JR Z,L205 |
1448 | BIT 7,(IY+CHSTAT) |
1455 | BIT 7,(IY+CHSTAT) |
1449 | JR Z,L205 |
1456 | JR Z,L205 |
1450 | PUSH BC |
1457 | PUSH BC |
1451 | CALL GEN |
1458 | CALL GEN |
1452 | POP BC |
1459 | POP BC |
1453 | L205 LD A,IYL |
1460 | L205 LD A,IYL |
1454 | ADD A,0X40 |
1461 | ADD A,0x40 |
1455 | LD IYL,A |
1462 | LD IYL,A |
1456 | JP NC,L204 |
1463 | JP NC,L204 |
1457 | JP L221 |
1464 | JP L221 |
1458 | 1465 | ||
1459 | L221 XOR A |
1466 | L221 XOR A |
Line 1472... | Line 1479... | ||
1472 | LD B,L |
1479 | LD B,L |
1473 | INC L |
1480 | INC L |
1474 | PUSH BC |
1481 | PUSH BC |
1475 | PUSH HL |
1482 | PUSH HL |
1476 | LD A,(CHANNEL) |
1483 | LD A,(CHANNEL) |
1477 | AND 0X0F |
1484 | AND 0x0F |
1478 | LD HL,INTTB |
1485 | LD HL,INTTB |
1479 | ADD A,A |
1486 | ADD A,A |
1480 | ADD A,L |
1487 | ADD A,L |
1481 | LD L,A |
1488 | LD L,A |
1482 | LD A,H |
1489 | LD A,H |
1483 | ADC A,0X00 |
1490 | ADC A,0x00 |
1484 | LD H,A |
1491 | LD H,A |
1485 | LD C,(HL) |
1492 | LD C,(HL) |
1486 | INC HL |
1493 | INC HL |
1487 | LD B,(HL) |
1494 | LD B,(HL) |
1488 | LD A,(CHANNEL) |
1495 | LD A,(CHANNEL) |
1489 | AND 0X0F |
1496 | AND 0x0F |
1490 | LD HL,INTOFF |
1497 | LD HL,INTOFF |
1491 | ADD A,L |
1498 | ADD A,L |
1492 | LD L,A |
1499 | LD L,A |
1493 | LD A,H |
1500 | LD A,H |
1494 | ADC A,0X00 |
1501 | ADC A,0x00 |
1495 | LD H,A |
1502 | LD H,A |
1496 | LD A,(QTFREE) |
1503 | LD A,(QTFREE) |
1497 | ADD A,0X60 |
1504 | ADD A,0x60 |
1498 | ADD A,(HL) |
1505 | ADD A,(HL) |
1499 | POP HL |
1506 | POP HL |
1500 | LD (HL),A |
1507 | LD (HL),A |
1501 | INC L |
1508 | INC L |
1502 | LD (HL),C |
1509 | LD (HL),C |
Line 1517... | Line 1524... | ||
1517 | L224 LD A,(SGENOFF) |
1524 | L224 LD A,(SGENOFF) |
1518 | NEG |
1525 | NEG |
1519 | LD C,A |
1526 | LD C,A |
1520 | LD B,0 |
1527 | LD B,0 |
1521 | LD A,(MTSTAT) |
1528 | LD A,(MTSTAT) |
1522 | AND 0XC0 |
1529 | AND 0xC0 |
1523 | RET NZ |
1530 | RET NZ |
1524 | LD HL,(TCKLEFT) |
1531 | LD HL,(TCKLEFT) |
1525 | OR A |
1532 | OR A |
1526 | SBC HL,BC |
1533 | SBC HL,BC |
1527 | JR Z,EFXINT |
1534 | JR Z,EFXINT |
Line 1535... | Line 1542... | ||
1535 | LD (TCKLEFT),HL |
1542 | LD (TCKLEFT),HL |
1536 | XOR A |
1543 | XOR A |
1537 | LD (CPAGE),A |
1544 | LD (CPAGE),A |
1538 | OUT (MPAG),A |
1545 | OUT (MPAG),A |
1539 | LD IY,CHANS |
1546 | LD IY,CHANS |
1540 | LD B,0X04 |
1547 | LD B,0x04 |
1541 | LD A,(MTCOUNT) |
1548 | LD A,(MTCOUNT) |
1542 | INC A |
1549 | INC A |
1543 | LD (MTCOUNT),A |
1550 | LD (MTCOUNT),A |
1544 | LD HL,MTSPEED |
1551 | LD HL,MTSPEED |
1545 | CP (HL) |
1552 | CP (HL) |
Line 1551... | Line 1558... | ||
1551 | JR Z,EFXGTNT ;GET NEW NOTE |
1558 | JR Z,EFXGTNT ;GET NEW NOTE |
1552 | CALL EFXNONT |
1559 | CALL EFXNONT |
1553 | JP EFXSKIP |
1560 | JP EFXSKIP |
1554 | 1561 | ||
1555 | EFXNONT LD IY,CHANS |
1562 | EFXNONT LD IY,CHANS |
1556 | LD B,0X04 |
1563 | LD B,0x04 |
1557 | EFXNON1 PUSH BC |
1564 | EFXNON1 PUSH BC |
1558 | LD A,(IY+CHCOM) |
1565 | LD A,(IY+CHCOM) |
1559 | OR (IY+CHPARM) |
1566 | OR (IY+CHPARM) |
1560 | JR NZ,EFXNON2 |
1567 | JR NZ,EFXNON2 |
1561 | CALL FXNOP |
1568 | CALL FXNOP |
Line 1577... | Line 1584... | ||
1577 | 1584 | ||
1578 | EFXGTNT |
1585 | EFXGTNT |
1579 | ;LD IY,CHANS |
1586 | ;LD IY,CHANS |
1580 | ;---patched |
1587 | ;---patched |
1581 | JP Patch3 |
1588 | JP Patch3 |
1582 | DB 0X46 |
1589 | DB 0x46 |
1583 | ;--- |
1590 | ;--- |
1584 | XOR A |
1591 | XOR A |
1585 | LD (CPAGE),A |
1592 | LD (CPAGE),A |
1586 | OUT (MPAG),A |
1593 | OUT (MPAG),A |
1587 | LD (CURCHN),A |
1594 | LD (CURCHN),A |
Line 1599... | Line 1606... | ||
1599 | PUSH BC |
1606 | PUSH BC |
1600 | CALL EFXNEWI |
1607 | CALL EFXNEWI |
1601 | POP BC |
1608 | POP BC |
1602 | POP DE |
1609 | POP DE |
1603 | COMM2 LD A,D |
1610 | COMM2 LD A,D |
1604 | CP 0X7F |
1611 | CP 0x7F |
1605 | JP Z,COMM5 |
1612 | JP Z,COMM5 |
1606 | LD A,B |
1613 | LD A,B |
1607 | CP 0X03 |
1614 | CP 0x03 |
1608 | JP Z,COMM4 |
1615 | JP Z,COMM4 |
1609 | CP 0X05 |
1616 | CP 0x05 |
1610 | JP Z,COMM4 |
1617 | JP Z,COMM4 |
1611 | CP 0X0E |
1618 | CP 0x0E |
1612 | JR NZ,COMM3 |
1619 | JR NZ,COMM3 |
1613 | LD A,C |
1620 | LD A,C |
1614 | AND 0XF0 |
1621 | AND 0xF0 |
1615 | CP 0X50 |
1622 | CP 0x50 |
1616 | JR Z,COMM5_ |
1623 | JR Z,COMM5_ |
1617 | LD (IY+CHNOTE),D |
1624 | LD (IY+CHNOTE),D |
1618 | LD (IY+CHREAL),D |
1625 | LD (IY+CHREAL),D |
1619 | CP 0XD0 |
1626 | CP 0xD0 |
1620 | JR Z,COMM3__ |
1627 | JR Z,COMM3__ |
1621 | JP COMM3 |
1628 | JP COMM3 |
1622 | 1629 | ||
1623 | COMM5_ LD A,C |
1630 | COMM5_ LD A,C |
1624 | AND 0X0F |
1631 | AND 0x0F |
1625 | SLA A |
1632 | SLA A |
1626 | LD (IY+CHFINE),A |
1633 | LD (IY+CHFINE),A |
1627 | COMM3 LD (IY+CHNOTE),D |
1634 | COMM3 LD (IY+CHNOTE),D |
1628 | LD (IY+CHREAL),D |
1635 | LD (IY+CHREAL),D |
1629 | CALL GETSMP |
1636 | CALL GETSMP |
Line 1634... | Line 1641... | ||
1634 | LD E,(IY+CHNOTE) |
1641 | LD E,(IY+CHNOTE) |
1635 | CALL GETFRQ |
1642 | CALL GETFRQ |
1636 | LD (IY+CHFRQL),L |
1643 | LD (IY+CHFRQL),L |
1637 | LD (IY+CHFRQH),H |
1644 | LD (IY+CHFRQH),H |
1638 | LD A,(IY+CHCOM) |
1645 | LD A,(IY+CHCOM) |
1639 | CP 0X09 |
1646 | CP 0x09 |
1640 | JP NZ,COMM5 |
1647 | JP NZ,COMM5 |
1641 | LD A,(IY+CHPARM) |
1648 | LD A,(IY+CHPARM) |
1642 | OR A |
1649 | OR A |
1643 | JR NZ,FX9_ |
1650 | JR NZ,FX9_ |
1644 | LD A,(IY+CHOFFST) |
1651 | LD A,(IY+CHOFFST) |
1645 | FX9_ LD (IY+CHOFFST),A |
1652 | FX9_ LD (IY+CHOFFST),A |
1646 | LD H,A |
1653 | LD H,A |
1647 | LD L,0X00 |
1654 | LD L,0x00 |
1648 | XOR A |
1655 | XOR A |
1649 | ADC A,A |
1656 | ADC A,A |
1650 | EX DE,HL |
1657 | EX DE,HL |
1651 | LD L,(IY+CHCURL) |
1658 | LD L,(IY+CHCURL) |
1652 | LD H,(IY+CHCURH) |
1659 | LD H,(IY+CHCURH) |
Line 1654... | Line 1661... | ||
1654 | RL H |
1661 | RL H |
1655 | SRL B |
1662 | SRL B |
1656 | RR H |
1663 | RR H |
1657 | ADD HL,DE |
1664 | ADD HL,DE |
1658 | ADC A,B |
1665 | ADC A,B |
1659 | DB 0XCB,0X34;SLI H |
1666 | DB 0xCB,0x34;SLI H |
1660 | RLA |
1667 | RLA |
1661 | RRC H |
1668 | RRC H |
1662 | LD (IY+CHCURL),L |
1669 | LD (IY+CHCURL),L |
1663 | LD (IY+CHCURH),H |
1670 | LD (IY+CHCURH),H |
1664 | LD (IY+CHCURP),A |
1671 | LD (IY+CHCURP),A |
Line 1683... | Line 1690... | ||
1683 | COMM6 LD BC,CHANLEN |
1690 | COMM6 LD BC,CHANLEN |
1684 | ADD IY,BC |
1691 | ADD IY,BC |
1685 | LD A,(CURCHN) |
1692 | LD A,(CURCHN) |
1686 | INC A |
1693 | INC A |
1687 | LD (CURCHN),A |
1694 | LD (CURCHN),A |
1688 | CP 0X04 |
1695 | CP 0x04 |
1689 | JP NZ,COMM1 |
1696 | JP NZ,COMM1 |
1690 | EFXSKIP LD HL,MTPATPS |
1697 | EFXSKIP LD HL,MTPATPS |
1691 | INC (HL) |
1698 | INC (HL) |
1692 | LD A,(MTPDT) |
1699 | LD A,(MTPDT) |
1693 | OR A |
1700 | OR A |
Line 1733... | Line 1740... | ||
1733 | CP (HL) |
1740 | CP (HL) |
1734 | JP NC,INITPAT |
1741 | JP NC,INITPAT |
1735 | EFXSKP7 LD A,(MTSNGSZ) |
1742 | EFXSKP7 LD A,(MTSNGSZ) |
1736 | LD HL,MTSNGLP |
1743 | LD HL,MTSNGLP |
1737 | CP (HL) |
1744 | CP (HL) |
1738 | LD A,0X00 |
1745 | LD A,0x00 |
1739 | JR C,EFXSKP8 |
1746 | JR C,EFXSKP8 |
1740 | LD A,(HL) |
1747 | LD A,(HL) |
1741 | EFXSKP8 LD (MTSNGPS),A |
1748 | EFXSKP8 LD (MTSNGPS),A |
1742 | 1749 | ||
1743 | LD A,6 |
1750 | LD A,6 |
Line 1768... | Line 1775... | ||
1768 | ADD A,A |
1775 | ADD A,A |
1769 | ADD A,A |
1776 | ADD A,A |
1770 | ADD A,A |
1777 | ADD A,A |
1771 | ADD A,A |
1778 | ADD A,A |
1772 | LD E,A |
1779 | LD E,A |
1773 | LD A,0X54 |
1780 | LD A,0x54 |
1774 | ADC A,0X00 |
1781 | ADC A,0x00 |
1775 | LD D,A |
1782 | LD D,A |
1776 | LD A,(DE) |
1783 | LD A,(DE) |
1777 | LD (IY+CHCURP),A |
1784 | LD (IY+CHCURP),A |
1778 | INC DE |
1785 | INC DE |
1779 | LD A,(DE) |
1786 | LD A,(DE) |
Line 1812... | Line 1819... | ||
1812 | LD A,(DE) |
1819 | LD A,(DE) |
1813 | LD (IY+CHLPEL),A |
1820 | LD (IY+CHLPEL),A |
1814 | INC DE |
1821 | INC DE |
1815 | LD A,(DE) |
1822 | LD A,(DE) |
1816 | LD (IY+CHLPEH),A |
1823 | LD (IY+CHLPEH),A |
1817 | LD (IY+CHCNTL),0X00 |
1824 | LD (IY+CHCNTL),0x00 |
1818 | LD (IY+CHCNTH),0X07 |
1825 | LD (IY+CHCNTH),0x07 |
1819 | LD A,(IY+CHCURP) |
1826 | LD A,(IY+CHCURP) |
1820 | CP (IY+CHENDP) |
1827 | CP (IY+CHENDP) |
1821 | RET C |
1828 | RET C |
1822 | JP NZ,GETSMP2 |
1829 | JP NZ,GETSMP2 |
1823 | LD A,(IY+CHCURH) |
1830 | LD A,(IY+CHCURH) |
Line 1829... | Line 1836... | ||
1829 | RET C |
1836 | RET C |
1830 | GETSMP2 RES 7,(IY+CHSTAT) |
1837 | GETSMP2 RES 7,(IY+CHSTAT) |
1831 | RET |
1838 | RET |
1832 | GETSMP3 INC (IY+CHCURH) |
1839 | GETSMP3 INC (IY+CHCURH) |
1833 | RET NZ |
1840 | RET NZ |
1834 | LD (IY+CHCURH),0X80 |
1841 | LD (IY+CHCURH),0x80 |
1835 | INC (IY+CHCURP) |
1842 | INC (IY+CHCURP) |
1836 | RET |
1843 | RET |
1837 | 1844 | ||
1838 | EFXNEWI LD A,(IY+CHINS) |
1845 | EFXNEWI LD A,(IY+CHINS) |
1839 | DEC A |
1846 | DEC A |
1840 | ADD A,A |
1847 | ADD A,A |
1841 | ADD A,A |
1848 | ADD A,A |
1842 | ADD A,A |
1849 | ADD A,A |
1843 | ADD A,A |
1850 | ADD A,A |
1844 | LD E,A |
1851 | LD E,A |
1845 | LD A,0X54 |
1852 | LD A,0x54 |
1846 | ADC A,0X00 |
1853 | ADC A,0x00 |
1847 | LD D,A |
1854 | LD D,A |
1848 | INC DE |
1855 | INC DE |
1849 | INC DE |
1856 | INC DE |
1850 | INC DE |
1857 | INC DE |
1851 | INC DE |
1858 | INC DE |
Line 1853... | Line 1860... | ||
1853 | INC DE |
1860 | INC DE |
1854 | LD A,(DE) |
1861 | LD A,(DE) |
1855 | LD (IY+CHFINE),A |
1862 | LD (IY+CHFINE),A |
1856 | INC DE |
1863 | INC DE |
1857 | LD A,(DE) |
1864 | LD A,(DE) |
1858 | CP 0X40 |
1865 | CP 0x40 |
1859 | JR C,GETSMP1 |
1866 | JR C,GETSMP1 |
1860 | LD A,0X40 |
1867 | LD A,0x40 |
1861 | GETSMP1 LD (IY+CHVOL),A |
1868 | GETSMP1 LD (IY+CHVOL),A |
1862 | CP (IY+CHMVOL) |
1869 | CP (IY+CHMVOL) |
1863 | LD (IY+CHMVOL),A |
1870 | LD (IY+CHMVOL),A |
1864 | RET Z |
1871 | RET Z |
1865 | SET 0,(IY+CHSTAT) |
1872 | SET 0,(IY+CHSTAT) |
1866 | RET |
1873 | RET |
1867 | 1874 | ||
1868 | GETROWS LD A,(MTPATPS) |
1875 | GETROWS LD A,(MTPATPS) |
1869 | AND 0X3F |
1876 | AND 0x3F |
1870 | ADD A,A |
1877 | ADD A,A |
1871 | ADD A,A |
1878 | ADD A,A |
1872 | LD L,A |
1879 | LD L,A |
1873 | LD H,0X00 |
1880 | LD H,0x00 |
1874 | ADD HL,HL |
1881 | ADD HL,HL |
1875 | ADD HL,HL |
1882 | ADD HL,HL |
1876 | LD A,(CURCHN) |
1883 | LD A,(CURCHN) |
1877 | ADD A,A |
1884 | ADD A,A |
1878 | ADD A,A |
1885 | ADD A,A |
1879 | ADD A,L |
1886 | ADD A,L |
1880 | LD L,A |
1887 | LD L,A |
1881 | LD A,H |
1888 | LD A,H |
1882 | ADC A,0X50 |
1889 | ADC A,0x50 |
1883 | LD H,A |
1890 | LD H,A |
1884 | LD A,(HL) |
1891 | LD A,(HL) |
1885 | AND 0X10 |
1892 | AND 0x10 |
1886 | PUSH AF |
1893 | PUSH AF |
1887 | LD A,(HL) |
1894 | LD A,(HL) |
1888 | AND 0X0F |
1895 | AND 0x0F |
1889 | LD D,A |
1896 | LD D,A |
1890 | INC HL |
1897 | INC HL |
1891 | LD E,(HL) |
1898 | LD E,(HL) |
1892 | OR E |
1899 | OR E |
1893 | LD A,0X7F |
1900 | LD A,0x7F |
1894 | JR Z,GETRWS2 |
1901 | JR Z,GETRWS2 |
1895 | PUSH HL |
1902 | PUSH HL |
1896 | CALL NOTEID |
1903 | CALL NOTEID |
1897 | POP HL |
1904 | POP HL |
1898 | GETRWS2 INC HL |
1905 | GETRWS2 INC HL |
1899 | POP BC |
1906 | POP BC |
1900 | LD D,A |
1907 | LD D,A |
1901 | LD A,(HL) |
1908 | LD A,(HL) |
1902 | AND 0XF0 |
1909 | AND 0xF0 |
1903 | RRCA |
1910 | RRCA |
1904 | RRCA |
1911 | RRCA |
1905 | RRCA |
1912 | RRCA |
1906 | RRCA |
1913 | RRCA |
1907 | OR B |
1914 | OR B |
1908 | LD E,A |
1915 | LD E,A |
1909 | LD A,(HL) |
1916 | LD A,(HL) |
1910 | AND 0X0F |
1917 | AND 0x0F |
1911 | LD B,A |
1918 | LD B,A |
1912 | INC HL |
1919 | INC HL |
1913 | LD C,(HL) |
1920 | LD C,(HL) |
1914 | RET |
1921 | RET |
1915 | 1922 | ||
Line 2092... | Line 2099... | ||
2092 | EI |
2099 | EI |
2093 | EX DE,HL |
2100 | EX DE,HL |
2094 | LD HL,(QTBUSY) |
2101 | LD HL,(QTBUSY) |
2095 | LD (HL),A |
2102 | LD (HL),A |
2096 | LD A,L |
2103 | LD A,L |
2097 | ADD A,0X04 |
2104 | ADD A,0x04 |
2098 | AND 0X1C |
2105 | AND 0x1C |
2099 | LD L,A |
2106 | LD L,A |
2100 | LD (QTBUSY),HL |
2107 | LD (QTBUSY),HL |
2101 | SET 5,L |
2108 | SET 5,L |
2102 | LD A,(HL) |
2109 | LD A,(HL) |
2103 | OUT (VOL1),A |
2110 | OUT (VOL1),A |
Line 2114... | Line 2121... | ||
2114 | POP HL |
2121 | POP HL |
2115 | EX DE,HL |
2122 | EX DE,HL |
2116 | RET |
2123 | RET |
2117 | 2124 | ||
2118 | QTDONE LD A,(QTBUSY) |
2125 | QTDONE LD A,(QTBUSY) |
2119 | ADD A,0X04 |
2126 | ADD A,0x04 |
2120 | AND 0X1C |
2127 | AND 0x1C |
2121 | LD E,A |
2128 | LD E,A |
2122 | LD D,HIGH (QTMAP) |
2129 | LD D,HIGH (QTMAP) |
2123 | LD A,(DE) |
2130 | LD A,(DE) |
2124 | OR A |
2131 | OR A |
2125 | JR Z,QTFAULT |
2132 | JR Z,QTFAULT |
Line 2132... | Line 2139... | ||
2132 | LD A,(DE) |
2139 | LD A,(DE) |
2133 | OR A |
2140 | OR A |
2134 | JR Z,INT_IM1 |
2141 | JR Z,INT_IM1 |
2135 | IM 2 |
2142 | IM 2 |
2136 | EX DE,HL |
2143 | EX DE,HL |
2137 | LD HL,INTAREA+0X18 |
2144 | LD HL,INTAREA+0x18 |
2138 | CP (HL) |
2145 | CP (HL) |
2139 | JR Z,INT_I1 |
2146 | JR Z,INT_I1 |
2140 | LD (HL),A |
2147 | LD (HL),A |
2141 | LD HL,0X1518 |
2148 | LD HL,0x1518 |
2142 | LD (INTAREA),HL |
2149 | LD (INTAREA),HL |
2143 | EI |
2150 | EI |
2144 | DEC A |
2151 | DEC A |
2145 | JR Z,INT_I0 |
2152 | JR Z,INT_I0 |
2146 | ADD A,0X03 |
2153 | ADD A,0x03 |
2147 | LD L,A |
2154 | LD L,A |
2148 | LD H,HIGH (INT0) |
2155 | LD H,HIGH (INT0) |
2149 | PUSH DE |
2156 | PUSH DE |
2150 | PUSH BC |
2157 | PUSH BC |
2151 | LD DE,INTAREA+2 |
2158 | LD DE,INTAREA+2 |
Line 2163... | Line 2170... | ||
2163 | LDI |
2170 | LDI |
2164 | LDI |
2171 | LDI |
2165 | LDI |
2172 | LDI |
2166 | LDI |
2173 | LDI |
2167 | LDI |
2174 | LDI |
2168 | LD HL,0XD508 |
2175 | LD HL,0xD508 |
2169 | LD (INTAREA),HL |
2176 | LD (INTAREA),HL |
2170 | POP BC |
2177 | POP BC |
2171 | POP DE |
2178 | POP DE |
2172 | LD HL,(QTBUSY) |
2179 | LD HL,(QTBUSY) |
2173 | LD (HL),0X00 |
2180 | LD (HL),0x00 |
2174 | LD A,L |
2181 | LD A,L |
2175 | ADD A,0X04 |
2182 | ADD A,0x04 |
2176 | AND 0X1C |
2183 | AND 0x1C |
2177 | LD L,A |
2184 | LD L,A |
2178 | LD (QTBUSY),HL |
2185 | LD (QTBUSY),HL |
2179 | SET 5,L |
2186 | SET 5,L |
2180 | LD A,(HL) |
2187 | LD A,(HL) |
2181 | OUT (VOL1),A |
2188 | OUT (VOL1),A |
Line 2192... | Line 2199... | ||
2192 | POP HL |
2199 | POP HL |
2193 | EX DE,HL |
2200 | EX DE,HL |
2194 | RET |
2201 | RET |
2195 | 2202 | ||
2196 | INT_I1 EI |
2203 | INT_I1 EI |
2197 | LD A,0X04 |
2204 | LD A,0x04 |
2198 | LD HL,(QTBUSY) |
2205 | LD HL,(QTBUSY) |
2199 | LD (HL),0X00 |
2206 | LD (HL),0x00 |
2200 | ADD A,L |
2207 | ADD A,L |
2201 | AND 0X1C |
2208 | AND 0x1C |
2202 | LD L,A |
2209 | LD L,A |
2203 | LD (QTBUSY),HL |
2210 | LD (QTBUSY),HL |
2204 | SET 5,L |
2211 | SET 5,L |
2205 | LD A,(HL) |
2212 | LD A,(HL) |
2206 | OUT (VOL1),A |
2213 | OUT (VOL1),A |
Line 2225... | Line 2232... | ||
2225 | LDI |
2232 | LDI |
2226 | LDI |
2233 | LDI |
2227 | LDI |
2234 | LDI |
2228 | LDI |
2235 | LDI |
2229 | LDI |
2236 | LDI |
2230 | LD HL,0X3C08 |
2237 | LD HL,0x3C08 |
2231 | LD (INTAREA),HL |
2238 | LD (INTAREA),HL |
2232 | POP BC |
2239 | POP BC |
2233 | POP DE |
2240 | POP DE |
2234 | LD HL,(QTBUSY) |
2241 | LD HL,(QTBUSY) |
2235 | LD (HL),A |
2242 | LD (HL),A |
2236 | LD A,L |
2243 | LD A,L |
2237 | ADD A,0X04 |
2244 | ADD A,0x04 |
2238 | AND 0X1C |
2245 | AND 0x1C |
2239 | LD L,A |
2246 | LD L,A |
2240 | LD (QTBUSY),HL |
2247 | LD (QTBUSY),HL |
2241 | SET 5,L |
2248 | SET 5,L |
2242 | LD A,(HL) |
2249 | LD A,(HL) |
2243 | OUT (VOL1),A |
2250 | OUT (VOL1),A |
Line 2254... | Line 2261... | ||
2254 | POP HL |
2261 | POP HL |
2255 | EX DE,HL |
2262 | EX DE,HL |
2256 | RET |
2263 | RET |
2257 | 2264 | ||
2258 | QTPLAY DI |
2265 | QTPLAY DI |
2259 | LD A,0XFF |
2266 | LD A,0xFF |
2260 | LD (PLAYING),A |
2267 | LD (PLAYING),A |
2261 | LD HL,(QTBUSY) |
2268 | LD HL,(QTBUSY) |
2262 | LD A,(HL) |
2269 | LD A,(HL) |
2263 | EX AF,AF' |
2270 | EX AF,AF' |
2264 | INC L |
2271 | INC L |
Line 2268... | Line 2275... | ||
2268 | LD A,(HL) |
2275 | LD A,(HL) |
2269 | IM 1 |
2276 | IM 1 |
2270 | OR A |
2277 | OR A |
2271 | JR Z,QTPLAY_ |
2278 | JR Z,QTPLAY_ |
2272 | IM 2 |
2279 | IM 2 |
2273 | LD HL,INTAREA+0X18 |
2280 | LD HL,INTAREA+0x18 |
2274 | CP (HL) |
2281 | CP (HL) |
2275 | JR Z,QTPLAY_ |
2282 | JR Z,QTPLAY_ |
2276 | LD (HL),A |
2283 | LD (HL),A |
2277 | LD L,A |
2284 | LD L,A |
2278 | LD H,HIGH (INT0) |
2285 | LD H,HIGH (INT0) |
2279 | LD DE,INTAREA |
2286 | LD DE,INTAREA |
2280 | LD BC,0X0012 |
2287 | LD BC,0x0012 |
2281 | LDIR |
2288 | LDIR |
2282 | QTPLAY_ LD HL,(QTBUSY) |
2289 | QTPLAY_ LD HL,(QTBUSY) |
2283 | SET 5,L |
2290 | SET 5,L |
2284 | LD A,(HL) |
2291 | LD A,(HL) |
2285 | OUT (VOL1),A |
2292 | OUT (VOL1),A |
Line 2298... | Line 2305... | ||
2298 | ;INCLUDE "COMM.a80" |
2305 | ;INCLUDE "COMM.a80" |
2299 | WTCM IN A,(ZXSTAT) |
2306 | WTCM IN A,(ZXSTAT) |
2300 | RRCA |
2307 | RRCA |
2301 | JR NC,WTCM |
2308 | JR NC,WTCM |
2302 | IN A,(ZXCMD) |
2309 | IN A,(ZXCMD) |
2303 | CP 0X12 |
2310 | CP 0x12 |
2304 | JR Z,CM12 |
2311 | JR Z,CM12 |
2305 | CP 0X18 |
2312 | CP 0x18 |
2306 | JR Z,CM18 |
2313 | JR Z,CM18 |
2307 | CP 0X1A |
2314 | CP 0x1A |
2308 | JR Z,CM1A |
2315 | JR Z,CM1A |
2309 | CP 0X1B |
2316 | CP 0x1B |
2310 | JR Z,CM1B |
2317 | JR Z,CM1B |
2311 | CP 0X20 |
2318 | CP 0x20 |
2312 | JR Z,CM20 |
2319 | JR Z,CM20 |
2313 | OUT (CLRCBIT),A |
2320 | OUT (CLRCBIT),A |
2314 | JP WTCM |
2321 | JP WTCM |
2315 | |
2322 | |
2316 | CM12 IN A,(ZXDATRD) |
2323 | CM12 IN A,(ZXDATRD) |
Line 2378... | Line 2385... | ||
2378 | LD A,D |
2385 | LD A,D |
2379 | POP DE |
2386 | POP DE |
2380 | JR C,GENCHK |
2387 | JR C,GENCHK |
2381 | OR A |
2388 | OR A |
2382 | JR Z,GENENT |
2389 | JR Z,GENENT |
2383 | LD IXL,0XFF |
2390 | LD IXL,0xFF |
2384 | JP GENENT |
2391 | JP GENENT |
2385 | 2392 | ||
2386 | GENCHK RES 7,(IY+CHSTAT) |
2393 | GENCHK RES 7,(IY+CHSTAT) |
2387 | LD A,(IY+CHLPBP) |
2394 | LD A,(IY+CHLPBP) |
2388 | INC A |
2395 | INC A |
Line 2398... | Line 2405... | ||
2398 | LD A,(IY+CHLPEH) |
2405 | LD A,(IY+CHLPEH) |
2399 | LD (IY+CHENDH),A |
2406 | LD (IY+CHENDH),A |
2400 | SET 7,(IY+CHSTAT) |
2407 | SET 7,(IY+CHSTAT) |
2401 | JP GENLP |
2408 | JP GENLP |
2402 | 2409 | ||
2403 | GENCHK2 LD (IY+CHREAL),0X7F |
2410 | GENCHK2 LD (IY+CHREAL),0x7F |
2404 | BIT 6,(IY+CHSTAT) |
2411 | BIT 6,(IY+CHSTAT) |
2405 | JP Z,GENZERO |
2412 | JP Z,GENZERO |
2406 | PUSH IY |
2413 | PUSH IY |
2407 | PUSH DE |
2414 | PUSH DE |
2408 | LD IY,CHANS |
2415 | LD IY,CHANS |
2409 | LD B,0X08 |
2416 | LD B,0x08 |
2410 | LD DE,CHANLEN |
2417 | LD DE,CHANLEN |
2411 | GENCHK3 SET 0,(IY+CHSTAT) |
2418 | GENCHK3 SET 0,(IY+CHSTAT) |
2412 | ADD IY,DE |
2419 | ADD IY,DE |
2413 | DJNZ GENCHK3 |
2420 | DJNZ GENCHK3 |
2414 | POP DE |
2421 | POP DE |
2415 | POP IY |
2422 | POP IY |
2416 | JP GENZERO |
2423 | JP GENZERO |
2417 | 2424 | ||
2418 | GENTP LD IXL,0XFF |
2425 | GENTP LD IXL,0xFF |
2419 | LD A,H |
2426 | LD A,H |
2420 | INC A |
2427 | INC A |
2421 | JP M,GENENT |
2428 | JP M,GENENT |
2422 | OR L |
2429 | OR L |
2423 | JR Z,GENENT |
2430 | JR Z,GENENT |
2424 | NEG |
2431 | NEG |
2425 | LD IXL,A |
2432 | LD IXL,A |
2426 | GENENT LD C,(IY+CHFRQL) |
2433 | GENENT LD C,(IY+CHFRQL) |
2427 | LD A,(IY+CHOLDV) |
2434 | LD A,(IY+CHOLDV) |
2428 | PUSH IY |
2435 | PUSH IY |
2429 | CALL 0X2030 |
2436 | CALL 0x2030 |
2430 | POP IY |
2437 | POP IY |
2431 | LD (IY+CHOLDV),A |
2438 | LD (IY+CHOLDV),A |
2432 | LD (IY+CHCNTH),C |
2439 | LD (IY+CHCNTH),C |
2433 | LD A,H |
2440 | LD A,H |
2434 | OR A |
2441 | OR A |
2435 | JP M,GENJ2 |
2442 | JP M,GENJ2 |
2436 | LD H,0X80 |
2443 | LD H,0x80 |
2437 | INC (IY+CHCURP) |
2444 | INC (IY+CHCURP) |
2438 | GENJ2 LD A,E |
2445 | GENJ2 LD A,E |
2439 | OR A |
2446 | OR A |
2440 | JP Z,GENRET |
2447 | JP Z,GENRET |
2441 | BIT 7,(IY+CHSTAT) |
2448 | BIT 7,(IY+CHSTAT) |
Line 2446... | Line 2453... | ||
2446 | LD (IY+CHCURH),H |
2453 | LD (IY+CHCURH),H |
2447 | LD (IY+CHCNTL),B |
2454 | LD (IY+CHCNTL),B |
2448 | JP GENEXT |
2455 | JP GENEXT |
2449 | 2456 | ||
2450 | GENZERO LD A,E |
2457 | GENZERO LD A,E |
2451 | CP 0XFF |
2458 | CP 0xFF |
2452 | JR NC,GENZENT |
2459 | JR NC,GENZENT |
2453 | LD B,(IY+CHOLDV) |
2460 | LD B,(IY+CHOLDV) |
2454 | LD C,0X80 |
2461 | LD C,0x80 |
2455 | CP 0XFD |
2462 | CP 0xFD |
2456 | JR NC,GENZ_1 |
2463 | JR NC,GENZ_1 |
2457 | CP 0XF9 |
2464 | CP 0xF9 |
2458 | JR NC,GENZ_2 |
2465 | JR NC,GENZ_2 |
2459 | LD A,C |
2466 | LD A,C |
2460 | ADD A,B |
2467 | ADD A,B |
2461 | RRA |
2468 | RRA |
2462 | LD H,A |
2469 | LD H,A |
Line 2513... | Line 2520... | ||
2513 | GENZ_1 LD A,B |
2520 | GENZ_1 LD A,B |
2514 | ADD A,C |
2521 | ADD A,C |
2515 | RRA |
2522 | RRA |
2516 | LD (DE),A |
2523 | LD (DE),A |
2517 | INC E |
2524 | INC E |
2518 | GENZENT LD A,0X80 |
2525 | GENZENT LD A,0x80 |
2519 | BIT 0,E |
2526 | BIT 0,E |
2520 | JR Z,GENZJP1 |
2527 | JR Z,GENZJP1 |
2521 | LD (DE),A |
2528 | LD (DE),A |
2522 | INC E |
2529 | INC E |
2523 | JR Z,GENZEXT |
2530 | JR Z,GENZEXT |
Line 2558... | Line 2565... | ||
2558 | JP NZ,GENZLP |
2565 | JP NZ,GENZLP |
2559 | GENZEXT LD A,(QTFREE) |
2566 | GENZEXT LD A,(QTFREE) |
2560 | ADD A,HIGH (DAC0) |
2567 | ADD A,HIGH (DAC0) |
2561 | ADD A,(IY+CHRDN) |
2568 | ADD A,(IY+CHRDN) |
2562 | LD D,A |
2569 | LD D,A |
2563 | LD E,0XFF |
2570 | LD E,0xFF |
2564 | LD A,0X80 |
2571 | LD A,0x80 |
2565 | LD (DE),A |
2572 | LD (DE),A |
2566 | GENEXT XOR A |
2573 | GENEXT XOR A |
2567 | LD (CPAGE),A |
2574 | LD (CPAGE),A |
2568 | OUT (MPAG),A |
2575 | OUT (MPAG),A |
2569 | BIT 0,(IY+CHSTAT) |
2576 | BIT 0,(IY+CHSTAT) |
Line 2572... | Line 2579... | ||
2572 | 2579 | ||
2573 | ;INCLUDE "TABLES_L.a80" |
2580 | ;INCLUDE "TABLES_L.a80" |
2574 | 2581 | ||
2575 | align 256 |
2582 | align 256 |
2576 | 2583 | ||
2577 | INTTAB DUPL 0X101,HIGH (INTAREA) |
2584 | INTTAB DUPL 0x101,HIGH (INTAREA) |
2578 | 2585 | ||
2579 | INTTB DW INT0,INT1,INT1,INT2,INT1,INT3,INT2,INT4,INT1,INT5 |
2586 | INTTB DW INT0,INT1,INT1,INT2,INT1,INT3,INT2,INT4,INT1,INT5 |
2580 | DW INT3,INT6,INT2,INT7,INT4,0X0000 |
2587 | DW INT3,INT6,INT2,INT7,INT4,0x0000 |
2581 | INTOFF DB 0,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0 |
2588 | INTOFF DB 0,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0 |
2582 | 2589 | ||
2583 | ;INCLUDE "_BPM.a80" |
2590 | ;INCLUDE "_BPM.a80" |
2584 | BPMTAB |
2591 | BPMTAB |
2585 | dw 0X0B72,0X0B19,0X0AC5,0X0A77,0X0A2C,0X09E6,0X09A3,0X0964 |
2592 | dw 0x0B72,0x0B19,0x0AC5,0x0A77,0x0A2C,0x09E6,0x09A3,0x0964 |
2586 | dw 0X0928,0X08EF,0X08B8,0X0884,0X0853,0X0823,0X07F6,0X07CB |
2593 | dw 0x0928,0x08EF,0x08B8,0x0884,0x0853,0x0823,0x07F6,0x07CB |
2587 | dw 0X07A1,0X0779,0X0753,0X072E,0X070B,0X06E9,0X06C8,0X06A9 |
2594 | dw 0x07A1,0x0779,0x0753,0x072E,0x070B,0x06E9,0x06C8,0x06A9 |
2588 | dw 0X068A,0X066D,0X0650,0X0635,0X061B,0X0601,0X05E8,0X05D0 |
2595 | dw 0x068A,0x066D,0x0650,0x0635,0x061B,0x0601,0x05E8,0x05D0 |
2589 | dw 0X05B9,0X05A2,0X058C,0X0577,0X0563,0X054F,0X053B,0X0528 |
2596 | dw 0x05B9,0x05A2,0x058C,0x0577,0x0563,0x054F,0x053B,0x0528 |
2590 | dw 0X0516,0X0504,0X04F3,0X04E2,0X04D2,0X04C2,0X04B2,0X04A3 |
2597 | dw 0x0516,0x0504,0x04F3,0x04E2,0x04D2,0x04C2,0x04B2,0x04A3 |
2591 | dw 0X0494,0X0485,0X0477,0X046A,0X045C,0X044F,0X0442,0X0436 |
2598 | dw 0x0494,0x0485,0x0477,0x046A,0x045C,0x044F,0x0442,0x0436 |
2592 | dw 0X0429,0X041D,0X0412,0X0406,0X03FB,0X03F0,0X03E5,0X03DB |
2599 | dw 0x0429,0x041D,0x0412,0x0406,0x03FB,0x03F0,0x03E5,0x03DB |
2593 | dw 0X03D1,0X03C6,0X03BD,0X03B3,0X03AA,0X03A0,0X0397,0X038E |
2600 | dw 0x03D1,0x03C6,0x03BD,0x03B3,0x03AA,0x03A0,0x0397,0x038E |
2594 | dw 0X0385,0X037D,0X0374,0X036C,0X0364,0X035C,0X0354,0X034D |
2601 | dw 0x0385,0x037D,0x0374,0x036C,0x0364,0x035C,0x0354,0x034D |
2595 | dw 0X0345,0X033E,0X0336,0X032F,0X0328,0X0321,0X031A,0X0314 |
2602 | dw 0x0345,0x033E,0x0336,0x032F,0x0328,0x0321,0x031A,0x0314 |
2596 | dw 0X030D,0X0307,0X0300,0X02FA,0X02F4,0X02EE,0X02E8,0X02E2 |
2603 | dw 0x030D,0x0307,0x0300,0x02FA,0x02F4,0x02EE,0x02E8,0x02E2 |
2597 | dw 0X02DC,0X02D7,0X02D1,0X02CC,0X02C6,0X02C1,0X02BC,0X02B6 |
2604 | dw 0x02DC,0x02D7,0x02D1,0x02CC,0x02C6,0x02C1,0x02BC,0x02B6 |
2598 | dw 0X02B1,0X02AC,0X02A7,0X02A2,0X029E,0X0299,0X0294,0X0290 |
2605 | dw 0x02B1,0x02AC,0x02A7,0x02A2,0x029E,0x0299,0x0294,0x0290 |
2599 | dw 0X028B,0X0287,0X0282,0X027E,0X0279,0X0275,0X0271,0X026D |
2606 | dw 0x028B,0x0287,0x0282,0x027E,0x0279,0x0275,0x0271,0x026D |
2600 | dw 0X0269,0X0265,0X0261,0X025D,0X0259,0X0255,0X0251,0X024E |
2607 | dw 0x0269,0x0265,0x0261,0x025D,0x0259,0x0255,0x0251,0x024E |
2601 | dw 0X024A,0X0246,0X0243,0X023F,0X023C,0X0238,0X0235,0X0231 |
2608 | dw 0x024A,0x0246,0x0243,0x023F,0x023C,0x0238,0x0235,0x0231 |
2602 | dw 0X022E,0X022B,0X0227,0X0224,0X0221,0X021E,0X021B,0X0218 |
2609 | dw 0x022E,0x022B,0x0227,0x0224,0x0221,0x021E,0x021B,0x0218 |
2603 | dw 0X0215,0X0212,0X020F,0X020C,0X0209,0X0206,0X0203,0X0200 |
2610 | dw 0x0215,0x0212,0x020F,0x020C,0x0209,0x0206,0x0203,0x0200 |
2604 | dw 0X01FE,0X01FB,0X01F8,0X01F5,0X01F3,0X01F0,0X01ED,0X01EB |
2611 | dw 0x01FE,0x01FB,0x01F8,0x01F5,0x01F3,0x01F0,0x01ED,0x01EB |
2605 | dw 0X01E8,0X01E6,0X01E3,0X01E1,0X01DE,0X01DC,0X01D9,0X01D7 |
2612 | dw 0x01E8,0x01E6,0x01E3,0x01E1,0x01DE,0x01DC,0x01D9,0x01D7 |
2606 | dw 0X01D5,0X01D2,0X01D0,0X01CE,0X01CC,0X01C9,0X01C7,0X01C5 |
2613 | dw 0x01D5,0x01D2,0x01D0,0x01CE,0x01CC,0x01C9,0x01C7,0x01C5 |
2607 | dw 0X01C3,0X01C1,0X01BE,0X01BC,0X01BA,0X01B8,0X01B6,0X01B4 |
2614 | dw 0x01C3,0x01C1,0x01BE,0x01BC,0x01BA,0x01B8,0x01B6,0x01B4 |
2608 | dw 0X01B2,0X01B0,0X01AE,0X01AC,0X01AA,0X01A8,0X01A6,0X01A4 |
2615 | dw 0x01B2,0x01B0,0x01AE,0x01AC,0x01AA,0x01A8,0x01A6,0x01A4 |
2609 | dw 0X01A3,0X01A1,0X019F,0X019D,0X019B,0X0199,0X0198,0X0196 |
2616 | dw 0x01A3,0x01A1,0x019F,0x019D,0x019B,0x0199,0x0198,0x0196 |
2610 | dw 0X0194,0X0192,0X0191,0X018F,0X018D,0X018C,0X018A,0X0188 |
2617 | dw 0x0194,0x0192,0x0191,0x018F,0x018D,0x018C,0x018A,0x0188 |
2611 | dw 0X0187,0X0185,0X0183,0X0182,0X0180,0X017F,0X017D,0X017C |
2618 | dw 0x0187,0x0185,0x0183,0x0182,0x0180,0x017F,0x017D,0x017C |
2612 | dw 0X017A,0X0179,0X0177,0X0176,0X0174,0X0173,0X0171,0X0170 |
2619 | dw 0x017A,0x0179,0x0177,0x0176,0x0174,0x0173,0x0171,0x0170 |
2613 | 2620 | ||
2614 | ;INCLUDE "_trash.a80" ;comes from original ROM! |
2621 | ;INCLUDE "_trash.a80" ;comes from original ROM! |
2615 | ;strange block, comes from original ROM. |
2622 | ;strange block, comes from original ROM. |
2616 | ;real garbage;) |
2623 | ;real garbage;) |
2617 | 2624 | ||
2618 | DB 0X56,0X43,0X56,0X49,0X45,0X57,0X20,0X20,0X45,0X58,0X54,0X20,0X00,0X00,0X00,0X00 |
2625 | DB 0x56,0x43,0x56,0x49,0x45,0x57,0x20,0x20,0x45,0x58,0x54,0x20,0x00,0x00,0x00,0x00 |
2619 | DB 0X00,0X00,0X00,0X00,0X00,0X00,0XC4,0X08,0X43,0X21,0X28,0X09,0XDA,0X02,0X00,0X00 |
2626 | DB 0x00,0x00,0x00,0x00,0x00,0x00,0xC4,0x08,0x43,0x21,0x28,0x09,0xDA,0x02,0x00,0x00 |
2620 | DB 0X00,0X43,0X56,0X49,0X45,0X57,0X20,0X20,0X45,0X58,0X54,0X20,0X00,0X00,0X00,0X00 |
2627 | DB 0x00,0x43,0x56,0x49,0x45,0x57,0x20,0x20,0x45,0x58,0x54,0x20,0x00,0x00,0x00,0x00 |
2621 | DB 0X00,0X00,0X00,0X00,0X00,0X00,0XC4,0X08,0X43,0X21,0X28,0X09,0XDA,0X02,0X00,0X00 |
2628 | DB 0x00,0x00,0x00,0x00,0x00,0x00,0xC4,0x08,0x43,0x21,0x28,0x09,0xDA,0x02,0x00,0x00 |
2622 | 2629 | ||
2623 | Free1 |
2630 | Free1 |
2624 | ;---patched |
2631 | ;---patched |
2625 | Patch11 |
2632 | Patch11 |
2626 | LD H,(HL) |
2633 | LD H,(HL) |
Line 2629... | Line 2636... | ||
2629 | ADD HL,HL |
2636 | ADD HL,HL |
2630 | JR NC,$+3 |
2637 | JR NC,$+3 |
2631 | INC D |
2638 | INC D |
2632 | LD A,(MODTP) |
2639 | LD A,(MODTP) |
2633 | INC A |
2640 | INC A |
2634 | LD BC,0X0000+1084 |
2641 | LD BC,0x0000+1084 |
2635 | JR Z,TTT15x |
2642 | JR Z,TTT15x |
2636 | LD BC,0X0000+600 |
2643 | LD BC,0x0000+600 |
2637 | TTT15x ADD HL,BC |
2644 | TTT15x ADD HL,BC |
2638 | JR NC,$+3 |
2645 | JR NC,$+3 |
2639 | INC D |
2646 | INC D |
2640 | XOR A |
2647 | XOR A |
2641 | LD (CPAGE),A |
2648 | LD (CPAGE),A |
2642 | OUT (MPAG),A |
2649 | OUT (MPAG),A |
2643 | LD A,D |
2650 | LD A,D |
2644 | LD DE,0X5000 |
2651 | LD DE,0x5000 |
2645 | LD BC,0X400 |
2652 | LD BC,0x400 |
2646 | CALL LDMEM |
2653 | CALL LDMEM |
2647 | XOR A |
2654 | XOR A |
2648 | OUT (0X00),A |
2655 | OUT (0x00),A |
2649 | RET |
2656 | RET |
2650 | |
2657 | |
2651 | ; new cmd 0X6A - Set player mode |
2658 | ; new cmd 0x6A - Set player mode |
2652 | COM6A LD A,(PlMode) ;command |
2659 | COM6A LD A,(PlMode) ;command |
2653 | OUT (ZXDATWR),A |
2660 | OUT (ZXDATWR),A |
2654 | IN A,(ZXDATRD) |
2661 | IN A,(ZXDATRD) |
2655 | OUT (CLRCBIT),A |
2662 | OUT (CLRCBIT),A |
2656 | LD (PlMode),A |
2663 | LD (PlMode),A |
Line 2677... | Line 2684... | ||
2677 | LD (TCKLEFT),HL |
2684 | LD (TCKLEFT),HL |
2678 | Patch3e LD IY,CHANS |
2685 | Patch3e LD IY,CHANS |
2679 | JP EFXGTNT+4 |
2686 | JP EFXGTNT+4 |
2680 | |
2687 | |
2681 | ; initial note |
2688 | ; initial note |
2682 | Patch4 LD (IY+CHCNTL),0X00 |
2689 | Patch4 LD (IY+CHCNTL),0x00 |
2683 | LD (IY+CHREAL),0X7F |
2690 | LD (IY+CHREAL),0x7F |
2684 | RET |
2691 | RET |
2685 | |
2692 | |
2686 | ;MOD relooper |
2693 | ;MOD relooper |
2687 | ; new cmd 0X6B - Set minimal loop length (turn on relooper) |
2694 | ; new cmd 0x6B - Set minimal loop length (turn on relooper) |
2688 | 2695 | ||
2689 | COM6B IN A,(ZXDATRD) |
2696 | COM6B IN A,(ZXDATRD) |
2690 | LD L,A |
2697 | LD L,A |
2691 | OUT (CLRCBIT),A |
2698 | OUT (CLRCBIT),A |
2692 | IN A,(ZXSTAT) |
2699 | IN A,(ZXSTAT) |
2693 | AND 0X81 |
2700 | AND 0x81 |
2694 | JR Z,$-4 |
2701 | JR Z,$-4 |
2695 | JP P,Patch5s |
2702 | JP P,Patch5s |
2696 | IN A,(ZXDATRD) |
2703 | IN A,(ZXDATRD) |
2697 | LD H,A |
2704 | LD H,A |
2698 | LD DE,16385 |
2705 | LD DE,16385 |
2699 | OR A |
2706 | OR A |
2700 | SBC HL,DE |
2707 | SBC HL,DE |
2701 | ADD HL,DE |
2708 | ADD HL,DE |
2702 | JR C,Patch5s+3 |
2709 | JR C,Patch5s+3 |
2703 | Patch5s LD HL,0X0200 |
2710 | Patch5s LD HL,0x0200 |
2704 | LD (MODLLEN),HL |
2711 | LD (MODLLEN),HL |
2705 | RET |
2712 | RET |
2706 | 2713 | ||
2707 | ;reconstruct MOD after load |
2714 | ;reconstruct MOD after load |
2708 | Patch5x CALL SET_SIZE_MOD ;CALL PLAYMD ;init MOD |
2715 | Patch5x CALL SET_SIZE_MOD ;CALL PLAYMD ;init MOD |
Line 2724... | Line 2731... | ||
2724 | 2731 | ||
2725 | ;INCLUDE "reloop.a80" |
2732 | ;INCLUDE "reloop.a80" |
2726 | 2733 | ||
2727 | ;-----(c)Evgeny Muchkin |
2734 | ;-----(c)Evgeny Muchkin |
2728 | 2735 | ||
2729 | ;MODSMPS equ 0X5000 |
2736 | ;MODSMPS equ 0x5000 |
2730 | ;MODPTST equ 0X5001 |
2737 | ;MODPTST equ 0x5001 |
2731 | ;ChipSP_ equ 0X5005 |
2738 | ;ChipSP_ equ 0x5005 |
2732 | ;CHIP246 equ 0X5007 |
2739 | ;CHIP246 equ 0x5007 |
2733 | ;TOcip_ equ 0X5009 |
2740 | ;TOcip_ equ 0x5009 |
2734 | ;CHIPLN equ 0X5010 ; НА4АЛО СЕМПЛОВ (pointer) |
2741 | ;CHIPLN equ 0x5010 ; НА4АЛО СЕМПЛОВ (pointer) |
2735 | ;CHIPPP equ 0X5013 ; ДЛИНА МОДУЛЯ |
2742 | ;CHIPPP equ 0x5013 ; ДЛИНА МОДУЛЯ |
2736 | ;CIP1 equ 0X5016 ; ОТКУДА ПЕРЕНОСИТЬ |
2743 | ;CIP1 equ 0x5016 ; ОТКУДА ПЕРЕНОСИТЬ |
2737 | ;CIP2 equ 0X5019 ; КУДА ПЕРЕНОСИТЬ |
2744 | ;CIP2 equ 0x5019 ; КУДА ПЕРЕНОСИТЬ |
2738 | ;CIP3 equ 0X501c ; КОНЕЦ БЛОКА |
2745 | ;CIP3 equ 0x501c ; КОНЕЦ БЛОКА |
2739 | 2746 | ||
2740 | CHIP DI |
2747 | CHIP DI |
2741 | LD A,(RAMPG) |
2748 | LD A,(RAMPG) |
2742 | OUT (MPAG),A |
2749 | OUT (MPAG),A |
2743 | LD DE,(MODPTST) ;patts data! |
2750 | LD DE,(MODPTST) ;patts data! |
Line 2762... | Line 2769... | ||
2762 | LDI |
2769 | LDI |
2763 | POP IY |
2770 | POP IY |
2764 | LD A,(MODSMPS) |
2771 | LD A,(MODSMPS) |
2765 | LD B,A ;smps! |
2772 | LD B,A ;smps! |
2766 | LD DE,30 |
2773 | LD DE,30 |
2767 | LD IX,0X8014 |
2774 | LD IX,0x8014 |
2768 | ChIp LD H,(IX+22) ;len |
2775 | ChIp LD H,(IX+22) ;len |
2769 | LD L,(IX+23) |
2776 | LD L,(IX+23) |
2770 | CALL TOCip |
2777 | CALL TOCip |
2771 | ADD IX,DE |
2778 | ADD IX,DE |
2772 | DJNZ ChIp |
2779 | DJNZ ChIp |
2773 | LD IX,0X802A |
2780 | LD IX,0x802A |
2774 | LD A,(MODSMPS) |
2781 | LD A,(MODSMPS) |
2775 | LD B,A ;smps! |
2782 | LD B,A ;smps! |
2776 | CHIP1 LD A,(RAMPG) |
2783 | CHIP1 LD A,(RAMPG) |
2777 | OUT (MPAG),A |
2784 | OUT (MPAG),A |
2778 | LD H,(IX+6) ;loop len |
2785 | LD H,(IX+6) ;loop len |
Line 3020... | Line 3027... | ||
3020 | 3027 | ||
3021 | ; display $ |
3028 | ; display $ |
3022 | ;--- |
3029 | ;--- |
3023 | ;emptyobl1 |
3030 | ;emptyobl1 |
3024 | 3031 | ||
3025 | ; ORG GSRomBaseL+0X1D00 |
3032 | ; ORG GSRomBaseL+0x1D00 |
3026 | 3033 | ||
3027 | ; IN A,(ZXDATRD) |
3034 | ; IN A,(ZXDATRD) |
3028 | ; OUT (CLRCBIT),A |
3035 | ; OUT (CLRCBIT),A |
3029 | ; LD A,0X7F |
3036 | ; LD A,0x7F |
3030 | ; OUT (ZXDATWR),A |
3037 | ; OUT (ZXDATWR),A |
3031 | ; JP COMINT_ |
3038 | ; JP COMINT_ |
3032 | 3039 | ||
3033 | ;WDY IN A,(ZXSTAT) |
3040 | ;WDY IN A,(ZXSTAT) |
3034 | ; RLA |
3041 | ; RLA |
Line 3038... | Line 3045... | ||
3038 | ;WDN IN A,(ZXSTAT) |
3045 | ;WDN IN A,(ZXSTAT) |
3039 | ; RLA |
3046 | ; RLA |
3040 | ; JR C,$-3 |
3047 | ; JR C,$-3 |
3041 | ; RET |
3048 | ; RET |
3042 | 3049 | ||
3043 | ORG GSRomBaseL+0X2000 |
3050 | ORG GSRomBaseL+0x2000 |
3044 | ;SGEN |
3051 | ;SGEN |
3045 | ;INCLUDE "SGEN_ASM.a80" |
3052 | ;INCLUDE "SGEN_ASM.a80" |
3046 | ; MODULE SGEN |
3053 | ; MODULE SGEN |
3047 | ;INCLUDE "SGEN.a80" |
3054 | ;INCLUDE "SGEN.a80" |
3048 | 3055 | ||
Line 3057... | Line 3064... | ||
3057 | DEC D |
3064 | DEC D |
3058 | JP Z,SGEN_ |
3065 | JP Z,SGEN_ |
3059 | LD C,A |
3066 | LD C,A |
3060 | LD A,D |
3067 | LD A,D |
3061 | DEC A |
3068 | DEC A |
3062 | CP 0X09 |
3069 | CP 0x09 |
3063 | JP NC,SGEN__ |
3070 | JP NC,SGEN__ |
3064 | ADD A,A |
3071 | ADD A,A |
3065 | ADD A,LOW (SGENTBF) |
3072 | ADD A,LOW (SGENTBF) |
3066 | LD L,A |
3073 | LD L,A |
3067 | LD H,HIGH (SGENTBF) |
3074 | LD H,HIGH (SGENTBF) |
Line 3356... | Line 3363... | ||
3356 | JP SGEN_ |
3363 | JP SGEN_ |
3357 | 3364 | ||
3358 | SGEN__ JP SGEN_ |
3365 | SGEN__ JP SGEN_ |
3359 | 3366 | ||
3360 | SGEN_ LD A,E |
3367 | SGEN_ LD A,E |
3361 | CP 0X09 |
3368 | CP 0x09 |
3362 | JR NC,S9 |
3369 | JR NC,S9 |
3363 | ADD A,A |
3370 | ADD A,A |
3364 | LD L,A |
3371 | LD L,A |
3365 | LD H,HIGH (SGENTBE) |
3372 | LD H,HIGH (SGENTBE) |
3366 | LD A,(HL) |
3373 | LD A,(HL) |
Line 3368... | Line 3375... | ||
3368 | LD H,(HL) |
3375 | LD H,(HL) |
3369 | LD L,A |
3376 | LD L,A |
3370 | JP (HL) |
3377 | JP (HL) |
3371 | 3378 | ||
3372 | S9 EXX |
3379 | S9 EXX |
3373 | LD C,0XFF |
3380 | LD C,0xFF |
3374 | EXX |
3381 | EXX |
3375 | LD D,0X08 |
3382 | LD D,0x08 |
3376 | JP S8 |
3383 | JP S8 |
3377 | 3384 | ||
3378 | S0 EXX |
3385 | S0 EXX |
3379 | LD C,0X00 |
3386 | LD C,0x00 |
3380 | EXX |
3387 | EXX |
3381 | LD D,0X01 |
3388 | LD D,0x01 |
3382 | JP S1 |
3389 | JP S1 |
3383 | 3390 | ||
3384 | S3 EXX |
3391 | S3 EXX |
3385 | PUSH BC |
3392 | PUSH BC |
3386 | EXX |
3393 | EXX |
Line 3465... | Line 3472... | ||
3465 | SRL A |
3472 | SRL A |
3466 | SRL A |
3473 | SRL A |
3467 | ADD A,IYL |
3474 | ADD A,IYL |
3468 | JR Z,S1_4 |
3475 | JR Z,S1_4 |
3469 | JR NC,S1_4 |
3476 | JR NC,S1_4 |
3470 | S1_2 DB 0XCB,0X30;SLI B |
3477 | S1_2 DB 0xCB,0x30;SLI B |
3471 | JR NC,S1_3 |
3478 | JR NC,S1_3 |
3472 | LD A,E |
3479 | LD A,E |
3473 | AND 0X03 |
3480 | AND 0x03 |
3474 | JP Z,S11L0_1 |
3481 | JP Z,S11L0_1 |
3475 | DEC A |
3482 | DEC A |
3476 | JP Z,S11L1_1 |
3483 | JP Z,S11L1_1 |
3477 | DEC A |
3484 | DEC A |
3478 | JP Z,S11L2_1 |
3485 | JP Z,S11L2_1 |
3479 | JP S11L3 |
3486 | JP S11L3 |
3480 | S1_3 LD A,E |
3487 | S1_3 LD A,E |
3481 | AND 0X03 |
3488 | AND 0x03 |
3482 | JP Z,S11H0_1 |
3489 | JP Z,S11H0_1 |
3483 | DEC A |
3490 | DEC A |
3484 | JP Z,S11H1_1 |
3491 | JP Z,S11H1_1 |
3485 | DEC A |
3492 | DEC A |
3486 | JP Z,S11H2_1 |
3493 | JP Z,S11H2_1 |
3487 | JP S11H3 |
3494 | JP S11H3 |
3488 | S1_4 DB 0XCB,0X30;SLI B |
3495 | S1_4 DB 0xCB,0x30;SLI B |
3489 | JR NC,S1_5 |
3496 | JR NC,S1_5 |
3490 | LD A,E |
3497 | LD A,E |
3491 | AND 0X03 |
3498 | AND 0x03 |
3492 | JP Z,S12L0_1 |
3499 | JP Z,S12L0_1 |
3493 | DEC A |
3500 | DEC A |
3494 | JP Z,S12L1_1 |
3501 | JP Z,S12L1_1 |
3495 | DEC A |
3502 | DEC A |
3496 | JP Z,S12L2_1 |
3503 | JP Z,S12L2_1 |
3497 | JP S12L3 |
3504 | JP S12L3 |
3498 | S1_5 LD A,E |
3505 | S1_5 LD A,E |
3499 | AND 0X03 |
3506 | AND 0x03 |
3500 | JP Z,S12H0_1 |
3507 | JP Z,S12H0_1 |
3501 | DEC A |
3508 | DEC A |
3502 | JP Z,S12H1_1 |
3509 | JP Z,S12H1_1 |
3503 | DEC A |
3510 | DEC A |
3504 | JP Z,S12H2_1 |
3511 | JP Z,S12H2_1 |
Line 3521... | Line 3528... | ||
3521 | SRL A |
3528 | SRL A |
3522 | SRL A |
3529 | SRL A |
3523 | ADD A,IYL |
3530 | ADD A,IYL |
3524 | JR Z,S1_9 |
3531 | JR Z,S1_9 |
3525 | JR NC,S1_9 |
3532 | JR NC,S1_9 |
3526 | S1_7 DB 0XCB,0X30;SLI B |
3533 | S1_7 DB 0xCB,0x30;SLI B |
3527 | JR C,S1_8 |
3534 | JR C,S1_8 |
3528 | LD A,E |
3535 | LD A,E |
3529 | AND 0X03 |
3536 | AND 0x03 |
3530 | JP Z,S13L0 |
3537 | JP Z,S13L0 |
3531 | DEC A |
3538 | DEC A |
3532 | JP Z,S13L1 |
3539 | JP Z,S13L1 |
3533 | DEC A |
3540 | DEC A |
3534 | JP Z,S13L2 |
3541 | JP Z,S13L2 |
3535 | JP S13L3 |
3542 | JP S13L3 |
3536 | S1_8 LD A,E |
3543 | S1_8 LD A,E |
3537 | AND 0X03 |
3544 | AND 0x03 |
3538 | JP Z,S13H0 |
3545 | JP Z,S13H0 |
3539 | DEC A |
3546 | DEC A |
3540 | JP Z,S13H1 |
3547 | JP Z,S13H1 |
3541 | DEC A |
3548 | DEC A |
3542 | JP Z,S13H2 |
3549 | JP Z,S13H2 |
3543 | JP S13H3 |
3550 | JP S13H3 |
3544 | S1_9 DB 0XCB,0X30;SLI B |
3551 | S1_9 DB 0xCB,0x30;SLI B |
3545 | JR C,S1_A |
3552 | JR C,S1_A |
3546 | LD A,E |
3553 | LD A,E |
3547 | AND 0X03 |
3554 | AND 0x03 |
3548 | JP Z,S14L0 |
3555 | JP Z,S14L0 |
3549 | DEC A |
3556 | DEC A |
3550 | JP Z,S14L1 |
3557 | JP Z,S14L1 |
3551 | DEC A |
3558 | DEC A |
3552 | JP Z,S14L2 |
3559 | JP Z,S14L2 |
3553 | JP S14L3 |
3560 | JP S14L3 |
3554 | S1_A LD A,E |
3561 | S1_A LD A,E |
3555 | AND 0X03 |
3562 | AND 0x03 |
3556 | JP Z,S14H0 |
3563 | JP Z,S14H0 |
3557 | DEC A |
3564 | DEC A |
3558 | JP Z,S14H1 |
3565 | JP Z,S14H1 |
3559 | DEC A |
3566 | DEC A |
3560 | JP Z,S14H2 |
3567 | JP Z,S14H2 |
Line 3606... | Line 3613... | ||
3606 | S11R1 LD IYL,A |
3613 | S11R1 LD IYL,A |
3607 | LD A,B |
3614 | LD A,B |
3608 | SUB C |
3615 | SUB C |
3609 | LD B,A |
3616 | LD B,A |
3610 | SRL B |
3617 | SRL B |
3611 | LD C,0X00 |
3618 | LD C,0x00 |
3612 | LD A,IYL |
3619 | LD A,IYL |
3613 | RET |
3620 | RET |
3614 | 3621 | ||
3615 | S11M1 LD B,A |
3622 | S11M1 LD B,A |
3616 | DEC HL |
3623 | DEC HL |
Line 3663... | Line 3670... | ||
3663 | S11R2 LD IYL,A |
3670 | S11R2 LD IYL,A |
3664 | LD A,B |
3671 | LD A,B |
3665 | ADD A,C |
3672 | ADD A,C |
3666 | LD B,A |
3673 | LD B,A |
3667 | JR NC,S11R2_2 |
3674 | JR NC,S11R2_2 |
3668 | LD C,0X01 |
3675 | LD C,0x01 |
3669 | SRL B |
3676 | SRL B |
3670 | LD A,IYL |
3677 | LD A,IYL |
3671 | RET |
3678 | RET |
3672 | S11R2_2 LD C,0X00 |
3679 | S11R2_2 LD C,0x00 |
3673 | RRC B |
3680 | RRC B |
3674 | LD A,IYL |
3681 | LD A,IYL |
3675 | RET |
3682 | RET |
3676 | 3683 | ||
3677 | S11M2 LD B,A |
3684 | S11M2 LD B,A |
Line 3718... | Line 3725... | ||
3718 | JP NC,S11L1_2 |
3725 | JP NC,S11L1_2 |
3719 | ADD A,C |
3726 | ADD A,C |
3720 | JP C,S11M1 |
3727 | JP C,S11M1 |
3721 | JP S11G1 |
3728 | JP S11G1 |
3722 | 3729 | ||
3723 | S11R3 LD C,0X00 |
3730 | S11R3 LD C,0x00 |
3724 | RRC B |
3731 | RRC B |
3725 | RET |
3732 | RET |
3726 | 3733 | ||
3727 | S11R4 LD IYL,A |
3734 | S11R4 LD IYL,A |
3728 | LD A,B |
3735 | LD A,B |
3729 | ADD A,C |
3736 | ADD A,C |
3730 | LD B,A |
3737 | LD B,A |
3731 | JR NC,S11R4_2 |
3738 | JR NC,S11R4_2 |
3732 | LD C,0X00 |
3739 | LD C,0x00 |
3733 | RRC B |
3740 | RRC B |
3734 | LD A,IYL |
3741 | LD A,IYL |
3735 | RET |
3742 | RET |
3736 | S11R4_2 LD C,0X00 |
3743 | S11R4_2 LD C,0x00 |
3737 | SRL B |
3744 | SRL B |
3738 | LD A,IYL |
3745 | LD A,IYL |
3739 | RET |
3746 | RET |
3740 | 3747 | ||
3741 | S11R5 LD IYL,A |
3748 | S11R5 LD IYL,A |
3742 | LD A,B |
3749 | LD A,B |
3743 | SUB C |
3750 | SUB C |
3744 | LD B,A |
3751 | LD B,A |
3745 | LD C,0X00 |
3752 | LD C,0x00 |
3746 | SRL B |
3753 | SRL B |
3747 | LD A,IYL |
3754 | LD A,IYL |
3748 | RET |
3755 | RET |
3749 | 3756 | ||
3750 | S11M3 LD B,A |
3757 | S11M3 LD B,A |
Line 3789... | Line 3796... | ||
3789 | JP NC,S11L2_2 |
3796 | JP NC,S11L2_2 |
3790 | ADD A,C |
3797 | ADD A,C |
3791 | JP C,S11M2 |
3798 | JP C,S11M2 |
3792 | JP S11G2 |
3799 | JP S11G2 |
3793 | 3800 | ||
3794 | S11R6 LD C,0X00 |
3801 | S11R6 LD C,0x00 |
3795 | SRL B |
3802 | SRL B |
3796 | RET |
3803 | RET |
3797 | 3804 | ||
3798 | S12M0 LD B,A |
3805 | S12M0 LD B,A |
3799 | DEC HL |
3806 | DEC HL |
Line 3854... | Line 3861... | ||
3854 | S12R1 LD IYL,A |
3861 | S12R1 LD IYL,A |
3855 | LD A,B |
3862 | LD A,B |
3856 | SUB C |
3863 | SUB C |
3857 | LD B,A |
3864 | LD B,A |
3858 | SRL B |
3865 | SRL B |
3859 | LD C,0X00 |
3866 | LD C,0x00 |
3860 | LD A,IYL |
3867 | LD A,IYL |
3861 | RET |
3868 | RET |
3862 | 3869 | ||
3863 | S12R3_3 DEC HL |
3870 | S12R3_3 DEC HL |
3864 | LD A,(HL) |
3871 | LD A,(HL) |
3865 | INC HL |
3872 | INC HL |
3866 | LD C,0X00 |
3873 | LD C,0x00 |
3867 | RRC B |
3874 | RRC B |
3868 | RET |
3875 | RET |
3869 | 3876 | ||
3870 | S12R4_4 JP S12R4_3 |
3877 | S12R4_4 JP S12R4_3 |
3871 | 3878 | ||
Line 3933... | Line 3940... | ||
3933 | S12R2 LD IYL,A |
3940 | S12R2 LD IYL,A |
3934 | LD A,B |
3941 | LD A,B |
3935 | ADD A,C |
3942 | ADD A,C |
3936 | LD B,A |
3943 | LD B,A |
3937 | JR NC,S12R2_2 |
3944 | JR NC,S12R2_2 |
3938 | LD C,0X01 |
3945 | LD C,0x01 |
3939 | SRL B |
3946 | SRL B |
3940 | LD A,IYL |
3947 | LD A,IYL |
3941 | RET |
3948 | RET |
3942 | S12R2_2 LD C,0X00 |
3949 | S12R2_2 LD C,0x00 |
3943 | RRC B |
3950 | RRC B |
3944 | LD A,IYL |
3951 | LD A,IYL |
3945 | RET |
3952 | RET |
3946 | 3953 | ||
3947 | S12M2 LD B,A |
3954 | S12M2 LD B,A |
Line 4003... | Line 4010... | ||
4003 | S12R6_5 JP S12R6_2 |
4010 | S12R6_5 JP S12R6_2 |
4004 | 4011 | ||
4005 | S12R3_2 DEC HL |
4012 | S12R3_2 DEC HL |
4006 | LD A,(HL) |
4013 | LD A,(HL) |
4007 | INC HL |
4014 | INC HL |
4008 | S12R3 LD C,0X00 |
4015 | S12R3 LD C,0x00 |
4009 | RRC B |
4016 | RRC B |
4010 | RET |
4017 | RET |
4011 | 4018 | ||
4012 | S12R4_3 DEC HL |
4019 | S12R4_3 DEC HL |
4013 | LD A,(HL) |
4020 | LD A,(HL) |
Line 4015... | Line 4022... | ||
4015 | S12R4 LD IYL,A |
4022 | S12R4 LD IYL,A |
4016 | LD A,B |
4023 | LD A,B |
4017 | ADD A,C |
4024 | ADD A,C |
4018 | LD B,A |
4025 | LD B,A |
4019 | JR NC,S12R4_2 |
4026 | JR NC,S12R4_2 |
4020 | LD C,0X00 |
4027 | LD C,0x00 |
4021 | RRC B |
4028 | RRC B |
4022 | LD A,IYL |
4029 | LD A,IYL |
4023 | RET |
4030 | RET |
4024 | S12R4_2 LD C,0X00 |
4031 | S12R4_2 LD C,0x00 |
4025 | SRL B |
4032 | SRL B |
4026 | LD A,IYL |
4033 | LD A,IYL |
4027 | RET |
4034 | RET |
4028 | 4035 | ||
4029 | S12R5 LD IYL,A |
4036 | S12R5 LD IYL,A |
4030 | LD A,B |
4037 | LD A,B |
4031 | SUB C |
4038 | SUB C |
4032 | LD B,A |
4039 | LD B,A |
4033 | LD C,0X00 |
4040 | LD C,0x00 |
4034 | SRL B |
4041 | SRL B |
4035 | LD A,IYL |
4042 | LD A,IYL |
4036 | RET |
4043 | RET |
4037 | 4044 | ||
4038 | S12M3 LD B,A |
4045 | S12M3 LD B,A |
Line 4090... | Line 4097... | ||
4090 | JP S12G2 |
4097 | JP S12G2 |
4091 | 4098 | ||
4092 | S12R6_2 DEC HL |
4099 | S12R6_2 DEC HL |
4093 | LD A,(HL) |
4100 | LD A,(HL) |
4094 | INC HL |
4101 | INC HL |
4095 | S12R6 LD C,0X00 |
4102 | S12R6 LD C,0x00 |
4096 | SRL B |
4103 | SRL B |
4097 | RET |
4104 | RET |
4098 | 4105 | ||
4099 | S12R2_4 JP S12R2_3 |
4106 | S12R2_4 JP S12R2_3 |
4100 | 4107 | ||
4101 | S13R1 JR NC,S13R1_2 |
4108 | S13R1 JR NC,S13R1_2 |
4102 | SRL B |
4109 | SRL B |
4103 | LD C,0X01 |
4110 | LD C,0x01 |
4104 | RET |
4111 | RET |
4105 | S13R1_2 RRC B |
4112 | S13R1_2 RRC B |
4106 | LD C,0X00 |
4113 | LD C,0x00 |
4107 | RET |
4114 | RET |
4108 | S13R2 SRL B |
4115 | S13R2 SRL B |
4109 | LD C,0X00 |
4116 | LD C,0x00 |
4110 | RET |
4117 | RET |
4111 | 4118 | ||
4112 | S13J0 ADD A,(HL) |
4119 | S13J0 ADD A,(HL) |
4113 | RRA |
4120 | RRA |
4114 | LD (DE),A |
4121 | LD (DE),A |
Line 4242... | Line 4249... | ||
4242 | INC E |
4249 | INC E |
4243 | JR Z,S13R5 |
4250 | JR Z,S13R5 |
4244 | JP NC,S13K0 |
4251 | JP NC,S13K0 |
4245 | JP S13J0 |
4252 | JP S13J0 |
4246 | 4253 | ||
4247 | S13R3 LD C,0X01 |
4254 | S13R3 LD C,0x01 |
4248 | JR NC,S13R3_2 |
4255 | JR NC,S13R3_2 |
4249 | RRC B |
4256 | RRC B |
4250 | RET |
4257 | RET |
4251 | 4258 | ||
4252 | S13R3_2 SRL B |
4259 | S13R3_2 SRL B |
4253 | RET |
4260 | RET |
4254 | 4261 | ||
4255 | S13R4 RRC B |
4262 | S13R4 RRC B |
4256 | LD C,0X00 |
4263 | LD C,0x00 |
4257 | RET |
4264 | RET |
4258 | 4265 | ||
4259 | S13R5 LD C,0X01 |
4266 | S13R5 LD C,0x01 |
4260 | JR NC,S13R5_2 |
4267 | JR NC,S13R5_2 |
4261 | RRC B |
4268 | RRC B |
4262 | RET |
4269 | RET |
4263 | 4270 | ||
4264 | S13R5_2 SRL B |
4271 | S13R5_2 SRL B |
Line 4266... | Line 4273... | ||
4266 | 4273 | ||
4267 | S14R5_3 JP S14R5 |
4274 | S14R5_3 JP S14R5 |
4268 | 4275 | ||
4269 | S14R1 JR NC,S14R1_2 |
4276 | S14R1 JR NC,S14R1_2 |
4270 | SRL B |
4277 | SRL B |
4271 | LD C,0X01 |
4278 | LD C,0x01 |
4272 | RET |
4279 | RET |
4273 | 4280 | ||
4274 | S14R1_2 RRC B |
4281 | S14R1_2 RRC B |
4275 | LD C,0X00 |
4282 | LD C,0x00 |
4276 | RET |
4283 | RET |
4277 | 4284 | ||
4278 | S14R2 SRL B |
4285 | S14R2 SRL B |
4279 | LD C,0X00 |
4286 | LD C,0x00 |
4280 | RET |
4287 | RET |
4281 | 4288 | ||
4282 | S14J0 ADD A,(HL) |
4289 | S14J0 ADD A,(HL) |
4283 | RRA |
4290 | RRA |
4284 | LD (DE),A |
4291 | LD (DE),A |
Line 4436... | Line 4443... | ||
4436 | DEC IXL |
4443 | DEC IXL |
4437 | JR Z,S14R5 |
4444 | JR Z,S14R5 |
4438 | JP NC,S14K0 |
4445 | JP NC,S14K0 |
4439 | JP S14J0 |
4446 | JP S14J0 |
4440 | 4447 | ||
4441 | S14R5 LD C,0X01 |
4448 | S14R5 LD C,0x01 |
4442 | JR NC,S14R5_2 |
4449 | JR NC,S14R5_2 |
4443 | RRC B |
4450 | RRC B |
4444 | RET |
4451 | RET |
4445 | 4452 | ||
4446 | S14R5_2 SRL B |
4453 | S14R5_2 SRL B |
4447 | RET |
4454 | RET |
4448 | 4455 | ||
4449 | S14R4 RRC B |
4456 | S14R4 RRC B |
4450 | LD C,0X00 |
4457 | LD C,0x00 |
4451 | RET |
4458 | RET |
4452 | 4459 | ||
4453 | S14R1_3 JP S14R1 |
4460 | S14R1_3 JP S14R1 |
4454 | 4461 | ||
4455 | ;INCLUDE "SGEN2_L.a80" |
4462 | ;INCLUDE "SGEN2_L.a80" |
Line 4472... | Line 4479... | ||
4472 | SRL A |
4479 | SRL A |
4473 | SRL A |
4480 | SRL A |
4474 | ADD A,IYL |
4481 | ADD A,IYL |
4475 | JR Z,S2_4 |
4482 | JR Z,S2_4 |
4476 | JR NC,S2_4 |
4483 | JR NC,S2_4 |
4477 | S2_2 DB 0XCB,0X30;SLI B |
4484 | S2_2 DB 0xCB,0x30;SLI B |
4478 | JR NC,S2_3 |
4485 | JR NC,S2_3 |
4479 | LD A,E |
4486 | LD A,E |
4480 | AND 0X03 |
4487 | AND 0x03 |
4481 | JP Z,S21L0 |
4488 | JP Z,S21L0 |
4482 | DEC A |
4489 | DEC A |
4483 | JP Z,S21L1 |
4490 | JP Z,S21L1 |
4484 | DEC A |
4491 | DEC A |
4485 | JP Z,S21L2 |
4492 | JP Z,S21L2 |
4486 | JP S21L3 |
4493 | JP S21L3 |
4487 | S2_3 LD A,E |
4494 | S2_3 LD A,E |
4488 | AND 0X03 |
4495 | AND 0x03 |
4489 | JP Z,S21H0 |
4496 | JP Z,S21H0 |
4490 | DEC A |
4497 | DEC A |
4491 | JP Z,S21H1 |
4498 | JP Z,S21H1 |
4492 | DEC A |
4499 | DEC A |
4493 | JP Z,S21H2 |
4500 | JP Z,S21H2 |
4494 | JP S21H3 |
4501 | JP S21H3 |
4495 | S2_4 DB 0XCB,0X30;SLI B |
4502 | S2_4 DB 0xCB,0x30;SLI B |
4496 | JR NC,S2_5 |
4503 | JR NC,S2_5 |
4497 | LD A,E |
4504 | LD A,E |
4498 | AND 0X03 |
4505 | AND 0x03 |
4499 | JP Z,S22L0 |
4506 | JP Z,S22L0 |
4500 | DEC A |
4507 | DEC A |
4501 | JP Z,S22L1 |
4508 | JP Z,S22L1 |
4502 | DEC A |
4509 | DEC A |
4503 | JP Z,S22L2 |
4510 | JP Z,S22L2 |
4504 | JP S22L3 |
4511 | JP S22L3 |
4505 | S2_5 LD A,E |
4512 | S2_5 LD A,E |
4506 | AND 0X03 |
4513 | AND 0x03 |
4507 | JP Z,S22H0 |
4514 | JP Z,S22H0 |
4508 | DEC A |
4515 | DEC A |
4509 | JP Z,S22H1 |
4516 | JP Z,S22H1 |
4510 | DEC A |
4517 | DEC A |
4511 | JP Z,S22H2 |
4518 | JP Z,S22H2 |
Line 4529... | Line 4536... | ||
4529 | SRL A |
4536 | SRL A |
4530 | SRL A |
4537 | SRL A |
4531 | ADD A,IYL |
4538 | ADD A,IYL |
4532 | JR Z,S2_9 |
4539 | JR Z,S2_9 |
4533 | JR NC,S2_9 |
4540 | JR NC,S2_9 |
4534 | S2_7 DB 0XCB,0X30;SLI B |
4541 | S2_7 DB 0xCB,0x30;SLI B |
4535 | JR C,S2_8 |
4542 | JR C,S2_8 |
4536 | LD A,E |
4543 | LD A,E |
4537 | AND 0X03 |
4544 | AND 0x03 |
4538 | JP Z,S23L0 |
4545 | JP Z,S23L0 |
4539 | DEC A |
4546 | DEC A |
4540 | JP Z,S23L1 |
4547 | JP Z,S23L1 |
4541 | DEC A |
4548 | DEC A |
4542 | JP Z,S23L2 |
4549 | JP Z,S23L2 |
4543 | JP S23L3 |
4550 | JP S23L3 |
4544 | S2_8 LD A,E |
4551 | S2_8 LD A,E |
4545 | AND 0X03 |
4552 | AND 0x03 |
4546 | JP Z,S23H0 |
4553 | JP Z,S23H0 |
4547 | DEC A |
4554 | DEC A |
4548 | JP Z,S23H1 |
4555 | JP Z,S23H1 |
4549 | DEC A |
4556 | DEC A |
4550 | JP Z,S23H2 |
4557 | JP Z,S23H2 |
4551 | JP S23H3 |
4558 | JP S23H3 |
4552 | S2_9 DB 0XCB,0X30;SLI B |
4559 | S2_9 DB 0xCB,0x30;SLI B |
4553 | JR C,S2_A |
4560 | JR C,S2_A |
4554 | LD A,E |
4561 | LD A,E |
4555 | AND 0X03 |
4562 | AND 0x03 |
4556 | JP Z,S24L0 |
4563 | JP Z,S24L0 |
4557 | DEC A |
4564 | DEC A |
4558 | JP Z,S24L1 |
4565 | JP Z,S24L1 |
4559 | DEC A |
4566 | DEC A |
4560 | JP Z,S24L2 |
4567 | JP Z,S24L2 |
4561 | JP S24L3 |
4568 | JP S24L3 |
4562 | S2_A LD A,E |
4569 | S2_A LD A,E |
4563 | AND 0X03 |
4570 | AND 0x03 |
4564 | JP Z,S24H0 |
4571 | JP Z,S24H0 |
4565 | DEC A |
4572 | DEC A |
4566 | JP Z,S24H1 |
4573 | JP Z,S24H1 |
4567 | DEC A |
4574 | DEC A |
4568 | JP Z,S24H2 |
4575 | JP Z,S24H2 |
Line 4621... | Line 4628... | ||
4621 | INC E |
4628 | INC E |
4622 | JR Z,S21R2 |
4629 | JR Z,S21R2 |
4623 | JP C,S21K0 |
4630 | JP C,S21K0 |
4624 | JP S21J0 |
4631 | JP S21J0 |
4625 | 4632 | ||
4626 | S21R1 LD C,0X00 |
4633 | S21R1 LD C,0x00 |
4627 | RRC B |
4634 | RRC B |
4628 | RET |
4635 | RET |
4629 | 4636 | ||
4630 | S21R2 LD C,0X01 |
4637 | S21R2 LD C,0x01 |
4631 | JR NC,S21R2_2 |
4638 | JR NC,S21R2_2 |
4632 | RRC B |
4639 | RRC B |
4633 | RET |
4640 | RET |
4634 | 4641 | ||
4635 | S21R2_2 SRL B |
4642 | S21R2_2 SRL B |
Line 4688... | Line 4695... | ||
4688 | LD (DE),A |
4695 | LD (DE),A |
4689 | INC E |
4696 | INC E |
4690 | JP C,S21K1 |
4697 | JP C,S21K1 |
4691 | JP S21J1 |
4698 | JP S21J1 |
4692 | 4699 | ||
4693 | S21R3 LD C,0X00 |
4700 | S21R3 LD C,0x00 |
4694 | SRL B |
4701 | SRL B |
4695 | RET |
4702 | RET |
4696 | 4703 | ||
4697 | S21G2 LD E,A |
4704 | S21G2 LD E,A |
4698 | LD A,(DE) |
4705 | LD A,(DE) |
Line 4747... | Line 4754... | ||
4747 | LD (DE),A |
4754 | LD (DE),A |
4748 | INC E |
4755 | INC E |
4749 | JP C,S21K2 |
4756 | JP C,S21K2 |
4750 | JP S21J2 |
4757 | JP S21J2 |
4751 | 4758 | ||
4752 | S21R4 LD C,0X01 |
4759 | S21R4 LD C,0x01 |
4753 | SRL B |
4760 | SRL B |
4754 | RET |
4761 | RET |
4755 | 4762 | ||
4756 | S21G3 LD E,A |
4763 | S21G3 LD E,A |
4757 | LD A,(DE) |
4764 | LD A,(DE) |
Line 4807... | Line 4814... | ||
4807 | INC E |
4814 | INC E |
4808 | JP C,S21K3 |
4815 | JP C,S21K3 |
4809 | JP S21J3 |
4816 | JP S21J3 |
4810 | 4817 | ||
4811 | S21R5 JR NC,S21R5_2 |
4818 | S21R5 JR NC,S21R5_2 |
4812 | LD C,0X02 |
4819 | LD C,0x02 |
4813 | SRL B |
4820 | SRL B |
4814 | RET |
4821 | RET |
4815 | 4822 | ||
4816 | S21R5_2 LD C,0X01 |
4823 | S21R5_2 LD C,0x01 |
4817 | RRC B |
4824 | RRC B |
4818 | RET |
4825 | RET |
4819 | 4826 | ||
4820 | S22G0 LD E,A |
4827 | S22G0 LD E,A |
4821 | LD A,(DE) |
4828 | LD A,(DE) |
Line 4876... | Line 4883... | ||
4876 | DEC IXL |
4883 | DEC IXL |
4877 | JR Z,S22R2 |
4884 | JR Z,S22R2 |
4878 | JP C,S22K0 |
4885 | JP C,S22K0 |
4879 | JP S22J0 |
4886 | JP S22J0 |
4880 | 4887 | ||
4881 | S22R1 LD C,0X00 |
4888 | S22R1 LD C,0x00 |
4882 | RRC B |
4889 | RRC B |
4883 | RET |
4890 | RET |
4884 | 4891 | ||
4885 | S22R2 LD C,0X01 |
4892 | S22R2 LD C,0x01 |
4886 | JR NC,S22R2_2 |
4893 | JR NC,S22R2_2 |
4887 | RRC B |
4894 | RRC B |
4888 | RET |
4895 | RET |
4889 | 4896 | ||
4890 | S22R2_2 SRL B |
4897 | S22R2_2 SRL B |
Line 4952... | Line 4959... | ||
4952 | DEC IXL |
4959 | DEC IXL |
4953 | JR Z,S22R2 |
4960 | JR Z,S22R2 |
4954 | JP C,S22K1 |
4961 | JP C,S22K1 |
4955 | JP S22J1 |
4962 | JP S22J1 |
4956 | 4963 | ||
4957 | S22R3 LD C,0X00 |
4964 | S22R3 LD C,0x00 |
4958 | SRL B |
4965 | SRL B |
4959 | RET |
4966 | RET |
4960 | 4967 | ||
4961 | S22G2 LD E,A |
4968 | S22G2 LD E,A |
4962 | LD A,(DE) |
4969 | LD A,(DE) |
Line 5081... | Line 5088... | ||
5081 | JP S22J3 |
5088 | JP S22J3 |
5082 | 5089 | ||
5083 | S22R2_3 JP S22R2 |
5090 | S22R2_3 JP S22R2 |
5084 | 5091 | ||
5085 | S22R5 JR NC,S22R5_2 |
5092 | S22R5 JR NC,S22R5_2 |
5086 | LD C,0X02 |
5093 | LD C,0x02 |
5087 | SRL B |
5094 | SRL B |
5088 | RET |
5095 | RET |
5089 | 5096 | ||
5090 | S22R5_2 LD C,0X01 |
5097 | S22R5_2 LD C,0x01 |
5091 | RRC B |
5098 | RRC B |
5092 | RET |
5099 | RET |
5093 | 5100 | ||
5094 | S22R4 LD C,0X01 |
5101 | S22R4 LD C,0x01 |
5095 | SRL B |
5102 | SRL B |
5096 | RET |
5103 | RET |
5097 | 5104 | ||
5098 | S23J0 SUB (HL) |
5105 | S23J0 SUB (HL) |
5099 | EXX |
5106 | EXX |
Line 5192... | Line 5199... | ||
5192 | INC E |
5199 | INC E |
5193 | JR Z,S23R2 |
5200 | JR Z,S23R2 |
5194 | JP NC,S23K0 |
5201 | JP NC,S23K0 |
5195 | JP S23J0 |
5202 | JP S23J0 |
5196 | 5203 | ||
5197 | S23R1 LD C,0X01 |
5204 | S23R1 LD C,0x01 |
5198 | SRL B |
5205 | SRL B |
5199 | RET |
5206 | RET |
5200 | 5207 | ||
5201 | S23R2 LD C,0X02 |
5208 | S23R2 LD C,0x02 |
5202 | JR NC,S23R2_2 |
5209 | JR NC,S23R2_2 |
5203 | RRC B |
5210 | RRC B |
5204 | RET |
5211 | RET |
5205 | 5212 | ||
5206 | S23R2_2 SRL B |
5213 | S23R2_2 SRL B |
Line 5303... | Line 5310... | ||
5303 | LD (DE),A |
5310 | LD (DE),A |
5304 | INC E |
5311 | INC E |
5305 | JP NC,S23K1 |
5312 | JP NC,S23K1 |
5306 | JP S23J1 |
5313 | JP S23J1 |
5307 | 5314 | ||
5308 | S23R3 LD C,0X00 |
5315 | S23R3 LD C,0x00 |
5309 | RRC B |
5316 | RRC B |
5310 | RET |
5317 | RET |
5311 | 5318 | ||
5312 | S23J2 SUB (HL) |
5319 | S23J2 SUB (HL) |
5313 | EXX |
5320 | EXX |
Line 5409... | Line 5416... | ||
5409 | INC E |
5416 | INC E |
5410 | JP NC,S23K2 |
5417 | JP NC,S23K2 |
5411 | JP S23J2 |
5418 | JP S23J2 |
5412 | 5419 | ||
5413 | S23R4 JR C,S23R4_2 |
5420 | S23R4 JR C,S23R4_2 |
5414 | LD C,0X01 |
5421 | LD C,0x01 |
5415 | RRC B |
5422 | RRC B |
5416 | RET |
5423 | RET |
5417 | 5424 | ||
5418 | S23R4_2 LD C,0X02 |
5425 | S23R4_2 LD C,0x02 |
5419 | SRL B |
5426 | SRL B |
5420 | RET |
5427 | RET |
5421 | 5428 | ||
5422 | S23R5 LD C,0X01 |
5429 | S23R5 LD C,0x01 |
5423 | RRC B |
5430 | RRC B |
5424 | RET |
5431 | RET |
5425 | 5432 | ||
5426 | S23J3 SUB (HL) |
5433 | S23J3 SUB (HL) |
5427 | EXX |
5434 | EXX |
Line 5521... | Line 5528... | ||
5521 | LD (DE),A |
5528 | LD (DE),A |
5522 | INC E |
5529 | INC E |
5523 | JP NC,S23K3 |
5530 | JP NC,S23K3 |
5524 | JP S23J3 |
5531 | JP S23J3 |
5525 | 5532 | ||
5526 | S23R6 LD C,0X00 |
5533 | S23R6 LD C,0x00 |
5527 | SRL B |
5534 | SRL B |
5528 | RET |
5535 | RET |
5529 | 5536 | ||
5530 | S24J0 SUB (HL) |
5537 | S24J0 SUB (HL) |
5531 | EXX |
5538 | EXX |
Line 5635... | Line 5642... | ||
5635 | DEC IXL |
5642 | DEC IXL |
5636 | JR Z,S24R2 |
5643 | JR Z,S24R2 |
5637 | JP NC,S24K0 |
5644 | JP NC,S24K0 |
5638 | JP S24J0 |
5645 | JP S24J0 |
5639 | 5646 | ||
5640 | S24R1 LD C,0X01 |
5647 | S24R1 LD C,0x01 |
5641 | SRL B |
5648 | SRL B |
5642 | RET |
5649 | RET |
5643 | 5650 | ||
5644 | S24R2 LD C,0X02 |
5651 | S24R2 LD C,0x02 |
5645 | JR NC,S24R2_2 |
5652 | JR NC,S24R2_2 |
5646 | RRC B |
5653 | RRC B |
5647 | RET |
5654 | RET |
5648 | 5655 | ||
5649 | S24R2_2 SRL B |
5656 | S24R2_2 SRL B |
Line 5760... | Line 5767... | ||
5760 | JP NC,S24K1 |
5767 | JP NC,S24K1 |
5761 | JP S24J1 |
5768 | JP S24J1 |
5762 | 5769 | ||
5763 | S24R2_5 JP S24R2 |
5770 | S24R2_5 JP S24R2 |
5764 | 5771 | ||
5765 | S24R3 LD C,0X00 |
5772 | S24R3 LD C,0x00 |
5766 | RRC B |
5773 | RRC B |
5767 | RET |
5774 | RET |
5768 | 5775 | ||
5769 | S24J2 SUB (HL) |
5776 | S24J2 SUB (HL) |
5770 | EXX |
5777 | EXX |
Line 5876... | Line 5883... | ||
5876 | JR Z,S24R2_3 |
5883 | JR Z,S24R2_3 |
5877 | JP NC,S24K2 |
5884 | JP NC,S24K2 |
5878 | JP S24J2 |
5885 | JP S24J2 |
5879 | 5886 | ||
5880 | S24R4 JR C,S24R4_2 |
5887 | S24R4 JR C,S24R4_2 |
5881 | LD C,0X01 |
5888 | LD C,0x01 |
5882 | RRC B |
5889 | RRC B |
5883 | RET |
5890 | RET |
5884 | 5891 | ||
5885 | S24R4_2 LD C,0X02 |
5892 | S24R4_2 LD C,0x02 |
5886 | SRL B |
5893 | SRL B |
5887 | RET |
5894 | RET |
5888 | 5895 | ||
5889 | S24R2_3 JP S24R2 |
5896 | S24R2_3 JP S24R2 |
5890 | 5897 | ||
5891 | S24R5 LD C,0X01 |
5898 | S24R5 LD C,0x01 |
5892 | RRC B |
5899 | RRC B |
5893 | RET |
5900 | RET |
5894 | 5901 | ||
5895 | S24J3 SUB (HL) |
5902 | S24J3 SUB (HL) |
5896 | EXX |
5903 | EXX |
Line 6004... | Line 6011... | ||
6004 | 6011 | ||
6005 | S24R2_4 JP S24R2 |
6012 | S24R2_4 JP S24R2 |
6006 | 6013 | ||
6007 | S24R4_4 JP S24R4 |
6014 | S24R4_4 JP S24R4 |
6008 | 6015 | ||
6009 | S24R6 LD C,0X00 |
6016 | S24R6 LD C,0x00 |
6010 | SRL B |
6017 | SRL B |
6011 | RET |
6018 | RET |
6012 | 6019 | ||
6013 | ;INCLUDE "SGEN3.a80" |
6020 | ;INCLUDE "SGEN3.a80" |
6014 | S3_ LD D,C |
6021 | S3_ LD D,C |
Line 6034... | Line 6041... | ||
6034 | SRL A |
6041 | SRL A |
6035 | SRL A |
6042 | SRL A |
6036 | ADD A,IYL |
6043 | ADD A,IYL |
6037 | JR Z,S310_ |
6044 | JR Z,S310_ |
6038 | JP C,S311 |
6045 | JP C,S311 |
6039 | S310_ DB 0XCB,0X31;SLI C |
6046 | S310_ DB 0xCB,0x31;SLI C |
6040 | JP C,S3101 |
6047 | JP C,S3101 |
6041 | JP S3100 |
6048 | JP S3100 |
6042 | 6049 | ||
6043 | S3102 JR Z,S3104 |
6050 | S3102 JR Z,S3104 |
6044 | S310A INC E |
6051 | S310A INC E |
Line 6151... | Line 6158... | ||
6151 | EXX |
6158 | EXX |
6152 | LD E,IYL |
6159 | LD E,IYL |
6153 | LD D,0 |
6160 | LD D,0 |
6154 | RET |
6161 | RET |
6155 | 6162 | ||
6156 | S311 DB 0XCB,0X31;SLI C |
6163 | S311 DB 0xCB,0x31;SLI C |
6157 | JP C,S3111 |
6164 | JP C,S3111 |
6158 | JR S3110 |
6165 | JR S3110 |
6159 | 6166 | ||
6160 | S3112 JR Z,S3114 |
6167 | S3112 JR Z,S3114 |
6161 | ADD A,(HL) |
6168 | ADD A,(HL) |
Line 6288... | Line 6295... | ||
6288 | SRL A |
6295 | SRL A |
6289 | SRL A |
6296 | SRL A |
6290 | ADD A,IYL |
6297 | ADD A,IYL |
6291 | JR Z,S318_ |
6298 | JR Z,S318_ |
6292 | JP C,S319 |
6299 | JP C,S319 |
6293 | S318_ DB 0XCB,0X31;SLI C |
6300 | S318_ DB 0xCB,0x31;SLI C |
6294 | JP NC,S3180 |
6301 | JP NC,S3180 |
6295 | JP S3181 |
6302 | JP S3181 |
6296 | 6303 | ||
6297 | S3184 INC E |
6304 | S3184 INC E |
6298 | S3185 RRC C |
6305 | S3185 RRC C |
Line 6442... | Line 6449... | ||
6442 | DEC D |
6449 | DEC D |
6443 | DEC D |
6450 | DEC D |
6444 | DEC D |
6451 | DEC D |
6445 | RET |
6452 | RET |
6446 | 6453 | ||
6447 | S319 DB 0XCB,0X31;SLI C |
6454 | S319 DB 0xCB,0x31;SLI C |
6448 | JP NC,S3190 |
6455 | JP NC,S3190 |
6449 | JP S3191 |
6456 | JP S3191 |
6450 | 6457 | ||
6451 | S3195 RRC C |
6458 | S3195 RRC C |
6452 | LD IYL,C |
6459 | LD IYL,C |
Line 6586... | Line 6593... | ||
6586 | LD D,B |
6593 | LD D,B |
6587 | EXX |
6594 | EXX |
6588 | POP BC |
6595 | POP BC |
6589 | S41 SLA B |
6596 | S41 SLA B |
6590 | JP C,S418 |
6597 | JP C,S418 |
6591 | DB 0XCB,0X31;SLI C |
6598 | DB 0xCB,0x31;SLI C |
6592 | LD IYH,B |
6599 | LD IYH,B |
6593 | JP C,S4101 |
6600 | JP C,S4101 |
6594 | JP S4100 |
6601 | JP S4100 |
6595 | 6602 | ||
6596 | S4102 JR Z,S4104 |
6603 | S4102 JR Z,S4104 |
Line 6722... | Line 6729... | ||
6722 | EXX |
6729 | EXX |
6723 | LD E,IYL |
6730 | LD E,IYL |
6724 | LD D,0 |
6731 | LD D,0 |
6725 | RET |
6732 | RET |
6726 | 6733 | ||
6727 | S418 DB 0XCB,0X31;SLI C |
6734 | S418 DB 0xCB,0x31;SLI C |
6728 | JP NC,S4180 |
6735 | JP NC,S4180 |
6729 | JP S4181 |
6736 | JP S4181 |
6730 | 6737 | ||
6731 | S4184 INC E |
6738 | S4184 INC E |
6732 | S4185 RRC C |
6739 | S4185 RRC C |
Line 6877... | Line 6884... | ||
6877 | LD D,B |
6884 | LD D,B |
6878 | EXX |
6885 | EXX |
6879 | POP BC |
6886 | POP BC |
6880 | S51 SLA B |
6887 | S51 SLA B |
6881 | JP C,S518 |
6888 | JP C,S518 |
6882 | DB 0XCB,0X31;SLI C |
6889 | DB 0xCB,0x31;SLI C |
6883 | JP C,S5101 |
6890 | JP C,S5101 |
6884 | JP S5100 |
6891 | JP S5100 |
6885 | 6892 | ||
6886 | S5102 JR Z,S5104 |
6893 | S5102 JR Z,S5104 |
6887 | S510A INC E |
6894 | S510A INC E |
Line 7035... | Line 7042... | ||
7035 | EXX |
7042 | EXX |
7036 | LD E,IYL |
7043 | LD E,IYL |
7037 | LD D,0 |
7044 | LD D,0 |
7038 | RET |
7045 | RET |
7039 | 7046 | ||
7040 | S518 DB 0XCB,0X31;SLI C |
7047 | S518 DB 0xCB,0x31;SLI C |
7041 | JP NC,S5180 |
7048 | JP NC,S5180 |
7042 | JP S5181 |
7049 | JP S5181 |
7043 | 7050 | ||
7044 | S5184 INC E |
7051 | S5184 INC E |
7045 | S5185 RRC C |
7052 | S5185 RRC C |
Line 7226... | Line 7233... | ||
7226 | LD D,B |
7233 | LD D,B |
7227 | EXX |
7234 | EXX |
7228 | POP BC |
7235 | POP BC |
7229 | S61 SLA B |
7236 | S61 SLA B |
7230 | JP C,S618 |
7237 | JP C,S618 |
7231 | DB 0XCB,0X31;SLI C |
7238 | DB 0xCB,0x31;SLI C |
7232 | JP C,S6101 |
7239 | JP C,S6101 |
7233 | JP S6100 |
7240 | JP S6100 |
7234 | 7241 | ||
7235 | S61052 SRL C |
7242 | S61052 SRL C |
7236 | LD IYL,C |
7243 | LD IYL,C |
Line 7408... | Line 7415... | ||
7408 | EXX |
7415 | EXX |
7409 | LD E,IYL |
7416 | LD E,IYL |
7410 | LD D,0 |
7417 | LD D,0 |
7411 | RET |
7418 | RET |
7412 | 7419 | ||
7413 | S618 DB 0XCB,0X31;SLI C |
7420 | S618 DB 0xCB,0x31;SLI C |
7414 | JP NC,S6180 |
7421 | JP NC,S6180 |
7415 | JP S6181 |
7422 | JP S6181 |
7416 | 7423 | ||
7417 | S6184 INC E |
7424 | S6184 INC E |
7418 | S6185 RRC C |
7425 | S6185 RRC C |
Line 7621... | Line 7628... | ||
7621 | LD D,B |
7628 | LD D,B |
7622 | EXX |
7629 | EXX |
7623 | POP BC |
7630 | POP BC |
7624 | S71 SLA B |
7631 | S71 SLA B |
7625 | JP C,S718 |
7632 | JP C,S718 |
7626 | DB 0XCB,0X31;SLI C |
7633 | DB 0xCB,0x31;SLI C |
7627 | JP C,S7101 |
7634 | JP C,S7101 |
7628 | JP S7100 |
7635 | JP S7100 |
7629 | 7636 | ||
7630 | S71052 SRL C |
7637 | S71052 SRL C |
7631 | LD IYL,C |
7638 | LD IYL,C |
Line 7823... | Line 7830... | ||
7823 | EXX |
7830 | EXX |
7824 | LD E,IYL |
7831 | LD E,IYL |
7825 | LD D,0 |
7832 | LD D,0 |
7826 | RET |
7833 | RET |
7827 | 7834 | ||
7828 | S718 DB 0XCB,0X31;SLI C |
7835 | S718 DB 0xCB,0x31;SLI C |
7829 | JP NC,S7180 |
7836 | JP NC,S7180 |
7830 | JP S7181 |
7837 | JP S7181 |
7831 | 7838 | ||
7832 | S7184 INC E |
7839 | S7184 INC E |
7833 | S7185 RRC C |
7840 | S7185 RRC C |
Line 8056... | Line 8063... | ||
8056 | LD D,B |
8063 | LD D,B |
8057 | EXX |
8064 | EXX |
8058 | POP BC |
8065 | POP BC |
8059 | S81 SLA B |
8066 | S81 SLA B |
8060 | JP C,S818 |
8067 | JP C,S818 |
8061 | DB 0XCB,0X31;SLI C |
8068 | DB 0xCB,0x31;SLI C |
8062 | JP C,S8101 |
8069 | JP C,S8101 |
8063 | JP S8100 |
8070 | JP S8100 |
8064 | 8071 | ||
8065 | S81052 SRL C |
8072 | S81052 SRL C |
8066 | LD IYL,C |
8073 | LD IYL,C |
Line 8278... | Line 8285... | ||
8278 | EXX |
8285 | EXX |
8279 | LD E,IYL |
8286 | LD E,IYL |
8280 | LD D,0 |
8287 | LD D,0 |
8281 | RET |
8288 | RET |
8282 | 8289 | ||
8283 | S818 DB 0XCB,0X31;SLI C |
8290 | S818 DB 0xCB,0x31;SLI C |
8284 | JP NC,S8180 |
8291 | JP NC,S8180 |
8285 | JP S8181 |
8292 | JP S8181 |
8286 | 8293 | ||
8287 | S8184 INC E |
8294 | S8184 INC E |
8288 | S8185 RRC C |
8295 | S8185 RRC C |
Line 8526... | Line 8533... | ||
8526 | RET |
8533 | RET |
8527 | 8534 | ||
8528 | ;___END |
8535 | ;___END |
8529 | ; ENDMODULE |
8536 | ; ENDMODULE |
8530 | 8537 | ||
8531 | ORG GSRomBaseL+0X3E00 |
8538 | ORG GSRomBaseL+0x3E00 |
8532 | DIVTAB3 |
8539 | DIVTAB3 |
8533 | ;INCLUDE "_DIVTAB3.a80" 0X10*0X20=0X200 |
8540 | ;INCLUDE "_DIVTAB3.a80" 0x10*0x20=0x200 |
8534 | DB 0X00,0X01,0X01,0X02,0X03,0X03,0X04,0X05,0X05,0X06,0X07,0X07,0X08,0X09,0X09,0X0A |
8541 | DB 0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x05,0x05,0x06,0x07,0x07,0x08,0x09,0x09,0x0A |
8535 | DB 0X0B,0X0B,0X0C,0X0D,0X0D,0X0E,0X0F,0X0F,0X10,0X11,0X11,0X12,0X13,0X13,0X14,0X15 |
8542 | DB 0x0B,0x0B,0x0C,0x0D,0x0D,0x0E,0x0F,0x0F,0x10,0x11,0x11,0x12,0x13,0x13,0x14,0x15 |
8536 | DB 0X15,0X16,0X17,0X17,0X18,0X19,0X19,0X1A,0X1B,0X1B,0X1C,0X1D,0X1D,0X1E,0X1F,0X1F |
8543 | DB 0x15,0x16,0x17,0x17,0x18,0x19,0x19,0x1A,0x1B,0x1B,0x1C,0x1D,0x1D,0x1E,0x1F,0x1F |
8537 | DB 0X20,0X21,0X21,0X22,0X23,0X23,0X24,0X25,0X25,0X26,0X27,0X27,0X28,0X29,0X29,0X2A |
8544 | DB 0x20,0x21,0x21,0x22,0x23,0x23,0x24,0x25,0x25,0x26,0x27,0x27,0x28,0x29,0x29,0x2A |
8538 | DB 0X2B,0X2B,0X2C,0X2D,0X2D,0X2E,0X2F,0X2F,0X30,0X31,0X31,0X32,0X33,0X33,0X34,0X35 |
8545 | DB 0x2B,0x2B,0x2C,0x2D,0x2D,0x2E,0x2F,0x2F,0x30,0x31,0x31,0x32,0x33,0x33,0x34,0x35 |
8539 | DB 0X35,0X36,0X37,0X37,0X38,0X39,0X39,0X3A,0X3B,0X3B,0X3C,0X3D,0X3D,0X3E,0X3F,0X3F |
8546 | DB 0x35,0x36,0x37,0x37,0x38,0x39,0x39,0x3A,0x3B,0x3B,0x3C,0x3D,0x3D,0x3E,0x3F,0x3F |
8540 | DB 0X40,0X41,0X41,0X42,0X43,0X43,0X44,0X45,0X45,0X46,0X47,0X47,0X48,0X49,0X49,0X4A |
8547 | DB 0x40,0x41,0x41,0x42,0x43,0x43,0x44,0x45,0x45,0x46,0x47,0x47,0x48,0x49,0x49,0x4A |
8541 | DB 0X4B,0X4B,0X4C,0X4D,0X4D,0X4E,0X4F,0X4F,0X50,0X51,0X51,0X52,0X53,0X53,0X54,0X55 |
8548 | DB 0x4B,0x4B,0x4C,0x4D,0x4D,0x4E,0x4F,0x4F,0x50,0x51,0x51,0x52,0x53,0x53,0x54,0x55 |
8542 | DB 0X55,0X56,0X57,0X57,0X58,0X59,0X59,0X5A,0X5B,0X5B,0X5C,0X5D,0X5D,0X5E,0X5F,0X5F |
8549 | DB 0x55,0x56,0x57,0x57,0x58,0x59,0x59,0x5A,0x5B,0x5B,0x5C,0x5D,0x5D,0x5E,0x5F,0x5F |
8543 | DB 0X60,0X61,0X61,0X62,0X63,0X63,0X64,0X65,0X65,0X66,0X67,0X67,0X68,0X69,0X69,0X6A |
8550 | DB 0x60,0x61,0x61,0x62,0x63,0x63,0x64,0x65,0x65,0x66,0x67,0x67,0x68,0x69,0x69,0x6A |
8544 | DB 0X6B,0X6B,0X6C,0X6D,0X6D,0X6E,0X6F,0X6F,0X70,0X71,0X71,0X72,0X73,0X73,0X74,0X75 |
8551 | DB 0x6B,0x6B,0x6C,0x6D,0x6D,0x6E,0x6F,0x6F,0x70,0x71,0x71,0x72,0x73,0x73,0x74,0x75 |
8545 | DB 0X75,0X76,0X77,0X77,0X78,0X79,0X79,0X7A,0X7B,0X7B,0X7C,0X7D,0X7D,0X7E,0X7F,0X7F |
8552 | DB 0x75,0x76,0x77,0x77,0x78,0x79,0x79,0x7A,0x7B,0x7B,0x7C,0x7D,0x7D,0x7E,0x7F,0x7F |
8546 | DB 0X80,0X81,0X81,0X82,0X83,0X83,0X84,0X85,0X85,0X86,0X87,0X87,0X88,0X89,0X89,0X8A |
8553 | DB 0x80,0x81,0x81,0x82,0x83,0x83,0x84,0x85,0x85,0x86,0x87,0x87,0x88,0x89,0x89,0x8A |
8547 | DB 0X8B,0X8B,0X8C,0X8D,0X8D,0X8E,0X8F,0X8F,0X90,0X91,0X91,0X92,0X93,0X93,0X94,0X95 |
8554 | DB 0x8B,0x8B,0x8C,0x8D,0x8D,0x8E,0x8F,0x8F,0x90,0x91,0x91,0x92,0x93,0x93,0x94,0x95 |
8548 | DB 0X95,0X96,0X97,0X97,0X98,0X99,0X99,0X9A,0X9B,0X9B,0X9C,0X9D,0X9D,0X9E,0X9F,0X9F |
8555 | DB 0x95,0x96,0x97,0x97,0x98,0x99,0x99,0x9A,0x9B,0x9B,0x9C,0x9D,0x9D,0x9E,0x9F,0x9F |
8549 | DB 0XA0,0XA1,0XA1,0XA2,0XA3,0XA3,0XA4,0XA5,0XA5,0XA6,0XA7,0XA7,0XA8,0XA9,0XA9,0XAA |
8556 | DB 0xA0,0xA1,0xA1,0xA2,0xA3,0xA3,0xA4,0xA5,0xA5,0xA6,0xA7,0xA7,0xA8,0xA9,0xA9,0xAA |
8550 | DB 0X55,0X56,0X57,0X57,0X58,0X59,0X59,0X5A,0X5B,0X5B,0X5C,0X5D,0X5D,0X5E,0X5F,0X5F |
8557 | DB 0x55,0x56,0x57,0x57,0x58,0x59,0x59,0x5A,0x5B,0x5B,0x5C,0x5D,0x5D,0x5E,0x5F,0x5F |
8551 | DB 0X60,0X61,0X61,0X62,0X63,0X63,0X64,0X65,0X65,0X66,0X67,0X67,0X68,0X69,0X69,0X6A |
8558 | DB 0x60,0x61,0x61,0x62,0x63,0x63,0x64,0x65,0x65,0x66,0x67,0x67,0x68,0x69,0x69,0x6A |
8552 | DB 0X6B,0X6B,0X6C,0X6D,0X6D,0X6E,0X6F,0X6F,0X70,0X71,0X71,0X72,0X73,0X73,0X74,0X75 |
8559 | DB 0x6B,0x6B,0x6C,0x6D,0x6D,0x6E,0x6F,0x6F,0x70,0x71,0x71,0x72,0x73,0x73,0x74,0x75 |
8553 | DB 0X75,0X76,0X77,0X77,0X78,0X79,0X79,0X7A,0X7B,0X7B,0X7C,0X7D,0X7D,0X7E,0X7F,0X7F |
8560 | DB 0x75,0x76,0x77,0x77,0x78,0x79,0x79,0x7A,0x7B,0x7B,0x7C,0x7D,0x7D,0x7E,0x7F,0x7F |
8554 | DB 0X80,0X81,0X81,0X82,0X83,0X83,0X84,0X85,0X85,0X86,0X87,0X87,0X88,0X89,0X89,0X8A |
8561 | DB 0x80,0x81,0x81,0x82,0x83,0x83,0x84,0x85,0x85,0x86,0x87,0x87,0x88,0x89,0x89,0x8A |
8555 | DB 0X8B,0X8B,0X8C,0X8D,0X8D,0X8E,0X8F,0X8F,0X90,0X91,0X91,0X92,0X93,0X93,0X94,0X95 |
8562 | DB 0x8B,0x8B,0x8C,0x8D,0x8D,0x8E,0x8F,0x8F,0x90,0x91,0x91,0x92,0x93,0x93,0x94,0x95 |
8556 | DB 0X95,0X96,0X97,0X97,0X98,0X99,0X99,0X9A,0X9B,0X9B,0X9C,0X9D,0X9D,0X9E,0X9F,0X9F |
8563 | DB 0x95,0x96,0x97,0x97,0x98,0x99,0x99,0x9A,0x9B,0x9B,0x9C,0x9D,0x9D,0x9E,0x9F,0x9F |
8557 | DB 0XA0,0XA1,0XA1,0XA2,0XA3,0XA3,0XA4,0XA5,0XA5,0XA6,0XA7,0XA7,0XA8,0XA9,0XA9,0XAA |
8564 | DB 0xA0,0xA1,0xA1,0xA2,0xA3,0xA3,0xA4,0xA5,0xA5,0xA6,0xA7,0xA7,0xA8,0xA9,0xA9,0xAA |
8558 | DB 0XAB,0XAB,0XAC,0XAD,0XAD,0XAE,0XAF,0XAF,0XB0,0XB1,0XB1,0XB2,0XB3,0XB3,0XB4,0XB5 |
8565 | DB 0xAB,0xAB,0xAC,0xAD,0xAD,0xAE,0xAF,0xAF,0xB0,0xB1,0xB1,0xB2,0xB3,0xB3,0xB4,0xB5 |
8559 | DB 0XB5,0XB6,0XB7,0XB7,0XB8,0XB9,0XB9,0XBA,0XBB,0XBB,0XBC,0XBD,0XBD,0XBE,0XBF,0XBF |
8566 | DB 0xB5,0xB6,0xB7,0xB7,0xB8,0xB9,0xB9,0xBA,0xBB,0xBB,0xBC,0xBD,0xBD,0xBE,0xBF,0xBF |
8560 | DB 0XC0,0XC1,0XC1,0XC2,0XC3,0XC3,0XC4,0XC5,0XC5,0XC6,0XC7,0XC7,0XC8,0XC9,0XC9,0XCA |
8567 | DB 0xC0,0xC1,0xC1,0xC2,0xC3,0xC3,0xC4,0xC5,0xC5,0xC6,0xC7,0xC7,0xC8,0xC9,0xC9,0xCA |
8561 | DB 0XCB,0XCB,0XCC,0XCD,0XCD,0XCE,0XCF,0XCF,0XD0,0XD1,0XD1,0XD2,0XD3,0XD3,0XD4,0XD5 |
8568 | DB 0xCB,0xCB,0xCC,0xCD,0xCD,0xCE,0xCF,0xCF,0xD0,0xD1,0xD1,0xD2,0xD3,0xD3,0xD4,0xD5 |
8562 | DB 0XD5,0XD6,0XD7,0XD7,0XD8,0XD9,0XD9,0XDA,0XDB,0XDB,0XDC,0XDD,0XDD,0XDE,0XDF,0XDF |
8569 | DB 0xD5,0xD6,0xD7,0xD7,0xD8,0xD9,0xD9,0xDA,0xDB,0xDB,0xDC,0xDD,0xDD,0xDE,0xDF,0xDF |
8563 | DB 0XE0,0XE1,0XE1,0XE2,0XE3,0XE3,0XE4,0XE5,0XE5,0XE6,0XE7,0XE7,0XE8,0XE9,0XE9,0XEA |
8570 | DB 0xE0,0xE1,0xE1,0xE2,0xE3,0xE3,0xE4,0xE5,0xE5,0xE6,0xE7,0xE7,0xE8,0xE9,0xE9,0xEA |
8564 | DB 0XEB,0XEB,0XEC,0XED,0XED,0XEE,0XEF,0XEF,0XF0,0XF1,0XF1,0XF2,0XF3,0XF3,0XF4,0XF5 |
8571 | DB 0xEB,0xEB,0xEC,0xED,0xED,0xEE,0xEF,0xEF,0xF0,0xF1,0xF1,0xF2,0xF3,0xF3,0xF4,0xF5 |
8565 | DB 0XF5,0XF6,0XF7,0XF7,0XF8,0XF9,0XF9,0XFA,0XFB,0XFB,0XFC,0XFD,0XFD,0XFE,0XFF,0XFF |
8572 | DB 0xF5,0xF6,0xF7,0xF7,0xF8,0xF9,0xF9,0xFA,0xFB,0xFB,0xFC,0xFD,0xFD,0xFE,0xFF,0xFF |
8566 | 8573 | ||
8567 | ___LEND |
8574 | ___LEND |
8568 | 8575 | ||
8569 | ; HIGH ROM INCLUDES |
8576 | ; HIGH ROM INCLUDES |
8570 | PHASE GSRomBaseH |
8577 | PHASE GSRomBaseH |
Line 8575... | Line 8582... | ||
8575 | ;---patched |
8582 | ;---patched |
8576 | CALL Patch5i1 |
8583 | CALL Patch5i1 |
8577 | ;--- |
8584 | ;--- |
8578 | EX AF,AF' |
8585 | EX AF,AF' |
8579 | LD A,(NUMPG) |
8586 | LD A,(NUMPG) |
8580 | LD SP,0X8000 |
8587 | LD SP,0x8000 |
8581 | LD HL,0X8080 |
8588 | LD HL,0x8080 |
8582 | LD B,0X00 |
8589 | LD B,0x00 |
8583 | INITV00 REPT 16 |
8590 | INITV00 REPT 16 |
8584 | PUSH HL |
8591 | PUSH HL |
8585 | ENDM |
8592 | ENDM |
8586 | DJNZ INITV00 |
8593 | DJNZ INITV00 |
8587 | LD HL,0X0000 |
8594 | LD HL,0x0000 |
8588 | LD B,0XFC;0XFE ; ОЧИЩАТЬ ПАМЯТЬ НЕ НИЖЕ 00X4080 ЧТОБЫ НЕ УНИЧТОЖАТЬ ТАБЛИЦУ СТРАНИЦ |
8595 | LD B,0xFC;0xFE ; ОЧИЩАТЬ ПАМЯТЬ НЕ НИЖЕ 00x4080 ЧТОБЫ НЕ УНИЧТОЖАТЬ ТАБЛИЦУ СТРАНИЦ |
8589 | INITV01 REPT 16 |
8596 | INITV01 REPT 16 |
8590 | PUSH HL |
8597 | PUSH HL |
8591 | ENDM |
8598 | ENDM |
8592 | DJNZ INITV01 |
8599 | DJNZ INITV01 |
8593 | LD SP,ISTACK |
8600 | LD SP,ISTACK |
8594 | LD (NUMPG),A |
8601 | LD (NUMPG),A |
8595 | EX AF,AF' |
8602 | EX AF,AF' |
8596 | ;---patched |
8603 | ;---patched |
8597 | CALL Patch5i2 |
8604 | CALL Patch5i2 |
8598 | ;--- |
8605 | ;--- |
8599 | LD A,0X00 |
8606 | LD A,0x00 |
8600 | LD (INFO),A |
8607 | LD (INFO),A |
8601 | XOR A |
8608 | XOR A |
8602 | LD (ROMPG),A |
8609 | LD (ROMPG),A |
8603 | LD HL,DAC0 |
8610 | LD HL,DAC0 |
8604 | LD A,(HL) |
8611 | LD A,(HL) |
Line 8606... | Line 8613... | ||
8606 | LD A,(HL) |
8613 | LD A,(HL) |
8607 | INC H |
8614 | INC H |
8608 | LD A,(HL) |
8615 | LD A,(HL) |
8609 | INC H |
8616 | INC H |
8610 | LD A,(HL) |
8617 | LD A,(HL) |
8611 | LD A,0X3F |
8618 | LD A,0x3F |
8612 | OUT (VOL1),A |
8619 | OUT (VOL1),A |
8613 | OUT (VOL2),A |
8620 | OUT (VOL2),A |
8614 | OUT (VOL3),A |
8621 | OUT (VOL3),A |
8615 | OUT (VOL4),A |
8622 | OUT (VOL4),A |
8616 | LD HL,CHNVOL |
8623 | LD HL,CHNVOL |
8617 | LD DE,CHNVOL+1 |
8624 | LD DE,CHNVOL+1 |
8618 | LD BC,0X0007 |
8625 | LD BC,0x0007 |
8619 | LD (HL),0XBF |
8626 | LD (HL),0xBF |
8620 | LDIR |
8627 | LDIR |
8621 | LD A,HIGH (INTTAB) |
8628 | LD A,HIGH (INTTAB) |
8622 | LD I,A |
8629 | LD I,A |
8623 | LD HL,INT7 |
8630 | LD HL,INT7 |
8624 | LD DE,INTAREA |
8631 | LD DE,INTAREA |
8625 | LD BC,0X0017 |
8632 | LD BC,0x0017 |
8626 | LDIR |
8633 | LDIR |
8627 | EX DE,HL |
8634 | EX DE,HL |
8628 | LD (HL),0XC3 |
8635 | LD (HL),0xC3 |
8629 | INC L |
8636 | INC L |
8630 | LD (HL),LOW (INT7) |
8637 | LD (HL),LOW (INT7) |
8631 | INC L |
8638 | INC L |
8632 | LD (HL),HIGH (INT7) |
8639 | LD (HL),HIGH (INT7) |
8633 | LD HL,QTMAP |
8640 | LD HL,QTMAP |
8634 | LD (QTFREE),HL |
8641 | LD (QTFREE),HL |
8635 | LD (QTBUSY),HL |
8642 | LD (QTBUSY),HL |
8636 | LD DE,QTMAP+1 |
8643 | LD DE,QTMAP+1 |
8637 | LD BC,0X001F |
8644 | LD BC,0x001F |
8638 | LD (HL),B |
8645 | LD (HL),B |
8639 | LDIR |
8646 | LDIR |
8640 | LD HL,VOLTAB |
8647 | LD HL,VOLTAB |
8641 | LD DE,VOLTAB+1 |
8648 | LD DE,VOLTAB+1 |
8642 | LD BC,0X001F |
8649 | LD BC,0x001F |
8643 | LD (HL),0X3F |
8650 | LD (HL),0x3F |
8644 | LDIR |
8651 | LDIR |
8645 | LD HL,VOLRQTB |
8652 | LD HL,VOLRQTB |
8646 | LD DE,VOLRQTB+1 |
8653 | LD DE,VOLRQTB+1 |
8647 | LD BC,0X0007 |
8654 | LD BC,0x0007 |
8648 | LD (HL),0X3F |
8655 | LD (HL),0x3F |
8649 | LDIR |
8656 | LDIR |
8650 | LD A,0X0F |
8657 | LD A,0x0F |
8651 | LD (GSCHNS),A |
8658 | LD (GSCHNS),A |
8652 | LD (MTCHNS),A |
8659 | LD (MTCHNS),A |
8653 | LD A,0X40 |
8660 | LD A,0x40 |
8654 | LD (MODVOL),A |
8661 | LD (MODVOL),A |
8655 | LD (FXMVOL),A |
8662 | LD (FXMVOL),A |
8656 | LD (FXVOL),A |
8663 | LD (FXVOL),A |
8657 | LD A,%11000011 |
8664 | LD A,%11000011 |
8658 | LD (MTSTAT),A |
8665 | LD (MTSTAT),A |
8659 | XOR A |
8666 | XOR A |
8660 | LD (MODULE),A |
8667 | LD (MODULE),A |
8661 | LD A,(NUMPG) |
8668 | LD A,(NUMPG) |
8662 | SRL A |
8669 | SRL A |
8663 | LD B,A |
8670 | LD B,A |
8664 | LD HL,0X8000 |
8671 | LD HL,0x8000 |
8665 | RR H |
8672 | RR H |
8666 | LD A,B |
8673 | LD A,B |
8667 | LD (RAMTOP),HL |
8674 | LD (RAMTOP),HL |
8668 | LD (RAMTOP+2),A |
8675 | LD (RAMTOP+2),A |
8669 | LD (PTRC),HL |
8676 | LD (PTRC),HL |
Line 8686... | Line 8693... | ||
8686 | LD (MEMTOP+2),A |
8693 | LD (MEMTOP+2),A |
8687 | LD (PTR4),HL |
8694 | LD (PTR4),HL |
8688 | LD (PTR4+2),A |
8695 | LD (PTR4+2),A |
8689 | LD IY,CHANSFX |
8696 | LD IY,CHANSFX |
8690 | LD (CURCHAN),IY |
8697 | LD (CURCHAN),IY |
8691 | LD BC,0X0801 |
8698 | LD BC,0x0801 |
8692 | LD DE,CHANLEN |
8699 | LD DE,CHANLEN |
8693 | INITV03 LD (IY+CHSTAT),0X40 |
8700 | INITV03 LD (IY+CHSTAT),0x40 |
8694 | LD (IY+CHRDR),C |
8701 | LD (IY+CHRDR),C |
8695 | LD (IY+CHRDRI),C |
8702 | LD (IY+CHRDRI),C |
8696 | LD A,0X08 |
8703 | LD A,0x08 |
8697 | SUB B |
8704 | SUB B |
8698 | LD (IY+CHRDN),A |
8705 | LD (IY+CHRDN),A |
8699 | AND 0X02 |
8706 | AND 0x02 |
8700 | JR Z,INITV05 |
8707 | JR Z,INITV05 |
8701 | SET 5,(IY+CHSTAT) |
8708 | SET 5,(IY+CHSTAT) |
8702 | INITV05 LD (IY+CHFLAGS),0X00 |
8709 | INITV05 LD (IY+CHFLAGS),0x00 |
8703 | LD (IY+CHPORT),0X01 |
8710 | LD (IY+CHPORT),0x01 |
8704 | LD (IY+CHVIBCM),0X11 |
8711 | LD (IY+CHVIBCM),0x11 |
8705 | LD (IY+CHTRMCM),0X11 |
8712 | LD (IY+CHTRMCM),0x11 |
8706 | LD (IY+CHOFFST),0X01 |
8713 | LD (IY+CHOFFST),0x01 |
8707 | LD (IY+CHWNT),0X7F |
8714 | LD (IY+CHWNT),0x7F |
8708 | LD (IY+CHOLDV),0X80 |
8715 | LD (IY+CHOLDV),0x80 |
8709 | LD (IY+CHEPAN),0X20 |
8716 | LD (IY+CHEPAN),0x20 |
8710 | LD (IY+CHEVOL),0X40 |
8717 | LD (IY+CHEVOL),0x40 |
8711 | RLC C |
8718 | RLC C |
8712 | ADD IY,DE |
8719 | ADD IY,DE |
8713 | DJNZ INITV03 |
8720 | DJNZ INITV03 |
8714 | LD IY,CHANS |
8721 | LD IY,CHANS |
8715 | LD B,0X08 |
8722 | LD B,0x08 |
8716 | INITV04 LD (IY+CHSTAT),0X00 |
8723 | INITV04 LD (IY+CHSTAT),0x00 |
8717 | LD (IY+CHFLAGS),0X00 |
8724 | LD (IY+CHFLAGS),0x00 |
8718 | LD (IY+CHPORT),0X01 |
8725 | LD (IY+CHPORT),0x01 |
8719 | LD (IY+CHVIBCM),0X11 |
8726 | LD (IY+CHVIBCM),0x11 |
8720 | LD (IY+CHTRMCM),0X11 |
8727 | LD (IY+CHTRMCM),0x11 |
8721 | LD (IY+CHOFFST),0X01 |
8728 | LD (IY+CHOFFST),0x01 |
8722 | LD (IY+CHWNT),0X7F |
8729 | LD (IY+CHWNT),0x7F |
8723 | LD (IY+CHOLDV),0X80 |
8730 | LD (IY+CHOLDV),0x80 |
8724 | LD (IY+CHEPAN),0X20 |
8731 | LD (IY+CHEPAN),0x20 |
8725 | LD (IY+CHEVOL),0X40 |
8732 | LD (IY+CHEVOL),0x40 |
8726 | ADD IY,DE |
8733 | ADD IY,DE |
8727 | DJNZ INITV04 |
8734 | DJNZ INITV04 |
8728 | LD IY,CHANS |
8735 | LD IY,CHANS |
8729 | LD (IY+CHSTAT),0X00 |
8736 | LD (IY+CHSTAT),0x00 |
8730 | LD (IY+CHRDR),0X01 |
8737 | LD (IY+CHRDR),0x01 |
8731 | LD (IY+CHRDRI),0X01 |
8738 | LD (IY+CHRDRI),0x01 |
8732 | LD (IY+CHRDN),0X00 |
8739 | LD (IY+CHRDN),0x00 |
8733 | ADD IY,DE |
8740 | ADD IY,DE |
8734 | LD (IY+CHSTAT),0X20 |
8741 | LD (IY+CHSTAT),0x20 |
8735 | LD (IY+CHRDR),0X04 |
8742 | LD (IY+CHRDR),0x04 |
8736 | LD (IY+CHRDRI),0X04 |
8743 | LD (IY+CHRDRI),0x04 |
8737 | LD (IY+CHRDN),0X02 |
8744 | LD (IY+CHRDN),0x02 |
8738 | ADD IY,DE |
8745 | ADD IY,DE |
8739 | LD (IY+CHSTAT),0X20 |
8746 | LD (IY+CHSTAT),0x20 |
8740 | LD (IY+CHRDR),0X08 |
8747 | LD (IY+CHRDR),0x08 |
8741 | LD (IY+CHRDRI),0X08 |
8748 | LD (IY+CHRDRI),0x08 |
8742 | LD (IY+CHRDN),0X03 |
8749 | LD (IY+CHRDN),0x03 |
8743 | ADD IY,DE |
8750 | ADD IY,DE |
8744 | LD (IY+CHSTAT),0X00 |
8751 | LD (IY+CHSTAT),0x00 |
8745 | LD (IY+CHRDR),0X02 |
8752 | LD (IY+CHRDR),0x02 |
8746 | LD (IY+CHRDRI),0X02 |
8753 | LD (IY+CHRDRI),0x02 |
8747 | LD (IY+CHRDN),0X01 |
8754 | LD (IY+CHRDN),0x01 |
8748 | LD HL,750 |
8755 | LD HL,750 |
8749 | LD (TICKLEN),HL |
8756 | LD (TICKLEN),HL |
8750 | LD (TCKLEFT),HL |
8757 | LD (TCKLEFT),HL |
8751 | LD (FXTICK),HL |
8758 | LD (FXTICK),HL |
8752 | LD (FXTCLEN),HL |
8759 | LD (FXTCLEN),HL |
8753 | LD IXH,0X80 |
8760 | LD IXH,0x80 |
8754 | LD DE,0X0000 |
8761 | LD DE,0x0000 |
8755 | IN A,(ZXDATRD) |
8762 | IN A,(ZXDATRD) |
8756 | JP COMINT |
8763 | JP COMINT |
8757 | 8764 | ||
8758 | ; B - NUMBER OF CHANNELS |
8765 | ; B - NUMBER OF CHANNELS |
8759 | 8766 | ||
8760 | INITCHN LD HL,(0XEC60) |
8767 | INITCHN LD HL,(0xEC60) |
8761 | LD (IY+CHPERL),L ; C-4 |
8768 | LD (IY+CHPERL),L ; C-4 |
8762 | LD (IY+CHPERH),H |
8769 | LD (IY+CHPERH),H |
8763 | LD HL,(0XE060) |
8770 | LD HL,(0xE060) |
8764 | LD (IY+CHFRQL),L |
8771 | LD (IY+CHFRQL),L |
8765 | LD (IY+CHFRQH),H |
8772 | LD (IY+CHFRQH),H |
8766 | LD (IY+CHNOTE),48 |
8773 | LD (IY+CHNOTE),48 |
8767 | LD (IY+CHFLAGS),0X00 |
8774 | LD (IY+CHFLAGS),0x00 |
8768 | LD (IY+CHREAL),0X7F |
8775 | LD (IY+CHREAL),0x7F |
8769 | LD (IY+CHCNTL),0X00 |
8776 | LD (IY+CHCNTL),0x00 |
8770 | LD (IY+CHCNTH),0X00 |
8777 | LD (IY+CHCNTH),0x00 |
8771 | LD (IY+CHINS),0X00 |
8778 | LD (IY+CHINS),0x00 |
8772 | LD (IY+CHSMP),0X00 |
8779 | LD (IY+CHSMP),0x00 |
8773 | LD (IY+CHCOM),0X00 |
8780 | LD (IY+CHCOM),0x00 |
8774 | LD (IY+CHPARM),0X00 |
8781 | LD (IY+CHPARM),0x00 |
8775 | LD (IY+CHVIBPS),0X00 |
8782 | LD (IY+CHVIBPS),0x00 |
8776 | LD (IY+CHTRMPS),0X00 |
8783 | LD (IY+CHTRMPS),0x00 |
8777 | LD (IY+CHPATPS),0X00 |
8784 | LD (IY+CHPATPS),0x00 |
8778 | LD (IY+CHLPCNT),0X00 |
8785 | LD (IY+CHLPCNT),0x00 |
8779 | LD A,B |
8786 | LD A,B |
8780 | LD BC,CHANLEN |
8787 | LD BC,CHANLEN |
8781 | ADD IY,BC |
8788 | ADD IY,BC |
8782 | LD B,A |
8789 | LD B,A |
8783 | DJNZ INITCHN |
8790 | DJNZ INITCHN |
8784 | RET |
8791 | RET |
8785 | 8792 | ||
8786 | ;INCLUDE "COM_H.a80" |
8793 | ;INCLUDE "COM_H.a80" |
8787 | 8794 | ||
8788 | HGET IN A,(ZXSTAT) |
8795 | HGET IN A,(ZXSTAT) |
8789 | AND 0X81 |
8796 | AND 0x81 |
8790 | JR Z,HGET |
8797 | JR Z,HGET |
8791 | IN A,(ZXDATRD) |
8798 | IN A,(ZXDATRD) |
8792 | RET M |
8799 | RET M |
8793 | JP COMINT |
8800 | JP COMINT |
8794 | 8801 | ||
Line 8799... | Line 8806... | ||
8799 | JP NC,HSEND |
8806 | JP NC,HSEND |
8800 | JP COMINT |
8807 | JP COMINT |
8801 | 8808 | ||
8802 | HTAIL LD HL,HTAIL2 |
8809 | HTAIL LD HL,HTAIL2 |
8803 | HTAIL2 IN A,(ZXSTAT) |
8810 | HTAIL2 IN A,(ZXSTAT) |
8804 | AND 0X81 |
8811 | AND 0x81 |
8805 | JR Z,HTAIL2 |
8812 | JR Z,HTAIL2 |
8806 | RRCA |
8813 | RRCA |
8807 | JR C,HTAIL3 |
8814 | JR C,HTAIL3 |
8808 | IN A,(ZXDATRD) |
8815 | IN A,(ZXDATRD) |
8809 | JP (HL) |
8816 | JP (HL) |
8810 | HTAIL3 IN A,(ZXCMD) |
8817 | HTAIL3 IN A,(ZXCMD) |
8811 | CP 0XE0 |
8818 | CP 0xE0 |
8812 | JP NC,COMINT |
8819 | JP NC,COMINT |
8813 | CP 0XD0 |
8820 | CP 0xD0 |
8814 | JP C,COMINT |
8821 | JP C,COMINT |
8815 | JR Z,HTAIL5 |
8822 | JR Z,HTAIL5 |
8816 | CP 0XD1 |
8823 | CP 0xD1 |
8817 | JR Z,HTAIL6 |
8824 | JR Z,HTAIL6 |
8818 | XOR A |
8825 | XOR A |
8819 | HTAIL4 OUT (ZXDATWR),A |
8826 | HTAIL4 OUT (ZXDATWR),A |
8820 | IN A,(ZXDATRD) |
8827 | IN A,(ZXDATRD) |
8821 | HTAIL6 OUT (CLRCBIT),A |
8828 | HTAIL6 OUT (CLRCBIT),A |
Line 8823... | Line 8830... | ||
8823 | HTAIL5 LD A,(ERRCODE) |
8830 | HTAIL5 LD A,(ERRCODE) |
8824 | JR HTAIL4 |
8831 | JR HTAIL4 |
8825 | 8832 | ||
8826 | ERR30 |
8833 | ERR30 |
8827 | ERR20 |
8834 | ERR20 |
8828 | ERR10 LD A,0X10 ;NOT ENOUGH FREE SPACE |
8835 | ERR10 LD A,0x10 ;NOT ENOUGH FREE SPACE |
8829 | JR ERR |
8836 | JR ERR |
8830 | 8837 | ||
8831 | ERR11 LD A,0X11 ;NOT ENOUGH FREE ENTRIES |
8838 | ERR11 LD A,0x11 ;NOT ENOUGH FREE ENTRIES |
8832 | JR ERR |
8839 | JR ERR |
8833 | 8840 | ||
8834 | ERR LD (ERRCODE),A |
8841 | ERR LD (ERRCODE),A |
8835 | JP COMINT |
8842 | JP COMINT |
8836 | 8843 | ||
Line 8901... | Line 8908... | ||
8901 | ;Установить громкость проигрывания модулей. |
8908 | ;Установить громкость проигрывания модулей. |
8902 | COM2A LD A,(MODVOL) |
8909 | COM2A LD A,(MODVOL) |
8903 | OUT (ZXDATWR),A |
8910 | OUT (ZXDATWR),A |
8904 | IN A,(ZXDATRD) |
8911 | IN A,(ZXDATRD) |
8905 | OUT (CLRCBIT),A |
8912 | OUT (CLRCBIT),A |
8906 | CP 0X40 |
8913 | CP 0x40 |
8907 | JR C,COM2A_ |
8914 | JR C,COM2A_ |
8908 | LD A,0X40 |
8915 | LD A,0x40 |
8909 | COM2A_ LD (MODVOL),A |
8916 | COM2A_ LD (MODVOL),A |
8910 | LD IY,CHANS |
8917 | LD IY,CHANS |
8911 | LD B,0X08 |
8918 | LD B,0x08 |
8912 | LD DE,CHANLEN |
8919 | LD DE,CHANLEN |
8913 | COM2A__ SET 0,(IY+CHSTAT) |
8920 | COM2A__ SET 0,(IY+CHSTAT) |
8914 | ADD IY,DE |
8921 | ADD IY,DE |
8915 | DJNZ COM2A__ |
8922 | DJNZ COM2A__ |
8916 | RET |
8923 | RET |
Line 8919... | Line 8926... | ||
8919 | ;Установить громкость проигрывания эффектов. |
8926 | ;Установить громкость проигрывания эффектов. |
8920 | COM2B LD A,(FXVOL) |
8927 | COM2B LD A,(FXVOL) |
8921 | OUT (ZXDATWR),A |
8928 | OUT (ZXDATWR),A |
8922 | IN A,(ZXDATRD) |
8929 | IN A,(ZXDATRD) |
8923 | OUT (CLRCBIT),A |
8930 | OUT (CLRCBIT),A |
8924 | CP 0X40 |
8931 | CP 0x40 |
8925 | JR C,COM2B_ |
8932 | JR C,COM2B_ |
8926 | LD A,0X40 |
8933 | LD A,0x40 |
8927 | COM2B_ LD (FXVOL),A |
8934 | COM2B_ LD (FXVOL),A |
8928 | LD IY,CHANSFX |
8935 | LD IY,CHANSFX |
8929 | LD B,0X08 |
8936 | LD B,0x08 |
8930 | LD DE,CHANLEN |
8937 | LD DE,CHANLEN |
8931 | COM2B__ SET 0,(IY+CHSTAT) |
8938 | COM2B__ SET 0,(IY+CHSTAT) |
8932 | ADD IY,DE |
8939 | ADD IY,DE |
8933 | DJNZ COM2B__ |
8940 | DJNZ COM2B__ |
8934 | RET |
8941 | RET |
Line 8978... | Line 8985... | ||
8978 | RET |
8985 | RET |
8979 | 8986 | ||
8980 | ;Set Current FX |
8987 | ;Set Current FX |
8981 | ;Установить текущий эффект. Просто присваивает переменной CURFX это зна- |
8988 | ;Установить текущий эффект. Просто присваивает переменной CURFX это зна- |
8982 | ;чение. Если какая-либо команда требует номер сэмпла (sample handle), то |
8989 | ;чение. Если какая-либо команда требует номер сэмпла (sample handle), то |
8983 | ;можно вместо этого номера подать ей 0X00 и интерпретатор подставит вмес- |
8990 | ;можно вместо этого номера подать ей 0x00 и интерпретатор подставит вмес- |
8984 | ;то этого нуля значение переменной CURFX. (См. команды 0X38, 0X39, 0X40-0X4F |
8991 | ;то этого нуля значение переменной CURFX. (См. команды 0x38, 0x39, 0x40-0x4F |
8985 | ;для понимания вышеизложенного.) |
8992 | ;для понимания вышеизложенного.) |
8986 | COM2E LD A,(CURFX) |
8993 | COM2E LD A,(CURFX) |
8987 | OUT (ZXDATWR),A |
8994 | OUT (ZXDATWR),A |
8988 | IN A,(ZXDATRD) |
8995 | IN A,(ZXDATRD) |
8989 | OUT (CLRCBIT),A |
8996 | OUT (CLRCBIT),A |
Line 9020... | Line 9027... | ||
9020 | 9027 | ||
9021 | COM2F_ LD HL,(CNTTRK) |
9028 | COM2F_ LD HL,(CNTTRK) |
9022 | LD (CURTRK),HL |
9029 | LD (CURTRK),HL |
9023 | RET |
9030 | RET |
9024 | 9031 | ||
9025 | COM2F__ LD HL,0X0000 |
9032 | COM2F__ LD HL,0x0000 |
9026 | LD (CURTRK),HL |
9033 | LD (CURTRK),HL |
9027 | RET |
9034 | RET |
9028 | 9035 | ||
9029 | ;Load Module |
9036 | ;Load Module |
9030 | ;Загрузка модуля в память. |
9037 | ;Загрузка модуля в память. |
Line 9035... | Line 9042... | ||
9035 | LD (CNTMOD),A |
9042 | LD (CNTMOD),A |
9036 | LD (CURMOD),A |
9043 | LD (CURMOD),A |
9037 | OUT (ZXDATWR),A |
9044 | OUT (ZXDATWR),A |
9038 | IN A,(ZXDATRD) |
9045 | IN A,(ZXDATRD) |
9039 | OUT (CLRCBIT),A |
9046 | OUT (CLRCBIT),A |
9040 | LD C,0X00 |
9047 | LD C,0x00 |
9041 | CALL LOAD |
9048 | CALL LOAD |
9042 | LDMOD LD A,0X00 ;0XC3F8 |
9049 | LDMOD LD A,0x00 ;0xC3F8 |
9043 | LD (CONVERT),A |
9050 | LD (CONVERT),A |
9044 | ;---patched |
9051 | ;---patched |
9045 | CALL Patch5x |
9052 | CALL Patch5x |
9046 | ;--- |
9053 | ;--- |
9047 | RET |
9054 | RET |
Line 9065... | Line 9072... | ||
9065 | COM31_ LD B,A |
9072 | COM31_ LD B,A |
9066 | LD A,(CNTMOD) |
9073 | LD A,(CNTMOD) |
9067 | CP B |
9074 | CP B |
9068 | JP C,COM31_2 |
9075 | JP C,COM31_2 |
9069 | LD A,B |
9076 | LD A,B |
9070 | LD C,0X00 |
9077 | LD C,0x00 |
9071 | COM65_ OUT (ZXDATWR),A |
9078 | COM65_ OUT (ZXDATWR),A |
9072 | OUT (CLRCBIT),A |
9079 | OUT (CLRCBIT),A |
9073 | PLAYMOD LD A,(BUSY) ;0XC426 |
9080 | PLAYMOD LD A,(BUSY) ;0xC426 |
9074 | PUSH AF |
9081 | PUSH AF |
9075 | LD A,0XFF |
9082 | LD A,0xFF |
9076 | LD (BUSY),A |
9083 | LD (BUSY),A |
9077 | LD A,B |
9084 | LD A,B |
9078 | LD (MODULE),A |
9085 | LD (MODULE),A |
9079 | LD (CURMOD),A |
9086 | LD (CURMOD),A |
9080 | LD A,%00000011 |
9087 | LD A,%00000011 |
9081 | LD (MTSTAT),A |
9088 | LD (MTSTAT),A |
9082 | LD A,0X06 |
9089 | LD A,0x06 |
9083 | LD (MTSPEED),A |
9090 | LD (MTSPEED),A |
9084 | LD A,C |
9091 | LD A,C |
9085 | LD (MTSNGPS),A |
9092 | LD (MTSNGPS),A |
9086 | XOR A |
9093 | XOR A |
9087 | LD (MTFLAGS),A |
9094 | LD (MTFLAGS),A |
Line 9092... | Line 9099... | ||
9092 | LD (MTBRKFL),A |
9099 | LD (MTBRKFL),A |
9093 | LD (MTBRKPS),A |
9100 | LD (MTBRKPS),A |
9094 | LD (MTJMPFL),A |
9101 | LD (MTJMPFL),A |
9095 | INC A |
9102 | INC A |
9096 | LD (MTTYPE),A |
9103 | LD (MTTYPE),A |
9097 | LD A,0X40 |
9104 | LD A,0x40 |
9098 | LD (MTVOL),A |
9105 | LD (MTVOL),A |
9099 | DEC A |
9106 | DEC A |
9100 | LD (MTROWS),A |
9107 | LD (MTROWS),A |
9101 | LD A,125 |
9108 | LD A,125 |
9102 | CALL FXF |
9109 | CALL FXF |
9103 | LD IY,CHANS |
9110 | LD IY,CHANS |
9104 | LD B,0X08 |
9111 | LD B,0x08 |
9105 | LD DE,CHANLEN |
9112 | LD DE,CHANLEN |
9106 | COM31__ RES 7,(IY+CHSTAT) |
9113 | COM31__ RES 7,(IY+CHSTAT) |
9107 | SET 0,(IY+CHSTAT) |
9114 | SET 0,(IY+CHSTAT) |
9108 | LD (IY+CHVOL),0X40 |
9115 | LD (IY+CHVOL),0x40 |
9109 | LD (IY+CHMVOL),0X40 |
9116 | LD (IY+CHMVOL),0x40 |
9110 | ADD IY,DE |
9117 | ADD IY,DE |
9111 | DJNZ COM31__ |
9118 | DJNZ COM31__ |
9112 | CALL INITPAT |
9119 | CALL INITPAT |
9113 | CALL EFXGTNT |
9120 | CALL EFXGTNT |
9114 | LD A,0XFF |
9121 | LD A,0xFF |
9115 | LD (PROCESS),A |
9122 | LD (PROCESS),A |
9116 | POP AF |
9123 | POP AF |
9117 | LD (BUSY),A |
9124 | LD (BUSY),A |
9118 | RET |
9125 | RET |
9119 | 9126 | ||
Line 9128... | Line 9135... | ||
9128 | ;Остановить проигрывание модуля. |
9135 | ;Остановить проигрывание модуля. |
9129 | COM32 LD A,(MODULE) |
9136 | COM32 LD A,(MODULE) |
9130 | OUT (ZXDATWR),A |
9137 | OUT (ZXDATWR),A |
9131 | IN A,(ZXDATRD) |
9138 | IN A,(ZXDATRD) |
9132 | OUT (CLRCBIT),A |
9139 | OUT (CLRCBIT),A |
9133 | STOPMOD LD HL,MTSTAT ;0XC4AE |
9140 | STOPMOD LD HL,MTSTAT ;0xC4AE |
9134 | SET 7,(HL) |
9141 | SET 7,(HL) |
9135 | RET |
9142 | RET |
9136 | 9143 | ||
9137 | ;Continue module |
9144 | ;Continue module |
9138 | ;Продолжить проигрывание модуля после остановки. |
9145 | ;Продолжить проигрывание модуля после остановки. |
9139 | COM33 LD A,(MODULE) |
9146 | COM33 LD A,(MODULE) |
9140 | OUT (ZXDATWR),A |
9147 | OUT (ZXDATWR),A |
9141 | IN A,(ZXDATRD) |
9148 | IN A,(ZXDATRD) |
9142 | OUT (CLRCBIT),A |
9149 | OUT (CLRCBIT),A |
9143 | CONTMOD LD A,(MODULE) ;0XC4BD |
9150 | CONTMOD LD A,(MODULE) ;0xC4BD |
9144 | OR A |
9151 | OR A |
9145 | RET Z |
9152 | RET Z |
9146 | LD HL,MTSTAT |
9153 | LD HL,MTSTAT |
9147 | BIT 6,(HL) |
9154 | BIT 6,(HL) |
9148 | RET NZ |
9155 | RET NZ |
9149 | LD A,0XFF |
9156 | LD A,0xFF |
9150 | LD (PROCESS),A |
9157 | LD (PROCESS),A |
9151 | RES 7,(HL) |
9158 | RES 7,(HL) |
9152 | LD (PROCESS),A |
9159 | LD (PROCESS),A |
9153 | RET |
9160 | RET |
9154 | 9161 | ||
Line 9163... | Line 9170... | ||
9163 | ;Установить громкость проигрывания модулей. |
9170 | ;Установить громкость проигрывания модулей. |
9164 | COM35 LD A,(MTVOL) |
9171 | COM35 LD A,(MTVOL) |
9165 | OUT (ZXDATWR),A |
9172 | OUT (ZXDATWR),A |
9166 | IN A,(ZXDATRD) |
9173 | IN A,(ZXDATRD) |
9167 | OUT (CLRCBIT),A |
9174 | OUT (CLRCBIT),A |
9168 | CP 0X40 |
9175 | CP 0x40 |
9169 | JR C,COM35_ |
9176 | JR C,COM35_ |
9170 | LD A,0X40 |
9177 | LD A,0x40 |
9171 | COM35_ LD (MTVOL),A |
9178 | COM35_ LD (MTVOL),A |
9172 | LD IY,CHANS |
9179 | LD IY,CHANS |
9173 | LD B,0X08 |
9180 | LD B,0x08 |
9174 | LD DE,CHANLEN |
9181 | LD DE,CHANLEN |
9175 | COM35__ SET 0,(IY+CHSTAT) |
9182 | COM35__ SET 0,(IY+CHSTAT) |
9176 | ADD IY,DE |
9183 | ADD IY,DE |
9177 | DJNZ COM35__ |
9184 | DJNZ COM35__ |
9178 | RET |
9185 | RET |
9179 | 9186 | ||
9180 | ;Data on (*) |
9187 | ;Data on (*) |
9181 | ;Устанавливает регистр данных в 0XFF. |
9188 | ;Устанавливает регистр данных в 0xFF. |
9182 | COM36 LD A,0XFF |
9189 | COM36 LD A,0xFF |
9183 | OUT (ZXDATWR),A |
9190 | OUT (ZXDATWR),A |
9184 | OUT (CLRCBIT),A |
9191 | OUT (CLRCBIT),A |
9185 | RET |
9192 | RET |
9186 | 9193 | ||
9187 | ;Reinitialisation (*) |
9194 | ;Reinitialisation (*) |
9188 | ;Переустанавливает внутренние переменные в исходное состояние. |
9195 | ;Переустанавливает внутренние переменные в исходное состояние. |
9189 | COM37 OUT (CLRCBIT),A |
9196 | COM37 OUT (CLRCBIT),A |
9190 | LD HL,MTSTAT |
9197 | LD HL,MTSTAT |
9191 | SET 7,(HL) |
9198 | SET 7,(HL) |
9192 | LD HL,0X0000 |
9199 | LD HL,0x0000 |
9193 | XOR A |
9200 | XOR A |
9194 | LD (CURADR),HL |
9201 | LD (CURADR),HL |
9195 | LD (CURADR+2),A |
9202 | LD (CURADR+2),A |
9196 | LD (MEMBOT),HL |
9203 | LD (MEMBOT),HL |
9197 | LD (MEMBOT+2),A |
9204 | LD (MEMBOT+2),A |
Line 9201... | Line 9208... | ||
9201 | RET |
9208 | RET |
9202 | 9209 | ||
9203 | ;Load FX (Extended version) |
9210 | ;Load FX (Extended version) |
9204 | ;Загрузка сэмпла эффекта в память. Позволяет загружать сэмплы со знаком. |
9211 | ;Загрузка сэмпла эффекта в память. Позволяет загружать сэмплы со знаком. |
9205 | COM3E IN A,(ZXDATRD) |
9212 | COM3E IN A,(ZXDATRD) |
9206 | CP 0X01 |
9213 | CP 0x01 |
9207 | JR Z,COM38 |
9214 | JR Z,COM38 |
9208 | LD IXL,0X80 |
9215 | LD IXL,0x80 |
9209 | OR A |
9216 | OR A |
9210 | JR Z,COM38_ |
9217 | JR Z,COM38_ |
9211 | XOR A |
9218 | XOR A |
9212 | OUT (ZXDATWR),A |
9219 | OUT (ZXDATWR),A |
9213 | IN A,(ZXDATRD) |
9220 | IN A,(ZXDATRD) |
9214 | OUT (CLRCBIT),A |
9221 | OUT (CLRCBIT),A |
9215 | RET |
9222 | RET |
9216 | 9223 | ||
9217 | ;Load FX |
9224 | ;Load FX |
9218 | ;Загрузка сэмпла эффекта в память. Загружает беззнаковые сэмплы (PC type) |
9225 | ;Загрузка сэмпла эффекта в память. Загружает беззнаковые сэмплы (PC type) |
9219 | COM38 LD IXL,0X00 |
9226 | COM38 LD IXL,0x00 |
9220 | COM38_ LD A,(CNTFX) |
9227 | COM38_ LD A,(CNTFX) |
9221 | CP 60 |
9228 | CP 60 |
9222 | JP NC,COM38_9 |
9229 | JP NC,COM38_9 |
9223 | INC A |
9230 | INC A |
9224 | OUT (ZXDATWR),A |
9231 | OUT (ZXDATWR),A |
Line 9232... | Line 9239... | ||
9232 | PUSH HL |
9239 | PUSH HL |
9233 | POP IY |
9240 | POP IY |
9234 | LD E,L |
9241 | LD E,L |
9235 | LD D,H |
9242 | LD D,H |
9236 | INC DE |
9243 | INC DE |
9237 | LD BC,0X003F |
9244 | LD BC,0x003F |
9238 | LD (HL),B |
9245 | LD (HL),B |
9239 | LDIR |
9246 | LDIR |
9240 | LD HL,(CURADR) |
9247 | LD HL,(CURADR) |
9241 | LD A,(CURADR+2) |
9248 | LD A,(CURADR+2) |
9242 | LD (IY+8),L |
9249 | LD (IY+8),L |
Line 9254... | Line 9261... | ||
9254 | LD (IY+18),A |
9261 | LD (IY+18),A |
9255 | LD A,(CURADR+2) |
9262 | LD A,(CURADR+2) |
9256 | SBC A,(IY+10) |
9263 | SBC A,(IY+10) |
9257 | LD (IY+13),A |
9264 | LD (IY+13),A |
9258 | LD (IY+19),A |
9265 | LD (IY+19),A |
9259 | LD (IY+16),0XFF |
9266 | LD (IY+16),0xFF |
9260 | LD (IY+20),0X40 |
9267 | LD (IY+20),0x40 |
9261 | LD (IY+23),0X80 |
9268 | LD (IY+23),0x80 |
9262 | LD (IY+24),0X0F |
9269 | LD (IY+24),0x0F |
9263 | LD (IY+25),0X0F |
9270 | LD (IY+25),0x0F |
9264 | LD (IY+26),0X80 |
9271 | LD (IY+26),0x80 |
9265 | LD (IY+27),0XFF |
9272 | LD (IY+27),0xFF |
9266 | LD (IY+28),0XFF |
9273 | LD (IY+28),0xFF |
9267 | LD (IY+31),60 |
9274 | LD (IY+31),60 |
9268 | LD E,60 |
9275 | LD E,60 |
9269 | CALL GETPER |
9276 | CALL GETPER |
9270 | LD (IY+54),L |
9277 | LD (IY+54),L |
9271 | LD (IY+55),H |
9278 | LD (IY+55),H |
Line 9280... | Line 9287... | ||
9280 | IN A,(ZXDATRD) |
9287 | IN A,(ZXDATRD) |
9281 | OUT (CLRCBIT),A |
9288 | OUT (CLRCBIT),A |
9282 | RET |
9289 | RET |
9283 | 9290 | ||
9284 | GETFX DEC A |
9291 | GETFX DEC A |
9285 | CP 0X20 |
9292 | CP 0x20 |
9286 | JR C,GETFX2 |
9293 | JR C,GETFX2 |
9287 | SUB 0X20 |
9294 | SUB 0x20 |
9288 | LD H,0X00 |
9295 | LD H,0x00 |
9289 | ADD A,A |
9296 | ADD A,A |
9290 | ADD A,A |
9297 | ADD A,A |
9291 | ADD A,A |
9298 | ADD A,A |
9292 | RL H |
9299 | RL H |
9293 | ADD A,A |
9300 | ADD A,A |
Line 9302... | Line 9309... | ||
9302 | LD H,A |
9309 | LD H,A |
9303 | PUSH HL |
9310 | PUSH HL |
9304 | POP IY |
9311 | POP IY |
9305 | RET |
9312 | RET |
9306 | 9313 | ||
9307 | GETFX2 LD H,0X00 |
9314 | GETFX2 LD H,0x00 |
9308 | ADD A,A |
9315 | ADD A,A |
9309 | ADD A,A |
9316 | ADD A,A |
9310 | ADD A,A |
9317 | ADD A,A |
9311 | RL H |
9318 | RL H |
9312 | ADD A,A |
9319 | ADD A,A |
Line 9339... | Line 9346... | ||
9339 | OUT (CLRCBIT),A |
9346 | OUT (CLRCBIT),A |
9340 | LD A,(CURFX) |
9347 | LD A,(CURFX) |
9341 | CALL GETFX |
9348 | CALL GETFX |
9342 | LD A,(BUSY) |
9349 | LD A,(BUSY) |
9343 | PUSH AF |
9350 | PUSH AF |
9344 | LD A,0XFF |
9351 | LD A,0xFF |
9345 | LD (BUSY),A |
9352 | LD (BUSY),A |
9346 | PUSH HL |
9353 | PUSH HL |
9347 | POP IY |
9354 | POP IY |
9348 | CALL PLAYFX |
9355 | CALL PLAYFX |
9349 | POP AF |
9356 | POP AF |
9350 | LD (BUSY),A |
9357 | LD (BUSY),A |
9351 | RET |
9358 | RET |
9352 | 9359 | ||
9353 | COM39_9 LD A,0XFF |
9360 | COM39_9 LD A,0xFF |
9354 | OUT (ZXDATWR),A |
9361 | OUT (ZXDATWR),A |
9355 | OUT (CLRCBIT),A |
9362 | OUT (CLRCBIT),A |
9356 | RET |
9363 | RET |
9357 | 9364 | ||
9358 | COM3B |
9365 | COM3B |
Line 9367... | Line 9374... | ||
9367 | ;Установить громкость проигрывания эффектов. |
9374 | ;Установить громкость проигрывания эффектов. |
9368 | COM3D LD A,(FXMVOL) |
9375 | COM3D LD A,(FXMVOL) |
9369 | OUT (ZXDATWR),A |
9376 | OUT (ZXDATWR),A |
9370 | IN A,(ZXDATRD) |
9377 | IN A,(ZXDATRD) |
9371 | OUT (CLRCBIT),A |
9378 | OUT (CLRCBIT),A |
9372 | CP 0X40 |
9379 | CP 0x40 |
9373 | JR C,COM3D_ |
9380 | JR C,COM3D_ |
9374 | LD A,0X40 |
9381 | LD A,0x40 |
9375 | COM3D_ LD (FXMVOL),A |
9382 | COM3D_ LD (FXMVOL),A |
9376 | LD IY,CHANSFX |
9383 | LD IY,CHANSFX |
9377 | LD B,0X08 |
9384 | LD B,0x08 |
9378 | LD DE,CHANLEN |
9385 | LD DE,CHANLEN |
9379 | COM3D__ SET 0,(IY+CHSTAT) |
9386 | COM3D__ SET 0,(IY+CHSTAT) |
9380 | ADD IY,DE |
9387 | ADD IY,DE |
9381 | DJNZ COM3D__ |
9388 | DJNZ COM3D__ |
9382 | RET |
9389 | RET |
Line 9413... | Line 9420... | ||
9413 | LD A,(CURFX) |
9420 | LD A,(CURFX) |
9414 | OR A |
9421 | OR A |
9415 | RET Z |
9422 | RET Z |
9416 | CALL GETFX |
9423 | CALL GETFX |
9417 | LD A,E |
9424 | LD A,E |
9418 | CP 0X41 |
9425 | CP 0x41 |
9419 | JR C,COM41_ |
9426 | JR C,COM41_ |
9420 | LD E,0X40 |
9427 | LD E,0x40 |
9421 | COM41_ LD (IY+20),E |
9428 | COM41_ LD (IY+20),E |
9422 | RET |
9429 | RET |
9423 | 9430 | ||
9424 | ;Set FX Sample Finetune |
9431 | ;Set FX Sample Finetune |
9425 | ;Установка Finetune по умолчанию для текущего эффекта. |
9432 | ;Установка Finetune по умолчанию для текущего эффекта. |
Line 9433... | Line 9440... | ||
9433 | OUT (CLRCBIT),A |
9440 | OUT (CLRCBIT),A |
9434 | LD (IY+21),A |
9441 | LD (IY+21),A |
9435 | RET |
9442 | RET |
9436 | 9443 | ||
9437 | ;Set FX Sample Priority |
9444 | ;Set FX Sample Priority |
9438 | ;Установка приоритета для текущего эффекта. (См. команду 0X39) |
9445 | ;Установка приоритета для текущего эффекта. (См. команду 0x39) |
9439 | COM45 LD A,(CURFX) |
9446 | COM45 LD A,(CURFX) |
9440 | CALL GETFX |
9447 | CALL GETFX |
9441 | PUSH HL |
9448 | PUSH HL |
9442 | POP IY |
9449 | POP IY |
9443 | LD A,(IY+26) |
9450 | LD A,(IY+26) |
Line 9446... | Line 9453... | ||
9446 | OUT (CLRCBIT),A |
9453 | OUT (CLRCBIT),A |
9447 | LD (IY+26),A |
9454 | LD (IY+26),A |
9448 | RET |
9455 | RET |
9449 | 9456 | ||
9450 | ;Set FX Sample Seek First parameter |
9457 | ;Set FX Sample Seek First parameter |
9451 | ;Установка параметра Seek First для текущего эффекта. (См. команду 0X39) |
9458 | ;Установка параметра Seek First для текущего эффекта. (См. команду 0x39) |
9452 | COM46 LD A,(CURFX) |
9459 | COM46 LD A,(CURFX) |
9453 | CALL GETFX |
9460 | CALL GETFX |
9454 | PUSH HL |
9461 | PUSH HL |
9455 | POP IY |
9462 | POP IY |
9456 | LD A,(IY+24) |
9463 | LD A,(IY+24) |
Line 9459... | Line 9466... | ||
9459 | OUT (CLRCBIT),A |
9466 | OUT (CLRCBIT),A |
9460 | LD (IY+24),A |
9467 | LD (IY+24),A |
9461 | RET |
9468 | RET |
9462 | 9469 | ||
9463 | ;Set FX Sample Seek Last parameter |
9470 | ;Set FX Sample Seek Last parameter |
9464 | ;Установка параметра Seek Last для текущего эффекта. (См. команду 0X39) |
9471 | ;Установка параметра Seek Last для текущего эффекта. (См. команду 0x39) |
9465 | COM47 LD A,(CURFX) |
9472 | COM47 LD A,(CURFX) |
9466 | CALL GETFX |
9473 | CALL GETFX |
9467 | PUSH HL |
9474 | PUSH HL |
9468 | POP IY |
9475 | POP IY |
9469 | LD A,(IY+25) |
9476 | LD A,(IY+25) |
Line 9501... | Line 9508... | ||
9501 | LD (IY+18),A |
9508 | LD (IY+18),A |
9502 | CALL HGET |
9509 | CALL HGET |
9503 | LD (IY+19),A |
9510 | LD (IY+19),A |
9504 | RET |
9511 | RET |
9505 | 9512 | ||
9506 | COM58 LD B,0X00 |
9513 | COM58 LD B,0x00 |
9507 | OUT (ZXDATWR),A |
9514 | OUT (ZXDATWR),A |
9508 | JP COM50_ |
9515 | JP COM50_ |
9509 | 9516 | ||
9510 | COM50 IN A,(ZXDATRD) |
9517 | COM50 IN A,(ZXDATRD) |
9511 | LD B,A |
9518 | LD B,A |
9512 | COM50_ IN A,(ZXCMD) |
9519 | COM50_ IN A,(ZXCMD) |
9513 | OUT (CLRCBIT),A |
9520 | OUT (CLRCBIT),A |
9514 | AND 0X07 |
9521 | AND 0x07 |
9515 | LD E,A |
9522 | LD E,A |
9516 | CALL HGET |
9523 | CALL HGET |
9517 | LD L,A |
9524 | LD L,A |
9518 | LD A,E |
9525 | LD A,E |
9519 | CP 0X04 |
9526 | CP 0x04 |
9520 | CALL NC,HGET |
9527 | CALL NC,HGET |
9521 | LD H,A |
9528 | LD H,A |
9522 | LD A,E |
9529 | LD A,E |
9523 | CP 0X07 |
9530 | CP 0x07 |
9524 | CALL Z,HGET |
9531 | CALL Z,HGET |
9525 | LD D,A |
9532 | LD D,A |
9526 | LD A,B |
9533 | LD A,B |
9527 | OR A |
9534 | OR A |
9528 | JR NZ,C50_00 |
9535 | JR NZ,C50_00 |
9529 | LD A,(LSTCHN) |
9536 | LD A,(LSTCHN) |
9530 | OR A |
9537 | OR A |
9531 | JP Z,ERR20 |
9538 | JP Z,ERR20 |
9532 | C50_00 LD B,A |
9539 | C50_00 LD B,A |
9533 | LD C,0X01 |
9540 | LD C,0x01 |
9534 | LD IY,CHANSFX |
9541 | LD IY,CHANSFX |
9535 | C50_01 LD A,B |
9542 | C50_01 LD A,B |
9536 | AND C |
9543 | AND C |
9537 | JR NZ,C50_02 |
9544 | JR NZ,C50_02 |
9538 | RLC C |
9545 | RLC C |
9539 | LD A,IYL |
9546 | LD A,IYL |
9540 | ADD A,LOW (CHANLEN) |
9547 | ADD A,LOW (CHANLEN) |
9541 | LD IYL,A |
9548 | LD IYL,A |
9542 | LD A,IYH |
9549 | LD A,IYH |
9543 | ADC A,0X00 |
9550 | ADC A,0x00 |
9544 | LD IYH,A |
9551 | LD IYH,A |
9545 | JP C50_01 |
9552 | JP C50_01 |
9546 | 9553 | ||
9547 | C50_02 LD A,E |
9554 | C50_02 LD A,E |
9548 | OR A |
9555 | OR A |
9549 | JP Z,C50_80 |
9556 | JP Z,C50_80 |
9550 | CP 0X02 |
9557 | CP 0x02 |
9551 | JP Z,C50_A0 |
9558 | JP Z,C50_A0 |
9552 | CP 0X04 |
9559 | CP 0x04 |
9553 | JP Z,C50_C0 |
9560 | JP Z,C50_C0 |
9554 | CP 0X05 |
9561 | CP 0x05 |
9555 | JP Z,C50_D0 |
9562 | JP Z,C50_D0 |
9556 | CP 0X06 |
9563 | CP 0x06 |
9557 | JP Z,C50_E0 |
9564 | JP Z,C50_E0 |
9558 | CP 0X07 |
9565 | CP 0x07 |
9559 | JP Z,C50_F0 |
9566 | JP Z,C50_F0 |
9560 | C50_LP |
9567 | C50_LP |
9561 | C50_80 SET 7,(IY+CHSTAT) |
9568 | C50_80 SET 7,(IY+CHSTAT) |
9562 | LD A,L |
9569 | LD A,L |
9563 | AND 0X7F |
9570 | AND 0x7F |
9564 | CP 96 |
9571 | CP 96 |
9565 | JP NC,C50_LP |
9572 | JP NC,C50_LP |
9566 | C50_81 LD A,(IY+CHSMP) |
9573 | C50_81 LD A,(IY+CHSMP) |
9567 | OR A |
9574 | OR A |
9568 | JP Z,C50_LP |
9575 | JP Z,C50_LP |
Line 9581... | Line 9588... | ||
9581 | JR NZ,C50_82 |
9588 | JR NZ,C50_82 |
9582 | LD A,(IY+CHNOTE) |
9589 | LD A,(IY+CHNOTE) |
9583 | CP E |
9590 | CP E |
9584 | JR Z,C50_83 |
9591 | JR Z,C50_83 |
9585 | LD (IY+CHNOTE),E |
9592 | LD (IY+CHNOTE),E |
9586 | C50_82 LD (IY+CHCNTL),0X00 |
9593 | C50_82 LD (IY+CHCNTL),0x00 |
9587 | LD (IY+CHCNTH),0X00 |
9594 | LD (IY+CHCNTH),0x00 |
9588 | C50_83 POP HL |
9595 | C50_83 POP HL |
9589 | PUSH HL |
9596 | PUSH HL |
9590 | BIT 7,(IY+CHSTAT) |
9597 | BIT 7,(IY+CHSTAT) |
9591 | JR NZ,C50_84 |
9598 | JR NZ,C50_84 |
9592 | BIT 7,L |
9599 | BIT 7,L |
Line 9594... | Line 9601... | ||
9594 | POP BC |
9601 | POP BC |
9595 | POP DE |
9602 | POP DE |
9596 | JP C50_LP |
9603 | JP C50_LP |
9597 | 9604 | ||
9598 | C50_90 LD A,L |
9605 | C50_90 LD A,L |
9599 | CP 0X40 |
9606 | CP 0x40 |
9600 | JR C,C50_91 |
9607 | JR C,C50_91 |
9601 | LD L,0X40 |
9608 | LD L,0x40 |
9602 | C50_91 LD (IY+CHVOL),A |
9609 | C50_91 LD (IY+CHVOL),A |
9603 | LD (IY+CHMVOL),A |
9610 | LD (IY+CHMVOL),A |
9604 | JP C50_LP |
9611 | JP C50_LP |
9605 | 9612 | ||
9606 | C50_A0 LD (IY+CHFINE),L |
9613 | C50_A0 LD (IY+CHFINE),L |
Line 9612... | Line 9619... | ||
9612 | C50_C0 LD A,H |
9619 | C50_C0 LD A,H |
9613 | OR A |
9620 | OR A |
9614 | JR NZ,C50_C1 |
9621 | JR NZ,C50_C1 |
9615 | OR L |
9622 | OR L |
9616 | JR NZ,C50_C1 |
9623 | JR NZ,C50_C1 |
9617 | LD L,0X01 |
9624 | LD L,0x01 |
9618 | C50_C1 LD A,H |
9625 | C50_C1 LD A,H |
9619 | CP 0X20 |
9626 | CP 0x20 |
9620 | JR C,C50_C2 |
9627 | JR C,C50_C2 |
9621 | LD HL,0X1FFF |
9628 | LD HL,0x1FFF |
9622 | C50_C2 LD A,(IY+CHSTAT) |
9629 | C50_C2 LD A,(IY+CHSTAT) |
9623 | SET 7,(IY+CHSTAT) |
9630 | SET 7,(IY+CHSTAT) |
9624 | LD (IY+CHPERL),L |
9631 | LD (IY+CHPERL),L |
9625 | LD (IY+CHPERH),H |
9632 | LD (IY+CHPERH),H |
9626 | LD (IY+CHCNTL),0X00 |
9633 | LD (IY+CHCNTL),0x00 |
9627 | LD (IY+CHCNTH),0X00 |
9634 | LD (IY+CHCNTH),0x00 |
9628 | LD (IY+CHSTAT),A |
9635 | LD (IY+CHSTAT),A |
9629 | JP C50_LP |
9636 | JP C50_LP |
9630 | 9637 | ||
9631 | C50_D0 LD A,H |
9638 | C50_D0 LD A,H |
9632 | OR A |
9639 | OR A |
9633 | JR NZ,C50_D1 |
9640 | JR NZ,C50_D1 |
9634 | OR L |
9641 | OR L |
9635 | JR NZ,C50_D1 |
9642 | JR NZ,C50_D1 |
9636 | LD L,0X01 |
9643 | LD L,0x01 |
9637 | C50_D1 LD A,H |
9644 | C50_D1 LD A,H |
9638 | CP 0X80 |
9645 | CP 0x80 |
9639 | JR C,C50_D2 |
9646 | JR C,C50_D2 |
9640 | LD HL,0X7FFF |
9647 | LD HL,0x7FFF |
9641 | C50_D2 LD A,(IY+CHSTAT) |
9648 | C50_D2 LD A,(IY+CHSTAT) |
9642 | SET 7,(IY+CHSTAT) |
9649 | SET 7,(IY+CHSTAT) |
9643 | LD (IY+CHFRQL),L |
9650 | LD (IY+CHFRQL),L |
9644 | LD (IY+CHFRQH),H |
9651 | LD (IY+CHFRQH),H |
9645 | LD (IY+CHCNTL),0X00 |
9652 | LD (IY+CHCNTL),0x00 |
9646 | LD (IY+CHCNTH),0X00 |
9653 | LD (IY+CHCNTH),0x00 |
9647 | LD (IY+CHSTAT),A |
9654 | LD (IY+CHSTAT),A |
9648 | JP C50_LP |
9655 | JP C50_LP |
9649 | 9656 | ||
9650 | C50_E0 |
9657 | C50_E0 |
9651 | C50_F0 |
9658 | C50_F0 |
Line 9667... | Line 9674... | ||
9667 | ;Get Mixed Position |
9674 | ;Get Mixed Position |
9668 | ;Получить значение Pattern_Position, немного смешанной с Song_Position. |
9675 | ;Получить значение Pattern_Position, немного смешанной с Song_Position. |
9669 | COM62 LD A,(MTSNGPS) |
9676 | COM62 LD A,(MTSNGPS) |
9670 | RRCA |
9677 | RRCA |
9671 | RRCA |
9678 | RRCA |
9672 | AND 0XC0 |
9679 | AND 0xC0 |
9673 | LD B,A |
9680 | LD B,A |
9674 | LD A,(MTPATPS) |
9681 | LD A,(MTPATPS) |
9675 | AND 0X3F |
9682 | AND 0x3F |
9676 | OR B |
9683 | OR B |
9677 | OUT (ZXDATWR),A |
9684 | OUT (ZXDATWR),A |
9678 | OUT (CLRCBIT),A |
9685 | OUT (CLRCBIT),A |
9679 | RET |
9686 | RET |
9680 | 9687 | ||
Line 9683... | Line 9690... | ||
9683 | COM64 LD HL,CHANS+CHMVOL |
9690 | COM64 LD HL,CHANS+CHMVOL |
9684 | JP COM64_ |
9691 | JP COM64_ |
9685 | 9692 | ||
9686 | COM63 LD HL,CHANS+CHREAL |
9693 | COM63 LD HL,CHANS+CHREAL |
9687 | COM64_ LD DE,CHANLEN |
9694 | COM64_ LD DE,CHANLEN |
9688 | LD B,0X04 |
9695 | LD B,0x04 |
9689 | LD A,(HL) |
9696 | LD A,(HL) |
9690 | OUT (ZXDATWR),A |
9697 | OUT (ZXDATWR),A |
9691 | OUT (CLRCBIT),A |
9698 | OUT (CLRCBIT),A |
9692 | JP COM63__ |
9699 | JP COM63__ |
9693 | 9700 | ||
Line 9700... | Line 9707... | ||
9700 | ADD HL,DE |
9707 | ADD HL,DE |
9701 | DJNZ COM63_ |
9708 | DJNZ COM63_ |
9702 | RET |
9709 | RET |
9703 | 9710 | ||
9704 | ;Set speed/tempo (*) |
9711 | ;Set speed/tempo (*) |
9705 | ;Установка скорости в пределах 0X01-0X1F. При значениях 0X20-0XFF устанавли- |
9712 | ;Установка скорости в пределах 0x01-0x1F. При значениях 0x20-0xFF устанавли- |
9706 | ;вается темп проигрывания. Значения темпа соответствуют оригинальным при |
9713 | ;вается темп проигрывания. Значения темпа соответствуют оригинальным при |
9707 | ;скорости равной 0X06. |
9714 | ;скорости равной 0x06. |
9708 | COM66 IN A,(ZXDATRD) |
9715 | COM66 IN A,(ZXDATRD) |
9709 | OUT (CLRCBIT),A |
9716 | OUT (CLRCBIT),A |
9710 | CALL FXF |
9717 | CALL FXF |
9711 | RET |
9718 | RET |
9712 | 9719 | ||
Line 9724... | Line 9731... | ||
9724 | OUT (CLRCBIT),A |
9731 | OUT (CLRCBIT),A |
9725 | RET |
9732 | RET |
9726 | 9733 | ||
9727 | ;Process Sound (*) |
9734 | ;Process Sound (*) |
9728 | ;Переход на следующий кварк (или тик) в процессе проигрывания звука. |
9735 | ;Переход на следующий кварк (или тик) в процессе проигрывания звука. |
9729 | COM69 LD A,0XFF |
9736 | COM69 LD A,0xFF |
9730 | LD (INGEN),A |
9737 | LD (INGEN),A |
9731 | CALL ENGINE |
9738 | CALL ENGINE |
9732 | XOR A |
9739 | XOR A |
9733 | LD (INGEN),A |
9740 | LD (INGEN),A |
9734 | OUT (CLRCBIT),A |
9741 | OUT (CLRCBIT),A |
Line 9755... | Line 9762... | ||
9755 | SLA C |
9762 | SLA C |
9756 | JR C,COM3A_1 |
9763 | JR C,COM3A_1 |
9757 | JP NZ,COM3A_2 |
9764 | JP NZ,COM3A_2 |
9758 | RET |
9765 | RET |
9759 | 9766 | ||
9760 | ;Direct Play FX Sample (0X80..0X83) |
9767 | ;Direct Play FX Sample (0x80..0x83) |
9761 | ;Проигрывание сэмпла в заданном канале. |
9768 | ;Проигрывание сэмпла в заданном канале. |
9762 | COM80 IN A,(ZXDATRD) |
9769 | COM80 IN A,(ZXDATRD) |
9763 | OR A |
9770 | OR A |
9764 | JR NZ,COM80_1 |
9771 | JR NZ,COM80_1 |
9765 | LD A,(CURFX) |
9772 | LD A,(CURFX) |
Line 9802... | Line 9809... | ||
9802 | 9809 | ||
9803 | COM80_2 PUSH IY |
9810 | COM80_2 PUSH IY |
9804 | LD IY,CHANSFX |
9811 | LD IY,CHANSFX |
9805 | LD DE,CHANLEN |
9812 | LD DE,CHANLEN |
9806 | LD A,B |
9813 | LD A,B |
9807 | AND 0X07 |
9814 | AND 0x07 |
9808 | COM80_3 JP Z,PLFX_12 |
9815 | COM80_3 JP Z,PLFX_12 |
9809 | ADD IY,DE |
9816 | ADD IY,DE |
9810 | DEC A |
9817 | DEC A |
9811 | JP COM80_3 |
9818 | JP COM80_3 |
9812 | 9819 | ||
Line 9815... | Line 9822... | ||
9815 | IN A,(ZXCMD) |
9822 | IN A,(ZXCMD) |
9816 | OUT (CLRCBIT),A |
9823 | OUT (CLRCBIT),A |
9817 | LD B,A |
9824 | LD B,A |
9818 | LD IY,CHANSFX |
9825 | LD IY,CHANSFX |
9819 | LD DE,CHANLEN |
9826 | LD DE,CHANLEN |
9820 | AND 0X07 |
9827 | AND 0x07 |
9821 | COMA0_1 JR Z,COMA0_2 |
9828 | COMA0_1 JR Z,COMA0_2 |
9822 | ADD IY,DE |
9829 | ADD IY,DE |
9823 | DEC A |
9830 | DEC A |
9824 | JP NZ,COMA0_1 |
9831 | JP NZ,COMA0_1 |
9825 | COMA0_2 BIT 3,B |
9832 | COMA0_2 BIT 3,B |
Line 9846... | Line 9853... | ||
9846 | JR GETFRQ_ |
9853 | JR GETFRQ_ |
9847 | 9854 | ||
9848 | GETFRQ LD HL,GSFRQTB |
9855 | GETFRQ LD HL,GSFRQTB |
9849 | GETFRQ_ LD A,(IY+CHFINE) |
9856 | GETFRQ_ LD A,(IY+CHFINE) |
9850 | RRA |
9857 | RRA |
9851 | AND 0X0F |
9858 | AND 0x0F |
9852 | JR Z,GETFRQ2 |
9859 | JR Z,GETFRQ2 |
9853 | LD C,A |
9860 | LD C,A |
9854 | ADD A,A |
9861 | ADD A,A |
9855 | ADD A,C |
9862 | ADD A,C |
9856 | ADD A,A |
9863 | ADD A,A |
Line 9879... | Line 9886... | ||
9879 | LD E,A |
9886 | LD E,A |
9880 | BIT 0,(IY+CHFINE) |
9887 | BIT 0,(IY+CHFINE) |
9881 | RET Z |
9888 | RET Z |
9882 | RET |
9889 | RET |
9883 | 9890 | ||
9884 | PLAYFX LD C,0X00 |
9891 | PLAYFX LD C,0x00 |
9885 | LD A,(MTSTAT) |
9892 | LD A,(MTSTAT) |
9886 | OR A |
9893 | OR A |
9887 | JP M,PLFX_03 |
9894 | JP M,PLFX_03 |
9888 | LD A,(MODULE) |
9895 | LD A,(MODULE) |
9889 | OR A |
9896 | OR A |
9890 | JR Z,PLFX_03 |
9897 | JR Z,PLFX_03 |
9891 | LD IY,CHANS |
9898 | LD IY,CHANS |
9892 | LD DE,CHANLEN |
9899 | LD DE,CHANLEN |
9893 | LD B,0X04 |
9900 | LD B,0x04 |
9894 | PLFX_00 BIT 7,(IY+CHSTAT) |
9901 | PLFX_00 BIT 7,(IY+CHSTAT) |
9895 | JR Z,PLFX_01 |
9902 | JR Z,PLFX_01 |
9896 | LD A,(IY+CHMVOL) |
9903 | LD A,(IY+CHMVOL) |
9897 | OR A |
9904 | OR A |
9898 | JR Z,PLFX_01 |
9905 | JR Z,PLFX_01 |
Line 9914... | Line 9921... | ||
9914 | AND (HL) |
9921 | AND (HL) |
9915 | LD C,A |
9922 | LD C,A |
9916 | AND (IY+24) |
9923 | AND (IY+24) |
9917 | JR NZ,PLFX_10 |
9924 | JR NZ,PLFX_10 |
9918 | LD A,(IY+26) |
9925 | LD A,(IY+26) |
9919 | CP 0X40 |
9926 | CP 0x40 |
9920 | JR NC,PLFX_04 |
9927 | JR NC,PLFX_04 |
9921 | LD A,C |
9928 | LD A,C |
9922 | AND (IY+25) |
9929 | AND (IY+25) |
9923 | JR NZ,PLFX_10 |
9930 | JR NZ,PLFX_10 |
9924 | JP PLFX_05 |
9931 | JP PLFX_05 |
Line 9939... | Line 9946... | ||
9939 | AND B |
9946 | AND B |
9940 | LD B,A |
9947 | LD B,A |
9941 | PUSH IY |
9948 | PUSH IY |
9942 | LD IY,CHANSFX |
9949 | LD IY,CHANSFX |
9943 | LD L,A |
9950 | LD L,A |
9944 | LD H,0XFF |
9951 | LD H,0xFF |
9945 | LD DE,CHANLEN |
9952 | LD DE,CHANLEN |
9946 | SRL B |
9953 | SRL B |
9947 | JP C,PLFX_06 |
9954 | JP C,PLFX_06 |
9948 | JP NZ,PLFX_07 |
9955 | JP NZ,PLFX_07 |
9949 | JP PLFX_08 |
9956 | JP PLFX_08 |
Line 9983... | Line 9990... | ||
9983 | LD (FXCHNS),A |
9990 | LD (FXCHNS),A |
9984 | EX (SP),IY |
9991 | EX (SP),IY |
9985 | LD E,(IY+8) |
9992 | LD E,(IY+8) |
9986 | LD D,(IY+9) |
9993 | LD D,(IY+9) |
9987 | LD A,(IY+10) |
9994 | LD A,(IY+10) |
9988 | DB 0XCB,0X32;SLI D |
9995 | DB 0xCB,0x32;SLI D |
9989 | RLA |
9996 | RLA |
9990 | RRC D |
9997 | RRC D |
9991 | EX (SP),IY |
9998 | EX (SP),IY |
9992 | LD (IY+CHCURP),A |
9999 | LD (IY+CHCURP),A |
9993 | LD (IY+CHCURL),E |
10000 | LD (IY+CHCURL),E |
Line 9999... | Line 10006... | ||
9999 | LD A,(IY+9) |
10006 | LD A,(IY+9) |
10000 | ADC A,(IY+12) |
10007 | ADC A,(IY+12) |
10001 | LD D,A |
10008 | LD D,A |
10002 | LD A,(IY+10) |
10009 | LD A,(IY+10) |
10003 | ADC A,(IY+13) |
10010 | ADC A,(IY+13) |
10004 | DB 0XCB,0X32;SLI D |
10011 | DB 0xCB,0x32;SLI D |
10005 | RLA |
10012 | RLA |
10006 | RRC D |
10013 | RRC D |
10007 | EX (SP),IY |
10014 | EX (SP),IY |
10008 | LD (IY+CHENDP),A |
10015 | LD (IY+CHENDP),A |
10009 | LD (IY+CHENDL),E |
10016 | LD (IY+CHENDL),E |
10010 | LD (IY+CHENDH),D |
10017 | LD (IY+CHENDH),D |
10011 | LD (IY+CHLPBP),0XFF |
10018 | LD (IY+CHLPBP),0xFF |
10012 | EX (SP),IY |
10019 | EX (SP),IY |
10013 | LD A,(IY+16) |
10020 | LD A,(IY+16) |
10014 | INC A |
10021 | INC A |
10015 | JR Z,PLFX_13 |
10022 | JR Z,PLFX_13 |
10016 | LD A,(IY+8) |
10023 | LD A,(IY+8) |
Line 10019... | Line 10026... | ||
10019 | LD A,(IY+9) |
10026 | LD A,(IY+9) |
10020 | ADC A,(IY+15) |
10027 | ADC A,(IY+15) |
10021 | LD D,A |
10028 | LD D,A |
10022 | LD A,(IY+10) |
10029 | LD A,(IY+10) |
10023 | ADC A,(IY+16) |
10030 | ADC A,(IY+16) |
10024 | DB 0XCB,0X32;SLI D |
10031 | DB 0xCB,0x32;SLI D |
10025 | RLA |
10032 | RLA |
10026 | RRC D |
10033 | RRC D |
10027 | EX (SP),IY |
10034 | EX (SP),IY |
10028 | LD (IY+CHLPBP),A |
10035 | LD (IY+CHLPBP),A |
10029 | LD (IY+CHLPBL),E |
10036 | LD (IY+CHLPBL),E |
Line 10035... | Line 10042... | ||
10035 | LD A,(IY+9) |
10042 | LD A,(IY+9) |
10036 | ADC A,(IY+18) |
10043 | ADC A,(IY+18) |
10037 | LD D,A |
10044 | LD D,A |
10038 | LD A,(IY+10) |
10045 | LD A,(IY+10) |
10039 | ADC A,(IY+19) |
10046 | ADC A,(IY+19) |
10040 | DB 0XCB,0X32;SLI D |
10047 | DB 0xCB,0x32;SLI D |
10041 | RLA |
10048 | RLA |
10042 | RRC D |
10049 | RRC D |
10043 | EX (SP),IY |
10050 | EX (SP),IY |
10044 | LD (IY+CHLPEP),A |
10051 | LD (IY+CHLPEP),A |
10045 | LD (IY+CHLPEL),E |
10052 | LD (IY+CHLPEL),E |
Line 10073... | Line 10080... | ||
10073 | LD (IY+CHPERL),E |
10080 | LD (IY+CHPERL),E |
10074 | LD (IY+CHPERH),D |
10081 | LD (IY+CHPERH),D |
10075 | LD (IY+CHFRQL),L |
10082 | LD (IY+CHFRQL),L |
10076 | LD (IY+CHFRQH),H |
10083 | LD (IY+CHFRQH),H |
10077 | LD (IY+CHPRIOR),C |
10084 | LD (IY+CHPRIOR),C |
10078 | LD (IY+CHFADVH),0XFF |
10085 | LD (IY+CHFADVH),0xFF |
10079 | LD (IY+CHFADVL),0XFF |
10086 | LD (IY+CHFADVL),0xFF |
10080 | LD (IY+CHDELVH),0XFF |
10087 | LD (IY+CHDELVH),0xFF |
10081 | LD (IY+CHDELVL),0XFF |
10088 | LD (IY+CHDELVL),0xFF |
10082 | LD (IY+CHEPAN),0X20 |
10089 | LD (IY+CHEPAN),0x20 |
10083 | LD (IY+CHEVOL),0X40 |
10090 | LD (IY+CHEVOL),0x40 |
10084 | LD (IY+CHCNTL),0X00 |
10091 | LD (IY+CHCNTL),0x00 |
10085 | LD (IY+CHCNTH),0X00 |
10092 | LD (IY+CHCNTH),0x00 |
10086 | LD (IY+CHVOL),0X40 |
10093 | LD (IY+CHVOL),0x40 |
10087 | LD (IY+CHPAN),0X80 |
10094 | LD (IY+CHPAN),0x80 |
10088 | SET 7,(IY+CHSTAT) |
10095 | SET 7,(IY+CHSTAT) |
10089 | SET 0,(IY+CHSTAT) |
10096 | SET 0,(IY+CHSTAT) |
10090 | PUSH IY |
10097 | PUSH IY |
10091 | POP HL |
10098 | POP HL |
10092 | POP IY |
10099 | POP IY |
10093 | LD A,0XFF |
10100 | LD A,0xFF |
10094 | LD (PROCESS),A |
10101 | LD (PROCESS),A |
10095 | RET |
10102 | RET |
10096 | 10103 | ||
10097 | ;INCLUDE "MEM_H.a80" |
10104 | ;INCLUDE "MEM_H.a80" |
10098 | ;MEMORY MOVEMENT MODULE - HIGH PART |
10105 | ;MEMORY MOVEMENT MODULE - HIGH PART |
Line 10154... | Line 10161... | ||
10154 | EXX |
10161 | EXX |
10155 | LD A,L |
10162 | LD A,L |
10156 | EXX |
10163 | EXX |
10157 | CP E |
10164 | CP E |
10158 | JP C,MOVH |
10165 | JP C,MOVH |
10159 | MOVL DB 0XCB,0X32;SLI D |
10166 | MOVL DB 0xCB,0x32;SLI D |
10160 | RL B |
10167 | RL B |
10161 | RRC D |
10168 | RRC D |
10162 | PUSH DE |
10169 | PUSH DE |
10163 | EXX |
10170 | EXX |
10164 | EX DE,HL |
10171 | EX DE,HL |
10165 | POP HL |
10172 | POP HL |
10166 | DB 0XCB,0X32;SLI D |
10173 | DB 0xCB,0x32;SLI D |
10167 | RL B |
10174 | RL B |
10168 | RRC D |
10175 | RRC D |
10169 | LD A,B |
10176 | LD A,B |
10170 | LD BC,0X0000 |
10177 | LD BC,0x0000 |
10171 | EXX |
10178 | EXX |
10172 | LD C,A |
10179 | LD C,A |
10173 | ML1 EXX |
10180 | ML1 EXX |
10174 | LD A,H |
10181 | LD A,H |
10175 | CP D |
10182 | CP D |
Line 10258... | Line 10265... | ||
10258 | INC C |
10265 | INC C |
10259 | MLC POP DE |
10266 | MLC POP DE |
10260 | OR A |
10267 | OR A |
10261 | SBC HL,DE |
10268 | SBC HL,DE |
10262 | LD A,IXL |
10269 | LD A,IXL |
10263 | SBC A,0X00 |
10270 | SBC A,0x00 |
10264 | LD IXL,A |
10271 | LD IXL,A |
10265 | OR L |
10272 | OR L |
10266 | OR H |
10273 | OR H |
10267 | JP NZ,ML1 |
10274 | JP NZ,ML1 |
10268 | POP BC |
10275 | POP BC |
Line 10276... | Line 10283... | ||
10276 | MH0 DEC HL |
10283 | MH0 DEC HL |
10277 | EX DE,HL |
10284 | EX DE,HL |
10278 | ADD HL,DE |
10285 | ADD HL,DE |
10279 | LD A,B |
10286 | LD A,B |
10280 | ADC A,IXL |
10287 | ADC A,IXL |
10281 | DB 0XCB,0X34;SLI H |
10288 | DB 0xCB,0x34;SLI H |
10282 | RLA |
10289 | RLA |
10283 | RRC H |
10290 | RRC H |
10284 | LD B,A |
10291 | LD B,A |
10285 | PUSH HL |
10292 | PUSH HL |
10286 | PUSH DE |
10293 | PUSH DE |
Line 10293... | Line 10300... | ||
10293 | MHF EX DE,HL |
10300 | MHF EX DE,HL |
10294 | EXX |
10301 | EXX |
10295 | POP DE |
10302 | POP DE |
10296 | ADD HL,DE |
10303 | ADD HL,DE |
10297 | ADC A,B |
10304 | ADC A,B |
10298 | DB 0XCB,0X34;SLI H |
10305 | DB 0xCB,0x34;SLI H |
10299 | RLA |
10306 | RLA |
10300 | RRC H |
10307 | RRC H |
10301 | EX DE,HL |
10308 | EX DE,HL |
10302 | POP HL |
10309 | POP HL |
10303 | EXX |
10310 | EXX |
Line 10356... | Line 10363... | ||
10356 | EXX |
10363 | EXX |
10357 | LD E,B |
10364 | LD E,B |
10358 | LD A,(DE) |
10365 | LD A,(DE) |
10359 | LD (SDPAGE),A |
10366 | LD (SDPAGE),A |
10360 | EXX |
10367 | EXX |
10361 | LD DE,BUFFER+0X00FF |
10368 | LD DE,BUFFER+0x00FF |
10362 | LD A,C |
10369 | LD A,C |
10363 | CALL MLDD |
10370 | CALL MLDD |
10364 | POP DE |
10371 | POP DE |
10365 | POP BC |
10372 | POP BC |
10366 | PUSH HL |
10373 | PUSH HL |
10367 | EXX |
10374 | EXX |
10368 | LD E,C |
10375 | LD E,C |
10369 | LD A,(DE) |
10376 | LD A,(DE) |
10370 | LD (SDPAGE),A |
10377 | LD (SDPAGE),A |
10371 | EXX |
10378 | EXX |
10372 | LD HL,BUFFER+0X00FF |
10379 | LD HL,BUFFER+0x00FF |
10373 | LD A,C |
10380 | LD A,C |
10374 | CALL MLDD |
10381 | CALL MLDD |
10375 | POP HL |
10382 | POP HL |
10376 | JP PE,MHA |
10383 | JP PE,MHA |
10377 | MHD BIT 7,H |
10384 | MHD BIT 7,H |
Line 10385... | Line 10392... | ||
10385 | DEC C |
10392 | DEC C |
10386 | MHC POP DE |
10393 | MHC POP DE |
10387 | OR A |
10394 | OR A |
10388 | SBC HL,DE |
10395 | SBC HL,DE |
10389 | LD A,IXL |
10396 | LD A,IXL |
10390 | SBC A,0X00 |
10397 | SBC A,0x00 |
10391 | LD IXL,A |
10398 | LD IXL,A |
10392 | OR L |
10399 | OR L |
10393 | OR H |
10400 | OR H |
10394 | JP NZ,MH1 |
10401 | JP NZ,MH1 |
10395 | POP BC |
10402 | POP BC |
Line 10402... | Line 10409... | ||
10402 | ; BC - BLOCK LENGTH |
10409 | ; BC - BLOCK LENGTH |
10403 | ;USES : TYPE 2 REGS,RAMPG,CPAGE,SYSTEM |
10410 | ;USES : TYPE 2 REGS,RAMPG,CPAGE,SYSTEM |
10404 | ;EFFECT : MOVES MEMORY BLOCK FROM HIGH MEMORY TO LOW |
10411 | ;EFFECT : MOVES MEMORY BLOCK FROM HIGH MEMORY TO LOW |
10405 | ; SWITCH TO PAGE 0 |
10412 | ; SWITCH TO PAGE 0 |
10406 | 10413 | ||
10407 | LDMEM DB 0XCB,0X34;SLI H |
10414 | LDMEM DB 0xCB,0x34;SLI H |
10408 | RLA |
10415 | RLA |
10409 | RRC H |
10416 | RRC H |
10410 | LM1 LD IXL,A |
10417 | LM1 LD IXL,A |
10411 | PUSH HL |
10418 | PUSH HL |
10412 | LD L,A |
10419 | LD L,A |
Line 10441... | Line 10448... | ||
10441 | ; BC - BLOCK LENGTH |
10448 | ; BC - BLOCK LENGTH |
10442 | ;USES : TYPE 2 REGS,RAMPG,CPAGE,SYSTEM |
10449 | ;USES : TYPE 2 REGS,RAMPG,CPAGE,SYSTEM |
10443 | ;EFFECT : MOVES MEMORY BLOCK FROM LOW MEMORY TO HIGH |
10450 | ;EFFECT : MOVES MEMORY BLOCK FROM LOW MEMORY TO HIGH |
10444 | ; SWITCH TO PAGE 0 |
10451 | ; SWITCH TO PAGE 0 |
10445 | 10452 | ||
10446 | SVMEM DB 0XCB,0X32;SLI D |
10453 | SVMEM DB 0xCB,0x32;SLI D |
10447 | RLA |
10454 | RLA |
10448 | RRC D |
10455 | RRC D |
10449 | SM1 LD IXL,A |
10456 | SM1 LD IXL,A |
10450 | PUSH HL |
10457 | PUSH HL |
10451 | LD L,A |
10458 | LD L,A |
Line 10479... | Line 10486... | ||
10479 | 10486 | ||
10480 | ;INCLUDE "ENGINE_L.a80" |
10487 | ;INCLUDE "ENGINE_L.a80" |
10481 | ENGINE LD HL,(QTFREE) |
10488 | ENGINE LD HL,(QTFREE) |
10482 | LD H,HIGH (QTMAP) |
10489 | LD H,HIGH (QTMAP) |
10483 | LD A,L |
10490 | LD A,L |
10484 | AND 0X1C |
10491 | AND 0x1C |
10485 | LD L,A |
10492 | LD L,A |
10486 | LD (QTFREE),HL |
10493 | LD (QTFREE),HL |
10487 | LD A,(HL) |
10494 | LD A,(HL) |
10488 | OR A |
10495 | OR A |
10489 | JP NZ,ENG_FUL |
10496 | JP NZ,ENG_FUL |
10490 | LD A,(CHANSFX+0X000) |
10497 | LD A,(CHANSFX+0x000) |
10491 | RLCA |
10498 | RLCA |
10492 | RR C |
10499 | RR C |
10493 | LD A,(CHANSFX+0X040) |
10500 | LD A,(CHANSFX+0x040) |
10494 | RLCA |
10501 | RLCA |
10495 | RR C |
10502 | RR C |
10496 | LD A,(CHANSFX+0X080) |
10503 | LD A,(CHANSFX+0x080) |
10497 | RLCA |
10504 | RLCA |
10498 | RR C |
10505 | RR C |
10499 | LD A,(CHANSFX+0X0C0) |
10506 | LD A,(CHANSFX+0x0C0) |
10500 | RLCA |
10507 | RLCA |
10501 | RR C |
10508 | RR C |
10502 | LD A,(CHANSFX+0X100) |
10509 | LD A,(CHANSFX+0x100) |
10503 | RLCA |
10510 | RLCA |
10504 | RR C |
10511 | RR C |
10505 | LD A,(CHANSFX+0X140) |
10512 | LD A,(CHANSFX+0x140) |
10506 | RLCA |
10513 | RLCA |
10507 | RR C |
10514 | RR C |
10508 | LD A,(CHANSFX+0X180) |
10515 | LD A,(CHANSFX+0x180) |
10509 | RLCA |
10516 | RLCA |
10510 | RR C |
10517 | RR C |
10511 | LD A,(CHANSFX+0X1C0) |
10518 | LD A,(CHANSFX+0x1C0) |
10512 | RLCA |
10519 | RLCA |
10513 | RR C |
10520 | RR C |
10514 | LD A,(GSCHNS) |
10521 | LD A,(GSCHNS) |
10515 | AND C |
10522 | AND C |
10516 | LD C,A |
10523 | LD C,A |
Line 10532... | Line 10539... | ||
10532 | OR A |
10539 | OR A |
10533 | JR NZ,ENG_03 |
10540 | JR NZ,ENG_03 |
10534 | LD A,(MODULE) |
10541 | LD A,(MODULE) |
10535 | OR A |
10542 | OR A |
10536 | JR Z,ENG_03 |
10543 | JR Z,ENG_03 |
10537 | LD A,0X01 |
10544 | LD A,0x01 |
10538 | LD (SGENOFF),A |
10545 | LD (SGENOFF),A |
10539 | LD A,(TCKLEFT+1) |
10546 | LD A,(TCKLEFT+1) |
10540 | CP 0X02 |
10547 | CP 0x02 |
10541 | JR NC,ENG_05 |
10548 | JR NC,ENG_05 |
10542 | OR A |
10549 | OR A |
10543 | LD A,(TCKLEFT) |
10550 | LD A,(TCKLEFT) |
10544 | JR Z,ENG_04 |
10551 | JR Z,ENG_04 |
10545 | SUB 0X80 |
10552 | SUB 0x80 |
10546 | JR NC,ENG_05 |
10553 | JR NC,ENG_05 |
10547 | JP ENG_04 |
10554 | JP ENG_04 |
10548 | 10555 | ||
10549 | ENG_03 LD A,0X01 |
10556 | ENG_03 LD A,0x01 |
10550 | LD (SGENOFF),A |
10557 | LD (SGENOFF),A |
10551 | LD A,(FXTICK+1) |
10558 | LD A,(FXTICK+1) |
10552 | CP 0X02 |
10559 | CP 0x02 |
10553 | JR NC,ENG_05 |
10560 | JR NC,ENG_05 |
10554 | OR A |
10561 | OR A |
10555 | LD A,(FXTICK) |
10562 | LD A,(FXTICK) |
10556 | JR Z,ENG_04 |
10563 | JR Z,ENG_04 |
10557 | SUB 0X80 |
10564 | SUB 0x80 |
10558 | JR NC,ENG_05 |
10565 | JR NC,ENG_05 |
10559 | ENG_04 NEG |
10566 | ENG_04 NEG |
10560 | LD (SGENOFF),A |
10567 | LD (SGENOFF),A |
10561 | ENG_05 XOR A |
10568 | ENG_05 XOR A |
10562 | LD (CHANNEL),A |
10569 | LD (CHANNEL),A |
Line 10579... | Line 10586... | ||
10579 | OUT (MPAG),A |
10586 | OUT (MPAG),A |
10580 | RET |
10587 | RET |
10581 | 10588 | ||
10582 | ENG_80 LD A,(SGENOFF) |
10589 | ENG_80 LD A,(SGENOFF) |
10583 | LD E,A |
10590 | LD E,A |
10584 | LD D,0X00 |
10591 | LD D,0x00 |
10585 | LD HL,(FXTICK) |
10592 | LD HL,(FXTICK) |
10586 | OR A |
10593 | OR A |
10587 | SBC HL,DE |
10594 | SBC HL,DE |
10588 | JR Z,ENG_81 |
10595 | JR Z,ENG_81 |
10589 | JR C,ENG_81 |
10596 | JR C,ENG_81 |
Line 10616... | Line 10623... | ||
10616 | FXCHK_ LD HL,FXJP2 |
10623 | FXCHK_ LD HL,FXJP2 |
10617 | JP FXCHK__ |
10624 | JP FXCHK__ |
10618 | 10625 | ||
10619 | FXCHK LD HL,FXJP1 |
10626 | FXCHK LD HL,FXJP1 |
10620 | FXCHK__ LD A,(IY+CHCOM) |
10627 | FXCHK__ LD A,(IY+CHCOM) |
10621 | AND 0X1F |
10628 | AND 0x1F |
10622 | ADD A,A |
10629 | ADD A,A |
10623 | ADD A,L |
10630 | ADD A,L |
10624 | LD L,A |
10631 | LD L,A |
10625 | LD A,(HL) |
10632 | LD A,(HL) |
10626 | INC L |
10633 | INC L |
Line 10635... | Line 10642... | ||
10635 | FXE LD HL,FXEJP1 |
10642 | FXE LD HL,FXEJP1 |
10636 | FXE__ RRCA |
10643 | FXE__ RRCA |
10637 | RRCA |
10644 | RRCA |
10638 | RRCA |
10645 | RRCA |
10639 | RRCA |
10646 | RRCA |
10640 | AND 0X0F |
10647 | AND 0x0F |
10641 | ADD A,A |
10648 | ADD A,A |
10642 | ADD A,L |
10649 | ADD A,L |
10643 | LD L,A |
10650 | LD L,A |
10644 | LD A,(HL) |
10651 | LD A,(HL) |
10645 | INC L |
10652 | INC L |
10646 | LD H,(HL) |
10653 | LD H,(HL) |
10647 | LD L,A |
10654 | LD L,A |
10648 | LD A,(IY+CHPARM) |
10655 | LD A,(IY+CHPARM) |
10649 | AND 0X0F |
10656 | AND 0x0F |
10650 | JP (HL) |
10657 | JP (HL) |
10651 | 10658 | ||
10652 | FXRET RET |
10659 | FXRET RET |
10653 | 10660 | ||
10654 | FXNOP LD L,(IY+CHPERL) |
10661 | FXNOP LD L,(IY+CHPERL) |
Line 10658... | Line 10665... | ||
10658 | LD (IY+CHFRQH),H |
10665 | LD (IY+CHFRQH),H |
10659 | RET |
10666 | RET |
10660 | 10667 | ||
10661 | ;---patched |
10668 | ;---patched |
10662 | EFXCNV LD A,H |
10669 | EFXCNV LD A,H |
10663 | CP 0X04 |
10670 | CP 0x04 |
10664 | JR NC,EFXCNV1 |
10671 | JR NC,EFXCNV1 |
10665 | XOR A |
10672 | XOR A |
10666 | LD (CPAGE),A |
10673 | LD (CPAGE),A |
10667 | OUT (MPAG),A |
10674 | OUT (MPAG),A |
10668 | ADD HL,HL |
10675 | ADD HL,HL |
10669 | LD A,H |
10676 | LD A,H |
10670 | ADD A,0XF8 |
10677 | ADD A,0xF8 |
10671 | LD H,A |
10678 | LD H,A |
10672 | LD A,(HL) |
10679 | LD A,(HL) |
10673 | INC HL |
10680 | INC HL |
10674 | LD H,(HL) |
10681 | LD H,(HL) |
10675 | LD L,A |
10682 | LD L,A |
Line 10760... | Line 10767... | ||
10760 | LD A,(MTCOUNT) |
10767 | LD A,(MTCOUNT) |
10761 | LD HL,ARPTAB |
10768 | LD HL,ARPTAB |
10762 | ADD A,L |
10769 | ADD A,L |
10763 | LD L,A |
10770 | LD L,A |
10764 | LD A,H |
10771 | LD A,H |
10765 | ADC A,0X00 |
10772 | ADC A,0x00 |
10766 | LD H,A |
10773 | LD H,A |
10767 | LD A,(HL) |
10774 | LD A,(HL) |
10768 | OR A |
10775 | OR A |
10769 | JP Z,FXNOP |
10776 | JP Z,FXNOP |
10770 | PUSH AF |
10777 | PUSH AF |
Line 10777... | Line 10784... | ||
10777 | JR NZ,FX0_2 |
10784 | JR NZ,FX0_2 |
10778 | RRCA |
10785 | RRCA |
10779 | RRCA |
10786 | RRCA |
10780 | RRCA |
10787 | RRCA |
10781 | RRCA |
10788 | RRCA |
10782 | FX0_2 AND 0X0F |
10789 | FX0_2 AND 0x0F |
10783 | ADD A,E |
10790 | ADD A,E |
10784 | LD E,A |
10791 | LD E,A |
10785 | CP 96 |
10792 | CP 96 |
10786 | RET NC |
10793 | RET NC |
10787 | CALL GETFRQ |
10794 | CALL GETFRQ |
10788 | LD (IY+CHFRQL),L |
10795 | LD (IY+CHFRQL),L |
10789 | LD (IY+CHFRQH),H |
10796 | LD (IY+CHFRQH),H |
10790 | RET |
10797 | RET |
10791 | 10798 | ||
10792 | FX1 LD E,A |
10799 | FX1 LD E,A |
10793 | LD D,0X00 |
10800 | LD D,0x00 |
10794 | LD L,(IY+CHPERL) |
10801 | LD L,(IY+CHPERL) |
10795 | LD H,(IY+CHPERH) |
10802 | LD H,(IY+CHPERH) |
10796 | OR A |
10803 | OR A |
10797 | SBC HL,DE |
10804 | SBC HL,DE |
10798 | JR NC,FX1_2 |
10805 | JR NC,FX1_2 |
10799 | LD HL,0X0000 |
10806 | LD HL,0x0000 |
10800 | FX1_2 PUSH HL |
10807 | FX1_2 PUSH HL |
10801 | LD HL,113 |
10808 | LD HL,113 |
10802 | FX1_8 POP DE |
10809 | FX1_8 POP DE |
10803 | OR A |
10810 | OR A |
10804 | SBC HL,DE |
10811 | SBC HL,DE |
Line 10820... | Line 10827... | ||
10820 | LD (IY+CHNOTE),A |
10827 | LD (IY+CHNOTE),A |
10821 | RES 7,(IY+CHFLAGS) |
10828 | RES 7,(IY+CHFLAGS) |
10822 | RET |
10829 | RET |
10823 | 10830 | ||
10824 | FX2 LD E,A |
10831 | FX2 LD E,A |
10825 | LD D,0X00 |
10832 | LD D,0x00 |
10826 | LD L,(IY+CHPERL) |
10833 | LD L,(IY+CHPERL) |
10827 | LD H,(IY+CHPERH) |
10834 | LD H,(IY+CHPERH) |
10828 | ADD HL,DE |
10835 | ADD HL,DE |
10829 | JR NC,FX2_2 |
10836 | JR NC,FX2_2 |
10830 | LD HL,0XFFFF |
10837 | LD HL,0xFFFF |
10831 | FX2_2 PUSH HL |
10838 | FX2_2 PUSH HL |
10832 | LD HL,856 |
10839 | LD HL,856 |
10833 | FX2_8 POP DE |
10840 | FX2_8 POP DE |
10834 | OR A |
10841 | OR A |
10835 | SBC HL,DE |
10842 | SBC HL,DE |
Line 10866... | Line 10873... | ||
10866 | OR A |
10873 | OR A |
10867 | SBC HL,DE |
10874 | SBC HL,DE |
10868 | JR Z,FX3_9 |
10875 | JR Z,FX3_9 |
10869 | ADD HL,DE |
10876 | ADD HL,DE |
10870 | LD C,(IY+CHPORT) |
10877 | LD C,(IY+CHPORT) |
10871 | LD B,0X00 |
10878 | LD B,0x00 |
10872 | JR C,FX3_5 |
10879 | JR C,FX3_5 |
10873 | SBC HL,BC |
10880 | SBC HL,BC |
10874 | JR C,FX3_9 |
10881 | JR C,FX3_9 |
10875 | SBC HL,DE |
10882 | SBC HL,DE |
10876 | JR C,FX3_9 |
10883 | JR C,FX3_9 |
Line 10901... | Line 10908... | ||
10901 | LD (IY+CHPERH),H |
10908 | LD (IY+CHPERH),H |
10902 | CALL GETFRQ |
10909 | CALL GETFRQ |
10903 | LD (IY+CHFRQL),L |
10910 | LD (IY+CHFRQL),L |
10904 | LD (IY+CHFRQH),H |
10911 | LD (IY+CHFRQH),H |
10905 | RES 7,(IY+CHFLAGS) |
10912 | RES 7,(IY+CHFLAGS) |
10906 | LD (IY+CHCOM),0X00 |
10913 | LD (IY+CHCOM),0x00 |
10907 | LD (IY+CHPARM),0X00 |
10914 | LD (IY+CHPARM),0x00 |
10908 | LD (IY+CHWNT),0X7F |
10915 | LD (IY+CHWNT),0x7F |
10909 | RET |
10916 | RET |
10910 | 10917 | ||
10911 | FX3_ RET |
10918 | FX3_ RET |
10912 | 10919 | ||
10913 | FX4 PUSH DE |
10920 | FX4 PUSH DE |
10914 | PUSH BC |
10921 | PUSH BC |
10915 | OR A |
10922 | OR A |
10916 | JR Z,FX4_3 |
10923 | JR Z,FX4_3 |
10917 | LD L,A |
10924 | LD L,A |
10918 | LD H,(IY+CHVIBCM) |
10925 | LD H,(IY+CHVIBCM) |
10919 | AND 0X0F |
10926 | AND 0x0F |
10920 | JR Z,FX4_1 |
10927 | JR Z,FX4_1 |
10921 | XOR H |
10928 | XOR H |
10922 | AND 0X0F |
10929 | AND 0x0F |
10923 | XOR H |
10930 | XOR H |
10924 | LD H,A |
10931 | LD H,A |
10925 | FX4_1 LD A,L |
10932 | FX4_1 LD A,L |
10926 | AND 0XF0 |
10933 | AND 0xF0 |
10927 | JR Z,FX4_2 |
10934 | JR Z,FX4_2 |
10928 | XOR H |
10935 | XOR H |
10929 | AND 0XF0 |
10936 | AND 0xF0 |
10930 | XOR H |
10937 | XOR H |
10931 | LD H,A |
10938 | LD H,A |
10932 | FX4_2 LD (IY+CHVIBCM),H |
10939 | FX4_2 LD (IY+CHVIBCM),H |
10933 | FX4_3 LD D,(IY+CHVIBPS) |
10940 | FX4_3 LD D,(IY+CHVIBPS) |
10934 | LD A,D |
10941 | LD A,D |
10935 | AND 0X03 |
10942 | AND 0x03 |
10936 | JR Z,FX4_5 |
10943 | JR Z,FX4_5 |
10937 | CP 0X03 |
10944 | CP 0x03 |
10938 | JR NZ,FX4_A |
10945 | JR NZ,FX4_A |
10939 | LD A,R |
10946 | LD A,R |
10940 | AND 0X03 |
10947 | AND 0x03 |
10941 | JR Z,FX4_5 |
10948 | JR Z,FX4_5 |
10942 | CP 0X03 |
10949 | CP 0x03 |
10943 | JR Z,FX4_5 |
10950 | JR Z,FX4_5 |
10944 | FX4_A DEC A |
10951 | FX4_A DEC A |
10945 | JR Z,FX4_4 |
10952 | JR Z,FX4_4 |
10946 | LD E,0XFF |
10953 | LD E,0xFF |
10947 | JP FX4_6 |
10954 | JP FX4_6 |
10948 | 10955 | ||
10949 | FX4_4 LD A,D |
10956 | FX4_4 LD A,D |
10950 | AND 0X7C |
10957 | AND 0x7C |
10951 | RLCA |
10958 | RLCA |
10952 | LD E,A |
10959 | LD E,A |
10953 | BIT 7,D |
10960 | BIT 7,D |
10954 | JR NZ,FX4_6 |
10961 | JR NZ,FX4_6 |
10955 | LD A,0XF8 |
10962 | LD A,0xF8 |
10956 | SUB E |
10963 | SUB E |
10957 | LD E,A |
10964 | LD E,A |
10958 | JP FX4_6 |
10965 | JP FX4_6 |
10959 | 10966 | ||
10960 | FX4_5 LD A,D |
10967 | FX4_5 LD A,D |
10961 | RRCA |
10968 | RRCA |
10962 | RRCA |
10969 | RRCA |
10963 | AND 0X1F |
10970 | AND 0x1F |
10964 | LD HL,VIBTB |
10971 | LD HL,VIBTB |
10965 | ADD A,L |
10972 | ADD A,L |
10966 | LD L,A |
10973 | LD L,A |
10967 | LD E,(HL) |
10974 | LD E,(HL) |
10968 | FX4_6 LD A,(IY+CHVIBCM) |
10975 | FX4_6 LD A,(IY+CHVIBCM) |
10969 | AND 0X0F |
10976 | AND 0x0F |
10970 | JR Z,FX4_9 |
10977 | JR Z,FX4_9 |
10971 | LD B,A |
10978 | LD B,A |
10972 | LD HL,0X0000 |
10979 | LD HL,0x0000 |
10973 | LD D,H |
10980 | LD D,H |
10974 | FX4_7 ADD HL,DE |
10981 | FX4_7 ADD HL,DE |
10975 | DJNZ FX4_7 |
10982 | DJNZ FX4_7 |
10976 | LD B,0X07 |
10983 | LD B,0x07 |
10977 | LD A,L |
10984 | LD A,L |
10978 | FX4_8 SRL H |
10985 | FX4_8 SRL H |
10979 | RRA |
10986 | RRA |
10980 | DJNZ FX4_8 |
10987 | DJNZ FX4_8 |
10981 | ADC A,D |
10988 | ADC A,D |
10982 | LD L,A |
10989 | LD L,A |
10983 | LD H,0X00 |
10990 | LD H,0x00 |
10984 | BIT 7,(IY+CHVIBPS) |
10991 | BIT 7,(IY+CHVIBPS) |
10985 | JR Z,FX4_9 |
10992 | JR Z,FX4_9 |
10986 | DEC H |
10993 | DEC H |
10987 | CPL |
10994 | CPL |
10988 | LD L,A |
10995 | LD L,A |
Line 10990... | Line 10997... | ||
10990 | FX4_9 LD E,(IY+CHPERL) |
10997 | FX4_9 LD E,(IY+CHPERL) |
10991 | LD D,(IY+CHPERH) |
10998 | LD D,(IY+CHPERH) |
10992 | ADD HL,DE |
10999 | ADD HL,DE |
10993 | CALL EFXNOP2 |
11000 | CALL EFXNOP2 |
10994 | LD A,(IY+CHVIBCM) |
11001 | LD A,(IY+CHVIBCM) |
10995 | AND 0XF0 |
11002 | AND 0xF0 |
10996 | RRCA |
11003 | RRCA |
10997 | RRCA |
11004 | RRCA |
10998 | ADD A,(IY+CHVIBPS) |
11005 | ADD A,(IY+CHVIBPS) |
10999 | LD (IY+CHVIBPS),A |
11006 | LD (IY+CHVIBPS),A |
11000 | POP BC |
11007 | POP BC |
Line 11013... | Line 11020... | ||
11013 | PUSH BC |
11020 | PUSH BC |
11014 | OR A |
11021 | OR A |
11015 | JR Z,FX7_3 |
11022 | JR Z,FX7_3 |
11016 | LD L,A |
11023 | LD L,A |
11017 | LD H,(IY+CHTRMCM) |
11024 | LD H,(IY+CHTRMCM) |
11018 | AND 0X0F |
11025 | AND 0x0F |
11019 | JR Z,FX7_1 |
11026 | JR Z,FX7_1 |
11020 | XOR H |
11027 | XOR H |
11021 | AND 0X0F |
11028 | AND 0x0F |
11022 | XOR H |
11029 | XOR H |
11023 | LD H,A |
11030 | LD H,A |
11024 | FX7_1 LD A,L |
11031 | FX7_1 LD A,L |
11025 | AND 0XF0 |
11032 | AND 0xF0 |
11026 | JR Z,FX7_2 |
11033 | JR Z,FX7_2 |
11027 | XOR H |
11034 | XOR H |
11028 | AND 0XF0 |
11035 | AND 0xF0 |
11029 | XOR H |
11036 | XOR H |
11030 | LD H,A |
11037 | LD H,A |
11031 | FX7_2 LD (IY+CHTRMCM),H |
11038 | FX7_2 LD (IY+CHTRMCM),H |
11032 | FX7_3 LD D,(IY+CHTRMPS) |
11039 | FX7_3 LD D,(IY+CHTRMPS) |
11033 | LD A,D |
11040 | LD A,D |
11034 | AND 0X03 |
11041 | AND 0x03 |
11035 | JR Z,FX7_5 |
11042 | JR Z,FX7_5 |
11036 | CP 0X03 |
11043 | CP 0x03 |
11037 | JR NZ,FX7_A |
11044 | JR NZ,FX7_A |
11038 | LD A,R |
11045 | LD A,R |
11039 | AND 0X03 |
11046 | AND 0x03 |
11040 | JR Z,FX7_5 |
11047 | JR Z,FX7_5 |
11041 | CP 0X03 |
11048 | CP 0x03 |
11042 | JR Z,FX7_5 |
11049 | JR Z,FX7_5 |
11043 | FX7_A DEC A |
11050 | FX7_A DEC A |
11044 | JR Z,FX7_4 |
11051 | JR Z,FX7_4 |
11045 | LD E,0XFF |
11052 | LD E,0xFF |
11046 | JP FX7_6 |
11053 | JP FX7_6 |
11047 | 11054 | ||
11048 | FX7_4 LD A,D |
11055 | FX7_4 LD A,D |
11049 | AND 0X7C |
11056 | AND 0x7C |
11050 | RLCA |
11057 | RLCA |
11051 | LD E,A |
11058 | LD E,A |
11052 | BIT 7,D |
11059 | BIT 7,D |
11053 | JR NZ,FX7_6 |
11060 | JR NZ,FX7_6 |
11054 | LD A,0XF8 |
11061 | LD A,0xF8 |
11055 | SUB E |
11062 | SUB E |
11056 | LD E,A |
11063 | LD E,A |
11057 | JP FX7_6 |
11064 | JP FX7_6 |
11058 | 11065 | ||
11059 | FX7_5 LD A,D |
11066 | FX7_5 LD A,D |
11060 | RRCA |
11067 | RRCA |
11061 | RRCA |
11068 | RRCA |
11062 | AND 0X1F |
11069 | AND 0x1F |
11063 | LD HL,VIBTB |
11070 | LD HL,VIBTB |
11064 | ADD A,L |
11071 | ADD A,L |
11065 | LD L,A |
11072 | LD L,A |
11066 | LD E,(HL) |
11073 | LD E,(HL) |
11067 | FX7_6 LD A,(IY+CHTRMCM) |
11074 | FX7_6 LD A,(IY+CHTRMCM) |
11068 | AND 0X0F |
11075 | AND 0x0F |
11069 | JR Z,FX7_9 |
11076 | JR Z,FX7_9 |
11070 | LD B,A |
11077 | LD B,A |
11071 | LD HL,0X0000 |
11078 | LD HL,0x0000 |
11072 | LD D,H |
11079 | LD D,H |
11073 | FX7_7 ADD HL,DE |
11080 | FX7_7 ADD HL,DE |
11074 | DJNZ FX7_7 |
11081 | DJNZ FX7_7 |
11075 | LD B,0X06 |
11082 | LD B,0x06 |
11076 | LD A,L |
11083 | LD A,L |
11077 | FX7_8 SRL H |
11084 | FX7_8 SRL H |
11078 | RRA |
11085 | RRA |
11079 | DJNZ FX7_8 |
11086 | DJNZ FX7_8 |
11080 | ADC A,D |
11087 | ADC A,D |
Line 11086... | Line 11093... | ||
11086 | JR NC,FX7_B |
11093 | JR NC,FX7_B |
11087 | XOR A |
11094 | XOR A |
11088 | JP FX7_B |
11095 | JP FX7_B |
11089 | 11096 | ||
11090 | FX7_9 ADD A,(IY+CHVOL) |
11097 | FX7_9 ADD A,(IY+CHVOL) |
11091 | CP 0X40 |
11098 | CP 0x40 |
11092 | JR C,FX7_B |
11099 | JR C,FX7_B |
11093 | LD A,0X40 |
11100 | LD A,0x40 |
11094 | FX7_B CP (IY+CHMVOL) |
11101 | FX7_B CP (IY+CHMVOL) |
11095 | LD (IY+CHMVOL),A |
11102 | LD (IY+CHMVOL),A |
11096 | JR Z,FX7_C |
11103 | JR Z,FX7_C |
11097 | SET 0,(IY+CHSTAT) |
11104 | SET 0,(IY+CHSTAT) |
11098 | FX7_C LD A,(IY+CHTRMCM) |
11105 | FX7_C LD A,(IY+CHTRMCM) |
11099 | AND 0XF0 |
11106 | AND 0xF0 |
11100 | RRCA |
11107 | RRCA |
11101 | RRCA |
11108 | RRCA |
11102 | ADD A,(IY+CHTRMPS) |
11109 | ADD A,(IY+CHTRMPS) |
11103 | LD (IY+CHTRMPS),A |
11110 | LD (IY+CHTRMPS),A |
11104 | POP BC |
11111 | POP BC |
Line 11109... | Line 11116... | ||
11109 | RET |
11116 | RET |
11110 | 11117 | ||
11111 | JR Z,FX9_1 |
11118 | JR Z,FX9_1 |
11112 | LD (IY+CHOFFST),A |
11119 | LD (IY+CHOFFST),A |
11113 | FX9_1 LD H,(IY+CHOFFST) |
11120 | FX9_1 LD H,(IY+CHOFFST) |
11114 | LD L,0X00 |
11121 | LD L,0x00 |
11115 | FXA OR A |
11122 | FXA OR A |
11116 | RET Z |
11123 | RET Z |
11117 | LD L,A |
11124 | LD L,A |
11118 | LD A,(IY+CHVOL) |
11125 | LD A,(IY+CHVOL) |
11119 | LD H,A |
11126 | LD H,A |
11120 | LD A,L |
11127 | LD A,L |
11121 | AND 0XF0 |
11128 | AND 0xF0 |
11122 | JR Z,FXA_1 |
11129 | JR Z,FXA_1 |
11123 | RRCA |
11130 | RRCA |
11124 | RRCA |
11131 | RRCA |
11125 | RRCA |
11132 | RRCA |
11126 | RRCA |
11133 | RRCA |
11127 | ADD A,H |
11134 | ADD A,H |
11128 | CP 0X40 |
11135 | CP 0x40 |
11129 | JR C,FXA_2 |
11136 | JR C,FXA_2 |
11130 | LD A,0X40 |
11137 | LD A,0x40 |
11131 | JP FXA_2 |
11138 | JP FXA_2 |
11132 | 11139 | ||
11133 | FXA_1 LD A,H |
11140 | FXA_1 LD A,H |
11134 | SUB L |
11141 | SUB L |
11135 | JR NC,FXA_2 |
11142 | JR NC,FXA_2 |
11136 | LD A,0X00 |
11143 | LD A,0x00 |
11137 | LD (IY+CHCOM),A |
11144 | LD (IY+CHCOM),A |
11138 | LD (IY+CHPARM),A |
11145 | LD (IY+CHPARM),A |
11139 | FXA_2 LD (IY+CHVOL),A |
11146 | FXA_2 LD (IY+CHVOL),A |
11140 | CP (IY+CHMVOL) |
11147 | CP (IY+CHMVOL) |
11141 | LD (IY+CHMVOL),A |
11148 | LD (IY+CHMVOL),A |
Line 11150... | Line 11157... | ||
11150 | LD (MTBRKPS),A |
11157 | LD (MTBRKPS),A |
11151 | INC A |
11158 | INC A |
11152 | LD (MTJMPFL),A |
11159 | LD (MTJMPFL),A |
11153 | RET |
11160 | RET |
11154 | 11161 | ||
11155 | FXC CP 0X40 |
11162 | FXC CP 0x40 |
11156 | JR C,FXC_1 |
11163 | JR C,FXC_1 |
11157 | LD A,0X40 |
11164 | LD A,0x40 |
11158 | FXC_1 LD (IY+CHVOL),A |
11165 | FXC_1 LD (IY+CHVOL),A |
11159 | CP (IY+CHMVOL) |
11166 | CP (IY+CHMVOL) |
11160 | LD (IY+CHMVOL),A |
11167 | LD (IY+CHMVOL),A |
11161 | RET Z |
11168 | RET Z |
11162 | SET 0,(IY+CHSTAT) |
11169 | SET 0,(IY+CHSTAT) |
11163 | RET |
11170 | RET |
11164 | 11171 | ||
11165 | FXD LD L,A |
11172 | FXD LD L,A |
11166 | AND 0XF0 |
11173 | AND 0xF0 |
11167 | RRCA |
11174 | RRCA |
11168 | LD H,A |
11175 | LD H,A |
11169 | RRCA |
11176 | RRCA |
11170 | RRCA |
11177 | RRCA |
11171 | ADD A,H |
11178 | ADD A,H |
11172 | LD H,A |
11179 | LD H,A |
11173 | LD A,L |
11180 | LD A,L |
11174 | AND 0X0F |
11181 | AND 0x0F |
11175 | ADD A,H |
11182 | ADD A,H |
11176 | CP 0X40 |
11183 | CP 0x40 |
11177 | JR C,FXD_1 |
11184 | JR C,FXD_1 |
11178 | XOR A |
11185 | XOR A |
11179 | FXD_1 LD (MTBRKPS),A |
11186 | FXD_1 LD (MTBRKPS),A |
11180 | LD A,0X01 |
11187 | LD A,0x01 |
11181 | LD (MTJMPFL),A |
11188 | LD (MTJMPFL),A |
11182 | RET |
11189 | RET |
11183 | 11190 | ||
11184 | FXF OR A |
11191 | FXF OR A |
11185 | JR Z,FXF_5 |
11192 | JR Z,FXF_5 |
11186 | CP 0X20 |
11193 | CP 0x20 |
11187 | JR NC,FXF_1 |
11194 | JR NC,FXF_1 |
11188 | FXF_0 LD (MTSPEED),A |
11195 | FXF_0 LD (MTSPEED),A |
11189 | RET |
11196 | RET |
11190 | 11197 | ||
11191 | FXF_1 LD (MTBPM),A |
11198 | FXF_1 LD (MTBPM),A |
11192 | SUB 0X20 |
11199 | SUB 0x20 |
11193 | LD HL,BPMTAB |
11200 | LD HL,BPMTAB |
11194 | ADD A,A |
11201 | ADD A,A |
11195 | JR NC,FXF_3 |
11202 | JR NC,FXF_3 |
11196 | INC H |
11203 | INC H |
11197 | FXF_3 ADD A,L |
11204 | FXF_3 ADD A,L |
Line 11212... | Line 11219... | ||
11212 | JP Patch2x |
11219 | JP Patch2x |
11213 | ;--- |
11220 | ;--- |
11214 | SET 7,(HL) |
11221 | SET 7,(HL) |
11215 | RET |
11222 | RET |
11216 | 11223 | ||
11217 | FXE0 AND 0X01 |
11224 | FXE0 AND 0x01 |
11218 | LD (MTFILTR),A |
11225 | LD (MTFILTR),A |
11219 | RET |
11226 | RET |
11220 | 11227 | ||
11221 | FXE3 RES 2,(IY+CHFLAGS) |
11228 | FXE3 RES 2,(IY+CHFLAGS) |
11222 | OR A |
11229 | OR A |
Line 11226... | Line 11233... | ||
11226 | 11233 | ||
11227 | FXE4 RES 1,(IY+CHFLAGS) |
11234 | FXE4 RES 1,(IY+CHFLAGS) |
11228 | BIT 2,A |
11235 | BIT 2,A |
11229 | JR Z,FXE4_2 |
11236 | JR Z,FXE4_2 |
11230 | SET 1,(IY+CHFLAGS) |
11237 | SET 1,(IY+CHFLAGS) |
11231 | FXE4_2 AND 0X03 |
11238 | FXE4_2 AND 0x03 |
11232 | LD L,A |
11239 | LD L,A |
11233 | LD A,(IY+CHVIBPS) |
11240 | LD A,(IY+CHVIBPS) |
11234 | AND 0XFC |
11241 | AND 0xFC |
11235 | OR L |
11242 | OR L |
11236 | LD (IY+CHVIBPS),A |
11243 | LD (IY+CHVIBPS),A |
11237 | RET |
11244 | RET |
11238 | 11245 | ||
11239 | FXE5 ADD A,A |
11246 | FXE5 ADD A,A |
Line 11247... | Line 11254... | ||
11247 | JR Z,FXE6_2 |
11254 | JR Z,FXE6_2 |
11248 | DEC (IY+CHLPCNT) |
11255 | DEC (IY+CHLPCNT) |
11249 | RET Z |
11256 | RET Z |
11250 | FXE6_1 LD A,(IY+CHPATPS) |
11257 | FXE6_1 LD A,(IY+CHPATPS) |
11251 | LD (MTBRKPS),A |
11258 | LD (MTBRKPS),A |
11252 | LD A,0X01 |
11259 | LD A,0x01 |
11253 | LD (MTBRKFL),A |
11260 | LD (MTBRKFL),A |
11254 | RET |
11261 | RET |
11255 | 11262 | ||
11256 | FXE6_2 LD (IY+CHLPCNT),A |
11263 | FXE6_2 LD (IY+CHLPCNT),A |
11257 | JP FXE6_1 |
11264 | JP FXE6_1 |
Line 11262... | Line 11269... | ||
11262 | 11269 | ||
11263 | FXE7 RES 0,(IY+CHFLAGS) |
11270 | FXE7 RES 0,(IY+CHFLAGS) |
11264 | BIT 2,A |
11271 | BIT 2,A |
11265 | JR Z,FXE7_2 |
11272 | JR Z,FXE7_2 |
11266 | SET 0,(IY+CHFLAGS) |
11273 | SET 0,(IY+CHFLAGS) |
11267 | FXE7_2 AND 0X03 |
11274 | FXE7_2 AND 0x03 |
11268 | LD L,A |
11275 | LD L,A |
11269 | LD A,(IY+CHTRMPS) |
11276 | LD A,(IY+CHTRMPS) |
11270 | AND 0XFC |
11277 | AND 0xFC |
11271 | OR L |
11278 | OR L |
11272 | LD (IY+CHTRMPS),A |
11279 | LD (IY+CHTRMPS),A |
11273 | RET |
11280 | RET |
11274 | 11281 | ||
11275 | FXE9 OR A |
11282 | FXE9 OR A |
Line 11317... | Line 11324... | ||
11317 | ;INCLUDE "VOL_H.a80" |
11324 | ;INCLUDE "VOL_H.a80" |
11318 | 11325 | ||
11319 | ;VOLUME CALCULATION FOR MODULES AND FX |
11326 | ;VOLUME CALCULATION FOR MODULES AND FX |
11320 | 11327 | ||
11321 | CALCVOL RES 0,(IY+CHSTAT) |
11328 | CALCVOL RES 0,(IY+CHSTAT) |
11322 | LD DE,0XFC00 |
11329 | LD DE,0xFC00 |
11323 | LD A,(IY+CHMVOL) |
11330 | LD A,(IY+CHMVOL) |
11324 | AND 0X7F |
11331 | AND 0x7F |
11325 | JP Z,CALCV_Z |
11332 | JP Z,CALCV_Z |
11326 | CP 0X40 |
11333 | CP 0x40 |
11327 | CALL C,MUL64 |
11334 | CALL C,MUL64 |
11328 | LD A,(IY+CHEVOL) |
11335 | LD A,(IY+CHEVOL) |
11329 | OR A |
11336 | OR A |
11330 | JP Z,CALCV_Z |
11337 | JP Z,CALCV_Z |
11331 | CP 0X40 |
11338 | CP 0x40 |
11332 | CALL C,MUL64 |
11339 | CALL C,MUL64 |
11333 | LD A,(IY+CHFADVH) |
11340 | LD A,(IY+CHFADVH) |
11334 | SRL A |
11341 | SRL A |
11335 | SRL A |
11342 | SRL A |
11336 | ADC A,0X00 |
11343 | ADC A,0x00 |
11337 | JP Z,CALCV_Z |
11344 | JP Z,CALCV_Z |
11338 | CP 0X40 |
11345 | CP 0x40 |
11339 | CALL C,MUL64 |
11346 | CALL C,MUL64 |
11340 | BIT 6,(IY+CHSTAT) |
11347 | BIT 6,(IY+CHSTAT) |
11341 | JP Z,CALCV_N |
11348 | JP Z,CALCV_N |
11342 | LD A,(FXVOL) |
11349 | LD A,(FXVOL) |
11343 | OR A |
11350 | OR A |
11344 | JP Z,CALCV_Z |
11351 | JP Z,CALCV_Z |
11345 | CP 0X40 |
11352 | CP 0x40 |
11346 | CALL C,MUL64 |
11353 | CALL C,MUL64 |
11347 | LD A,(FXMVOL) |
11354 | LD A,(FXMVOL) |
11348 | OR A |
11355 | OR A |
11349 | JP Z,CALCV_Z |
11356 | JP Z,CALCV_Z |
11350 | CP 0X40 |
11357 | CP 0x40 |
11351 | CALL C,MUL64 |
11358 | CALL C,MUL64 |
11352 | JP CALCV_X |
11359 | JP CALCV_X |
11353 | 11360 | ||
11354 | CALCV_N LD A,(MTVOL) |
11361 | CALCV_N LD A,(MTVOL) |
11355 | OR A |
11362 | OR A |
11356 | JP Z,CALCV_Z |
11363 | JP Z,CALCV_Z |
11357 | CP 0X40 |
11364 | CP 0x40 |
11358 | CALL C,MUL64 |
11365 | CALL C,MUL64 |
11359 | LD A,(MODVOL) |
11366 | LD A,(MODVOL) |
11360 | OR A |
11367 | OR A |
11361 | JP Z,CALCV_Z |
11368 | JP Z,CALCV_Z |
11362 | CP 0X40 |
11369 | CP 0x40 |
11363 | CALL C,MUL64 |
11370 | CALL C,MUL64 |
11364 | CALCV_X LD C,(IY+CHPAN) |
11371 | CALCV_X LD C,(IY+CHPAN) |
11365 | LD A,(IY+CHEPAN) |
11372 | LD A,(IY+CHEPAN) |
11366 | SUB 0X20 |
11373 | SUB 0x20 |
11367 | JR Z,CALCV_V |
11374 | JR Z,CALCV_V |
11368 | JR NC,CALCV_I |
11375 | JR NC,CALCV_I |
11369 | NEG |
11376 | NEG |
11370 | CALCV_I CP 0X20 |
11377 | CALCV_I CP 0x20 |
11371 | JR C,CALCV_U |
11378 | JR C,CALCV_U |
11372 | LD H,(IY+CHPAN) |
11379 | LD H,(IY+CHPAN) |
11373 | LD A,H |
11380 | LD A,H |
11374 | OR A |
11381 | OR A |
11375 | JP P,CALCV_Q |
11382 | JP P,CALCV_Q |
Line 11395... | Line 11402... | ||
11395 | JR C,CALCV_R |
11402 | JR C,CALCV_R |
11396 | JR NZ,CALCV_E |
11403 | JR NZ,CALCV_E |
11397 | SRL A |
11404 | SRL A |
11398 | LD H,A |
11405 | LD H,A |
11399 | CALCV_Q LD A,(IY+CHEPAN) |
11406 | CALCV_Q LD A,(IY+CHEPAN) |
11400 | CP 0X20 |
11407 | CP 0x20 |
11401 | JR C,CALCV_P |
11408 | JR C,CALCV_P |
11402 | LD A,C |
11409 | LD A,C |
11403 | ADD A,H |
11410 | ADD A,H |
11404 | LD C,A |
11411 | LD C,A |
11405 | JR NC,CALCV_V |
11412 | JR NC,CALCV_V |
11406 | LD C,0XFF |
11413 | LD C,0xFF |
11407 | JP CALCV_W |
11414 | JP CALCV_W |
11408 | CALCV_P LD A,C |
11415 | CALCV_P LD A,C |
11409 | SUB H |
11416 | SUB H |
11410 | LD C,0X00 |
11417 | LD C,0x00 |
11411 | JR C,CALCV_O |
11418 | JR C,CALCV_O |
11412 | LD C,A |
11419 | LD C,A |
11413 | CALCV_V LD A,C |
11420 | CALCV_V LD A,C |
11414 | CP 0X80 |
11421 | CP 0x80 |
11415 | JR Z,CALCV_Y |
11422 | JR Z,CALCV_Y |
11416 | OR A |
11423 | OR A |
11417 | JP M,CALCV_W |
11424 | JP M,CALCV_W |
11418 | CALCV_O BIT 5,(IY+CHSTAT) |
11425 | CALCV_O BIT 5,(IY+CHSTAT) |
11419 | JR Z,CALCV_Y |
11426 | JR Z,CALCV_Y |
Line 11427... | Line 11434... | ||
11427 | SRL A |
11434 | SRL A |
11428 | CALL MUL64 |
11435 | CALL MUL64 |
11429 | CALCV_Y LD A,D |
11436 | CALCV_Y LD A,D |
11430 | SRL A |
11437 | SRL A |
11431 | SRL A |
11438 | SRL A |
11432 | ADC A,0X00 |
11439 | ADC A,0x00 |
11433 | CALCV_Z LD C,A |
11440 | CALCV_Z LD C,A |
11434 | LD HL,VOLRQTB |
11441 | LD HL,VOLRQTB |
11435 | LD A,L |
11442 | LD A,L |
11436 | ADD A,(IY+CHRDN) |
11443 | ADD A,(IY+CHRDN) |
11437 | LD L,A |
11444 | LD L,A |
11438 | LD (HL),C |
11445 | LD (HL),C |
11439 | RET |
11446 | RET |
11440 | 11447 | ||
11441 | MUL64 LD B,A |
11448 | MUL64 LD B,A |
11442 | LD HL,0X0000 |
11449 | LD HL,0x0000 |
11443 | AND 0X0F |
11450 | AND 0x0F |
11444 | JR Z,MUL64_F |
11451 | JR Z,MUL64_F |
11445 | SLA B |
11452 | SLA B |
11446 | SLA B |
11453 | SLA B |
11447 | JP MUL64_E |
11454 | JP MUL64_E |
11448 | 11455 | ||
Line 11458... | Line 11465... | ||
11458 | MUL64_F LD A,B |
11465 | MUL64_F LD A,B |
11459 | OR A |
11466 | OR A |
11460 | JR Z,MUL64_S |
11467 | JR Z,MUL64_S |
11461 | SRL D |
11468 | SRL D |
11462 | RR E |
11469 | RR E |
11463 | CP 0X20 |
11470 | CP 0x20 |
11464 | RET Z |
11471 | RET Z |
11465 | LD L,E |
11472 | LD L,E |
11466 | LD H,D |
11473 | LD H,D |
11467 | SRL D |
11474 | SRL D |
11468 | RR E |
11475 | RR E |
11469 | CP 0X10 |
11476 | CP 0x10 |
11470 | RET Z |
11477 | RET Z |
11471 | ADD HL,DE |
11478 | ADD HL,DE |
11472 | MUL64_S EX DE,HL |
11479 | MUL64_S EX DE,HL |
11473 | RET |
11480 | RET |
11474 | 11481 | ||
Line 11476... | Line 11483... | ||
11476 | 11483 | ||
11477 | TCOM IN A,(ZXSTAT) |
11484 | TCOM IN A,(ZXSTAT) |
11478 | RRCA |
11485 | RRCA |
11479 | JR NC,TCOM |
11486 | JR NC,TCOM |
11480 | TCOM_ IN A,(ZXCMD) |
11487 | TCOM_ IN A,(ZXCMD) |
11481 | CP 0X20 |
11488 | CP 0x20 |
11482 | JP NC,COMINT2 |
11489 | JP NC,COMINT2 |
11483 | CP 0X01 |
11490 | CP 0x01 |
11484 | JR Z,TCOM |
11491 | JR Z,TCOM |
11485 | OUT (CLRCBIT),A |
11492 | OUT (CLRCBIT),A |
11486 | LD HL,TCOMTB |
11493 | LD HL,TCOMTB |
11487 | ADD A,A |
11494 | ADD A,A |
11488 | ADD A,L |
11495 | ADD A,L |
Line 11492... | Line 11499... | ||
11492 | LD H,(HL) |
11499 | LD H,(HL) |
11493 | LD L,A |
11500 | LD L,A |
11494 | JP (HL) |
11501 | JP (HL) |
11495 | 11502 | ||
11496 | TCOM2 LD HL,DAC0 |
11503 | TCOM2 LD HL,DAC0 |
11497 | LD A,0X3F |
11504 | LD A,0x3F |
11498 | OUT (VOL1),A |
11505 | OUT (VOL1),A |
11499 | TCOMDAC LD (HL),0 |
11506 | TCOMDAC LD (HL),0 |
11500 | LD A,(HL) |
11507 | LD A,(HL) |
11501 | LD IY,TCONT1 |
11508 | LD IY,TCONT1 |
11502 | JP TWAIT |
11509 | JP TWAIT |
11503 | 11510 | ||
11504 | TCONT1 LD (HL),0XFF |
11511 | TCONT1 LD (HL),0xFF |
11505 | LD A,(HL) |
11512 | LD A,(HL) |
11506 | LD IY,TCOMDAC |
11513 | LD IY,TCOMDAC |
11507 | JP TWAIT |
11514 | JP TWAIT |
11508 | 11515 | ||
11509 | TCOM3 LD HL,DAC1 |
11516 | TCOM3 LD HL,DAC1 |
11510 | LD A,0X3F |
11517 | LD A,0x3F |
11511 | OUT (VOL2),A |
11518 | OUT (VOL2),A |
11512 | JR TCOMDAC |
11519 | JR TCOMDAC |
11513 | 11520 | ||
11514 | TCOM4 LD HL,DAC2 |
11521 | TCOM4 LD HL,DAC2 |
11515 | LD A,0X3F |
11522 | LD A,0x3F |
11516 | OUT (VOL3),A |
11523 | OUT (VOL3),A |
11517 | JR TCOMDAC |
11524 | JR TCOMDAC |
11518 | 11525 | ||
11519 | TCOM5 LD HL,DAC3 |
11526 | TCOM5 LD HL,DAC3 |
11520 | LD A,0X3F |
11527 | LD A,0x3F |
11521 | OUT (VOL4),A |
11528 | OUT (VOL4),A |
11522 | JR TCOMDAC |
11529 | JR TCOMDAC |
11523 | 11530 | ||
11524 | TCOM6 XOR A |
11531 | TCOM6 XOR A |
11525 | OUT (ZXDATWR),A |
11532 | OUT (ZXDATWR),A |
11526 | LD IY,TCONT2 |
11533 | LD IY,TCONT2 |
11527 | JP TWAIT |
11534 | JP TWAIT |
11528 | 11535 | ||
11529 | TCONT2 LD A,0XFF |
11536 | TCONT2 LD A,0xFF |
11530 | OUT (ZXDATWR),A |
11537 | OUT (ZXDATWR),A |
11531 | LD IY,TCOM6 |
11538 | LD IY,TCOM6 |
11532 | JP TWAIT |
11539 | JP TWAIT |
11533 | 11540 | ||
11534 | TCOM7 LD C,VOL1 |
11541 | TCOM7 LD C,VOL1 |
11535 | LD HL,DAC0 |
11542 | LD HL,DAC0 |
11536 | LD (HL),0XFF |
11543 | LD (HL),0xFF |
11537 | LD A,(HL) |
11544 | LD A,(HL) |
11538 | TCOMVOL LD A,0X00 |
11545 | TCOMVOL LD A,0x00 |
11539 | OUT (C),A |
11546 | OUT (C),A |
11540 | LD IY,TCONT3 |
11547 | LD IY,TCONT3 |
11541 | JP TWAIT |
11548 | JP TWAIT |
11542 | 11549 | ||
11543 | TCONT3 LD A,0XFF |
11550 | TCONT3 LD A,0xFF |
11544 | OUT (C),A |
11551 | OUT (C),A |
11545 | LD IY,TCOMVOL |
11552 | LD IY,TCOMVOL |
11546 | JP TWAIT |
11553 | JP TWAIT |
11547 | 11554 | ||
11548 | TCOM8 LD C,VOL2 |
11555 | TCOM8 LD C,VOL2 |
11549 | LD HL,DAC1 |
11556 | LD HL,DAC1 |
11550 | LD (HL),0XFF |
11557 | LD (HL),0xFF |
11551 | LD A,(HL) |
11558 | LD A,(HL) |
11552 | JR TCOMVOL |
11559 | JR TCOMVOL |
11553 | 11560 | ||
11554 | TCOM9 LD C,VOL3 |
11561 | TCOM9 LD C,VOL3 |
11555 | LD HL,DAC2 |
11562 | LD HL,DAC2 |
11556 | LD (HL),0XFF |
11563 | LD (HL),0xFF |
11557 | LD A,(HL) |
11564 | LD A,(HL) |
11558 | JR TCOMVOL |
11565 | JR TCOMVOL |
11559 | 11566 | ||
11560 | TCOMA LD C,VOL4 |
11567 | TCOMA LD C,VOL4 |
11561 | LD HL,DAC3 |
11568 | LD HL,DAC3 |
11562 | LD (HL),0XFF |
11569 | LD (HL),0xFF |
11563 | LD A,(HL) |
11570 | LD A,(HL) |
11564 | JR TCOMVOL |
11571 | JR TCOMVOL |
11565 | 11572 | ||
11566 | TCOMB LD HL,DAC0 |
11573 | TCOMB LD HL,DAC0 |
11567 | LD C,VOL1 |
11574 | LD C,VOL1 |
11568 | TCOMTST LD B,0X3F |
11575 | TCOMTST LD B,0x3F |
11569 | TCOMT4 OUT (C),B |
11576 | TCOMT4 OUT (C),B |
11570 | LD D,114 |
11577 | LD D,114 |
11571 | TCOMT5 LD (HL),0X00 |
11578 | TCOMT5 LD (HL),0x00 |
11572 | LD A,(HL) |
11579 | LD A,(HL) |
11573 | XOR A |
11580 | XOR A |
11574 | TCOMT6 DEC A |
11581 | TCOMT6 DEC A |
11575 | JR NZ,TCOMT6 |
11582 | JR NZ,TCOMT6 |
11576 | LD (HL),0XFF |
11583 | LD (HL),0xFF |
11577 | LD A,(HL) |
11584 | LD A,(HL) |
11578 | XOR A |
11585 | XOR A |
11579 | TCOMT7 DEC A |
11586 | TCOMT7 DEC A |
11580 | JR NZ,TCOMT7 |
11587 | JR NZ,TCOMT7 |
11581 | DEC D |
11588 | DEC D |
Line 11597... | Line 11604... | ||
11597 | 11604 | ||
11598 | TCOME LD HL,DAC3 |
11605 | TCOME LD HL,DAC3 |
11599 | LD C,VOL4 |
11606 | LD C,VOL4 |
11600 | JP TCOMTST |
11607 | JP TCOMTST |
11601 | 11608 | ||
11602 | TCOMF LD A,0X3F |
11609 | TCOMF LD A,0x3F |
11603 | OUT (VOL1),A |
11610 | OUT (VOL1),A |
11604 | OUT (VOL2),A |
11611 | OUT (VOL2),A |
11605 | OUT (VOL3),A |
11612 | OUT (VOL3),A |
11606 | OUT (VOL4),A |
11613 | OUT (VOL4),A |
11607 | LD B,0X00 |
11614 | LD B,0x00 |
11608 | LD L,B |
11615 | LD L,B |
11609 | TCONT8 LD H,HIGH (DAC0) |
11616 | TCONT8 LD H,HIGH (DAC0) |
11610 | LD (HL),B |
11617 | LD (HL),B |
11611 | LD A,(HL) |
11618 | LD A,(HL) |
11612 | INC H |
11619 | INC H |
Line 11630... | Line 11637... | ||
11630 | 11637 | ||
11631 | TCOM11 IN A,(ZXDATRD) |
11638 | TCOM11 IN A,(ZXDATRD) |
11632 | JP TCOM_ |
11639 | JP TCOM_ |
11633 | 11640 | ||
11634 | TCOM12 LD HL,DAC0 |
11641 | TCOM12 LD HL,DAC0 |
11635 | TCONT9 LD A,0X3F |
11642 | TCONT9 LD A,0x3F |
11636 | OUT (VOL1),A |
11643 | OUT (VOL1),A |
11637 | OUT (VOL2),A |
11644 | OUT (VOL2),A |
11638 | OUT (VOL3),A |
11645 | OUT (VOL3),A |
11639 | OUT (VOL4),A |
11646 | OUT (VOL4),A |
11640 | TCONTA IN A,(ZXDATRD) |
11647 | TCONTA IN A,(ZXDATRD) |
11641 | LD (HL),A |
11648 | LD (HL),A |
11642 | LD A,(HL) |
11649 | LD A,(HL) |
11643 | TCONTB DJNZ TCONTB |
11650 | TCONTB DJNZ TCONTB |
11644 | LD (HL),0X00 |
11651 | LD (HL),0x00 |
11645 | LD A,(HL) |
11652 | LD A,(HL) |
11646 | TCONTC DJNZ TCONTC |
11653 | TCONTC DJNZ TCONTC |
11647 | IN A,(ZXSTAT) |
11654 | IN A,(ZXSTAT) |
11648 | RRCA |
11655 | RRCA |
11649 | JP C,TCOM_ |
11656 | JP C,TCOM_ |
Line 11656... | Line 11663... | ||
11656 | JR TCONT9 |
11663 | JR TCONT9 |
11657 | 11664 | ||
11658 | TCOM15 LD HL,DAC3 |
11665 | TCOM15 LD HL,DAC3 |
11659 | JR TCONT9 |
11666 | JR TCONT9 |
11660 | 11667 | ||
11661 | TWAIT LD B,0X04 |
11668 | TWAIT LD B,0x04 |
11662 | TWAIT1 LD DE,38686 |
11669 | TWAIT1 LD DE,38686 |
11663 | TWAIT2 IN A,(ZXSTAT) |
11670 | TWAIT2 IN A,(ZXSTAT) |
11664 | RRCA |
11671 | RRCA |
11665 | JP C,TCOM_ |
11672 | JP C,TCOM_ |
11666 | DEC DE |
11673 | DEC DE |
Line 11672... | Line 11679... | ||
11672 | 11679 | ||
11673 | ;INCLUDE "TABLES_H.a80" |
11680 | ;INCLUDE "TABLES_H.a80" |
11674 | 11681 | ||
11675 | align 256 |
11682 | align 256 |
11676 | 11683 | ||
11677 | VIBTB db 0X00,0X18,0X31,0X4A,0X61,0X78,0X8D,0XA1 |
11684 | VIBTB db 0x00,0x18,0x31,0x4A,0x61,0x78,0x8D,0xA1 |
11678 | db 0XB4,0XC5,0XD4,0XE0,0XEB,0XF4,0XFA,0XFD |
11685 | db 0xB4,0xC5,0xD4,0xE0,0xEB,0xF4,0xFA,0xFD |
11679 | db 0XFF,0XFD,0XFA,0XF4,0XEB,0XE0,0XD4,0XC5 |
11686 | db 0xFF,0xFD,0xFA,0xF4,0xEB,0xE0,0xD4,0xC5 |
11680 | db 0XB4,0XA1,0X8D,0X78,0X61,0X4A,0X31,0X18 |
11687 | db 0xB4,0xA1,0x8D,0x78,0x61,0x4A,0x31,0x18 |
11681 | 11688 | ||
11682 | COMTABH DB LOW (COM20),LOW (COM21),LOW (COM22),LOW (COM23),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X20 |
11689 | COMTABH DB LOW (COM20),LOW (COM21),LOW (COM22),LOW (COM23),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x20 |
11683 | DB LOW (COMHZ),LOW (COMHZ),LOW (COM2A),LOW (COM2B),LOW (COM2C),LOW (COM2D),LOW (COM2E),LOW (COM2F) ;0X28 |
11690 | DB LOW (COMHZ),LOW (COMHZ),LOW (COM2A),LOW (COM2B),LOW (COM2C),LOW (COM2D),LOW (COM2E),LOW (COM2F) ;0x28 |
11684 | DB LOW (COM30),LOW (COM31),LOW (COM32),LOW (COM33),LOW (COM34),LOW (COM35),LOW (COM36),LOW (COM37) ;0X30 |
11691 | DB LOW (COM30),LOW (COM31),LOW (COM32),LOW (COM33),LOW (COM34),LOW (COM35),LOW (COM36),LOW (COM37) ;0x30 |
11685 | DB LOW (COM38),LOW (COM39),LOW (COM3A),LOW (COM3B),LOW (COM3C),LOW (COM3D),LOW (COM3E),LOW (COM3F) ;0X38 |
11692 | DB LOW (COM38),LOW (COM39),LOW (COM3A),LOW (COM3B),LOW (COM3C),LOW (COM3D),LOW (COM3E),LOW (COM3F) ;0x38 |
11686 | DB LOW (COM40),LOW (COM41),LOW (COM42),LOW (COMHZ),LOW (COMHZ),LOW (COM45),LOW (COM46),LOW (COM47) ;0X40 |
11693 | DB LOW (COM40),LOW (COM41),LOW (COM42),LOW (COMHZ),LOW (COMHZ),LOW (COM45),LOW (COM46),LOW (COM47) ;0x40 |
11687 | DB LOW (COM48),LOW (COM49),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X48 |
11694 | DB LOW (COM48),LOW (COM49),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x48 |
11688 | DB LOW (COM50),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X50 |
11695 | DB LOW (COM50),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x50 |
11689 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X58 |
11696 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x58 |
11690 | DB LOW (COM60),LOW (COM61),LOW (COM62),LOW (COM63),LOW (COM64),LOW (COM65),LOW (COM66),LOW (COM67) ;0X60 |
11697 | DB LOW (COM60),LOW (COM61),LOW (COM62),LOW (COM63),LOW (COM64),LOW (COM65),LOW (COM66),LOW (COM67) ;0x60 |
11691 | DB LOW (COM68),LOW (COM69),LOW (COM6A),LOW (COM6B),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X68 patched |
11698 | DB LOW (COM68),LOW (COM69),LOW (COM6A),LOW (COM6B),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x68 patched |
11692 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X70 |
11699 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x70 |
11693 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0X78 |
11700 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0x78 |
11694 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0X80 |
11701 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0x80 |
11695 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0X88 |
11702 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0x88 |
11696 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0X90 |
11703 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0x90 |
11697 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0X98 |
11704 | DB LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80),LOW (COM80) ;0x98 |
11698 | DB LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0) ;0XA0 |
11705 | DB LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0) ;0xA0 |
11699 | DB LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0) ;0XA8 |
11706 | DB LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0),LOW (COMA0) ;0xA8 |
11700 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XB0 |
11707 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xB0 |
11701 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XB8 |
11708 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xB8 |
11702 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XC0 |
11709 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xC0 |
11703 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XC8 |
11710 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xC8 |
11704 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XD0 |
11711 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xD0 |
11705 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XD8 |
11712 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xD8 |
11706 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XE0 |
11713 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xE0 |
11707 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0XE8 |
11714 | DB LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ),LOW (COMHZ) ;0xE8 |
11708 | 11715 | ||
11709 | DUPL 0X10,0 |
11716 | DUPL 0x10,0 |
11710 | DUPL 0X20,0 |
11717 | DUPL 0x20,0 |
11711 | 11718 | ||
11712 | DB HIGH (COM20),HIGH (COM21),HIGH (COM22),HIGH (COM23),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X20 |
11719 | DB HIGH (COM20),HIGH (COM21),HIGH (COM22),HIGH (COM23),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x20 |
11713 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COM2A),HIGH (COM2B),HIGH (COM2C),HIGH (COM2D),HIGH (COM2E),HIGH (COM2F) ;0X28 |
11720 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COM2A),HIGH (COM2B),HIGH (COM2C),HIGH (COM2D),HIGH (COM2E),HIGH (COM2F) ;0x28 |
11714 | DB HIGH (COM30),HIGH (COM31),HIGH (COM32),HIGH (COM33),HIGH (COM34),HIGH (COM35),HIGH (COM36),HIGH (COM37) ;0X30 |
11721 | DB HIGH (COM30),HIGH (COM31),HIGH (COM32),HIGH (COM33),HIGH (COM34),HIGH (COM35),HIGH (COM36),HIGH (COM37) ;0x30 |
11715 | DB HIGH (COM38),HIGH (COM39),HIGH (COM3A),HIGH (COM3B),HIGH (COM3C),HIGH (COM3D),HIGH (COM3E),HIGH (COM3F) ;0X38 |
11722 | DB HIGH (COM38),HIGH (COM39),HIGH (COM3A),HIGH (COM3B),HIGH (COM3C),HIGH (COM3D),HIGH (COM3E),HIGH (COM3F) ;0x38 |
11716 | DB HIGH (COM40),HIGH (COM41),HIGH (COM42),HIGH (COMHZ),HIGH (COMHZ),HIGH (COM45),HIGH (COM46),HIGH (COM47) ;0X40 |
11723 | DB HIGH (COM40),HIGH (COM41),HIGH (COM42),HIGH (COMHZ),HIGH (COMHZ),HIGH (COM45),HIGH (COM46),HIGH (COM47) ;0x40 |
11717 | DB HIGH (COM48),HIGH (COM49),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X48 |
11724 | DB HIGH (COM48),HIGH (COM49),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x48 |
11718 | DB HIGH (COM50),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X50 |
11725 | DB HIGH (COM50),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x50 |
11719 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X58 |
11726 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x58 |
11720 | DB HIGH (COM60),HIGH (COM61),HIGH (COM62),HIGH (COM63),HIGH (COM64),HIGH (COM65),HIGH (COM66),HIGH (COM67) ;0X60 |
11727 | DB HIGH (COM60),HIGH (COM61),HIGH (COM62),HIGH (COM63),HIGH (COM64),HIGH (COM65),HIGH (COM66),HIGH (COM67) ;0x60 |
11721 | DB HIGH (COM68),HIGH (COM69),HIGH (COM6A),HIGH (COM6B),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X68 patched |
11728 | DB HIGH (COM68),HIGH (COM69),HIGH (COM6A),HIGH (COM6B),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x68 patched |
11722 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X70 |
11729 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x70 |
11723 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0X78 |
11730 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0x78 |
11724 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0X80 |
11731 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0x80 |
11725 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0X88 |
11732 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0x88 |
11726 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0X90 |
11733 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0x90 |
11727 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0X98 |
11734 | DB HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80),HIGH (COM80) ;0x98 |
11728 | DB HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0) ;0XA0 |
11735 | DB HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0) ;0xA0 |
11729 | DB HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0) ;0XA8 |
11736 | DB HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0),HIGH (COMA0) ;0xA8 |
11730 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XB0 |
11737 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xB0 |
11731 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XB8 |
11738 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xB8 |
11732 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XC0 |
11739 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xC0 |
11733 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XC8 |
11740 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xC8 |
11734 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XD0 |
11741 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xD0 |
11735 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XD8 |
11742 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xD8 |
11736 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XE0 |
11743 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xE0 |
11737 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0XE8 |
11744 | DB HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ),HIGH (COMHZ) ;0xE8 |
11738 | 11745 | ||
11739 | DUPL 0X10,0 |
11746 | DUPL 0x10,0 |
11740 | 11747 | ||
11741 | FXJP1 DW FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP |
11748 | FXJP1 DW FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP,FXNOP |
11742 | DW FXNOP,FXNOP,FXNOP,FXB ,FXC ,FXD ,FXE ,FXF |
11749 | DW FXNOP,FXNOP,FXNOP,FXB ,FXC ,FXD ,FXE ,FXF |
11743 | 11750 | ||
11744 | DW FXRET,FXRET,FXRET,FXRET,FXRET,FXRET,FXRET,FXRET |
11751 | DW FXRET,FXRET,FXRET,FXRET,FXRET,FXRET,FXRET,FXRET |
Line 11776... | Line 11783... | ||
11776 | INC A |
11783 | INC A |
11777 | RET NZ |
11784 | RET NZ |
11778 | NOTEFND LD HL,AMFRQTB |
11785 | NOTEFND LD HL,AMFRQTB |
11779 | LD A,(IY+CHFINE) |
11786 | LD A,(IY+CHFINE) |
11780 | RRA |
11787 | RRA |
11781 | AND 0X0F |
11788 | AND 0x0F |
11782 | JR Z,NOTEFN1 |
11789 | JR Z,NOTEFN1 |
11783 | LD C,A |
11790 | LD C,A |
11784 | ADD A,A |
11791 | ADD A,A |
11785 | ADD A,C |
11792 | ADD A,C |
11786 | ADD A,A |
11793 | ADD A,A |
Line 11798... | Line 11805... | ||
11798 | LD D,(IY+CHPERH) |
11805 | LD D,(IY+CHPERH) |
11799 | CALL DIH |
11806 | CALL DIH |
11800 | LD E,A |
11807 | LD E,A |
11801 | RET |
11808 | RET |
11802 | 11809 | ||
11803 | DIH LD BC,0X005F |
11810 | DIH LD BC,0x005F |
11804 | PUSH HL |
11811 | PUSH HL |
11805 | INC HL |
11812 | INC HL |
11806 | LD A,(HL) |
11813 | LD A,(HL) |
11807 | DEC HL |
11814 | DEC HL |
11808 | CP D |
11815 | CP D |
Line 11822... | Line 11829... | ||
11822 | LD D,(HL) |
11829 | LD D,(HL) |
11823 | POP HL |
11830 | POP HL |
11824 | XOR A |
11831 | XOR A |
11825 | RET |
11832 | RET |
11826 | 11833 | ||
11827 | DIH2 LD A,0XBF |
11834 | DIH2 LD A,0xBF |
11828 | ADD A,L |
11835 | ADD A,L |
11829 | LD L,A |
11836 | LD L,A |
11830 | LD A,H |
11837 | LD A,H |
11831 | ADC A,B |
11838 | ADC A,B |
11832 | LD H,A |
11839 | LD H,A |
Line 11854... | Line 11861... | ||
11854 | 11861 | ||
11855 | DIH3 POP HL |
11862 | DIH3 POP HL |
11856 | DIHLP PUSH HL |
11863 | DIHLP PUSH HL |
11857 | LD A,B |
11864 | LD A,B |
11858 | ADD A,C |
11865 | ADD A,C |
11859 | AND 0XFE |
11866 | AND 0xFE |
11860 | ADD A,L |
11867 | ADD A,L |
11861 | LD L,A |
11868 | LD L,A |
11862 | LD A,H |
11869 | LD A,H |
11863 | ADC A,0X00 |
11870 | ADC A,0x00 |
11864 | LD H,A |
11871 | LD H,A |
11865 | INC HL |
11872 | INC HL |
11866 | LD A,(HL) |
11873 | LD A,(HL) |
11867 | DEC HL |
11874 | DEC HL |
11868 | CP D |
11875 | CP D |
Line 11934... | Line 11941... | ||
11934 | LD D,(HL) |
11941 | LD D,(HL) |
11935 | POP HL |
11942 | POP HL |
11936 | LD A,B |
11943 | LD A,B |
11937 | RET |
11944 | RET |
11938 | 11945 | ||
11939 | AMINOTE dw 0X1AC0,0X1940,0X17D0,0X1680,0X1530,0X1400,0X12E0,0X11D0,0X10D0,0X0FE0,0X0F00,0X0E28;C-0 |
11946 | AMINOTE dw 0x1AC0,0x1940,0x17D0,0x1680,0x1530,0x1400,0x12E0,0x11D0,0x10D0,0x0FE0,0x0F00,0x0E28;C-0 |
11940 | dw 0X0D60,0X0CA0,0X0BE8,0X0B40,0X0A98,0X0A00,0X0970,0X08E8,0X0868,0X07F0,0X0780,0X0714;C-1 |
11947 | dw 0x0D60,0x0CA0,0x0BE8,0x0B40,0x0A98,0x0A00,0x0970,0x08E8,0x0868,0x07F0,0x0780,0x0714;C-1 |
11941 | dw 0X06B0,0X0650,0X05F4,0X05A0,0X054C,0X0500,0X04B8,0X0474,0X0434,0X03F8,0X03C0,0X038A;C-2 |
11948 | dw 0x06B0,0x0650,0x05F4,0x05A0,0x054C,0x0500,0x04B8,0x0474,0x0434,0x03F8,0x03C0,0x038A;C-2 |
11942 | dw 0X0358,0X0328,0X02FA,0X02D0,0X02A6,0X0280,0X025C,0X023A,0X021A,0X01FC,0X01E0,0X01C5;C-3 |
11949 | dw 0x0358,0x0328,0x02FA,0x02D0,0x02A6,0x0280,0x025C,0x023A,0x021A,0x01FC,0x01E0,0x01C5;C-3 |
11943 | dw 0X01AC,0X0194,0X017D,0X0168,0X0153,0X0140,0X012E,0X011D,0X010D,0X00FE,0X00F0,0X00E2;C-4 |
11950 | dw 0x01AC,0x0194,0x017D,0x0168,0x0153,0x0140,0x012E,0x011D,0x010D,0x00FE,0x00F0,0x00E2;C-4 |
11944 | dw 0X00D6,0X00CA,0X00BE,0X00B4,0X00AA,0X00A0,0X0097,0X008F,0X0087,0X007F,0X0078,0X0071;C-5 |
11951 | dw 0x00D6,0x00CA,0x00BE,0x00B4,0x00AA,0x00A0,0x0097,0x008F,0x0087,0x007F,0x0078,0x0071;C-5 |
11945 | dw 0X006B,0X0065,0X005F,0X005A,0X0055,0X0050,0X004B,0X0047,0X0043,0X003F,0X003C,0X0038;C-6 |
11952 | dw 0x006B,0x0065,0x005F,0x005A,0x0055,0x0050,0x004B,0x0047,0x0043,0x003F,0x003C,0x0038;C-6 |
11946 | dw 0X0035,0X0032,0X002F,0X002D,0X002A,0X0028,0X0025,0X0023,0X0021,0X001F,0X001E,0X001C;C-7 |
11953 | dw 0x0035,0x0032,0x002F,0x002D,0x002A,0x0028,0x0025,0x0023,0x0021,0x001F,0x001E,0x001C;C-7 |
11947 | ___END |
11954 | ___END |
11948 | 11955 | ||
11949 | DUPL GSRomBaseH+0X2000-$,0XFF |
11956 | DUPL GSRomBaseH+0x2000-$,0xFF |
11950 | PHASE GSRomBaseH+0X2000 |
11957 | PHASE GSRomBaseH+0x2000 |
11951 | 11958 | ||
11952 | ;INCLUDE "_GSFRQTB.a80" ;patched |
11959 | ;INCLUDE "_GSFRQTB.a80" ;patched |
11953 | GSFRQTB |
11960 | GSFRQTB |
11954 | ;00 |
11961 | ;00 |
11955 | dw 0X4854,0X4446,0X4071,0X3CD1,0X3968,0X362F,0X3324,0X3045,0X2D91,0X2B02,0X2897,0X2652 |
11962 | dw 0x4854,0x4446,0x4071,0x3CD1,0x3968,0x362F,0x3324,0x3045,0x2D91,0x2B02,0x2897,0x2652 |
11956 | dw 0X242A,0X2223,0X2037,0X1E68,0X1CB5,0X1B17,0X1992,0X1822,0X16C8,0X1581,0X144D,0X1329 |
11963 | dw 0x242A,0x2223,0x2037,0x1E68,0x1CB5,0x1B17,0x1992,0x1822,0x16C8,0x1581,0x144D,0x1329 |
11957 | dw 0X1215,0X1111,0X101B,0X0F35,0X0E5A,0X0D8D,0X0CCA,0X0C12,0X0B62,0X0AC0,0X0A26,0X0994 |
11964 | dw 0x1215,0x1111,0x101B,0x0F35,0x0E5A,0x0D8D,0x0CCA,0x0C12,0x0B62,0x0AC0,0x0A26,0x0994 |
11958 | dw 0X090A,0X0888,0X080F,0X079A,0X072C,0X06C5,0X0663,0X0607,0X05B1,0X0560,0X0511,0X04C8 |
11965 | dw 0x090A,0x0888,0x080F,0x079A,0x072C,0x06C5,0x0663,0x0607,0x05B1,0x0560,0x0511,0x04C8 |
11959 | dw 0X0485,0X0444,0X0406,0X03CD,0X0397,0X0363,0X0333,0X0305,0X02DA,0X02AE,0X0288,0X0265 |
11966 | dw 0x0485,0x0444,0x0406,0x03CD,0x0397,0x0363,0x0333,0x0305,0x02DA,0x02AE,0x0288,0x0265 |
11960 | dw 0X0242,0X0222,0X0204,0X01E6,0X01CB,0X01B0,0X0198,0X0182,0X016D,0X0157,0X0144,0X0131 |
11967 | dw 0x0242,0x0222,0x0204,0x01E6,0x01CB,0x01B0,0x0198,0x0182,0x016D,0x0157,0x0144,0x0131 |
11961 | dw 0X0121,0X0111,0X0100,0X00F3,0X00E5,0X00D8,0X00CD,0X00BF,0X00B5,0X00AD,0X00A2,0X009A |
11968 | dw 0x0121,0x0111,0x0100,0x00F3,0x00E5,0x00D8,0x00CD,0x00BF,0x00B5,0x00AD,0x00A2,0x009A |
11962 | dw 0X0092,0X0087,0X0081,0X0079,0X0071,0X006C,0X0066,0X0061,0X005B,0X0056,0X0051,0X004B |
11969 | dw 0x0092,0x0087,0x0081,0x0079,0x0071,0x006C,0x0066,0x0061,0x005B,0x0056,0x0051,0x004B |
11963 | ;01 |
11970 | ;01 |
11964 | dw 0X47D0,0X43C7,0X3FFA,0X3C62,0X38FE,0X35CB,0X32C6,0X2FEE,0X2D3D,0X2AB4,0X284E,0X260B |
11971 | dw 0x47D0,0x43C7,0x3FFA,0x3C62,0x38FE,0x35CB,0x32C6,0x2FEE,0x2D3D,0x2AB4,0x284E,0x260B |
11965 | dw 0X23E6,0X21E5,0X1FFB,0X1E32,0X1C7F,0X1AE7,0X1964,0X17F7,0X169D,0X1558,0X1427,0X1305 |
11972 | dw 0x23E6,0x21E5,0x1FFB,0x1E32,0x1C7F,0x1AE7,0x1964,0x17F7,0x169D,0x1558,0x1427,0x1305 |
11966 | dw 0X11F4,0X10F1,0X0FFD,0X0F18,0X0E3F,0X0D72,0X0CB2,0X0BFA,0X0B4F,0X0AAD,0X0A13,0X0981 |
11973 | dw 0x11F4,0x10F1,0x0FFD,0x0F18,0x0E3F,0x0D72,0x0CB2,0x0BFA,0x0B4F,0x0AAD,0x0A13,0x0981 |
11967 | dw 0X08FA,0X0878,0X07FE,0X078D,0X0721,0X06BA,0X0659,0X05FD,0X05A6,0X0555,0X0509,0X04C0 |
11974 | dw 0x08FA,0x0878,0x07FE,0x078D,0x0721,0x06BA,0x0659,0x05FD,0x05A6,0x0555,0x0509,0x04C0 |
11968 | dw 0X047D,0X043C,0X0400,0X03C5,0X038F,0X035B,0X032B,0X02FF,0X02D4,0X02AC,0X0283,0X0260 |
11975 | dw 0x047D,0x043C,0x0400,0x03C5,0x038F,0x035B,0x032B,0x02FF,0x02D4,0x02AC,0x0283,0x0260 |
11969 | dw 0X023D,0X021F,0X01FF,0X01E4,0X01C8,0X01AD,0X0195,0X017F,0X016A,0X0154,0X0141,0X0131 |
11976 | dw 0x023D,0x021F,0x01FF,0x01E4,0x01C8,0x01AD,0x0195,0x017F,0x016A,0x0154,0x0141,0x0131 |
11970 | dw 0X011E,0X010E,0X0100,0X00F0,0X00E3,0X00D8,0X00CA,0X00BF,0X00B5,0X00AA,0X00A2,0X0097 |
11977 | dw 0x011E,0x010E,0x0100,0x00F0,0x00E3,0x00D8,0x00CA,0x00BF,0x00B5,0x00AA,0x00A2,0x0097 |
11971 | dw 0X008F,0X0087,0X007F,0X0079,0X0071,0X006C,0X0066,0X005E,0X0059,0X0056,0X0051,0X004B |
11978 | dw 0x008F,0x0087,0x007F,0x0079,0x0071,0x006C,0x0066,0x005E,0x0059,0x0056,0x0051,0x004B |
11972 | ;02 |
11979 | ;02 |
11973 | dw 0X474C,0X434B,0X3F83,0X3BF3,0X3895,0X356A,0X326A,0X2F95,0X2CE9,0X2A63,0X2802,0X25C5 |
11980 | dw 0x474C,0x434B,0x3F83,0x3BF3,0x3895,0x356A,0x326A,0x2F95,0x2CE9,0x2A63,0x2802,0x25C5 |
11974 | dw 0X23A6,0X21A4,0X1FC2,0X1DF9,0X1C4C,0X1AB3,0X1933,0X17C9,0X1674,0X1532,0X1401,0X12E2 |
11981 | dw 0x23A6,0x21A4,0x1FC2,0x1DF9,0x1C4C,0x1AB3,0x1933,0x17C9,0x1674,0x1532,0x1401,0x12E2 |
11975 | dw 0X11D1,0X10D3,0X0FE0,0X0EFC,0X0E24,0X0D59,0X0C99,0X0BE4,0X0B3A,0X0A98,0X0A00,0X0971 |
11982 | dw 0x11D1,0x10D3,0x0FE0,0x0EFC,0x0E24,0x0D59,0x0C99,0x0BE4,0x0B3A,0x0A98,0x0A00,0x0971 |
11976 | dw 0X08EA,0X0868,0X07F1,0X077D,0X0713,0X06AC,0X064E,0X05F2,0X059E,0X054D,0X0501,0X04B8 |
11983 | dw 0x08EA,0x0868,0x07F1,0x077D,0x0713,0x06AC,0x064E,0x05F2,0x059E,0x054D,0x0501,0x04B8 |
11977 | dw 0X0475,0X0434,0X03F8,0X03BF,0X0389,0X0356,0X0325,0X02FA,0X02CF,0X02A6,0X0280,0X025A |
11984 | dw 0x0475,0x0434,0x03F8,0x03BF,0x0389,0x0356,0x0325,0x02FA,0x02CF,0x02A6,0x0280,0x025A |
11978 | dw 0X023A,0X021A,0X01FC,0X01DE,0X01C3,0X01AB,0X0192,0X017D,0X0167,0X0152,0X013F,0X012E |
11985 | dw 0x023A,0x021A,0x01FC,0x01DE,0x01C3,0x01AB,0x0192,0x017D,0x0167,0x0152,0x013F,0x012E |
11979 | dw 0X011B,0X010E,0X00FE,0X00F0,0X00E3,0X00D5,0X00CA,0X00BD,0X00B2,0X00AA,0X009F,0X0097 |
11986 | dw 0x011B,0x010E,0x00FE,0x00F0,0x00E3,0x00D5,0x00CA,0x00BD,0x00B2,0x00AA,0x009F,0x0097 |
11980 | dw 0X008F,0X0087,0X007F,0X0076,0X0071,0X006C,0X0064,0X005E,0X0059,0X0053,0X0051,0X004B |
11987 | dw 0x008F,0x0087,0x007F,0x0076,0x0071,0x006C,0x0064,0x005E,0x0059,0x0053,0x0051,0x004B |
11981 | ;03 |
11988 | ;03 |
11982 | dw 0X46C7,0X42CE,0X3F0E,0X3B85,0X382E,0X3506,0X320E,0X2F3E,0X2C98,0X2A17,0X27B9,0X257F |
11989 | dw 0x46C7,0x42CE,0x3F0E,0x3B85,0x382E,0x3506,0x320E,0x2F3E,0x2C98,0x2A17,0x27B9,0x257F |
11983 | dw 0X2365,0X2168,0X1F87,0X1DC3,0X1C15,0X1A83,0X1905,0X179E,0X164C,0X150A,0X13DB,0X12BF |
11990 | dw 0x2365,0x2168,0x1F87,0x1DC3,0x1C15,0x1A83,0x1905,0x179E,0x164C,0x150A,0x13DB,0x12BF |
11984 | dw 0X11B1,0X10B3,0X0FC5,0X0EE1,0X0E0C,0X0D41,0X0C84,0X0BCF,0X0B24,0X0A85,0X09ED,0X095E |
11991 | dw 0x11B1,0x10B3,0x0FC5,0x0EE1,0x0E0C,0x0D41,0x0C84,0x0BCF,0x0B24,0x0A85,0x09ED,0x095E |
11985 | dw 0X08D9,0X085A,0X07E1,0X076F,0X0706,0X06A2,0X0640,0X05E7,0X0593,0X0542,0X04F6,0X04B0 |
11992 | dw 0x08D9,0x085A,0x07E1,0x076F,0x0706,0x06A2,0x0640,0x05E7,0x0593,0x0542,0x04F6,0x04B0 |
11986 | dw 0X046C,0X042C,0X03F0,0X03B7,0X0381,0X0351,0X0320,0X02F5,0X02C9,0X02A1,0X027B,0X0258 |
11993 | dw 0x046C,0x042C,0x03F0,0x03B7,0x0381,0x0351,0x0320,0x02F5,0x02C9,0x02A1,0x027B,0x0258 |
11987 | dw 0X0235,0X0217,0X01F9,0X01DB,0X01C0,0X01A8,0X0190,0X017A,0X0164,0X0152,0X013F,0X012C |
11994 | dw 0x0235,0x0217,0x01F9,0x01DB,0x01C0,0x01A8,0x0190,0x017A,0x0164,0x0152,0x013F,0x012C |
11988 | dw 0X011B,0X010B,0X00FB,0X00ED,0X00E0,0X00D2,0X00C8,0X00BD,0X00B2,0X00A7,0X009F,0X0094 |
11995 | dw 0x011B,0x010B,0x00FB,0x00ED,0x00E0,0x00D2,0x00C8,0x00BD,0x00B2,0x00A7,0x009F,0x0094 |
11989 | dw 0X008C,0X0084,0X007F,0X0076,0X0071,0X0069,0X0064,0X005E,0X0059,0X0053,0X004E,0X004B |
11996 | dw 0x008C,0x0084,0x007F,0x0076,0x0071,0x0069,0x0064,0x005E,0x0059,0x0053,0x004E,0x004B |
11990 | ;04 |
11997 | ;04 |
11991 | dw 0X4645,0X4255,0X3E9A,0X3B18,0X37C7,0X34A4,0X31AF,0X2EE5,0X2C44,0X29C9,0X2770,0X2538 |
11998 | dw 0x4645,0x4255,0x3E9A,0x3B18,0x37C7,0x34A4,0x31AF,0x2EE5,0x2C44,0x29C9,0x2770,0x2538 |
11992 | dw 0X2324,0X212A,0X1F4E,0X1D8B,0X1BE2,0X1A52,0X18D7,0X1772,0X1623,0X14E4,0X13B8,0X129C |
11999 | dw 0x2324,0x212A,0x1F4E,0x1D8B,0x1BE2,0x1A52,0x18D7,0x1772,0x1623,0x14E4,0x13B8,0x129C |
11993 | dw 0X1190,0X1095,0X0FA7,0X0EC6,0X0DF1,0X0D29,0X0C6B,0X0BB9,0X0B11,0X0A72,0X09DA,0X094E |
12000 | dw 0x1190,0x1095,0x0FA7,0x0EC6,0x0DF1,0x0D29,0x0C6B,0x0BB9,0x0B11,0x0A72,0x09DA,0x094E |
11994 | dw 0X08C9,0X084A,0X07D3,0X0762,0X06F8,0X0694,0X0635,0X05DC,0X0588,0X0537,0X04EE,0X04A8 |
12001 | dw 0x08C9,0x084A,0x07D3,0x0762,0x06F8,0x0694,0x0635,0x05DC,0x0588,0x0537,0x04EE,0x04A8 |
11995 | dw 0X0464,0X0423,0X03E8,0X03B2,0X037C,0X034B,0X031A,0X02EF,0X02C4,0X029B,0X0276,0X0252 |
12002 | dw 0x0464,0x0423,0x03E8,0x03B2,0x037C,0x034B,0x031A,0x02EF,0x02C4,0x029B,0x0276,0x0252 |
11996 | dw 0X0232,0X0211,0X01F4,0X01D9,0X01BE,0X01A5,0X018D,0X0177,0X0162,0X014F,0X013C,0X0129 |
12003 | dw 0x0232,0x0211,0x01F4,0x01D9,0x01BE,0x01A5,0x018D,0x0177,0x0162,0x014F,0x013C,0x0129 |
11997 | dw 0X0119,0X0108,0X00FB,0X00EB,0X00E0,0X00D2,0X00C8,0X00BA,0X00AF,0X00A7,0X009C,0X0094 |
12004 | dw 0x0119,0x0108,0x00FB,0x00EB,0x00E0,0x00D2,0x00C8,0x00BA,0x00AF,0x00A7,0x009C,0x0094 |
11998 | dw 0X008C,0X0084,0X007C,0X0076,0X006E,0X0069,0X0064,0X005E,0X0059,0X0053,0X004E,0X004B |
12005 | dw 0x008C,0x0084,0x007C,0x0076,0x006E,0x0069,0x0064,0x005E,0x0059,0x0053,0x004E,0x004B |
11999 | ;05 |
12006 | ;05 |
12000 | dw 0X45C3,0X41D8,0X3E29,0X3AAA,0X3761,0X3443,0X3156,0X2E8F,0X2BF3,0X297A,0X2727,0X24F5 |
12007 | dw 0x45C3,0x41D8,0x3E29,0x3AAA,0x3761,0x3443,0x3156,0x2E8F,0x2BF3,0x297A,0x2727,0x24F5 |
12001 | dw 0X22E3,0X20EC,0X1F13,0X1D55,0X1BAF,0X1A21,0X18A9,0X1747,0X15FB,0X14BE,0X1395,0X1279 |
12008 | dw 0x22E3,0x20EC,0x1F13,0x1D55,0x1BAF,0x1A21,0x18A9,0x1747,0x15FB,0x14BE,0x1395,0x1279 |
12002 | dw 0X1170,0X1077,0X0F89,0X0EAB,0X0DD8,0X0D10,0X0C56,0X0BA3,0X0AFC,0X0A5F,0X09CA,0X093E |
12009 | dw 0x1170,0x1077,0x0F89,0x0EAB,0x0DD8,0x0D10,0x0C56,0x0BA3,0x0AFC,0x0A5F,0x09CA,0x093E |
12003 | dw 0X08B9,0X083A,0X07C6,0X0754,0X06EB,0X0689,0X062B,0X05D1,0X057E,0X052F,0X04E3,0X049D |
12010 | dw 0x08B9,0x083A,0x07C6,0x0754,0x06EB,0x0689,0x062B,0x05D1,0x057E,0x052F,0x04E3,0x049D |
12004 | dw 0X045C,0X041E,0X03E3,0X03AA,0X0376,0X0343,0X0315,0X02EA,0X02BF,0X0296,0X0273,0X0250 |
12011 | dw 0x045C,0x041E,0x03E3,0x03AA,0x0376,0x0343,0x0315,0x02EA,0x02BF,0x0296,0x0273,0x0250 |
12005 | dw 0X022D,0X020F,0X01F1,0X01D6,0X01BB,0X01A3,0X018A,0X0175,0X015F,0X014C,0X0139,0X0126 |
12012 | dw 0x022D,0x020F,0x01F1,0x01D6,0x01BB,0x01A3,0x018A,0x0175,0x015F,0x014C,0x0139,0x0126 |
12006 | dw 0X0116,0X0106,0X00F8,0X00EB,0X00DD,0X00D0,0X00C5,0X00BA,0X00AF,0X00A4,0X009C,0X0094 |
12013 | dw 0x0116,0x0106,0x00F8,0x00EB,0x00DD,0x00D0,0x00C5,0x00BA,0x00AF,0x00A4,0x009C,0x0094 |
12007 | dw 0X008C,0X0084,0X007C,0X0074,0X006E,0X0069,0X0061,0X005B,0X0059,0X0053,0X004E,0X0049 |
12014 | dw 0x008C,0x0084,0x007C,0x0074,0x006E,0x0069,0x0061,0x005B,0x0059,0x0053,0x004E,0x0049 |
12008 | ;06 |
12015 | ;06 |
12009 | dw 0X4544,0X4161,0X3DB4,0X3A3D,0X36FA,0X33E4,0X30FA,0X2E3B,0X2BA2,0X292E,0X26DE,0X24B1 |
12016 | dw 0x4544,0x4161,0x3DB4,0x3A3D,0x36FA,0x33E4,0x30FA,0x2E3B,0x2BA2,0x292E,0x26DE,0x24B1 |
12010 | dw 0X22A2,0X20B0,0X1EDA,0X1D1E,0X1B7B,0X19F1,0X187B,0X171C,0X15D2,0X1498,0X136F,0X1258 |
12017 | dw 0x22A2,0x20B0,0x1EDA,0x1D1E,0x1B7B,0x19F1,0x187B,0x171C,0x15D2,0x1498,0x136F,0x1258 |
12011 | dw 0X114F,0X1057,0X0F6E,0X0E90,0X0DBD,0X0CF8,0X0C3D,0X0B8E,0X0AE9,0X0A4C,0X09B7,0X092B |
12018 | dw 0x114F,0x1057,0x0F6E,0x0E90,0x0DBD,0x0CF8,0x0C3D,0x0B8E,0x0AE9,0x0A4C,0x09B7,0x092B |
12012 | dw 0X08A9,0X082C,0X07B5,0X0747,0X06E0,0X067C,0X0620,0X05C7,0X0573,0X0524,0X04DB,0X0495 |
12019 | dw 0x08A9,0x082C,0x07B5,0x0747,0x06E0,0x067C,0x0620,0x05C7,0x0573,0x0524,0x04DB,0x0495 |
12013 | dw 0X0454,0X0416,0X03DA,0X03A4,0X036E,0X033E,0X0310,0X02E4,0X02B9,0X0293,0X026D,0X024A |
12020 | dw 0x0454,0x0416,0x03DA,0x03A4,0x036E,0x033E,0x0310,0x02E4,0x02B9,0x0293,0x026D,0x024A |
12014 | dw 0X022A,0X0209,0X01EE,0X01D1,0X01B8,0X01A0,0X0188,0X0172,0X015C,0X0149,0X0136,0X0126 |
12021 | dw 0x022A,0x0209,0x01EE,0x01D1,0x01B8,0x01A0,0x0188,0x0172,0x015C,0x0149,0x0136,0x0126 |
12015 | dw 0X0113,0X0106,0X00F6,0X00E8,0X00DB,0X00D0,0X00C2,0X00B7,0X00AF,0X00A4,0X009C,0X0092 |
12022 | dw 0x0113,0x0106,0x00F6,0x00E8,0x00DB,0x00D0,0x00C2,0x00B7,0x00AF,0x00A4,0x009C,0x0092 |
12016 | dw 0X0089,0X0081,0X007C,0X0074,0X006E,0X0066,0X0061,0X005B,0X0056,0X0051,0X004E,0X0049 |
12023 | dw 0x0089,0x0081,0x007C,0x0074,0x006E,0x0066,0x0061,0x005B,0x0056,0x0051,0x004E,0x0049 |
12017 | ;07 |
12024 | ;07 |
12018 | dw 0X44C3,0X40E8,0X3D43,0X39D4,0X3693,0X3383,0X30A1,0X2DE4,0X2B51,0X28E3,0X2698,0X246E |
12025 | dw 0x44C3,0x40E8,0x3D43,0x39D4,0x3693,0x3383,0x30A1,0x2DE4,0x2B51,0x28E3,0x2698,0x246E |
12019 | dw 0X2261,0X2075,0X1EA1,0X1CE8,0X1B4B,0X19C3,0X1850,0X16F3,0X15A9,0X1472,0X134C,0X1235 |
12026 | dw 0x2261,0x2075,0x1EA1,0x1CE8,0x1B4B,0x19C3,0x1850,0x16F3,0x15A9,0x1472,0x134C,0x1235 |
12020 | dw 0X1132,0X1039,0X0F50,0X0E75,0X0DA5,0X0CE0,0X0C28,0X0B78,0X0AD3,0X0A39,0X09A4,0X091A |
12027 | dw 0x1132,0x1039,0x0F50,0x0E75,0x0DA5,0x0CE0,0x0C28,0x0B78,0x0AD3,0x0A39,0x09A4,0x091A |
12021 | dw 0X0899,0X081C,0X07A8,0X0739,0X06D2,0X0671,0X0612,0X05BC,0X056B,0X051C,0X04D3,0X048D |
12028 | dw 0x0899,0x081C,0x07A8,0x0739,0x06D2,0x0671,0x0612,0x05BC,0x056B,0x051C,0x04D3,0x048D |
12022 | dw 0X044C,0X040E,0X03D5,0X039C,0X0369,0X0338,0X030A,0X02DF,0X02B4,0X028E,0X0268,0X0248 |
12029 | dw 0x044C,0x040E,0x03D5,0x039C,0x0369,0x0338,0x030A,0x02DF,0x02B4,0x028E,0x0268,0x0248 |
12023 | dw 0X0224,0X0207,0X01E9,0X01CE,0X01B3,0X019B,0X0185,0X016F,0X015A,0X0147,0X0134,0X0124 |
12030 | dw 0x0224,0x0207,0x01E9,0x01CE,0x01B3,0x019B,0x0185,0x016F,0x015A,0x0147,0x0134,0x0124 |
12024 | dw 0X0113,0X0103,0X00F6,0X00E8,0X00DB,0X00CD,0X00C2,0X00B7,0X00AD,0X00A2,0X009A,0X0092 |
12031 | dw 0x0113,0x0103,0x00F6,0x00E8,0x00DB,0x00CD,0x00C2,0x00B7,0x00AD,0x00A2,0x009A,0x0092 |
12025 | dw 0X0089,0X0081,0X0079,0X0074,0X006C,0X0066,0X0061,0X005B,0X0056,0X0051,0X004E,0X0049 |
12032 | dw 0x0089,0x0081,0x0079,0x0074,0x006C,0x0066,0x0061,0x005B,0x0056,0x0051,0x004E,0x0049 |
12026 | ;08 |
12033 | ;08 |
12027 | dw 0X4CA1,0X4854,0X4446,0X4071,0X3CD1,0X3968,0X362F,0X3324,0X3045,0X2D91,0X2B02,0X2897 |
12034 | dw 0x4CA1,0x4854,0x4446,0x4071,0x3CD1,0x3968,0x362F,0x3324,0x3045,0x2D91,0x2B02,0x2897 |
12028 | dw 0X2652,0X242A,0X2223,0X2037,0X1E68,0X1CB5,0X1B17,0X1992,0X1822,0X16C8,0X1581,0X144D |
12035 | dw 0x2652,0x242A,0x2223,0x2037,0x1E68,0x1CB5,0x1B17,0x1992,0x1822,0x16C8,0x1581,0x144D |
12029 | dw 0X1329,0X1215,0X1111,0X101B,0X0F35,0X0E5A,0X0D8D,0X0CCA,0X0C12,0X0B62,0X0AC0,0X0A26 |
12036 | dw 0x1329,0x1215,0x1111,0x101B,0x0F35,0x0E5A,0x0D8D,0x0CCA,0x0C12,0x0B62,0x0AC0,0x0A26 |
12030 | dw 0X0994,0X090A,0X0888,0X080F,0X079A,0X072C,0X06C5,0X0663,0X0607,0X05B1,0X0560,0X0511 |
12037 | dw 0x0994,0x090A,0x0888,0x080F,0x079A,0x072C,0x06C5,0x0663,0x0607,0x05B1,0x0560,0x0511 |
12031 | dw 0X04C8,0X0485,0X0444,0X0406,0X03CD,0X0397,0X0363,0X0333,0X0305,0X02DA,0X02AE,0X0288 |
12038 | dw 0x04C8,0x0485,0x0444,0x0406,0x03CD,0x0397,0x0363,0x0333,0x0305,0x02DA,0x02AE,0x0288 |
12032 | dw 0X0265,0X0242,0X0222,0X0204,0X01E6,0X01CB,0X01B0,0X0198,0X0182,0X016D,0X0157,0X0144 |
12039 | dw 0x0265,0x0242,0x0222,0x0204,0x01E6,0x01CB,0x01B0,0x0198,0x0182,0x016D,0x0157,0x0144 |
12033 | dw 0X0131,0X0121,0X0111,0X0100,0X00F3,0X00E5,0X00D8,0X00CD,0X00BF,0X00B5,0X00AD,0X00A2 |
12040 | dw 0x0131,0x0121,0x0111,0x0100,0x00F3,0x00E5,0x00D8,0x00CD,0x00BF,0x00B5,0x00AD,0x00A2 |
12034 | dw 0X009A,0X0092,0X0087,0X0081,0X0079,0X0071,0X006C,0X0066,0X0061,0X005B,0X0056,0X0051 |
12041 | dw 0x009A,0x0092,0x0087,0x0081,0x0079,0x0071,0x006C,0x0066,0x0061,0x005B,0x0056,0x0051 |
12035 | ;09 |
12042 | ;09 |
12036 | dw 0X4C14,0X47D0,0X43C7,0X3FFA,0X3C62,0X38FE,0X35CB,0X32C6,0X2FEE,0X2D3D,0X2AB4,0X284E |
12043 | dw 0x4C14,0x47D0,0x43C7,0x3FFA,0x3C62,0x38FE,0x35CB,0x32C6,0x2FEE,0x2D3D,0x2AB4,0x284E |
12037 | dw 0X260B,0X23E6,0X21E5,0X1FFB,0X1E32,0X1C7F,0X1AE7,0X1964,0X17F7,0X169D,0X1558,0X1427 |
12044 | dw 0x260B,0x23E6,0x21E5,0x1FFB,0x1E32,0x1C7F,0x1AE7,0x1964,0x17F7,0x169D,0x1558,0x1427 |
12038 | dw 0X1305,0X11F4,0X10F1,0X0FFD,0X0F18,0X0E3F,0X0D72,0X0CB2,0X0BFA,0X0B4F,0X0AAD,0X0A13 |
12045 | dw 0x1305,0x11F4,0x10F1,0x0FFD,0x0F18,0x0E3F,0x0D72,0x0CB2,0x0BFA,0x0B4F,0x0AAD,0x0A13 |
12039 | dw 0X0981,0X08FA,0X0878,0X07FE,0X078D,0X0721,0X06BA,0X0659,0X05FD,0X05A6,0X0555,0X0509 |
12046 | dw 0x0981,0x08FA,0x0878,0x07FE,0x078D,0x0721,0x06BA,0x0659,0x05FD,0x05A6,0x0555,0x0509 |
12040 | dw 0X04C0,0X047D,0X043C,0X0400,0X03C5,0X038F,0X035B,0X032B,0X02FF,0X02D4,0X02AC,0X0283 |
12047 | dw 0x04C0,0x047D,0x043C,0x0400,0x03C5,0x038F,0x035B,0x032B,0x02FF,0x02D4,0x02AC,0x0283 |
12041 | dw 0X0260,0X023D,0X021F,0X01FF,0X01E4,0X01C8,0X01AD,0X0195,0X017F,0X016A,0X0154,0X0141 |
12048 | dw 0x0260,0x023D,0x021F,0x01FF,0x01E4,0x01C8,0x01AD,0x0195,0x017F,0x016A,0x0154,0x0141 |
12042 | dw 0X0131,0X011E,0X010E,0X0100,0X00F0,0X00E3,0X00D8,0X00CA,0X00BF,0X00B5,0X00AA,0X00A2 |
12049 | dw 0x0131,0x011E,0x010E,0x0100,0x00F0,0x00E3,0x00D8,0x00CA,0x00BF,0x00B5,0x00AA,0x00A2 |
12043 | dw 0X0097,0X008F,0X0087,0X007F,0X0079,0X0071,0X006C,0X0066,0X005E,0X0059,0X0056,0X0051 |
12050 | dw 0x0097,0x008F,0x0087,0x007F,0x0079,0x0071,0x006C,0x0066,0x005E,0x0059,0x0056,0x0051 |
12044 | ;0A |
12051 | ;0A |
12045 | dw 0X4B88,0X474C,0X434B,0X3F83,0X3BF3,0X3895,0X356A,0X326A,0X2F95,0X2CE9,0X2A63,0X2802 |
12052 | dw 0x4B88,0x474C,0x434B,0x3F83,0x3BF3,0x3895,0x356A,0x326A,0x2F95,0x2CE9,0x2A63,0x2802 |
12046 | dw 0X25C5,0X23A6,0X21A4,0X1FC2,0X1DF9,0X1C4C,0X1AB3,0X1933,0X17C9,0X1674,0X1532,0X1401 |
12053 | dw 0x25C5,0x23A6,0x21A4,0x1FC2,0x1DF9,0x1C4C,0x1AB3,0x1933,0x17C9,0x1674,0x1532,0x1401 |
12047 | dw 0X12E2,0X11D1,0X10D3,0X0FE0,0X0EFC,0X0E24,0X0D59,0X0C99,0X0BE4,0X0B3A,0X0A98,0X0A00 |
12054 | dw 0x12E2,0x11D1,0x10D3,0x0FE0,0x0EFC,0x0E24,0x0D59,0x0C99,0x0BE4,0x0B3A,0x0A98,0x0A00 |
12048 | dw 0X0971,0X08EA,0X0868,0X07F1,0X077D,0X0713,0X06AC,0X064E,0X05F2,0X059E,0X054D,0X0501 |
12055 | dw 0x0971,0x08EA,0x0868,0x07F1,0x077D,0x0713,0x06AC,0x064E,0x05F2,0x059E,0x054D,0x0501 |
12049 | dw 0X04B8,0X0475,0X0434,0X03F8,0X03BF,0X0389,0X0356,0X0325,0X02FA,0X02CF,0X02A6,0X0280 |
12056 | dw 0x04B8,0x0475,0x0434,0x03F8,0x03BF,0x0389,0x0356,0x0325,0x02FA,0x02CF,0x02A6,0x0280 |
12050 | dw 0X025A,0X023A,0X021A,0X01FC,0X01DE,0X01C3,0X01AB,0X0192,0X017D,0X0167,0X0152,0X013F |
12057 | dw 0x025A,0x023A,0x021A,0x01FC,0x01DE,0x01C3,0x01AB,0x0192,0x017D,0x0167,0x0152,0x013F |
12051 | dw 0X012E,0X011B,0X010E,0X00FE,0X00F0,0X00E3,0X00D5,0X00CA,0X00BD,0X00B2,0X00AA,0X009F |
12058 | dw 0x012E,0x011B,0x010E,0x00FE,0x00F0,0x00E3,0x00D5,0x00CA,0x00BD,0x00B2,0x00AA,0x009F |
12052 | dw 0X0097,0X008F,0X0087,0X007F,0X0076,0X0071,0X006C,0X0064,0X005E,0X0059,0X0053,0X0051 |
12059 | dw 0x0097,0x008F,0x0087,0x007F,0x0076,0x0071,0x006C,0x0064,0x005E,0x0059,0x0053,0x0051 |
12053 | ;0B |
12060 | ;0B |
12054 | dw 0X4AFE,0X46C7,0X42CE,0X3F0E,0X3B85,0X382E,0X3506,0X320E,0X2F3E,0X2C98,0X2A17,0X27B9 |
12061 | dw 0x4AFE,0x46C7,0x42CE,0x3F0E,0x3B85,0x382E,0x3506,0x320E,0x2F3E,0x2C98,0x2A17,0x27B9 |
12055 | dw 0X257F,0X2365,0X2168,0X1F87,0X1DC3,0X1C15,0X1A83,0X1905,0X179E,0X164C,0X150A,0X13DB |
12062 | dw 0x257F,0x2365,0x2168,0x1F87,0x1DC3,0x1C15,0x1A83,0x1905,0x179E,0x164C,0x150A,0x13DB |
12056 | dw 0X12BF,0X11B1,0X10B3,0X0FC5,0X0EE1,0X0E0C,0X0D41,0X0C84,0X0BCF,0X0B24,0X0A85,0X09ED |
12063 | dw 0x12BF,0x11B1,0x10B3,0x0FC5,0x0EE1,0x0E0C,0x0D41,0x0C84,0x0BCF,0x0B24,0x0A85,0x09ED |
12057 | dw 0X095E,0X08D9,0X085A,0X07E1,0X076F,0X0706,0X06A2,0X0640,0X05E7,0X0593,0X0542,0X04F6 |
12064 | dw 0x095E,0x08D9,0x085A,0x07E1,0x076F,0x0706,0x06A2,0x0640,0x05E7,0x0593,0x0542,0x04F6 |
12058 | dw 0X04B0,0X046C,0X042C,0X03F0,0X03B7,0X0381,0X0351,0X0320,0X02F5,0X02C9,0X02A1,0X027B |
12065 | dw 0x04B0,0x046C,0x042C,0x03F0,0x03B7,0x0381,0x0351,0x0320,0x02F5,0x02C9,0x02A1,0x027B |
12059 | dw 0X0258,0X0235,0X0217,0X01F9,0X01DB,0X01C0,0X01A8,0X0190,0X017A,0X0164,0X0152,0X013F |
12066 | dw 0x0258,0x0235,0x0217,0x01F9,0x01DB,0x01C0,0x01A8,0x0190,0x017A,0x0164,0x0152,0x013F |
12060 | dw 0X012C,0X011B,0X010B,0X00FB,0X00ED,0X00E0,0X00D2,0X00C8,0X00BD,0X00B2,0X00A7,0X009F |
12067 | dw 0x012C,0x011B,0x010B,0x00FB,0x00ED,0x00E0,0x00D2,0x00C8,0x00BD,0x00B2,0x00A7,0x009F |
12061 | dw 0X0094,0X008C,0X0084,0X007F,0X0076,0X0071,0X0069,0X0064,0X005E,0X0059,0X0053,0X004E |
12068 | dw 0x0094,0x008C,0x0084,0x007F,0x0076,0x0071,0x0069,0x0064,0x005E,0x0059,0x0053,0x004E |
12062 | ;0C |
12069 | ;0C |
12063 | dw 0X4A74,0X4645,0X4255,0X3E9A,0X3B18,0X37C7,0X34A4,0X31AF,0X2EE5,0X2C44,0X29C9,0X2770 |
12070 | dw 0x4A74,0x4645,0x4255,0x3E9A,0x3B18,0x37C7,0x34A4,0x31AF,0x2EE5,0x2C44,0x29C9,0x2770 |
12064 | dw 0X2538,0X2324,0X212A,0X1F4E,0X1D8B,0X1BE2,0X1A52,0X18D7,0X1772,0X1623,0X14E4,0X13B8 |
12071 | dw 0x2538,0x2324,0x212A,0x1F4E,0x1D8B,0x1BE2,0x1A52,0x18D7,0x1772,0x1623,0x14E4,0x13B8 |
12065 | dw 0X129C,0X1190,0X1095,0X0FA7,0X0EC6,0X0DF1,0X0D29,0X0C6B,0X0BB9,0X0B11,0X0A72,0X09DA |
12072 | dw 0x129C,0x1190,0x1095,0x0FA7,0x0EC6,0x0DF1,0x0D29,0x0C6B,0x0BB9,0x0B11,0x0A72,0x09DA |
12066 | dw 0X094E,0X08C9,0X084A,0X07D3,0X0762,0X06F8,0X0694,0X0635,0X05DC,0X0588,0X0537,0X04EE |
12073 | dw 0x094E,0x08C9,0x084A,0x07D3,0x0762,0x06F8,0x0694,0x0635,0x05DC,0x0588,0x0537,0x04EE |
12067 | dw 0X04A8,0X0464,0X0423,0X03E8,0X03B2,0X037C,0X034B,0X031A,0X02EF,0X02C4,0X029B,0X0276 |
12074 | dw 0x04A8,0x0464,0x0423,0x03E8,0x03B2,0x037C,0x034B,0x031A,0x02EF,0x02C4,0x029B,0x0276 |
12068 | dw 0X0252,0X0232,0X0211,0X01F4,0X01D9,0X01BE,0X01A5,0X018D,0X0177,0X0162,0X014F,0X013C |
12075 | dw 0x0252,0x0232,0x0211,0x01F4,0x01D9,0x01BE,0x01A5,0x018D,0x0177,0x0162,0x014F,0x013C |
12069 | dw 0X0129,0X0119,0X0108,0X00FB,0X00EB,0X00E0,0X00D2,0X00C8,0X00BA,0X00AF,0X00A7,0X009C |
12076 | dw 0x0129,0x0119,0x0108,0x00FB,0x00EB,0x00E0,0x00D2,0x00C8,0x00BA,0x00AF,0x00A7,0x009C |
12070 | dw 0X0094,0X008C,0X0084,0X007C,0X0076,0X006E,0X0069,0X0064,0X005E,0X0059,0X0053,0X004E |
12077 | dw 0x0094,0x008C,0x0084,0x007C,0x0076,0x006E,0x0069,0x0064,0x005E,0x0059,0x0053,0x004E |
12071 | ;0D |
12078 | ;0D |
12072 | dw 0X49EA,0X45C3,0X41D8,0X3E29,0X3AAA,0X3761,0X3443,0X3156,0X2E8F,0X2BF3,0X297A,0X2727 |
12079 | dw 0x49EA,0x45C3,0x41D8,0x3E29,0x3AAA,0x3761,0x3443,0x3156,0x2E8F,0x2BF3,0x297A,0x2727 |
12073 | dw 0X24F5,0X22E3,0X20EC,0X1F13,0X1D55,0X1BAF,0X1A21,0X18A9,0X1747,0X15FB,0X14BE,0X1395 |
12080 | dw 0x24F5,0x22E3,0x20EC,0x1F13,0x1D55,0x1BAF,0x1A21,0x18A9,0x1747,0x15FB,0x14BE,0x1395 |
12074 | dw 0X1279,0X1170,0X1077,0X0F89,0X0EAB,0X0DD8,0X0D10,0X0C56,0X0BA3,0X0AFC,0X0A5F,0X09CA |
12081 | dw 0x1279,0x1170,0x1077,0x0F89,0x0EAB,0x0DD8,0x0D10,0x0C56,0x0BA3,0x0AFC,0x0A5F,0x09CA |
12075 | dw 0X093E,0X08B9,0X083A,0X07C6,0X0754,0X06EB,0X0689,0X062B,0X05D1,0X057E,0X052F,0X04E3 |
12082 | dw 0x093E,0x08B9,0x083A,0x07C6,0x0754,0x06EB,0x0689,0x062B,0x05D1,0x057E,0x052F,0x04E3 |
12076 | dw 0X049D,0X045C,0X041E,0X03E3,0X03AA,0X0376,0X0343,0X0315,0X02EA,0X02BF,0X0296,0X0273 |
12083 | dw 0x049D,0x045C,0x041E,0x03E3,0x03AA,0x0376,0x0343,0x0315,0x02EA,0x02BF,0x0296,0x0273 |
12077 | dw 0X0250,0X022D,0X020F,0X01F1,0X01D6,0X01BB,0X01A3,0X018A,0X0175,0X015F,0X014C,0X0139 |
12084 | dw 0x0250,0x022D,0x020F,0x01F1,0x01D6,0x01BB,0x01A3,0x018A,0x0175,0x015F,0x014C,0x0139 |
12078 | dw 0X0126,0X0116,0X0106,0X00F8,0X00EB,0X00DD,0X00D0,0X00C5,0X00BA,0X00AF,0X00A4,0X009C |
12085 | dw 0x0126,0x0116,0x0106,0x00F8,0x00EB,0x00DD,0x00D0,0x00C5,0x00BA,0x00AF,0x00A4,0x009C |
12079 | dw 0X0094,0X008C,0X0084,0X007C,0X0074,0X006E,0X0069,0X0061,0X005B,0X0059,0X0053,0X004E |
12086 | dw 0x0094,0x008C,0x0084,0x007C,0x0074,0x006E,0x0069,0x0061,0x005B,0x0059,0x0053,0x004E |
12080 | ;0E |
12087 | ;0E |
12081 | dw 0X4963,0X4544,0X4161,0X3DB4,0X3A3D,0X36FA,0X33E4,0X30FA,0X2E3B,0X2BA2,0X292E,0X26DE |
12088 | dw 0x4963,0x4544,0x4161,0x3DB4,0x3A3D,0x36FA,0x33E4,0x30FA,0x2E3B,0x2BA2,0x292E,0x26DE |
12082 | dw 0X24B1,0X22A2,0X20B0,0X1EDA,0X1D1E,0X1B7B,0X19F1,0X187B,0X171C,0X15D2,0X1498,0X136F |
12089 | dw 0x24B1,0x22A2,0x20B0,0x1EDA,0x1D1E,0x1B7B,0x19F1,0x187B,0x171C,0x15D2,0x1498,0x136F |
12083 | dw 0X1258,0X114F,0X1057,0X0F6E,0X0E90,0X0DBD,0X0CF8,0X0C3D,0X0B8E,0X0AE9,0X0A4C,0X09B7 |
12090 | dw 0x1258,0x114F,0x1057,0x0F6E,0x0E90,0x0DBD,0x0CF8,0x0C3D,0x0B8E,0x0AE9,0x0A4C,0x09B7 |
12084 | dw 0X092B,0X08A9,0X082C,0X07B5,0X0747,0X06E0,0X067C,0X0620,0X05C7,0X0573,0X0524,0X04DB |
12091 | dw 0x092B,0x08A9,0x082C,0x07B5,0x0747,0x06E0,0x067C,0x0620,0x05C7,0x0573,0x0524,0x04DB |
12085 | dw 0X0495,0X0454,0X0416,0X03DA,0X03A4,0X036E,0X033E,0X0310,0X02E4,0X02B9,0X0293,0X026D |
12092 | dw 0x0495,0x0454,0x0416,0x03DA,0x03A4,0x036E,0x033E,0x0310,0x02E4,0x02B9,0x0293,0x026D |
12086 | dw 0X024A,0X022A,0X0209,0X01EE,0X01D1,0X01B8,0X01A0,0X0188,0X0172,0X015C,0X0149,0X0136 |
12093 | dw 0x024A,0x022A,0x0209,0x01EE,0x01D1,0x01B8,0x01A0,0x0188,0x0172,0x015C,0x0149,0x0136 |
12087 | dw 0X0126,0X0113,0X0106,0X00F6,0X00E8,0X00DB,0X00D0,0X00C2,0X00B7,0X00AF,0X00A4,0X009C |
12094 | dw 0x0126,0x0113,0x0106,0x00F6,0x00E8,0x00DB,0x00D0,0x00C2,0x00B7,0x00AF,0x00A4,0x009C |
12088 | dw 0X0092,0X0089,0X0081,0X007C,0X0074,0X006E,0X0066,0X0061,0X005B,0X0056,0X0051,0X004E |
12095 | dw 0x0092,0x0089,0x0081,0x007C,0x0074,0x006E,0x0066,0x0061,0x005B,0x0056,0x0051,0x004E |
12089 | ;0F |
12096 | ;0F |
12090 | dw 0X48DC,0X44C3,0X40E8,0X3D43,0X39D4,0X3693,0X3383,0X30A1,0X2DE4,0X2B51,0X28E3,0X2698 |
12097 | dw 0x48DC,0x44C3,0x40E8,0x3D43,0x39D4,0x3693,0x3383,0x30A1,0x2DE4,0x2B51,0x28E3,0x2698 |
12091 | dw 0X246E,0X2261,0X2075,0X1EA1,0X1CE8,0X1B4B,0X19C3,0X1850,0X16F3,0X15A9,0X1472,0X134C |
12098 | dw 0x246E,0x2261,0x2075,0x1EA1,0x1CE8,0x1B4B,0x19C3,0x1850,0x16F3,0x15A9,0x1472,0x134C |
12092 | dw 0X1235,0X1132,0X1039,0X0F50,0X0E75,0X0DA5,0X0CE0,0X0C28,0X0B78,0X0AD3,0X0A39,0X09A4 |
12099 | dw 0x1235,0x1132,0x1039,0x0F50,0x0E75,0x0DA5,0x0CE0,0x0C28,0x0B78,0x0AD3,0x0A39,0x09A4 |
12093 | dw 0X091A,0X0899,0X081C,0X07A8,0X0739,0X06D2,0X0671,0X0612,0X05BC,0X056B,0X051C,0X04D3 |
12100 | dw 0x091A,0x0899,0x081C,0x07A8,0x0739,0x06D2,0x0671,0x0612,0x05BC,0x056B,0x051C,0x04D3 |
12094 | dw 0X048D,0X044C,0X040E,0X03D5,0X039C,0X0369,0X0338,0X030A,0X02DF,0X02B4,0X028E,0X0268 |
12101 | dw 0x048D,0x044C,0x040E,0x03D5,0x039C,0x0369,0x0338,0x030A,0x02DF,0x02B4,0x028E,0x0268 |
12095 | dw 0X0248,0X0224,0X0207,0X01E9,0X01CE,0X01B3,0X019B,0X0185,0X016F,0X015A,0X0147,0X0134 |
12102 | dw 0x0248,0x0224,0x0207,0x01E9,0x01CE,0x01B3,0x019B,0x0185,0x016F,0x015A,0x0147,0x0134 |
12096 | dw 0X0124,0X0113,0X0103,0X00F6,0X00E8,0X00DB,0X00CD,0X00C2,0X00B7,0X00AD,0X00A2,0X009A |
12103 | dw 0x0124,0x0113,0x0103,0x00F6,0x00E8,0x00DB,0x00CD,0x00C2,0x00B7,0x00AD,0x00A2,0x009A |
12097 | dw 0X0092,0X0089,0X0081,0X0079,0X0074,0X006C,0X0066,0X0061,0X005B,0X0056,0X0051,0X004E |
12104 | dw 0x0092,0x0089,0x0081,0x0079,0x0074,0x006C,0x0066,0x0061,0x005B,0x0056,0x0051,0x004E |
12098 | 12105 | ||
12099 | ;INCLUDE "_AMFRQTB.a80" |
12106 | ;INCLUDE "_AMFRQTB.a80" |
12100 | AMFRQTB ;EQU 0XEC00 |
12107 | AMFRQTB ;EQU 0xEC00 |
12101 | ;00 |
12108 | ;00 |
12102 | dw 0X1AC0,0X1940,0X17D5,0X167E,0X153B,0X140A,0X12EA,0X11DA,0X10DA,0X0FE8,0X0F03,0X0E2C |
12109 | dw 0x1AC0,0x1940,0x17D5,0x167E,0x153B,0x140A,0x12EA,0x11DA,0x10DA,0x0FE8,0x0F03,0x0E2C |
12103 | dw 0X0D60,0X0CA0,0X0BEA,0X0B3F,0X0A9E,0X0A05,0X0975,0X08ED,0X086D,0X07F4,0X0782,0X0716 |
12110 | dw 0x0D60,0x0CA0,0x0BEA,0x0B3F,0x0A9E,0x0A05,0x0975,0x08ED,0x086D,0x07F4,0x0782,0x0716 |
12104 | dw 0X06B0,0X0650,0X05F5,0X05A0,0X054F,0X0503,0X04BB,0X0477,0X0436,0X03FA,0X03C1,0X038B |
12111 | dw 0x06B0,0x0650,0x05F5,0x05A0,0x054F,0x0503,0x04BB,0x0477,0x0436,0x03FA,0x03C1,0x038B |
12105 | dw 0X0358,0X0328,0X02FB,0X02D0,0X02A7,0X0281,0X025D,0X023B,0X021B,0X01FD,0X01E0,0X01C5 |
12112 | dw 0x0358,0x0328,0x02FB,0x02D0,0x02A7,0x0281,0x025D,0x023B,0x021B,0x01FD,0x01E0,0x01C5 |
12106 | dw 0X01AC,0X0194,0X017D,0X0168,0X0154,0X0141,0X012F,0X011E,0X010E,0X00FE,0X00F0,0X00E3 |
12113 | dw 0x01AC,0x0194,0x017D,0x0168,0x0154,0x0141,0x012F,0x011E,0x010E,0x00FE,0x00F0,0x00E3 |
12107 | dw 0X00D6,0X00CA,0X00BF,0X00B4,0X00AA,0X00A0,0X0097,0X008F,0X0087,0X007F,0X0078,0X0071 |
12114 | dw 0x00D6,0x00CA,0x00BF,0x00B4,0x00AA,0x00A0,0x0097,0x008F,0x0087,0x007F,0x0078,0x0071 |
12108 | dw 0X006B,0X0065,0X005F,0X005A,0X0055,0X0050,0X004C,0X0047,0X0043,0X0040,0X003C,0X0039 |
12115 | dw 0x006B,0x0065,0x005F,0x005A,0x0055,0x0050,0x004C,0x0047,0x0043,0x0040,0x003C,0x0039 |
12109 | dw 0X0036,0X0032,0X0030,0X002D,0X002A,0X0028,0X0026,0X0024,0X0022,0X0020,0X001E,0X001C |
12116 | dw 0x0036,0x0032,0x0030,0x002D,0x002A,0x0028,0x0026,0x0024,0x0022,0x0020,0x001E,0x001C |
12110 | ;01 |
12117 | ;01 |
12111 | dw 0X1A8F,0X1911,0X17A9,0X1655,0X1514,0X13E5,0X12C7,0X11BA,0X10BB,0X0FCB,0X0EE8,0X0E12 |
12118 | dw 0x1A8F,0x1911,0x17A9,0x1655,0x1514,0x13E5,0x12C7,0x11BA,0x10BB,0x0FCB,0x0EE8,0x0E12 |
12112 | dw 0X0D47,0X0C89,0X0BD4,0X0B2B,0X0A8A,0X09F3,0X0964,0X08DD,0X085D,0X07E5,0X0774,0X0709 |
12119 | dw 0x0D47,0x0C89,0x0BD4,0x0B2B,0x0A8A,0x09F3,0x0964,0x08DD,0x085D,0x07E5,0x0774,0x0709 |
12113 | dw 0X06A4,0X0644,0X05EA,0X0595,0X0545,0X04F9,0X04B2,0X046E,0X042F,0X03F3,0X03BA,0X0384 |
12120 | dw 0x06A4,0x0644,0x05EA,0x0595,0x0545,0x04F9,0x04B2,0x046E,0x042F,0x03F3,0x03BA,0x0384 |
12114 | dw 0X0352,0X0322,0X02F5,0X02CB,0X02A3,0X027D,0X0259,0X0237,0X0217,0X01F9,0X01DD,0X01C2 |
12121 | dw 0x0352,0x0322,0x02F5,0x02CB,0x02A3,0x027D,0x0259,0x0237,0x0217,0x01F9,0x01DD,0x01C2 |
12115 | dw 0X01A9,0X0191,0X017B,0X0165,0X0151,0X013E,0X012C,0X011C,0X010C,0X00FD,0X00EE,0X00E1 |
12122 | dw 0x01A9,0x0191,0x017B,0x0165,0x0151,0x013E,0x012C,0x011C,0x010C,0x00FD,0x00EE,0x00E1 |
12116 | dw 0X00D4,0X00C9,0X00BD,0X00B3,0X00A9,0X009F,0X0096,0X008E,0X0086,0X007E,0X0077,0X0071 |
12123 | dw 0x00D4,0x00C9,0x00BD,0x00B3,0x00A9,0x009F,0x0096,0x008E,0x0086,0x007E,0x0077,0x0071 |
12117 | dw 0X006A,0X0064,0X005F,0X0059,0X0054,0X0050,0X004B,0X0047,0X0043,0X003F,0X003C,0X0038 |
12124 | dw 0x006A,0x0064,0x005F,0x0059,0x0054,0x0050,0x004B,0x0047,0x0043,0x003F,0x003C,0x0038 |
12118 | dw 0X0035,0X0032,0X002F,0X002D,0X002A,0X0028,0X0026,0X0023,0X0021,0X0020,0X001E,0X001C |
12125 | dw 0x0035,0x0032,0x002F,0x002D,0x002A,0x0028,0x0026,0x0023,0x0021,0x0020,0x001E,0x001C |
12119 | ;02 |
12126 | ;02 |
12120 | dw 0X1A5E,0X18E3,0X177D,0X162C,0X14ED,0X13C1,0X12A5,0X1199,0X109C,0X0FAD,0X0ECC,0X0DF8 |
12127 | dw 0x1A5E,0x18E3,0x177D,0x162C,0x14ED,0x13C1,0x12A5,0x1199,0x109C,0x0FAD,0x0ECC,0x0DF8 |
12121 | dw 0X0D2F,0X0C71,0X0BBF,0X0B16,0X0A77,0X09E0,0X0952,0X08CC,0X084E,0X07D7,0X0766,0X06FC |
12128 | dw 0x0D2F,0x0C71,0x0BBF,0x0B16,0x0A77,0x09E0,0x0952,0x08CC,0x084E,0x07D7,0x0766,0x06FC |
12122 | dw 0X0697,0X0639,0X05DF,0X058B,0X053B,0X04F0,0X04A9,0X0466,0X0427,0X03EB,0X03B3,0X037E |
12129 | dw 0x0697,0x0639,0x05DF,0x058B,0x053B,0x04F0,0x04A9,0x0466,0x0427,0x03EB,0x03B3,0x037E |
12123 | dw 0X034C,0X031C,0X02F0,0X02C5,0X029E,0X0278,0X0255,0X0233,0X0214,0X01F6,0X01DA,0X01BF |
12130 | dw 0x034C,0x031C,0x02F0,0x02C5,0x029E,0x0278,0x0255,0x0233,0x0214,0x01F6,0x01DA,0x01BF |
12124 | dw 0X01A6,0X018E,0X0178,0X0163,0X014F,0X013C,0X012A,0X011A,0X010A,0X00FB,0X00ED,0X00DF |
12131 | dw 0x01A6,0x018E,0x0178,0x0163,0x014F,0x013C,0x012A,0x011A,0x010A,0x00FB,0x00ED,0x00DF |
12125 | dw 0X00D3,0X00C7,0X00BC,0X00B1,0X00A7,0X009E,0X0095,0X008D,0X0085,0X007D,0X0076,0X0070 |
12132 | dw 0x00D3,0x00C7,0x00BC,0x00B1,0x00A7,0x009E,0x0095,0x008D,0x0085,0x007D,0x0076,0x0070 |
12126 | dw 0X0069,0X0064,0X005E,0X0059,0X0054,0X004F,0X004B,0X0046,0X0042,0X003F,0X003B,0X0038 |
12133 | dw 0x0069,0x0064,0x005E,0x0059,0x0054,0x004F,0x004B,0x0046,0x0042,0x003F,0x003B,0x0038 |
12127 | dw 0X0035,0X0032,0X002F,0X002C,0X002A,0X0028,0X0025,0X0023,0X0021,0X001F,0X001E,0X001C |
12134 | dw 0x0035,0x0032,0x002F,0x002C,0x002A,0x0028,0x0025,0x0023,0x0021,0x001F,0x001E,0x001C |
12128 | ;03 |
12135 | ;03 |
12129 | dw 0X1A2D,0X18B5,0X1752,0X1603,0X14C7,0X139C,0X1283,0X1179,0X107E,0X0F91,0X0EB1,0X0DDE |
12136 | dw 0x1A2D,0x18B5,0x1752,0x1603,0x14C7,0x139C,0x1283,0x1179,0x107E,0x0F91,0x0EB1,0x0DDE |
12130 | dw 0X0D17,0X0C5B,0X0BA9,0X0B02,0X0A63,0X09CE,0X0941,0X08BC,0X083F,0X07C8,0X0758,0X06EF |
12137 | dw 0x0D17,0x0C5B,0x0BA9,0x0B02,0x0A63,0x09CE,0x0941,0x08BC,0x083F,0x07C8,0x0758,0x06EF |
12131 | dw 0X068B,0X062D,0X05D5,0X0581,0X0532,0X04E7,0X04A1,0X045E,0X041F,0X03E4,0X03AC,0X0377 |
12138 | dw 0x068B,0x062D,0x05D5,0x0581,0x0532,0x04E7,0x04A1,0x045E,0x041F,0x03E4,0x03AC,0x0377 |
12132 | dw 0X0346,0X0317,0X02EA,0X02C0,0X0299,0X0274,0X0250,0X022F,0X0210,0X01F2,0X01D6,0X01BC |
12139 | dw 0x0346,0x0317,0x02EA,0x02C0,0x0299,0x0274,0x0250,0x022F,0x0210,0x01F2,0x01D6,0x01BC |
12133 | dw 0X01A3,0X018B,0X0175,0X0160,0X014C,0X013A,0X0128,0X0118,0X0108,0X00F9,0X00EB,0X00DE |
12140 | dw 0x01A3,0x018B,0x0175,0x0160,0x014C,0x013A,0x0128,0x0118,0x0108,0x00F9,0x00EB,0x00DE |
12134 | dw 0X00D1,0X00C6,0X00BB,0X00B0,0X00A6,0X009D,0X0094,0X008C,0X0084,0X007D,0X0076,0X006F |
12141 | dw 0x00D1,0x00C6,0x00BB,0x00B0,0x00A6,0x009D,0x0094,0x008C,0x0084,0x007D,0x0076,0x006F |
12135 | dw 0X0069,0X0063,0X005D,0X0058,0X0053,0X004E,0X004A,0X0046,0X0042,0X003E,0X003B,0X0037 |
12142 | dw 0x0069,0x0063,0x005D,0x0058,0x0053,0x004E,0x004A,0x0046,0x0042,0x003E,0x003B,0x0037 |
12136 | dw 0X0034,0X0031,0X002F,0X002C,0X002A,0X0027,0X0025,0X0023,0X0021,0X001F,0X001D,0X001C |
12143 | dw 0x0034,0x0031,0x002F,0x002C,0x002A,0x0027,0x0025,0x0023,0x0021,0x001F,0x001D,0x001C |
12137 | ;04 |
12144 | ;04 |
12138 | dw 0X19FD,0X1888,0X1727,0X15DB,0X14A1,0X1378,0X1260,0X1158,0X105F,0X0F74,0X0E96,0X0DC4 |
12145 | dw 0x19FD,0x1888,0x1727,0x15DB,0x14A1,0x1378,0x1260,0x1158,0x105F,0x0F74,0x0E96,0x0DC4 |
12139 | dw 0X0CFF,0X0C44,0X0B94,0X0AED,0X0A50,0X09BC,0X0930,0X08AC,0X0830,0X07BA,0X074B,0X06E2 |
12146 | dw 0x0CFF,0x0C44,0x0B94,0x0AED,0x0A50,0x09BC,0x0930,0x08AC,0x0830,0x07BA,0x074B,0x06E2 |
12140 | dw 0X067F,0X0622,0X05CA,0X0577,0X0528,0X04DE,0X0498,0X0456,0X0418,0X03DD,0X03A5,0X0371 |
12147 | dw 0x067F,0x0622,0x05CA,0x0577,0x0528,0x04DE,0x0498,0x0456,0x0418,0x03DD,0x03A5,0x0371 |
12141 | dw 0X0340,0X0311,0X02E5,0X02BB,0X0294,0X026F,0X024C,0X022B,0X020C,0X01EE,0X01D3,0X01B9 |
12148 | dw 0x0340,0x0311,0x02E5,0x02BB,0x0294,0x026F,0x024C,0x022B,0x020C,0x01EE,0x01D3,0x01B9 |
12142 | dw 0X01A0,0X0188,0X0172,0X015E,0X014A,0X0138,0X0126,0X0116,0X0106,0X00F7,0X00E9,0X00DC |
12149 | dw 0x01A0,0x0188,0x0172,0x015E,0x014A,0x0138,0x0126,0x0116,0x0106,0x00F7,0x00E9,0x00DC |
12143 | dw 0X00D0,0X00C4,0X00B9,0X00AF,0X00A5,0X009C,0X0093,0X008B,0X0083,0X007C,0X0075,0X006E |
12150 | dw 0x00D0,0x00C4,0x00B9,0x00AF,0x00A5,0x009C,0x0093,0x008B,0x0083,0x007C,0x0075,0x006E |
12144 | dw 0X0068,0X0062,0X005D,0X0057,0X0053,0X004E,0X004A,0X0045,0X0041,0X003E,0X003A,0X0037 |
12151 | dw 0x0068,0x0062,0x005D,0x0057,0x0053,0x004E,0x004A,0x0045,0x0041,0x003E,0x003A,0x0037 |
12145 | dw 0X0034,0X0031,0X002E,0X002C,0X0029,0X0027,0X0025,0X0023,0X0021,0X001F,0X001D,0X001C |
12152 | dw 0x0034,0x0031,0x002E,0x002C,0x0029,0x0027,0x0025,0x0023,0x0021,0x001F,0x001D,0x001C |
12146 | ;05 |
12153 | ;05 |
12147 | dw 0X19CD,0X185A,0X16FD,0X15B2,0X147B,0X1354,0X123F,0X1138,0X1041,0X0F57,0X0E7B,0X0DAB |
12154 | dw 0x19CD,0x185A,0x16FD,0x15B2,0x147B,0x1354,0x123F,0x1138,0x1041,0x0F57,0x0E7B,0x0DAB |
12148 | dw 0X0CE7,0X0C2D,0X0B7E,0X0AD9,0X0A3D,0X09AA,0X091F,0X089C,0X0821,0X07AC,0X073E,0X06D5 |
12155 | dw 0x0CE7,0x0C2D,0x0B7E,0x0AD9,0x0A3D,0x09AA,0x091F,0x089C,0x0821,0x07AC,0x073E,0x06D5 |
12149 | dw 0X0673,0X0617,0X05BF,0X056D,0X051F,0X04D5,0X0490,0X044E,0X0410,0X03D6,0X039F,0X036B |
12156 | dw 0x0673,0x0617,0x05BF,0x056D,0x051F,0x04D5,0x0490,0x044E,0x0410,0x03D6,0x039F,0x036B |
12150 | dw 0X033A,0X030B,0X02E0,0X02B6,0X028F,0X026B,0X0248,0X0227,0X0208,0X01EB,0X01CF,0X01B5 |
12157 | dw 0x033A,0x030B,0x02E0,0x02B6,0x028F,0x026B,0x0248,0x0227,0x0208,0x01EB,0x01CF,0x01B5 |
12151 | dw 0X019D,0X0186,0X0170,0X015B,0X0148,0X0135,0X0124,0X0114,0X0104,0X00F5,0X00E8,0X00DB |
12158 | dw 0x019D,0x0186,0x0170,0x015B,0x0148,0x0135,0x0124,0x0114,0x0104,0x00F5,0x00E8,0x00DB |
12152 | dw 0X00CE,0X00C3,0X00B8,0X00AE,0X00A4,0X009B,0X0092,0X008A,0X0082,0X007B,0X0074,0X006D |
12159 | dw 0x00CE,0x00C3,0x00B8,0x00AE,0x00A4,0x009B,0x0092,0x008A,0x0082,0x007B,0x0074,0x006D |
12153 | dw 0X0067,0X0061,0X005C,0X0057,0X0052,0X004D,0X0049,0X0045,0X0041,0X003D,0X003A,0X0037 |
12160 | dw 0x0067,0x0061,0x005C,0x0057,0x0052,0x004D,0x0049,0x0045,0x0041,0x003D,0x003A,0x0037 |
12154 | dw 0X0034,0X0031,0X002E,0X002B,0X0029,0X0027,0X0024,0X0022,0X0021,0X001F,0X001D,0X001B |
12161 | dw 0x0034,0x0031,0x002E,0x002B,0x0029,0x0027,0x0024,0x0022,0x0021,0x001F,0x001D,0x001B |
12155 | ;06 |
12162 | ;06 |
12156 | dw 0X199E,0X182E,0X16D2,0X158A,0X1455,0X1331,0X121D,0X1119,0X1023,0X0F3B,0X0E60,0X0D92 |
12163 | dw 0x199E,0x182E,0x16D2,0x158A,0x1455,0x1331,0x121D,0x1119,0x1023,0x0F3B,0x0E60,0x0D92 |
12157 | dw 0X0CCF,0X0C17,0X0B69,0X0AC5,0X0A2A,0X0998,0X090E,0X088C,0X0812,0X079E,0X0730,0X06C9 |
12164 | dw 0x0CCF,0x0C17,0x0B69,0x0AC5,0x0A2A,0x0998,0x090E,0x088C,0x0812,0x079E,0x0730,0x06C9 |
12158 | dw 0X0667,0X060B,0X05B5,0X0563,0X0515,0X04CC,0X0487,0X0446,0X0409,0X03CF,0X0398,0X0364 |
12165 | dw 0x0667,0x060B,0x05B5,0x0563,0x0515,0x04CC,0x0487,0x0446,0x0409,0x03CF,0x0398,0x0364 |
12159 | dw 0X0334,0X0306,0X02DA,0X02B1,0X028B,0X0266,0X0244,0X0223,0X0204,0X01E7,0X01CC,0X01B2 |
12166 | dw 0x0334,0x0306,0x02DA,0x02B1,0x028B,0x0266,0x0244,0x0223,0x0204,0x01E7,0x01CC,0x01B2 |
12160 | dw 0X019A,0X0183,0X016D,0X0159,0X0145,0X0133,0X0122,0X0112,0X0102,0X00F4,0X00E6,0X00D9 |
12167 | dw 0x019A,0x0183,0x016D,0x0159,0x0145,0x0133,0x0122,0x0112,0x0102,0x00F4,0x00E6,0x00D9 |
12161 | dw 0X00CD,0X00C1,0X00B7,0X00AC,0X00A3,0X009A,0X0091,0X0089,0X0081,0X007A,0X0073,0X006D |
12168 | dw 0x00CD,0x00C1,0x00B7,0x00AC,0x00A3,0x009A,0x0091,0x0089,0x0081,0x007A,0x0073,0x006D |
12162 | dw 0X0066,0X0061,0X005B,0X0056,0X0051,0X004D,0X0048,0X0044,0X0041,0X003D,0X003A,0X0036 |
12169 | dw 0x0066,0x0061,0x005B,0x0056,0x0051,0x004D,0x0048,0x0044,0x0041,0x003D,0x003A,0x0036 |
12163 | dw 0X0033,0X0030,0X002E,0X002B,0X0029,0X0026,0X0024,0X0022,0X0020,0X001E,0X001D,0X001B |
12170 | dw 0x0033,0x0030,0x002E,0x002B,0x0029,0x0026,0x0024,0x0022,0x0020,0x001E,0x001D,0x001B |
12164 | ;07 |
12171 | ;07 |
12165 | dw 0X196E,0X1801,0X16A8,0X1563,0X142F,0X130D,0X11FC,0X10F9,0X1005,0X0F1F,0X0E46,0X0D79 |
12172 | dw 0x196E,0x1801,0x16A8,0x1563,0x142F,0x130D,0x11FC,0x10F9,0x1005,0x0F1F,0x0E46,0x0D79 |
12166 | dw 0X0CB7,0X0C01,0X0B54,0X0AB1,0X0A18,0X0987,0X08FE,0X087D,0X0803,0X0790,0X0723,0X06BC |
12173 | dw 0x0CB7,0x0C01,0x0B54,0x0AB1,0x0A18,0x0987,0x08FE,0x087D,0x0803,0x0790,0x0723,0x06BC |
12167 | dw 0X065C,0X0600,0X05AA,0X0559,0X050C,0X04C3,0X047F,0X043E,0X0401,0X03C8,0X0391,0X035E |
12174 | dw 0x065C,0x0600,0x05AA,0x0559,0x050C,0x04C3,0x047F,0x043E,0x0401,0x03C8,0x0391,0x035E |
12168 | dw 0X032E,0X0300,0X02D5,0X02AC,0X0286,0X0262,0X023F,0X021F,0X0201,0X01E4,0X01C9,0X01AF |
12175 | dw 0x032E,0x0300,0x02D5,0x02AC,0x0286,0x0262,0x023F,0x021F,0x0201,0x01E4,0x01C9,0x01AF |
12169 | dw 0X0197,0X0180,0X016B,0X0156,0X0143,0X0131,0X0120,0X0110,0X0100,0X00F2,0X00E4,0X00D8 |
12176 | dw 0x0197,0x0180,0x016B,0x0156,0x0143,0x0131,0x0120,0x0110,0x0100,0x00F2,0x00E4,0x00D8 |
12170 | dw 0X00CB,0X00C0,0X00B5,0X00AB,0X00A1,0X0098,0X0090,0X0088,0X0080,0X0079,0X0072,0X006C |
12177 | dw 0x00CB,0x00C0,0x00B5,0x00AB,0x00A1,0x0098,0x0090,0x0088,0x0080,0x0079,0x0072,0x006C |
12171 | dw 0X0066,0X0060,0X005B,0X0056,0X0051,0X004C,0X0048,0X0044,0X0040,0X003C,0X0039,0X0036 |
12178 | dw 0x0066,0x0060,0x005B,0x0056,0x0051,0x004C,0x0048,0x0044,0x0040,0x003C,0x0039,0x0036 |
12172 | dw 0X0033,0X0030,0X002D,0X002B,0X0028,0X0026,0X0024,0X0022,0X0020,0X001E,0X001D,0X001B |
12179 | dw 0x0033,0x0030,0x002D,0x002B,0x0028,0x0026,0x0024,0x0022,0x0020,0x001E,0x001D,0x001B |
12173 | ;08 |
12180 | ;08 |
12174 | dw 0X1C57,0X1AC0,0X1940,0X17D5,0X167E,0X153B,0X140A,0X12EA,0X11DA,0X10DA,0X0FE8,0X0F03 |
12181 | dw 0x1C57,0x1AC0,0x1940,0x17D5,0x167E,0x153B,0x140A,0x12EA,0x11DA,0x10DA,0x0FE8,0x0F03 |
12175 | dw 0X0E2C,0X0D60,0X0CA0,0X0BEA,0X0B3F,0X0A9E,0X0A05,0X0975,0X08ED,0X086D,0X07F4,0X0782 |
12182 | dw 0x0E2C,0x0D60,0x0CA0,0x0BEA,0x0B3F,0x0A9E,0x0A05,0x0975,0x08ED,0x086D,0x07F4,0x0782 |
12176 | dw 0X0716,0X06B0,0X0650,0X05F5,0X05A0,0X054F,0X0503,0X04BB,0X0477,0X0436,0X03FA,0X03C1 |
12183 | dw 0x0716,0x06B0,0x0650,0x05F5,0x05A0,0x054F,0x0503,0x04BB,0x0477,0x0436,0x03FA,0x03C1 |
12177 | dw 0X038B,0X0358,0X0328,0X02FB,0X02D0,0X02A7,0X0281,0X025D,0X023B,0X021B,0X01FD,0X01E0 |
12184 | dw 0x038B,0x0358,0x0328,0x02FB,0x02D0,0x02A7,0x0281,0x025D,0x023B,0x021B,0x01FD,0x01E0 |
12178 | dw 0X01C5,0X01AC,0X0194,0X017D,0X0168,0X0154,0X0141,0X012F,0X011E,0X010E,0X00FE,0X00F0 |
12185 | dw 0x01C5,0x01AC,0x0194,0x017D,0x0168,0x0154,0x0141,0x012F,0x011E,0x010E,0x00FE,0x00F0 |
12179 | dw 0X00E3,0X00D6,0X00CA,0X00BF,0X00B4,0X00AA,0X00A0,0X0097,0X008F,0X0087,0X007F,0X0078 |
12186 | dw 0x00E3,0x00D6,0x00CA,0x00BF,0x00B4,0x00AA,0x00A0,0x0097,0x008F,0x0087,0x007F,0x0078 |
12180 | dw 0X0071,0X006B,0X0065,0X005F,0X005A,0X0055,0X0050,0X004C,0X0047,0X0043,0X0040,0X003C |
12187 | dw 0x0071,0x006B,0x0065,0x005F,0x005A,0x0055,0x0050,0x004C,0x0047,0x0043,0x0040,0x003C |
12181 | dw 0X0039,0X0036,0X0032,0X0030,0X002D,0X002A,0X0028,0X0026,0X0024,0X0022,0X0020,0X001E |
12188 | dw 0x0039,0x0036,0x0032,0x0030,0x002D,0x002A,0x0028,0x0026,0x0024,0x0022,0x0020,0x001E |
12182 | ;09 |
12189 | ;09 |
12183 | dw 0X1C23,0X1A8F,0X1911,0X17A9,0X1655,0X1514,0X13E5,0X12C7,0X11BA,0X10BB,0X0FCB,0X0EE8 |
12190 | dw 0x1C23,0x1A8F,0x1911,0x17A9,0x1655,0x1514,0x13E5,0x12C7,0x11BA,0x10BB,0x0FCB,0x0EE8 |
12184 | dw 0X0E12,0X0D47,0X0C89,0X0BD4,0X0B2B,0X0A8A,0X09F3,0X0964,0X08DD,0X085D,0X07E5,0X0774 |
12191 | dw 0x0E12,0x0D47,0x0C89,0x0BD4,0x0B2B,0x0A8A,0x09F3,0x0964,0x08DD,0x085D,0x07E5,0x0774 |
12185 | dw 0X0709,0X06A4,0X0644,0X05EA,0X0595,0X0545,0X04F9,0X04B2,0X046E,0X042F,0X03F3,0X03BA |
12192 | dw 0x0709,0x06A4,0x0644,0x05EA,0x0595,0x0545,0x04F9,0x04B2,0x046E,0x042F,0x03F3,0x03BA |
12186 | dw 0X0384,0X0352,0X0322,0X02F5,0X02CB,0X02A3,0X027D,0X0259,0X0237,0X0217,0X01F9,0X01DD |
12193 | dw 0x0384,0x0352,0x0322,0x02F5,0x02CB,0x02A3,0x027D,0x0259,0x0237,0x0217,0x01F9,0x01DD |
12187 | dw 0X01C2,0X01A9,0X0191,0X017B,0X0165,0X0151,0X013E,0X012C,0X011C,0X010C,0X00FD,0X00EE |
12194 | dw 0x01C2,0x01A9,0x0191,0x017B,0x0165,0x0151,0x013E,0x012C,0x011C,0x010C,0x00FD,0x00EE |
12188 | dw 0X00E1,0X00D4,0X00C9,0X00BD,0X00B3,0X00A9,0X009F,0X0096,0X008E,0X0086,0X007E,0X0077 |
12195 | dw 0x00E1,0x00D4,0x00C9,0x00BD,0x00B3,0x00A9,0x009F,0x0096,0x008E,0x0086,0x007E,0x0077 |
12189 | dw 0X0071,0X006A,0X0064,0X005F,0X0059,0X0054,0X0050,0X004B,0X0047,0X0043,0X003F,0X003C |
12196 | dw 0x0071,0x006A,0x0064,0x005F,0x0059,0x0054,0x0050,0x004B,0x0047,0x0043,0x003F,0x003C |
12190 | dw 0X0038,0X0035,0X0032,0X002F,0X002D,0X002A,0X0028,0X0026,0X0023,0X0021,0X0020,0X001E |
12197 | dw 0x0038,0x0035,0x0032,0x002F,0x002D,0x002A,0x0028,0x0026,0x0023,0x0021,0x0020,0x001E |
12191 | ;0A |
12198 | ;0A |
12192 | dw 0X1BEF,0X1A5E,0X18E3,0X177D,0X162C,0X14ED,0X13C1,0X12A5,0X1199,0X109C,0X0FAD,0X0ECC |
12199 | dw 0x1BEF,0x1A5E,0x18E3,0x177D,0x162C,0x14ED,0x13C1,0x12A5,0x1199,0x109C,0x0FAD,0x0ECC |
12193 | dw 0X0DF8,0X0D2F,0X0C71,0X0BBF,0X0B16,0X0A77,0X09E0,0X0952,0X08CC,0X084E,0X07D7,0X0766 |
12200 | dw 0x0DF8,0x0D2F,0x0C71,0x0BBF,0x0B16,0x0A77,0x09E0,0x0952,0x08CC,0x084E,0x07D7,0x0766 |
12194 | dw 0X06FC,0X0697,0X0639,0X05DF,0X058B,0X053B,0X04F0,0X04A9,0X0466,0X0427,0X03EB,0X03B3 |
12201 | dw 0x06FC,0x0697,0x0639,0x05DF,0x058B,0x053B,0x04F0,0x04A9,0x0466,0x0427,0x03EB,0x03B3 |
12195 | dw 0X037E,0X034C,0X031C,0X02F0,0X02C5,0X029E,0X0278,0X0255,0X0233,0X0214,0X01F6,0X01DA |
12202 | dw 0x037E,0x034C,0x031C,0x02F0,0x02C5,0x029E,0x0278,0x0255,0x0233,0x0214,0x01F6,0x01DA |
12196 | dw 0X01BF,0X01A6,0X018E,0X0178,0X0163,0X014F,0X013C,0X012A,0X011A,0X010A,0X00FB,0X00ED |
12203 | dw 0x01BF,0x01A6,0x018E,0x0178,0x0163,0x014F,0x013C,0x012A,0x011A,0x010A,0x00FB,0x00ED |
12197 | dw 0X00DF,0X00D3,0X00C7,0X00BC,0X00B1,0X00A7,0X009E,0X0095,0X008D,0X0085,0X007D,0X0076 |
12204 | dw 0x00DF,0x00D3,0x00C7,0x00BC,0x00B1,0x00A7,0x009E,0x0095,0x008D,0x0085,0x007D,0x0076 |
12198 | dw 0X0070,0X0069,0X0064,0X005E,0X0059,0X0054,0X004F,0X004B,0X0046,0X0042,0X003F,0X003B |
12205 | dw 0x0070,0x0069,0x0064,0x005E,0x0059,0x0054,0x004F,0x004B,0x0046,0x0042,0x003F,0x003B |
12199 | dw 0X0038,0X0035,0X0032,0X002F,0X002C,0X002A,0X0028,0X0025,0X0023,0X0021,0X001F,0X001E |
12206 | dw 0x0038,0x0035,0x0032,0x002F,0x002C,0x002A,0x0028,0x0025,0x0023,0x0021,0x001F,0x001E |
12200 | ;0B |
12207 | ;0B |
12201 | dw 0X1BBC,0X1A2D,0X18B5,0X1752,0X1603,0X14C7,0X139C,0X1283,0X1179,0X107E,0X0F91,0X0EB1 |
12208 | dw 0x1BBC,0x1A2D,0x18B5,0x1752,0x1603,0x14C7,0x139C,0x1283,0x1179,0x107E,0x0F91,0x0EB1 |
12202 | dw 0X0DDE,0X0D17,0X0C5B,0X0BA9,0X0B02,0X0A63,0X09CE,0X0941,0X08BC,0X083F,0X07C8,0X0758 |
12209 | dw 0x0DDE,0x0D17,0x0C5B,0x0BA9,0x0B02,0x0A63,0x09CE,0x0941,0x08BC,0x083F,0x07C8,0x0758 |
12203 | dw 0X06EF,0X068B,0X062D,0X05D5,0X0581,0X0532,0X04E7,0X04A1,0X045E,0X041F,0X03E4,0X03AC |
12210 | dw 0x06EF,0x068B,0x062D,0x05D5,0x0581,0x0532,0x04E7,0x04A1,0x045E,0x041F,0x03E4,0x03AC |
12204 | dw 0X0377,0X0346,0X0317,0X02EA,0X02C0,0X0299,0X0274,0X0250,0X022F,0X0210,0X01F2,0X01D6 |
12211 | dw 0x0377,0x0346,0x0317,0x02EA,0x02C0,0x0299,0x0274,0x0250,0x022F,0x0210,0x01F2,0x01D6 |
12205 | dw 0X01BC,0X01A3,0X018B,0X0175,0X0160,0X014C,0X013A,0X0128,0X0118,0X0108,0X00F9,0X00EB |
12212 | dw 0x01BC,0x01A3,0x018B,0x0175,0x0160,0x014C,0x013A,0x0128,0x0118,0x0108,0x00F9,0x00EB |
12206 | dw 0X00DE,0X00D1,0X00C6,0X00BB,0X00B0,0X00A6,0X009D,0X0094,0X008C,0X0084,0X007D,0X0076 |
12213 | dw 0x00DE,0x00D1,0x00C6,0x00BB,0x00B0,0x00A6,0x009D,0x0094,0x008C,0x0084,0x007D,0x0076 |
12207 | dw 0X006F,0X0069,0X0063,0X005D,0X0058,0X0053,0X004E,0X004A,0X0046,0X0042,0X003E,0X003B |
12214 | dw 0x006F,0x0069,0x0063,0x005D,0x0058,0x0053,0x004E,0x004A,0x0046,0x0042,0x003E,0x003B |
12208 | dw 0X0037,0X0034,0X0031,0X002F,0X002C,0X002A,0X0027,0X0025,0X0023,0X0021,0X001F,0X001D |
12215 | dw 0x0037,0x0034,0x0031,0x002F,0x002C,0x002A,0x0027,0x0025,0x0023,0x0021,0x001F,0x001D |
12209 | ;0C |
12216 | ;0C |
12210 | dw 0X1B89,0X19FD,0X1888,0X1727,0X15DB,0X14A1,0X1378,0X1260,0X1158,0X105F,0X0F74,0X0E96 |
12217 | dw 0x1B89,0x19FD,0x1888,0x1727,0x15DB,0x14A1,0x1378,0x1260,0x1158,0x105F,0x0F74,0x0E96 |
12211 | dw 0X0DC4,0X0CFF,0X0C44,0X0B94,0X0AED,0X0A50,0X09BC,0X0930,0X08AC,0X0830,0X07BA,0X074B |
12218 | dw 0x0DC4,0x0CFF,0x0C44,0x0B94,0x0AED,0x0A50,0x09BC,0x0930,0x08AC,0x0830,0x07BA,0x074B |
12212 | dw 0X06E2,0X067F,0X0622,0X05CA,0X0577,0X0528,0X04DE,0X0498,0X0456,0X0418,0X03DD,0X03A5 |
12219 | dw 0x06E2,0x067F,0x0622,0x05CA,0x0577,0x0528,0x04DE,0x0498,0x0456,0x0418,0x03DD,0x03A5 |
12213 | dw 0X0371,0X0340,0X0311,0X02E5,0X02BB,0X0294,0X026F,0X024C,0X022B,0X020C,0X01EE,0X01D3 |
12220 | dw 0x0371,0x0340,0x0311,0x02E5,0x02BB,0x0294,0x026F,0x024C,0x022B,0x020C,0x01EE,0x01D3 |
12214 | dw 0X01B9,0X01A0,0X0188,0X0172,0X015E,0X014A,0X0138,0X0126,0X0116,0X0106,0X00F7,0X00E9 |
12221 | dw 0x01B9,0x01A0,0x0188,0x0172,0x015E,0x014A,0x0138,0x0126,0x0116,0x0106,0x00F7,0x00E9 |
12215 | dw 0X00DC,0X00D0,0X00C4,0X00B9,0X00AF,0X00A5,0X009C,0X0093,0X008B,0X0083,0X007C,0X0075 |
12222 | dw 0x00DC,0x00D0,0x00C4,0x00B9,0x00AF,0x00A5,0x009C,0x0093,0x008B,0x0083,0x007C,0x0075 |
12216 | dw 0X006E,0X0068,0X0062,0X005D,0X0057,0X0053,0X004E,0X004A,0X0045,0X0041,0X003E,0X003A |
12223 | dw 0x006E,0x0068,0x0062,0x005D,0x0057,0x0053,0x004E,0x004A,0x0045,0x0041,0x003E,0x003A |
12217 | dw 0X0037,0X0034,0X0031,0X002E,0X002C,0X0029,0X0027,0X0025,0X0023,0X0021,0X001F,0X001D |
12224 | dw 0x0037,0x0034,0x0031,0x002E,0x002C,0x0029,0x0027,0x0025,0x0023,0x0021,0x001F,0x001D |
12218 | ;0D |
12225 | ;0D |
12219 | dw 0X1B56,0X19CD,0X185A,0X16FD,0X15B2,0X147B,0X1354,0X123F,0X1138,0X1041,0X0F57,0X0E7B |
12226 | dw 0x1B56,0x19CD,0x185A,0x16FD,0x15B2,0x147B,0x1354,0x123F,0x1138,0x1041,0x0F57,0x0E7B |
12220 | dw 0X0DAB,0X0CE7,0X0C2D,0X0B7E,0X0AD9,0X0A3D,0X09AA,0X091F,0X089C,0X0821,0X07AC,0X073E |
12227 | dw 0x0DAB,0x0CE7,0x0C2D,0x0B7E,0x0AD9,0x0A3D,0x09AA,0x091F,0x089C,0x0821,0x07AC,0x073E |
12221 | dw 0X06D5,0X0673,0X0617,0X05BF,0X056D,0X051F,0X04D5,0X0490,0X044E,0X0410,0X03D6,0X039F |
12228 | dw 0x06D5,0x0673,0x0617,0x05BF,0x056D,0x051F,0x04D5,0x0490,0x044E,0x0410,0x03D6,0x039F |
12222 | dw 0X036B,0X033A,0X030B,0X02E0,0X02B6,0X028F,0X026B,0X0248,0X0227,0X0208,0X01EB,0X01CF |
12229 | dw 0x036B,0x033A,0x030B,0x02E0,0x02B6,0x028F,0x026B,0x0248,0x0227,0x0208,0x01EB,0x01CF |
12223 | dw 0X01B5,0X019D,0X0186,0X0170,0X015B,0X0148,0X0135,0X0124,0X0114,0X0104,0X00F5,0X00E8 |
12230 | dw 0x01B5,0x019D,0x0186,0x0170,0x015B,0x0148,0x0135,0x0124,0x0114,0x0104,0x00F5,0x00E8 |
12224 | dw 0X00DB,0X00CE,0X00C3,0X00B8,0X00AE,0X00A4,0X009B,0X0092,0X008A,0X0082,0X007B,0X0074 |
12231 | dw 0x00DB,0x00CE,0x00C3,0x00B8,0x00AE,0x00A4,0x009B,0x0092,0x008A,0x0082,0x007B,0x0074 |
12225 | dw 0X006D,0X0067,0X0061,0X005C,0X0057,0X0052,0X004D,0X0049,0X0045,0X0041,0X003D,0X003A |
12232 | dw 0x006D,0x0067,0x0061,0x005C,0x0057,0x0052,0x004D,0x0049,0x0045,0x0041,0x003D,0x003A |
12226 | dw 0X0037,0X0034,0X0031,0X002E,0X002B,0X0029,0X0027,0X0024,0X0022,0X0021,0X001F,0X001D |
12233 | dw 0x0037,0x0034,0x0031,0x002E,0x002B,0x0029,0x0027,0x0024,0x0022,0x0021,0x001F,0x001D |
12227 | ;0E |
12234 | ;0E |
12228 | dw 0X1B24,0X199E,0X182E,0X16D2,0X158A,0X1455,0X1331,0X121D,0X1119,0X1023,0X0F3B,0X0E60 |
12235 | dw 0x1B24,0x199E,0x182E,0x16D2,0x158A,0x1455,0x1331,0x121D,0x1119,0x1023,0x0F3B,0x0E60 |
12229 | dw 0X0D92,0X0CCF,0X0C17,0X0B69,0X0AC5,0X0A2A,0X0998,0X090E,0X088C,0X0812,0X079E,0X0730 |
12236 | dw 0x0D92,0x0CCF,0x0C17,0x0B69,0x0AC5,0x0A2A,0x0998,0x090E,0x088C,0x0812,0x079E,0x0730 |
12230 | dw 0X06C9,0X0667,0X060B,0X05B5,0X0563,0X0515,0X04CC,0X0487,0X0446,0X0409,0X03CF,0X0398 |
12237 | dw 0x06C9,0x0667,0x060B,0x05B5,0x0563,0x0515,0x04CC,0x0487,0x0446,0x0409,0x03CF,0x0398 |
12231 | dw 0X0364,0X0334,0X0306,0X02DA,0X02B1,0X028B,0X0266,0X0244,0X0223,0X0204,0X01E7,0X01CC |
12238 | dw 0x0364,0x0334,0x0306,0x02DA,0x02B1,0x028B,0x0266,0x0244,0x0223,0x0204,0x01E7,0x01CC |
12232 | dw 0X01B2,0X019A,0X0183,0X016D,0X0159,0X0145,0X0133,0X0122,0X0112,0X0102,0X00F4,0X00E6 |
12239 | dw 0x01B2,0x019A,0x0183,0x016D,0x0159,0x0145,0x0133,0x0122,0x0112,0x0102,0x00F4,0x00E6 |
12233 | dw 0X00D9,0X00CD,0X00C1,0X00B7,0X00AC,0X00A3,0X009A,0X0091,0X0089,0X0081,0X007A,0X0073 |
12240 | dw 0x00D9,0x00CD,0x00C1,0x00B7,0x00AC,0x00A3,0x009A,0x0091,0x0089,0x0081,0x007A,0x0073 |
12234 | dw 0X006D,0X0066,0X0061,0X005B,0X0056,0X0051,0X004D,0X0048,0X0044,0X0041,0X003D,0X003A |
12241 | dw 0x006D,0x0066,0x0061,0x005B,0x0056,0x0051,0x004D,0x0048,0x0044,0x0041,0x003D,0x003A |
12235 | dw 0X0036,0X0033,0X0030,0X002E,0X002B,0X0029,0X0026,0X0024,0X0022,0X0020,0X001E,0X001D |
12242 | dw 0x0036,0x0033,0x0030,0x002E,0x002B,0x0029,0x0026,0x0024,0x0022,0x0020,0x001E,0x001D |
12236 | ;0F |
12243 | ;0F |
12237 | dw 0X1AF2,0X196E,0X1801,0X16A8,0X1563,0X142F,0X130D,0X11FC,0X10F9,0X1005,0X0F1F,0X0E46 |
12244 | dw 0x1AF2,0x196E,0x1801,0x16A8,0x1563,0x142F,0x130D,0x11FC,0x10F9,0x1005,0x0F1F,0x0E46 |
12238 | dw 0X0D79,0X0CB7,0X0C01,0X0B54,0X0AB1,0X0A18,0X0987,0X08FE,0X087D,0X0803,0X0790,0X0723 |
12245 | dw 0x0D79,0x0CB7,0x0C01,0x0B54,0x0AB1,0x0A18,0x0987,0x08FE,0x087D,0x0803,0x0790,0x0723 |
12239 | dw 0X06BC,0X065C,0X0600,0X05AA,0X0559,0X050C,0X04C3,0X047F,0X043E,0X0401,0X03C8,0X0391 |
12246 | dw 0x06BC,0x065C,0x0600,0x05AA,0x0559,0x050C,0x04C3,0x047F,0x043E,0x0401,0x03C8,0x0391 |
12240 | dw 0X035E,0X032E,0X0300,0X02D5,0X02AC,0X0286,0X0262,0X023F,0X021F,0X0201,0X01E4,0X01C9 |
12247 | dw 0x035E,0x032E,0x0300,0x02D5,0x02AC,0x0286,0x0262,0x023F,0x021F,0x0201,0x01E4,0x01C9 |
12241 | dw 0X01AF,0X0197,0X0180,0X016B,0X0156,0X0143,0X0131,0X0120,0X0110,0X0100,0X00F2,0X00E4 |
12248 | dw 0x01AF,0x0197,0x0180,0x016B,0x0156,0x0143,0x0131,0x0120,0x0110,0x0100,0x00F2,0x00E4 |
12242 | dw 0X00D8,0X00CB,0X00C0,0X00B5,0X00AB,0X00A1,0X0098,0X0090,0X0088,0X0080,0X0079,0X0072 |
12249 | dw 0x00D8,0x00CB,0x00C0,0x00B5,0x00AB,0x00A1,0x0098,0x0090,0x0088,0x0080,0x0079,0x0072 |
12243 | dw 0X006C,0X0066,0X0060,0X005B,0X0056,0X0051,0X004C,0X0048,0X0044,0X0040,0X003C,0X0039 |
12250 | dw 0x006C,0x0066,0x0060,0x005B,0x0056,0x0051,0x004C,0x0048,0x0044,0x0040,0x003C,0x0039 |
12244 | dw 0X0036,0X0033,0X0030,0X002D,0X002B,0X0028,0X0026,0X0024,0X0022,0X0020,0X001E,0X001D |
12251 | dw 0x0036,0x0033,0x0030,0x002D,0x002B,0x0028,0x0026,0x0024,0x0022,0x0020,0x001E,0x001D |
12245 | 12252 | ||
12246 | ;INCLUDE "_AMTOGS.a80" ;patched |
12253 | ;INCLUDE "_AMTOGS.a80" ;patched |
12247 | ;AMTOGS ;EQU 0XF800 |
12254 | ;AMTOGS ;EQU 0xF800 |
12248 | dw 0X0000,0X0003,0X0005,0X0008,0X000B,0X000E,0X0010,0X0013 |
12255 | dw 0x0000,0x0003,0x0005,0x0008,0x000B,0x000E,0x0010,0x0013 |
12249 | dw 0X0016,0X0018,0X001B,0X001E,0X0020,0X0023,0X0026,0X0029 |
12256 | dw 0x0016,0x0018,0x001B,0x001E,0x0020,0x0023,0x0026,0x0029 |
12250 | dw 0X002B,0X002E,0X0031,0X0033,0X0036,0X0039,0X003B,0X003E |
12257 | dw 0x002B,0x002E,0x0031,0x0033,0x0036,0x0039,0x003B,0x003E |
12251 | dw 0X0041,0X0044,0X0046,0X0049,0X004C,0X004E,0X0051,0X0054 |
12258 | dw 0x0041,0x0044,0x0046,0x0049,0x004C,0x004E,0x0051,0x0054 |
12252 | dw 0X0057,0X0059,0X005C,0X005F,0X0061,0X0064,0X0067,0X0069 |
12259 | dw 0x0057,0x0059,0x005C,0x005F,0x0061,0x0064,0x0067,0x0069 |
12253 | dw 0X006C,0X006F,0X0072,0X0074,0X0077,0X007A,0X007C,0X007F |
12260 | dw 0x006C,0x006F,0x0072,0x0074,0x0077,0x007A,0x007C,0x007F |
12254 | dw 0X0082,0X0084,0X0087,0X008A,0X008D,0X008F,0X0092,0X0095 |
12261 | dw 0x0082,0x0084,0x0087,0x008A,0x008D,0x008F,0x0092,0x0095 |
12255 | dw 0X0097,0X009A,0X009D,0X00A0,0X00A2,0X00A5,0X00A8,0X00AA |
12262 | dw 0x0097,0x009A,0x009D,0x00A0,0x00A2,0x00A5,0x00A8,0x00AA |
12256 | dw 0X00AD,0X00B0,0X00B2,0X00B5,0X00B8,0X00BB,0X00BD,0X00C0 |
12263 | dw 0x00AD,0x00B0,0x00B2,0x00B5,0x00B8,0x00BB,0x00BD,0x00C0 |
12257 | dw 0X00C3,0X00C5,0X00C8,0X00CB,0X00CD,0X00D0,0X00D3,0X00D6 |
12264 | dw 0x00C3,0x00C5,0x00C8,0x00CB,0x00CD,0x00D0,0x00D3,0x00D6 |
12258 | dw 0X00D8,0X00DB,0X00DE,0X00E0,0X00E3,0X00E6,0X00E9,0X00EB |
12265 | dw 0x00D8,0x00DB,0x00DE,0x00E0,0x00E3,0x00E6,0x00E9,0x00EB |
12259 | dw 0X00EE,0X00F1,0X00F3,0X00F6,0X00F9,0X00FB,0X00FE,0X0101 |
12266 | dw 0x00EE,0x00F1,0x00F3,0x00F6,0x00F9,0x00FB,0x00FE,0x0101 |
12260 | dw 0X0104,0X0106,0X0109,0X010C,0X010E,0X0111,0X0114,0X0117 |
12267 | dw 0x0104,0x0106,0x0109,0x010C,0x010E,0x0111,0x0114,0x0117 |
12261 | dw 0X0119,0X011C,0X011F,0X0121,0X0124,0X0127,0X0129,0X012C |
12268 | dw 0x0119,0x011C,0x011F,0x0121,0x0124,0x0127,0x0129,0x012C |
12262 | dw 0X012F,0X0132,0X0134,0X0137,0X013A,0X013C,0X013F,0X0142 |
12269 | dw 0x012F,0x0132,0x0134,0x0137,0x013A,0x013C,0x013F,0x0142 |
12263 | dw 0X0144,0X0147,0X014A,0X014D,0X014F,0X0152,0X0155,0X0157 |
12270 | dw 0x0144,0x0147,0x014A,0x014D,0x014F,0x0152,0x0155,0x0157 |
12264 | dw 0X015A,0X015D,0X0160,0X0162,0X0165,0X0168,0X016A,0X016D |
12271 | dw 0x015A,0x015D,0x0160,0x0162,0x0165,0x0168,0x016A,0x016D |
12265 | dw 0X0170,0X0172,0X0175,0X0178,0X017B,0X017D,0X0180,0X0183 |
12272 | dw 0x0170,0x0172,0x0175,0x0178,0x017B,0x017D,0x0180,0x0183 |
12266 | dw 0X0185,0X0188,0X018B,0X018D,0X0190,0X0193,0X0196,0X0198 |
12273 | dw 0x0185,0x0188,0x018B,0x018D,0x0190,0x0193,0x0196,0x0198 |
12267 | dw 0X019B,0X019E,0X01A0,0X01A3,0X01A6,0X01A9,0X01AB,0X01AE |
12274 | dw 0x019B,0x019E,0x01A0,0x01A3,0x01A6,0x01A9,0x01AB,0x01AE |
12268 | dw 0X01B1,0X01B3,0X01B6,0X01B9,0X01BB,0X01BE,0X01C1,0X01C4 |
12275 | dw 0x01B1,0x01B3,0x01B6,0x01B9,0x01BB,0x01BE,0x01C1,0x01C4 |
12269 | dw 0X01C6,0X01C9,0X01CC,0X01CE,0X01D1,0X01D4,0X01D6,0X01D9 |
12276 | dw 0x01C6,0x01C9,0x01CC,0x01CE,0x01D1,0x01D4,0x01D6,0x01D9 |
12270 | dw 0X01DC,0X01DF,0X01E1,0X01E4,0X01E7,0X01E9,0X01EC,0X01EF |
12277 | dw 0x01DC,0x01DF,0x01E1,0x01E4,0x01E7,0x01E9,0x01EC,0x01EF |
12271 | dw 0X01F2,0X01F4,0X01F7,0X01FA,0X01FC,0X01FF,0X0202,0X0204 |
12278 | dw 0x01F2,0x01F4,0x01F7,0x01FA,0x01FC,0x01FF,0x0202,0x0204 |
12272 | dw 0X0207,0X020A,0X020D,0X020F,0X0212,0X0215,0X0217,0X021A |
12279 | dw 0x0207,0x020A,0x020D,0x020F,0x0212,0x0215,0x0217,0x021A |
12273 | dw 0X021D,0X021F,0X0222,0X0225,0X0228,0X022A,0X022D,0X0230 |
12280 | dw 0x021D,0x021F,0x0222,0x0225,0x0228,0x022A,0x022D,0x0230 |
12274 | dw 0X0232,0X0235,0X0238,0X023B,0X023D,0X0240,0X0243,0X0245 |
12281 | dw 0x0232,0x0235,0x0238,0x023B,0x023D,0x0240,0x0243,0x0245 |
12275 | dw 0X0248,0X024B,0X024D,0X0250,0X0253,0X0256,0X0258,0X025B |
12282 | dw 0x0248,0x024B,0x024D,0x0250,0x0253,0x0256,0x0258,0x025B |
12276 | dw 0X025E,0X0260,0X0263,0X0266,0X0269,0X026B,0X026E,0X0271 |
12283 | dw 0x025E,0x0260,0x0263,0x0266,0x0269,0x026B,0x026E,0x0271 |
12277 | dw 0X0273,0X0276,0X0279,0X027B,0X027E,0X0281,0X0284,0X0286 |
12284 | dw 0x0273,0x0276,0x0279,0x027B,0x027E,0x0281,0x0284,0x0286 |
12278 | dw 0X0289,0X028C,0X028E,0X0291,0X0294,0X0296,0X0299,0X029C |
12285 | dw 0x0289,0x028C,0x028E,0x0291,0x0294,0x0296,0x0299,0x029C |
12279 | dw 0X029F,0X02A1,0X02A4,0X02A7,0X02A9,0X02AC,0X02AF,0X02B2 |
12286 | dw 0x029F,0x02A1,0x02A4,0x02A7,0x02A9,0x02AC,0x02AF,0x02B2 |
12280 | dw 0X02B4,0X02B7,0X02BA,0X02BC,0X02BF,0X02C2,0X02C4,0X02C7 |
12287 | dw 0x02B4,0x02B7,0x02BA,0x02BC,0x02BF,0x02C2,0x02C4,0x02C7 |
12281 | dw 0X02CA,0X02CD,0X02CF,0X02D2,0X02D5,0X02D7,0X02DA,0X02DD |
12288 | dw 0x02CA,0x02CD,0x02CF,0x02D2,0x02D5,0x02D7,0x02DA,0x02DD |
12282 | dw 0X02DF,0X02E2,0X02E5,0X02E8,0X02EA,0X02ED,0X02F0,0X02F2 |
12289 | dw 0x02DF,0x02E2,0x02E5,0x02E8,0x02EA,0x02ED,0x02F0,0x02F2 |
12283 | dw 0X02F5,0X02F8,0X02FB,0X02FD,0X0300,0X0303,0X0305,0X0308 |
12290 | dw 0x02F5,0x02F8,0x02FB,0x02FD,0x0300,0x0303,0x0305,0x0308 |
12284 | dw 0X030B,0X030D,0X0310,0X0313,0X0316,0X0318,0X031B,0X031E |
12291 | dw 0x030B,0x030D,0x0310,0x0313,0x0316,0x0318,0x031B,0x031E |
12285 | dw 0X0320,0X0323,0X0326,0X0328,0X032B,0X032E,0X0331,0X0333 |
12292 | dw 0x0320,0x0323,0x0326,0x0328,0x032B,0x032E,0x0331,0x0333 |
12286 | dw 0X0336,0X0339,0X033B,0X033E,0X0341,0X0344,0X0346,0X0349 |
12293 | dw 0x0336,0x0339,0x033B,0x033E,0x0341,0x0344,0x0346,0x0349 |
12287 | dw 0X034C,0X034E,0X0351,0X0354,0X0356,0X0359,0X035C,0X035F |
12294 | dw 0x034C,0x034E,0x0351,0x0354,0x0356,0x0359,0x035C,0x035F |
12288 | dw 0X0361,0X0364,0X0367,0X0369,0X036C,0X036F,0X0371,0X0374 |
12295 | dw 0x0361,0x0364,0x0367,0x0369,0x036C,0x036F,0x0371,0x0374 |
12289 | dw 0X0377,0X037A,0X037C,0X037F,0X0382,0X0384,0X0387,0X038A |
12296 | dw 0x0377,0x037A,0x037C,0x037F,0x0382,0x0384,0x0387,0x038A |
12290 | dw 0X038D,0X038F,0X0392,0X0395,0X0397,0X039A,0X039D,0X039F |
12297 | dw 0x038D,0x038F,0x0392,0x0395,0x0397,0x039A,0x039D,0x039F |
12291 | dw 0X03A2,0X03A5,0X03A8,0X03AA,0X03AD,0X03B0,0X03B2,0X03B5 |
12298 | dw 0x03A2,0x03A5,0x03A8,0x03AA,0x03AD,0x03B0,0x03B2,0x03B5 |
12292 | dw 0X03B8,0X03BB,0X03BD,0X03C0,0X03C3,0X03C5,0X03C8,0X03CB |
12299 | dw 0x03B8,0x03BB,0x03BD,0x03C0,0x03C3,0x03C5,0x03C8,0x03CB |
12293 | dw 0X03CD,0X03D0,0X03D3,0X03D6,0X03D8,0X03DB,0X03DE,0X03E0 |
12300 | dw 0x03CD,0x03D0,0x03D3,0x03D6,0x03D8,0x03DB,0x03DE,0x03E0 |
12294 | dw 0X03E3,0X03E6,0X03E8,0X03EB,0X03EE,0X03F1,0X03F3,0X03F6 |
12301 | dw 0x03E3,0x03E6,0x03E8,0x03EB,0x03EE,0x03F1,0x03F3,0x03F6 |
12295 | dw 0X03F9,0X03FB,0X03FE,0X0401,0X0404,0X0406,0X0409,0X040C |
12302 | dw 0x03F9,0x03FB,0x03FE,0x0401,0x0404,0x0406,0x0409,0x040C |
12296 | dw 0X040E,0X0411,0X0414,0X0416,0X0419,0X041C,0X041F,0X0421 |
12303 | dw 0x040E,0x0411,0x0414,0x0416,0x0419,0x041C,0x041F,0x0421 |
12297 | dw 0X0424,0X0427,0X0429,0X042C,0X042F,0X0431,0X0434,0X0437 |
12304 | dw 0x0424,0x0427,0x0429,0x042C,0x042F,0x0431,0x0434,0x0437 |
12298 | dw 0X043A,0X043C,0X043F,0X0442,0X0444,0X0447,0X044A,0X044D |
12305 | dw 0x043A,0x043C,0x043F,0x0442,0x0444,0x0447,0x044A,0x044D |
12299 | dw 0X044F,0X0452,0X0455,0X0457,0X045A,0X045D,0X045F,0X0462 |
12306 | dw 0x044F,0x0452,0x0455,0x0457,0x045A,0x045D,0x045F,0x0462 |
12300 | dw 0X0465,0X0468,0X046A,0X046D,0X0470,0X0472,0X0475,0X0478 |
12307 | dw 0x0465,0x0468,0x046A,0x046D,0x0470,0x0472,0x0475,0x0478 |
12301 | dw 0X047A,0X047D,0X0480,0X0483,0X0485,0X0488,0X048B,0X048D |
12308 | dw 0x047A,0x047D,0x0480,0x0483,0x0485,0x0488,0x048B,0x048D |
12302 | dw 0X0490,0X0493,0X0496,0X0498,0X049B,0X049E,0X04A0,0X04A3 |
12309 | dw 0x0490,0x0493,0x0496,0x0498,0x049B,0x049E,0x04A0,0x04A3 |
12303 | dw 0X04A6,0X04A8,0X04AB,0X04AE,0X04B1,0X04B3,0X04B6,0X04B9 |
12310 | dw 0x04A6,0x04A8,0x04AB,0x04AE,0x04B1,0x04B3,0x04B6,0x04B9 |
12304 | dw 0X04BB,0X04BE,0X04C1,0X04C3,0X04C6,0X04C9,0X04CC,0X04CE |
12311 | dw 0x04BB,0x04BE,0x04C1,0x04C3,0x04C6,0x04C9,0x04CC,0x04CE |
12305 | dw 0X04D1,0X04D4,0X04D6,0X04D9,0X04DC,0X04DF,0X04E1,0X04E4 |
12312 | dw 0x04D1,0x04D4,0x04D6,0x04D9,0x04DC,0x04DF,0x04E1,0x04E4 |
12306 | dw 0X04E7,0X04E9,0X04EC,0X04EF,0X04F1,0X04F4,0X04F7,0X04FA |
12313 | dw 0x04E7,0x04E9,0x04EC,0x04EF,0x04F1,0x04F4,0x04F7,0x04FA |
12307 | dw 0X04FC,0X04FF,0X0502,0X0504,0X0507,0X050A,0X050D,0X050F |
12314 | dw 0x04FC,0x04FF,0x0502,0x0504,0x0507,0x050A,0x050D,0x050F |
12308 | dw 0X0512,0X0515,0X0517,0X051A,0X051D,0X051F,0X0522,0X0525 |
12315 | dw 0x0512,0x0515,0x0517,0x051A,0x051D,0x051F,0x0522,0x0525 |
12309 | dw 0X0528,0X052A,0X052D,0X0530,0X0532,0X0535,0X0538,0X053A |
12316 | dw 0x0528,0x052A,0x052D,0x0530,0x0532,0x0535,0x0538,0x053A |
12310 | dw 0X053D,0X0540,0X0543,0X0545,0X0548,0X054B,0X054D,0X0550 |
12317 | dw 0x053D,0x0540,0x0543,0x0545,0x0548,0x054B,0x054D,0x0550 |
12311 | dw 0X0553,0X0556,0X0558,0X055B,0X055E,0X0560,0X0563,0X0566 |
12318 | dw 0x0553,0x0556,0x0558,0x055B,0x055E,0x0560,0x0563,0x0566 |
12312 | dw 0X0568,0X056B,0X056E,0X0571,0X0573,0X0576,0X0579,0X057B |
12319 | dw 0x0568,0x056B,0x056E,0x0571,0x0573,0x0576,0x0579,0x057B |
12313 | dw 0X057E,0X0581,0X0583,0X0586,0X0589,0X058C,0X058E,0X0591 |
12320 | dw 0x057E,0x0581,0x0583,0x0586,0x0589,0x058C,0x058E,0x0591 |
12314 | dw 0X0594,0X0596,0X0599,0X059C,0X059F,0X05A1,0X05A4,0X05A7 |
12321 | dw 0x0594,0x0596,0x0599,0x059C,0x059F,0x05A1,0x05A4,0x05A7 |
12315 | dw 0X05A9,0X05AC,0X05AF,0X05B1,0X05B4,0X05B7,0X05BA,0X05BC |
12322 | dw 0x05A9,0x05AC,0x05AF,0x05B1,0x05B4,0x05B7,0x05BA,0x05BC |
12316 | dw 0X05BF,0X05C2,0X05C4,0X05C7,0X05CA,0X05CC,0X05CF,0X05D2 |
12323 | dw 0x05BF,0x05C2,0x05C4,0x05C7,0x05CA,0x05CC,0x05CF,0x05D2 |
12317 | dw 0X05D5,0X05D7,0X05DA,0X05DD,0X05DF,0X05E2,0X05E5,0X05E8 |
12324 | dw 0x05D5,0x05D7,0x05DA,0x05DD,0x05DF,0x05E2,0x05E5,0x05E8 |
12318 | dw 0X05EA,0X05ED,0X05F0,0X05F2,0X05F5,0X05F8,0X05FA,0X05FD |
12325 | dw 0x05EA,0x05ED,0x05F0,0x05F2,0x05F5,0x05F8,0x05FA,0x05FD |
12319 | dw 0X0600,0X0603,0X0605,0X0608,0X060B,0X060D,0X0610,0X0613 |
12326 | dw 0x0600,0x0603,0x0605,0x0608,0x060B,0x060D,0x0610,0x0613 |
12320 | dw 0X0615,0X0618,0X061B,0X061E,0X0620,0X0623,0X0626,0X0628 |
12327 | dw 0x0615,0x0618,0x061B,0x061E,0x0620,0x0623,0x0626,0x0628 |
12321 | dw 0X062B,0X062E,0X0631,0X0633,0X0636,0X0639,0X063B,0X063E |
12328 | dw 0x062B,0x062E,0x0631,0x0633,0x0636,0x0639,0x063B,0x063E |
12322 | dw 0X0641,0X0643,0X0646,0X0649,0X064C,0X064E,0X0651,0X0654 |
12329 | dw 0x0641,0x0643,0x0646,0x0649,0x064C,0x064E,0x0651,0x0654 |
12323 | dw 0X0656,0X0659,0X065C,0X065F,0X0661,0X0664,0X0667,0X0669 |
12330 | dw 0x0656,0x0659,0x065C,0x065F,0x0661,0x0664,0x0667,0x0669 |
12324 | dw 0X066C,0X066F,0X0671,0X0674,0X0677,0X067A,0X067C,0X067F |
12331 | dw 0x066C,0x066F,0x0671,0x0674,0x0677,0x067A,0x067C,0x067F |
12325 | dw 0X0682,0X0684,0X0687,0X068A,0X068C,0X068F,0X0692,0X0695 |
12332 | dw 0x0682,0x0684,0x0687,0x068A,0x068C,0x068F,0x0692,0x0695 |
12326 | dw 0X0697,0X069A,0X069D,0X069F,0X06A2,0X06A5,0X06A8,0X06AA |
12333 | dw 0x0697,0x069A,0x069D,0x069F,0x06A2,0x06A5,0x06A8,0x06AA |
12327 | dw 0X06AD,0X06B0,0X06B2,0X06B5,0X06B8,0X06BA,0X06BD,0X06C0 |
12334 | dw 0x06AD,0x06B0,0x06B2,0x06B5,0x06B8,0x06BA,0x06BD,0x06C0 |
12328 | dw 0X06C3,0X06C5,0X06C8,0X06CB,0X06CD,0X06D0,0X06D3,0X06D5 |
12335 | dw 0x06C3,0x06C5,0x06C8,0x06CB,0x06CD,0x06D0,0x06D3,0x06D5 |
12329 | dw 0X06D8,0X06DB,0X06DE,0X06E0,0X06E3,0X06E6,0X06E8,0X06EB |
12336 | dw 0x06D8,0x06DB,0x06DE,0x06E0,0x06E3,0x06E6,0x06E8,0x06EB |
12330 | dw 0X06EE,0X06F1,0X06F3,0X06F6,0X06F9,0X06FB,0X06FE,0X0701 |
12337 | dw 0x06EE,0x06F1,0x06F3,0x06F6,0x06F9,0x06FB,0x06FE,0x0701 |
12331 | dw 0X0703,0X0706,0X0709,0X070C,0X070E,0X0711,0X0714,0X0716 |
12338 | dw 0x0703,0x0706,0x0709,0x070C,0x070E,0x0711,0x0714,0x0716 |
12332 | dw 0X0719,0X071C,0X071E,0X0721,0X0724,0X0727,0X0729,0X072C |
12339 | dw 0x0719,0x071C,0x071E,0x0721,0x0724,0x0727,0x0729,0x072C |
12333 | dw 0X072F,0X0731,0X0734,0X0737,0X073A,0X073C,0X073F,0X0742 |
12340 | dw 0x072F,0x0731,0x0734,0x0737,0x073A,0x073C,0x073F,0x0742 |
12334 | dw 0X0744,0X0747,0X074A,0X074C,0X074F,0X0752,0X0755,0X0757 |
12341 | dw 0x0744,0x0747,0x074A,0x074C,0x074F,0x0752,0x0755,0x0757 |
12335 | dw 0X075A,0X075D,0X075F,0X0762,0X0765,0X0767,0X076A,0X076D |
12342 | dw 0x075A,0x075D,0x075F,0x0762,0x0765,0x0767,0x076A,0x076D |
12336 | dw 0X0770,0X0772,0X0775,0X0778,0X077A,0X077D,0X0780,0X0783 |
12343 | dw 0x0770,0x0772,0x0775,0x0778,0x077A,0x077D,0x0780,0x0783 |
12337 | dw 0X0785,0X0788,0X078B,0X078D,0X0790,0X0793,0X0795,0X0798 |
12344 | dw 0x0785,0x0788,0x078B,0x078D,0x0790,0x0793,0x0795,0x0798 |
12338 | dw 0X079B,0X079E,0X07A0,0X07A3,0X07A6,0X07A8,0X07AB,0X07AE |
12345 | dw 0x079B,0x079E,0x07A0,0x07A3,0x07A6,0x07A8,0x07AB,0x07AE |
12339 | dw 0X07B1,0X07B3,0X07B6,0X07B9,0X07BB,0X07BE,0X07C1,0X07C3 |
12346 | dw 0x07B1,0x07B3,0x07B6,0x07B9,0x07BB,0x07BE,0x07C1,0x07C3 |
12340 | dw 0X07C6,0X07C9,0X07CC,0X07CE,0X07D1,0X07D4,0X07D6,0X07D9 |
12347 | dw 0x07C6,0x07C9,0x07CC,0x07CE,0x07D1,0x07D4,0x07D6,0x07D9 |
12341 | dw 0X07DC,0X07DE,0X07E1,0X07E4,0X07E7,0X07E9,0X07EC,0X07EF |
12348 | dw 0x07DC,0x07DE,0x07E1,0x07E4,0x07E7,0x07E9,0x07EC,0x07EF |
12342 | dw 0X07F1,0X07F4,0X07F7,0X07FA,0X07FC,0X07FF,0X0802,0X0804 |
12349 | dw 0x07F1,0x07F4,0x07F7,0x07FA,0x07FC,0x07FF,0x0802,0x0804 |
12343 | dw 0X0807,0X080A,0X080C,0X080F,0X0812,0X0815,0X0817,0X081A |
12350 | dw 0x0807,0x080A,0x080C,0x080F,0x0812,0x0815,0x0817,0x081A |
12344 | dw 0X081D,0X081F,0X0822,0X0825,0X0827,0X082A,0X082D,0X0830 |
12351 | dw 0x081D,0x081F,0x0822,0x0825,0x0827,0x082A,0x082D,0x0830 |
12345 | dw 0X0832,0X0835,0X0838,0X083A,0X083D,0X0840,0X0843,0X0845 |
12352 | dw 0x0832,0x0835,0x0838,0x083A,0x083D,0x0840,0x0843,0x0845 |
12346 | dw 0X0848,0X084B,0X084D,0X0850,0X0853,0X0855,0X0858,0X085B |
12353 | dw 0x0848,0x084B,0x084D,0x0850,0x0853,0x0855,0x0858,0x085B |
12347 | dw 0X085E,0X0860,0X0863,0X0866,0X0868,0X086B,0X086E,0X0870 |
12354 | dw 0x085E,0x0860,0x0863,0x0866,0x0868,0x086B,0x086E,0x0870 |
12348 | dw 0X0873,0X0876,0X0879,0X087B,0X087E,0X0881,0X0883,0X0886 |
12355 | dw 0x0873,0x0876,0x0879,0x087B,0x087E,0x0881,0x0883,0x0886 |
12349 | dw 0X0889,0X088C,0X088E,0X0891,0X0894,0X0896,0X0899,0X089C |
12356 | dw 0x0889,0x088C,0x088E,0x0891,0x0894,0x0896,0x0899,0x089C |
12350 | dw 0X089E,0X08A1,0X08A4,0X08A7,0X08A9,0X08AC,0X08AF,0X08B1 |
12357 | dw 0x089E,0x08A1,0x08A4,0x08A7,0x08A9,0x08AC,0x08AF,0x08B1 |
12351 | dw 0X08B4,0X08B7,0X08B9,0X08BC,0X08BF,0X08C2,0X08C4,0X08C7 |
12358 | dw 0x08B4,0x08B7,0x08B9,0x08BC,0x08BF,0x08C2,0x08C4,0x08C7 |
12352 | dw 0X08CA,0X08CC,0X08CF,0X08D2,0X08D5,0X08D7,0X08DA,0X08DD |
12359 | dw 0x08CA,0x08CC,0x08CF,0x08D2,0x08D5,0x08D7,0x08DA,0x08DD |
12353 | dw 0X08DF,0X08E2,0X08E5,0X08E7,0X08EA,0X08ED,0X08F0,0X08F2 |
12360 | dw 0x08DF,0x08E2,0x08E5,0x08E7,0x08EA,0x08ED,0x08F0,0x08F2 |
12354 | dw 0X08F5,0X08F8,0X08FA,0X08FD,0X0900,0X0903,0X0905,0X0908 |
12361 | dw 0x08F5,0x08F8,0x08FA,0x08FD,0x0900,0x0903,0x0905,0x0908 |
12355 | dw 0X090B,0X090D,0X0910,0X0913,0X0915,0X0918,0X091B,0X091E |
12362 | dw 0x090B,0x090D,0x0910,0x0913,0x0915,0x0918,0x091B,0x091E |
12356 | dw 0X0920,0X0923,0X0926,0X0928,0X092B,0X092E,0X0930,0X0933 |
12363 | dw 0x0920,0x0923,0x0926,0x0928,0x092B,0x092E,0x0930,0x0933 |
12357 | dw 0X0936,0X0939,0X093B,0X093E,0X0941,0X0943,0X0946,0X0949 |
12364 | dw 0x0936,0x0939,0x093B,0x093E,0x0941,0x0943,0x0946,0x0949 |
12358 | dw 0X094C,0X094E,0X0951,0X0954,0X0956,0X0959,0X095C,0X095E |
12365 | dw 0x094C,0x094E,0x0951,0x0954,0x0956,0x0959,0x095C,0x095E |
12359 | dw 0X0961,0X0964,0X0967,0X0969,0X096C,0X096F,0X0971,0X0974 |
12366 | dw 0x0961,0x0964,0x0967,0x0969,0x096C,0x096F,0x0971,0x0974 |
12360 | dw 0X0977,0X0979,0X097C,0X097F,0X0982,0X0984,0X0987,0X098A |
12367 | dw 0x0977,0x0979,0x097C,0x097F,0x0982,0x0984,0x0987,0x098A |
12361 | dw 0X098C,0X098F,0X0992,0X0995,0X0997,0X099A,0X099D,0X099F |
12368 | dw 0x098C,0x098F,0x0992,0x0995,0x0997,0x099A,0x099D,0x099F |
12362 | dw 0X09A2,0X09A5,0X09A7,0X09AA,0X09AD,0X09B0,0X09B2,0X09B5 |
12369 | dw 0x09A2,0x09A5,0x09A7,0x09AA,0x09AD,0x09B0,0x09B2,0x09B5 |
12363 | dw 0X09B8,0X09BA,0X09BD,0X09C0,0X09C2,0X09C5,0X09C8,0X09CB |
12370 | dw 0x09B8,0x09BA,0x09BD,0x09C0,0x09C2,0x09C5,0x09C8,0x09CB |
12364 | dw 0X09CD,0X09D0,0X09D3,0X09D5,0X09D8,0X09DB,0X09DE,0X09E0 |
12371 | dw 0x09CD,0x09D0,0x09D3,0x09D5,0x09D8,0x09DB,0x09DE,0x09E0 |
12365 | dw 0X09E3,0X09E6,0X09E8,0X09EB,0X09EE,0X09F0,0X09F3,0X09F6 |
12372 | dw 0x09E3,0x09E6,0x09E8,0x09EB,0x09EE,0x09F0,0x09F3,0x09F6 |
12366 | dw 0X09F9,0X09FB,0X09FE,0X0A01,0X0A03,0X0A06,0X0A09,0X0A0B |
12373 | dw 0x09F9,0x09FB,0x09FE,0x0A01,0x0A03,0x0A06,0x0A09,0x0A0B |
12367 | dw 0X0A0E,0X0A11,0X0A14,0X0A16,0X0A19,0X0A1C,0X0A1E,0X0A21 |
12374 | dw 0x0A0E,0x0A11,0x0A14,0x0A16,0x0A19,0x0A1C,0x0A1E,0x0A21 |
12368 | dw 0X0A24,0X0A27,0X0A29,0X0A2C,0X0A2F,0X0A31,0X0A34,0X0A37 |
12375 | dw 0x0A24,0x0A27,0x0A29,0x0A2C,0x0A2F,0x0A31,0x0A34,0x0A37 |
12369 | dw 0X0A39,0X0A3C,0X0A3F,0X0A42,0X0A44,0X0A47,0X0A4A,0X0A4C |
12376 | dw 0x0A39,0x0A3C,0x0A3F,0x0A42,0x0A44,0x0A47,0x0A4A,0x0A4C |
12370 | dw 0X0A4F,0X0A52,0X0A55,0X0A57,0X0A5A,0X0A5D,0X0A5F,0X0A62 |
12377 | dw 0x0A4F,0x0A52,0x0A55,0x0A57,0x0A5A,0x0A5D,0x0A5F,0x0A62 |
12371 | dw 0X0A65,0X0A67,0X0A6A,0X0A6D,0X0A70,0X0A72,0X0A75,0X0A78 |
12378 | dw 0x0A65,0x0A67,0x0A6A,0x0A6D,0x0A70,0x0A72,0x0A75,0x0A78 |
12372 | dw 0X0A7A,0X0A7D,0X0A80,0X0A82,0X0A85,0X0A88,0X0A8B,0X0A8D |
12379 | dw 0x0A7A,0x0A7D,0x0A80,0x0A82,0x0A85,0x0A88,0x0A8B,0x0A8D |
12373 | dw 0X0A90,0X0A93,0X0A95,0X0A98,0X0A9B,0X0A9E,0X0AA0,0X0AA3 |
12380 | dw 0x0A90,0x0A93,0x0A95,0x0A98,0x0A9B,0x0A9E,0x0AA0,0x0AA3 |
12374 | dw 0X0AA6,0X0AA8,0X0AAB,0X0AAE,0X0AB0,0X0AB3,0X0AB6,0X0AB9 |
12381 | dw 0x0AA6,0x0AA8,0x0AAB,0x0AAE,0x0AB0,0x0AB3,0x0AB6,0x0AB9 |
12375 | dw 0X0ABB,0X0ABE,0X0AC1,0X0AC3,0X0AC6,0X0AC9,0X0ACB,0X0ACE |
12382 | dw 0x0ABB,0x0ABE,0x0AC1,0x0AC3,0x0AC6,0x0AC9,0x0ACB,0x0ACE |
12376 | 12383 | ||
12377 | DEPHASE |
12384 | DEPHASE |
12378 | 12385 |