�: MOUTH
� mcode &200

count=&70
(yreg=&71
2address=&72
<osbyte=&FFF4
F�pass=0�2�2
PP%=mcode
Z
[OPT pass
d%LDA #&33 \ offset to last byte +1
nLDX #mou � 256
xLDY #mou � 256
�
JSR spext
�%LDA #&16 \ offset to last byte +1
�LDX #th � 256
�LDY #th � 256
�
JSR spext
�RTS
�
.spext
�'STA count \ offset to last byte + 1
�%STX address \ LSB of data address
�'STY address+1 \ MSB of data address
�(LDA #&9F \ write to speech processor
�%LDY #&60 \ Speak External command
�JSR osbyte

!LDY #0 \ start offset at zero

&STY yreg \ current value of offset

.exloop

")LDA (address),Y \ load next data byte

,#TAY \ data byte into Y register

6(LDA #&9F \ write to speech processor

@-JSR osbyte \ put data byte in FIFO buffer

JINC yreg \ increment offset

T)LDY yreg \ load Y with current offset

^0CPY count \ compare current with max. offset

h/BCC exloop \ branch if more data to be sent

r.status

|4LDA #&9E \ read speech processor status register

�JSR osbyte

�.TYA \ status register in Y transfered to A

�*ROL A \ bit 7 (talk status) into carry

�,BCS status \ carry set if still speaking

�RTS

�.mou

�\ Start address = &D68 (&0)

�\ End address = &D9A (&32)

�EQUD &5A464D25 \ &3 - &0

�EQUD &289DD721 \ &7 - &4

�EQUD &59757587 \ &B - &8

�EQUD &AEE28278 \ &F - &C

�EQUD &09E1B542 \ &13 - &10
EQUD &B372BBAA \ &17 - &14
EQUD &EEAA2786 \ &1B - &18
EQUD &9D6ACD3A \ &1F - &1C
&EQUD &B72EB4BC \ &23 - &20
0EQUD &1ACA72AC \ &27 - &24
:EQUD &CA74D23A \ &2B - &28
DEQUD &0F2E4A6A \ &2F - &2C
NEQUD &2DAD59D1 \ &33 - &30
X.th
b\ Start address = &3DC (&0)
l\ End address = &3F1 (&15)
vEQUD &94221808 \ &3 - &0
�EQUD &DCE80202 \ &7 - &4
�EQUD &B85D0085 \ &B - &8
�EQUD &30872031 \ &F - &C
�EQUD &FE990404 \ &13 - &10
�EQUD &045A154D \ &17 - &14
�]
��
�� mcode
�

00000000  0d 00 0a 0c f4 3a 20 4d  4f 55 54 48 0d 00 14 10  |.....: MOUTH....|
00000010  de 20 6d 63 6f 64 65 20  26 32 30 30 0d 00 1e 0d  |. mcode &200....|
00000020  63 6f 75 6e 74 3d 26 37  30 0d 00 28 0c 79 72 65  |count=&70..(.yre|
00000030  67 3d 26 37 31 0d 00 32  0f 61 64 64 72 65 73 73  |g=&71..2.address|
00000040  3d 26 37 32 0d 00 3c 10  6f 73 62 79 74 65 3d 26  |=&72..<.osbyte=&|
00000050  46 46 46 34 0d 00 46 0f  e3 70 61 73 73 3d 30 b8  |FFF4..F..pass=0.|
00000060  32 88 32 0d 00 50 0c 50  25 3d 6d 63 6f 64 65 0d  |2.2..P.P%=mcode.|
00000070  00 5a 0d 5b 4f 50 54 20  70 61 73 73 0d 00 64 25  |.Z.[OPT pass..d%|
00000080  4c 44 41 20 23 26 33 33  20 5c 20 6f 66 66 73 65  |LDA #&33 \ offse|
00000090  74 20 74 6f 20 6c 61 73  74 20 62 79 74 65 20 2b  |t to last byte +|
000000a0  31 0d 00 6e 12 4c 44 58  20 23 6d 6f 75 20 83 20  |1..n.LDX #mou . |
000000b0  32 35 36 0d 00 78 12 4c  44 59 20 23 6d 6f 75 20  |256..x.LDY #mou |
000000c0  81 20 32 35 36 0d 00 82  0d 4a 53 52 20 73 70 65  |. 256....JSR spe|
000000d0  78 74 0d 00 8c 25 4c 44  41 20 23 26 31 36 20 5c  |xt...%LDA #&16 \|
000000e0  20 6f 66 66 73 65 74 20  74 6f 20 6c 61 73 74 20  | offset to last |
000000f0  62 79 74 65 20 2b 31 0d  00 96 11 4c 44 58 20 23  |byte +1....LDX #|
00000100  74 68 20 83 20 32 35 36  0d 00 a0 11 4c 44 59 20  |th . 256....LDY |
00000110  23 74 68 20 81 20 32 35  36 0d 00 aa 0d 4a 53 52  |#th . 256....JSR|
00000120  20 73 70 65 78 74 0d 00  b4 07 52 54 53 0d 00 be  | spext....RTS...|
00000130  0a 2e 73 70 65 78 74 0d  00 c8 27 53 54 41 20 63  |..spext...'STA c|
00000140  6f 75 6e 74 20 5c 20 6f  66 66 73 65 74 20 74 6f  |ount \ offset to|
00000150  20 6c 61 73 74 20 62 79  74 65 20 2b 20 31 0d 00  | last byte + 1..|
00000160  d2 25 53 54 58 20 61 64  64 72 65 73 73 20 5c 20  |.%STX address \ |
00000170  4c 53 42 20 6f 66 20 64  61 74 61 20 61 64 64 72  |LSB of data addr|
00000180  65 73 73 0d 00 dc 27 53  54 59 20 61 64 64 72 65  |ess...'STY addre|
00000190  73 73 2b 31 20 5c 20 4d  53 42 20 6f 66 20 64 61  |ss+1 \ MSB of da|
000001a0  74 61 20 61 64 64 72 65  73 73 0d 00 e6 28 4c 44  |ta address...(LD|
000001b0  41 20 23 26 39 46 20 5c  20 77 72 69 74 65 20 74  |A #&9F \ write t|
000001c0  6f 20 73 70 65 65 63 68  20 70 72 6f 63 65 73 73  |o speech process|
000001d0  6f 72 0d 00 f0 25 4c 44  59 20 23 26 36 30 20 5c  |or...%LDY #&60 \|
000001e0  20 53 70 65 61 6b 20 45  78 74 65 72 6e 61 6c 20  | Speak External |
000001f0  63 6f 6d 6d 61 6e 64 0d  00 fa 0e 4a 53 52 20 6f  |command....JSR o|
00000200  73 62 79 74 65 0d 01 04  21 4c 44 59 20 23 30 20  |sbyte...!LDY #0 |
00000210  5c 20 73 74 61 72 74 20  6f 66 66 73 65 74 20 61  |\ start offset a|
00000220  74 20 7a 65 72 6f 0d 01  0e 26 53 54 59 20 79 72  |t zero...&STY yr|
00000230  65 67 20 5c 20 63 75 72  72 65 6e 74 20 76 61 6c  |eg \ current val|
00000240  75 65 20 6f 66 20 6f 66  66 73 65 74 0d 01 18 0b  |ue of offset....|
00000250  2e 65 78 6c 6f 6f 70 0d  01 22 29 4c 44 41 20 28  |.exloop..")LDA (|
00000260  61 64 64 72 65 73 73 29  2c 59 20 5c 20 6c 6f 61  |address),Y \ loa|
00000270  64 20 6e 65 78 74 20 64  61 74 61 20 62 79 74 65  |d next data byte|
00000280  0d 01 2c 23 54 41 59 20  5c 20 64 61 74 61 20 62  |..,#TAY \ data b|
00000290  79 74 65 20 69 6e 74 6f  20 59 20 72 65 67 69 73  |yte into Y regis|
000002a0  74 65 72 0d 01 36 28 4c  44 41 20 23 26 39 46 20  |ter..6(LDA #&9F |
000002b0  5c 20 77 72 69 74 65 20  74 6f 20 73 70 65 65 63  |\ write to speec|
000002c0  68 20 70 72 6f 63 65 73  73 6f 72 0d 01 40 2d 4a  |h processor..@-J|
000002d0  53 52 20 6f 73 62 79 74  65 20 5c 20 70 75 74 20  |SR osbyte \ put |
000002e0  64 61 74 61 20 62 79 74  65 20 69 6e 20 46 49 46  |data byte in FIF|
000002f0  4f 20 62 75 66 66 65 72  0d 01 4a 1f 49 4e 43 20  |O buffer..J.INC |
00000300  79 72 65 67 20 5c 20 69  6e 63 72 65 6d 65 6e 74  |yreg \ increment|
00000310  20 6f 66 66 73 65 74 0d  01 54 29 4c 44 59 20 79  | offset..T)LDY y|
00000320  72 65 67 20 5c 20 6c 6f  61 64 20 59 20 77 69 74  |reg \ load Y wit|
00000330  68 20 63 75 72 72 65 6e  74 20 6f 66 66 73 65 74  |h current offset|
00000340  0d 01 5e 30 43 50 59 20  63 6f 75 6e 74 20 5c 20  |..^0CPY count \ |
00000350  63 6f 6d 70 61 72 65 20  63 75 72 72 65 6e 74 20  |compare current |
00000360  77 69 74 68 20 6d 61 78  2e 20 6f 66 66 73 65 74  |with max. offset|
00000370  0d 01 68 2f 42 43 43 20  65 78 6c 6f 6f 70 20 5c  |..h/BCC exloop \|
00000380  20 62 72 61 6e 63 68 20  69 66 20 6d 6f 72 65 20  | branch if more |
00000390  64 61 74 61 20 74 6f 20  62 65 20 73 65 6e 74 0d  |data to be sent.|
000003a0  01 72 0b 2e 73 74 61 74  75 73 0d 01 7c 34 4c 44  |.r..status..|4LD|
000003b0  41 20 23 26 39 45 20 5c  20 72 65 61 64 20 73 70  |A #&9E \ read sp|
000003c0  65 65 63 68 20 70 72 6f  63 65 73 73 6f 72 20 73  |eech processor s|
000003d0  74 61 74 75 73 20 72 65  67 69 73 74 65 72 0d 01  |tatus register..|
000003e0  86 0e 4a 53 52 20 6f 73  62 79 74 65 0d 01 90 2e  |..JSR osbyte....|
000003f0  54 59 41 20 5c 20 73 74  61 74 75 73 20 72 65 67  |TYA \ status reg|
00000400  69 73 74 65 72 20 69 6e  20 59 20 74 72 61 6e 73  |ister in Y trans|
00000410  66 65 72 65 64 20 74 6f  20 41 0d 01 9a 2a 52 4f  |fered to A...*RO|
00000420  4c 20 41 20 5c 20 62 69  74 20 37 20 28 74 61 6c  |L A \ bit 7 (tal|
00000430  6b 20 73 74 61 74 75 73  29 20 69 6e 74 6f 20 63  |k status) into c|
00000440  61 72 72 79 0d 01 a4 2c  42 43 53 20 73 74 61 74  |arry...,BCS stat|
00000450  75 73 20 5c 20 63 61 72  72 79 20 73 65 74 20 69  |us \ carry set i|
00000460  66 20 73 74 69 6c 6c 20  73 70 65 61 6b 69 6e 67  |f still speaking|
00000470  0d 01 ae 07 52 54 53 0d  01 b8 08 2e 6d 6f 75 0d  |....RTS.....mou.|
00000480  01 c2 1f 5c 20 53 74 61  72 74 20 61 64 64 72 65  |...\ Start addre|
00000490  73 73 20 3d 20 26 44 36  38 20 28 26 30 29 0d 01  |ss = &D68 (&0)..|
000004a0  cc 1e 5c 20 45 6e 64 20  61 64 64 72 65 73 73 20  |..\ End address |
000004b0  3d 20 26 44 39 41 20 28  26 33 32 29 0d 01 d6 1c  |= &D9A (&32)....|
000004c0  45 51 55 44 20 26 35 41  34 36 34 44 32 35 20 5c  |EQUD &5A464D25 \|
000004d0  20 26 33 20 2d 20 26 30  0d 01 e0 1c 45 51 55 44  | &3 - &0....EQUD|
000004e0  20 26 32 38 39 44 44 37  32 31 20 5c 20 26 37 20  | &289DD721 \ &7 |
000004f0  2d 20 26 34 0d 01 ea 1c  45 51 55 44 20 26 35 39  |- &4....EQUD &59|
00000500  37 35 37 35 38 37 20 5c  20 26 42 20 2d 20 26 38  |757587 \ &B - &8|
00000510  0d 01 f4 1c 45 51 55 44  20 26 41 45 45 32 38 32  |....EQUD &AEE282|
00000520  37 38 20 5c 20 26 46 20  2d 20 26 43 0d 01 fe 1e  |78 \ &F - &C....|
00000530  45 51 55 44 20 26 30 39  45 31 42 35 34 32 20 5c  |EQUD &09E1B542 \|
00000540  20 26 31 33 20 2d 20 26  31 30 0d 02 08 1e 45 51  | &13 - &10....EQ|
00000550  55 44 20 26 42 33 37 32  42 42 41 41 20 5c 20 26  |UD &B372BBAA \ &|
00000560  31 37 20 2d 20 26 31 34  0d 02 12 1e 45 51 55 44  |17 - &14....EQUD|
00000570  20 26 45 45 41 41 32 37  38 36 20 5c 20 26 31 42  | &EEAA2786 \ &1B|
00000580  20 2d 20 26 31 38 0d 02  1c 1e 45 51 55 44 20 26  | - &18....EQUD &|
00000590  39 44 36 41 43 44 33 41  20 5c 20 26 31 46 20 2d  |9D6ACD3A \ &1F -|
000005a0  20 26 31 43 0d 02 26 1e  45 51 55 44 20 26 42 37  | &1C..&.EQUD &B7|
000005b0  32 45 42 34 42 43 20 5c  20 26 32 33 20 2d 20 26  |2EB4BC \ &23 - &|
000005c0  32 30 0d 02 30 1e 45 51  55 44 20 26 31 41 43 41  |20..0.EQUD &1ACA|
000005d0  37 32 41 43 20 5c 20 26  32 37 20 2d 20 26 32 34  |72AC \ &27 - &24|
000005e0  0d 02 3a 1e 45 51 55 44  20 26 43 41 37 34 44 32  |..:.EQUD &CA74D2|
000005f0  33 41 20 5c 20 26 32 42  20 2d 20 26 32 38 0d 02  |3A \ &2B - &28..|
00000600  44 1e 45 51 55 44 20 26  30 46 32 45 34 41 36 41  |D.EQUD &0F2E4A6A|
00000610  20 5c 20 26 32 46 20 2d  20 26 32 43 0d 02 4e 1e  | \ &2F - &2C..N.|
00000620  45 51 55 44 20 26 32 44  41 44 35 39 44 31 20 5c  |EQUD &2DAD59D1 \|
00000630  20 26 33 33 20 2d 20 26  33 30 0d 02 58 07 2e 74  | &33 - &30..X..t|
00000640  68 0d 02 62 1f 5c 20 53  74 61 72 74 20 61 64 64  |h..b.\ Start add|
00000650  72 65 73 73 20 3d 20 26  33 44 43 20 28 26 30 29  |ress = &3DC (&0)|
00000660  0d 02 6c 1e 5c 20 45 6e  64 20 61 64 64 72 65 73  |..l.\ End addres|
00000670  73 20 3d 20 26 33 46 31  20 28 26 31 35 29 0d 02  |s = &3F1 (&15)..|
00000680  76 1c 45 51 55 44 20 26  39 34 32 32 31 38 30 38  |v.EQUD &94221808|
00000690  20 5c 20 26 33 20 2d 20  26 30 0d 02 80 1c 45 51  | \ &3 - &0....EQ|
000006a0  55 44 20 26 44 43 45 38  30 32 30 32 20 5c 20 26  |UD &DCE80202 \ &|
000006b0  37 20 2d 20 26 34 0d 02  8a 1c 45 51 55 44 20 26  |7 - &4....EQUD &|
000006c0  42 38 35 44 30 30 38 35  20 5c 20 26 42 20 2d 20  |B85D0085 \ &B - |
000006d0  26 38 0d 02 94 1c 45 51  55 44 20 26 33 30 38 37  |&8....EQUD &3087|
000006e0  32 30 33 31 20 5c 20 26  46 20 2d 20 26 43 0d 02  |2031 \ &F - &C..|
000006f0  9e 1e 45 51 55 44 20 26  46 45 39 39 30 34 30 34  |..EQUD &FE990404|
00000700  20 5c 20 26 31 33 20 2d  20 26 31 30 0d 02 a8 1e  | \ &13 - &10....|
00000710  45 51 55 44 20 26 30 34  35 41 31 35 34 44 20 5c  |EQUD &045A154D \|
00000720  20 26 31 37 20 2d 20 26  31 34 0d 02 b2 05 5d 0d  | &17 - &14....].|
00000730  02 bc 05 ed 0d 02 c6 0b  d6 20 6d 63 6f 64 65 0d  |......... mcode.|
00000740  ff                                                |.|
00000741