PASS 1
PASS 2
00:000 000000   
00:000 000000   # Copyright Tom Jennings 1999-2002, tomj@wps.com
00:000 000000   
00:000 000000   POINTER eq 0
00:000 000000   RETURN eq 0
00:000 000000   VAR eq 0
00:000 000000   
00:015 000015   	sector 13		# OPTIMUM 64x5
00:015 310027   ttwox:	sta ttwr

*** SYMBOL /TTCHAR/ NOT DEFINED
00:016 270000   	ldm ttchar
00:017 320047   	sto ttwv1		# optimum storage
00:020 210024   	ld ttw1			# reset table ptr,
00:021 000000   
00:021 310023   ttw0:	sta ttwj2

*** SYMBOL /TTCHAR/ NOT DEFINED
00:022 270000   	ldm ttchar		# A=char,
00:023 220000   ttwj2:	jump POINTER		# jump into table,
00:024 220036   ttw1:	jump ttw3		# LS char,
00:025 220030   	jump ttw2		# 2nd char,
00:026 220030   	jump ttw2		# 3rd char,
00:027 220000   ttwr:	jump RETURN		# return
00:030 000000   
00:030 000000   # Shift right one character, output it.
00:030 100000   ttw2:	sr 0
00:031 100000   	sr 0
00:032 100000   	sr 0
00:033 100000   	sr 0
00:034 100000   	sr 0
00:035 100000   	sr 0
00:036 000000   # Output the LS character, advance the pointer to
00:036 000000   # the next character in the word in ttchar.

*** SYMBOL /TTCHAR/ NOT DEFINED
00:036 320000   ttw3:	sto ttchar
00:037 300041   	lda C+2

*** SYMBOL /TTYO/ NOT DEFINED
00:040 220000   	jump ttyo		# output a char,
00:041 040000   	snz			# if it was a NULL,
00:042 220027   	jump ttwr		# exit
00:043 270023   	ldm ttwj2		# current table ptr,
00:044 160001   	add 1			# increment,
00:045 220021   	jump ttw0		# loop.
00:046 000000   
00:047 000047   	sector 39		# OPTIMUM 64x5
00:047 000000   ttwv1:	VAR
00:050 000000   
00:050 000000   # -----------------------------------------------------
00:050 000000   

SYMBOLS
   TTWV1=000047       39=000047     TTW0=000021       17=000021     TTW1=000024 
      20=000024     TTW2=000030       24=000030     TTW3=000036       30=000036 
 POINTER=000000        0=000000    TTWJ2=000023       19=000023   RETURN=000000 
       0=000000     TTWR=000027       23=000027    TTWOX=000015       13=000015 
     VAR=000000        0=000000