13-5
FILE INFORMATION
FILENAME(S): 13-5
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
4a04b614eb9e23f7b1ec3fbd8fcf27fea1f9e71b11224b4cf2186f14737095aa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 13-5 | PRG | DuncanTwain | 9 | 6 | DOWNLOAD FILE |
| PROG 64 WEST | 13-5 | PRG | DuncanTwain | 9 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 00 00 8F 20 2A 20 20 20 20 20 20 20 |..&.... * |
00000010: 50 52 4F 47 52 41 4D 20 31 33 2D 35 20 20 20 20 |PROGRAM 13-5 |
00000020: 20 20 20 20 20 2A 00 4B 08 01 00 8F 20 2A 20 4C | *.K.... * L|
00000030: 49 4E 45 53 20 31 30 30 30 2B 20 50 52 49 4E 54 |INES 1000+ PRINT|
00000040: 20 4F 55 54 20 44 41 54 41 20 2A 00 70 08 02 00 | OUT DATA *.p...|
00000050: 8F 20 2A 20 41 53 20 49 54 27 53 20 52 45 41 44 |. * AS IT'S READ|
00000060: 20 2D 20 53 4C 49 47 48 54 4C 59 20 20 20 20 2A | - SLIGHTLY *|
00000070: 00 95 08 03 00 8F 20 2A 20 4C 4F 4E 47 45 52 20 |...... * LONGER |
00000080: 54 48 41 4E 20 56 45 52 53 49 4F 4E 20 49 4E 20 |THAN VERSION IN |
00000090: 42 4F 4F 4B 2A 00 9B 08 04 00 3A 00 E3 08 05 00 |BOOK*.....:.....|
000000A0: 97 20 35 36 2C 38 38 3A 20 9C 3A 20 20 20 20 20 |. 56,88: .: |
000000B0: 20 20 20 20 20 20 20 20 8F 20 53 45 54 20 54 4F | . SET TO|
000000C0: 50 20 4F 46 20 4D 45 4D 4F 52 59 20 42 45 4C 4F |P OF MEMORY BELO|
000000D0: 57 20 44 41 54 41 20 53 54 4F 52 41 47 45 20 41 |W DATA STORAGE A|
000000E0: 52 45 41 00 17 09 0A 00 8D 20 34 35 30 30 3A 20 |REA...... 4500: |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 8F 20 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C |. LOAD MACHINE L|
00000110: 41 4E 47 55 41 47 45 00 54 09 14 00 85 20 22 49 |ANGUAGE.T.... "I|
00000120: 53 20 54 48 45 20 4D 55 53 49 43 20 44 41 54 41 |S THE MUSIC DATA|
00000130: 20 41 4C 52 45 41 44 59 20 49 4E 20 52 41 4D 22 | ALREADY IN RAM"|
00000140: 3B 41 24 3A 20 8B 20 41 24 B2 22 59 22 20 A7 20 |;A$: . A$."Y" . |
00000150: 31 30 31 39 00 9E 09 1E 00 8D 20 35 30 30 30 3A |1019...... 5000:|
00000160: 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 41 52 52 |. INITIALISE ARR|
00000170: 41 59 20 48 41 4E 44 4C 49 49 4E 47 20 4C 45 54 |AY HANDLIING LET|
00000180: 54 45 52 2D 4E 41 4D 45 2D 3E 41 52 52 41 59 20 |TER-NAME->ARRAY |
00000190: 50 54 52 20 43 4F 4E 56 45 52 53 49 4F 4E 00 D5 |PTR CONVERSION..|
000001A0: 09 28 00 8D 20 34 30 30 30 3A 20 20 20 20 20 20 |.(.. 4000: |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 8F 20 53 45 54 | . SET|
000001C0: 20 55 50 20 48 49 2F 4C 4F 20 46 52 45 51 20 56 | UP HI/LO FREQ V|
000001D0: 41 4C 55 45 53 00 20 0A E7 03 8F 20 52 45 41 44 |ALUES. .... READ|
000001E0: 20 54 48 45 20 44 41 54 41 20 41 4E 44 20 50 4F | THE DATA AND PO|
000001F0: 4B 45 20 43 4F 44 45 44 20 46 4F 52 4D 20 49 4E |KE CODED FORM IN|
00000200: 54 4F 20 4D 45 4D 4F 52 59 20 46 4F 52 20 49 52 |TO MEMORY FOR IR|
00000210: 51 2D 44 52 49 56 45 4E 20 52 4F 55 54 49 4E 45 |Q-DRIVEN ROUTINE|
00000220: 00 5A 0A E8 03 81 20 56 4E B2 30 20 A4 20 32 3A |.Z.... VN.0 . 2:|
00000230: 20 52 41 28 56 4E 29 B2 30 2E 35 30 3A 20 44 55 | RA(VN).0.50: DU|
00000240: B2 31 36 3A 20 4F 43 B2 34 3A 20 50 B2 32 32 35 |.16: OC.4: P.225|
00000250: 32 38 AA 56 4E AC 36 31 34 34 00 93 0A ED 03 87 |28.VN.6144......|
00000260: 20 56 41 24 3A 20 54 44 B2 C2 28 36 33 29 AA 32 | VA$: TD..(63).2|
00000270: 35 36 AC C2 28 36 34 29 3A 20 8B 20 54 44 B3 B1 |56..(64): . TD..|
00000280: 4C 44 20 A7 20 4C 44 B2 54 44 3A 20 99 3A 20 99 |LD . LD.TD: .: .|
00000290: 4C 44 3B 00 C4 0A EE 03 99 20 56 41 24 22 20 22 |LD;...... VA$" "|
000002A0: 3B 3A 20 8B 20 56 41 24 B2 22 5A 22 20 A7 20 99 |;: . VA$."Z" . .|
000002B0: 3A 20 97 20 50 2C 32 35 35 3A 20 82 3A 20 89 20 |: . P,255: .: . |
000002C0: 31 30 31 39 00 EA 0A EF 03 8B 20 C8 28 56 41 24 |1019...... .(VA$|
000002D0: 2C 31 29 B2 22 4F 22 20 A7 20 87 20 52 41 28 56 |,1)."O" . . RA(V|
000002E0: 4E 29 3A 20 89 20 31 30 30 35 00 25 0B F0 03 8B |N): . 1005.%....|
000002F0: 20 C8 28 56 41 24 2C 31 29 B2 22 57 22 20 A7 20 | .(VA$,1)."W" . |
00000300: 97 20 50 2C 32 35 33 3A 50 B2 50 AA 31 3A 87 20 |. P,253:P.P.1:. |
00000310: 57 56 3A 97 50 2C 57 56 3A 50 B2 50 AA 31 3A 89 |WV:.P,WV:P.P.1:.|
00000320: 20 31 30 30 35 00 49 0B F1 03 8B 20 C8 28 56 41 | 1005.I.... .(VA|
00000330: 24 2C 31 29 B2 22 50 22 20 A7 20 8D 20 31 34 30 |$,1)."P" . . 140|
00000340: 30 3A 20 89 20 31 30 30 35 00 81 0B F2 03 8B 20 |0: . 1005...... |
00000350: C8 28 56 41 24 2C 31 29 B2 22 52 22 20 A7 20 56 |.(VA$,1)."R" . V|
00000360: 41 24 B2 CA 28 56 41 24 2C 32 29 3A 20 8D 20 32 |A$..(VA$,2): . 2|
00000370: 31 33 30 3A 20 50 49 B2 30 3A 20 89 20 31 30 31 |130: PI.0: . 101|
00000380: 34 00 9B 0B F4 03 8D 20 32 30 30 30 3A 20 50 49 |4...... 2000: PI|
00000390: B2 50 49 AA 28 4F 43 AC 31 32 29 00 C0 0B F5 03 |.PI.(OC.12).....|
000003A0: 8B 20 50 B1 34 30 39 35 30 20 A7 20 99 20 22 54 |. P.40950 . . "T|
000003B0: 4F 4F 20 4D 55 43 48 20 44 41 54 41 22 3A 20 80 |OO MUCH DATA": .|
000003C0: 00 D2 0B F6 03 97 20 50 2C 50 49 3A 20 50 B2 50 |...... P,PI: P.P|
000003D0: AA 31 00 EB 0B F7 03 97 20 50 2C 44 55 AC 52 41 |.1...... P,DU.RA|
000003E0: 28 56 4E 29 3A 20 50 B2 50 AA 31 00 0A 0C F8 03 |(VN): P.P.1.....|
000003F0: 97 20 50 2C 44 55 AB B5 28 44 55 AC 52 41 28 56 |. P,DU..(DU.RA(V|
00000400: 4E 29 29 3A 20 50 B2 50 AA 31 00 15 0C F9 03 89 |N)): P.P.1......|
00000410: 20 31 30 30 35 00 1B 0C FA 03 8F 00 40 0C FB 03 | 1005.......@...|
00000420: 85 20 22 54 45 4D 50 4F 20 28 31 2D 32 35 35 29 |. "TEMPO (1-255)|
00000430: 22 3B 54 4D 3A 20 97 20 35 36 33 32 35 2C 54 4D |";TM: . 56325,TM|
00000440: 00 6F 0C FC 03 97 20 35 36 33 33 34 2C 30 3A 20 |.o.... 56334,0: |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 8F 20 53 54 4F 50 20 49 52 51 00 | . STOP IRQ.|
00000470: 7A 0C FD 03 8D 20 31 35 30 30 00 98 0C FE 03 97 |z.... 1500......|
00000480: 20 31 36 35 2C 30 3A 20 97 20 31 36 37 2C 30 3A | 165,0: . 167,0:|
00000490: 20 97 20 31 36 39 2C 30 00 B9 0C FF 03 97 20 31 | . 169,0...... 1|
000004A0: 36 36 2C 38 38 3A 20 97 31 36 38 2C 31 31 32 3A |66,88: .168,112:|
000004B0: 20 97 31 37 30 2C 31 33 36 00 DB 0C 00 04 81 20 | .170,136...... |
000004C0: 49 B2 34 39 33 35 35 20 A4 20 34 39 33 35 39 20 |I.49355 . 49359 |
000004D0: A9 20 32 3A 20 97 20 49 2C 33 32 00 F4 0C 01 04 |. 2: . I,32.....|
000004E0: 97 20 37 38 38 2C 32 30 38 3A 20 97 20 37 38 39 |. 788,208: . 789|
000004F0: 2C 31 39 32 00 14 0D 02 04 81 20 49 B2 34 39 33 |,192...... I.493|
00000500: 34 39 20 A4 20 34 39 33 35 34 3A 20 97 20 49 2C |49 . 49354: . I,|
00000510: 30 3A 20 82 00 20 0D 03 04 97 20 32 35 34 2C 30 |0: .. .... 254,0|
00000520: 00 42 0D 04 04 81 20 49 B2 30 20 A4 20 32 3A 20 |.B.... I.0 . 2: |
00000530: 97 20 34 39 33 34 34 AA 49 AC 32 2C 49 AC 37 3A |. 49344.I.2,I.7:|
00000540: 20 82 00 74 0D 0E 04 97 20 35 36 33 33 34 2C 31 | ..t.... 56334,1|
00000550: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000560: 20 20 20 20 20 20 20 8F 20 52 45 53 54 41 52 54 | . RESTART|
00000570: 20 49 52 51 00 A6 0D 0F 04 8B 20 C2 28 32 35 34 | IRQ...... .(254|
00000580: 29 B2 37 20 A7 20 31 30 32 30 3A 20 20 20 20 20 |).7 . 1020: |
00000590: 20 20 20 20 20 8F 20 54 45 53 54 20 27 45 4E 44 | . TEST 'END|
000005A0: 27 20 46 4C 41 47 00 C0 0D 10 04 A1 20 58 24 3A |' FLAG...... X$:|
000005B0: 20 8B 20 58 24 B3 B1 22 22 20 A7 20 31 30 31 39 | . X$.."" . 1019|
000005C0: 00 CB 0D 1A 04 89 20 31 30 33 39 00 ED 0D 77 05 |...... 1039...w.|
000005D0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 28 0E |-------------.(.|
000005F0: 78 05 97 20 50 2C 32 35 34 3A 20 50 B2 50 AA 31 |x.. P,254: P.P.1|
00000600: 3A 20 87 20 52 47 3A 97 20 50 2C 52 47 3A 20 50 |: . RG:. P,RG: P|
00000610: B2 50 AA 31 3A 87 20 50 41 3A 97 20 50 2C 50 41 |.P.1:. PA:. P,PA|
00000620: 3A 50 B2 50 AA 31 3A 8E 00 4B 0E DB 05 8F 20 2D |:P.P.1:..K.... -|
00000630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 6E 0E DC 05 |-----------.n...|
00000650: 53 49 B2 35 34 32 37 32 3A 20 99 20 22 49 4E 49 |SI.54272: . "INI|
00000660: 54 49 41 4C 49 53 49 4E 47 20 53 49 44 22 00 88 |TIALISING SID"..|
00000670: 0E E1 05 81 20 49 B2 53 49 20 A4 20 53 49 AA 32 |.... I.SI . SI.2|
00000680: 38 3A 20 97 20 49 2C 30 00 B4 0E E6 05 97 20 53 |8: . I,0...... S|
00000690: 49 AA 20 35 2C 31 36 AC 31 AA 31 3A 20 20 20 20 |I. 5,16.1.1: |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 41 | . A|
000006B0: 2C 44 27 53 00 C7 0E E7 05 97 20 53 49 AA 31 32 |,D'S...... SI.12|
000006C0: 2C 31 36 AC 31 AA 31 00 DA 0E E8 05 97 20 53 49 |,16.1.1...... SI|
000006D0: AA 31 39 2C 31 36 AC 31 AA 31 00 06 0F F0 05 97 |.19,16.1.1......|
000006E0: 20 53 49 AA 20 36 2C 31 36 AC 31 31 AA 31 3A 20 | SI. 6,16.11.1: |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 8F | .|
00000700: 20 53 2C 52 27 53 00 1A 0F F1 05 97 20 53 49 AA | S,R'S...... SI.|
00000710: 31 33 2C 31 36 AC 31 31 AA 31 00 2E 0F F2 05 97 |13,16.11.1......|
00000720: 20 53 49 AA 32 30 2C 31 36 AC 31 31 AA 31 00 5B | SI.20,16.11.1.[|
00000730: 0F FA 05 97 20 53 49 AA 32 34 2C 20 34 3A 20 20 |.... SI.24, 4: |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 8F 20 56 4F 4C 55 4D 45 00 8B 0F 04 06 | . VOLUME.....|
00000760: 97 20 53 49 AA 20 34 2C 30 3A 20 20 20 20 20 20 |. SI. 4,0: |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 8F 20 47 41 54 45 53 20 4F 46 46 00 99 0F 05 06 |. GATES OFF.....|
00000790: 97 20 53 49 AA 31 31 2C 30 00 A7 0F 06 06 97 20 |. SI.11,0...... |
000007A0: 53 49 AA 31 38 2C 30 00 AD 0F 0E 06 8E 00 D0 0F |SI.18,0.........|
000007B0: CF 07 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 00 03 10 D0 07 8B 20 C8 28 56 41 24 2C 31 29 B2 |...... .(VA$,1).|
000007E0: 22 2B 22 20 A7 20 4F 43 B2 4F 43 AA 31 3A 20 56 |"+" . OC.OC.1: V|
000007F0: 41 24 B2 CA 28 56 41 24 2C 32 29 3A 20 89 20 32 |A$..(VA$,2): . 2|
00000800: 30 34 30 00 36 10 D5 07 8B 20 C8 28 56 41 24 2C |040.6.... .(VA$,|
00000810: 31 29 B2 22 2D 22 20 A7 20 4F 43 B2 4F 43 AB 31 |1)."-" . OC.OC.1|
00000820: 3A 20 56 41 24 B2 CA 28 56 41 24 2C 32 29 3A 20 |: VA$..(VA$,2): |
00000830: 89 20 32 30 34 30 00 5F 10 DA 07 8B 20 C8 28 56 |. 2040._.... .(V|
00000840: 41 24 2C 31 29 B3 22 30 22 20 B0 20 C8 28 56 41 |A$,1)."0" . .(VA|
00000850: 24 2C 31 29 B1 22 39 22 20 A7 20 32 30 34 30 00 |$,1)."9" . 2040.|
00000860: 82 10 EE 07 4F 43 B2 C6 28 56 41 24 29 AB C6 28 |....OC..(VA$)..(|
00000870: 22 30 22 29 3A 20 56 41 24 B2 CA 28 56 41 24 2C |"0"): VA$..(VA$,|
00000880: 32 29 00 BF 10 F8 07 50 49 B2 C6 28 56 41 24 29 |2).....PI..(VA$)|
00000890: AB C6 28 22 41 22 29 3A 20 20 20 20 20 20 20 20 |..("A"): |
000008A0: 20 20 20 20 20 20 8F 20 47 45 54 20 50 49 54 43 | . GET PITC|
000008B0: 48 20 4C 45 54 54 45 52 20 41 53 20 30 2D 36 00 |H LETTER AS 0-6.|
000008C0: 04 11 02 08 50 49 B2 50 43 28 50 49 29 3A 20 20 |....PI.PC(PI): |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008E0: 20 20 20 20 20 20 20 8F 20 47 45 54 20 50 49 54 | . GET PIT|
000008F0: 43 48 20 41 53 20 2D 32 2C 30 2C 31 2C 33 2C 35 |CH AS -2,0,1,3,5|
00000900: 20 45 54 43 00 1B 11 0C 08 8B 20 50 49 B3 B2 30 | ETC...... PI..0|
00000910: 20 A7 20 50 49 B2 50 49 AA 31 32 00 4A 11 0E 08 | . PI.PI.12.J...|
00000920: 8F 20 50 55 54 20 22 41 22 20 41 4E 44 20 22 42 |. PUT "A" AND "B|
00000930: 22 20 41 54 20 54 48 45 20 54 4F 50 20 4F 46 20 |" AT THE TOP OF |
00000940: 54 48 45 20 4F 43 54 41 56 45 00 69 11 16 08 56 |THE OCTAVE.i...V|
00000950: 41 24 B2 CA 28 56 41 24 2C 32 29 3A 20 8B 20 56 |A$..(VA$,2): . V|
00000960: 41 24 B2 22 22 20 A7 20 8E 00 94 11 2A 08 8B 20 |A$."" . ....*.. |
00000970: C8 28 56 41 24 2C 31 29 B2 22 23 22 20 A7 20 50 |.(VA$,1)."#" . P|
00000980: 49 B2 50 49 AA 31 3A 20 56 41 24 B2 CA 28 56 41 |I.PI.1: VA$..(VA|
00000990: 24 2C 32 29 00 BF 11 3E 08 8B 20 C8 28 56 41 24 |$,2)...>.. .(VA$|
000009A0: 2C 31 29 B2 22 46 22 20 A7 20 50 49 B2 50 49 AB |,1)."F" . PI.PI.|
000009B0: 31 3A 20 56 41 24 B2 CA 28 56 41 24 2C 32 29 00 |1: VA$..(VA$,2).|
000009C0: FD 11 52 08 8B 20 56 41 24 B2 22 22 20 A7 20 8E |..R.. VA$."" . .|
000009D0: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 |: . |
000009E0: 45 58 49 54 20 49 46 20 44 45 46 41 55 4C 54 20 |EXIT IF DEFAULT |
000009F0: 44 55 52 41 54 49 4F 4E 20 55 53 45 44 00 37 12 |DURATION USED.7.|
00000A00: 5C 08 8B 20 C8 28 56 41 24 2C 31 29 B1 22 39 22 |\.. .(VA$,1)."9"|
00000A10: 20 B0 20 C8 28 56 41 24 2C 31 29 B3 22 30 22 20 | . .(VA$,1)."0" |
00000A20: A7 20 99 20 22 49 4C 4C 45 47 41 4C 20 46 4F 52 |. . "ILLEGAL FOR|
00000A30: 4D 41 54 22 3A 20 80 00 58 12 5E 08 8F 20 53 48 |MAT": ..X.^.. SH|
00000A40: 4F 55 4C 44 20 42 45 20 30 2D 39 2C 20 49 46 20 |OULD BE 0-9, IF |
00000A50: 41 4E 59 54 48 49 4E 47 00 69 12 66 08 44 55 B2 |ANYTHING.i.f.DU.|
00000A60: C5 28 56 41 24 29 3A 20 8E 00 8C 12 9E 0F 8F 20 |.(VA$): ....... |
00000A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B1 12 A0 |------------....|
00000A90: 0F 99 20 22 49 4E 49 54 49 41 4C 49 53 49 4E 47 |.. "INITIALISING|
00000AA0: 20 46 52 45 51 55 45 4E 43 59 20 54 41 42 4C 45 | FREQUENCY TABLE|
00000AB0: 22 00 E4 12 AA 0F 8F 20 41 4C 53 4F 20 50 4F 4B |"...... ALSO POK|
00000AC0: 45 53 20 48 49 2F 4C 4F 20 56 41 4C 55 45 53 20 |ES HI/LO VALUES |
00000AD0: 49 4E 54 4F 20 54 41 42 4C 45 53 20 41 54 20 24 |INTO TABLES AT $|
00000AE0: 43 30 30 30 00 F1 12 B4 0F 86 20 46 51 28 39 35 |C000...... FQ(95|
00000AF0: 29 00 26 13 BE 0F 46 51 28 39 35 29 B2 36 34 38 |).&...FQ(95).648|
00000B00: 31 34 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 |14: |
00000B10: 20 20 20 20 20 20 20 20 20 8F 20 54 4F 50 4D 4F | . TOPMO|
00000B20: 53 54 20 27 42 27 00 6B 13 C8 0F 81 20 49 B2 39 |ST 'B'.k.... I.9|
00000B30: 34 20 A4 20 38 34 A9 AB 31 3A 20 46 51 28 49 29 |4 . 84..1: FQ(I)|
00000B40: B2 46 51 28 49 AA 31 29 AD 28 32 AE 28 31 AD 31 |.FQ(I.1).(2.(1.1|
00000B50: 32 29 29 3A 20 82 3A 20 8F 20 44 45 52 49 56 45 |2)): .: . DERIVE|
00000B60: 20 54 4F 50 20 4F 43 54 41 56 45 00 89 13 D2 0F | TOP OCTAVE.....|
00000B70: 81 20 4A B2 36 20 A4 20 30 20 A9 AB 31 3A 20 81 |. J.6 . 0 ..1: .|
00000B80: 20 49 B2 31 20 A4 20 31 32 00 C7 13 DC 0F 50 31 | I.1 . 12.....P1|
00000B90: B2 31 32 AC 4A AA 49 AB 31 3A 20 46 51 28 50 31 |.12.J.I.1: FQ(P1|
00000BA0: 29 B2 46 51 28 50 31 AA 31 32 29 AD 32 3A 20 82 |).FQ(P1.12).2: .|
00000BB0: 3A 20 82 3A 20 8F 20 44 45 52 49 56 45 20 52 45 |: .: . DERIVE RE|
00000BC0: 4D 41 49 4E 44 45 52 00 0C 14 E6 0F 81 20 49 B2 |MAINDER...... I.|
00000BD0: 31 20 A4 20 39 35 3A 20 97 20 34 39 31 35 31 AA |1 . 95: . 49151.|
00000BE0: 49 2C 46 51 28 49 29 AB 32 35 36 AC B5 28 46 51 |I,FQ(I).256..(FQ|
00000BF0: 28 49 29 AD 32 35 36 29 3A 97 20 34 39 32 34 37 |(I).256):. 49247|
00000C00: AA 49 2C 46 51 28 49 29 AD 32 35 36 00 15 14 F0 |.I,FQ(I).256....|
00000C10: 0F 82 3A 20 8E 00 35 14 93 11 8F 20 2D 2D 2D 2D |..: ..5.... ----|
00000C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C30: 2D 2D 2D 2D 2D 00 52 14 94 11 99 20 22 4C 4F 41 |-----.R.... "LOA|
00000C40: 44 49 4E 47 20 4D 41 43 48 49 4E 45 20 43 4F 44 |DING MACHINE COD|
00000C50: 45 22 00 79 14 96 11 81 20 49 B2 34 39 33 36 30 |E".y.... I.49360|
00000C60: 20 A4 20 34 39 35 33 37 3A 20 87 56 3A 20 97 20 | . 49537: .V: . |
00000C70: 49 2C 56 3A 20 82 3A 20 8E 00 99 14 98 11 83 20 |I,V: .: ....... |
00000C80: 31 36 32 2C 20 30 2C 20 33 32 2C 20 32 32 36 2C |162, 0, 32, 226,|
00000C90: 20 31 39 32 2C 20 31 36 32 00 B7 14 9A 11 83 20 | 192, 162...... |
00000CA0: 32 2C 20 33 32 2C 20 32 32 36 2C 20 31 39 32 2C |2, 32, 226, 192,|
00000CB0: 20 31 36 32 2C 20 34 00 D7 14 A0 11 83 20 33 32 | 162, 4...... 32|
00000CC0: 2C 20 32 32 36 2C 20 31 39 32 2C 20 37 36 2C 20 |, 226, 192, 76, |
00000CD0: 34 39 2C 20 32 33 34 00 F9 14 A6 11 83 20 31 38 |49, 234...... 18|
00000CE0: 39 2C 20 31 39 37 2C 20 31 39 32 2C 20 32 34 30 |9, 197, 192, 240|
00000CF0: 2C 20 31 38 2C 20 32 32 32 00 19 15 AC 11 83 20 |, 18, 222...... |
00000D00: 31 39 37 2C 20 31 39 32 2C 20 32 34 30 2C 20 31 |197, 192, 240, 1|
00000D10: 2C 20 39 36 2C 20 31 38 38 00 3B 15 B2 11 83 20 |, 96, 188.;.... |
00000D20: 31 39 32 2C 20 31 39 32 2C 20 31 38 39 2C 20 32 |192, 192, 189, 2|
00000D30: 30 33 2C 20 31 39 32 2C 20 34 31 00 5B 15 B8 11 |03, 192, 41.[...|
00000D40: 83 20 32 35 34 2C 20 31 35 33 2C 20 34 2C 20 32 |. 254, 153, 4, 2|
00000D50: 31 32 2C 20 39 36 2C 20 31 38 39 00 7C 15 BE 11 |12, 96, 189.|...|
00000D60: 83 20 31 39 38 2C 20 31 39 32 2C 20 32 34 30 2C |. 198, 192, 240,|
00000D70: 20 36 2C 20 32 32 32 2C 20 31 39 38 00 9C 15 C4 | 6, 222, 198....|
00000D80: 11 83 20 31 39 32 2C 20 32 34 30 2C 20 31 2C 20 |.. 192, 240, 1, |
00000D90: 39 36 2C 20 31 36 31 2C 20 31 36 35 00 BD 15 CA |96, 161, 165....|
00000DA0: 11 83 20 32 34 30 2C 20 36 31 2C 20 32 30 31 2C |.. 240, 61, 201,|
00000DB0: 20 32 35 35 2C 20 32 30 38 2C 20 31 38 00 DE 15 | 255, 208, 18...|
00000DC0: D0 11 83 20 31 38 38 2C 20 31 39 32 2C 20 31 39 |... 188, 192, 19|
00000DD0: 32 2C 20 31 36 39 2C 20 30 2C 20 31 35 33 00 FD |2, 169, 0, 153..|
00000DE0: 15 D6 11 83 20 34 2C 20 32 31 32 2C 20 31 33 38 |.... 4, 212, 138|
00000DF0: 2C 20 32 30 38 2C 20 32 2C 20 32 33 32 00 1D 16 |, 208, 2, 232...|
00000E00: DC 11 83 20 31 33 38 2C 20 35 2C 20 32 35 34 2C |... 138, 5, 254,|
00000E10: 20 31 33 33 2C 20 32 35 34 2C 20 39 36 00 3F 16 | 133, 254, 96.?.|
00000E20: E2 11 83 20 32 30 31 2C 20 32 35 34 2C 20 32 34 |... 201, 254, 24|
00000E30: 30 2C 20 35 35 2C 20 32 30 31 2C 20 32 35 33 00 |0, 55, 201, 253.|
00000E40: 60 16 E8 11 83 20 32 34 30 2C 20 37 31 2C 20 31 |`.... 240, 71, 1|
00000E50: 36 38 2C 20 31 33 38 2C 20 37 32 2C 20 31 38 39 |68, 138, 72, 189|
00000E60: 00 83 16 EE 11 83 20 31 39 32 2C 20 31 39 32 2C |...... 192, 192,|
00000E70: 20 31 37 30 2C 20 31 38 35 2C 20 32 35 35 2C 20 | 170, 185, 255, |
00000E80: 31 39 31 00 A3 16 F4 11 83 20 31 35 37 2C 20 30 |191...... 157, 0|
00000E90: 2C 20 32 31 32 2C 20 31 38 35 2C 20 39 35 2C 20 |, 212, 185, 95, |
00000EA0: 31 39 32 00 C4 16 FA 11 83 20 31 35 37 2C 20 31 |192...... 157, 1|
00000EB0: 2C 20 32 31 32 2C 20 31 33 38 2C 20 31 36 38 2C |, 212, 138, 168,|
00000EC0: 20 31 30 34 00 E3 16 00 12 83 20 31 37 30 2C 20 | 104...... 170, |
00000ED0: 31 38 39 2C 20 32 30 33 2C 20 31 39 32 2C 20 39 |189, 203, 192, 9|
00000EE0: 2C 20 31 00 03 17 06 12 83 20 31 35 33 2C 20 34 |, 1...... 153, 4|
00000EF0: 2C 20 32 31 32 2C 20 33 32 2C 20 31 32 33 2C 20 |, 212, 32, 123, |
00000F00: 31 39 33 00 25 17 0C 12 83 20 31 36 31 2C 20 31 |193.%.... 161, 1|
00000F10: 36 35 2C 20 31 35 37 2C 20 31 39 37 2C 20 31 39 |65, 157, 197, 19|
00000F20: 32 2C 20 33 32 00 48 17 12 12 83 20 31 32 33 2C |2, 32.H.... 123,|
00000F30: 20 31 39 33 2C 20 31 36 31 2C 20 31 36 35 2C 20 | 193, 161, 165, |
00000F40: 31 35 37 2C 20 31 39 38 00 68 17 18 12 83 20 31 |157, 198.h.... 1|
00000F50: 39 32 2C 20 33 32 2C 20 31 32 33 2C 20 31 39 33 |92, 32, 123, 193|
00000F60: 2C 20 39 36 2C 20 33 32 00 8A 17 1E 12 83 20 31 |, 96, 32...... 1|
00000F70: 32 33 2C 20 31 39 33 2C 20 31 36 31 2C 20 31 36 |23, 193, 161, 16|
00000F80: 35 2C 20 31 36 38 2C 20 33 32 00 AB 17 24 12 83 |5, 168, 32...$..|
00000F90: 20 31 32 33 2C 20 31 39 33 2C 20 31 36 31 2C 20 | 123, 193, 161, |
00000FA0: 31 36 35 2C 20 31 35 33 2C 20 30 00 CA 17 2A 12 |165, 153, 0...*.|
00000FB0: 83 20 32 31 32 2C 20 33 32 2C 20 31 32 33 2C 20 |. 212, 32, 123, |
00000FC0: 31 39 33 2C 20 37 36 2C 20 34 00 EC 17 30 12 83 |193, 76, 4...0..|
00000FD0: 20 31 39 33 2C 20 33 32 2C 20 31 32 33 2C 20 31 | 193, 32, 123, 1|
00000FE0: 39 33 2C 20 31 36 31 2C 20 31 36 35 00 0E 18 36 |93, 161, 165...6|
00000FF0: 12 83 20 31 35 37 2C 20 32 30 33 2C 20 31 39 32 |.. 157, 203, 192|
00001000: 2C 20 33 32 2C 20 31 32 33 2C 20 31 39 33 00 2E |, 32, 123, 193..|
00001010: 18 3C 12 83 20 37 36 2C 20 34 2C 20 31 39 33 2C |.<.. 76, 4, 193,|
00001020: 20 32 34 36 2C 20 31 36 35 2C 20 32 30 38 00 44 | 246, 165, 208.D|
00001030: 18 42 12 83 20 32 2C 20 32 34 36 2C 20 31 36 36 |.B.. 2, 246, 166|
00001040: 2C 20 39 36 00 65 18 87 13 8F 20 2D 2D 2D 2D 2D |, 96.e.... -----|
00001050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001060: 2D 2D 2D 2D 2D 00 8A 18 88 13 99 22 49 4E 49 54 |-----......"INIT|
00001070: 49 41 4C 49 53 49 4E 47 20 50 49 54 43 48 20 41 |IALISING PITCH A|
00001080: 52 52 41 59 20 50 54 52 53 22 00 A0 18 92 13 81 |RRAY PTRS"......|
00001090: 49 B2 30 A4 36 3A 87 50 43 28 49 29 3A 82 3A 8E |I.0.6:.PC(I):.:.|
000010A0: 00 C1 18 9C 13 8F 20 43 4F 4E 56 45 52 54 53 20 |...... CONVERTS |
000010B0: 30 3D 41 2C 20 31 3D 42 2C 20 32 3D 43 20 45 54 |0=A, 1=B, 2=C ET|
000010C0: 43 00 E5 18 A6 13 8F 20 54 4F 20 50 54 52 53 20 |C...... TO PTRS |
000010D0: 49 4E 54 4F 20 50 49 54 43 48 20 41 52 52 41 59 |INTO PITCH ARRAY|
000010E0: 20 46 51 28 29 00 1B 19 B0 13 8F 20 43 3D 31 2C | FQ()...... C=1,|
000010F0: 20 44 3D 33 2C 45 3D 35 20 49 45 20 43 20 41 54 | D=3,E=5 IE C AT|
00001100: 20 42 4F 54 54 4F 4D 2C 20 52 4F 4F 4D 20 46 4F | BOTTOM, ROOM FO|
00001110: 52 20 53 45 4D 49 54 4F 4E 45 53 00 2F 19 BA 13 |R SEMITONES./...|
00001120: 83 2D 32 2C 30 2C 31 2C 33 2C 35 2C 36 2C 38 00 |.-2,0,1,3,5,6,8.|
00001130: 50 19 0F 27 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |P..'. ----------|
00001140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001150: 00 67 19 10 27 83 20 57 2C 36 34 2C 50 2C 33 2C |.g..'. W,64,P,3,|
00001160: 33 2C 4F 2C 30 2E 39 00 8C 19 11 27 83 20 52 36 |3,O,0.9....'. R6|
00001170: 34 2C 52 2C 34 42 46 38 2C 35 44 2C 46 31 36 2C |4,R,4BF8,5D,F16,|
00001180: 34 42 46 38 2C 35 45 46 2C 47 32 30 00 B2 19 15 |4BF8,5EF,G20....|
00001190: 27 83 20 42 46 34 2C 41 2C 47 2C 46 38 2C 45 46 |'. BF4,A,G,F8,EF|
000011A0: 2C 44 2C 43 34 2C 44 2C 45 46 2C 44 2C 43 2C 34 |,D,C4,D,EF,D,C,4|
000011B0: 42 46 00 D4 19 1A 27 83 20 35 43 38 2C 43 2C 46 |BF....'. 5C8,C,F|
000011C0: 32 30 2C 45 46 34 2C 44 2C 45 46 2C 46 2C 45 46 |20,EF4,D,EF,F,EF|
000011D0: 2C 44 2C 43 00 F0 19 1F 27 83 20 44 38 2C 44 2C |,D,C....'. D8,D,|
000011E0: 47 32 34 2C 43 38 2C 44 34 2C 45 46 2C 46 31 36 |G24,C8,D4,EF,F16|
000011F0: 00 1B 1A 24 27 83 20 34 42 46 38 2C 35 43 34 2C |...$'. 4BF8,5C4,|
00001200: 44 2C 45 46 31 32 2C 34 47 34 2C 41 46 2C 35 43 |D,EF12,4G4,AF,5C|
00001210: 2C 34 42 46 2C 41 46 2C 47 2C 46 00 3F 1A 29 27 |,4BF,AF,G,F.?.)'|
00001220: 83 20 35 46 38 2C 44 2C 45 46 32 30 2C 47 34 2C |. 5F8,D,EF20,G4,|
00001230: 46 2C 45 46 2C 44 2C 43 2C 34 42 46 2C 35 43 00 |F,EF,D,C,4BF,5C.|
00001240: 71 1A 2E 27 83 20 44 46 2C 34 41 46 2C 47 2C 46 |q..'. DF,4AF,G,F|
00001250: 2C 45 46 2C 47 2C 41 46 2C 42 46 2C 35 43 2C 34 |,EF,G,AF,BF,5C,4|
00001260: 42 46 2C 41 46 2C 47 2C 46 2C 42 46 2C 35 43 2C |BF,AF,G,F,BF,5C,|
00001270: 44 00 A4 1A 33 27 83 20 45 46 2C 43 2C 2D 42 46 |D...3'. EF,C,-BF|
00001280: 2C 41 46 2C 47 2C 2B 44 2C 45 46 2C 46 2C 2D 42 |,AF,G,+D,EF,F,-B|
00001290: 46 2C 2B 45 46 2C 46 2C 47 2C 43 2C 46 2C 2D 42 |F,+EF,F,G,C,F,-B|
000012A0: 46 2C 41 46 00 C9 1A 38 27 83 20 47 31 36 2C 52 |F,AF...8'. G16,R|
000012B0: 38 2C 47 2C 46 34 2C 41 46 2C 2B 44 2C 43 2C 44 |8,G,F4,AF,+D,C,D|
000012C0: 2C 2D 41 46 2C 46 2C 41 46 00 F0 1A 3D 27 83 20 |,-AF,F,AF...='. |
000012D0: 47 2C 42 46 2C 2B 45 46 2C 2D 42 46 2C 47 2C 42 |G,BF,+EF,-BF,G,B|
000012E0: 46 2C 45 46 2C 47 2C 44 38 2C 46 2C 42 46 31 36 |F,EF,G,D8,F,BF16|
000012F0: 00 14 1B 42 27 83 20 45 46 38 2C 47 2C 42 46 32 |...B'. EF8,G,BF2|
00001300: 30 2C 2B 43 34 2C 45 2C 44 2C 45 2C 2D 42 46 2C |0,+C4,E,D,E,-BF,|
00001310: 47 2C 42 46 00 38 1B 47 27 83 20 41 2C 2B 43 2C |G,BF.8.G'. A,+C,|
00001320: 46 2C 43 2C 2D 41 2C 2B 43 2C 2D 46 2C 41 2C 45 |F,C,-A,+C,-F,A,E|
00001330: 38 2C 47 2C 2B 43 31 36 00 5C 1B 4C 27 83 20 2D |8,G,+C16.\.L'. -|
00001340: 46 38 2C 41 2C 2B 43 32 30 2C 44 34 2C 46 23 2C |F8,A,+C20,D4,F#,|
00001350: 45 2C 46 23 2C 43 2C 2D 41 2C 2B 43 00 8A 1B 51 |E,F#,C,-A,+C...Q|
00001360: 27 83 20 2D 42 46 2C 2B 44 2C 47 2C 44 2C 2D 42 |'. -BF,+D,G,D,-B|
00001370: 46 2C 2B 44 2C 2D 47 2C 42 46 2C 2B 43 38 2C 2D |F,+D,-G,BF,+C8,-|
00001380: 46 2C 2B 46 2C 45 46 34 2C 44 00 AF 1B 56 27 83 |F,+F,EF4,D...V'.|
00001390: 20 43 2C 2D 46 2C 47 2C 41 2C 42 46 2C 2B 43 2C | C,-F,G,A,BF,+C,|
000013A0: 44 2C 45 46 2C 46 38 2C 44 2C 2D 42 46 31 36 00 |D,EF,F8,D,-BF16.|
000013B0: CD 1B 5B 27 83 20 2B 46 38 2C 44 2C 2D 41 46 31 |..['. +F8,D,-AF1|
000013C0: 36 2C 2B 46 38 2C 44 2C 2D 47 2C 2B 46 00 EE 1B |6,+F8,D,-G,+F...|
000013D0: 60 27 83 20 45 46 2C 43 2C 2D 47 2C 2B 43 34 2C |`'. EF,C,-G,+C4,|
000013E0: 44 2C 45 46 38 2C 43 2C 2D 46 2C 2B 45 46 00 12 |D,EF8,C,-F,+EF..|
000013F0: 1C 65 27 83 20 44 38 2C 2D 42 46 2C 46 2C 42 46 |.e'. D8,-BF,F,BF|
00001400: 34 2C 2B 43 2C 44 46 38 2C 2D 42 46 2C 45 2C 2B |4,+C,DF8,-BF,E,+|
00001410: 44 46 00 36 1C 6A 27 83 20 43 34 2C 2D 42 46 2C |DF.6.j'. C4,-BF,|
00001420: 41 2C 47 2C 46 2C 45 46 2C 44 2C 43 2C 44 38 2C |A,G,F,EF,D,C,D8,|
00001430: 42 46 2C 43 2C 41 00 47 1C 74 27 83 20 42 46 31 |BF,C,A.G.t'. BF1|
00001440: 36 2C 52 2C 52 2C 52 00 4F 1C 1F 4E 83 20 5A 00 |6,R,R,R.O..N. Z.|
00001450: 67 1C 20 4E 83 20 57 2C 36 34 2C 50 2C 31 30 2C |g. N. W,64,P,10,|
00001460: 35 2C 4F 2C 30 2E 38 00 85 1C 21 4E 83 20 34 45 |5,O,0.8...!N. 4E|
00001470: 46 38 2C 47 2C 42 46 31 36 2C 45 46 38 2C 41 46 |F8,G,BF16,EF8,AF|
00001480: 2C 35 43 32 30 00 AC 1C 25 4E 83 20 45 46 34 2C |,5C20...%N. EF4,|
00001490: 44 2C 43 2C 34 42 46 38 2C 41 46 2C 47 2C 46 34 |D,C,4BF8,AF,G,F4|
000014A0: 2C 47 2C 41 46 2C 47 2C 46 2C 45 46 00 D8 1C 2A |,G,AF,G,F,EF...*|
000014B0: 4E 83 20 46 2C 45 46 2C 44 2C 43 2C 33 42 46 2C |N. F,EF,D,C,3BF,|
000014C0: 34 44 2C 45 46 2C 46 2C 47 2C 46 2C 45 46 2C 44 |4D,EF,F,G,F,EF,D|
000014D0: 2C 43 2C 46 2C 47 2C 41 00 FB 1C 2F 4E 83 20 42 |,C,F,G,A.../N. B|
000014E0: 46 31 32 2C 35 43 34 2C 34 41 31 32 2C 42 46 34 |F12,5C4,4A12,BF4|
000014F0: 2C 42 46 38 2C 46 2C 42 46 32 30 00 1E 1D 34 4E |,BF8,F,BF20...4N|
00001500: 83 20 41 46 34 2C 47 2C 41 46 2C 42 46 2C 41 46 |. AF4,G,AF,BF,AF|
00001510: 2C 47 2C 46 2C 47 38 2C 47 2C 35 43 32 30 00 50 |,G,F,G8,G,5C20.P|
00001520: 1D 39 4E 83 20 34 42 46 34 2C 41 2C 42 46 2C 35 |.9N. 4BF4,A,BF,5|
00001530: 43 2C 34 42 46 2C 41 46 2C 47 2C 41 46 2C 47 2C |C,4BF,AF,G,AF,G,|
00001540: 41 46 2C 35 43 2C 34 42 46 2C 41 46 2C 47 2C 46 |AF,5C,4BF,AF,G,F|
00001550: 00 7C 1D 3E 4E 83 20 47 2C 46 2C 47 2C 42 46 2C |.|.>N. G,F,G,BF,|
00001560: 41 46 2C 47 2C 46 2C 45 46 2C 46 2C 45 46 2C 46 |AF,G,F,EF,F,EF,F|
00001570: 2C 41 46 2C 47 2C 46 2C 45 46 2C 44 00 9B 1D 43 |,AF,G,F,EF,D...C|
00001580: 4E 83 20 45 46 2C 44 2C 43 2C 33 42 46 2C 34 42 |N. EF,D,C,3BF,4B|
00001590: 46 38 2C 41 46 2C 47 31 36 2C 46 00 B8 1D 48 4E |F8,AF,G16,F...HN|
000015A0: 83 20 45 46 38 2C 47 2C 42 46 31 36 2C 45 46 38 |. EF8,G,BF16,EF8|
000015B0: 2C 41 46 2C 35 43 32 30 00 DA 1D 4D 4E 83 20 45 |,AF,5C20...MN. E|
000015C0: 46 34 2C 44 2C 43 2C 2D 42 46 38 2C 41 46 2C 47 |F4,D,C,-BF8,AF,G|
000015D0: 2C 2B 45 46 2C 2D 46 2C 2B 44 00 F6 1D 52 4E 83 |,+EF,-F,+D...RN.|
000015E0: 20 2D 45 46 31 36 2C 52 38 2C 45 46 38 2C 44 2C | -EF16,R8,EF8,D,|
000015F0: 46 2C 42 46 31 36 00 1D 1E 57 4E 83 20 45 46 38 |F,BF16...WN. EF8|
00001600: 2C 47 2C 42 46 31 36 2C 46 34 2C 41 46 2C 2B 44 |,G,BF16,F4,AF,+D|
00001610: 2C 43 2C 44 2C 2D 41 46 2C 46 2C 41 46 00 44 1E |,C,D,-AF,F,AF.D.|
00001620: 5C 4E 83 20 47 2C 42 46 2C 2B 45 46 2C 2D 42 46 |\N. G,BF,+EF,-BF|
00001630: 2C 47 2C 42 46 2C 45 46 2C 44 2C 45 38 2C 47 2C |,G,BF,EF,D,E8,G,|
00001640: 2B 43 31 36 00 6C 1E 61 4E 83 20 2D 46 38 2C 41 |+C16.l.aN. -F8,A|
00001650: 2C 2B 43 31 36 2C 2D 47 34 2C 42 46 2C 2B 45 2C |,+C16,-G4,BF,+E,|
00001660: 44 2C 45 2C 2D 42 46 2C 47 2C 42 46 00 91 1E 66 |D,E,-BF,G,BF...f|
00001670: 4E 83 20 41 2C 2B 43 2C 46 2C 43 2C 2D 41 2C 2B |N. A,+C,F,C,-A,+|
00001680: 43 2C 2D 46 2C 45 2C 46 23 38 2C 41 2C 2B 44 31 |C,-F,E,F#8,A,+D1|
00001690: 36 00 B6 1E 6B 4E 83 20 2D 47 38 2C 42 46 2C 2B |6...kN. -G8,BF,+|
000016A0: 45 46 32 30 2C 44 34 2C 43 2C 44 2C 45 46 2C 44 |EF20,D4,C,D,EF,D|
000016B0: 2C 43 2C 2D 42 46 00 E2 1E 70 4E 83 20 41 31 36 |,C,-BF...pN. A16|
000016C0: 2C 52 34 2C 41 2C 42 46 2C 2B 43 2C 2D 42 46 2C |,R4,A,BF,+C,-BF,|
000016D0: 2B 44 2C 46 2C 45 46 2C 46 2C 44 2C 2D 42 46 2C |+D,F,EF,F,D,-BF,|
000016E0: 2B 44 00 14 1F 75 4E 83 20 2D 41 46 2C 2B 44 2C |+D...uN. -AF,+D,|
000016F0: 46 2C 45 46 2C 46 2C 44 2C 2D 41 46 2C 2B 44 2C |F,EF,F,D,-AF,+D,|
00001700: 2D 47 2C 2B 44 2C 46 2C 45 46 2C 46 2C 44 2C 2D |-G,+D,F,EF,F,D,-|
00001710: 47 2C 2B 44 00 46 1F 7A 4E 83 20 2D 47 2C 2B 43 |G,+D.F.zN. -G,+C|
00001720: 2C 45 46 2C 44 2C 45 46 2C 43 2C 2D 47 2C 2B 43 |,EF,D,EF,C,-G,+C|
00001730: 2C 2D 46 2C 2B 43 2C 45 46 2C 44 2C 45 46 2C 43 |,-F,+C,EF,D,EF,C|
00001740: 2C 2D 46 2C 2B 43 00 79 1F 7F 4E 83 20 2D 46 2C |,-F,+C.y..N. -F,|
00001750: 42 46 2C 2B 44 2C 43 2C 44 2C 2D 42 46 2C 46 2C |BF,+D,C,D,-BF,F,|
00001760: 42 46 2C 45 2C 42 46 2C 2B 44 46 2C 43 2C 44 46 |BF,E,BF,+DF,C,DF|
00001770: 2C 2D 42 46 2C 45 2C 42 46 00 9F 1F 84 4E 83 20 |,-BF,E,BF....N. |
00001780: 46 2C 47 2C 41 2C 42 46 2C 2B 43 32 30 2C 2D 46 |F,G,A,BF,+C20,-F|
00001790: 34 2C 44 2C 46 2C 47 2C 45 46 2C 43 2C 45 46 00 |4,D,F,G,EF,C,EF.|
000017A0: AF 1F 89 4E 83 20 44 31 36 2C 52 2C 52 2C 52 00 |...N. D16,R,R,R.|
000017B0: B6 1F 2F 75 83 5A 00 CF 1F 30 75 83 20 57 2C 36 |../u.Z...0u. W,6|
000017C0: 34 2C 50 2C 31 37 2C 37 2C 4F 2C 30 2E 39 38 00 |4,P,17,7,O,0.98.|
000017D0: F3 1F 31 75 83 20 33 45 46 31 36 2C 52 34 2C 47 |..1u. 3EF16,R4,G|
000017E0: 2C 46 2C 47 2C 43 31 36 2C 52 34 2C 45 46 2C 44 |,F,G,C16,R4,EF,D|
000017F0: 2C 45 46 00 0E 20 35 75 83 20 2D 41 46 31 36 2C |,EF.. 5u. -AF16,|
00001800: 42 46 2C 45 46 38 2C 2B 45 46 2C 44 2C 43 00 29 |BF,EF8,+EF,D,C.)|
00001810: 20 3A 75 83 20 44 2C 46 2C 44 2C 2D 42 46 2C 2B | :u. D,F,D,-BF,+|
00001820: 45 46 2C 47 2C 45 46 2C 43 00 44 20 3F 75 83 20 |EF,G,EF,C.D ?u. |
00001830: 44 2C 45 46 2C 46 2C 2D 46 2C 42 46 31 36 2C 52 |D,EF,F,-F,BF16,R|
00001840: 38 2C 2B 44 00 5E 20 44 75 83 20 46 31 36 2C 52 |8,+D.^ Du. F16,R|
00001850: 38 2C 41 46 2C 43 31 36 2C 52 38 2C 45 46 00 78 |8,AF,C16,R8,EF.x|
00001860: 20 49 75 83 20 47 31 36 2C 52 38 2C 42 46 2C 43 | Iu. G16,R8,BF,C|
00001870: 2C 45 46 2C 41 46 31 36 00 99 20 4E 75 83 20 2D |,EF,AF16.. Nu. -|
00001880: 42 46 38 2C 2B 44 2C 47 31 36 2C 2D 41 46 38 2C |BF8,+D,G16,-AF8,|
00001890: 2B 43 2C 46 2C 41 46 31 36 00 B7 20 53 75 83 20 |+C,F,AF16.. Su. |
000018A0: 2D 41 46 38 2C 47 2C 2B 43 2C 2D 42 46 2C 2B 42 |-AF8,G,+C,-BF,+B|
000018B0: 46 31 36 2C 41 46 38 00 D3 20 58 75 83 20 47 2C |F16,AF8.. Xu. G,|
000018C0: 42 46 2C 47 2C 45 46 2C 41 46 2C 2B 43 2C 2D 41 |BF,G,EF,AF,+C,-A|
000018D0: 46 2C 46 00 EF 20 5D 75 83 20 47 2C 41 46 2C 42 |F,F.. ]u. G,AF,B|
000018E0: 46 2C 44 2C 45 46 2C 43 2C 2D 41 46 2C 42 46 00 |F,D,EF,C,-AF,BF.|
000018F0: 0A 21 62 75 83 20 45 46 2C 46 2C 47 2C 45 46 2C |.!bu. EF,F,G,EF,|
00001900: 42 46 31 36 2C 52 38 2C 2B 44 00 26 21 67 75 83 |BF16,R8,+D.&!gu.|
00001910: 20 45 46 31 36 2C 52 38 2C 2D 47 2C 42 46 31 36 | EF16,R8,-G,BF16|
00001920: 2C 52 38 2C 2B 44 00 3F 21 6C 75 83 20 45 46 31 |,R8,+D.?!lu. EF1|
00001930: 36 2C 52 38 2C 47 2C 43 31 36 2C 52 38 2C 45 00 |6,R8,G,C16,R8,E.|
00001940: 59 21 71 75 83 20 46 31 36 2C 52 38 2C 2D 41 2C |Y!qu. F16,R8,-A,|
00001950: 2B 43 31 36 2C 52 38 2C 45 00 72 21 76 75 83 20 |+C16,R8,E.r!vu. |
00001960: 46 31 36 2C 52 38 2C 41 2C 44 31 36 2C 52 38 2C |F16,R8,A,D16,R8,|
00001970: 46 23 00 8E 21 7B 75 83 20 47 31 36 2C 52 38 2C |F#..!{u. G16,R8,|
00001980: 2B 43 2C 2D 42 46 2C 41 2C 42 46 2C 45 46 00 A9 |+C,-BF,A,BF,EF..|
00001990: 21 80 75 83 20 46 2C 2D 46 2C 2B 46 2C 45 46 2C |!.u. F,-F,+F,EF,|
000019A0: 44 31 36 2C 52 38 2C 2B 44 00 C4 21 85 75 83 20 |D16,R8,+D..!.u. |
000019B0: 43 31 36 2C 52 38 2C 2D 43 2C 2D 42 31 36 2C 52 |C16,R8,-C,-B16,R|
000019C0: 38 2C 2B 42 00 E0 21 8A 75 83 20 2B 43 31 36 2C |8,+B..!.u. +C16,|
000019D0: 52 38 2C 32 42 46 2C 41 31 36 2C 52 38 2C 2B 41 |R8,2BF,A16,R8,+A|
000019E0: 00 FB 21 8F 75 83 20 42 46 31 36 2C 52 38 2C 41 |..!.u. BF16,R8,A|
000019F0: 46 2C 47 31 36 2C 52 38 2C 2D 47 00 16 22 94 75 |F,G16,R8,-G..".u|
00001A00: 83 20 41 2C 2B 43 2C 2D 41 2C 46 2C 42 46 2C 2B |. A,+C,-A,F,BF,+|
00001A10: 44 2C 45 46 2C 46 00 28 22 99 75 83 20 2D 42 46 |D,EF,F.(".u. -BF|
00001A20: 31 36 2C 52 2C 52 2C 52 00 30 22 3F 9C 83 20 5A |16,R,R,R.0"?.. Z|
00001A30: 00 00 00 |... |
..&.... * PROGRAM 13-5 *.K
.... * LINES 1000+ PRINT OUT DATA *.P...
. * AS IT'S READ - SLIGHTLY *...... *
LONGER THAN VERSION IN BOOK*.....:.....
. 56,88: .: . SET TOP OF MEM
ORY BELOW DATA STORAGE AREA...... 4500:
. LOAD MACHINE LANGUAGE.
T.... "IS THE MUSIC DATA ALREADY IN RAM"
;A$: . A$."Y" . 1019...... 5000:. INITIA
LISE ARRAY HANDLIING LETTER-NAME->ARRAY
PTR CONVERSION.U.(.. 4000:
. SET UP HI/LO FREQ VALUES. .... READ
THE DATA AND POKE CODED FORM INTO MEMOR
Y FOR IRQ-DRIVEN ROUTINE.Z.... VN.0 . 2:
RA(VN).0.50: DU.16: OC.4: P.22528.VN.61
44...... VA$: TD.B(63).256.B(64): . TD..
LD . LD.TD: .: .LD;.D.... VA$" ";: . VA$
."Z" . .: . P,255: .: . 1019...... H(VA$
,1)."O" . . RA(VN): . 1005.%.... H(VA$,1
)."W" . . P,253:P.P.1:. WV:.P,WV:P.P.1:.
1005.I.... H(VA$,1)."P" . . 1400: . 100
5...... H(VA$,1)."R" . VA$.J(VA$,2): . 2
130: PI.0: . 1014...... 2000: PI.PI.(OC.
12)...... P.40950 . . "TOO MUCH DATA": .
.R.... P,PI: P.P.1...... P,DU.RA(VN): P.
P.1...... P,DU..(DU.RA(VN)): P.P.1......
1005.......@.... "TEMPO (1-255)";TM: .
56325,TM.O.... 56334,0:
. STOP IRQ.Z.... 1500...... 165,0:
. 167,0: . 169,0...... 166,88: .168,112:
.170,136...... I.49355 . 49359 . 2: . I
,32...... 788,208: . 789,192...... I.493
49 . 49354: . I,0: .. .... 254,0.B.... I
.0 . 2: . 49344.I.2,I.7: ..T.... 56334,1
: . RESTART IRQ....
.. B(254).7 . 1020: . TEST 'END
' FLAG...... X$: . X$.."" . 1019.K.... 1
039...W.. ---------------------------.(.
X.. P,254: P.P.1: . RG:. P,RG: P.P.1:. P
A:. P,PA:P.P.1:..K.... -----------------
-----------.N...SI.54272: . "INITIALISIN
G SID"...... I.SI . SI.28: . I,0...... S
I. 5,16.1.1: . A,D'S.G..
.. SI.12,16.1.1.Z.... SI.19,16.1.1......
SI. 6,16.11.1: . S,R'S..
.... SI.13,16.11.1...... SI.20,16.11.1.[
.... SI.24, 4: . VOL
UME...... SI. 4,0:
. GATES OFF...... SI.11,0...... SI.18,0.
......P.O.. ----------------------------
...P.. H(VA$,1)."+" . OC.OC.1: VA$.J(VA$
,2): . 2040.6.U.. H(VA$,1)."-" . OC.OC.1
: VA$.J(VA$,2): . 2040._.Z.. H(VA$,1)."0
" . H(VA$,1)."9" . 2040.....OC.F(VA$).F(
"0"): VA$.J(VA$,2).....PI.F(VA$).F("A"):
. GET PITCH LETTER AS 0-6.
....PI.PC(PI): .
GET PITCH AS -2,0,1,3,5 ETC...... PI..0
. PI.PI.12.J.... PUT "A" AND "B" AT THE
TOP OF THE OCTAVE.I...VA$.J(VA$,2): . V
A$."" . ....*.. H(VA$,1)."#" . PI.PI.1:
VA$.J(VA$,2)...>.. H(VA$,1)."F" . PI.PI.
1: VA$.J(VA$,2)...R.. VA$."" . .:
. EXIT IF DEFAULT DURATION USED.7.
\.. H(VA$,1)."9" . H(VA$,1)."0" . . "ILL
EGAL FORMAT": ..X.^.. SHOULD BE 0-9, IF
ANYTHING.I.F.DU.E(VA$): ....... --------
--------------------... .. "INITIALISING
FREQUENCY TABLE"...... ALSO POKES HI/LO
VALUES INTO TABLES AT $C000...... FQ(95
).&...FQ(95).64814:
. TOPMOST 'B'.K.H.. I.94 . 84..1: FQ(I)
.FQ(I.1).(2.(1.12)): .: . DERIVE TOP OCT
AVE...R.. J.6 . 0 ..1: . I.1 . 12.G...P1
.12.J.I.1: FQ(P1).FQ(P1.12).2: .: .: . D
ERIVE REMAINDER...... I.1 . 95: . 49151.
I,FQ(I).256..(FQ(I).256):. 49247.I,FQ(I)
.256......: ..5.... --------------------
-----.R.... "LOADING MACHINE CODE".Y....
I.49360 . 49537: .V: . I,V: .: .......
162, 0, 32, 226, 192, 162...... 2, 32, 2
26, 192, 162, 4.W. .. 32, 226, 192, 76,
49, 234...... 189, 197, 192, 240, 18, 22
2...... 197, 192, 240, 1, 96, 188.;....
192, 192, 189, 203, 192, 41.[.... 254, 1
53, 4, 212, 96, 189.|.... 198, 192, 240,
6, 222, 198...D.. 192, 240, 1, 96, 161,
165...J.. 240, 61, 201, 255, 208, 18...
P.. 188, 192, 192, 169, 0, 153...V.. 4,
212, 138, 208, 2, 232...... 138, 5, 254,
133, 254, 96.?.... 201, 254, 240, 55, 2
01, 253.`.... 240, 71, 168, 138, 72, 189
...... 192, 192, 170, 185, 255, 191.....
. 157, 0, 212, 185, 95, 192.D.... 157, 1
, 212, 138, 168, 104...... 170, 189, 203
, 192, 9, 1...... 153, 4, 212, 32, 123,
193.%.... 161, 165, 157, 197, 192, 32.H.
... 123, 193, 161, 165, 157, 198.H.... 1
92, 32, 123, 193, 96, 32...... 123, 193,
161, 165, 168, 32...$.. 123, 193, 161,
165, 153, 0.J.*.. 212, 32, 123, 193, 76,
4...0.. 193, 32, 123, 193, 161, 165...6
.. 157, 203, 192, 32, 123, 193...<.. 76,
4, 193, 246, 165, 208.D.B.. 2, 246, 166
, 96.E.... --------------------------...
..."INITIALISING PITCH ARRAY PTRS". ....
I.0.6:.PC(I):.:..A.... CONVERTS 0=A, 1=B
, 2=C ETC...... TO PTRS INTO PITCH ARRAY
FQ()...... C=1, D=3,E=5 IE C AT BOTTOM,
ROOM FOR SEMITONES./....-2,0,1,3,5,6,8.
P..'. --------------------------.G..'. W
,64,P,3,3,O,0.9....'. R64,R,4BF8,5D,F16,
4BF8,5EF,G20....'. BF4,A,G,F8,EF,D,C4,D,
EF,D,C,4BF.T..'. 5C8,C,F20,EF4,D,EF,F,EF
,D,C....'. D8,D,G24,C8,D4,EF,F16...$'. 4
BF8,5C4,D,EF12,4G4,AF,5C,4BF,AF,G,F.?.)'
. 5F8,D,EF20,G4,F,EF,D,C,4BF,5C.Q..'. DF
,4AF,G,F,EF,G,AF,BF,5C,4BF,AF,G,F,BF,5C,
D...3'. EF,C,-BF,AF,G,+D,EF,F,-BF,+EF,F,
G,C,F,-BF,AF.I.8'. G16,R8,G,F4,AF,+D,C,D
,-AF,F,AF...='. G,BF,+EF,-BF,G,BF,EF,G,D
8,F,BF16...B'. EF8,G,BF20,+C4,E,D,E,-BF,
G,BF.8.G'. A,+C,F,C,-A,+C,-F,A,E8,G,+C16
.\.L'. -F8,A,+C20,D4,F#,E,F#,C,-A,+C...Q
'. -BF,+D,G,D,-BF,+D,-G,BF,+C8,-F,+F,EF4
,D...V'. C,-F,G,A,BF,+C,D,EF,F8,D,-BF16.
M.['. +F8,D,-AF16,+F8,D,-G,+F...`'. EF,C
,-G,+C4,D,EF8,C,-F,+EF...E'. D8,-BF,F,BF
4,+C,DF8,-BF,E,+DF.6.J'. C4,-BF,A,G,F,EF
,D,C,D8,BF,C,A.G.T'. BF16,R,R,R.O..N. Z.
G. N. W,64,P,10,5,O,0.8...!N. 4EF8,G,BF1
6,EF8,AF,5C20...%N. EF4,D,C,4BF8,AF,G,F4
,G,AF,G,F,EF.X.*N. F,EF,D,C,3BF,4D,EF,F,
G,F,EF,D,C,F,G,A.../N. BF12,5C4,4A12,BF4
,BF8,F,BF20...4N. AF4,G,AF,BF,AF,G,F,G8,
G,5C20.P.9N. 4BF4,A,BF,5C,4BF,AF,G,AF,G,
AF,5C,4BF,AF,G,F.|.>N. G,F,G,BF,AF,G,F,E
F,F,EF,F,AF,G,F,EF,D...CN. EF,D,C,3BF,4B
F8,AF,G16,F...HN. EF8,G,BF16,EF8,AF,5C20
.Z.MN. EF4,D,C,-BF8,AF,G,+EF,-F,+D...RN.
-EF16,R8,EF8,D,F,BF16...WN. EF8,G,BF16,
F4,AF,+D,C,D,-AF,F,AF.D.\N. G,BF,+EF,-BF
,G,BF,EF,D,E8,G,+C16.L.AN. -F8,A,+C16,-G
4,BF,+E,D,E,-BF,G,BF...FN. A,+C,F,C,-A,+
C,-F,E,F#8,A,+D16...KN. -G8,BF,+EF20,D4,
C,D,EF,D,C,-BF...PN. A16,R4,A,BF,+C,-BF,
+D,F,EF,F,D,-BF,+D...UN. -AF,+D,F,EF,F,D
,-AF,+D,-G,+D,F,EF,F,D,-G,+D.F.ZN. -G,+C
,EF,D,EF,C,-G,+C,-F,+C,EF,D,EF,C,-F,+C.Y
.N. -F,BF,+D,C,D,-BF,F,BF,E,BF,+DF,C,DF
,-BF,E,BF....N. F,G,A,BF,+C20,-F4,D,F,G,
EF,C,EF....N. D16,R,R,R.../U.Z.O.0U. W,6
4,P,17,7,O,0.98...1U. 3EF16,R4,G,F,G,C16
,R4,EF,D,EF.. 5U. -AF16,BF,EF8,+EF,D,C.)
:U. D,F,D,-BF,+EF,G,EF,C.D ?U. D,EF,F,-
F,BF16,R8,+D.^ DU. F16,R8,AF,C16,R8,EF.X
IU. G16,R8,BF,C,EF,AF16.. NU. -BF8,+D,G
16,-AF8,+C,F,AF16.. SU. -AF8,G,+C,-BF,+B
F16,AF8.S XU. G,BF,G,EF,AF,+C,-AF,F.. ]U
. G,AF,BF,D,EF,C,-AF,BF..!BU. EF,F,G,EF,
BF16,R8,+D.&!GU. EF16,R8,-G,BF16,R8,+D.?
!LU. EF16,R8,G,C16,R8,E.Y!QU. F16,R8,-A,
+C16,R8,E.R!VU. F16,R8,A,D16,R8,F#..!{U.
G16,R8,+C,-BF,A,BF,EF..!.U. F,-F,+F,EF,
D16,R8,+D.D!.U. C16,R8,-C,-B16,R8,+B..!.
U. +C16,R8,2BF,A16,R8,+A..!.U. BF16,R8,A
F,G16,R8,-G..".U. A,+C,-A,F,BF,+D,EF,F.(
".U. -BF16,R,R,R.0"?.. Z...
> CLICK IMAGE PREVIEW FOR FULL MODAL