Home » CEEFAX disks » telesoftware10.adl » 08-10-88/TONE1

08-10-88/TONE1

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 » CEEFAX disks » telesoftware10.adl
Filename: 08-10-88/TONE1
Read OK:
File size: 01CC bytes
Load address: 0800
Exec address: 8023
File contents
   10REM: TONE1
   20osbyte=&FFF4
   30DIM mcode &100
   40FORpass=0TO2STEP2
   50P%=mcode
   60[OPT pass
   70LDA #&9F \ write to speech processor
   80LDY #&44 \ address &74 (TONE1) pointer
   90JSR osbyte
  100LDY #&47
  110JSR osbyte
  120LDY #&40
  130JSR osbyte
  140LDY #&4C
  150JSR osbyte
  160LDY #&43
  170JSR osbyte
  180LDA #&9F \ write to speech processor
  190LDY #&30 \ read and branch
  200JSR osbyte
  210LDY #&50 \ speak command
  220JMP osbyte \ speak the word and return
  230]
  240NEXT
  250CALL mcode

�: TONE1
osbyte=&FFF4
� mcode &100
(�pass=0�2�2
2P%=mcode
<
[OPT pass
F(LDA #&9F \ write to speech processor
P)LDY #&44 \ address &74 (�NE1) pointer
ZJSR osbyte
dLDY #&47
nJSR osbyte
xLDY #&40
�JSR osbyte
�LDY #&4C
�JSR osbyte
�LDY #&43
�JSR osbyte
�(LDA #&9F \ write to speech processor
�LDY #&30 \ read and branch
�JSR osbyte
�LDY #&50 \ speak command
�*JMP osbyte \ speak the word and return
�]
��
�� mcode
�
00000000  0d 00 0a 0c f4 3a 20 54  4f 4e 45 31 0d 00 14 10  |.....: TONE1....|
00000010  6f 73 62 79 74 65 3d 26  46 46 46 34 0d 00 1e 10  |osbyte=&FFF4....|
00000020  de 20 6d 63 6f 64 65 20  26 31 30 30 0d 00 28 0f  |. mcode &100..(.|
00000030  e3 70 61 73 73 3d 30 b8  32 88 32 0d 00 32 0c 50  |.pass=0.2.2..2.P|
00000040  25 3d 6d 63 6f 64 65 0d  00 3c 0d 5b 4f 50 54 20  |%=mcode..<.[OPT |
00000050  70 61 73 73 0d 00 46 28  4c 44 41 20 23 26 39 46  |pass..F(LDA #&9F|
00000060  20 5c 20 77 72 69 74 65  20 74 6f 20 73 70 65 65  | \ write to spee|
00000070  63 68 20 70 72 6f 63 65  73 73 6f 72 0d 00 50 29  |ch processor..P)|
00000080  4c 44 59 20 23 26 34 34  20 5c 20 61 64 64 72 65  |LDY #&44 \ addre|
00000090  73 73 20 26 37 34 20 28  b8 4e 45 31 29 20 70 6f  |ss &74 (.NE1) po|
000000a0  69 6e 74 65 72 0d 00 5a  0e 4a 53 52 20 6f 73 62  |inter..Z.JSR osb|
000000b0  79 74 65 0d 00 64 0c 4c  44 59 20 23 26 34 37 0d  |yte..d.LDY #&47.|
000000c0  00 6e 0e 4a 53 52 20 6f  73 62 79 74 65 0d 00 78  |.n.JSR osbyte..x|
000000d0  0c 4c 44 59 20 23 26 34  30 0d 00 82 0e 4a 53 52  |.LDY #&40....JSR|
000000e0  20 6f 73 62 79 74 65 0d  00 8c 0c 4c 44 59 20 23  | osbyte....LDY #|
000000f0  26 34 43 0d 00 96 0e 4a  53 52 20 6f 73 62 79 74  |&4C....JSR osbyt|
00000100  65 0d 00 a0 0c 4c 44 59  20 23 26 34 33 0d 00 aa  |e....LDY #&43...|
00000110  0e 4a 53 52 20 6f 73 62  79 74 65 0d 00 b4 28 4c  |.JSR osbyte...(L|
00000120  44 41 20 23 26 39 46 20  5c 20 77 72 69 74 65 20  |DA #&9F \ write |
00000130  74 6f 20 73 70 65 65 63  68 20 70 72 6f 63 65 73  |to speech proces|
00000140  73 6f 72 0d 00 be 1e 4c  44 59 20 23 26 33 30 20  |sor....LDY #&30 |
00000150  5c 20 72 65 61 64 20 61  6e 64 20 62 72 61 6e 63  |\ read and branc|
00000160  68 0d 00 c8 0e 4a 53 52  20 6f 73 62 79 74 65 0d  |h....JSR osbyte.|
00000170  00 d2 1c 4c 44 59 20 23  26 35 30 20 5c 20 73 70  |...LDY #&50 \ sp|
00000180  65 61 6b 20 63 6f 6d 6d  61 6e 64 0d 00 dc 2a 4a  |eak command...*J|
00000190  4d 50 20 6f 73 62 79 74  65 20 5c 20 73 70 65 61  |MP osbyte \ spea|
000001a0  6b 20 74 68 65 20 77 6f  72 64 20 61 6e 64 20 72  |k the word and r|
000001b0  65 74 75 72 6e 0d 00 e6  05 5d 0d 00 f0 05 ed 0d  |eturn....]......|
000001c0  00 fa 0b d6 20 6d 63 6f  64 65 0d ff              |.... mcode..|
000001cc
08-10-88/TONE1.m0
08-10-88/TONE1.m1
08-10-88/TONE1.m2
08-10-88/TONE1.m4
08-10-88/TONE1.m5