Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Regulars_2 » MikeC/MidiChord
MikeC/MidiChord
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Regulars_2 |
| Filename: | MikeC/MidiChord |
| Read OK: | ✔ |
| File size: | 01A5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Acorn sound Number to MIDI value 20REM Middle C = 53 Acorn & 60 MIDI 30REM Acorn 4 per semitone - MIDI 1 per semitone 40 41A1%=5:A2%=7:A3%=2 50FOR Acorn%=41 TO 89 STEP 4 60M%=60+(Acorn%-53)/4 70SYS&404CC,M%+A1%,127 80SYS&404CC,M%+A2%,127 90SYS&404CC,M%+A3%,127 100PRINTAcorn%,M% 110 120PROC_delay 130SYS&404CB,M%+A1%,127 140SYS&404CB,M%+A2%,127 141SYS&404CB,M%+A3%,127 160NEXT 170 180END 190 200DEF PROC_delay 210T%=TIME+30 220REPEAT UNTIL TIME>T% 230ENDPROC
&� Acorn sound Number to MIDI value #� Middle C = 53 Acorn & 60 MIDI 0� Acorn 4 per semitone - MIDI 1 per semitone ( )A1%=5:A2%=7:A3%=2 2� Acorn%=41 � 89 � 4 <M%=60+(Acorn%-53)/4 Fș&404CC,M%+A1%,127 Pș&404CC,M%+A2%,127 Zș&404CC,M%+A3%,127 d�Acorn%,M% n x �_delay �ș&404CB,M%+A1%,127 �ș&404CB,M%+A2%,127 �ș&404CB,M%+A3%,127 �� � �� � � � �_delay � T%=�+30 � � � �>T% �� �
00000000 0d 00 0a 26 f4 20 41 63 6f 72 6e 20 73 6f 75 6e |...&. Acorn soun| 00000010 64 20 4e 75 6d 62 65 72 20 74 6f 20 4d 49 44 49 |d Number to MIDI| 00000020 20 76 61 6c 75 65 0d 00 14 23 f4 20 4d 69 64 64 | value...#. Midd| 00000030 6c 65 20 43 20 3d 20 35 33 20 41 63 6f 72 6e 20 |le C = 53 Acorn | 00000040 26 20 36 30 20 4d 49 44 49 0d 00 1e 30 f4 20 41 |& 60 MIDI...0. A| 00000050 63 6f 72 6e 20 34 20 70 65 72 20 73 65 6d 69 74 |corn 4 per semit| 00000060 6f 6e 65 20 2d 20 4d 49 44 49 20 31 20 70 65 72 |one - MIDI 1 per| 00000070 20 73 65 6d 69 74 6f 6e 65 0d 00 28 04 0d 00 29 | semitone..(...)| 00000080 15 41 31 25 3d 35 3a 41 32 25 3d 37 3a 41 33 25 |.A1%=5:A2%=7:A3%| 00000090 3d 32 0d 00 32 18 e3 20 41 63 6f 72 6e 25 3d 34 |=2..2.. Acorn%=4| 000000a0 31 20 b8 20 38 39 20 88 20 34 0d 00 3c 17 4d 25 |1 . 89 . 4..<.M%| 000000b0 3d 36 30 2b 28 41 63 6f 72 6e 25 2d 35 33 29 2f |=60+(Acorn%-53)/| 000000c0 34 0d 00 46 17 c8 99 26 34 30 34 43 43 2c 4d 25 |4..F...&404CC,M%| 000000d0 2b 41 31 25 2c 31 32 37 0d 00 50 17 c8 99 26 34 |+A1%,127..P...&4| 000000e0 30 34 43 43 2c 4d 25 2b 41 32 25 2c 31 32 37 0d |04CC,M%+A2%,127.| 000000f0 00 5a 17 c8 99 26 34 30 34 43 43 2c 4d 25 2b 41 |.Z...&404CC,M%+A| 00000100 33 25 2c 31 32 37 0d 00 64 0e f1 41 63 6f 72 6e |3%,127..d..Acorn| 00000110 25 2c 4d 25 0d 00 6e 04 0d 00 78 0b f2 5f 64 65 |%,M%..n...x.._de| 00000120 6c 61 79 0d 00 82 17 c8 99 26 34 30 34 43 42 2c |lay......&404CB,| 00000130 4d 25 2b 41 31 25 2c 31 32 37 0d 00 8c 17 c8 99 |M%+A1%,127......| 00000140 26 34 30 34 43 42 2c 4d 25 2b 41 32 25 2c 31 32 |&404CB,M%+A2%,12| 00000150 37 0d 00 8d 17 c8 99 26 34 30 34 43 42 2c 4d 25 |7......&404CB,M%| 00000160 2b 41 33 25 2c 31 32 37 0d 00 a0 05 ed 0d 00 aa |+A3%,127........| 00000170 04 0d 00 b4 05 e0 0d 00 be 04 0d 00 c8 0d dd 20 |............... | 00000180 f2 5f 64 65 6c 61 79 0d 00 d2 0b 54 25 3d 91 2b |._delay....T%=.+| 00000190 33 30 0d 00 dc 0c f5 20 fd 20 91 3e 54 25 0d 00 |30..... . .>T%..| 000001a0 e6 05 e1 0d ff |.....| 000001a5
.