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

08-10-88/PENCE

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/PENCE
Read OK:
File size: 0179 bytes
Load address: 0800
Exec address: 8023
File contents
   10REM: PENCE
   20DIM mcode &100
   30osbyte=&FFF4
   40FORpass=0TO2STEP2
   50P%=mcode
   60[OPT pass
   70LDA #&9F \ write to speech processor
   80LDY #&48 \ address &2B58 "pence"
   90JSR osbyte
  100LDY #&45
  110JSR osbyte
  120LDY #&4B
  130JSR osbyte
  140LDY #&4E
  150JSR osbyte
  160LDY #&43
  170JSR osbyte
  180LDY #&50 \ speak command
  190JMP osbyte \ say "pence" and return to BASIC
  200]
  210NEXT
  220CALL mcode

�: PENCE
� mcode &100
osbyte=&FFF4
(�pass=0�2�2
2P%=mcode
<
[OPT pass
F(LDA #&9F \ write to speech processor
P$LDY #&48 \ address &2B58 "pence"
ZJSR osbyte
dLDY #&45
nJSR osbyte
xLDY #&4B
�JSR osbyte
�LDY #&4E
�JSR osbyte
�LDY #&43
�JSR osbyte
�LDY #&50 \ speak command
�0JMP osbyte \ say "pence" and return to BASIC
�]
��
�� mcode
�
00000000  0d 00 0a 0c f4 3a 20 50  45 4e 43 45 0d 00 14 10  |.....: PENCE....|
00000010  de 20 6d 63 6f 64 65 20  26 31 30 30 0d 00 1e 10  |. mcode &100....|
00000020  6f 73 62 79 74 65 3d 26  46 46 46 34 0d 00 28 0f  |osbyte=&FFF4..(.|
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 24  |ch processor..P$|
00000080  4c 44 59 20 23 26 34 38  20 5c 20 61 64 64 72 65  |LDY #&48 \ addre|
00000090  73 73 20 26 32 42 35 38  20 22 70 65 6e 63 65 22  |ss &2B58 "pence"|
000000a0  0d 00 5a 0e 4a 53 52 20  6f 73 62 79 74 65 0d 00  |..Z.JSR osbyte..|
000000b0  64 0c 4c 44 59 20 23 26  34 35 0d 00 6e 0e 4a 53  |d.LDY #&45..n.JS|
000000c0  52 20 6f 73 62 79 74 65  0d 00 78 0c 4c 44 59 20  |R osbyte..x.LDY |
000000d0  23 26 34 42 0d 00 82 0e  4a 53 52 20 6f 73 62 79  |#&4B....JSR osby|
000000e0  74 65 0d 00 8c 0c 4c 44  59 20 23 26 34 45 0d 00  |te....LDY #&4E..|
000000f0  96 0e 4a 53 52 20 6f 73  62 79 74 65 0d 00 a0 0c  |..JSR osbyte....|
00000100  4c 44 59 20 23 26 34 33  0d 00 aa 0e 4a 53 52 20  |LDY #&43....JSR |
00000110  6f 73 62 79 74 65 0d 00  b4 1c 4c 44 59 20 23 26  |osbyte....LDY #&|
00000120  35 30 20 5c 20 73 70 65  61 6b 20 63 6f 6d 6d 61  |50 \ speak comma|
00000130  6e 64 0d 00 be 30 4a 4d  50 20 6f 73 62 79 74 65  |nd...0JMP osbyte|
00000140  20 5c 20 73 61 79 20 22  70 65 6e 63 65 22 20 61  | \ say "pence" a|
00000150  6e 64 20 72 65 74 75 72  6e 20 74 6f 20 42 41 53  |nd return to BAS|
00000160  49 43 0d 00 c8 05 5d 0d  00 d2 05 ed 0d 00 dc 0b  |IC....].........|
00000170  d6 20 6d 63 6f 64 65 0d  ff                       |. mcode..|
00000179
08-10-88/PENCE.m0
08-10-88/PENCE.m1
08-10-88/PENCE.m2
08-10-88/PENCE.m4
08-10-88/PENCE.m5