MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
Browse Source

Merge pull request #46 from b1ackmai1er/master 

spk.asm developement
pull/48/head
Wayne Warthen 6 years ago
committed by GitHub
parent
b856a1a529 21568a4b8d
commit
d55bd64d6b
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 155 additions and 587 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 742
      Source/HBIOS/spk.asm

742
Source/HBIOS/spk.asm
View File

@ -8,44 +8,64 @@ SPK_INIT:
PRTS("SPK: IO=0x$")
LD A,RTCIO
CALL PRTHEXBYTE
CALL SPK_SETTBL
CALL SPK_BEEP ; PLAY A NOTE
XOR A
RET
;
;SPK_BEEP:
; PUSH DE
; PUSH HL
; LD HL,400 ; CYCLES OF TONE
; ;LD B,%00000100 ; D2 MAPPED TO Q0
; ;LD A,DSRTC_RESET
; LD A,(RTCVAL) ; GET RTC PORT VALUE FROM SHADOW
; OR %00000100 ; D2 MAPPED TO Q0
; LD B,A
;SPK_BEEP1:
; LD A,B
; OUT (RTCIO),A
; XOR %00000100
; LD B,A
; LD DE,17
; CALL VDELAY
; DEC HL
; LD A,H
; OR L
; JR NZ,SPK_BEEP1
; POP HL
; POP DE
; RET
; SETUP THE SPEAKER NOTE TABLE ACCORDING TO THE CPU SPEED.
; FREQUENCY ACCURACY DECREASES AS CLOCK SPEED MULITPLIER INCREASES.
; 1MHZ ERROR MAY OCCUR IF CPU CLOCK IS UNDER. I.E 3.999 = 3MHZ
SPK_SETTBL:
LD A,(CB_CPUMHZ) ; GET CPU SPEED.
LD C,A
LD B,SPK_NOTCNT ; SET NUMBER OF NOTES TO
LD HL,SPK_TUNTBL+2 ; ADJUST AND START POINT
SPK_SETTBL2:
PUSH HL
LD A,(HL) ; READ
LD E,A ; IN
INC HL ; THE
LD A,(HL) ; 1MHZ
LD D,A ; NOTE
PUSH BC
LD B,C
LD HL,0 ; MULTIPLY
SPK_SETTBL1: ; 1MHZ NOTE
ADD HL,DE ; VALUE BY
DJNZ SPK_SETTBL1 ; SYSTEM MHZ
POP BC
;
LD DE,30 ; ADD OVEREAD
ADD HL,DE ; COMPENSATION
;
POP DE ; RECALL NOTE
EX DE,HL ; ADDRESS
;
LD (HL),E ; SAVE
INC HL ; THE
LD (HL),D ; NEW
INC HL ; NOTE
INC HL ; AND MOVE
INC HL ; TO NEXT
DJNZ SPK_SETTBL2 ; NEXT NOTE
RET
SPK_BEEP:
LD HL,SPK_NOTE_C8 ; SELECT NOTE
;
LD A,(HL) ; LOAD 1ST ARG
INC HL ; IN DE
LD E,A
LD A,(HL)
INC HL
LD D,A
;
LD A,(HL) ; LOAD 2ND ARG
INC HL ; IN BC
LD C,A
@ -54,9 +74,9 @@ SPK_BEEP:
LD B,A
PUSH BC ; SETUP ARG IN HL
POP HL
;
CALL SPK_BEEPER ; PLAY
;
RET
;
; The following SPK_BEEPER routine is a modification of code from
@ -126,570 +146,118 @@ BE_END:
POP IX
RET
;
; STANDARD ONE SECOND TONE TABLES. FOR SPK_BEEPER, FIRST WORD LOADED INTO DE, SECOND INTO HL
; STANDARD ONE SECOND TONE TABLES AT 1MHZ (UNCOMPENSATED). FOR SPK_BEEPER, FIRST WORD LOADED INTO DE, SECOND INTO HL
;
; EXCEL SPREADSHEET FOR CALCULATION CAN BE FOUND HERE:
;
; https://www.retrobrewcomputers.org/lib/exe/fetch.php?media=boards:sbc:sbc_v2:sbc_v2-004:spk_beep_tuntbl.xlsx
;
SPK_TUNTBL:
#IF (CPUOSC=2000000)
.DW $10, $6868 ; C0
.DW $11, $628D ; C
.DW $12, $5D03 ; D0
.DW $13, $57BF ; D
.DW $14, $52D7 ; E0
.DW $15, $4E2B ; F0
.DW $17, $49CD ; F
.DW $18, $45A3 ; G0
.DW $19, $41B6 ; G
.DW $1B, $3E07 ; A0
.DW $1D, $3A87 ; A
.DW $1E, $373E ; B0
.DW $20, $3425 ; C1
.DW $22, $3134 ; C
.DW $24, $2E6F ; D1
.DW $26, $2BD3 ; D
.DW $29, $295C ; E1
.DW $2B, $2708 ; F1
.DW $2E, $24D5 ; F
.DW $31, $22C2 ; G1
.DW $33, $20CE ; G
.DW $37, $1EF4 ; A1
.DW $3A, $1D36 ; A
.DW $3D, $1B90 ; B1
.DW $41, $1A02 ; C2
.DW $45, $188B ; C
.DW $49, $1728 ; D2
.DW $4D, $15DA ; D
.DW $52, $149E ; E2
.DW $57, $1374 ; F2
.DW $5C, $125B ; F
.DW $62, $1152 ; G2
.DW $67, $1057 ; G
.DW $6E, $F6B ; A2
.DW $74, $E8C ; A
.DW $7B, $DB9 ; B2
.DW $82, $CF2 ; C3
.DW $8A, $C36 ; C
.DW $92, $B85 ; D3
.DW $9B, $ADE ; D
.DW $A4, $A40 ; E3
.DW $AE, $9AB ; F3
.DW $B9, $91E ; F
.DW $C4, $89A ; G3
.DW $CF, $81C ; G
.DW $DC, $7A6 ; A3
.DW $E9, $737 ; A
.DW $F6, $6CD ; B3
.DW $105, $66A ; C4
.DW $115, $60C ; C
.DW $125, $5B3 ; D4
.DW $137, $560 ; D
.DW $149, $511 ; E4
.DW $15D, $4C6 ; F4
.DW $171, $480 ; F
.DW $188, $43E ; G4
.DW $19F, $3FF ; G
.DW $1B8, $3C4 ; A4
.DW $1D2, $38C ; A
.DW $1ED, $357 ; B4
.DW $20B, $326 ; C5
.DW $22A, $2F7 ; C
.DW $24B, $2CA ; D5
.DW $26E, $2A1 ; D
.DW $293, $279 ; E5
.DW $2BA, $254 ; F5
.DW $2E3, $231 ; F
.DW $30F, $210 ; G5
.DW $33E, $1F0 ; G
.DW $370, $1D3 ; A5
.DW $3A4, $1B7 ; A
.DW $3DB, $19C ; B5
.DW $416, $184 ; C6
.DW $454, $16C ; C
.DW $496, $156 ; D6
.DW $4DC, $141 ; D
.DW $526, $12D ; E6
.DW $574, $11B ; F6
.DW $5C7, $109 ; F
.DW $61F, $F9 ; G6
.DW $67D, $E9 ; G
.DW $6E0, $DA ; A6
.DW $748, $CC ; A
.DW $7B7, $BF ; B6
.DW $82D, $B3 ; C7
.DW $8A9, $A7 ; C
.DW $92D, $9C ; D7
.DW $9B9, $91 ; D
.DW $A4D, $87 ; E7
.DW $AE9, $7E ; F7
.DW $B8F, $75 ; F
.DW $C3F, $6D ; G7
.DW $CFA, $65 ; G
.DW $DC0, $5E ; A7
.DW $E91, $57 ; A
.DW $F6F, $50 ; B7
SPK_NOTE_C8:
.DW $105A, $4A ; C8
.DW $1152, $44 ; C
.DW $125A, $3F ; D8
.DW $1372, $39 ; D
.DW $149A, $34 ; E8
.DW $15D3, $30 ; F8
.DW $171F, $2B ; F
.DW $187F, $27 ; G8
.DW $19F4, $23 ; G
.DW $1B80, $20 ; A8
.DW $1D22, $1C ; A
.DW $1EDE, $19 ; B8
#ENDIF
;
#IF (CPUOSC=4000000)
.DW $10, $7757 ; C0
.DW $11, $70A6 ; C
.DW $12, $6A51 ; D0
.DW $13, $644C ; D
.DW $14, $5EB1 ; E0
.DW $15, $595A ; F0
.DW $17, $545C ; F
.DW $18, $4F9A ; G0
.DW $19, $4B1E ; G
.DW $1B, $46E7 ; A0
.DW $1D, $42E8 ; A
.DW $1E, $3F26 ; B0
.DW $20, $3B9C ; C1
.DW $22, $3840 ; C
.DW $24, $3516 ; D1
.DW $26, $321A ; D
.DW $29, $2F49 ; E1
.DW $2B, $2CA0 ; F1
.DW $2E, $2A1C ; F
.DW $31, $27BE ; G1
.DW $33, $2582 ; G
.DW $37, $2364 ; A1
.DW $3A, $2166 ; A
.DW $3D, $1F84 ; B1
.DW $41, $1DBE ; C2
.DW $45, $1C11 ; C
.DW $49, $1A7C ; D2
.DW $4D, $18FE ; D
.DW $52, $1795 ; E2
.DW $57, $1640 ; F2
.DW $5C, $14FF ; F
.DW $62, $13D0 ; G2
.DW $67, $12B1 ; G
.DW $6E, $11A3 ; A2
.DW $74, $10A4 ; A
.DW $7B, $FB3 ; B2
.DW $82, $ED0 ; C3
.DW $8A, $DF9 ; C
.DW $92, $D2F ; D3
.DW $9B, $C70 ; D
.DW $A4, $BBB ; E3
.DW $AE, $B11 ; F3
.DW $B9, $A70 ; F
.DW $C4, $9D9 ; G3
.DW $CF, $949 ; G
.DW $DC, $8C2 ; A3
.DW $E9, $843 ; A
.DW $F6, $7CA ; B3
.DW $105, $759 ; C4
.DW $115, $6ED ; C
.DW $125, $688 ; D4
.DW $137, $629 ; D
.DW $149, $5CE ; E4
.DW $15D, $579 ; F4
.DW $171, $529 ; F
.DW $188, $4DD ; G4
.DW $19F, $495 ; G
.DW $1B8, $452 ; A4
.DW $1D2, $412 ; A
.DW $1ED, $3D6 ; B4
.DW $20B, $39D ; C5
.DW $22A, $367 ; C
.DW $24B, $335 ; D5
.DW $26E, $305 ; D
.DW $293, $2D8 ; E5
.DW $2BA, $2AD ; F5
.DW $2E3, $285 ; F
.DW $30F, $25F ; G5
.DW $33E, $23B ; G
.DW $370, $21A ; A5
.DW $3A4, $1FA ; A
.DW $3DB, $1DC ; B5
.DW $416, $1BF ; C6
.DW $454, $1A4 ; C
.DW $496, $18B ; D6
.DW $4DC, $173 ; D
.DW $526, $15D ; E6
.DW $574, $147 ; F6
.DW $5C7, $133 ; F
.DW $61F, $120 ; G6
.DW $67D, $10E ; G
.DW $6E0, $FE ; A6
.DW $748, $EE ; A
.DW $7B7, $DF ; B6
.DW $82D, $D0 ; C7
.DW $8A9, $C3 ; C
.DW $92D, $B6 ; D7
.DW $9B9, $AA ; D
.DW $A4D, $9F ; E7
.DW $AE9, $94 ; F7
.DW $B8F, $8A ; F
.DW $C3F, $81 ; G7
.DW $CFA, $78 ; G
.DW $DC0, $70 ; A7
.DW $E91, $68 ; A
.DW $F6F, $60 ; B7
.DW $13, $191A ; D
.DW $14, $17B3 ; E0
.DW $15, $165E ; F0
.DW $17, $151E ; F
.DW $18, $13EE ; G0
.DW $19, $12CF ; G
.DW $1B, $11C1 ; A0
.DW $1D, $10C1 ; A
.DW $1E, $FD1 ; B0
.DW $20, $EEE ; C1
.DW $22, $E17 ; C
.DW $24, $D4D ; D1
.DW $26, $C8E ; D
.DW $29, $BD9 ; E1
.DW $2B, $B2F ; F1
.DW $2E, $A8E ; F
.DW $31, $9F7 ; G1
.DW $33, $968 ; G
.DW $37, $8E0 ; A1
.DW $3A, $861 ; A
.DW $3D, $7E8 ; B1
.DW $41, $777 ; C2
.DW $45, $70B ; C
.DW $49, $6A6 ; D2
.DW $4D, $647 ; D
.DW $52, $5EC ; E2
.DW $57, $597 ; F2
.DW $5C, $547 ; F
.DW $62, $4FB ; G2
.DW $67, $4B3 ; G
.DW $6E, $470 ; A2
.DW $74, $430 ; A
.DW $7B, $3F4 ; B2
.DW $82, $3BB ; C3
.DW $8A, $385 ; C
.DW $92, $353 ; D3
.DW $9B, $323 ; D
.DW $A4, $2F6 ; E3
.DW $AE, $2CB ; F3
.DW $B9, $2A3 ; F
.DW $C4, $27D ; G3
.DW $CF, $259 ; G
.DW $DC, $238 ; A3
.DW $E9, $218 ; A
.DW $F6, $1FA ; B3
.DW $105, $1DD ; C4
.DW $115, $1C2 ; C
.DW $125, $1A9 ; D4
.DW $137, $191 ; D
.DW $149, $17B ; E4
.DW $15D, $165 ; F4
.DW $171, $151 ; F
.DW $188, $13E ; G4
.DW $19F, $12C ; G
.DW $1B8, $11C ; A4
.DW $1D2, $10C ; A
.DW $1ED, $FD ; B4
.DW $20B, $EE ; C5
.DW $22A, $E1 ; C
.DW $24B, $D4 ; D5
.DW $26E, $C8 ; D
.DW $293, $BD ; E5
.DW $2BA, $B2 ; F5
.DW $2E3, $A8 ; F
.DW $30F, $9F ; G5
.DW $33E, $96 ; G
.DW $370, $8E ; A5
.DW $3A4, $86 ; A
.DW $3DB, $7E ; B5
.DW $416, $77 ; C6
.DW $454, $70 ; C
.DW $496, $6A ; D6
.DW $4DC, $64 ; D
.DW $526, $5E ; E6
.DW $574, $59 ; F6
.DW $5C7, $54 ; F
.DW $61F, $4F ; G6
.DW $67D, $4B ; G
.DW $6E0, $47 ; A6
.DW $748, $43 ; A
.DW $7B7, $3F ; B6
.DW $82D, $3B ; C7
.DW $8A9, $38 ; C
.DW $92D, $35 ; D7
.DW $9B9, $32 ; D
.DW $A4D, $2F ; E7
.DW $AE9, $2C ; F7
.DW $B8F, $2A ; F
.DW $C3F, $27 ; G7
.DW $CFA, $25 ; G
.DW $DC0, $23 ; A7
.DW $E91, $21 ; A
.DW $F6F, $1F ; B7
SPK_NOTE_C8:
.DW $105A, $59 ; C8
.DW $1152, $52 ; C
.DW $125A, $4C ; D8
.DW $1372, $46 ; D
.DW $149A, $40 ; E8
.DW $15D3, $3B ; F8
.DW $171F, $36 ; F
.DW $187F, $31 ; G8
.DW $19F4, $2D ; G
.DW $1B80, $29 ; A8
.DW $1D22, $25 ; A
.DW $1EDE, $21 ; B8
#ENDIF
;
#IF (CPUOSC=6000000)
.DW $10, $B311 ; C0
.DW $11, $A908 ; C
.DW $12, $9F89 ; D0
.DW $13, $9682 ; D
.DW $14, $8E19 ; E0
.DW $15, $8616 ; F0
.DW $17, $7E99 ; F
.DW $18, $7776 ; G0
.DW $19, $70BC ; G
.DW $1B, $6A6A ; A0
.DW $1D, $646B ; A
.DW $1E, $5EC9 ; B0
.DW $20, $5979 ; C1
.DW $22, $546F ; C
.DW $24, $4FB0 ; D1
.DW $26, $4B37 ; D
.DW $29, $46FD ; E1
.DW $2B, $4300 ; F1
.DW $2E, $3F3A ; F
.DW $31, $3BAC ; G1
.DW $33, $3852 ; G
.DW $37, $3526 ; A1
.DW $3A, $3229 ; A
.DW $3D, $2F55 ; B1
.DW $41, $2CAC ; C2
.DW $45, $2A28 ; C
.DW $49, $27C9 ; D2
.DW $4D, $258C ; D
.DW $52, $236E ; E2
.DW $57, $2170 ; F2
.DW $5C, $1F8E ; F
.DW $62, $1DC7 ; G2
.DW $67, $1C19 ; G
.DW $6E, $1A84 ; A2
.DW $74, $1905 ; A
.DW $7B, $179C ; B2
.DW $82, $1647 ; C3
.DW $8A, $1505 ; C
.DW $92, $13D5 ; D3
.DW $9B, $12B7 ; D
.DW $A4, $11A8 ; E3
.DW $AE, $10A9 ; F3
.DW $B9, $FB8 ; F
.DW $C4, $ED4 ; G3
.DW $CF, $DFD ; G
.DW $DC, $D33 ; A3
.DW $E9, $C73 ; A
.DW $F6, $BBF ; B3
.DW $105, $B14 ; C4
.DW $115, $A73 ; C
.DW $125, $9DB ; D4
.DW $137, $94C ; D
.DW $149, $8C5 ; E4
.DW $15D, $845 ; F4
.DW $171, $7CD ; F
.DW $188, $75B ; G4
.DW $19F, $6EF ; G
.DW $1B8, $68A ; A4
.DW $1D2, $62A ; A
.DW $1ED, $5D0 ; B4
.DW $20B, $57B ; C5
.DW $22A, $52A ; C
.DW $24B, $4DE ; D5
.DW $26E, $497 ; D
.DW $293, $453 ; E5
.DW $2BA, $413 ; F5
.DW $2E3, $3D7 ; F
.DW $30F, $39E ; G5
.DW $33E, $368 ; G
.DW $370, $336 ; A5
.DW $3A4, $306 ; A
.DW $3DB, $2D9 ; B5
.DW $416, $2AE ; C6
.DW $454, $286 ; C
.DW $496, $260 ; D6
.DW $4DC, $23C ; D
.DW $526, $21A ; E6
.DW $574, $1FA ; F6
.DW $5C7, $1DC ; F
.DW $61F, $1C0 ; G6
.DW $67D, $1A5 ; G
.DW $6E0, $18C ; A6
.DW $748, $174 ; A
.DW $7B7, $15D ; B6
.DW $82D, $148 ; C7
.DW $8A9, $134 ; C
.DW $92D, $121 ; D7
.DW $9B9, $10F ; D
.DW $A4D, $FE ; E7
.DW $AE9, $EE ; F7
.DW $B8F, $DF ; F
.DW $C3F, $D1 ; G7
.DW $CFA, $C3 ; G
.DW $DC0, $B7 ; A7
.DW $E91, $AB ; A
.DW $F6F, $9F ; B7
SPK_NOTE_C8:
.DW $105A, $95 ; C8
.DW $1152, $8B ; C
.DW $125A, $81 ; D8
.DW $1372, $78 ; D
.DW $149A, $70 ; E8
.DW $15D3, $68 ; F8
.DW $171F, $60 ; F
.DW $187F, $59 ; G8
.DW $19F4, $52 ; G
.DW $1B80, $4C ; A8
.DW $1D22, $46 ; A
.DW $1EDE, $40 ; B8
#ENDIF
;
#IF (CPUOSC=8000000)
.DW $10, $EECC ; C0
.DW $11, $E16A ; C
.DW $12, $D4C1 ; D0
.DW $13, $C8B7 ; D
.DW $14, $BD81 ; E0
.DW $15, $B2D2 ; F0
.DW $17, $A8D6 ; F
.DW $18, $9F52 ; G0
.DW $19, $965A ; G
.DW $1B, $8DED ; A0
.DW $1D, $85EF ; A
.DW $1E, $7E6B ; B0
.DW $20, $7757 ; C1
.DW $22, $709E ; C
.DW $24, $6A4A ; D1
.DW $26, $6453 ; D
.DW $29, $5EB1 ; E1
.DW $2B, $595F ; F1
.DW $2E, $5457 ; F
.DW $31, $4F9A ; G1
.DW $33, $4B22 ; G
.DW $37, $46E7 ; A1
.DW $3A, $42EB ; A
.DW $3D, $3F26 ; B1
.DW $41, $3B9A ; C2
.DW $45, $3840 ; C
.DW $49, $3516 ; D2
.DW $4D, $321A ; D
.DW $52, $2F48 ; E2
.DW $57, $2C9F ; F2
.DW $5C, $2A1C ; F
.DW $62, $27BE ; G2
.DW $67, $2581 ; G
.DW $6E, $2364 ; A2
.DW $74, $2166 ; A
.DW $7B, $1F85 ; B2
.DW $82, $1DBE ; C3
.DW $8A, $1C11 ; C
.DW $92, $1A7C ; D3
.DW $9B, $18FE ; D
.DW $A4, $1795 ; E3
.DW $AE, $1641 ; F3
.DW $B9, $14FF ; F
.DW $C4, $13D0 ; G3
.DW $CF, $12B1 ; G
.DW $DC, $11A3 ; A3
.DW $E9, $10A4 ; A
.DW $F6, $FB3 ; B3
.DW $105, $ED0 ; C4
.DW $115, $DF9 ; C
.DW $125, $D2F ; D4
.DW $137, $C70 ; D
.DW $149, $BBB ; E4
.DW $15D, $B11 ; F4
.DW $171, $A70 ; F
.DW $188, $9D9 ; G4
.DW $19F, $949 ; G
.DW $1B8, $8C2 ; A4
.DW $1D2, $843 ; A
.DW $1ED, $7CA ; B4
.DW $20B, $759 ; C5
.DW $22A, $6ED ; C
.DW $24B, $688 ; D5
.DW $26E, $629 ; D
.DW $293, $5CE ; E5
.DW $2BA, $579 ; F5
.DW $2E3, $529 ; F
.DW $30F, $4DD ; G5
.DW $33E, $495 ; G
.DW $370, $452 ; A5
.DW $3A4, $412 ; A
.DW $3DB, $3D6 ; B5
.DW $416, $39D ; C6
.DW $454, $367 ; C
.DW $496, $335 ; D6
.DW $4DC, $305 ; D
.DW $526, $2D8 ; E6
.DW $574, $2AD ; F6
.DW $5C7, $285 ; F
.DW $61F, $25F ; G6
.DW $67D, $23B ; G
.DW $6E0, $21A ; A6
.DW $748, $1FA ; A
.DW $7B7, $1DC ; B6
.DW $82D, $1BF ; C7
.DW $8A9, $1A4 ; C
.DW $92D, $18B ; D7
.DW $9B9, $173 ; D
.DW $A4D, $15D ; E7
.DW $AE9, $147 ; F7
.DW $B8F, $133 ; F
.DW $C3F, $120 ; G7
.DW $CFA, $10E ; G
.DW $DC0, $FE ; A7
.DW $E91, $EE ; A
.DW $F6F, $DF ; B7
SPK_NOTE_C8:
.DW $105A, $D0 ; C8
.DW $1152, $C3 ; C
.DW $125A, $B6 ; D8
.DW $1372, $AA ; D
.DW $149A, $9F ; E8
.DW $15D3, $94 ; F8
.DW $171F, $8A ; F
.DW $187F, $81 ; G8
.DW $19F4, $78 ; G
.DW $1B80, $70 ; A8
.DW $1D22, $68 ; A
.DW $1EDE, $60 ; B8
#ENDIF
;
#IF (CPUOSC=10000000)
;.DW $10, $12A86 ; C0
;.DW $11, $119CC ; C
;.DW $12, $109F9 ; D0
.DW $13, $FAED ; D
.DW $14, $ECE9 ; E0
.DW $15, $DF8E ; F0
.DW $17, $D313 ; F
.DW $18, $C72E ; G0
.DW $19, $BBF9 ; G
.DW $1B, $B170 ; A0
.DW $1D, $A772 ; A
.DW $1E, $9E0E ; B0
.DW $20, $9534 ; C1
.DW $22, $8CCD ; C
.DW $24, $84E4 ; D1
.DW $26, $7D6F ; D
.DW $29, $7665 ; E1
.DW $2B, $6FBE ; F1
.DW $2E, $6975 ; F
.DW $31, $6388 ; G1
.DW $33, $5DF2 ; G
.DW $37, $58A9 ; A1
.DW $3A, $53AD ; A
.DW $3D, $4EF8 ; B1
.DW $41, $4A88 ; C2
.DW $45, $4657 ; C
.DW $49, $4263 ; D2
.DW $4D, $3EA8 ; D
.DW $52, $3B22 ; E2
.DW $57, $37CE ; F2
.DW $5C, $34AB ; F
.DW $62, $31B5 ; G2
.DW $67, $2EE8 ; G
.DW $6E, $2C45 ; A2
.DW $74, $29C7 ; A
.DW $7B, $276D ; B2
.DW $82, $2535 ; C3
.DW $8A, $231D ; C
.DW $92, $2123 ; D3
.DW $9B, $1F45 ; D
.DW $A4, $1D82 ; E3
.DW $AE, $1BD8 ; F3
.DW $B9, $1A46 ; F
.DW $C4, $18CB ; G3
.DW $CF, $1765 ; G
.DW $DC, $1613 ; A3
.DW $E9, $14D4 ; A
.DW $F6, $13A7 ; B3
.DW $105, $128B ; C4
.DW $115, $117F ; C
.DW $125, $1082 ; D4
.DW $137, $F93 ; D
.DW $149, $EB2 ; E4
.DW $15D, $DDD ; F4
.DW $171, $D14 ; F
.DW $188, $C56 ; G4
.DW $19F, $BA3 ; G
.DW $1B8, $AFA ; A4
.DW $1D2, $A5B ; A
.DW $1ED, $9C4 ; B4
.DW $20B, $936 ; C5
.DW $22A, $8B0 ; C
.DW $24B, $832 ; D5
.DW $26E, $7BA ; D
.DW $293, $74A ; E5
.DW $2BA, $6DF ; F5
.DW $2E3, $67B ; F
.DW $30F, $61C ; G5
.DW $33E, $5C2 ; G
.DW $370, $56E ; A5
.DW $3A4, $51E ; A
.DW $3DB, $4D3 ; B5
.DW $416, $48C ; C6
.DW $454, $449 ; C
.DW $496, $40A ; D6
.DW $4DC, $3CE ; D
.DW $526, $396 ; E6
.DW $574, $360 ; F6
.DW $5C7, $32E ; F
.DW $61F, $2FF ; G6
.DW $67D, $2D2 ; G
.DW $6E0, $2A8 ; A6
.DW $748, $280 ; A
.DW $7B7, $25A ; B6
.DW $82D, $237 ; C7
.DW $8A9, $215 ; C
.DW $92D, $1F6 ; D7
.DW $9B9, $1D8 ; D
.DW $A4D, $1BC ; E7
.DW $AE9, $1A1 ; F7
.DW $B8F, $188 ; F
.DW $C3F, $170 ; G7
.DW $CFA, $15A ; G
.DW $DC0, $145 ; A7
.DW $E91, $131 ; A
.DW $F6F, $11E ; B7
SPK_NOTE_C8:
.DW $105A, $10C ; C8
.DW $1152, $FB ; C
.DW $125A, $EC ; D8
.DW $1372, $DD ; D
.DW $149A, $CF ; E8
.DW $15D3, $C1 ; F8
.DW $171F, $B5 ; F
.DW $187F, $A9 ; G8
.DW $19F4, $9E ; G
.DW $1B80, $93 ; A8
.DW $1D22, $89 ; A
.DW $1EDE, $80 ; B8
#ENDIF
.DW $105A, $1D ; C8
.DW $1152, $1C ; C
.DW $125A, $1A ; D8
.DW $1372, $19 ; D
.DW $149A, $17 ; E8
.DW $15D3, $16 ; F8
.DW $171F, $15 ; F
.DW $187F, $13 ; G8
.DW $19F4, $12 ; G
.DW $1B80, $11 ; A8
.DW $1D22, $10 ; A
.DW $1EDE, $F ; B8
SPK_NOTCNT .EQU ($-SPK_TUNTBL) / 4

Write Preview
Loading…
Cancel
Save