Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav » HardSmp

HardSmp

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav
Filename: HardSmp
Read OK: ✔
File size: 09C0 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 PRINT"BEEB BODY BUILDING COURSE"
   20 PRINT"SOUND SAMPLER"
   30 PRINT"Using D/A on printer port"
   40 PRINT"By Mike Cook"
   50 PRINT
   60 LINK=1
   70 BA=&FE61
   80 FOR PASS=0 TO 3 STEP 3
   90 P%=&A00
  100 [
  110 OPT PASS
  120 .SETUP \ INITILISE
  130 SEI \ DISABLE INTERRUPTS
  140 LDA #&40
  150 LDY #0
  160 STA &FE6B \ ENABLE TIMER 1
  170 LDA #&C0
  180 STA &FE6E \ ENABLE INTERRUPT
  190 LDA #0
  200 STA &FE65 \ START IT OFF
  210 RTS
  220 .GIN \ GET SAMPLE INTO MEMORY
  230 JSR SETUP
  240 .HOLD
  250 LDA &FE6D \ GET INTERRUPT FLAG
  260 BPL HOLD \ LOOP UNTIL TIME OUT
  270 STA &FE6D \ CLEAR INTERRUPT
  280 \ GET SAMPLE
  290 LDX #10:LDA#0
  300 STA &FE60 \ CS AND CLOCK LOW
  310 .SLOOP
  320 LDA &FE60 \ GET DATA
  330 LSR A:ROL &80 \ MOVE INTO MEMORY
  340 LDA #2:STA &FE60 \ CLOCK HIGH
  350 LDA #0:STA &FE60 \ CLOCK LOW
  360 DEX
  370 BNE SLOOP
  380 LDA #6:STA &FE60
  390 LDA &80 \ GET FINAL SAMPLE
  400 STA (&70),Y
  410 INY
  420 BNE HOLD \ GET ANOTHER
  430 INC &71 \ INCREASE MS POINTER
  440 LDA #&7D
  450 CMP &71 \ REACHED LIMIT ?
  460 BNE HOLD \ BRANCH IF NOT
  470 .FIN LDA #&40
  480 STA &FE6E \ DISABLE T1 INTERRUPT
  490 STA &FE6D \ CLEAR ANY INTERRUPTS
  500 CLI \ ENABLE SYSTEM INTERRUPTS
  510 LDA #&80
  520 STA BA \ LEAVE AT DC LEVEL ZERO
  530 RTS
  540 .SOUT \ PLAY A SAMPLE
  550 JSR SETUP
  560 LDA #&62
  570 STA &FE41 \ SPACE BAR LINE
  580 LDA #&03
  590 STA &FE40 \ KEYBOARD ENABLE
  600 .AGAIN
  610 LDA #&80
  620 STA BA \ SET DC LEVEL
  630 .PAUSE
  640 LDA &FE41 \ LOOK AT KEYBOARD
  650 BMI PAUSE \ WATE TILL UNPRESSED
  660 LDA &72 \ TRANSFER START ADDRESS
  670 STA &70
  680 LDA &73
  690 STA &71
  700 .HOUT
  710 LDA &FE6D \ GET INTERRUPT FLAG
  720 BPL HOUT \ LOOP UNTIL TIME OUT
  730 STA &FE6D \ CLEAR INTERRUPT
  740 LDA (&70),Y \ GET A SAMPLE
  750 STA BA \ OUTPUT IT
  760 LDA &FE41
  770 BMI AGAIN \ BACK AGAIN IF SPACE PRESSED
  780 INY
  790 BNE HOUT \ GET ANOTHER
  800 INC &71 \ INCREASE MS POINTER
  810 LDA #&7D
  820 CMP &71 \ REACHED LIMIT ?
  830 BNE HOUT \ BRANCH IF NOT
  840 JMP FIN
  850 ]
  860 NEXT
  870 MODE1
  880 PROC_INSTRUCTIONS
  890 CD%=180
  900 ?&FE62=6
  910 ?&FCC7=0
  920 ?&FCC6=CD%
  930 ?&70=&00
  940 ?&72=&00
  950 ?&71=&30
  960 ?&73=&30
  970 REPEAT
  980 PRINTTAB(0,31);SPC(38);
  990 PRINTTAB(0,31);"(S sp R)";
 1000 A$=GET$
 1010 IF A$="S" THEN ?&70=00:?&71=&30:CALL GIN
 1020 IF A$=" " THEN ?&70=00:?&71=&30:CALL SOUT
 1030 IF A$="R" THEN PROC_RATE
 1040 UNTIL FALSE
 1050 DEF PROC_RATE
 1060 PRINT"DELAY ";CD%;" INPUT NEW VALUE ";
 1070 T$=""
 1080 REPEAT
 1090 A$=GET$
 1100 IF A$<> CHR$(13) THEN PRINTA$;
 1110 T$=T$+A$
 1120 UNTIL A$=CHR$(13)
 1130 CD%=VAL(T$)
 1140 ?&FE66=CD%
 1150 ENDPROC
 1160 DEF PROC_INSTRUCTIONS
 1170 PRINT"BEEB BODY BUILDING COURSE"
 1180 PRINT"SOUND SAMPLER"
 1190 PRINT"JANUARY 1992"
 1200 PRINT"By Mike Cook"
 1210 PRINT
 1220 PRINT"Options are:-"
 1230 PRINT"S  - Sample input"
 1240 PRINT"sp - Play back sample"
 1250 PRINT"R  - Rate of digitising"
 1260 ENDPROC


! �"BEEB BODY BUILDING COURSE"
 �"SOUND SAMPLER"
! �"Using D/A on printer port"
( �"By Mike Cook"
2 �
< LINK=1
F
 BA=&FE61
P � PASS=0 � 3 � 3
Z P%=&A00
d [
n
 OPT PASS
x .SETUP \ INITILISE
� SEI \ DISABLE �ERRUPTS
�
 LDA #&40
� LDY #0
� STA &FE6B \ ENABLE TIMER 1
�
 LDA #&C0
� STA &FE6E \ ENABLE �ERRUPT
� LDA #0
� STA &FE65 \ START IT �
� RTS
� .GIN \ � SAMPLE �O MEMORY
� JSR SETUP
�
 .HOLD
� LDA &FE6D \ � �ERRUPT FLAG
 BPL HOLD \ LOOP � � OUT
 STA &FE6D \ � �ERRUPT
 \ � SAMPLE
" LDX #10:LDA#0
, STA &FE60 \ CS � CLOCK LOW
6 .SLOOP
@ LDA &FE60 \ � �
J  LSR A:ROL &80 \ � �O MEMORY
T" LDA #2:STA &FE60 \ CLOCK HIGH
^! LDA #0:STA &FE60 \ CLOCK LOW
h DEX
r BNE SLOOP
| LDA #6:STA &FE60
� LDA &80 \ � FINAL SAMPLE
� STA (&70),Y
� INY
� BNE HOLD \ � ANOTHER
� INC &71 \ INCREASE MS ȒER
�
 LDA #&7D
� CMP &71 \ REACHED LIMIT ?
� BNE HOLD \ BRANCH � �
� .FIN LDA #&40
�# STA &FE6E \ DISABLE T1 �ERRUPT
� STA &FE6D \ � ANY �ERRUPTS
�  CLI \ ENABLE șTEM �ERRUPTS
�
 LDA #&80
$ STA BA \ LEAVE AT DC LEVEL ZERO
 RTS
 .SOUT \ PLAY A SAMPLE
& JSR SETUP
0
 LDA #&62
: STA &FE41 \ SPACE BAR �
D
 LDA #&03
N  STA &FE40 \ KEYBOARD ENABLE
X .AGAIN
b
 LDA #&80
l STA BA \ SET DC LEVEL
v .PAUSE
�! LDA &FE41 \ LOOK AT KEYBOARD
�$ BMI PAUSE \ WATE TILL UNPRESSED
�% LDA &72 \ TRANSFER START ADDRESS
� STA &70
� LDA &73
� STA &71
�
 .HOUT
� LDA &FE6D \ � �ERRUPT FLAG
� BPL HOUT \ LOOP � � OUT
� STA &FE6D \ � �ERRUPT
� LDA (&70),Y \ � A SAMPLE
� STA BA \ OUTPUT IT
� LDA &FE41
+ BMI AGAIN \ BACK AGAIN � SPACE PRESSED
 INY
 BNE HOUT \ � ANOTHER
  INC &71 \ INCREASE MS ȒER
*
 LDA #&7D
4 CMP &71 \ REACHED LIMIT ?
> BNE HOUT \ BRANCH � �
H JMP FIN
R ]
\ �
f �1
p �_INSTRUCTIONS
z CD%=180
�
 ?&FE62=6
�
 ?&FCC7=0
� ?&FCC6=CD%
�
 ?&70=&00
�
 ?&72=&00
�
 ?&71=&30
�
 ?&73=&30
� �
� �0,31);�(38);
� �0,31);"(S sp R)";
�	 A$=�
�& � A$="S" � ?&70=00:?&71=&30:� GIN
�' � A$=" " � ?&70=00:?&71=&30:� SOUT
 � A$="R" � �_RATE
 � �

 � �_RATE
$' �"DELAY ";CD%;" INPUT NEW VALUE ";
.
 T$=""
8 �
B	 A$=�
L � A$<> �(13) � �A$;
V
 T$=T$+A$
` � A$=�(13)
j CD%=�(T$)
t ?&FE66=CD%
~ �
� � �_INSTRUCTIONS
�! �"BEEB BODY BUILDING COURSE"
� �"SOUND SAMPLER"
� �"JANUARY 1992"
� �"By Mike Cook"
� �
� �"Options are:-"
� �"S  - Sample input"
� �"sp - Play back sample"
� �"R  - Rate of digitising"
� �
�
00000000  0d 00 0a 21 20 f1 22 42  45 45 42 20 42 4f 44 59  |...! ."BEEB BODY|
00000010  20 42 55 49 4c 44 49 4e  47 20 43 4f 55 52 53 45  | BUILDING COURSE|
00000020  22 0d 00 14 15 20 f1 22  53 4f 55 4e 44 20 53 41  |".... ."SOUND SA|
00000030  4d 50 4c 45 52 22 0d 00  1e 21 20 f1 22 55 73 69  |MPLER"...! ."Usi|
00000040  6e 67 20 44 2f 41 20 6f  6e 20 70 72 69 6e 74 65  |ng D/A on printe|
00000050  72 20 70 6f 72 74 22 0d  00 28 14 20 f1 22 42 79  |r port"..(. ."By|
00000060  20 4d 69 6b 65 20 43 6f  6f 6b 22 0d 00 32 06 20  | Mike Cook"..2. |
00000070  f1 0d 00 3c 0b 20 4c 49  4e 4b 3d 31 0d 00 46 0d  |...<. LINK=1..F.|
00000080  20 42 41 3d 26 46 45 36  31 0d 00 50 15 20 e3 20  | BA=&FE61..P. . |
00000090  50 41 53 53 3d 30 20 b8  20 33 20 88 20 33 0d 00  |PASS=0 . 3 . 3..|
000000a0  5a 0c 20 50 25 3d 26 41  30 30 0d 00 64 06 20 5b  |Z. P%=&A00..d. [|
000000b0  0d 00 6e 0d 20 4f 50 54  20 50 41 53 53 0d 00 78  |..n. OPT PASS..x|
000000c0  17 20 2e 53 45 54 55 50  20 5c 20 49 4e 49 54 49  |. .SETUP \ INITI|
000000d0  4c 49 53 45 0d 00 82 1b  20 53 45 49 20 5c 20 44  |LISE.... SEI \ D|
000000e0  49 53 41 42 4c 45 20 a8  45 52 52 55 50 54 53 0d  |ISABLE .ERRUPTS.|
000000f0  00 8c 0d 20 4c 44 41 20  23 26 34 30 0d 00 96 0b  |... LDA #&40....|
00000100  20 4c 44 59 20 23 30 0d  00 a0 1f 20 53 54 41 20  | LDY #0.... STA |
00000110  26 46 45 36 42 20 5c 20  45 4e 41 42 4c 45 20 54  |&FE6B \ ENABLE T|
00000120  49 4d 45 52 20 31 0d 00  aa 0d 20 4c 44 41 20 23  |IMER 1.... LDA #|
00000130  26 43 30 0d 00 b4 1f 20  53 54 41 20 26 46 45 36  |&C0.... STA &FE6|
00000140  45 20 5c 20 45 4e 41 42  4c 45 20 a8 45 52 52 55  |E \ ENABLE .ERRU|
00000150  50 54 0d 00 be 0b 20 4c  44 41 20 23 30 0d 00 c8  |PT.... LDA #0...|
00000160  1b 20 53 54 41 20 26 46  45 36 35 20 5c 20 53 54  |. STA &FE65 \ ST|
00000170  41 52 54 20 49 54 20 87  0d 00 d2 08 20 52 54 53  |ART IT ..... RTS|
00000180  0d 00 dc 1e 20 2e 47 49  4e 20 5c 20 a5 20 53 41  |.... .GIN \ . SA|
00000190  4d 50 4c 45 20 a8 4f 20  4d 45 4d 4f 52 59 0d 00  |MPLE .O MEMORY..|
000001a0  e6 0e 20 4a 53 52 20 53  45 54 55 50 0d 00 f0 0a  |.. JSR SETUP....|
000001b0  20 2e 48 4f 4c 44 0d 00  fa 1f 20 4c 44 41 20 26  | .HOLD.... LDA &|
000001c0  46 45 36 44 20 5c 20 a5  20 a8 45 52 52 55 50 54  |FE6D \ . .ERRUPT|
000001d0  20 46 4c 41 47 0d 01 04  1c 20 42 50 4c 20 48 4f  | FLAG.... BPL HO|
000001e0  4c 44 20 5c 20 4c 4f 4f  50 20 fd 20 91 20 4f 55  |LD \ LOOP . . OU|
000001f0  54 0d 01 0e 1a 20 53 54  41 20 26 46 45 36 44 20  |T.... STA &FE6D |
00000200  5c 20 d8 20 a8 45 52 52  55 50 54 0d 01 18 0f 20  |\ . .ERRUPT.... |
00000210  5c 20 a5 20 53 41 4d 50  4c 45 0d 01 22 12 20 4c  |\ . SAMPLE..". L|
00000220  44 58 20 23 31 30 3a 4c  44 41 23 30 0d 01 2c 1f  |DX #10:LDA#0..,.|
00000230  20 53 54 41 20 26 46 45  36 30 20 5c 20 43 53 20  | STA &FE60 \ CS |
00000240  80 20 43 4c 4f 43 4b 20  4c 4f 57 0d 01 36 0b 20  |. CLOCK LOW..6. |
00000250  2e 53 4c 4f 4f 50 0d 01  40 14 20 4c 44 41 20 26  |.SLOOP..@. LDA &|
00000260  46 45 36 30 20 5c 20 a5  20 dc 0d 01 4a 20 20 4c  |FE60 \ . ...J  L|
00000270  53 52 20 41 3a 52 4f 4c  20 26 38 30 20 5c 20 ec  |SR A:ROL &80 \ .|
00000280  20 a8 4f 20 4d 45 4d 4f  52 59 0d 01 54 22 20 4c  | .O MEMORY..T" L|
00000290  44 41 20 23 32 3a 53 54  41 20 26 46 45 36 30 20  |DA #2:STA &FE60 |
000002a0  5c 20 43 4c 4f 43 4b 20  48 49 47 48 0d 01 5e 21  |\ CLOCK HIGH..^!|
000002b0  20 4c 44 41 20 23 30 3a  53 54 41 20 26 46 45 36  | LDA #0:STA &FE6|
000002c0  30 20 5c 20 43 4c 4f 43  4b 20 4c 4f 57 0d 01 68  |0 \ CLOCK LOW..h|
000002d0  08 20 44 45 58 0d 01 72  0e 20 42 4e 45 20 53 4c  |. DEX..r. BNE SL|
000002e0  4f 4f 50 0d 01 7c 15 20  4c 44 41 20 23 36 3a 53  |OOP..|. LDA #6:S|
000002f0  54 41 20 26 46 45 36 30  0d 01 86 1d 20 4c 44 41  |TA &FE60.... LDA|
00000300  20 26 38 30 20 5c 20 a5  20 46 49 4e 41 4c 20 53  | &80 \ . FINAL S|
00000310  41 4d 50 4c 45 0d 01 90  10 20 53 54 41 20 28 26  |AMPLE.... STA (&|
00000320  37 30 29 2c 59 0d 01 9a  08 20 49 4e 59 0d 01 a4  |70),Y.... INY...|
00000330  19 20 42 4e 45 20 48 4f  4c 44 20 5c 20 a5 20 41  |. BNE HOLD \ . A|
00000340  4e 4f 54 48 45 52 0d 01  ae 1f 20 49 4e 43 20 26  |NOTHER.... INC &|
00000350  37 31 20 5c 20 49 4e 43  52 45 41 53 45 20 4d 53  |71 \ INCREASE MS|
00000360  20 c8 92 45 52 0d 01 b8  0d 20 4c 44 41 20 23 26  | ..ER.... LDA #&|
00000370  37 44 0d 01 c2 1e 20 43  4d 50 20 26 37 31 20 5c  |7D.... CMP &71 \|
00000380  20 52 45 41 43 48 45 44  20 4c 49 4d 49 54 20 3f  | REACHED LIMIT ?|
00000390  0d 01 cc 1a 20 42 4e 45  20 48 4f 4c 44 20 5c 20  |.... BNE HOLD \ |
000003a0  42 52 41 4e 43 48 20 e7  20 ac 0d 01 d6 12 20 2e  |BRANCH . ..... .|
000003b0  46 49 4e 20 4c 44 41 20  23 26 34 30 0d 01 e0 23  |FIN LDA #&40...#|
000003c0  20 53 54 41 20 26 46 45  36 45 20 5c 20 44 49 53  | STA &FE6E \ DIS|
000003d0  41 42 4c 45 20 54 31 20  a8 45 52 52 55 50 54 0d  |ABLE T1 .ERRUPT.|
000003e0  01 ea 1f 20 53 54 41 20  26 46 45 36 44 20 5c 20  |... STA &FE6D \ |
000003f0  d8 20 41 4e 59 20 a8 45  52 52 55 50 54 53 0d 01  |. ANY .ERRUPTS..|
00000400  f4 20 20 43 4c 49 20 5c  20 45 4e 41 42 4c 45 20  |.  CLI \ ENABLE |
00000410  c8 99 54 45 4d 20 a8 45  52 52 55 50 54 53 0d 01  |..TEM .ERRUPTS..|
00000420  fe 0d 20 4c 44 41 20 23  26 38 30 0d 02 08 24 20  |.. LDA #&80...$ |
00000430  53 54 41 20 42 41 20 5c  20 4c 45 41 56 45 20 41  |STA BA \ LEAVE A|
00000440  54 20 44 43 20 4c 45 56  45 4c 20 5a 45 52 4f 0d  |T DC LEVEL ZERO.|
00000450  02 12 08 20 52 54 53 0d  02 1c 1a 20 2e 53 4f 55  |... RTS.... .SOU|
00000460  54 20 5c 20 50 4c 41 59  20 41 20 53 41 4d 50 4c  |T \ PLAY A SAMPL|
00000470  45 0d 02 26 0e 20 4a 53  52 20 53 45 54 55 50 0d  |E..&. JSR SETUP.|
00000480  02 30 0d 20 4c 44 41 20  23 26 36 32 0d 02 3a 1c  |.0. LDA #&62..:.|
00000490  20 53 54 41 20 26 46 45  34 31 20 5c 20 53 50 41  | STA &FE41 \ SPA|
000004a0  43 45 20 42 41 52 20 86  0d 02 44 0d 20 4c 44 41  |CE BAR ...D. LDA|
000004b0  20 23 26 30 33 0d 02 4e  20 20 53 54 41 20 26 46  | #&03..N  STA &F|
000004c0  45 34 30 20 5c 20 4b 45  59 42 4f 41 52 44 20 45  |E40 \ KEYBOARD E|
000004d0  4e 41 42 4c 45 0d 02 58  0b 20 2e 41 47 41 49 4e  |NABLE..X. .AGAIN|
000004e0  0d 02 62 0d 20 4c 44 41  20 23 26 38 30 0d 02 6c  |..b. LDA #&80..l|
000004f0  1a 20 53 54 41 20 42 41  20 5c 20 53 45 54 20 44  |. STA BA \ SET D|
00000500  43 20 4c 45 56 45 4c 0d  02 76 0b 20 2e 50 41 55  |C LEVEL..v. .PAU|
00000510  53 45 0d 02 80 21 20 4c  44 41 20 26 46 45 34 31  |SE...! LDA &FE41|
00000520  20 5c 20 4c 4f 4f 4b 20  41 54 20 4b 45 59 42 4f  | \ LOOK AT KEYBO|
00000530  41 52 44 0d 02 8a 24 20  42 4d 49 20 50 41 55 53  |ARD...$ BMI PAUS|
00000540  45 20 5c 20 57 41 54 45  20 54 49 4c 4c 20 55 4e  |E \ WATE TILL UN|
00000550  50 52 45 53 53 45 44 0d  02 94 25 20 4c 44 41 20  |PRESSED...% LDA |
00000560  26 37 32 20 5c 20 54 52  41 4e 53 46 45 52 20 53  |&72 \ TRANSFER S|
00000570  54 41 52 54 20 41 44 44  52 45 53 53 0d 02 9e 0c  |TART ADDRESS....|
00000580  20 53 54 41 20 26 37 30  0d 02 a8 0c 20 4c 44 41  | STA &70.... LDA|
00000590  20 26 37 33 0d 02 b2 0c  20 53 54 41 20 26 37 31  | &73.... STA &71|
000005a0  0d 02 bc 0a 20 2e 48 4f  55 54 0d 02 c6 1f 20 4c  |.... .HOUT.... L|
000005b0  44 41 20 26 46 45 36 44  20 5c 20 a5 20 a8 45 52  |DA &FE6D \ . .ER|
000005c0  52 55 50 54 20 46 4c 41  47 0d 02 d0 1c 20 42 50  |RUPT FLAG.... BP|
000005d0  4c 20 48 4f 55 54 20 5c  20 4c 4f 4f 50 20 fd 20  |L HOUT \ LOOP . |
000005e0  91 20 4f 55 54 0d 02 da  1a 20 53 54 41 20 26 46  |. OUT.... STA &F|
000005f0  45 36 44 20 5c 20 d8 20  a8 45 52 52 55 50 54 0d  |E6D \ . .ERRUPT.|
00000600  02 e4 1d 20 4c 44 41 20  28 26 37 30 29 2c 59 20  |... LDA (&70),Y |
00000610  5c 20 a5 20 41 20 53 41  4d 50 4c 45 0d 02 ee 17  |\ . A SAMPLE....|
00000620  20 53 54 41 20 42 41 20  5c 20 4f 55 54 50 55 54  | STA BA \ OUTPUT|
00000630  20 49 54 0d 02 f8 0e 20  4c 44 41 20 26 46 45 34  | IT.... LDA &FE4|
00000640  31 0d 03 02 2b 20 42 4d  49 20 41 47 41 49 4e 20  |1...+ BMI AGAIN |
00000650  5c 20 42 41 43 4b 20 41  47 41 49 4e 20 e7 20 53  |\ BACK AGAIN . S|
00000660  50 41 43 45 20 50 52 45  53 53 45 44 0d 03 0c 08  |PACE PRESSED....|
00000670  20 49 4e 59 0d 03 16 19  20 42 4e 45 20 48 4f 55  | INY.... BNE HOU|
00000680  54 20 5c 20 a5 20 41 4e  4f 54 48 45 52 0d 03 20  |T \ . ANOTHER.. |
00000690  1f 20 49 4e 43 20 26 37  31 20 5c 20 49 4e 43 52  |. INC &71 \ INCR|
000006a0  45 41 53 45 20 4d 53 20  c8 92 45 52 0d 03 2a 0d  |EASE MS ..ER..*.|
000006b0  20 4c 44 41 20 23 26 37  44 0d 03 34 1e 20 43 4d  | LDA #&7D..4. CM|
000006c0  50 20 26 37 31 20 5c 20  52 45 41 43 48 45 44 20  |P &71 \ REACHED |
000006d0  4c 49 4d 49 54 20 3f 0d  03 3e 1a 20 42 4e 45 20  |LIMIT ?..>. BNE |
000006e0  48 4f 55 54 20 5c 20 42  52 41 4e 43 48 20 e7 20  |HOUT \ BRANCH . |
000006f0  ac 0d 03 48 0c 20 4a 4d  50 20 46 49 4e 0d 03 52  |...H. JMP FIN..R|
00000700  06 20 5d 0d 03 5c 06 20  ed 0d 03 66 07 20 eb 31  |. ]..\. ...f. .1|
00000710  0d 03 70 13 20 f2 5f 49  4e 53 54 52 55 43 54 49  |..p. ._INSTRUCTI|
00000720  4f 4e 53 0d 03 7a 0c 20  43 44 25 3d 31 38 30 0d  |ONS..z. CD%=180.|
00000730  03 84 0d 20 3f 26 46 45  36 32 3d 36 0d 03 8e 0d  |... ?&FE62=6....|
00000740  20 3f 26 46 43 43 37 3d  30 0d 03 98 0f 20 3f 26  | ?&FCC7=0.... ?&|
00000750  46 43 43 36 3d 43 44 25  0d 03 a2 0d 20 3f 26 37  |FCC6=CD%.... ?&7|
00000760  30 3d 26 30 30 0d 03 ac  0d 20 3f 26 37 32 3d 26  |0=&00.... ?&72=&|
00000770  30 30 0d 03 b6 0d 20 3f  26 37 31 3d 26 33 30 0d  |00.... ?&71=&30.|
00000780  03 c0 0d 20 3f 26 37 33  3d 26 33 30 0d 03 ca 06  |... ?&73=&30....|
00000790  20 f5 0d 03 d4 13 20 f1  8a 30 2c 33 31 29 3b 89  | ..... ..0,31);.|
000007a0  28 33 38 29 3b 0d 03 de  18 20 f1 8a 30 2c 33 31  |(38);.... ..0,31|
000007b0  29 3b 22 28 53 20 73 70  20 52 29 22 3b 0d 03 e8  |);"(S sp R)";...|
000007c0  09 20 41 24 3d be 0d 03  f2 26 20 e7 20 41 24 3d  |. A$=....& . A$=|
000007d0  22 53 22 20 8c 20 3f 26  37 30 3d 30 30 3a 3f 26  |"S" . ?&70=00:?&|
000007e0  37 31 3d 26 33 30 3a d6  20 47 49 4e 0d 03 fc 27  |71=&30:. GIN...'|
000007f0  20 e7 20 41 24 3d 22 20  22 20 8c 20 3f 26 37 30  | . A$=" " . ?&70|
00000800  3d 30 30 3a 3f 26 37 31  3d 26 33 30 3a d6 20 53  |=00:?&71=&30:. S|
00000810  4f 55 54 0d 04 06 16 20  e7 20 41 24 3d 22 52 22  |OUT.... . A$="R"|
00000820  20 8c 20 f2 5f 52 41 54  45 0d 04 10 08 20 fd 20  | . ._RATE.... . |
00000830  a3 0d 04 1a 0d 20 dd 20  f2 5f 52 41 54 45 0d 04  |..... . ._RATE..|
00000840  24 27 20 f1 22 44 45 4c  41 59 20 22 3b 43 44 25  |$' ."DELAY ";CD%|
00000850  3b 22 20 49 4e 50 55 54  20 4e 45 57 20 56 41 4c  |;" INPUT NEW VAL|
00000860  55 45 20 22 3b 0d 04 2e  0a 20 54 24 3d 22 22 0d  |UE ";.... T$="".|
00000870  04 38 06 20 f5 0d 04 42  09 20 41 24 3d be 0d 04  |.8. ...B. A$=...|
00000880  4c 18 20 e7 20 41 24 3c  3e 20 bd 28 31 33 29 20  |L. . A$<> .(13) |
00000890  8c 20 f1 41 24 3b 0d 04  56 0d 20 54 24 3d 54 24  |. .A$;..V. T$=T$|
000008a0  2b 41 24 0d 04 60 0f 20  fd 20 41 24 3d bd 28 31  |+A$..`. . A$=.(1|
000008b0  33 29 0d 04 6a 0e 20 43  44 25 3d bb 28 54 24 29  |3)..j. CD%=.(T$)|
000008c0  0d 04 74 0f 20 3f 26 46  45 36 36 3d 43 44 25 0d  |..t. ?&FE66=CD%.|
000008d0  04 7e 06 20 e1 0d 04 88  15 20 dd 20 f2 5f 49 4e  |.~. ..... . ._IN|
000008e0  53 54 52 55 43 54 49 4f  4e 53 0d 04 92 21 20 f1  |STRUCTIONS...! .|
000008f0  22 42 45 45 42 20 42 4f  44 59 20 42 55 49 4c 44  |"BEEB BODY BUILD|
00000900  49 4e 47 20 43 4f 55 52  53 45 22 0d 04 9c 15 20  |ING COURSE".... |
00000910  f1 22 53 4f 55 4e 44 20  53 41 4d 50 4c 45 52 22  |."SOUND SAMPLER"|
00000920  0d 04 a6 14 20 f1 22 4a  41 4e 55 41 52 59 20 31  |.... ."JANUARY 1|
00000930  39 39 32 22 0d 04 b0 14  20 f1 22 42 79 20 4d 69  |992".... ."By Mi|
00000940  6b 65 20 43 6f 6f 6b 22  0d 04 ba 06 20 f1 0d 04  |ke Cook".... ...|
00000950  c4 15 20 f1 22 4f 70 74  69 6f 6e 73 20 61 72 65  |.. ."Options are|
00000960  3a 2d 22 0d 04 ce 19 20  f1 22 53 20 20 2d 20 53  |:-".... ."S  - S|
00000970  61 6d 70 6c 65 20 69 6e  70 75 74 22 0d 04 d8 1d  |ample input"....|
00000980  20 f1 22 73 70 20 2d 20  50 6c 61 79 20 62 61 63  | ."sp - Play bac|
00000990  6b 20 73 61 6d 70 6c 65  22 0d 04 e2 1f 20 f1 22  |k sample".... ."|
000009a0  52 20 20 2d 20 52 61 74  65 20 6f 66 20 64 69 67  |R  - Rate of dig|
000009b0  69 74 69 73 69 6e 67 22  0d 04 ec 06 20 e1 0d ff  |itising".... ...|
000009c0
HardSmp.m0
HardSmp.m1
HardSmp.m2
HardSmp.m4
HardSmp.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .