�: CLOCK
� mcode &100
osbyte=&FFF4
(�pass=0�2�2
2P%=mcode
<
[OPT pass
F(LDA #&9F \ write to speech processor
P%LDY #&60 \ speak external command
ZJSR osbyte
d
LDX #0
n	.loop
x"LDY clock,X \ load Y with data
�/JSR osbyte \ write data to speech processor
�INX
�CPX #&47
�BNE loop
�.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
�
.clock
�EQUD &003BA528

EQUD &60A46B5D

EQUD &55090D59

EQUD &35A4BC32

"EQUD &70D1AD4B

,EQUD &D716F673

6EQUD &ADCC2B29

@EQUD &AD674DCA

JEQUD &50AEF52C

TEQUD &D486389D

^EQUD &65654B3B

hEQUD &754BD298

rEQUD &1264DAF3

|EQUD &6445DDCA

�EQUD &28000003

�EQUD &02231520

�EQUD &808CE4E4

�EQUW &072C

�EQUB &FE

�]

��

�� mcode
�

00000000  0d 00 0a 0c f4 3a 20 43  4c 4f 43 4b 0d 00 14 10  |.....: CLOCK....|
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 25  |ch processor..P%|
00000080  4c 44 59 20 23 26 36 30  20 5c 20 73 70 65 61 6b  |LDY #&60 \ speak|
00000090  20 65 78 74 65 72 6e 61  6c 20 63 6f 6d 6d 61 6e  | external comman|
000000a0  64 0d 00 5a 0e 4a 53 52  20 6f 73 62 79 74 65 0d  |d..Z.JSR osbyte.|
000000b0  00 64 0a 4c 44 58 20 23  30 0d 00 6e 09 2e 6c 6f  |.d.LDX #0..n..lo|
000000c0  6f 70 0d 00 78 22 4c 44  59 20 63 6c 6f 63 6b 2c  |op..x"LDY clock,|
000000d0  58 20 5c 20 6c 6f 61 64  20 59 20 77 69 74 68 20  |X \ load Y with |
000000e0  64 61 74 61 0d 00 82 2f  4a 53 52 20 6f 73 62 79  |data.../JSR osby|
000000f0  74 65 20 5c 20 77 72 69  74 65 20 64 61 74 61 20  |te \ write data |
00000100  74 6f 20 73 70 65 65 63  68 20 70 72 6f 63 65 73  |to speech proces|
00000110  73 6f 72 0d 00 8c 07 49  4e 58 0d 00 96 0c 43 50  |sor....INX....CP|
00000120  58 20 23 26 34 37 0d 00  a0 0c 42 4e 45 20 6c 6f  |X #&47....BNE lo|
00000130  6f 70 0d 00 aa 0b 2e 73  74 61 74 75 73 0d 00 b4  |op.....status...|
00000140  34 4c 44 41 20 23 26 39  45 20 5c 20 72 65 61 64  |4LDA #&9E \ read|
00000150  20 73 70 65 65 63 68 20  70 72 6f 63 65 73 73 6f  | speech processo|
00000160  72 20 73 74 61 74 75 73  20 72 65 67 69 73 74 65  |r status registe|
00000170  72 0d 00 be 0e 4a 53 52  20 6f 73 62 79 74 65 0d  |r....JSR osbyte.|
00000180  00 c8 2e 54 59 41 20 5c  20 73 74 61 74 75 73 20  |...TYA \ status |
00000190  72 65 67 69 73 74 65 72  20 69 6e 20 59 20 74 72  |register in Y tr|
000001a0  61 6e 73 66 65 72 65 64  20 74 6f 20 41 0d 00 d2  |ansfered to A...|
000001b0  2a 52 4f 4c 20 41 20 5c  20 62 69 74 20 37 20 28  |*ROL A \ bit 7 (|
000001c0  74 61 6c 6b 20 73 74 61  74 75 73 29 20 69 6e 74  |talk status) int|
000001d0  6f 20 63 61 72 72 79 0d  00 dc 2c 42 43 53 20 73  |o carry...,BCS s|
000001e0  74 61 74 75 73 20 5c 20  63 61 72 72 79 20 73 65  |tatus \ carry se|
000001f0  74 20 69 66 20 73 74 69  6c 6c 20 73 70 65 61 6b  |t if still speak|
00000200  69 6e 67 0d 00 e6 07 52  54 53 0d 00 f0 0a 2e 63  |ing....RTS.....c|
00000210  6c 6f 63 6b 0d 00 fa 12  45 51 55 44 20 26 30 30  |lock....EQUD &00|
00000220  33 42 41 35 32 38 0d 01  04 12 45 51 55 44 20 26  |3BA528....EQUD &|
00000230  36 30 41 34 36 42 35 44  0d 01 0e 12 45 51 55 44  |60A46B5D....EQUD|
00000240  20 26 35 35 30 39 30 44  35 39 0d 01 18 12 45 51  | &55090D59....EQ|
00000250  55 44 20 26 33 35 41 34  42 43 33 32 0d 01 22 12  |UD &35A4BC32..".|
00000260  45 51 55 44 20 26 37 30  44 31 41 44 34 42 0d 01  |EQUD &70D1AD4B..|
00000270  2c 12 45 51 55 44 20 26  44 37 31 36 46 36 37 33  |,.EQUD &D716F673|
00000280  0d 01 36 12 45 51 55 44  20 26 41 44 43 43 32 42  |..6.EQUD &ADCC2B|
00000290  32 39 0d 01 40 12 45 51  55 44 20 26 41 44 36 37  |29..@.EQUD &AD67|
000002a0  34 44 43 41 0d 01 4a 12  45 51 55 44 20 26 35 30  |4DCA..J.EQUD &50|
000002b0  41 45 46 35 32 43 0d 01  54 12 45 51 55 44 20 26  |AEF52C..T.EQUD &|
000002c0  44 34 38 36 33 38 39 44  0d 01 5e 12 45 51 55 44  |D486389D..^.EQUD|
000002d0  20 26 36 35 36 35 34 42  33 42 0d 01 68 12 45 51  | &65654B3B..h.EQ|
000002e0  55 44 20 26 37 35 34 42  44 32 39 38 0d 01 72 12  |UD &754BD298..r.|
000002f0  45 51 55 44 20 26 31 32  36 34 44 41 46 33 0d 01  |EQUD &1264DAF3..|
00000300  7c 12 45 51 55 44 20 26  36 34 34 35 44 44 43 41  ||.EQUD &6445DDCA|
00000310  0d 01 86 12 45 51 55 44  20 26 32 38 30 30 30 30  |....EQUD &280000|
00000320  30 33 0d 01 90 12 45 51  55 44 20 26 30 32 32 33  |03....EQUD &0223|
00000330  31 35 32 30 0d 01 9a 12  45 51 55 44 20 26 38 30  |1520....EQUD &80|
00000340  38 43 45 34 45 34 0d 01  a4 0e 45 51 55 57 20 26  |8CE4E4....EQUW &|
00000350  30 37 32 43 0d 01 ae 0c  45 51 55 42 20 26 46 45  |072C....EQUB &FE|
00000360  0d 01 b8 05 5d 0d 01 c2  05 ed 0d 01 cc 0b d6 20  |....].......... |
00000370  6d 63 6f 64 65 0d ff                              |mcode..|
00000377