Home » Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Music/!PlayerMod/Bits/Monitor
Music/!PlayerMod/Bits/Monitor
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 » Micro User » MU 1991-07.adf » PD-Stuff |
| Filename: | Music/!PlayerMod/Bits/Monitor |
| Read OK: | ✔ |
| File size: | 01DE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1991-05.adf » PDStuff » Music/!PlayerMod/Bits/Monitor
- Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Music/!PlayerMod/Bits/Monitor
File contents
10REM > Monitor 20REM By Nick Smith, 23-Nov-90 30: 40MODE 0:OFF 50SYS "XOS_Module",18,"TrackerModule" TO ,,,point% 60: 70REPEAT 80 PRINT TAB(0,0); 90 FOR loop%=0 TO 180 STEP 4 100 PRINT ~!(point%+&A1C+loop%); 110 NEXT 120 PRINT TAB(0,09);"Position : ";!(point%+&A1C+164);" " 130 PRINT TAB(0,10);"Sample 1 : ";?(point%+&A1C+176);" " 140 PRINT TAB(0,11);"Sample 2 : ";?(point%+&A1C+177);" " 150 PRINT TAB(0,12);"Sample 3 : ";?(point%+&A1C+178);" " 160 PRINT TAB(0,13);"Sample 4 : ";?(point%+&A1C+179);" " 170UNTIL FALSE 180: 190END
� > Monitor � By Nick Smith, 23-Nov-90 : ( � 0:� 22ș "XOS_Module",18,"TrackerModule" � ,,,point% <: F� P � �0,0); Z � loop%=0 � 180 � 4 d � ~!(point%+&A1C+loop%); n � x4 � �0,09);"Position : ";!(point%+&A1C+164);" " �4 � �0,10);"Sample 1 : ";?(point%+&A1C+176);" " �4 � �0,11);"Sample 2 : ";?(point%+&A1C+177);" " �4 � �0,12);"Sample 3 : ";?(point%+&A1C+178);" " �4 � �0,13);"Sample 4 : ";?(point%+&A1C+179);" " �� � �: �� �
00000000 0d 00 0a 0f f4 20 3e 20 4d 6f 6e 69 74 6f 72 0d |..... > Monitor.| 00000010 00 14 20 f4 20 20 20 42 79 20 4e 69 63 6b 20 53 |.. . By Nick S| 00000020 6d 69 74 68 2c 20 32 33 2d 4e 6f 76 2d 39 30 0d |mith, 23-Nov-90.| 00000030 00 1e 05 3a 0d 00 28 09 eb 20 30 3a 87 0d 00 32 |...:..(.. 0:...2| 00000040 32 c8 99 20 22 58 4f 53 5f 4d 6f 64 75 6c 65 22 |2.. "XOS_Module"| 00000050 2c 31 38 2c 22 54 72 61 63 6b 65 72 4d 6f 64 75 |,18,"TrackerModu| 00000060 6c 65 22 20 b8 20 2c 2c 2c 70 6f 69 6e 74 25 0d |le" . ,,,point%.| 00000070 00 3c 05 3a 0d 00 46 05 f5 0d 00 50 0e 20 20 f1 |.<.:..F....P. .| 00000080 20 8a 30 2c 30 29 3b 0d 00 5a 19 20 20 e3 20 6c | .0,0);..Z. . l| 00000090 6f 6f 70 25 3d 30 20 b8 20 31 38 30 20 88 20 34 |oop%=0 . 180 . 4| 000000a0 0d 00 64 20 20 20 20 20 f1 20 7e 21 28 70 6f 69 |..d . ~!(poi| 000000b0 6e 74 25 2b 26 41 31 43 2b 6c 6f 6f 70 25 29 3b |nt%+&A1C+loop%);| 000000c0 0d 00 6e 07 20 20 ed 0d 00 78 34 20 20 f1 20 8a |..n. ...x4 . .| 000000d0 30 2c 30 39 29 3b 22 50 6f 73 69 74 69 6f 6e 20 |0,09);"Position | 000000e0 3a 20 22 3b 21 28 70 6f 69 6e 74 25 2b 26 41 31 |: ";!(point%+&A1| 000000f0 43 2b 31 36 34 29 3b 22 20 20 22 0d 00 82 34 20 |C+164);" "...4 | 00000100 20 f1 20 8a 30 2c 31 30 29 3b 22 53 61 6d 70 6c | . .0,10);"Sampl| 00000110 65 20 31 20 3a 20 22 3b 3f 28 70 6f 69 6e 74 25 |e 1 : ";?(point%| 00000120 2b 26 41 31 43 2b 31 37 36 29 3b 22 20 20 22 0d |+&A1C+176);" ".| 00000130 00 8c 34 20 20 f1 20 8a 30 2c 31 31 29 3b 22 53 |..4 . .0,11);"S| 00000140 61 6d 70 6c 65 20 32 20 3a 20 22 3b 3f 28 70 6f |ample 2 : ";?(po| 00000150 69 6e 74 25 2b 26 41 31 43 2b 31 37 37 29 3b 22 |int%+&A1C+177);"| 00000160 20 20 22 0d 00 96 34 20 20 f1 20 8a 30 2c 31 32 | "...4 . .0,12| 00000170 29 3b 22 53 61 6d 70 6c 65 20 33 20 3a 20 22 3b |);"Sample 3 : ";| 00000180 3f 28 70 6f 69 6e 74 25 2b 26 41 31 43 2b 31 37 |?(point%+&A1C+17| 00000190 38 29 3b 22 20 20 22 0d 00 a0 34 20 20 f1 20 8a |8);" "...4 . .| 000001a0 30 2c 31 33 29 3b 22 53 61 6d 70 6c 65 20 34 20 |0,13);"Sample 4 | 000001b0 3a 20 22 3b 3f 28 70 6f 69 6e 74 25 2b 26 41 31 |: ";?(point%+&A1| 000001c0 43 2b 31 37 39 29 3b 22 20 20 22 0d 00 aa 07 fd |C+179);" ".....| 000001d0 20 a3 0d 00 b4 05 3a 0d 00 be 05 e0 0d ff | .....:.......| 000001de
.