�> KEYWORD
�7
,� mcode &1000 :�: space for machine code
()� buffer &400 :�: page grabber buffer
2$� markers &20 :�: packet markers
<)$buffer=�40," ") :�: clear the header
F$�mcode :�: assemble machine code
P!�"TV channel (1-4) = "answer$
Z$channel?0=�("&"+�answer$,1))+&1B
d'� channel?0 < &1C � channel?0 = &1C
n'� channel?0 > &1F � channel?0 = &1F
x,�"Search keyword (UPPER CASE) = "answer$
�answer$=�answer$,8)
�len=�(answer$)-1
�� pass=0 � len
�3searchtext?pass = (�(�answer$,pass+1,1)) � &80)
��
�searchtext?(len+1)=0
�wordlength?0=len
��12,23,1,0;0;0;0;
�� mcode
��30,23,1,1;0;0;0;
��
���mcode
�/packet=&70 :�: row number of current packet

4magazine=&71 :�: magazine number of current page

Lgrabflag=&72 :�: 0=searching, &40=loading, &80=found, &C0=loaded & found

(usermag=&73 :�: last magazine number

";userpage=&74 :�: last page number, low byte + high byte

,channel=&76 :�: TV channel

6&workspace=&77 :�: 2 byte workspace

@0destination=&79 :�: another 2 byte workspace

J(wordlength=&7B :�: length of keyword

T0tempy=&7C :�: temporary store for Y register

^Dsearchfor=&7D :�: temporary store for character in search string

h(searchtext=&80 :�: store for keyword

rirq2v=&206 :�: irq2 vector

|9ttxcontrol=&FC10 :�: TTX control register, write only

�6ttxstatus=&FC10 :�: TTX status register, read only

�1rowreg=&FC11 :�: TTX row register, write only

�5datareg=&FC12 :�: TTX data register, read & write

�=statclr=&FC13 :�: TTX clear status register, read & write

�oswrch=&FFEE

�osbyte=&FFF4

�� pass=0 � 2 � 2

�P%=mcode

�
[OPT pass

�(JSR clearmark \ set up for searching

�/LDX irq2v \ load secondary interrupt vector

�LDY irq2v+1

�2STX oldirq2v \ save secondary interrupt vector
STY oldirq2v+1
8LDX #interrupt � 256 \ install new interrupt routine
LDY #interrupt � 256
&2SEI \ disable interrupts when altering vectors
0
STX irq2v
:STY irq2v+1
DCLI \ re-enable interrupts
N.LDA channel \ load (channel number + #&1C)
XSTA ttxcontrol \ enable TTX
b
.mainloop
l.LDA grabflag \ test to see if page grabbed
v4CMP #&C0 \ &C0 = page grabbed and ready to print
�&BNE continue \ branch if not ready
�2JSR checkdouble \ look for double height lines
�*JSR transfer \ transfer data to screen
�)JSR clearmark \ start searching again
�
.continue
�LDX #&00 \ screen row
�LDY #&08 \ screen column
�JSR vdu31 \ � 31,8,0
�
.headloop
�LDA buffer,Y
�'JSR oswrch \ write header on screen
�INY
�CPY #&28 \ decimal 40
BCC headloop
BIT &FF \ poll escape flag
-BPL mainloop \ loop if escape not pressed
 LDA #&7E \ decimal 126
*#JSR osbyte \ acknowledge escape
4LDA #&00
> STA ttxcontrol \ disable TTX
H'LDX oldirq2v \ load original vector
RLDY oldirq2v+1
\2SEI \ disable interrupts when altering vectors
f'STX irq2v \ restore original vector
pSTY irq2v+1
zCLI \ re-enable interrupts
�RTS \ return to BASIC
�.interrupt
�%BIT ttxstatus \ poll TTX hardware
�*BMI ttxinter \ branch if TTX interrupt
�&JMP (oldirq2v) \ not TTX interrupt
�
.ttxinter
�1LDA &FC \ interrupt accumulator save register
�2PHA \ push interrupt accumulator save register
�TXA
�PHA \ push X
�TYA
�PHA \ push Y
�5LDA grabflag \ is a page waiting to be displayed?
!CMP #&C0 \ &C0 = page grabbed
:BEQ clearstatus \ clear status and RTI if page grabbed
CLD \ clear decimal flag
$
.startrow
.LDY #&00 \ start with row 0
8
.readttxt
B!STY rowreg \ try rows 0 to 15
L*LDA datareg \ load framing code (#&27)
V'BEQ emptyrow \ if zero try next row
`TYA
jPHA \ save row number
tJSR readpacket
~PLA
�TAY \ restore row number
�
.emptyrow
�INY \ increment row number
�CPY #&10 \ try rows 0 - 15
�BNE readttxt
�.clearstatus
�LDA #&00
�'LDY #&0F \ clear 16 rows in adaptor
�.clearloop
�STY rowreg
�STA datareg
�DEY
BPL clearloop

5STA statclr \ clear status flags before returning
PLA
TAY \ restore Y
(PLA
2TAX \ restore X
<PLA
F9STA &FC \ restore interrupt accumulator save register
PRTI \ return from interrupt
Z.readpacket
d&LDY datareg \ read magazine number
nLDA hamtable,Y \ de-ham it
x)BMI cleargrab \ stop loading if error
�'STA magazine \ save magazine number
�$LDY datareg \ read packet number
�LDA hamtable,Y \ de-ham it
�)BMI cleargrab \ stop loading if error
�#STA packet \ save packet number
�'LDA magazine \ load magazine number
�=CMP #&08 \ bit 3 of mag. number is bit 0 of packet number
�$ROL packet \ 5 bit packet number
�� #&07 \ use only bits 0-2
�(STA magazine \ 3 bit magazine number
�LDA packet
�*CMP #&18 \ ignore TSDP, Datacast, etc.
�,BCS exit \ ie. use Level 1 Teletext only
PHA \ push packet number
ASL A \ packet number * 2
TAY
".LDA bufftable,Y \ load buffer address, lsb
,&STA workspace \ store in zero page
60LDA bufftable+1,Y \ load buffer address, msb
@(STA workspace+1 \ store in zero page
JPLA \ pull packet number
TCMP #&00 \ is it a header?
^BNE notheader
h$TAX \ init index for hammed data
r.readheader
|$LDY datareg \ read data register
�LDA hamtable,Y \ de-ham it
�)BMI cleargrab \ stop loading if error
�'STA buffer,X \ store de-hammed data
�INX \ increment index
�CPX #&08 \ use X = 0-7
�1BCC readheader \ continue reading hammed data
�/LDA grabflag \ are we loading or searching?
�(BEQ checkstart \ branch if searching
�,LDA magazine \ we must be loading a page
�-CMP usermag \ is it the magazine we want?
�,BNE exit \ branch if not the one we want
�(LDA buffer \ low byte of page number
�>CMP userpage \ is this the same as the one we are loading?
-BNE endfound \ end of page when different
LDA buffer+1
@CMP userpage+1 \ is this the same as the one we are loading?
&*BEQ exit \ not end of page if the same
0
.endfound
:1LDA grabflag \ grabflag = either #&40 or #&80
D.�A #&40 \ grabflag = #&C0 if keyword found
N"STA grabflag \ update grabflag
X(BMI exit \ branch if grabflag = #&C0
b.cleargrab
l)JSR clearmark \ start searching again
v	.exit
�RTS
�.checkstart
�%LDA buffer+5 \ check for subtitle
�� #&08 \ check bit 3
�%BNE display \ don't load subtitle
�+LDA buffer \ low nybble of current page
�%CMP userpage \ are we loading it?
�$BNE loadit \ if not then load it
�.LDA buffer+1 \ high nybble of current page
�'CMP userpage+1 \ are we loading it?
�=BEQ display \ if loading display header, if not load page
�.loadit
� LDA #&40 \ page loading flag
!STA grabflag \ load this page
*LDA magazine \ current magazine number
$STA usermag \ load this magazine
 )LDA buffer \ current page, low nybble
*!STA userpage \ load this page
4,LDA buffer+1 \ current page, high nybble
>#STA userpage+1 \ load this page
H.display
R-\LSR buffer+6 \ check for suppress header
\4\BCS exit \ don't bother with suppressed headers
f+LDY #&08 \ header data starts at byte 8
p(BNE readmore \ go to read the header
z.notheader
�%LDA grabflag \ is a page loading?
�+BEQ return \ return if page not loading
�:LDA magazine \ is the magazine number the one we want?
�5CMP usermag \ compare with the one we are loading
�-BNE return \ return if different magazine
� LDY #&00 \ read bytes 0 - 39
�
.readmore
�$LDA datareg \ read data register
�#�A #&80 \ set bit 7 for display
�'STA (workspace),Y \ store in buffer
�INY \ increment index
�CPY #&28 \ decimal 40
�+BNE readmore \ more data in this packet
	+LDA packet \ load current packet number
	!BEQ return \ return if header
	.TAX \ A is greater than 0 and less than 24
	$/STA markers,X \ mark this as a valid packet
	.1BIT grabflag \ have we found the keyword yet?
	8%BMI return \ return if word found
	BJSR wordsearch
	L.return
	VRTS
	`.checkdouble
	j&LDX #&01 \ screen row numbers 1-23
	t.nextcolumn
	~LDA markers,X
	�BMI carryset
	�)LDY #&00 \ screen column numbers 0-40
	�8JSR setup \ set up workspace for indirect addressing
	�.singleloop
	�LDA (workspace),Y
	�-JSR conceal \ check for concealed display
	�*CMP #&8D \ TTX double height character
	�BEQ doubleheight
	�INY
	�CPY #&28 \ decimal 40
	�BCC singleloop
	�
.carryset
INX

CPX #&17 \ decimal 23
BCC nextcolumn
RTS
(.doubleheight
2LDY #&00
<TXA
FPHA \ store row number
PINX
ZTXA
dSTA markers,X
n ASL A \ (row number + 1) * 2
xTAX
�LDA bufftable,X
�STA destination
�INX
�LDA bufftable,X
�STA destination+1
�PLA
�TAX \ restore row number
�.doubleloop
�LDA (workspace),Y
�-JSR conceal \ check for concealed display
�STA (destination),Y
�INY
�CPY #&28 \ decimal 40
BCC doubleloop
INX
CPX #&17 \ decimal 23
"BCC carryset
,RTS
6.conceal
@,CMP #&98 \ TTX conceal display character
JBNE goback
T)LDA #�(" ") \ substitute with a space
^STA (workspace),Y
h.goback
rRTS
|
.setup
�TXA
�PHA \ store row number
�ASL A \ (row number) * 2
�TAX
�LDA bufftable,X
�STA workspace
�INX
�LDA bufftable,X
�STA workspace+1
�PLA
�TAX \ restore row number
�RTS
�
.transfer
LDA #&00
TAX
LDY #&02
&JSR vdu31 \ � 31,2,0
0LDA #�("P")
:+JSR oswrch \ start printing page number
DLDX #&0F \ decimal 15
N.numberloop
X;LDA buffer,X \ cheat by getting page number from header
bJSR oswrch
lINX
vCPX #&12
�3BCC numberloop \ print 3 page bytes from header
�LDX #&01 \ screen rows 1-23
�
.nextline
�LDY #&00 \ columns 0-39
�JSR vdu31 \ � 31,0,1-23
�)LDA markers,X \ look for valid packet
�.BPL markfound \ display valid packets only
�.LDA #blanks � 256 \ else display 40 spaces
�STA workspace
�LDA #blanks � 256
�STA workspace+1
�JMP writescreen
�.markfound

8JSR setup \ set up workspace for indirect addressing

.writescreen

-LDA (workspace),Y \ load data from buffer

  JSR oswrch \ write to screen

*INY

4CPY #&28 \ decimal 40

>BCC writescreen

HINX

RCPX #&18 \ decimal 24

\*BCC nextline \ last packet number = 23

fRTS

p
.vdu31

zLDA #&1F \ decimal 31

�JSR oswrch

�TYA

�JSR oswrch

�TXA

�JMP oswrch \ and return

�.wordsearch

�&LDX #&00 \ index for search string

�LDY #&00 \ index for packet

�%STY tempy \ temporary store for Y

�
.wordloop

�LDA searchtext,X

�
BEQ found

�%PHA \ save character from keyword
LDA (workspace),Y
CMP #&E1 \ lower case 'a'
(BCC uppercase \ branch if upper case
$&� #&DF \ force lower to upper case
..uppercase
8,STA searchfor \ store character from TTX
B(PLA \ restore character from keyword
LCMP searchfor
V3BNE notfound \ branch if keyword does not match
`+INX \ if matched look at next character
jINY
tCPY #&29 \ decimal 41
~BCC wordloop
�
.notfound
�%LDX #&00 \ reset index on keyword
�&INC tempy \ increment index on TTX
�
LDY tempy
�CPY #&29 \ decimal 41
�.BCC wordloop \ branch if more data to test
�RTS
�
.found
�!LDA #&80 \ flag keyword found
� STA grabflag \ keyword found
�RTS
�.clearmark
LDA #&80

LDX #&17 \ decimal 23

.loopmark
STA markers,X
(DEX
2BNE loopmark
<'STX grabflag \ grabflag = searching
F!LDA #&0F \ end of page marker
PSTA userpage
ZSTA userpage+1
dRTS
n
.oldirq2v
xEQUW &00
�
.hamtable
�EQUD &0101FF01
�EQUD &FF0100FF
�EQUD &FF0102FF
�EQUD &07FFFF0A
�EQUD &FF0100FF
�EQUD &00FF0000
�EQUD &0BFFFF06
�EQUD &FF0300FF
�EQUD &FF010CFF
�EQUD &07FFFF04
�EQUD &07FFFF06
�EQUD &070707FF
EQUD &05FFFF06
EQUD &FF0D00FF
EQUD &FF060606
"EQUD &07FFFF06
,EQUD &FF0102FF
6EQUD &09FFFF04
@EQUD &02FF0202
JEQUD &FF0302FF
TEQUD &05FFFF08
^EQUD &FF0300FF
hEQUD &FF0302FF
rEQUD &0303FF03
|EQUD &05FFFF04
�EQUD &FF040404
�EQUD &FF0F02FF
�EQUD &07FFFF04
�EQUD &050505FF
�EQUD &05FFFF04
�EQUD &05FFFF06
�EQUD &FF030EFF
�EQUD &FF010CFF
�EQUD &09FFFF0A
�EQUD &0BFFFF0A
�EQUD &FF0A0A0A
�EQUD &0BFFFF08
�EQUD &FF0D00FF
EQUD &0B0B0BFF
EQUD &0BFFFF0A
EQUD &0CFF0C0C
&EQUD &FF0D0CFF
0EQUD &FF0F0CFF
:EQUD &07FFFF0A
DEQUD &FF0D0CFF
NEQUD &0D0DFF0D
XEQUD &0BFFFF06
bEQUD &FF0D0EFF
lEQUD &09FFFF08
vEQUD &090909FF
�EQUD &FF0F02FF
�EQUD &09FFFF0A
�EQUD &FF080808
�EQUD &09FFFF08
�EQUD &0BFFFF08
�EQUD &FF030EFF
�EQUD &FF0F0CFF
�EQUD &09FFFF04
�EQUD &0F0FFF0F
�EQUD &FF0F0EFF
�EQUD &05FFFF08
�EQUD &FF0D0EFF
�EQUD &FF0F0EFF
EQUD &0EFF0E0E
.bufftable
EQUW buffer
 EQUW buffer+40
*EQUW buffer+(2*40)
4EQUW buffer+(3*40)
>EQUW buffer+(4*40)
HEQUW buffer+(5*40)
REQUW buffer+(6*40)
\EQUW buffer+(7*40)
fEQUW buffer+(8*40)
pEQUW buffer+(9*40)
zEQUW buffer+(10*40)
�EQUW buffer+(11*40)
�EQUW buffer+(12*40)
�EQUW buffer+(13*40)
�EQUW buffer+(14*40)
�EQUW buffer+(15*40)
�EQUW buffer+(16*40)
�EQUW buffer+(17*40)
�EQUW buffer+(18*40)
�EQUW buffer+(19*40)
�EQUW buffer+(20*40)
�EQUW buffer+(21*40)
�EQUW buffer+(22*40)
�EQUW buffer+(23*40)
EQUW buffer+(24*40)
.blanks
EQUS �40," ")
$]
.�
8�
�

00000000  0d 00 0a 0e f4 3e 20 4b  45 59 57 4f 52 44 0d 00  |.....> KEYWORD..|
00000010  14 06 eb 37 0d 00 1e 2c  de 20 6d 63 6f 64 65 20  |...7...,. mcode |
00000020  26 31 30 30 30 20 3a f4  3a 20 73 70 61 63 65 20  |&1000 :.: space |
00000030  66 6f 72 20 6d 61 63 68  69 6e 65 20 63 6f 64 65  |for machine code|
00000040  0d 00 28 29 de 20 62 75  66 66 65 72 20 26 34 30  |..(). buffer &40|
00000050  30 20 3a f4 3a 20 70 61  67 65 20 67 72 61 62 62  |0 :.: page grabb|
00000060  65 72 20 62 75 66 66 65  72 0d 00 32 24 de 20 6d  |er buffer..2$. m|
00000070  61 72 6b 65 72 73 20 26  32 30 20 3a f4 3a 20 70  |arkers &20 :.: p|
00000080  61 63 6b 65 74 20 6d 61  72 6b 65 72 73 0d 00 3c  |acket markers..<|
00000090  29 24 62 75 66 66 65 72  3d c4 34 30 2c 22 20 22  |)$buffer=.40," "|
000000a0  29 20 3a f4 3a 20 63 6c  65 61 72 20 74 68 65 20  |) :.: clear the |
000000b0  68 65 61 64 65 72 0d 00  46 24 f2 6d 63 6f 64 65  |header..F$.mcode|
000000c0  20 3a f4 3a 20 61 73 73  65 6d 62 6c 65 20 6d 61  | :.: assemble ma|
000000d0  63 68 69 6e 65 20 63 6f  64 65 0d 00 50 21 e8 22  |chine code..P!."|
000000e0  54 56 20 63 68 61 6e 6e  65 6c 20 28 31 2d 34 29  |TV channel (1-4)|
000000f0  20 3d 20 22 61 6e 73 77  65 72 24 0d 00 5a 24 63  | = "answer$..Z$c|
00000100  68 61 6e 6e 65 6c 3f 30  3d a0 28 22 26 22 2b c0  |hannel?0=.("&"+.|
00000110  61 6e 73 77 65 72 24 2c  31 29 29 2b 26 31 42 0d  |answer$,1))+&1B.|
00000120  00 64 27 e7 20 63 68 61  6e 6e 65 6c 3f 30 20 3c  |.d'. channel?0 <|
00000130  20 26 31 43 20 8c 20 63  68 61 6e 6e 65 6c 3f 30  | &1C . channel?0|
00000140  20 3d 20 26 31 43 0d 00  6e 27 e7 20 63 68 61 6e  | = &1C..n'. chan|
00000150  6e 65 6c 3f 30 20 3e 20  26 31 46 20 8c 20 63 68  |nel?0 > &1F . ch|
00000160  61 6e 6e 65 6c 3f 30 20  3d 20 26 31 46 0d 00 78  |annel?0 = &1F..x|
00000170  2c e8 22 53 65 61 72 63  68 20 6b 65 79 77 6f 72  |,."Search keywor|
00000180  64 20 28 55 50 50 45 52  20 43 41 53 45 29 20 3d  |d (UPPER CASE) =|
00000190  20 22 61 6e 73 77 65 72  24 0d 00 82 17 61 6e 73  | "answer$....ans|
000001a0  77 65 72 24 3d c0 61 6e  73 77 65 72 24 2c 38 29  |wer$=.answer$,8)|
000001b0  0d 00 8c 14 6c 65 6e 3d  a9 28 61 6e 73 77 65 72  |....len=.(answer|
000001c0  24 29 2d 31 0d 00 96 12  e3 20 70 61 73 73 3d 30  |$)-1..... pass=0|
000001d0  20 b8 20 6c 65 6e 0d 00  a0 33 73 65 61 72 63 68  | . len...3search|
000001e0  74 65 78 74 3f 70 61 73  73 20 3d 20 28 97 28 c1  |text?pass = (.(.|
000001f0  61 6e 73 77 65 72 24 2c  70 61 73 73 2b 31 2c 31  |answer$,pass+1,1|
00000200  29 29 20 84 20 26 38 30  29 0d 00 aa 05 ed 0d 00  |)) . &80).......|
00000210  b4 18 73 65 61 72 63 68  74 65 78 74 3f 28 6c 65  |..searchtext?(le|
00000220  6e 2b 31 29 3d 30 0d 00  be 14 77 6f 72 64 6c 65  |n+1)=0....wordle|
00000230  6e 67 74 68 3f 30 3d 6c  65 6e 0d 00 c8 15 ef 31  |ngth?0=len.....1|
00000240  32 2c 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |2,23,1,0;0;0;0;.|
00000250  00 d2 0b d6 20 6d 63 6f  64 65 0d 00 dc 15 ef 33  |.... mcode.....3|
00000260  30 2c 32 33 2c 31 2c 31  3b 30 3b 30 3b 30 3b 0d  |0,23,1,1;0;0;0;.|
00000270  00 e6 05 e0 0d 00 f0 0b  dd f2 6d 63 6f 64 65 0d  |..........mcode.|
00000280  00 fa 2f 70 61 63 6b 65  74 3d 26 37 30 20 3a f4  |../packet=&70 :.|
00000290  3a 20 72 6f 77 20 6e 75  6d 62 65 72 20 6f 66 20  |: row number of |
000002a0  63 75 72 72 65 6e 74 20  70 61 63 6b 65 74 0d 01  |current packet..|
000002b0  04 34 6d 61 67 61 7a 69  6e 65 3d 26 37 31 20 3a  |.4magazine=&71 :|
000002c0  f4 3a 20 6d 61 67 61 7a  69 6e 65 20 6e 75 6d 62  |.: magazine numb|
000002d0  65 72 20 6f 66 20 63 75  72 72 65 6e 74 20 70 61  |er of current pa|
000002e0  67 65 0d 01 0e 4c 67 72  61 62 66 6c 61 67 3d 26  |ge...Lgrabflag=&|
000002f0  37 32 20 3a f4 3a 20 30  3d 73 65 61 72 63 68 69  |72 :.: 0=searchi|
00000300  6e 67 2c 20 26 34 30 3d  6c 6f 61 64 69 6e 67 2c  |ng, &40=loading,|
00000310  20 26 38 30 3d 66 6f 75  6e 64 2c 20 26 43 30 3d  | &80=found, &C0=|
00000320  6c 6f 61 64 65 64 20 26  20 66 6f 75 6e 64 0d 01  |loaded & found..|
00000330  18 28 75 73 65 72 6d 61  67 3d 26 37 33 20 3a f4  |.(usermag=&73 :.|
00000340  3a 20 6c 61 73 74 20 6d  61 67 61 7a 69 6e 65 20  |: last magazine |
00000350  6e 75 6d 62 65 72 0d 01  22 3b 75 73 65 72 70 61  |number..";userpa|
00000360  67 65 3d 26 37 34 20 3a  f4 3a 20 6c 61 73 74 20  |ge=&74 :.: last |
00000370  70 61 67 65 20 6e 75 6d  62 65 72 2c 20 6c 6f 77  |page number, low|
00000380  20 62 79 74 65 20 2b 20  68 69 67 68 20 62 79 74  | byte + high byt|
00000390  65 0d 01 2c 1e 63 68 61  6e 6e 65 6c 3d 26 37 36  |e..,.channel=&76|
000003a0  20 3a f4 3a 20 54 56 20  63 68 61 6e 6e 65 6c 0d  | :.: TV channel.|
000003b0  01 36 26 77 6f 72 6b 73  70 61 63 65 3d 26 37 37  |.6&workspace=&77|
000003c0  20 3a f4 3a 20 32 20 62  79 74 65 20 77 6f 72 6b  | :.: 2 byte work|
000003d0  73 70 61 63 65 0d 01 40  30 64 65 73 74 69 6e 61  |space..@0destina|
000003e0  74 69 6f 6e 3d 26 37 39  20 3a f4 3a 20 61 6e 6f  |tion=&79 :.: ano|
000003f0  74 68 65 72 20 32 20 62  79 74 65 20 77 6f 72 6b  |ther 2 byte work|
00000400  73 70 61 63 65 0d 01 4a  28 77 6f 72 64 6c 65 6e  |space..J(wordlen|
00000410  67 74 68 3d 26 37 42 20  3a f4 3a 20 6c 65 6e 67  |gth=&7B :.: leng|
00000420  74 68 20 6f 66 20 6b 65  79 77 6f 72 64 0d 01 54  |th of keyword..T|
00000430  30 74 65 6d 70 79 3d 26  37 43 20 3a f4 3a 20 74  |0tempy=&7C :.: t|
00000440  65 6d 70 6f 72 61 72 79  20 73 74 6f 72 65 20 66  |emporary store f|
00000450  6f 72 20 59 20 72 65 67  69 73 74 65 72 0d 01 5e  |or Y register..^|
00000460  44 73 65 61 72 63 68 66  6f 72 3d 26 37 44 20 3a  |Dsearchfor=&7D :|
00000470  f4 3a 20 74 65 6d 70 6f  72 61 72 79 20 73 74 6f  |.: temporary sto|
00000480  72 65 20 66 6f 72 20 63  68 61 72 61 63 74 65 72  |re for character|
00000490  20 69 6e 20 73 65 61 72  63 68 20 73 74 72 69 6e  | in search strin|
000004a0  67 0d 01 68 28 73 65 61  72 63 68 74 65 78 74 3d  |g..h(searchtext=|
000004b0  26 38 30 20 3a f4 3a 20  73 74 6f 72 65 20 66 6f  |&80 :.: store fo|
000004c0  72 20 6b 65 79 77 6f 72  64 0d 01 72 1e 69 72 71  |r keyword..r.irq|
000004d0  32 76 3d 26 32 30 36 20  3a f4 3a 20 69 72 71 32  |2v=&206 :.: irq2|
000004e0  20 76 65 63 74 6f 72 0d  01 7c 39 74 74 78 63 6f  | vector..|9ttxco|
000004f0  6e 74 72 6f 6c 3d 26 46  43 31 30 20 3a f4 3a 20  |ntrol=&FC10 :.: |
00000500  54 54 58 20 63 6f 6e 74  72 6f 6c 20 72 65 67 69  |TTX control regi|
00000510  73 74 65 72 2c 20 77 72  69 74 65 20 6f 6e 6c 79  |ster, write only|
00000520  0d 01 86 36 74 74 78 73  74 61 74 75 73 3d 26 46  |...6ttxstatus=&F|
00000530  43 31 30 20 3a f4 3a 20  54 54 58 20 73 74 61 74  |C10 :.: TTX stat|
00000540  75 73 20 72 65 67 69 73  74 65 72 2c 20 72 65 61  |us register, rea|
00000550  64 20 6f 6e 6c 79 0d 01  90 31 72 6f 77 72 65 67  |d only...1rowreg|
00000560  3d 26 46 43 31 31 20 3a  f4 3a 20 54 54 58 20 72  |=&FC11 :.: TTX r|
00000570  6f 77 20 72 65 67 69 73  74 65 72 2c 20 77 72 69  |ow register, wri|
00000580  74 65 20 6f 6e 6c 79 0d  01 9a 35 64 61 74 61 72  |te only...5datar|
00000590  65 67 3d 26 46 43 31 32  20 3a f4 3a 20 54 54 58  |eg=&FC12 :.: TTX|
000005a0  20 64 61 74 61 20 72 65  67 69 73 74 65 72 2c 20  | data register, |
000005b0  72 65 61 64 20 26 20 77  72 69 74 65 0d 01 a4 3d  |read & write...=|
000005c0  73 74 61 74 63 6c 72 3d  26 46 43 31 33 20 3a f4  |statclr=&FC13 :.|
000005d0  3a 20 54 54 58 20 63 6c  65 61 72 20 73 74 61 74  |: TTX clear stat|
000005e0  75 73 20 72 65 67 69 73  74 65 72 2c 20 72 65 61  |us register, rea|
000005f0  64 20 26 20 77 72 69 74  65 0d 01 ae 10 6f 73 77  |d & write....osw|
00000600  72 63 68 3d 26 46 46 45  45 0d 01 b8 10 6f 73 62  |rch=&FFEE....osb|
00000610  79 74 65 3d 26 46 46 46  34 0d 01 c2 14 e3 20 70  |yte=&FFF4..... p|
00000620  61 73 73 3d 30 20 b8 20  32 20 88 20 32 0d 01 cc  |ass=0 . 2 . 2...|
00000630  0c 50 25 3d 6d 63 6f 64  65 0d 01 d6 0d 5b 4f 50  |.P%=mcode....[OP|
00000640  54 20 70 61 73 73 0d 01  e0 28 4a 53 52 20 63 6c  |T pass...(JSR cl|
00000650  65 61 72 6d 61 72 6b 20  5c 20 73 65 74 20 75 70  |earmark \ set up|
00000660  20 66 6f 72 20 73 65 61  72 63 68 69 6e 67 0d 01  | for searching..|
00000670  ea 2f 4c 44 58 20 69 72  71 32 76 20 5c 20 6c 6f  |./LDX irq2v \ lo|
00000680  61 64 20 73 65 63 6f 6e  64 61 72 79 20 69 6e 74  |ad secondary int|
00000690  65 72 72 75 70 74 20 76  65 63 74 6f 72 0d 01 f4  |errupt vector...|
000006a0  0f 4c 44 59 20 69 72 71  32 76 2b 31 0d 01 fe 32  |.LDY irq2v+1...2|
000006b0  53 54 58 20 6f 6c 64 69  72 71 32 76 20 5c 20 73  |STX oldirq2v \ s|
000006c0  61 76 65 20 73 65 63 6f  6e 64 61 72 79 20 69 6e  |ave secondary in|
000006d0  74 65 72 72 75 70 74 20  76 65 63 74 6f 72 0d 02  |terrupt vector..|
000006e0  08 12 53 54 59 20 6f 6c  64 69 72 71 32 76 2b 31  |..STY oldirq2v+1|
000006f0  0d 02 12 38 4c 44 58 20  23 69 6e 74 65 72 72 75  |...8LDX #interru|
00000700  70 74 20 83 20 32 35 36  20 5c 20 69 6e 73 74 61  |pt . 256 \ insta|
00000710  6c 6c 20 6e 65 77 20 69  6e 74 65 72 72 75 70 74  |ll new interrupt|
00000720  20 72 6f 75 74 69 6e 65  0d 02 1c 18 4c 44 59 20  | routine....LDY |
00000730  23 69 6e 74 65 72 72 75  70 74 20 81 20 32 35 36  |#interrupt . 256|
00000740  0d 02 26 32 53 45 49 20  5c 20 64 69 73 61 62 6c  |..&2SEI \ disabl|
00000750  65 20 69 6e 74 65 72 72  75 70 74 73 20 77 68 65  |e interrupts whe|
00000760  6e 20 61 6c 74 65 72 69  6e 67 20 76 65 63 74 6f  |n altering vecto|
00000770  72 73 0d 02 30 0d 53 54  58 20 69 72 71 32 76 0d  |rs..0.STX irq2v.|
00000780  02 3a 0f 53 54 59 20 69  72 71 32 76 2b 31 0d 02  |.:.STY irq2v+1..|
00000790  44 1e 43 4c 49 20 5c 20  72 65 2d 65 6e 61 62 6c  |D.CLI \ re-enabl|
000007a0  65 20 69 6e 74 65 72 72  75 70 74 73 0d 02 4e 2e  |e interrupts..N.|
000007b0  4c 44 41 20 63 68 61 6e  6e 65 6c 20 5c 20 6c 6f  |LDA channel \ lo|
000007c0  61 64 20 28 63 68 61 6e  6e 65 6c 20 6e 75 6d 62  |ad (channel numb|
000007d0  65 72 20 2b 20 23 26 31  43 29 0d 02 58 1f 53 54  |er + #&1C)..X.ST|
000007e0  41 20 74 74 78 63 6f 6e  74 72 6f 6c 20 5c 20 65  |A ttxcontrol \ e|
000007f0  6e 61 62 6c 65 20 54 54  58 0d 02 62 0d 2e 6d 61  |nable TTX..b..ma|
00000800  69 6e 6c 6f 6f 70 0d 02  6c 2e 4c 44 41 20 67 72  |inloop..l.LDA gr|
00000810  61 62 66 6c 61 67 20 5c  20 74 65 73 74 20 74 6f  |abflag \ test to|
00000820  20 73 65 65 20 69 66 20  70 61 67 65 20 67 72 61  | see if page gra|
00000830  62 62 65 64 0d 02 76 34  43 4d 50 20 23 26 43 30  |bbed..v4CMP #&C0|
00000840  20 5c 20 26 43 30 20 3d  20 70 61 67 65 20 67 72  | \ &C0 = page gr|
00000850  61 62 62 65 64 20 61 6e  64 20 72 65 61 64 79 20  |abbed and ready |
00000860  74 6f 20 70 72 69 6e 74  0d 02 80 26 42 4e 45 20  |to print...&BNE |
00000870  63 6f 6e 74 69 6e 75 65  20 5c 20 62 72 61 6e 63  |continue \ branc|
00000880  68 20 69 66 20 6e 6f 74  20 72 65 61 64 79 0d 02  |h if not ready..|
00000890  8a 32 4a 53 52 20 63 68  65 63 6b 64 6f 75 62 6c  |.2JSR checkdoubl|
000008a0  65 20 5c 20 6c 6f 6f 6b  20 66 6f 72 20 64 6f 75  |e \ look for dou|
000008b0  62 6c 65 20 68 65 69 67  68 74 20 6c 69 6e 65 73  |ble height lines|
000008c0  0d 02 94 2a 4a 53 52 20  74 72 61 6e 73 66 65 72  |...*JSR transfer|
000008d0  20 5c 20 74 72 61 6e 73  66 65 72 20 64 61 74 61  | \ transfer data|
000008e0  20 74 6f 20 73 63 72 65  65 6e 0d 02 9e 29 4a 53  | to screen...)JS|
000008f0  52 20 63 6c 65 61 72 6d  61 72 6b 20 5c 20 73 74  |R clearmark \ st|
00000900  61 72 74 20 73 65 61 72  63 68 69 6e 67 20 61 67  |art searching ag|
00000910  61 69 6e 0d 02 a8 0d 2e  63 6f 6e 74 69 6e 75 65  |ain.....continue|
00000920  0d 02 b2 19 4c 44 58 20  23 26 30 30 20 5c 20 73  |....LDX #&00 \ s|
00000930  63 72 65 65 6e 20 72 6f  77 0d 02 bc 1c 4c 44 59  |creen row....LDY|
00000940  20 23 26 30 38 20 5c 20  73 63 72 65 65 6e 20 63  | #&08 \ screen c|
00000950  6f 6c 75 6d 6e 0d 02 c6  18 4a 53 52 20 76 64 75  |olumn....JSR vdu|
00000960  33 31 20 5c 20 ef 20 33  31 2c 38 2c 30 0d 02 d0  |31 \ . 31,8,0...|
00000970  0d 2e 68 65 61 64 6c 6f  6f 70 0d 02 da 10 4c 44  |..headloop....LD|
00000980  41 20 62 75 66 66 65 72  2c 59 0d 02 e4 27 4a 53  |A buffer,Y...'JS|
00000990  52 20 6f 73 77 72 63 68  20 5c 20 77 72 69 74 65  |R oswrch \ write|
000009a0  20 68 65 61 64 65 72 20  6f 6e 20 73 63 72 65 65  | header on scree|
000009b0  6e 0d 02 ee 07 49 4e 59  0d 02 f8 19 43 50 59 20  |n....INY....CPY |
000009c0  23 26 32 38 20 5c 20 64  65 63 69 6d 61 6c 20 34  |#&28 \ decimal 4|
000009d0  30 0d 03 02 10 42 43 43  20 68 65 61 64 6c 6f 6f  |0....BCC headloo|
000009e0  70 0d 03 0c 1e 42 49 54  20 26 46 46 20 5c 20 70  |p....BIT &FF \ p|
000009f0  6f 6c 6c 20 65 73 63 61  70 65 20 66 6c 61 67 0d  |oll escape flag.|
00000a00  03 16 2d 42 50 4c 20 6d  61 69 6e 6c 6f 6f 70 20  |..-BPL mainloop |
00000a10  5c 20 6c 6f 6f 70 20 69  66 20 65 73 63 61 70 65  |\ loop if escape|
00000a20  20 6e 6f 74 20 70 72 65  73 73 65 64 0d 03 20 1a  | not pressed.. .|
00000a30  4c 44 41 20 23 26 37 45  20 5c 20 64 65 63 69 6d  |LDA #&7E \ decim|
00000a40  61 6c 20 31 32 36 0d 03  2a 23 4a 53 52 20 6f 73  |al 126..*#JSR os|
00000a50  62 79 74 65 20 5c 20 61  63 6b 6e 6f 77 6c 65 64  |byte \ acknowled|
00000a60  67 65 20 65 73 63 61 70  65 0d 03 34 0c 4c 44 41  |ge escape..4.LDA|
00000a70  20 23 26 30 30 0d 03 3e  20 53 54 41 20 74 74 78  | #&00..> STA ttx|
00000a80  63 6f 6e 74 72 6f 6c 20  5c 20 64 69 73 61 62 6c  |control \ disabl|
00000a90  65 20 54 54 58 0d 03 48  27 4c 44 58 20 6f 6c 64  |e TTX..H'LDX old|
00000aa0  69 72 71 32 76 20 5c 20  6c 6f 61 64 20 6f 72 69  |irq2v \ load ori|
00000ab0  67 69 6e 61 6c 20 76 65  63 74 6f 72 0d 03 52 12  |ginal vector..R.|
00000ac0  4c 44 59 20 6f 6c 64 69  72 71 32 76 2b 31 0d 03  |LDY oldirq2v+1..|
00000ad0  5c 32 53 45 49 20 5c 20  64 69 73 61 62 6c 65 20  |\2SEI \ disable |
00000ae0  69 6e 74 65 72 72 75 70  74 73 20 77 68 65 6e 20  |interrupts when |
00000af0  61 6c 74 65 72 69 6e 67  20 76 65 63 74 6f 72 73  |altering vectors|
00000b00  0d 03 66 27 53 54 58 20  69 72 71 32 76 20 5c 20  |..f'STX irq2v \ |
00000b10  72 65 73 74 6f 72 65 20  6f 72 69 67 69 6e 61 6c  |restore original|
00000b20  20 76 65 63 74 6f 72 0d  03 70 0f 53 54 59 20 69  | vector..p.STY i|
00000b30  72 71 32 76 2b 31 0d 03  7a 1e 43 4c 49 20 5c 20  |rq2v+1..z.CLI \ |
00000b40  72 65 2d 65 6e 61 62 6c  65 20 69 6e 74 65 72 72  |re-enable interr|
00000b50  75 70 74 73 0d 03 84 19  52 54 53 20 5c 20 72 65  |upts....RTS \ re|
00000b60  74 75 72 6e 20 74 6f 20  42 41 53 49 43 0d 03 8e  |turn to BASIC...|
00000b70  0e 2e 69 6e 74 65 72 72  75 70 74 0d 03 98 25 42  |..interrupt...%B|
00000b80  49 54 20 74 74 78 73 74  61 74 75 73 20 5c 20 70  |IT ttxstatus \ p|
00000b90  6f 6c 6c 20 54 54 58 20  68 61 72 64 77 61 72 65  |oll TTX hardware|
00000ba0  0d 03 a2 2a 42 4d 49 20  74 74 78 69 6e 74 65 72  |...*BMI ttxinter|
00000bb0  20 5c 20 62 72 61 6e 63  68 20 69 66 20 54 54 58  | \ branch if TTX|
00000bc0  20 69 6e 74 65 72 72 75  70 74 0d 03 ac 26 4a 4d  | interrupt...&JM|
00000bd0  50 20 28 6f 6c 64 69 72  71 32 76 29 20 5c 20 6e  |P (oldirq2v) \ n|
00000be0  6f 74 20 54 54 58 20 69  6e 74 65 72 72 75 70 74  |ot TTX interrupt|
00000bf0  0d 03 b6 0d 2e 74 74 78  69 6e 74 65 72 0d 03 c0  |.....ttxinter...|
00000c00  31 4c 44 41 20 26 46 43  20 5c 20 69 6e 74 65 72  |1LDA &FC \ inter|
00000c10  72 75 70 74 20 61 63 63  75 6d 75 6c 61 74 6f 72  |rupt accumulator|
00000c20  20 73 61 76 65 20 72 65  67 69 73 74 65 72 0d 03  | save register..|
00000c30  ca 32 50 48 41 20 5c 20  70 75 73 68 20 69 6e 74  |.2PHA \ push int|
00000c40  65 72 72 75 70 74 20 61  63 63 75 6d 75 6c 61 74  |errupt accumulat|
00000c50  6f 72 20 73 61 76 65 20  72 65 67 69 73 74 65 72  |or save register|
00000c60  0d 03 d4 07 54 58 41 0d  03 de 10 50 48 41 20 5c  |....TXA....PHA \|
00000c70  20 70 75 73 68 20 58 0d  03 e8 07 54 59 41 0d 03  | push X....TYA..|
00000c80  f2 10 50 48 41 20 5c 20  70 75 73 68 20 59 0d 03  |..PHA \ push Y..|
00000c90  fc 35 4c 44 41 20 67 72  61 62 66 6c 61 67 20 5c  |.5LDA grabflag \|
00000ca0  20 69 73 20 61 20 70 61  67 65 20 77 61 69 74 69  | is a page waiti|
00000cb0  6e 67 20 74 6f 20 62 65  20 64 69 73 70 6c 61 79  |ng to be display|
00000cc0  65 64 3f 0d 04 06 21 43  4d 50 20 23 26 43 30 20  |ed?...!CMP #&C0 |
00000cd0  5c 20 26 43 30 20 3d 20  70 61 67 65 20 67 72 61  |\ &C0 = page gra|
00000ce0  62 62 65 64 0d 04 10 3a  42 45 51 20 63 6c 65 61  |bbed...:BEQ clea|
00000cf0  72 73 74 61 74 75 73 20  5c 20 63 6c 65 61 72 20  |rstatus \ clear |
00000d00  73 74 61 74 75 73 20 61  6e 64 20 52 54 49 20 69  |status and RTI i|
00000d10  66 20 70 61 67 65 20 67  72 61 62 62 65 64 0d 04  |f page grabbed..|
00000d20  1a 1c 43 4c 44 20 5c 20  63 6c 65 61 72 20 64 65  |..CLD \ clear de|
00000d30  63 69 6d 61 6c 20 66 6c  61 67 0d 04 24 0d 2e 73  |cimal flag..$..s|
00000d40  74 61 72 74 72 6f 77 0d  04 2e 1f 4c 44 59 20 23  |tartrow....LDY #|
00000d50  26 30 30 20 5c 20 73 74  61 72 74 20 77 69 74 68  |&00 \ start with|
00000d60  20 72 6f 77 20 30 0d 04  38 0d 2e 72 65 61 64 74  | row 0..8..readt|
00000d70  74 78 74 0d 04 42 21 53  54 59 20 72 6f 77 72 65  |txt..B!STY rowre|
00000d80  67 20 5c 20 74 72 79 20  72 6f 77 73 20 30 20 74  |g \ try rows 0 t|
00000d90  6f 20 31 35 0d 04 4c 2a  4c 44 41 20 64 61 74 61  |o 15..L*LDA data|
00000da0  72 65 67 20 5c 20 6c 6f  61 64 20 66 72 61 6d 69  |reg \ load frami|
00000db0  6e 67 20 63 6f 64 65 20  28 23 26 32 37 29 0d 04  |ng code (#&27)..|
00000dc0  56 27 42 45 51 20 65 6d  70 74 79 72 6f 77 20 5c  |V'BEQ emptyrow \|
00000dd0  20 69 66 20 7a 65 72 6f  20 74 72 79 20 6e 65 78  | if zero try nex|
00000de0  74 20 72 6f 77 0d 04 60  07 54 59 41 0d 04 6a 19  |t row..`.TYA..j.|
00000df0  50 48 41 20 5c 20 73 61  76 65 20 72 6f 77 20 6e  |PHA \ save row n|
00000e00  75 6d 62 65 72 0d 04 74  12 4a 53 52 20 72 65 61  |umber..t.JSR rea|
00000e10  64 70 61 63 6b 65 74 0d  04 7e 07 50 4c 41 0d 04  |dpacket..~.PLA..|
00000e20  88 1c 54 41 59 20 5c 20  72 65 73 74 6f 72 65 20  |..TAY \ restore |
00000e30  72 6f 77 20 6e 75 6d 62  65 72 0d 04 92 0d 2e 65  |row number.....e|
00000e40  6d 70 74 79 72 6f 77 0d  04 9c 1e 49 4e 59 20 5c  |mptyrow....INY \|
00000e50  20 69 6e 63 72 65 6d 65  6e 74 20 72 6f 77 20 6e  | increment row n|
00000e60  75 6d 62 65 72 0d 04 a6  1e 43 50 59 20 23 26 31  |umber....CPY #&1|
00000e70  30 20 5c 20 74 72 79 20  72 6f 77 73 20 30 20 2d  |0 \ try rows 0 -|
00000e80  20 31 35 0d 04 b0 10 42  4e 45 20 72 65 61 64 74  | 15....BNE readt|
00000e90  74 78 74 0d 04 ba 10 2e  63 6c 65 61 72 73 74 61  |txt.....clearsta|
00000ea0  74 75 73 0d 04 c4 0c 4c  44 41 20 23 26 30 30 0d  |tus....LDA #&00.|
00000eb0  04 ce 27 4c 44 59 20 23  26 30 46 20 5c 20 63 6c  |..'LDY #&0F \ cl|
00000ec0  65 61 72 20 31 36 20 72  6f 77 73 20 69 6e 20 61  |ear 16 rows in a|
00000ed0  64 61 70 74 6f 72 0d 04  d8 0e 2e 63 6c 65 61 72  |daptor.....clear|
00000ee0  6c 6f 6f 70 0d 04 e2 0e  53 54 59 20 72 6f 77 72  |loop....STY rowr|
00000ef0  65 67 0d 04 ec 0f 53 54  41 20 64 61 74 61 72 65  |eg....STA datare|
00000f00  67 0d 04 f6 07 44 45 59  0d 05 00 11 42 50 4c 20  |g....DEY....BPL |
00000f10  63 6c 65 61 72 6c 6f 6f  70 0d 05 0a 35 53 54 41  |clearloop...5STA|
00000f20  20 73 74 61 74 63 6c 72  20 5c 20 63 6c 65 61 72  | statclr \ clear|
00000f30  20 73 74 61 74 75 73 20  66 6c 61 67 73 20 62 65  | status flags be|
00000f40  66 6f 72 65 20 72 65 74  75 72 6e 69 6e 67 0d 05  |fore returning..|
00000f50  14 07 50 4c 41 0d 05 1e  13 54 41 59 20 5c 20 72  |..PLA....TAY \ r|
00000f60  65 73 74 6f 72 65 20 59  0d 05 28 07 50 4c 41 0d  |estore Y..(.PLA.|
00000f70  05 32 13 54 41 58 20 5c  20 72 65 73 74 6f 72 65  |.2.TAX \ restore|
00000f80  20 58 0d 05 3c 07 50 4c  41 0d 05 46 39 53 54 41  | X..<.PLA..F9STA|
00000f90  20 26 46 43 20 5c 20 72  65 73 74 6f 72 65 20 69  | &FC \ restore i|
00000fa0  6e 74 65 72 72 75 70 74  20 61 63 63 75 6d 75 6c  |nterrupt accumul|
00000fb0  61 74 6f 72 20 73 61 76  65 20 72 65 67 69 73 74  |ator save regist|
00000fc0  65 72 0d 05 50 1f 52 54  49 20 5c 20 72 65 74 75  |er..P.RTI \ retu|
00000fd0  72 6e 20 66 72 6f 6d 20  69 6e 74 65 72 72 75 70  |rn from interrup|
00000fe0  74 0d 05 5a 0f 2e 72 65  61 64 70 61 63 6b 65 74  |t..Z..readpacket|
00000ff0  0d 05 64 26 4c 44 59 20  64 61 74 61 72 65 67 20  |..d&LDY datareg |
00001000  5c 20 72 65 61 64 20 6d  61 67 61 7a 69 6e 65 20  |\ read magazine |
00001010  6e 75 6d 62 65 72 0d 05  6e 1e 4c 44 41 20 68 61  |number..n.LDA ha|
00001020  6d 74 61 62 6c 65 2c 59  20 5c 20 64 65 2d 68 61  |mtable,Y \ de-ha|
00001030  6d 20 69 74 0d 05 78 29  42 4d 49 20 63 6c 65 61  |m it..x)BMI clea|
00001040  72 67 72 61 62 20 5c 20  73 74 6f 70 20 6c 6f 61  |rgrab \ stop loa|
00001050  64 69 6e 67 20 69 66 20  65 72 72 6f 72 0d 05 82  |ding if error...|
00001060  27 53 54 41 20 6d 61 67  61 7a 69 6e 65 20 5c 20  |'STA magazine \ |
00001070  73 61 76 65 20 6d 61 67  61 7a 69 6e 65 20 6e 75  |save magazine nu|
00001080  6d 62 65 72 0d 05 8c 24  4c 44 59 20 64 61 74 61  |mber...$LDY data|
00001090  72 65 67 20 5c 20 72 65  61 64 20 70 61 63 6b 65  |reg \ read packe|
000010a0  74 20 6e 75 6d 62 65 72  0d 05 96 1e 4c 44 41 20  |t number....LDA |
000010b0  68 61 6d 74 61 62 6c 65  2c 59 20 5c 20 64 65 2d  |hamtable,Y \ de-|
000010c0  68 61 6d 20 69 74 0d 05  a0 29 42 4d 49 20 63 6c  |ham it...)BMI cl|
000010d0  65 61 72 67 72 61 62 20  5c 20 73 74 6f 70 20 6c  |eargrab \ stop l|
000010e0  6f 61 64 69 6e 67 20 69  66 20 65 72 72 6f 72 0d  |oading if error.|
000010f0  05 aa 23 53 54 41 20 70  61 63 6b 65 74 20 5c 20  |..#STA packet \ |
00001100  73 61 76 65 20 70 61 63  6b 65 74 20 6e 75 6d 62  |save packet numb|
00001110  65 72 0d 05 b4 27 4c 44  41 20 6d 61 67 61 7a 69  |er...'LDA magazi|
00001120  6e 65 20 5c 20 6c 6f 61  64 20 6d 61 67 61 7a 69  |ne \ load magazi|
00001130  6e 65 20 6e 75 6d 62 65  72 0d 05 be 3d 43 4d 50  |ne number...=CMP|
00001140  20 23 26 30 38 20 5c 20  62 69 74 20 33 20 6f 66  | #&08 \ bit 3 of|
00001150  20 6d 61 67 2e 20 6e 75  6d 62 65 72 20 69 73 20  | mag. number is |
00001160  62 69 74 20 30 20 6f 66  20 70 61 63 6b 65 74 20  |bit 0 of packet |
00001170  6e 75 6d 62 65 72 0d 05  c8 24 52 4f 4c 20 70 61  |number...$ROL pa|
00001180  63 6b 65 74 20 5c 20 35  20 62 69 74 20 70 61 63  |cket \ 5 bit pac|
00001190  6b 65 74 20 6e 75 6d 62  65 72 0d 05 d2 1e 80 20  |ket number..... |
000011a0  23 26 30 37 20 5c 20 75  73 65 20 6f 6e 6c 79 20  |#&07 \ use only |
000011b0  62 69 74 73 20 30 2d 32  0d 05 dc 28 53 54 41 20  |bits 0-2...(STA |
000011c0  6d 61 67 61 7a 69 6e 65  20 5c 20 33 20 62 69 74  |magazine \ 3 bit|
000011d0  20 6d 61 67 61 7a 69 6e  65 20 6e 75 6d 62 65 72  | magazine number|
000011e0  0d 05 e6 0e 4c 44 41 20  70 61 63 6b 65 74 0d 05  |....LDA packet..|
000011f0  f0 2a 43 4d 50 20 23 26  31 38 20 5c 20 69 67 6e  |.*CMP #&18 \ ign|
00001200  6f 72 65 20 54 53 44 50  2c 20 44 61 74 61 63 61  |ore TSDP, Dataca|
00001210  73 74 2c 20 65 74 63 2e  0d 05 fa 2c 42 43 53 20  |st, etc....,BCS |
00001220  65 78 69 74 20 5c 20 69  65 2e 20 75 73 65 20 4c  |exit \ ie. use L|
00001230  65 76 65 6c 20 31 20 54  65 6c 65 74 65 78 74 20  |evel 1 Teletext |
00001240  6f 6e 6c 79 0d 06 04 1c  50 48 41 20 5c 20 70 75  |only....PHA \ pu|
00001250  73 68 20 70 61 63 6b 65  74 20 6e 75 6d 62 65 72  |sh packet number|
00001260  0d 06 0e 1d 41 53 4c 20  41 20 5c 20 70 61 63 6b  |....ASL A \ pack|
00001270  65 74 20 6e 75 6d 62 65  72 20 2a 20 32 0d 06 18  |et number * 2...|
00001280  07 54 41 59 0d 06 22 2e  4c 44 41 20 62 75 66 66  |.TAY..".LDA buff|
00001290  74 61 62 6c 65 2c 59 20  5c 20 6c 6f 61 64 20 62  |table,Y \ load b|
000012a0  75 66 66 65 72 20 61 64  64 72 65 73 73 2c 20 6c  |uffer address, l|
000012b0  73 62 0d 06 2c 26 53 54  41 20 77 6f 72 6b 73 70  |sb..,&STA worksp|
000012c0  61 63 65 20 5c 20 73 74  6f 72 65 20 69 6e 20 7a  |ace \ store in z|
000012d0  65 72 6f 20 70 61 67 65  0d 06 36 30 4c 44 41 20  |ero page..60LDA |
000012e0  62 75 66 66 74 61 62 6c  65 2b 31 2c 59 20 5c 20  |bufftable+1,Y \ |
000012f0  6c 6f 61 64 20 62 75 66  66 65 72 20 61 64 64 72  |load buffer addr|
00001300  65 73 73 2c 20 6d 73 62  0d 06 40 28 53 54 41 20  |ess, msb..@(STA |
00001310  77 6f 72 6b 73 70 61 63  65 2b 31 20 5c 20 73 74  |workspace+1 \ st|
00001320  6f 72 65 20 69 6e 20 7a  65 72 6f 20 70 61 67 65  |ore in zero page|
00001330  0d 06 4a 1c 50 4c 41 20  5c 20 70 75 6c 6c 20 70  |..J.PLA \ pull p|
00001340  61 63 6b 65 74 20 6e 75  6d 62 65 72 0d 06 54 1e  |acket number..T.|
00001350  43 4d 50 20 23 26 30 30  20 5c 20 69 73 20 69 74  |CMP #&00 \ is it|
00001360  20 61 20 68 65 61 64 65  72 3f 0d 06 5e 11 42 4e  | a header?..^.BN|
00001370  45 20 6e 6f 74 68 65 61  64 65 72 0d 06 68 24 54  |E notheader..h$T|
00001380  41 58 20 5c 20 69 6e 69  74 20 69 6e 64 65 78 20  |AX \ init index |
00001390  66 6f 72 20 68 61 6d 6d  65 64 20 64 61 74 61 0d  |for hammed data.|
000013a0  06 72 0f 2e 72 65 61 64  68 65 61 64 65 72 0d 06  |.r..readheader..|
000013b0  7c 24 4c 44 59 20 64 61  74 61 72 65 67 20 5c 20  ||$LDY datareg \ |
000013c0  72 65 61 64 20 64 61 74  61 20 72 65 67 69 73 74  |read data regist|
000013d0  65 72 0d 06 86 1e 4c 44  41 20 68 61 6d 74 61 62  |er....LDA hamtab|
000013e0  6c 65 2c 59 20 5c 20 64  65 2d 68 61 6d 20 69 74  |le,Y \ de-ham it|
000013f0  0d 06 90 29 42 4d 49 20  63 6c 65 61 72 67 72 61  |...)BMI cleargra|
00001400  62 20 5c 20 73 74 6f 70  20 6c 6f 61 64 69 6e 67  |b \ stop loading|
00001410  20 69 66 20 65 72 72 6f  72 0d 06 9a 27 53 54 41  | if error...'STA|
00001420  20 62 75 66 66 65 72 2c  58 20 5c 20 73 74 6f 72  | buffer,X \ stor|
00001430  65 20 64 65 2d 68 61 6d  6d 65 64 20 64 61 74 61  |e de-hammed data|
00001440  0d 06 a4 19 49 4e 58 20  5c 20 69 6e 63 72 65 6d  |....INX \ increm|
00001450  65 6e 74 20 69 6e 64 65  78 0d 06 ae 1a 43 50 58  |ent index....CPX|
00001460  20 23 26 30 38 20 5c 20  75 73 65 20 58 20 3d 20  | #&08 \ use X = |
00001470  30 2d 37 0d 06 b8 31 42  43 43 20 72 65 61 64 68  |0-7...1BCC readh|
00001480  65 61 64 65 72 20 5c 20  63 6f 6e 74 69 6e 75 65  |eader \ continue|
00001490  20 72 65 61 64 69 6e 67  20 68 61 6d 6d 65 64 20  | reading hammed |
000014a0  64 61 74 61 0d 06 c2 2f  4c 44 41 20 67 72 61 62  |data.../LDA grab|
000014b0  66 6c 61 67 20 5c 20 61  72 65 20 77 65 20 6c 6f  |flag \ are we lo|
000014c0  61 64 69 6e 67 20 6f 72  20 73 65 61 72 63 68 69  |ading or searchi|
000014d0  6e 67 3f 0d 06 cc 28 42  45 51 20 63 68 65 63 6b  |ng?...(BEQ check|
000014e0  73 74 61 72 74 20 5c 20  62 72 61 6e 63 68 20 69  |start \ branch i|
000014f0  66 20 73 65 61 72 63 68  69 6e 67 0d 06 d6 2c 4c  |f searching...,L|
00001500  44 41 20 6d 61 67 61 7a  69 6e 65 20 5c 20 77 65  |DA magazine \ we|
00001510  20 6d 75 73 74 20 62 65  20 6c 6f 61 64 69 6e 67  | must be loading|
00001520  20 61 20 70 61 67 65 0d  06 e0 2d 43 4d 50 20 75  | a page...-CMP u|
00001530  73 65 72 6d 61 67 20 5c  20 69 73 20 69 74 20 74  |sermag \ is it t|
00001540  68 65 20 6d 61 67 61 7a  69 6e 65 20 77 65 20 77  |he magazine we w|
00001550  61 6e 74 3f 0d 06 ea 2c  42 4e 45 20 65 78 69 74  |ant?...,BNE exit|
00001560  20 5c 20 62 72 61 6e 63  68 20 69 66 20 6e 6f 74  | \ branch if not|
00001570  20 74 68 65 20 6f 6e 65  20 77 65 20 77 61 6e 74  | the one we want|
00001580  0d 06 f4 28 4c 44 41 20  62 75 66 66 65 72 20 5c  |...(LDA buffer \|
00001590  20 6c 6f 77 20 62 79 74  65 20 6f 66 20 70 61 67  | low byte of pag|
000015a0  65 20 6e 75 6d 62 65 72  0d 06 fe 3e 43 4d 50 20  |e number...>CMP |
000015b0  75 73 65 72 70 61 67 65  20 5c 20 69 73 20 74 68  |userpage \ is th|
000015c0  69 73 20 74 68 65 20 73  61 6d 65 20 61 73 20 74  |is the same as t|
000015d0  68 65 20 6f 6e 65 20 77  65 20 61 72 65 20 6c 6f  |he one we are lo|
000015e0  61 64 69 6e 67 3f 0d 07  08 2d 42 4e 45 20 65 6e  |ading?...-BNE en|
000015f0  64 66 6f 75 6e 64 20 5c  20 65 6e 64 20 6f 66 20  |dfound \ end of |
00001600  70 61 67 65 20 77 68 65  6e 20 64 69 66 66 65 72  |page when differ|
00001610  65 6e 74 0d 07 12 10 4c  44 41 20 62 75 66 66 65  |ent....LDA buffe|
00001620  72 2b 31 0d 07 1c 40 43  4d 50 20 75 73 65 72 70  |r+1...@CMP userp|
00001630  61 67 65 2b 31 20 5c 20  69 73 20 74 68 69 73 20  |age+1 \ is this |
00001640  74 68 65 20 73 61 6d 65  20 61 73 20 74 68 65 20  |the same as the |
00001650  6f 6e 65 20 77 65 20 61  72 65 20 6c 6f 61 64 69  |one we are loadi|
00001660  6e 67 3f 0d 07 26 2a 42  45 51 20 65 78 69 74 20  |ng?..&*BEQ exit |
00001670  5c 20 6e 6f 74 20 65 6e  64 20 6f 66 20 70 61 67  |\ not end of pag|
00001680  65 20 69 66 20 74 68 65  20 73 61 6d 65 0d 07 30  |e if the same..0|
00001690  0d 2e 65 6e 64 66 6f 75  6e 64 0d 07 3a 31 4c 44  |..endfound..:1LD|
000016a0  41 20 67 72 61 62 66 6c  61 67 20 5c 20 67 72 61  |A grabflag \ gra|
000016b0  62 66 6c 61 67 20 3d 20  65 69 74 68 65 72 20 23  |bflag = either #|
000016c0  26 34 30 20 6f 72 20 23  26 38 30 0d 07 44 2e 84  |&40 or #&80..D..|
000016d0  41 20 23 26 34 30 20 5c  20 67 72 61 62 66 6c 61  |A #&40 \ grabfla|
000016e0  67 20 3d 20 23 26 43 30  20 69 66 20 6b 65 79 77  |g = #&C0 if keyw|
000016f0  6f 72 64 20 66 6f 75 6e  64 0d 07 4e 22 53 54 41  |ord found..N"STA|
00001700  20 67 72 61 62 66 6c 61  67 20 5c 20 75 70 64 61  | grabflag \ upda|
00001710  74 65 20 67 72 61 62 66  6c 61 67 0d 07 58 28 42  |te grabflag..X(B|
00001720  4d 49 20 65 78 69 74 20  5c 20 62 72 61 6e 63 68  |MI exit \ branch|
00001730  20 69 66 20 67 72 61 62  66 6c 61 67 20 3d 20 23  | if grabflag = #|
00001740  26 43 30 0d 07 62 0e 2e  63 6c 65 61 72 67 72 61  |&C0..b..cleargra|
00001750  62 0d 07 6c 29 4a 53 52  20 63 6c 65 61 72 6d 61  |b..l)JSR clearma|
00001760  72 6b 20 5c 20 73 74 61  72 74 20 73 65 61 72 63  |rk \ start searc|
00001770  68 69 6e 67 20 61 67 61  69 6e 0d 07 76 09 2e 65  |hing again..v..e|
00001780  78 69 74 0d 07 80 07 52  54 53 0d 07 8a 0f 2e 63  |xit....RTS.....c|
00001790  68 65 63 6b 73 74 61 72  74 0d 07 94 25 4c 44 41  |heckstart...%LDA|
000017a0  20 62 75 66 66 65 72 2b  35 20 5c 20 63 68 65 63  | buffer+5 \ chec|
000017b0  6b 20 66 6f 72 20 73 75  62 74 69 74 6c 65 0d 07  |k for subtitle..|
000017c0  9e 18 80 20 23 26 30 38  20 5c 20 63 68 65 63 6b  |... #&08 \ check|
000017d0  20 62 69 74 20 33 0d 07  a8 25 42 4e 45 20 64 69  | bit 3...%BNE di|
000017e0  73 70 6c 61 79 20 5c 20  64 6f 6e 27 74 20 6c 6f  |splay \ don't lo|
000017f0  61 64 20 73 75 62 74 69  74 6c 65 0d 07 b2 2b 4c  |ad subtitle...+L|
00001800  44 41 20 62 75 66 66 65  72 20 5c 20 6c 6f 77 20  |DA buffer \ low |
00001810  6e 79 62 62 6c 65 20 6f  66 20 63 75 72 72 65 6e  |nybble of curren|
00001820  74 20 70 61 67 65 0d 07  bc 25 43 4d 50 20 75 73  |t page...%CMP us|
00001830  65 72 70 61 67 65 20 5c  20 61 72 65 20 77 65 20  |erpage \ are we |
00001840  6c 6f 61 64 69 6e 67 20  69 74 3f 0d 07 c6 24 42  |loading it?...$B|
00001850  4e 45 20 6c 6f 61 64 69  74 20 5c 20 69 66 20 6e  |NE loadit \ if n|
00001860  6f 74 20 74 68 65 6e 20  6c 6f 61 64 20 69 74 0d  |ot then load it.|
00001870  07 d0 2e 4c 44 41 20 62  75 66 66 65 72 2b 31 20  |...LDA buffer+1 |
00001880  5c 20 68 69 67 68 20 6e  79 62 62 6c 65 20 6f 66  |\ high nybble of|
00001890  20 63 75 72 72 65 6e 74  20 70 61 67 65 0d 07 da  | current page...|
000018a0  27 43 4d 50 20 75 73 65  72 70 61 67 65 2b 31 20  |'CMP userpage+1 |
000018b0  5c 20 61 72 65 20 77 65  20 6c 6f 61 64 69 6e 67  |\ are we loading|
000018c0  20 69 74 3f 0d 07 e4 3d  42 45 51 20 64 69 73 70  | it?...=BEQ disp|
000018d0  6c 61 79 20 5c 20 69 66  20 6c 6f 61 64 69 6e 67  |lay \ if loading|
000018e0  20 64 69 73 70 6c 61 79  20 68 65 61 64 65 72 2c  | display header,|
000018f0  20 69 66 20 6e 6f 74 20  6c 6f 61 64 20 70 61 67  | if not load pag|
00001900  65 0d 07 ee 0b 2e 6c 6f  61 64 69 74 0d 07 f8 20  |e.....loadit... |
00001910  4c 44 41 20 23 26 34 30  20 5c 20 70 61 67 65 20  |LDA #&40 \ page |
00001920  6c 6f 61 64 69 6e 67 20  66 6c 61 67 0d 08 02 21  |loading flag...!|
00001930  53 54 41 20 67 72 61 62  66 6c 61 67 20 5c 20 6c  |STA grabflag \ l|
00001940  6f 61 64 20 74 68 69 73  20 70 61 67 65 0d 08 0c  |oad this page...|
00001950  2a 4c 44 41 20 6d 61 67  61 7a 69 6e 65 20 5c 20  |*LDA magazine \ |
00001960  63 75 72 72 65 6e 74 20  6d 61 67 61 7a 69 6e 65  |current magazine|
00001970  20 6e 75 6d 62 65 72 0d  08 16 24 53 54 41 20 75  | number...$STA u|
00001980  73 65 72 6d 61 67 20 5c  20 6c 6f 61 64 20 74 68  |sermag \ load th|
00001990  69 73 20 6d 61 67 61 7a  69 6e 65 0d 08 20 29 4c  |is magazine.. )L|
000019a0  44 41 20 62 75 66 66 65  72 20 5c 20 63 75 72 72  |DA buffer \ curr|
000019b0  65 6e 74 20 70 61 67 65  2c 20 6c 6f 77 20 6e 79  |ent page, low ny|
000019c0  62 62 6c 65 0d 08 2a 21  53 54 41 20 75 73 65 72  |bble..*!STA user|
000019d0  70 61 67 65 20 5c 20 6c  6f 61 64 20 74 68 69 73  |page \ load this|
000019e0  20 70 61 67 65 0d 08 34  2c 4c 44 41 20 62 75 66  | page..4,LDA buf|
000019f0  66 65 72 2b 31 20 5c 20  63 75 72 72 65 6e 74 20  |fer+1 \ current |
00001a00  70 61 67 65 2c 20 68 69  67 68 20 6e 79 62 62 6c  |page, high nybbl|
00001a10  65 0d 08 3e 23 53 54 41  20 75 73 65 72 70 61 67  |e..>#STA userpag|
00001a20  65 2b 31 20 5c 20 6c 6f  61 64 20 74 68 69 73 20  |e+1 \ load this |
00001a30  70 61 67 65 0d 08 48 0c  2e 64 69 73 70 6c 61 79  |page..H..display|
00001a40  0d 08 52 2d 5c 4c 53 52  20 62 75 66 66 65 72 2b  |..R-\LSR buffer+|
00001a50  36 20 5c 20 63 68 65 63  6b 20 66 6f 72 20 73 75  |6 \ check for su|
00001a60  70 70 72 65 73 73 20 68  65 61 64 65 72 0d 08 5c  |ppress header..\|
00001a70  34 5c 42 43 53 20 65 78  69 74 20 5c 20 64 6f 6e  |4\BCS exit \ don|
00001a80  27 74 20 62 6f 74 68 65  72 20 77 69 74 68 20 73  |'t bother with s|
00001a90  75 70 70 72 65 73 73 65  64 20 68 65 61 64 65 72  |uppressed header|
00001aa0  73 0d 08 66 2b 4c 44 59  20 23 26 30 38 20 5c 20  |s..f+LDY #&08 \ |
00001ab0  68 65 61 64 65 72 20 64  61 74 61 20 73 74 61 72  |header data star|
00001ac0  74 73 20 61 74 20 62 79  74 65 20 38 0d 08 70 28  |ts at byte 8..p(|
00001ad0  42 4e 45 20 72 65 61 64  6d 6f 72 65 20 5c 20 67  |BNE readmore \ g|
00001ae0  6f 20 74 6f 20 72 65 61  64 20 74 68 65 20 68 65  |o to read the he|
00001af0  61 64 65 72 0d 08 7a 0e  2e 6e 6f 74 68 65 61 64  |ader..z..nothead|
00001b00  65 72 0d 08 84 25 4c 44  41 20 67 72 61 62 66 6c  |er...%LDA grabfl|
00001b10  61 67 20 5c 20 69 73 20  61 20 70 61 67 65 20 6c  |ag \ is a page l|
00001b20  6f 61 64 69 6e 67 3f 0d  08 8e 2b 42 45 51 20 72  |oading?...+BEQ r|
00001b30  65 74 75 72 6e 20 5c 20  72 65 74 75 72 6e 20 69  |eturn \ return i|
00001b40  66 20 70 61 67 65 20 6e  6f 74 20 6c 6f 61 64 69  |f page not loadi|
00001b50  6e 67 0d 08 98 3a 4c 44  41 20 6d 61 67 61 7a 69  |ng...:LDA magazi|
00001b60  6e 65 20 5c 20 69 73 20  74 68 65 20 6d 61 67 61  |ne \ is the maga|
00001b70  7a 69 6e 65 20 6e 75 6d  62 65 72 20 74 68 65 20  |zine number the |
00001b80  6f 6e 65 20 77 65 20 77  61 6e 74 3f 0d 08 a2 35  |one we want?...5|
00001b90  43 4d 50 20 75 73 65 72  6d 61 67 20 5c 20 63 6f  |CMP usermag \ co|
00001ba0  6d 70 61 72 65 20 77 69  74 68 20 74 68 65 20 6f  |mpare with the o|
00001bb0  6e 65 20 77 65 20 61 72  65 20 6c 6f 61 64 69 6e  |ne we are loadin|
00001bc0  67 0d 08 ac 2d 42 4e 45  20 72 65 74 75 72 6e 20  |g...-BNE return |
00001bd0  5c 20 72 65 74 75 72 6e  20 69 66 20 64 69 66 66  |\ return if diff|
00001be0  65 72 65 6e 74 20 6d 61  67 61 7a 69 6e 65 0d 08  |erent magazine..|
00001bf0  b6 20 4c 44 59 20 23 26  30 30 20 5c 20 72 65 61  |. LDY #&00 \ rea|
00001c00  64 20 62 79 74 65 73 20  30 20 2d 20 33 39 0d 08  |d bytes 0 - 39..|
00001c10  c0 0d 2e 72 65 61 64 6d  6f 72 65 0d 08 ca 24 4c  |...readmore...$L|
00001c20  44 41 20 64 61 74 61 72  65 67 20 5c 20 72 65 61  |DA datareg \ rea|
00001c30  64 20 64 61 74 61 20 72  65 67 69 73 74 65 72 0d  |d data register.|
00001c40  08 d4 23 84 41 20 23 26  38 30 20 5c 20 73 65 74  |..#.A #&80 \ set|
00001c50  20 62 69 74 20 37 20 66  6f 72 20 64 69 73 70 6c  | bit 7 for displ|
00001c60  61 79 0d 08 de 27 53 54  41 20 28 77 6f 72 6b 73  |ay...'STA (works|
00001c70  70 61 63 65 29 2c 59 20  5c 20 73 74 6f 72 65 20  |pace),Y \ store |
00001c80  69 6e 20 62 75 66 66 65  72 0d 08 e8 19 49 4e 59  |in buffer....INY|
00001c90  20 5c 20 69 6e 63 72 65  6d 65 6e 74 20 69 6e 64  | \ increment ind|
00001ca0  65 78 0d 08 f2 19 43 50  59 20 23 26 32 38 20 5c  |ex....CPY #&28 \|
00001cb0  20 64 65 63 69 6d 61 6c  20 34 30 0d 08 fc 2b 42  | decimal 40...+B|
00001cc0  4e 45 20 72 65 61 64 6d  6f 72 65 20 5c 20 6d 6f  |NE readmore \ mo|
00001cd0  72 65 20 64 61 74 61 20  69 6e 20 74 68 69 73 20  |re data in this |
00001ce0  70 61 63 6b 65 74 0d 09  06 2b 4c 44 41 20 70 61  |packet...+LDA pa|
00001cf0  63 6b 65 74 20 5c 20 6c  6f 61 64 20 63 75 72 72  |cket \ load curr|
00001d00  65 6e 74 20 70 61 63 6b  65 74 20 6e 75 6d 62 65  |ent packet numbe|
00001d10  72 0d 09 10 21 42 45 51  20 72 65 74 75 72 6e 20  |r...!BEQ return |
00001d20  5c 20 72 65 74 75 72 6e  20 69 66 20 68 65 61 64  |\ return if head|
00001d30  65 72 0d 09 1a 2e 54 41  58 20 5c 20 41 20 69 73  |er....TAX \ A is|
00001d40  20 67 72 65 61 74 65 72  20 74 68 61 6e 20 30 20  | greater than 0 |
00001d50  61 6e 64 20 6c 65 73 73  20 74 68 61 6e 20 32 34  |and less than 24|
00001d60  0d 09 24 2f 53 54 41 20  6d 61 72 6b 65 72 73 2c  |..$/STA markers,|
00001d70  58 20 5c 20 6d 61 72 6b  20 74 68 69 73 20 61 73  |X \ mark this as|
00001d80  20 61 20 76 61 6c 69 64  20 70 61 63 6b 65 74 0d  | a valid packet.|
00001d90  09 2e 31 42 49 54 20 67  72 61 62 66 6c 61 67 20  |..1BIT grabflag |
00001da0  5c 20 68 61 76 65 20 77  65 20 66 6f 75 6e 64 20  |\ have we found |
00001db0  74 68 65 20 6b 65 79 77  6f 72 64 20 79 65 74 3f  |the keyword yet?|
00001dc0  0d 09 38 25 42 4d 49 20  72 65 74 75 72 6e 20 5c  |..8%BMI return \|
00001dd0  20 72 65 74 75 72 6e 20  69 66 20 77 6f 72 64 20  | return if word |
00001de0  66 6f 75 6e 64 0d 09 42  12 4a 53 52 20 77 6f 72  |found..B.JSR wor|
00001df0  64 73 65 61 72 63 68 0d  09 4c 0b 2e 72 65 74 75  |dsearch..L..retu|
00001e00  72 6e 0d 09 56 07 52 54  53 0d 09 60 10 2e 63 68  |rn..V.RTS..`..ch|
00001e10  65 63 6b 64 6f 75 62 6c  65 0d 09 6a 26 4c 44 58  |eckdouble..j&LDX|
00001e20  20 23 26 30 31 20 5c 20  73 63 72 65 65 6e 20 72  | #&01 \ screen r|
00001e30  6f 77 20 6e 75 6d 62 65  72 73 20 31 2d 32 33 0d  |ow numbers 1-23.|
00001e40  09 74 0f 2e 6e 65 78 74  63 6f 6c 75 6d 6e 0d 09  |.t..nextcolumn..|
00001e50  7e 11 4c 44 41 20 6d 61  72 6b 65 72 73 2c 58 0d  |~.LDA markers,X.|
00001e60  09 88 10 42 4d 49 20 63  61 72 72 79 73 65 74 0d  |...BMI carryset.|
00001e70  09 92 29 4c 44 59 20 23  26 30 30 20 5c 20 73 63  |..)LDY #&00 \ sc|
00001e80  72 65 65 6e 20 63 6f 6c  75 6d 6e 20 6e 75 6d 62  |reen column numb|
00001e90  65 72 73 20 30 2d 34 30  0d 09 9c 38 4a 53 52 20  |ers 0-40...8JSR |
00001ea0  73 65 74 75 70 20 5c 20  73 65 74 20 75 70 20 77  |setup \ set up w|
00001eb0  6f 72 6b 73 70 61 63 65  20 66 6f 72 20 69 6e 64  |orkspace for ind|
00001ec0  69 72 65 63 74 20 61 64  64 72 65 73 73 69 6e 67  |irect addressing|
00001ed0  0d 09 a6 0f 2e 73 69 6e  67 6c 65 6c 6f 6f 70 0d  |.....singleloop.|
00001ee0  09 b0 15 4c 44 41 20 28  77 6f 72 6b 73 70 61 63  |...LDA (workspac|
00001ef0  65 29 2c 59 0d 09 ba 2d  4a 53 52 20 63 6f 6e 63  |e),Y...-JSR conc|
00001f00  65 61 6c 20 5c 20 63 68  65 63 6b 20 66 6f 72 20  |eal \ check for |
00001f10  63 6f 6e 63 65 61 6c 65  64 20 64 69 73 70 6c 61  |concealed displa|
00001f20  79 0d 09 c4 2a 43 4d 50  20 23 26 38 44 20 5c 20  |y...*CMP #&8D \ |
00001f30  54 54 58 20 64 6f 75 62  6c 65 20 68 65 69 67 68  |TTX double heigh|
00001f40  74 20 63 68 61 72 61 63  74 65 72 0d 09 ce 14 42  |t character....B|
00001f50  45 51 20 64 6f 75 62 6c  65 68 65 69 67 68 74 0d  |EQ doubleheight.|
00001f60  09 d8 07 49 4e 59 0d 09  e2 19 43 50 59 20 23 26  |...INY....CPY #&|
00001f70  32 38 20 5c 20 64 65 63  69 6d 61 6c 20 34 30 0d  |28 \ decimal 40.|
00001f80  09 ec 12 42 43 43 20 73  69 6e 67 6c 65 6c 6f 6f  |...BCC singleloo|
00001f90  70 0d 09 f6 0d 2e 63 61  72 72 79 73 65 74 0d 0a  |p.....carryset..|
00001fa0  00 07 49 4e 58 0d 0a 0a  19 43 50 58 20 23 26 31  |..INX....CPX #&1|
00001fb0  37 20 5c 20 64 65 63 69  6d 61 6c 20 32 33 0d 0a  |7 \ decimal 23..|
00001fc0  14 12 42 43 43 20 6e 65  78 74 63 6f 6c 75 6d 6e  |..BCC nextcolumn|
00001fd0  0d 0a 1e 07 52 54 53 0d  0a 28 11 2e 64 6f 75 62  |....RTS..(..doub|
00001fe0  6c 65 68 65 69 67 68 74  0d 0a 32 0c 4c 44 59 20  |leheight..2.LDY |
00001ff0  23 26 30 30 0d 0a 3c 07  54 58 41 0d 0a 46 1a 50  |#&00..<.TXA..F.P|
00002000  48 41 20 5c 20 73 74 6f  72 65 20 72 6f 77 20 6e  |HA \ store row n|
00002010  75 6d 62 65 72 0d 0a 50  07 49 4e 58 0d 0a 5a 07  |umber..P.INX..Z.|
00002020  54 58 41 0d 0a 64 11 53  54 41 20 6d 61 72 6b 65  |TXA..d.STA marke|
00002030  72 73 2c 58 0d 0a 6e 20  41 53 4c 20 41 20 5c 20  |rs,X..n ASL A \ |
00002040  28 72 6f 77 20 6e 75 6d  62 65 72 20 2b 20 31 29  |(row number + 1)|
00002050  20 2a 20 32 0d 0a 78 07  54 41 58 0d 0a 82 13 4c  | * 2..x.TAX....L|
00002060  44 41 20 62 75 66 66 74  61 62 6c 65 2c 58 0d 0a  |DA bufftable,X..|
00002070  8c 13 53 54 41 20 64 65  73 74 69 6e 61 74 69 6f  |..STA destinatio|
00002080  6e 0d 0a 96 07 49 4e 58  0d 0a a0 13 4c 44 41 20  |n....INX....LDA |
00002090  62 75 66 66 74 61 62 6c  65 2c 58 0d 0a aa 15 53  |bufftable,X....S|
000020a0  54 41 20 64 65 73 74 69  6e 61 74 69 6f 6e 2b 31  |TA destination+1|
000020b0  0d 0a b4 07 50 4c 41 0d  0a be 1c 54 41 58 20 5c  |....PLA....TAX \|
000020c0  20 72 65 73 74 6f 72 65  20 72 6f 77 20 6e 75 6d  | restore row num|
000020d0  62 65 72 0d 0a c8 0f 2e  64 6f 75 62 6c 65 6c 6f  |ber.....doublelo|
000020e0  6f 70 0d 0a d2 15 4c 44  41 20 28 77 6f 72 6b 73  |op....LDA (works|
000020f0  70 61 63 65 29 2c 59 0d  0a dc 2d 4a 53 52 20 63  |pace),Y...-JSR c|
00002100  6f 6e 63 65 61 6c 20 5c  20 63 68 65 63 6b 20 66  |onceal \ check f|
00002110  6f 72 20 63 6f 6e 63 65  61 6c 65 64 20 64 69 73  |or concealed dis|
00002120  70 6c 61 79 0d 0a e6 17  53 54 41 20 28 64 65 73  |play....STA (des|
00002130  74 69 6e 61 74 69 6f 6e  29 2c 59 0d 0a f0 07 49  |tination),Y....I|
00002140  4e 59 0d 0a fa 19 43 50  59 20 23 26 32 38 20 5c  |NY....CPY #&28 \|
00002150  20 64 65 63 69 6d 61 6c  20 34 30 0d 0b 04 12 42  | decimal 40....B|
00002160  43 43 20 64 6f 75 62 6c  65 6c 6f 6f 70 0d 0b 0e  |CC doubleloop...|
00002170  07 49 4e 58 0d 0b 18 19  43 50 58 20 23 26 31 37  |.INX....CPX #&17|
00002180  20 5c 20 64 65 63 69 6d  61 6c 20 32 33 0d 0b 22  | \ decimal 23.."|
00002190  10 42 43 43 20 63 61 72  72 79 73 65 74 0d 0b 2c  |.BCC carryset..,|
000021a0  07 52 54 53 0d 0b 36 0c  2e 63 6f 6e 63 65 61 6c  |.RTS..6..conceal|
000021b0  0d 0b 40 2c 43 4d 50 20  23 26 39 38 20 5c 20 54  |..@,CMP #&98 \ T|
000021c0  54 58 20 63 6f 6e 63 65  61 6c 20 64 69 73 70 6c  |TX conceal displ|
000021d0  61 79 20 63 68 61 72 61  63 74 65 72 0d 0b 4a 0e  |ay character..J.|
000021e0  42 4e 45 20 67 6f 62 61  63 6b 0d 0b 54 29 4c 44  |BNE goback..T)LD|
000021f0  41 20 23 97 28 22 20 22  29 20 5c 20 73 75 62 73  |A #.(" ") \ subs|
00002200  74 69 74 75 74 65 20 77  69 74 68 20 61 20 73 70  |titute with a sp|
00002210  61 63 65 0d 0b 5e 15 53  54 41 20 28 77 6f 72 6b  |ace..^.STA (work|
00002220  73 70 61 63 65 29 2c 59  0d 0b 68 0b 2e 67 6f 62  |space),Y..h..gob|
00002230  61 63 6b 0d 0b 72 07 52  54 53 0d 0b 7c 0a 2e 73  |ack..r.RTS..|..s|
00002240  65 74 75 70 0d 0b 86 07  54 58 41 0d 0b 90 1a 50  |etup....TXA....P|
00002250  48 41 20 5c 20 73 74 6f  72 65 20 72 6f 77 20 6e  |HA \ store row n|
00002260  75 6d 62 65 72 0d 0b 9a  1c 41 53 4c 20 41 20 5c  |umber....ASL A \|
00002270  20 28 72 6f 77 20 6e 75  6d 62 65 72 29 20 2a 20  | (row number) * |
00002280  32 0d 0b a4 07 54 41 58  0d 0b ae 13 4c 44 41 20  |2....TAX....LDA |
00002290  62 75 66 66 74 61 62 6c  65 2c 58 0d 0b b8 11 53  |bufftable,X....S|
000022a0  54 41 20 77 6f 72 6b 73  70 61 63 65 0d 0b c2 07  |TA workspace....|
000022b0  49 4e 58 0d 0b cc 13 4c  44 41 20 62 75 66 66 74  |INX....LDA bufft|
000022c0  61 62 6c 65 2c 58 0d 0b  d6 13 53 54 41 20 77 6f  |able,X....STA wo|
000022d0  72 6b 73 70 61 63 65 2b  31 0d 0b e0 07 50 4c 41  |rkspace+1....PLA|
000022e0  0d 0b ea 1c 54 41 58 20  5c 20 72 65 73 74 6f 72  |....TAX \ restor|
000022f0  65 20 72 6f 77 20 6e 75  6d 62 65 72 0d 0b f4 07  |e row number....|
00002300  52 54 53 0d 0b fe 0d 2e  74 72 61 6e 73 66 65 72  |RTS.....transfer|
00002310  0d 0c 08 0c 4c 44 41 20  23 26 30 30 0d 0c 12 07  |....LDA #&00....|
00002320  54 41 58 0d 0c 1c 0c 4c  44 59 20 23 26 30 32 0d  |TAX....LDY #&02.|
00002330  0c 26 18 4a 53 52 20 76  64 75 33 31 20 5c 20 ef  |.&.JSR vdu31 \ .|
00002340  20 33 31 2c 32 2c 30 0d  0c 30 0f 4c 44 41 20 23  | 31,2,0..0.LDA #|
00002350  97 28 22 50 22 29 0d 0c  3a 2b 4a 53 52 20 6f 73  |.("P")..:+JSR os|
00002360  77 72 63 68 20 5c 20 73  74 61 72 74 20 70 72 69  |wrch \ start pri|
00002370  6e 74 69 6e 67 20 70 61  67 65 20 6e 75 6d 62 65  |nting page numbe|
00002380  72 0d 0c 44 19 4c 44 58  20 23 26 30 46 20 5c 20  |r..D.LDX #&0F \ |
00002390  64 65 63 69 6d 61 6c 20  31 35 0d 0c 4e 0f 2e 6e  |decimal 15..N..n|
000023a0  75 6d 62 65 72 6c 6f 6f  70 0d 0c 58 3b 4c 44 41  |umberloop..X;LDA|
000023b0  20 62 75 66 66 65 72 2c  58 20 5c 20 63 68 65 61  | buffer,X \ chea|
000023c0  74 20 62 79 20 67 65 74  74 69 6e 67 20 70 61 67  |t by getting pag|
000023d0  65 20 6e 75 6d 62 65 72  20 66 72 6f 6d 20 68 65  |e number from he|
000023e0  61 64 65 72 0d 0c 62 0e  4a 53 52 20 6f 73 77 72  |ader..b.JSR oswr|
000023f0  63 68 0d 0c 6c 07 49 4e  58 0d 0c 76 0c 43 50 58  |ch..l.INX..v.CPX|
00002400  20 23 26 31 32 0d 0c 80  33 42 43 43 20 6e 75 6d  | #&12...3BCC num|
00002410  62 65 72 6c 6f 6f 70 20  5c 20 70 72 69 6e 74 20  |berloop \ print |
00002420  33 20 70 61 67 65 20 62  79 74 65 73 20 66 72 6f  |3 page bytes fro|
00002430  6d 20 68 65 61 64 65 72  0d 0c 8a 1f 4c 44 58 20  |m header....LDX |
00002440  23 26 30 31 20 5c 20 73  63 72 65 65 6e 20 72 6f  |#&01 \ screen ro|
00002450  77 73 20 31 2d 32 33 0d  0c 94 0d 2e 6e 65 78 74  |ws 1-23.....next|
00002460  6c 69 6e 65 0d 0c 9e 1b  4c 44 59 20 23 26 30 30  |line....LDY #&00|
00002470  20 5c 20 63 6f 6c 75 6d  6e 73 20 30 2d 33 39 0d  | \ columns 0-39.|
00002480  0c a8 1b 4a 53 52 20 76  64 75 33 31 20 5c 20 ef  |...JSR vdu31 \ .|
00002490  20 33 31 2c 30 2c 31 2d  32 33 0d 0c b2 29 4c 44  | 31,0,1-23...)LD|
000024a0  41 20 6d 61 72 6b 65 72  73 2c 58 20 5c 20 6c 6f  |A markers,X \ lo|
000024b0  6f 6b 20 66 6f 72 20 76  61 6c 69 64 20 70 61 63  |ok for valid pac|
000024c0  6b 65 74 0d 0c bc 2e 42  50 4c 20 6d 61 72 6b 66  |ket....BPL markf|
000024d0  6f 75 6e 64 20 5c 20 64  69 73 70 6c 61 79 20 76  |ound \ display v|
000024e0  61 6c 69 64 20 70 61 63  6b 65 74 73 20 6f 6e 6c  |alid packets onl|
000024f0  79 0d 0c c6 2e 4c 44 41  20 23 62 6c 61 6e 6b 73  |y....LDA #blanks|
00002500  20 83 20 32 35 36 20 5c  20 65 6c 73 65 20 64 69  | . 256 \ else di|
00002510  73 70 6c 61 79 20 34 30  20 73 70 61 63 65 73 0d  |splay 40 spaces.|
00002520  0c d0 11 53 54 41 20 77  6f 72 6b 73 70 61 63 65  |...STA workspace|
00002530  0d 0c da 15 4c 44 41 20  23 62 6c 61 6e 6b 73 20  |....LDA #blanks |
00002540  81 20 32 35 36 0d 0c e4  13 53 54 41 20 77 6f 72  |. 256....STA wor|
00002550  6b 73 70 61 63 65 2b 31  0d 0c ee 13 4a 4d 50 20  |kspace+1....JMP |
00002560  77 72 69 74 65 73 63 72  65 65 6e 0d 0c f8 0e 2e  |writescreen.....|
00002570  6d 61 72 6b 66 6f 75 6e  64 0d 0d 02 38 4a 53 52  |markfound...8JSR|
00002580  20 73 65 74 75 70 20 5c  20 73 65 74 20 75 70 20  | setup \ set up |
00002590  77 6f 72 6b 73 70 61 63  65 20 66 6f 72 20 69 6e  |workspace for in|
000025a0  64 69 72 65 63 74 20 61  64 64 72 65 73 73 69 6e  |direct addressin|
000025b0  67 0d 0d 0c 10 2e 77 72  69 74 65 73 63 72 65 65  |g.....writescree|
000025c0  6e 0d 0d 16 2d 4c 44 41  20 28 77 6f 72 6b 73 70  |n...-LDA (worksp|
000025d0  61 63 65 29 2c 59 20 5c  20 6c 6f 61 64 20 64 61  |ace),Y \ load da|
000025e0  74 61 20 66 72 6f 6d 20  62 75 66 66 65 72 0d 0d  |ta from buffer..|
000025f0  20 20 4a 53 52 20 6f 73  77 72 63 68 20 5c 20 77  |  JSR oswrch \ w|
00002600  72 69 74 65 20 74 6f 20  73 63 72 65 65 6e 0d 0d  |rite to screen..|
00002610  2a 07 49 4e 59 0d 0d 34  19 43 50 59 20 23 26 32  |*.INY..4.CPY #&2|
00002620  38 20 5c 20 64 65 63 69  6d 61 6c 20 34 30 0d 0d  |8 \ decimal 40..|
00002630  3e 13 42 43 43 20 77 72  69 74 65 73 63 72 65 65  |>.BCC writescree|
00002640  6e 0d 0d 48 07 49 4e 58  0d 0d 52 19 43 50 58 20  |n..H.INX..R.CPX |
00002650  23 26 31 38 20 5c 20 64  65 63 69 6d 61 6c 20 32  |#&18 \ decimal 2|
00002660  34 0d 0d 5c 2a 42 43 43  20 6e 65 78 74 6c 69 6e  |4..\*BCC nextlin|
00002670  65 20 5c 20 6c 61 73 74  20 70 61 63 6b 65 74 20  |e \ last packet |
00002680  6e 75 6d 62 65 72 20 3d  20 32 33 0d 0d 66 07 52  |number = 23..f.R|
00002690  54 53 0d 0d 70 0a 2e 76  64 75 33 31 0d 0d 7a 19  |TS..p..vdu31..z.|
000026a0  4c 44 41 20 23 26 31 46  20 5c 20 64 65 63 69 6d  |LDA #&1F \ decim|
000026b0  61 6c 20 33 31 0d 0d 84  0e 4a 53 52 20 6f 73 77  |al 31....JSR osw|
000026c0  72 63 68 0d 0d 8e 07 54  59 41 0d 0d 98 0e 4a 53  |rch....TYA....JS|
000026d0  52 20 6f 73 77 72 63 68  0d 0d a2 07 54 58 41 0d  |R oswrch....TXA.|
000026e0  0d ac 1b 4a 4d 50 20 6f  73 77 72 63 68 20 5c 20  |...JMP oswrch \ |
000026f0  61 6e 64 20 72 65 74 75  72 6e 0d 0d b6 0f 2e 77  |and return.....w|
00002700  6f 72 64 73 65 61 72 63  68 0d 0d c0 26 4c 44 58  |ordsearch...&LDX|
00002710  20 23 26 30 30 20 5c 20  69 6e 64 65 78 20 66 6f  | #&00 \ index fo|
00002720  72 20 73 65 61 72 63 68  20 73 74 72 69 6e 67 0d  |r search string.|
00002730  0d ca 1f 4c 44 59 20 23  26 30 30 20 5c 20 69 6e  |...LDY #&00 \ in|
00002740  64 65 78 20 66 6f 72 20  70 61 63 6b 65 74 0d 0d  |dex for packet..|
00002750  d4 25 53 54 59 20 74 65  6d 70 79 20 5c 20 74 65  |.%STY tempy \ te|
00002760  6d 70 6f 72 61 72 79 20  73 74 6f 72 65 20 66 6f  |mporary store fo|
00002770  72 20 59 0d 0d de 0d 2e  77 6f 72 64 6c 6f 6f 70  |r Y.....wordloop|
00002780  0d 0d e8 14 4c 44 41 20  73 65 61 72 63 68 74 65  |....LDA searchte|
00002790  78 74 2c 58 0d 0d f2 0d  42 45 51 20 66 6f 75 6e  |xt,X....BEQ foun|
000027a0  64 0d 0d fc 25 50 48 41  20 5c 20 73 61 76 65 20  |d...%PHA \ save |
000027b0  63 68 61 72 61 63 74 65  72 20 66 72 6f 6d 20 6b  |character from k|
000027c0  65 79 77 6f 72 64 0d 0e  06 15 4c 44 41 20 28 77  |eyword....LDA (w|
000027d0  6f 72 6b 73 70 61 63 65  29 2c 59 0d 0e 10 1d 43  |orkspace),Y....C|
000027e0  4d 50 20 23 26 45 31 20  5c 20 6c 6f 77 65 72 20  |MP #&E1 \ lower |
000027f0  63 61 73 65 20 27 61 27  0d 0e 1a 28 42 43 43 20  |case 'a'...(BCC |
00002800  75 70 70 65 72 63 61 73  65 20 5c 20 62 72 61 6e  |uppercase \ bran|
00002810  63 68 20 69 66 20 75 70  70 65 72 20 63 61 73 65  |ch if upper case|
00002820  0d 0e 24 26 80 20 23 26  44 46 20 5c 20 66 6f 72  |..$&. #&DF \ for|
00002830  63 65 20 6c 6f 77 65 72  20 74 6f 20 75 70 70 65  |ce lower to uppe|
00002840  72 20 63 61 73 65 0d 0e  2e 0e 2e 75 70 70 65 72  |r case.....upper|
00002850  63 61 73 65 0d 0e 38 2c  53 54 41 20 73 65 61 72  |case..8,STA sear|
00002860  63 68 66 6f 72 20 5c 20  73 74 6f 72 65 20 63 68  |chfor \ store ch|
00002870  61 72 61 63 74 65 72 20  66 72 6f 6d 20 54 54 58  |aracter from TTX|
00002880  0d 0e 42 28 50 4c 41 20  5c 20 72 65 73 74 6f 72  |..B(PLA \ restor|
00002890  65 20 63 68 61 72 61 63  74 65 72 20 66 72 6f 6d  |e character from|
000028a0  20 6b 65 79 77 6f 72 64  0d 0e 4c 11 43 4d 50 20  | keyword..L.CMP |
000028b0  73 65 61 72 63 68 66 6f  72 0d 0e 56 33 42 4e 45  |searchfor..V3BNE|
000028c0  20 6e 6f 74 66 6f 75 6e  64 20 5c 20 62 72 61 6e  | notfound \ bran|
000028d0  63 68 20 69 66 20 6b 65  79 77 6f 72 64 20 64 6f  |ch if keyword do|
000028e0  65 73 20 6e 6f 74 20 6d  61 74 63 68 0d 0e 60 2b  |es not match..`+|
000028f0  49 4e 58 20 5c 20 69 66  20 6d 61 74 63 68 65 64  |INX \ if matched|
00002900  20 6c 6f 6f 6b 20 61 74  20 6e 65 78 74 20 63 68  | look at next ch|
00002910  61 72 61 63 74 65 72 0d  0e 6a 07 49 4e 59 0d 0e  |aracter..j.INY..|
00002920  74 19 43 50 59 20 23 26  32 39 20 5c 20 64 65 63  |t.CPY #&29 \ dec|
00002930  69 6d 61 6c 20 34 31 0d  0e 7e 10 42 43 43 20 77  |imal 41..~.BCC w|
00002940  6f 72 64 6c 6f 6f 70 0d  0e 88 0d 2e 6e 6f 74 66  |ordloop.....notf|
00002950  6f 75 6e 64 0d 0e 92 25  4c 44 58 20 23 26 30 30  |ound...%LDX #&00|
00002960  20 5c 20 72 65 73 65 74  20 69 6e 64 65 78 20 6f  | \ reset index o|
00002970  6e 20 6b 65 79 77 6f 72  64 0d 0e 9c 26 49 4e 43  |n keyword...&INC|
00002980  20 74 65 6d 70 79 20 5c  20 69 6e 63 72 65 6d 65  | tempy \ increme|
00002990  6e 74 20 69 6e 64 65 78  20 6f 6e 20 54 54 58 0d  |nt index on TTX.|
000029a0  0e a6 0d 4c 44 59 20 74  65 6d 70 79 0d 0e b0 19  |...LDY tempy....|
000029b0  43 50 59 20 23 26 32 39  20 5c 20 64 65 63 69 6d  |CPY #&29 \ decim|
000029c0  61 6c 20 34 31 0d 0e ba  2e 42 43 43 20 77 6f 72  |al 41....BCC wor|
000029d0  64 6c 6f 6f 70 20 5c 20  62 72 61 6e 63 68 20 69  |dloop \ branch i|
000029e0  66 20 6d 6f 72 65 20 64  61 74 61 20 74 6f 20 74  |f more data to t|
000029f0  65 73 74 0d 0e c4 07 52  54 53 0d 0e ce 0a 2e 66  |est....RTS.....f|
00002a00  6f 75 6e 64 0d 0e d8 21  4c 44 41 20 23 26 38 30  |ound...!LDA #&80|
00002a10  20 5c 20 66 6c 61 67 20  6b 65 79 77 6f 72 64 20  | \ flag keyword |
00002a20  66 6f 75 6e 64 0d 0e e2  20 53 54 41 20 67 72 61  |found... STA gra|
00002a30  62 66 6c 61 67 20 5c 20  6b 65 79 77 6f 72 64 20  |bflag \ keyword |
00002a40  66 6f 75 6e 64 0d 0e ec  07 52 54 53 0d 0e f6 0e  |found....RTS....|
00002a50  2e 63 6c 65 61 72 6d 61  72 6b 0d 0f 00 0c 4c 44  |.clearmark....LD|
00002a60  41 20 23 26 38 30 0d 0f  0a 19 4c 44 58 20 23 26  |A #&80....LDX #&|
00002a70  31 37 20 5c 20 64 65 63  69 6d 61 6c 20 32 33 0d  |17 \ decimal 23.|
00002a80  0f 14 0d 2e 6c 6f 6f 70  6d 61 72 6b 0d 0f 1e 11  |....loopmark....|
00002a90  53 54 41 20 6d 61 72 6b  65 72 73 2c 58 0d 0f 28  |STA markers,X..(|
00002aa0  07 44 45 58 0d 0f 32 10  42 4e 45 20 6c 6f 6f 70  |.DEX..2.BNE loop|
00002ab0  6d 61 72 6b 0d 0f 3c 27  53 54 58 20 67 72 61 62  |mark..<'STX grab|
00002ac0  66 6c 61 67 20 5c 20 67  72 61 62 66 6c 61 67 20  |flag \ grabflag |
00002ad0  3d 20 73 65 61 72 63 68  69 6e 67 0d 0f 46 21 4c  |= searching..F!L|
00002ae0  44 41 20 23 26 30 46 20  5c 20 65 6e 64 20 6f 66  |DA #&0F \ end of|
00002af0  20 70 61 67 65 20 6d 61  72 6b 65 72 0d 0f 50 10  | page marker..P.|
00002b00  53 54 41 20 75 73 65 72  70 61 67 65 0d 0f 5a 12  |STA userpage..Z.|
00002b10  53 54 41 20 75 73 65 72  70 61 67 65 2b 31 0d 0f  |STA userpage+1..|
00002b20  64 07 52 54 53 0d 0f 6e  0d 2e 6f 6c 64 69 72 71  |d.RTS..n..oldirq|
00002b30  32 76 0d 0f 78 0c 45 51  55 57 20 26 30 30 0d 0f  |2v..x.EQUW &00..|
00002b40  82 0d 2e 68 61 6d 74 61  62 6c 65 0d 0f 8c 12 45  |...hamtable....E|
00002b50  51 55 44 20 26 30 31 30  31 46 46 30 31 0d 0f 96  |QUD &0101FF01...|
00002b60  12 45 51 55 44 20 26 46  46 30 31 30 30 46 46 0d  |.EQUD &FF0100FF.|
00002b70  0f a0 12 45 51 55 44 20  26 46 46 30 31 30 32 46  |...EQUD &FF0102F|
00002b80  46 0d 0f aa 12 45 51 55  44 20 26 30 37 46 46 46  |F....EQUD &07FFF|
00002b90  46 30 41 0d 0f b4 12 45  51 55 44 20 26 46 46 30  |F0A....EQUD &FF0|
00002ba0  31 30 30 46 46 0d 0f be  12 45 51 55 44 20 26 30  |100FF....EQUD &0|
00002bb0  30 46 46 30 30 30 30 0d  0f c8 12 45 51 55 44 20  |0FF0000....EQUD |
00002bc0  26 30 42 46 46 46 46 30  36 0d 0f d2 12 45 51 55  |&0BFFFF06....EQU|
00002bd0  44 20 26 46 46 30 33 30  30 46 46 0d 0f dc 12 45  |D &FF0300FF....E|
00002be0  51 55 44 20 26 46 46 30  31 30 43 46 46 0d 0f e6  |QUD &FF010CFF...|
00002bf0  12 45 51 55 44 20 26 30  37 46 46 46 46 30 34 0d  |.EQUD &07FFFF04.|
00002c00  0f f0 12 45 51 55 44 20  26 30 37 46 46 46 46 30  |...EQUD &07FFFF0|
00002c10  36 0d 0f fa 12 45 51 55  44 20 26 30 37 30 37 30  |6....EQUD &07070|
00002c20  37 46 46 0d 10 04 12 45  51 55 44 20 26 30 35 46  |7FF....EQUD &05F|
00002c30  46 46 46 30 36 0d 10 0e  12 45 51 55 44 20 26 46  |FFF06....EQUD &F|
00002c40  46 30 44 30 30 46 46 0d  10 18 12 45 51 55 44 20  |F0D00FF....EQUD |
00002c50  26 46 46 30 36 30 36 30  36 0d 10 22 12 45 51 55  |&FF060606..".EQU|
00002c60  44 20 26 30 37 46 46 46  46 30 36 0d 10 2c 12 45  |D &07FFFF06..,.E|
00002c70  51 55 44 20 26 46 46 30  31 30 32 46 46 0d 10 36  |QUD &FF0102FF..6|
00002c80  12 45 51 55 44 20 26 30  39 46 46 46 46 30 34 0d  |.EQUD &09FFFF04.|
00002c90  10 40 12 45 51 55 44 20  26 30 32 46 46 30 32 30  |.@.EQUD &02FF020|
00002ca0  32 0d 10 4a 12 45 51 55  44 20 26 46 46 30 33 30  |2..J.EQUD &FF030|
00002cb0  32 46 46 0d 10 54 12 45  51 55 44 20 26 30 35 46  |2FF..T.EQUD &05F|
00002cc0  46 46 46 30 38 0d 10 5e  12 45 51 55 44 20 26 46  |FFF08..^.EQUD &F|
00002cd0  46 30 33 30 30 46 46 0d  10 68 12 45 51 55 44 20  |F0300FF..h.EQUD |
00002ce0  26 46 46 30 33 30 32 46  46 0d 10 72 12 45 51 55  |&FF0302FF..r.EQU|
00002cf0  44 20 26 30 33 30 33 46  46 30 33 0d 10 7c 12 45  |D &0303FF03..|.E|
00002d00  51 55 44 20 26 30 35 46  46 46 46 30 34 0d 10 86  |QUD &05FFFF04...|
00002d10  12 45 51 55 44 20 26 46  46 30 34 30 34 30 34 0d  |.EQUD &FF040404.|
00002d20  10 90 12 45 51 55 44 20  26 46 46 30 46 30 32 46  |...EQUD &FF0F02F|
00002d30  46 0d 10 9a 12 45 51 55  44 20 26 30 37 46 46 46  |F....EQUD &07FFF|
00002d40  46 30 34 0d 10 a4 12 45  51 55 44 20 26 30 35 30  |F04....EQUD &050|
00002d50  35 30 35 46 46 0d 10 ae  12 45 51 55 44 20 26 30  |505FF....EQUD &0|
00002d60  35 46 46 46 46 30 34 0d  10 b8 12 45 51 55 44 20  |5FFFF04....EQUD |
00002d70  26 30 35 46 46 46 46 30  36 0d 10 c2 12 45 51 55  |&05FFFF06....EQU|
00002d80  44 20 26 46 46 30 33 30  45 46 46 0d 10 cc 12 45  |D &FF030EFF....E|
00002d90  51 55 44 20 26 46 46 30  31 30 43 46 46 0d 10 d6  |QUD &FF010CFF...|
00002da0  12 45 51 55 44 20 26 30  39 46 46 46 46 30 41 0d  |.EQUD &09FFFF0A.|
00002db0  10 e0 12 45 51 55 44 20  26 30 42 46 46 46 46 30  |...EQUD &0BFFFF0|
00002dc0  41 0d 10 ea 12 45 51 55  44 20 26 46 46 30 41 30  |A....EQUD &FF0A0|
00002dd0  41 30 41 0d 10 f4 12 45  51 55 44 20 26 30 42 46  |A0A....EQUD &0BF|
00002de0  46 46 46 30 38 0d 10 fe  12 45 51 55 44 20 26 46  |FFF08....EQUD &F|
00002df0  46 30 44 30 30 46 46 0d  11 08 12 45 51 55 44 20  |F0D00FF....EQUD |
00002e00  26 30 42 30 42 30 42 46  46 0d 11 12 12 45 51 55  |&0B0B0BFF....EQU|
00002e10  44 20 26 30 42 46 46 46  46 30 41 0d 11 1c 12 45  |D &0BFFFF0A....E|
00002e20  51 55 44 20 26 30 43 46  46 30 43 30 43 0d 11 26  |QUD &0CFF0C0C..&|
00002e30  12 45 51 55 44 20 26 46  46 30 44 30 43 46 46 0d  |.EQUD &FF0D0CFF.|
00002e40  11 30 12 45 51 55 44 20  26 46 46 30 46 30 43 46  |.0.EQUD &FF0F0CF|
00002e50  46 0d 11 3a 12 45 51 55  44 20 26 30 37 46 46 46  |F..:.EQUD &07FFF|
00002e60  46 30 41 0d 11 44 12 45  51 55 44 20 26 46 46 30  |F0A..D.EQUD &FF0|
00002e70  44 30 43 46 46 0d 11 4e  12 45 51 55 44 20 26 30  |D0CFF..N.EQUD &0|
00002e80  44 30 44 46 46 30 44 0d  11 58 12 45 51 55 44 20  |D0DFF0D..X.EQUD |
00002e90  26 30 42 46 46 46 46 30  36 0d 11 62 12 45 51 55  |&0BFFFF06..b.EQU|
00002ea0  44 20 26 46 46 30 44 30  45 46 46 0d 11 6c 12 45  |D &FF0D0EFF..l.E|
00002eb0  51 55 44 20 26 30 39 46  46 46 46 30 38 0d 11 76  |QUD &09FFFF08..v|
00002ec0  12 45 51 55 44 20 26 30  39 30 39 30 39 46 46 0d  |.EQUD &090909FF.|
00002ed0  11 80 12 45 51 55 44 20  26 46 46 30 46 30 32 46  |...EQUD &FF0F02F|
00002ee0  46 0d 11 8a 12 45 51 55  44 20 26 30 39 46 46 46  |F....EQUD &09FFF|
00002ef0  46 30 41 0d 11 94 12 45  51 55 44 20 26 46 46 30  |F0A....EQUD &FF0|
00002f00  38 30 38 30 38 0d 11 9e  12 45 51 55 44 20 26 30  |80808....EQUD &0|
00002f10  39 46 46 46 46 30 38 0d  11 a8 12 45 51 55 44 20  |9FFFF08....EQUD |
00002f20  26 30 42 46 46 46 46 30  38 0d 11 b2 12 45 51 55  |&0BFFFF08....EQU|
00002f30  44 20 26 46 46 30 33 30  45 46 46 0d 11 bc 12 45  |D &FF030EFF....E|
00002f40  51 55 44 20 26 46 46 30  46 30 43 46 46 0d 11 c6  |QUD &FF0F0CFF...|
00002f50  12 45 51 55 44 20 26 30  39 46 46 46 46 30 34 0d  |.EQUD &09FFFF04.|
00002f60  11 d0 12 45 51 55 44 20  26 30 46 30 46 46 46 30  |...EQUD &0F0FFF0|
00002f70  46 0d 11 da 12 45 51 55  44 20 26 46 46 30 46 30  |F....EQUD &FF0F0|
00002f80  45 46 46 0d 11 e4 12 45  51 55 44 20 26 30 35 46  |EFF....EQUD &05F|
00002f90  46 46 46 30 38 0d 11 ee  12 45 51 55 44 20 26 46  |FFF08....EQUD &F|
00002fa0  46 30 44 30 45 46 46 0d  11 f8 12 45 51 55 44 20  |F0D0EFF....EQUD |
00002fb0  26 46 46 30 46 30 45 46  46 0d 12 02 12 45 51 55  |&FF0F0EFF....EQU|
00002fc0  44 20 26 30 45 46 46 30  45 30 45 0d 12 0c 0e 2e  |D &0EFF0E0E.....|
00002fd0  62 75 66 66 74 61 62 6c  65 0d 12 16 0f 45 51 55  |bufftable....EQU|
00002fe0  57 20 62 75 66 66 65 72  0d 12 20 12 45 51 55 57  |W buffer.. .EQUW|
00002ff0  20 62 75 66 66 65 72 2b  34 30 0d 12 2a 16 45 51  | buffer+40..*.EQ|
00003000  55 57 20 62 75 66 66 65  72 2b 28 32 2a 34 30 29  |UW buffer+(2*40)|
00003010  0d 12 34 16 45 51 55 57  20 62 75 66 66 65 72 2b  |..4.EQUW buffer+|
00003020  28 33 2a 34 30 29 0d 12  3e 16 45 51 55 57 20 62  |(3*40)..>.EQUW b|
00003030  75 66 66 65 72 2b 28 34  2a 34 30 29 0d 12 48 16  |uffer+(4*40)..H.|
00003040  45 51 55 57 20 62 75 66  66 65 72 2b 28 35 2a 34  |EQUW buffer+(5*4|
00003050  30 29 0d 12 52 16 45 51  55 57 20 62 75 66 66 65  |0)..R.EQUW buffe|
00003060  72 2b 28 36 2a 34 30 29  0d 12 5c 16 45 51 55 57  |r+(6*40)..\.EQUW|
00003070  20 62 75 66 66 65 72 2b  28 37 2a 34 30 29 0d 12  | buffer+(7*40)..|
00003080  66 16 45 51 55 57 20 62  75 66 66 65 72 2b 28 38  |f.EQUW buffer+(8|
00003090  2a 34 30 29 0d 12 70 16  45 51 55 57 20 62 75 66  |*40)..p.EQUW buf|
000030a0  66 65 72 2b 28 39 2a 34  30 29 0d 12 7a 17 45 51  |fer+(9*40)..z.EQ|
000030b0  55 57 20 62 75 66 66 65  72 2b 28 31 30 2a 34 30  |UW buffer+(10*40|
000030c0  29 0d 12 84 17 45 51 55  57 20 62 75 66 66 65 72  |)....EQUW buffer|
000030d0  2b 28 31 31 2a 34 30 29  0d 12 8e 17 45 51 55 57  |+(11*40)....EQUW|
000030e0  20 62 75 66 66 65 72 2b  28 31 32 2a 34 30 29 0d  | buffer+(12*40).|
000030f0  12 98 17 45 51 55 57 20  62 75 66 66 65 72 2b 28  |...EQUW buffer+(|
00003100  31 33 2a 34 30 29 0d 12  a2 17 45 51 55 57 20 62  |13*40)....EQUW b|
00003110  75 66 66 65 72 2b 28 31  34 2a 34 30 29 0d 12 ac  |uffer+(14*40)...|
00003120  17 45 51 55 57 20 62 75  66 66 65 72 2b 28 31 35  |.EQUW buffer+(15|
00003130  2a 34 30 29 0d 12 b6 17  45 51 55 57 20 62 75 66  |*40)....EQUW buf|
00003140  66 65 72 2b 28 31 36 2a  34 30 29 0d 12 c0 17 45  |fer+(16*40)....E|
00003150  51 55 57 20 62 75 66 66  65 72 2b 28 31 37 2a 34  |QUW buffer+(17*4|
00003160  30 29 0d 12 ca 17 45 51  55 57 20 62 75 66 66 65  |0)....EQUW buffe|
00003170  72 2b 28 31 38 2a 34 30  29 0d 12 d4 17 45 51 55  |r+(18*40)....EQU|
00003180  57 20 62 75 66 66 65 72  2b 28 31 39 2a 34 30 29  |W buffer+(19*40)|
00003190  0d 12 de 17 45 51 55 57  20 62 75 66 66 65 72 2b  |....EQUW buffer+|
000031a0  28 32 30 2a 34 30 29 0d  12 e8 17 45 51 55 57 20  |(20*40)....EQUW |
000031b0  62 75 66 66 65 72 2b 28  32 31 2a 34 30 29 0d 12  |buffer+(21*40)..|
000031c0  f2 17 45 51 55 57 20 62  75 66 66 65 72 2b 28 32  |..EQUW buffer+(2|
000031d0  32 2a 34 30 29 0d 12 fc  17 45 51 55 57 20 62 75  |2*40)....EQUW bu|
000031e0  66 66 65 72 2b 28 32 33  2a 34 30 29 0d 13 06 17  |ffer+(23*40)....|
000031f0  45 51 55 57 20 62 75 66  66 65 72 2b 28 32 34 2a  |EQUW buffer+(24*|
00003200  34 30 29 0d 13 10 0b 2e  62 6c 61 6e 6b 73 0d 13  |40).....blanks..|
00003210  1a 11 45 51 55 53 20 c4  34 30 2c 22 20 22 29 0d  |..EQUS .40," ").|
00003220  13 24 05 5d 0d 13 2e 05  ed 0d 13 38 05 e1 0d ff  |.$.].......8....|
00003230