Subversion Repositories ngs

Rev

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