�: SEARCH
buffer=&70
pointer=&80
(workspace=pointer+2
2length=pointer+4
<testbyte=pointer+5
Foffset=pointer+6
Ptemp=pointer+7
Zosnewl=&FFE7
doswrch=&FFEE
nosword=&FFF1
xosbyte=&FFF4
�� mcode &200
��pass=0�2�2
�P%=mcode
�
[OPT pass
�)LDA #&EB \ read speech processor flag
�
LDX #0
�LDY #&FF
�/JSR osbyte \ check for Acorn Speech upgrade
�(CPX #&FF \ X = &FF if speech present
�
BEQ start
�BRK
�BRK
�EQUS "No Speech upgrade"

BRK


.start

LDA #�("?")

",JSR oswrch \ write ? as prompt for input

,&LDA #0 \ read string from keyboard

6*LDX #block � 256 \ LSB parameter block

@*LDY #block � 256 \ MSB parameter block

J'JSR osword \ read word to be spoken

T+BCC clear \ carry set if escape pressed

^.escape

hLDA #&7E

r#JSR osbyte \ acknowledge escape

|BRK

�BRK

�EQUS "Escape"

�BRK

�
.clear

�+CPY #2 \ are there 2 or more characters

�"BCS word \ branch if there are

�)CPY #0 \ if there are no characters -

�%BEQ start \ go back and get some.

�'LDA buffer \ load the �II character

�ASL A \ multiply by 2

� TAX \ LSB of pointer address

�#LDY #0 \ MSB of pointer address

�0JSR address \ write XY into address register
&JSR read \ read LSB of speech data
"JSR reverse \ reverse the bits
#TAX \ LSB of speech data into X
&-STX workspace \ store LSB of data address
0&JSR read \ read MSB of speech data
:"JSR reverse \ reverse the bits
D#TAY \ MSB of speech data into Y
N/STY workspace+1 \ store MSB of data address
X0JSR address \ write XY into address register
bJMP sayit \ speak the word
l	.word
v$STY length \ length of word name
�DEY
�#STY offset \ length of word - 1
�LDA buffer,Y
�)STA testbyte \ last char of word name
�#LDA #&FE \ LSB of word pointers
�&STA pointer \ LSB of pointer table
�!LDA #0 \ MSB of word pointers
�(STA pointer+1 \ MSB of pointer table
�.search
�LDA &FF \ poll escape flag
�)BMI escape \ branch if escape pressed
�*LDX pointer \ LSB for address register
�,LDY pointer+1 \ MSB for address register
TXA
CLC
+ADC #2 \ add 2 to pointer for next time
 STA pointer
*TYA
4
ADC #0
>STA pointer+1
H0JSR address \ write XY into address register
R'JSR read \ read LSB at this address
\"JSR reverse \ reverse the bits
f*CMP #&FF \ is it the termination byte?
p'BEQ return \ if yes return to BASIC
z&STA workspace \ store reversed LSB
�JSR read \ read MSB
�"JSR reverse \ reverse the bits
�(STA workspace+1 \ store reversed MSB
�LDA workspace \ load LSB
�SEC
�4SBC length \ and subtract the length of the word
�TAX \ LSB into X
�LDA workspace+1 \ load MSB
�
SBC #0
�TAY \ MSB into Y
�0JSR address \ write XY into address register
�-JSR read \ read last character from PHROM
� JSR rotate \ rotate the bits
0CMP testbyte \ is it the same as typed word?
%BNE search \ No, try next pointer
,LDX offset \ Yes, compare all characters
$.compare
.DEX
8)BMI sayit \ if X=&FF word match found
BJSR read \ read next byte
L JSR rotate \ rotate the bits
V*CMP buffer,X \ compare with typed word
`#BNE search \ branch if no match
j(BEQ compare \ compare next character
t
.sayit
~(LDA #&9F \ write to speech processor
�LDY #&50 \ speak command
�JSR osbyte \ speak the word
�LDA #�("&") \ hex symbol
�JSR oswrch
�LDA workspace+1
�'JSR printhex \ print MSB of address
�LDA workspace
�'JSR printhex \ print LSB of address
�JSR osnewl
�.return
�RTS \ return to BASIC
�.address
TYA \ MSB is in Y register

PHA \ push MSB twice
PHA
TXA \ LSB is in X register
( � #&F \ isolate first nybble
2,�A #&40 \ � it with Load Address command
<0JSR write \ send command to speech processor
FTXA \ second nybble
P
� #&F0
Z	LSR A
d	LSR A
n	LSR A
x	LSR A
��A #&40
�0JSR write \ send command to speech processor
�PLA \ third nybble
�	� #&F
��A #&40
�
JSR write
�PLA \ fourth nybble
�
� #&F0
�	LSR A
�	LSR A
�	LSR A
�	LSR A
��A #&4C
0JSR write \ send command to speech processor
#LDA #&43 \ last byte always &43

.write
"*TAY \ transfer command into Y register
,(LDA #&9F \ write to speech processor
6"JMP osbyte \ Osbyte and return
@	.read
J(LDA #&9F \ write to speech processor
T LDY #&10 \ read byte command
^'JSR osbyte \ send read byte command
hLDA #&9E
r*JSR osbyte \ read next byte from PHROM
|TYA \ result in accumulator
�RTS
�.rotate
�PHA
�!ROR A \ bit 0 into carry flag
�PLA
�+ROR A \ rotate the byte read from PHROM
�RTS
�.reverse
�'STA temp \ temporary store for byte
�$ROL temp \ bit 7 into carry flag
�)ROR A \ carry to bit 7 of accumulator
�$ROL temp \ bit 6 into carry flag
�&ROR A \ bit 7 to 6, carry to bit 7
ROL temp \ bit 5 into carry
ROR A \ and so on ...
ROL temp
&	ROR A
0ROL temp
:	ROR A
DROL temp
N	ROR A
XROL temp
b	ROR A
lROL temp
v(ROR A \ bits in accumulator reversed
�RTS
�
.printhex
�PHA
�	LSR A
�	LSR A
�	LSR A
�	LSR A
�'JSR nybble \ print MS nybble in �II
�$PLA \ and print LS nybble in �II
�.nybble
�	� #&F
�SED
�CLC
ADC #&90
ADC #&40
CLD
 JMP oswrch
*
.block
4EQUW buffer
>EQUB &F
HEQUB �(" ")
REQUB �("~")
\]
f�
p� mcode
�

00000000  0d 00 0a 0d f4 3a 20 53  45 41 52 43 48 0d 00 14  |.....: SEARCH...|
00000010  0e 62 75 66 66 65 72 3d  26 37 30 0d 00 1e 0f 70  |.buffer=&70....p|
00000020  6f 69 6e 74 65 72 3d 26  38 30 0d 00 28 17 77 6f  |ointer=&80..(.wo|
00000030  72 6b 73 70 61 63 65 3d  70 6f 69 6e 74 65 72 2b  |rkspace=pointer+|
00000040  32 0d 00 32 14 6c 65 6e  67 74 68 3d 70 6f 69 6e  |2..2.length=poin|
00000050  74 65 72 2b 34 0d 00 3c  16 74 65 73 74 62 79 74  |ter+4..<.testbyt|
00000060  65 3d 70 6f 69 6e 74 65  72 2b 35 0d 00 46 14 6f  |e=pointer+5..F.o|
00000070  66 66 73 65 74 3d 70 6f  69 6e 74 65 72 2b 36 0d  |ffset=pointer+6.|
00000080  00 50 12 74 65 6d 70 3d  70 6f 69 6e 74 65 72 2b  |.P.temp=pointer+|
00000090  37 0d 00 5a 10 6f 73 6e  65 77 6c 3d 26 46 46 45  |7..Z.osnewl=&FFE|
000000a0  37 0d 00 64 10 6f 73 77  72 63 68 3d 26 46 46 45  |7..d.oswrch=&FFE|
000000b0  45 0d 00 6e 10 6f 73 77  6f 72 64 3d 26 46 46 46  |E..n.osword=&FFF|
000000c0  31 0d 00 78 10 6f 73 62  79 74 65 3d 26 46 46 46  |1..x.osbyte=&FFF|
000000d0  34 0d 00 82 10 de 20 6d  63 6f 64 65 20 26 32 30  |4..... mcode &20|
000000e0  30 0d 00 8c 0f e3 70 61  73 73 3d 30 b8 32 88 32  |0.....pass=0.2.2|
000000f0  0d 00 96 0c 50 25 3d 6d  63 6f 64 65 0d 00 a0 0d  |....P%=mcode....|
00000100  5b 4f 50 54 20 70 61 73  73 0d 00 aa 29 4c 44 41  |[OPT pass...)LDA|
00000110  20 23 26 45 42 20 5c 20  72 65 61 64 20 73 70 65  | #&EB \ read spe|
00000120  65 63 68 20 70 72 6f 63  65 73 73 6f 72 20 66 6c  |ech processor fl|
00000130  61 67 0d 00 b4 0a 4c 44  58 20 23 30 0d 00 be 0c  |ag....LDX #0....|
00000140  4c 44 59 20 23 26 46 46  0d 00 c8 2f 4a 53 52 20  |LDY #&FF.../JSR |
00000150  6f 73 62 79 74 65 20 5c  20 63 68 65 63 6b 20 66  |osbyte \ check f|
00000160  6f 72 20 41 63 6f 72 6e  20 53 70 65 65 63 68 20  |or Acorn Speech |
00000170  75 70 67 72 61 64 65 0d  00 d2 28 43 50 58 20 23  |upgrade...(CPX #|
00000180  26 46 46 20 5c 20 58 20  3d 20 26 46 46 20 69 66  |&FF \ X = &FF if|
00000190  20 73 70 65 65 63 68 20  70 72 65 73 65 6e 74 0d  | speech present.|
000001a0  00 dc 0d 42 45 51 20 73  74 61 72 74 0d 00 e6 07  |...BEQ start....|
000001b0  42 52 4b 0d 00 f0 07 42  52 4b 0d 00 fa 1c 45 51  |BRK....BRK....EQ|
000001c0  55 53 20 22 4e 6f 20 53  70 65 65 63 68 20 75 70  |US "No Speech up|
000001d0  67 72 61 64 65 22 0d 01  04 07 42 52 4b 0d 01 0e  |grade"....BRK...|
000001e0  0a 2e 73 74 61 72 74 0d  01 18 0f 4c 44 41 20 23  |..start....LDA #|
000001f0  97 28 22 3f 22 29 0d 01  22 2c 4a 53 52 20 6f 73  |.("?")..",JSR os|
00000200  77 72 63 68 20 5c 20 77  72 69 74 65 20 3f 20 61  |wrch \ write ? a|
00000210  73 20 70 72 6f 6d 70 74  20 66 6f 72 20 69 6e 70  |s prompt for inp|
00000220  75 74 0d 01 2c 26 4c 44  41 20 23 30 20 5c 20 72  |ut..,&LDA #0 \ r|
00000230  65 61 64 20 73 74 72 69  6e 67 20 66 72 6f 6d 20  |ead string from |
00000240  6b 65 79 62 6f 61 72 64  0d 01 36 2a 4c 44 58 20  |keyboard..6*LDX |
00000250  23 62 6c 6f 63 6b 20 83  20 32 35 36 20 5c 20 4c  |#block . 256 \ L|
00000260  53 42 20 70 61 72 61 6d  65 74 65 72 20 62 6c 6f  |SB parameter blo|
00000270  63 6b 0d 01 40 2a 4c 44  59 20 23 62 6c 6f 63 6b  |ck..@*LDY #block|
00000280  20 81 20 32 35 36 20 5c  20 4d 53 42 20 70 61 72  | . 256 \ MSB par|
00000290  61 6d 65 74 65 72 20 62  6c 6f 63 6b 0d 01 4a 27  |ameter block..J'|
000002a0  4a 53 52 20 6f 73 77 6f  72 64 20 5c 20 72 65 61  |JSR osword \ rea|
000002b0  64 20 77 6f 72 64 20 74  6f 20 62 65 20 73 70 6f  |d word to be spo|
000002c0  6b 65 6e 0d 01 54 2b 42  43 43 20 63 6c 65 61 72  |ken..T+BCC clear|
000002d0  20 5c 20 63 61 72 72 79  20 73 65 74 20 69 66 20  | \ carry set if |
000002e0  65 73 63 61 70 65 20 70  72 65 73 73 65 64 0d 01  |escape pressed..|
000002f0  5e 0b 2e 65 73 63 61 70  65 0d 01 68 0c 4c 44 41  |^..escape..h.LDA|
00000300  20 23 26 37 45 0d 01 72  23 4a 53 52 20 6f 73 62  | #&7E..r#JSR osb|
00000310  79 74 65 20 5c 20 61 63  6b 6e 6f 77 6c 65 64 67  |yte \ acknowledg|
00000320  65 20 65 73 63 61 70 65  0d 01 7c 07 42 52 4b 0d  |e escape..|.BRK.|
00000330  01 86 07 42 52 4b 0d 01  90 11 45 51 55 53 20 22  |...BRK....EQUS "|
00000340  45 73 63 61 70 65 22 0d  01 9a 07 42 52 4b 0d 01  |Escape"....BRK..|
00000350  a4 0a 2e 63 6c 65 61 72  0d 01 ae 2b 43 50 59 20  |...clear...+CPY |
00000360  23 32 20 5c 20 61 72 65  20 74 68 65 72 65 20 32  |#2 \ are there 2|
00000370  20 6f 72 20 6d 6f 72 65  20 63 68 61 72 61 63 74  | or more charact|
00000380  65 72 73 0d 01 b8 22 42  43 53 20 77 6f 72 64 20  |ers..."BCS word |
00000390  5c 20 62 72 61 6e 63 68  20 69 66 20 74 68 65 72  |\ branch if ther|
000003a0  65 20 61 72 65 0d 01 c2  29 43 50 59 20 23 30 20  |e are...)CPY #0 |
000003b0  5c 20 69 66 20 74 68 65  72 65 20 61 72 65 20 6e  |\ if there are n|
000003c0  6f 20 63 68 61 72 61 63  74 65 72 73 20 2d 0d 01  |o characters -..|
000003d0  cc 25 42 45 51 20 73 74  61 72 74 20 5c 20 67 6f  |.%BEQ start \ go|
000003e0  20 62 61 63 6b 20 61 6e  64 20 67 65 74 20 73 6f  | back and get so|
000003f0  6d 65 2e 0d 01 d6 27 4c  44 41 20 62 75 66 66 65  |me....'LDA buffe|
00000400  72 20 5c 20 6c 6f 61 64  20 74 68 65 20 97 49 49  |r \ load the .II|
00000410  20 63 68 61 72 61 63 74  65 72 0d 01 e0 19 41 53  | character....AS|
00000420  4c 20 41 20 5c 20 6d 75  6c 74 69 70 6c 79 20 62  |L A \ multiply b|
00000430  79 20 32 0d 01 ea 20 54  41 58 20 5c 20 4c 53 42  |y 2... TAX \ LSB|
00000440  20 6f 66 20 70 6f 69 6e  74 65 72 20 61 64 64 72  | of pointer addr|
00000450  65 73 73 0d 01 f4 23 4c  44 59 20 23 30 20 5c 20  |ess...#LDY #0 \ |
00000460  4d 53 42 20 6f 66 20 70  6f 69 6e 74 65 72 20 61  |MSB of pointer a|
00000470  64 64 72 65 73 73 0d 01  fe 30 4a 53 52 20 61 64  |ddress...0JSR ad|
00000480  64 72 65 73 73 20 5c 20  77 72 69 74 65 20 58 59  |dress \ write XY|
00000490  20 69 6e 74 6f 20 61 64  64 72 65 73 73 20 72 65  | into address re|
000004a0  67 69 73 74 65 72 0d 02  08 26 4a 53 52 20 72 65  |gister...&JSR re|
000004b0  61 64 20 5c 20 72 65 61  64 20 4c 53 42 20 6f 66  |ad \ read LSB of|
000004c0  20 73 70 65 65 63 68 20  64 61 74 61 0d 02 12 22  | speech data..."|
000004d0  4a 53 52 20 72 65 76 65  72 73 65 20 5c 20 72 65  |JSR reverse \ re|
000004e0  76 65 72 73 65 20 74 68  65 20 62 69 74 73 0d 02  |verse the bits..|
000004f0  1c 23 54 41 58 20 5c 20  4c 53 42 20 6f 66 20 73  |.#TAX \ LSB of s|
00000500  70 65 65 63 68 20 64 61  74 61 20 69 6e 74 6f 20  |peech data into |
00000510  58 0d 02 26 2d 53 54 58  20 77 6f 72 6b 73 70 61  |X..&-STX workspa|
00000520  63 65 20 5c 20 73 74 6f  72 65 20 4c 53 42 20 6f  |ce \ store LSB o|
00000530  66 20 64 61 74 61 20 61  64 64 72 65 73 73 0d 02  |f data address..|
00000540  30 26 4a 53 52 20 72 65  61 64 20 5c 20 72 65 61  |0&JSR read \ rea|
00000550  64 20 4d 53 42 20 6f 66  20 73 70 65 65 63 68 20  |d MSB of speech |
00000560  64 61 74 61 0d 02 3a 22  4a 53 52 20 72 65 76 65  |data..:"JSR reve|
00000570  72 73 65 20 5c 20 72 65  76 65 72 73 65 20 74 68  |rse \ reverse th|
00000580  65 20 62 69 74 73 0d 02  44 23 54 41 59 20 5c 20  |e bits..D#TAY \ |
00000590  4d 53 42 20 6f 66 20 73  70 65 65 63 68 20 64 61  |MSB of speech da|
000005a0  74 61 20 69 6e 74 6f 20  59 0d 02 4e 2f 53 54 59  |ta into Y..N/STY|
000005b0  20 77 6f 72 6b 73 70 61  63 65 2b 31 20 5c 20 73  | workspace+1 \ s|
000005c0  74 6f 72 65 20 4d 53 42  20 6f 66 20 64 61 74 61  |tore MSB of data|
000005d0  20 61 64 64 72 65 73 73  0d 02 58 30 4a 53 52 20  | address..X0JSR |
000005e0  61 64 64 72 65 73 73 20  5c 20 77 72 69 74 65 20  |address \ write |
000005f0  58 59 20 69 6e 74 6f 20  61 64 64 72 65 73 73 20  |XY into address |
00000600  72 65 67 69 73 74 65 72  0d 02 62 1e 4a 4d 50 20  |register..b.JMP |
00000610  73 61 79 69 74 20 5c 20  73 70 65 61 6b 20 74 68  |sayit \ speak th|
00000620  65 20 77 6f 72 64 0d 02  6c 09 2e 77 6f 72 64 0d  |e word..l..word.|
00000630  02 76 24 53 54 59 20 6c  65 6e 67 74 68 20 5c 20  |.v$STY length \ |
00000640  6c 65 6e 67 74 68 20 6f  66 20 77 6f 72 64 20 6e  |length of word n|
00000650  61 6d 65 0d 02 80 07 44  45 59 0d 02 8a 23 53 54  |ame....DEY...#ST|
00000660  59 20 6f 66 66 73 65 74  20 5c 20 6c 65 6e 67 74  |Y offset \ lengt|
00000670  68 20 6f 66 20 77 6f 72  64 20 2d 20 31 0d 02 94  |h of word - 1...|
00000680  10 4c 44 41 20 62 75 66  66 65 72 2c 59 0d 02 9e  |.LDA buffer,Y...|
00000690  29 53 54 41 20 74 65 73  74 62 79 74 65 20 5c 20  |)STA testbyte \ |
000006a0  6c 61 73 74 20 63 68 61  72 20 6f 66 20 77 6f 72  |last char of wor|
000006b0  64 20 6e 61 6d 65 0d 02  a8 23 4c 44 41 20 23 26  |d name...#LDA #&|
000006c0  46 45 20 5c 20 4c 53 42  20 6f 66 20 77 6f 72 64  |FE \ LSB of word|
000006d0  20 70 6f 69 6e 74 65 72  73 0d 02 b2 26 53 54 41  | pointers...&STA|
000006e0  20 70 6f 69 6e 74 65 72  20 5c 20 4c 53 42 20 6f  | pointer \ LSB o|
000006f0  66 20 70 6f 69 6e 74 65  72 20 74 61 62 6c 65 0d  |f pointer table.|
00000700  02 bc 21 4c 44 41 20 23  30 20 5c 20 4d 53 42 20  |..!LDA #0 \ MSB |
00000710  6f 66 20 77 6f 72 64 20  70 6f 69 6e 74 65 72 73  |of word pointers|
00000720  0d 02 c6 28 53 54 41 20  70 6f 69 6e 74 65 72 2b  |...(STA pointer+|
00000730  31 20 5c 20 4d 53 42 20  6f 66 20 70 6f 69 6e 74  |1 \ MSB of point|
00000740  65 72 20 74 61 62 6c 65  0d 02 d0 0b 2e 73 65 61  |er table.....sea|
00000750  72 63 68 0d 02 da 1e 4c  44 41 20 26 46 46 20 5c  |rch....LDA &FF \|
00000760  20 70 6f 6c 6c 20 65 73  63 61 70 65 20 66 6c 61  | poll escape fla|
00000770  67 0d 02 e4 29 42 4d 49  20 65 73 63 61 70 65 20  |g...)BMI escape |
00000780  5c 20 62 72 61 6e 63 68  20 69 66 20 65 73 63 61  |\ branch if esca|
00000790  70 65 20 70 72 65 73 73  65 64 0d 02 ee 2a 4c 44  |pe pressed...*LD|
000007a0  58 20 70 6f 69 6e 74 65  72 20 5c 20 4c 53 42 20  |X pointer \ LSB |
000007b0  66 6f 72 20 61 64 64 72  65 73 73 20 72 65 67 69  |for address regi|
000007c0  73 74 65 72 0d 02 f8 2c  4c 44 59 20 70 6f 69 6e  |ster...,LDY poin|
000007d0  74 65 72 2b 31 20 5c 20  4d 53 42 20 66 6f 72 20  |ter+1 \ MSB for |
000007e0  61 64 64 72 65 73 73 20  72 65 67 69 73 74 65 72  |address register|
000007f0  0d 03 02 07 54 58 41 0d  03 0c 07 43 4c 43 0d 03  |....TXA....CLC..|
00000800  16 2b 41 44 43 20 23 32  20 5c 20 61 64 64 20 32  |.+ADC #2 \ add 2|
00000810  20 74 6f 20 70 6f 69 6e  74 65 72 20 66 6f 72 20  | to pointer for |
00000820  6e 65 78 74 20 74 69 6d  65 0d 03 20 0f 53 54 41  |next time.. .STA|
00000830  20 70 6f 69 6e 74 65 72  0d 03 2a 07 54 59 41 0d  | pointer..*.TYA.|
00000840  03 34 0a 41 44 43 20 23  30 0d 03 3e 11 53 54 41  |.4.ADC #0..>.STA|
00000850  20 70 6f 69 6e 74 65 72  2b 31 0d 03 48 30 4a 53  | pointer+1..H0JS|
00000860  52 20 61 64 64 72 65 73  73 20 5c 20 77 72 69 74  |R address \ writ|
00000870  65 20 58 59 20 69 6e 74  6f 20 61 64 64 72 65 73  |e XY into addres|
00000880  73 20 72 65 67 69 73 74  65 72 0d 03 52 27 4a 53  |s register..R'JS|
00000890  52 20 72 65 61 64 20 5c  20 72 65 61 64 20 4c 53  |R read \ read LS|
000008a0  42 20 61 74 20 74 68 69  73 20 61 64 64 72 65 73  |B at this addres|
000008b0  73 0d 03 5c 22 4a 53 52  20 72 65 76 65 72 73 65  |s..\"JSR reverse|
000008c0  20 5c 20 72 65 76 65 72  73 65 20 74 68 65 20 62  | \ reverse the b|
000008d0  69 74 73 0d 03 66 2a 43  4d 50 20 23 26 46 46 20  |its..f*CMP #&FF |
000008e0  5c 20 69 73 20 69 74 20  74 68 65 20 74 65 72 6d  |\ is it the term|
000008f0  69 6e 61 74 69 6f 6e 20  62 79 74 65 3f 0d 03 70  |ination byte?..p|
00000900  27 42 45 51 20 72 65 74  75 72 6e 20 5c 20 69 66  |'BEQ return \ if|
00000910  20 79 65 73 20 72 65 74  75 72 6e 20 74 6f 20 42  | yes return to B|
00000920  41 53 49 43 0d 03 7a 26  53 54 41 20 77 6f 72 6b  |ASIC..z&STA work|
00000930  73 70 61 63 65 20 5c 20  73 74 6f 72 65 20 72 65  |space \ store re|
00000940  76 65 72 73 65 64 20 4c  53 42 0d 03 84 17 4a 53  |versed LSB....JS|
00000950  52 20 72 65 61 64 20 5c  20 72 65 61 64 20 4d 53  |R read \ read MS|
00000960  42 0d 03 8e 22 4a 53 52  20 72 65 76 65 72 73 65  |B..."JSR reverse|
00000970  20 5c 20 72 65 76 65 72  73 65 20 74 68 65 20 62  | \ reverse the b|
00000980  69 74 73 0d 03 98 28 53  54 41 20 77 6f 72 6b 73  |its...(STA works|
00000990  70 61 63 65 2b 31 20 5c  20 73 74 6f 72 65 20 72  |pace+1 \ store r|
000009a0  65 76 65 72 73 65 64 20  4d 53 42 0d 03 a2 1c 4c  |eversed MSB....L|
000009b0  44 41 20 77 6f 72 6b 73  70 61 63 65 20 5c 20 6c  |DA workspace \ l|
000009c0  6f 61 64 20 4c 53 42 0d  03 ac 07 53 45 43 0d 03  |oad LSB....SEC..|
000009d0  b6 34 53 42 43 20 6c 65  6e 67 74 68 20 5c 20 61  |.4SBC length \ a|
000009e0  6e 64 20 73 75 62 74 72  61 63 74 20 74 68 65 20  |nd subtract the |
000009f0  6c 65 6e 67 74 68 20 6f  66 20 74 68 65 20 77 6f  |length of the wo|
00000a00  72 64 0d 03 c0 14 54 41  58 20 5c 20 4c 53 42 20  |rd....TAX \ LSB |
00000a10  69 6e 74 6f 20 58 0d 03  ca 1e 4c 44 41 20 77 6f  |into X....LDA wo|
00000a20  72 6b 73 70 61 63 65 2b  31 20 5c 20 6c 6f 61 64  |rkspace+1 \ load|
00000a30  20 4d 53 42 0d 03 d4 0a  53 42 43 20 23 30 0d 03  | MSB....SBC #0..|
00000a40  de 14 54 41 59 20 5c 20  4d 53 42 20 69 6e 74 6f  |..TAY \ MSB into|
00000a50  20 59 0d 03 e8 30 4a 53  52 20 61 64 64 72 65 73  | Y...0JSR addres|
00000a60  73 20 5c 20 77 72 69 74  65 20 58 59 20 69 6e 74  |s \ write XY int|
00000a70  6f 20 61 64 64 72 65 73  73 20 72 65 67 69 73 74  |o address regist|
00000a80  65 72 0d 03 f2 2d 4a 53  52 20 72 65 61 64 20 5c  |er...-JSR read \|
00000a90  20 72 65 61 64 20 6c 61  73 74 20 63 68 61 72 61  | read last chara|
00000aa0  63 74 65 72 20 66 72 6f  6d 20 50 48 52 4f 4d 0d  |cter from PHROM.|
00000ab0  03 fc 20 4a 53 52 20 72  6f 74 61 74 65 20 5c 20  |.. JSR rotate \ |
00000ac0  72 6f 74 61 74 65 20 74  68 65 20 62 69 74 73 0d  |rotate the bits.|
00000ad0  04 06 30 43 4d 50 20 74  65 73 74 62 79 74 65 20  |..0CMP testbyte |
00000ae0  5c 20 69 73 20 69 74 20  74 68 65 20 73 61 6d 65  |\ is it the same|
00000af0  20 61 73 20 74 79 70 65  64 20 77 6f 72 64 3f 0d  | as typed word?.|
00000b00  04 10 25 42 4e 45 20 73  65 61 72 63 68 20 5c 20  |..%BNE search \ |
00000b10  4e 6f 2c 20 74 72 79 20  6e 65 78 74 20 70 6f 69  |No, try next poi|
00000b20  6e 74 65 72 0d 04 1a 2c  4c 44 58 20 6f 66 66 73  |nter...,LDX offs|
00000b30  65 74 20 5c 20 59 65 73  2c 20 63 6f 6d 70 61 72  |et \ Yes, compar|
00000b40  65 20 61 6c 6c 20 63 68  61 72 61 63 74 65 72 73  |e all characters|
00000b50  0d 04 24 0c 2e 63 6f 6d  70 61 72 65 0d 04 2e 07  |..$..compare....|
00000b60  44 45 58 0d 04 38 29 42  4d 49 20 73 61 79 69 74  |DEX..8)BMI sayit|
00000b70  20 5c 20 69 66 20 58 3d  26 46 46 20 77 6f 72 64  | \ if X=&FF word|
00000b80  20 6d 61 74 63 68 20 66  6f 75 6e 64 0d 04 42 1d  | match found..B.|
00000b90  4a 53 52 20 72 65 61 64  20 5c 20 72 65 61 64 20  |JSR read \ read |
00000ba0  6e 65 78 74 20 62 79 74  65 0d 04 4c 20 4a 53 52  |next byte..L JSR|
00000bb0  20 72 6f 74 61 74 65 20  5c 20 72 6f 74 61 74 65  | rotate \ rotate|
00000bc0  20 74 68 65 20 62 69 74  73 0d 04 56 2a 43 4d 50  | the bits..V*CMP|
00000bd0  20 62 75 66 66 65 72 2c  58 20 5c 20 63 6f 6d 70  | buffer,X \ comp|
00000be0  61 72 65 20 77 69 74 68  20 74 79 70 65 64 20 77  |are with typed w|
00000bf0  6f 72 64 0d 04 60 23 42  4e 45 20 73 65 61 72 63  |ord..`#BNE searc|
00000c00  68 20 5c 20 62 72 61 6e  63 68 20 69 66 20 6e 6f  |h \ branch if no|
00000c10  20 6d 61 74 63 68 0d 04  6a 28 42 45 51 20 63 6f  | match..j(BEQ co|
00000c20  6d 70 61 72 65 20 5c 20  63 6f 6d 70 61 72 65 20  |mpare \ compare |
00000c30  6e 65 78 74 20 63 68 61  72 61 63 74 65 72 0d 04  |next character..|
00000c40  74 0a 2e 73 61 79 69 74  0d 04 7e 28 4c 44 41 20  |t..sayit..~(LDA |
00000c50  23 26 39 46 20 5c 20 77  72 69 74 65 20 74 6f 20  |#&9F \ write to |
00000c60  73 70 65 65 63 68 20 70  72 6f 63 65 73 73 6f 72  |speech processor|
00000c70  0d 04 88 1c 4c 44 59 20  23 26 35 30 20 5c 20 73  |....LDY #&50 \ s|
00000c80  70 65 61 6b 20 63 6f 6d  6d 61 6e 64 0d 04 92 1f  |peak command....|
00000c90  4a 53 52 20 6f 73 62 79  74 65 20 5c 20 73 70 65  |JSR osbyte \ spe|
00000ca0  61 6b 20 74 68 65 20 77  6f 72 64 0d 04 9c 1c 4c  |ak the word....L|
00000cb0  44 41 20 23 97 28 22 26  22 29 20 5c 20 68 65 78  |DA #.("&") \ hex|
00000cc0  20 73 79 6d 62 6f 6c 0d  04 a6 0e 4a 53 52 20 6f  | symbol....JSR o|
00000cd0  73 77 72 63 68 0d 04 b0  13 4c 44 41 20 77 6f 72  |swrch....LDA wor|
00000ce0  6b 73 70 61 63 65 2b 31  0d 04 ba 27 4a 53 52 20  |kspace+1...'JSR |
00000cf0  70 72 69 6e 74 68 65 78  20 5c 20 70 72 69 6e 74  |printhex \ print|
00000d00  20 4d 53 42 20 6f 66 20  61 64 64 72 65 73 73 0d  | MSB of address.|
00000d10  04 c4 11 4c 44 41 20 77  6f 72 6b 73 70 61 63 65  |...LDA workspace|
00000d20  0d 04 ce 27 4a 53 52 20  70 72 69 6e 74 68 65 78  |...'JSR printhex|
00000d30  20 5c 20 70 72 69 6e 74  20 4c 53 42 20 6f 66 20  | \ print LSB of |
00000d40  61 64 64 72 65 73 73 0d  04 d8 0e 4a 53 52 20 6f  |address....JSR o|
00000d50  73 6e 65 77 6c 0d 04 e2  0b 2e 72 65 74 75 72 6e  |snewl.....return|
00000d60  0d 04 ec 19 52 54 53 20  5c 20 72 65 74 75 72 6e  |....RTS \ return|
00000d70  20 74 6f 20 42 41 53 49  43 0d 04 f6 0c 2e 61 64  | to BASIC.....ad|
00000d80  64 72 65 73 73 0d 05 00  1e 54 59 41 20 5c 20 4d  |dress....TYA \ M|
00000d90  53 42 20 69 73 20 69 6e  20 59 20 72 65 67 69 73  |SB is in Y regis|
00000da0  74 65 72 0d 05 0a 18 50  48 41 20 5c 20 70 75 73  |ter....PHA \ pus|
00000db0  68 20 4d 53 42 20 74 77  69 63 65 0d 05 14 07 50  |h MSB twice....P|
00000dc0  48 41 0d 05 1e 1e 54 58  41 20 5c 20 4c 53 42 20  |HA....TXA \ LSB |
00000dd0  69 73 20 69 6e 20 58 20  72 65 67 69 73 74 65 72  |is in X register|
00000de0  0d 05 28 20 80 20 23 26  46 20 5c 20 69 73 6f 6c  |..( . #&F \ isol|
00000df0  61 74 65 20 66 69 72 73  74 20 6e 79 62 62 6c 65  |ate first nybble|
00000e00  0d 05 32 2c 84 41 20 23  26 34 30 20 5c 20 84 20  |..2,.A #&40 \ . |
00000e10  69 74 20 77 69 74 68 20  4c 6f 61 64 20 41 64 64  |it with Load Add|
00000e20  72 65 73 73 20 63 6f 6d  6d 61 6e 64 0d 05 3c 30  |ress command..<0|
00000e30  4a 53 52 20 77 72 69 74  65 20 5c 20 73 65 6e 64  |JSR write \ send|
00000e40  20 63 6f 6d 6d 61 6e 64  20 74 6f 20 73 70 65 65  | command to spee|
00000e50  63 68 20 70 72 6f 63 65  73 73 6f 72 0d 05 46 17  |ch processor..F.|
00000e60  54 58 41 20 5c 20 73 65  63 6f 6e 64 20 6e 79 62  |TXA \ second nyb|
00000e70  62 6c 65 0d 05 50 0a 80  20 23 26 46 30 0d 05 5a  |ble..P.. #&F0..Z|
00000e80  09 4c 53 52 20 41 0d 05  64 09 4c 53 52 20 41 0d  |.LSR A..d.LSR A.|
00000e90  05 6e 09 4c 53 52 20 41  0d 05 78 09 4c 53 52 20  |.n.LSR A..x.LSR |
00000ea0  41 0d 05 82 0b 84 41 20  23 26 34 30 0d 05 8c 30  |A.....A #&40...0|
00000eb0  4a 53 52 20 77 72 69 74  65 20 5c 20 73 65 6e 64  |JSR write \ send|
00000ec0  20 63 6f 6d 6d 61 6e 64  20 74 6f 20 73 70 65 65  | command to spee|
00000ed0  63 68 20 70 72 6f 63 65  73 73 6f 72 0d 05 96 16  |ch processor....|
00000ee0  50 4c 41 20 5c 20 74 68  69 72 64 20 6e 79 62 62  |PLA \ third nybb|
00000ef0  6c 65 0d 05 a0 09 80 20  23 26 46 0d 05 aa 0b 84  |le..... #&F.....|
00000f00  41 20 23 26 34 30 0d 05  b4 0d 4a 53 52 20 77 72  |A #&40....JSR wr|
00000f10  69 74 65 0d 05 be 17 50  4c 41 20 5c 20 66 6f 75  |ite....PLA \ fou|
00000f20  72 74 68 20 6e 79 62 62  6c 65 0d 05 c8 0a 80 20  |rth nybble..... |
00000f30  23 26 46 30 0d 05 d2 09  4c 53 52 20 41 0d 05 dc  |#&F0....LSR A...|
00000f40  09 4c 53 52 20 41 0d 05  e6 09 4c 53 52 20 41 0d  |.LSR A....LSR A.|
00000f50  05 f0 09 4c 53 52 20 41  0d 05 fa 0b 84 41 20 23  |...LSR A.....A #|
00000f60  26 34 43 0d 06 04 30 4a  53 52 20 77 72 69 74 65  |&4C...0JSR write|
00000f70  20 5c 20 73 65 6e 64 20  63 6f 6d 6d 61 6e 64 20  | \ send command |
00000f80  74 6f 20 73 70 65 65 63  68 20 70 72 6f 63 65 73  |to speech proces|
00000f90  73 6f 72 0d 06 0e 23 4c  44 41 20 23 26 34 33 20  |sor...#LDA #&43 |
00000fa0  5c 20 6c 61 73 74 20 62  79 74 65 20 61 6c 77 61  |\ last byte alwa|
00000fb0  79 73 20 26 34 33 0d 06  18 0a 2e 77 72 69 74 65  |ys &43.....write|
00000fc0  0d 06 22 2a 54 41 59 20  5c 20 74 72 61 6e 73 66  |.."*TAY \ transf|
00000fd0  65 72 20 63 6f 6d 6d 61  6e 64 20 69 6e 74 6f 20  |er command into |
00000fe0  59 20 72 65 67 69 73 74  65 72 0d 06 2c 28 4c 44  |Y register..,(LD|
00000ff0  41 20 23 26 39 46 20 5c  20 77 72 69 74 65 20 74  |A #&9F \ write t|
00001000  6f 20 73 70 65 65 63 68  20 70 72 6f 63 65 73 73  |o speech process|
00001010  6f 72 0d 06 36 22 4a 4d  50 20 6f 73 62 79 74 65  |or..6"JMP osbyte|
00001020  20 5c 20 4f 73 62 79 74  65 20 61 6e 64 20 72 65  | \ Osbyte and re|
00001030  74 75 72 6e 0d 06 40 09  2e 72 65 61 64 0d 06 4a  |turn..@..read..J|
00001040  28 4c 44 41 20 23 26 39  46 20 5c 20 77 72 69 74  |(LDA #&9F \ writ|
00001050  65 20 74 6f 20 73 70 65  65 63 68 20 70 72 6f 63  |e to speech proc|
00001060  65 73 73 6f 72 0d 06 54  20 4c 44 59 20 23 26 31  |essor..T LDY #&1|
00001070  30 20 5c 20 72 65 61 64  20 62 79 74 65 20 63 6f  |0 \ read byte co|
00001080  6d 6d 61 6e 64 0d 06 5e  27 4a 53 52 20 6f 73 62  |mmand..^'JSR osb|
00001090  79 74 65 20 5c 20 73 65  6e 64 20 72 65 61 64 20  |yte \ send read |
000010a0  62 79 74 65 20 63 6f 6d  6d 61 6e 64 0d 06 68 0c  |byte command..h.|
000010b0  4c 44 41 20 23 26 39 45  0d 06 72 2a 4a 53 52 20  |LDA #&9E..r*JSR |
000010c0  6f 73 62 79 74 65 20 5c  20 72 65 61 64 20 6e 65  |osbyte \ read ne|
000010d0  78 74 20 62 79 74 65 20  66 72 6f 6d 20 50 48 52  |xt byte from PHR|
000010e0  4f 4d 0d 06 7c 1f 54 59  41 20 5c 20 72 65 73 75  |OM..|.TYA \ resu|
000010f0  6c 74 20 69 6e 20 61 63  63 75 6d 75 6c 61 74 6f  |lt in accumulato|
00001100  72 0d 06 86 07 52 54 53  0d 06 90 0b 2e 72 6f 74  |r....RTS.....rot|
00001110  61 74 65 0d 06 9a 07 50  48 41 0d 06 a4 21 52 4f  |ate....PHA...!RO|
00001120  52 20 41 20 5c 20 62 69  74 20 30 20 69 6e 74 6f  |R A \ bit 0 into|
00001130  20 63 61 72 72 79 20 66  6c 61 67 0d 06 ae 07 50  | carry flag....P|
00001140  4c 41 0d 06 b8 2b 52 4f  52 20 41 20 5c 20 72 6f  |LA...+ROR A \ ro|
00001150  74 61 74 65 20 74 68 65  20 62 79 74 65 20 72 65  |tate the byte re|
00001160  61 64 20 66 72 6f 6d 20  50 48 52 4f 4d 0d 06 c2  |ad from PHROM...|
00001170  07 52 54 53 0d 06 cc 0c  2e 72 65 76 65 72 73 65  |.RTS.....reverse|
00001180  0d 06 d6 27 53 54 41 20  74 65 6d 70 20 5c 20 74  |...'STA temp \ t|
00001190  65 6d 70 6f 72 61 72 79  20 73 74 6f 72 65 20 66  |emporary store f|
000011a0  6f 72 20 62 79 74 65 0d  06 e0 24 52 4f 4c 20 74  |or byte...$ROL t|
000011b0  65 6d 70 20 5c 20 62 69  74 20 37 20 69 6e 74 6f  |emp \ bit 7 into|
000011c0  20 63 61 72 72 79 20 66  6c 61 67 0d 06 ea 29 52  | carry flag...)R|
000011d0  4f 52 20 41 20 5c 20 63  61 72 72 79 20 74 6f 20  |OR A \ carry to |
000011e0  62 69 74 20 37 20 6f 66  20 61 63 63 75 6d 75 6c  |bit 7 of accumul|
000011f0  61 74 6f 72 0d 06 f4 24  52 4f 4c 20 74 65 6d 70  |ator...$ROL temp|
00001200  20 5c 20 62 69 74 20 36  20 69 6e 74 6f 20 63 61  | \ bit 6 into ca|
00001210  72 72 79 20 66 6c 61 67  0d 06 fe 26 52 4f 52 20  |rry flag...&ROR |
00001220  41 20 5c 20 62 69 74 20  37 20 74 6f 20 36 2c 20  |A \ bit 7 to 6, |
00001230  63 61 72 72 79 20 74 6f  20 62 69 74 20 37 0d 07  |carry to bit 7..|
00001240  08 1f 52 4f 4c 20 74 65  6d 70 20 5c 20 62 69 74  |..ROL temp \ bit|
00001250  20 35 20 69 6e 74 6f 20  63 61 72 72 79 0d 07 12  | 5 into carry...|
00001260  19 52 4f 52 20 41 20 5c  20 61 6e 64 20 73 6f 20  |.ROR A \ and so |
00001270  6f 6e 20 2e 2e 2e 0d 07  1c 0c 52 4f 4c 20 74 65  |on .......ROL te|
00001280  6d 70 0d 07 26 09 52 4f  52 20 41 0d 07 30 0c 52  |mp..&.ROR A..0.R|
00001290  4f 4c 20 74 65 6d 70 0d  07 3a 09 52 4f 52 20 41  |OL temp..:.ROR A|
000012a0  0d 07 44 0c 52 4f 4c 20  74 65 6d 70 0d 07 4e 09  |..D.ROL temp..N.|
000012b0  52 4f 52 20 41 0d 07 58  0c 52 4f 4c 20 74 65 6d  |ROR A..X.ROL tem|
000012c0  70 0d 07 62 09 52 4f 52  20 41 0d 07 6c 0c 52 4f  |p..b.ROR A..l.RO|
000012d0  4c 20 74 65 6d 70 0d 07  76 28 52 4f 52 20 41 20  |L temp..v(ROR A |
000012e0  5c 20 62 69 74 73 20 69  6e 20 61 63 63 75 6d 75  |\ bits in accumu|
000012f0  6c 61 74 6f 72 20 72 65  76 65 72 73 65 64 0d 07  |lator reversed..|
00001300  80 07 52 54 53 0d 07 8a  0d 2e 70 72 69 6e 74 68  |..RTS.....printh|
00001310  65 78 0d 07 94 07 50 48  41 0d 07 9e 09 4c 53 52  |ex....PHA....LSR|
00001320  20 41 0d 07 a8 09 4c 53  52 20 41 0d 07 b2 09 4c  | A....LSR A....L|
00001330  53 52 20 41 0d 07 bc 09  4c 53 52 20 41 0d 07 c6  |SR A....LSR A...|
00001340  27 4a 53 52 20 6e 79 62  62 6c 65 20 5c 20 70 72  |'JSR nybble \ pr|
00001350  69 6e 74 20 4d 53 20 6e  79 62 62 6c 65 20 69 6e  |int MS nybble in|
00001360  20 97 49 49 0d 07 d0 24  50 4c 41 20 5c 20 61 6e  | .II...$PLA \ an|
00001370  64 20 70 72 69 6e 74 20  4c 53 20 6e 79 62 62 6c  |d print LS nybbl|
00001380  65 20 69 6e 20 97 49 49  0d 07 da 0b 2e 6e 79 62  |e in .II.....nyb|
00001390  62 6c 65 0d 07 e4 09 80  20 23 26 46 0d 07 ee 07  |ble..... #&F....|
000013a0  53 45 44 0d 07 f8 07 43  4c 43 0d 08 02 0c 41 44  |SED....CLC....AD|
000013b0  43 20 23 26 39 30 0d 08  0c 0c 41 44 43 20 23 26  |C #&90....ADC #&|
000013c0  34 30 0d 08 16 07 43 4c  44 0d 08 20 0e 4a 4d 50  |40....CLD.. .JMP|
000013d0  20 6f 73 77 72 63 68 0d  08 2a 0a 2e 62 6c 6f 63  | oswrch..*..bloc|
000013e0  6b 0d 08 34 0f 45 51 55  57 20 62 75 66 66 65 72  |k..4.EQUW buffer|
000013f0  0d 08 3e 0b 45 51 55 42  20 26 46 0d 08 48 0f 45  |..>.EQUB &F..H.E|
00001400  51 55 42 20 97 28 22 20  22 29 0d 08 52 0f 45 51  |QUB .(" ")..R.EQ|
00001410  55 42 20 97 28 22 7e 22  29 0d 08 5c 05 5d 0d 08  |UB .("~")..\.]..|
00001420  66 05 ed 0d 08 70 0b d6  20 6d 63 6f 64 65 0d ff  |f....p.. mcode..|
00001430