�    >STconvert
� By  Chris Wilson
� For RISC OS machines
� (c) BAU January 1994
: 
	�code
"� sampleaddr%(31),samplen%(31)
� pitchtab 148
	� logtab &100

� temppatt &800
�init_logs
�initpitches

�
�
�
4�'"Enter full pathname of file to be converted:"
�">>"filename$
I�'"Enter full pathname of destination file or <RETURN> for the same:"
�">>"destination$
,� destination$="" destination$=filename$
�
.ș"OS_File",5,filename$ � type%,,,,length%
� type%=0 �'"No such file!"
1� type%=2 �'"'";filename$;"' is a directory."

� type%=1
� memory length%
%ș"OS_File",16,filename$,memory,0
tracker%=�

nochan%=�
"� !memory=&5853554D tracker%=�
/� tracker%=� �"That wasn't a tracker file!"
 �tracker%=�
!!pointer%=�find(memory,"MVOX")
"chan%=pointer%!8
# 
$!� chan%=4 � chan%=8 nochan%=�
%5� nochan%=� �"Tracker must have 4 or 8 channels!"
&� nochan%=�
'!�'"File loaded successfully"'
(lastaddr%=0
)	at%=�
* 
+F%=�(destination$)
, 
-!pointer%=�find(memory,"MNAM")
.�put(pointer%+8,20)
/ 
0!pointer%=�find(memory,"PNUM")
1npatts%=pointer%!8
2,�0,at%);"Number of patterns: ";npatts%;
3 
4lastfound%=memory
5�i%=1�31
6'sampstart%=�find(lastfound%,"SAMP")
7%�0,at%);"Found sample ";i%;" (";
8%pointer%=�find(lastfound%,"SNAM")
9�put(pointer%+8,20)
:�l%=pointer%+8�pointer%+27
;�?l%:�:�")";�(10);
<�#F%,0:�#F%,0
=%pointer%=�find(lastfound%,"SLEN")
>slen%=pointer%!8
?samplen%(i%)=slen%
@slen%=slen%/2
A�#F%,slen%�256
B�#F%,slen%�256
C 
D
�#F%,0
E 
F%pointer%=�find(lastfound%,"SVOL")
Gsvol%=(pointer%!8)-1
H�#F%,svol%/4
I 
J%pointer%=�find(lastfound%,"ROFS")
Krofs%=pointer%!8
Lrofs%=rofs%/2
M�#F%,rofs%�256
N�#F%,rofs%�256
O 
P%pointer%=�find(lastfound%,"RLEN")
Qrlen%=pointer%!8
Rrlen%=rlen%/2
S�#F%,rlen%�256
T�#F%,rlen%�256
U 
V%pointer%=�find(lastfound%,"SDAT")
Wlastaddr%=pointer%
Xsampleaddr%(i%)=pointer%
Ylastfound%=pointer%
Z�
[ 
\!pointer%=�find(memory,"MLEN")
]�#F%,pointer%!8
^ 
_�#F%,127
` 
a!pointer%=�find(memory,"SEQU")
b�put(pointer%+8,128)
c 
d'� chan%=8 �put(flt8,4) � �put(mk,4)
e 
fpointer%=memory
g�p%=1�npatts%
h#pointer%=�find(pointer%,"PATT")
i&�convertpatt(pointer%+8,256*chan%)
j'ș"OS_GBPB",2,F%,temppatt,256*chan%
k�
l 
m�s%=1�31
nsamp%=sampleaddr%(s%)
o�log(samp%+8,samplen%(s%))
p)ș"OS_GBPB",2,F%,samp%+8,samplen%(s%)
q�
r 
s�#F%
tG�''"Choose filetype:   (T)racker (CB6)"'�19);"(S)oundtracker (001)"
u6�19);"(P)rotracker (701)"�19);"Te(Q) Music (CC5)"
v�19);"(D)on't care"
w
key$=�
xkey$=�(�(key$)�32)
y
ft$="000"
z
Ȏ key$ �
{�"t":ft$="CB6"
|�"s":ft$="001"
}�"p":ft$="701"
~�"q":ft$="CC5"
�
�$�"SetType "+destination$+" "+ft$
��
� 
��
� 
�ݤfind(start%,string$)
�$buf%=string$
�!start=start%
�=�(search)
�:
���put(start%,len%)
��i%
��i%=0�len%-1
��#F%,i%?start%
��
��
�:
�
��code
�� code &FFF
��pass=0�2�2
�P%=code
�[OPTpass
� 
�	.buf%
�
EQUD 0
�
EQUD 0
� 
�.mk EQUS "M.K."
�.flt8 EQUS "FLT8"
� 
�.start EQUD 0
� 
�.search
�LDR R0,start
�LDR R2,buf%
�	.loop
�ADD R0,R0,#4
�LDR R1,[R0]
�
CMP R1,R2
�BNE loop
� 
�MOV PC,R14
� 
�.sampstart EQUD 0
�.samplen EQUD 0
�.logtabaddr EQUD 0
� 
�.convertlog
�LDR R0,samplen
�LDR R1,sampstart
�LDR R2,logtabaddr
� 
�.logloop
�SUB R0,R0,#1
�LDRB R12,[R1,R0]
�LDRB R11,[R2,R12]
�STRB R11,[R1,R0]
� 
�
CMP R0,#0
�BNE logloop
�MOV PC,R14
�]
��
��
�:
���log(start%,length%)
�0�0,at%);"Converting sample ";s%;"/31";�(15)
�&!samplen=length%:!sampstart=start%
�!logtabaddr=logtab
�� length%>0 � convertlog
��
� ��convertpatt(base%,length%)
�C� i%,word%,data%,comm%,samp%,pitch%,byte1%,byte2%,byte3%,byte4%
�8�0,at%);"Converting pattern ";p%;"/";npatts%;�(15);
��i%=0�length%-4�4
�data%=base%?(i%)
�arccomm%=base%?(i%+1)
�Ȏ arccomm% �
��&01:comm%=&01
��&02:comm%=&02
��&1C:comm%=&0F
�:�&0E:comm%=&00:data%=0:� strip off set stereo commands
��&11:comm%=&0A
��&10:comm%=&04
��&1F:comm%=&0C
��&0B:comm%=&0D
��&00:comm%=&00
��&10:comm%=&0A
�
�comm%=arccomm%
��
�samp%=base%?(i%+2)
�pitch%=base%?(i%+3)
�'byte1%=0:byte2%=0:byte3%=0:byte4%=0
�� comm%=&0C data%=data%/4
�byte4%=data%
�byte3%=(samp%�15)<<4
�byte3%=byte3%�(comm%�&F)
�$byte2%=(pitchtab!(pitch%*4))�&FF
�*byte1%=((pitchtab!(pitch%*4))�&F00)>>8
�byte1%=byte1%�(samp%�&F0)
�?(i%+temppatt)=byte1%
�?(temppatt+i%+1)=byte2%
�?(temppatt+i%+2)=byte3%
�?(temppatt+i%+3)=byte4%
��
��
�:
���initpitches
�� +0
��i%=1�36
�� amigaweird%
�pitchtab!(i%*4)=amigaweird%
��
�!pitchtab=0
��
�:
�� Amiga pitch data
�5� 856,808,762,720,678,640,604,570,538,508,480,453
�5� 428,404,381,360,339,320,302,285,269,254,240,226
�5� 214,202,190,180,170,160,151,143,135,127,120,113
� 
���init_logs
�ș"Hourglass_On"
�� +0
�
�i%=0�255
�� data%
�logtab?i%=data%

�


ș"Hourglass_Off"

�

:

*� Archimedes Log to Amiga Linear table

%� 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

5� 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255

5� 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255

5� 1,255,1,255,1,255,1,255,1,254,1,254,1,254,1,254

	5� 1,254,1,254,1,254,1,254,2,254,2,254,2,253,2,253


5� 2,253,2,253,2,253,2,253,3,253,3,253,3,252,3,252

5� 3,252,3,252,4,252,4,251,4,251,4,251,5,251,5,250

5� 5,250,5,250,6,250,6,249,6,249,6,249,7,249,7,248


8� 7,248,8,248,8,247,9,247,9,246,10,246,10,245,11,245

=� 11,244,12,244,12,243,13,243,13,242,14,242,14,241,15,241

=� 15,240,16,240,17,239,18,238,19,237,20,236,21,235,22,234

=� 23,233,24,232,25,231,26,230,27,229,28,228,29,227,30,226

=� 31,225,33,224,35,222,37,220,39,218,41,216,43,214,45,212

=� 47,210,49,208,51,206,53,204,55,202,57,200,59,198,61,196

=� 63,194,67,192,71,188,75,184,79,180,83,176,87,172,91,168

C� 95,164,99,160,103,156,107,152,111,148,115,144,119,140,127,136
�

00000000  0d 00 01 13 f4 20 20 20  20 3e 53 54 63 6f 6e 76  |.....    >STconv|
00000010  65 72 74 0d 00 02 16 f4  20 42 79 20 20 43 68 72  |ert..... By  Chr|
00000020  69 73 20 57 69 6c 73 6f  6e 0d 00 03 1a f4 20 46  |is Wilson..... F|
00000030  6f 72 20 52 49 53 43 20  4f 53 20 6d 61 63 68 69  |or RISC OS machi|
00000040  6e 65 73 0d 00 04 1a f4  20 28 63 29 20 42 41 55  |nes..... (c) BAU|
00000050  20 4a 61 6e 75 61 72 79  20 31 39 39 34 0d 00 05  | January 1994...|
00000060  06 3a 20 0d 00 06 09 f2  63 6f 64 65 0d 00 07 22  |.: .....code..."|
00000070  de 20 73 61 6d 70 6c 65  61 64 64 72 25 28 33 31  |. sampleaddr%(31|
00000080  29 2c 73 61 6d 70 6c 65  6e 25 28 33 31 29 0d 00  |),samplen%(31)..|
00000090  08 12 de 20 70 69 74 63  68 74 61 62 20 31 34 38  |... pitchtab 148|
000000a0  0d 00 09 11 de 20 6c 6f  67 74 61 62 20 26 31 30  |..... logtab &10|
000000b0  30 0d 00 0a 13 de 20 74  65 6d 70 70 61 74 74 20  |0..... temppatt |
000000c0  26 38 30 30 0d 00 0b 0e  f2 69 6e 69 74 5f 6c 6f  |&800.....init_lo|
000000d0  67 73 0d 00 0c 10 f2 69  6e 69 74 70 69 74 63 68  |gs.....initpitch|
000000e0  65 73 0d 00 0d 05 f5 0d  00 0e 05 f5 0d 00 0f 05  |es..............|
000000f0  f5 0d 00 10 34 f1 27 22  45 6e 74 65 72 20 66 75  |....4.'"Enter fu|
00000100  6c 6c 20 70 61 74 68 6e  61 6d 65 20 6f 66 20 66  |ll pathname of f|
00000110  69 6c 65 20 74 6f 20 62  65 20 63 6f 6e 76 65 72  |ile to be conver|
00000120  74 65 64 3a 22 0d 00 11  12 e8 22 3e 3e 22 66 69  |ted:".....">>"fi|
00000130  6c 65 6e 61 6d 65 24 0d  00 12 49 f1 27 22 45 6e  |lename$...I.'"En|
00000140  74 65 72 20 66 75 6c 6c  20 70 61 74 68 6e 61 6d  |ter full pathnam|
00000150  65 20 6f 66 20 64 65 73  74 69 6e 61 74 69 6f 6e  |e of destination|
00000160  20 66 69 6c 65 20 6f 72  20 3c 52 45 54 55 52 4e  | file or <RETURN|
00000170  3e 20 66 6f 72 20 74 68  65 20 73 61 6d 65 3a 22  |> for the same:"|
00000180  0d 00 13 15 e8 22 3e 3e  22 64 65 73 74 69 6e 61  |.....">>"destina|
00000190  74 69 6f 6e 24 0d 00 14  2c e7 20 64 65 73 74 69  |tion$...,. desti|
000001a0  6e 61 74 69 6f 6e 24 3d  22 22 20 64 65 73 74 69  |nation$="" desti|
000001b0  6e 61 74 69 6f 6e 24 3d  66 69 6c 65 6e 61 6d 65  |nation$=filename|
000001c0  24 0d 00 15 05 87 0d 00  16 2e c8 99 22 4f 53 5f  |$..........."OS_|
000001d0  46 69 6c 65 22 2c 35 2c  66 69 6c 65 6e 61 6d 65  |File",5,filename|
000001e0  24 20 b8 20 74 79 70 65  25 2c 2c 2c 2c 6c 65 6e  |$ . type%,,,,len|
000001f0  67 74 68 25 0d 00 17 1f  e7 20 74 79 70 65 25 3d  |gth%..... type%=|
00000200  30 20 f1 27 22 4e 6f 20  73 75 63 68 20 66 69 6c  |0 .'"No such fil|
00000210  65 21 22 0d 00 18 31 e7  20 74 79 70 65 25 3d 32  |e!"...1. type%=2|
00000220  20 f1 27 22 27 22 3b 66  69 6c 65 6e 61 6d 65 24  | .'"'";filename$|
00000230  3b 22 27 20 69 73 20 61  20 64 69 72 65 63 74 6f  |;"' is a directo|
00000240  72 79 2e 22 0d 00 19 0d  fd 20 74 79 70 65 25 3d  |ry."..... type%=|
00000250  31 0d 00 1a 14 de 20 6d  65 6d 6f 72 79 20 6c 65  |1..... memory le|
00000260  6e 67 74 68 25 0d 00 1b  25 c8 99 22 4f 53 5f 46  |ngth%...%.."OS_F|
00000270  69 6c 65 22 2c 31 36 2c  66 69 6c 65 6e 61 6d 65  |ile",16,filename|
00000280  24 2c 6d 65 6d 6f 72 79  2c 30 0d 00 1c 0e 74 72  |$,memory,0....tr|
00000290  61 63 6b 65 72 25 3d a3  0d 00 1d 0d 6e 6f 63 68  |acker%=.....noch|
000002a0  61 6e 25 3d a3 0d 00 1e  22 e7 20 21 6d 65 6d 6f  |an%=....". !memo|
000002b0  72 79 3d 26 35 38 35 33  35 35 34 44 20 74 72 61  |ry=&5853554D tra|
000002c0  63 6b 65 72 25 3d b9 0d  00 1f 2f e7 20 74 72 61  |cker%=..../. tra|
000002d0  63 6b 65 72 25 3d a3 20  f1 22 54 68 61 74 20 77  |cker%=. ."That w|
000002e0  61 73 6e 27 74 20 61 20  74 72 61 63 6b 65 72 20  |asn't a tracker |
000002f0  66 69 6c 65 21 22 0d 00  20 0f fd 74 72 61 63 6b  |file!".. ..track|
00000300  65 72 25 3d b9 0d 00 21  21 70 6f 69 6e 74 65 72  |er%=...!!pointer|
00000310  25 3d a4 66 69 6e 64 28  6d 65 6d 6f 72 79 2c 22  |%=.find(memory,"|
00000320  4d 56 4f 58 22 29 0d 00  22 14 63 68 61 6e 25 3d  |MVOX")..".chan%=|
00000330  70 6f 69 6e 74 65 72 25  21 38 0d 00 23 05 20 0d  |pointer%!8..#. .|
00000340  00 24 21 e7 20 63 68 61  6e 25 3d 34 20 84 20 63  |.$!. chan%=4 . c|
00000350  68 61 6e 25 3d 38 20 6e  6f 63 68 61 6e 25 3d b9  |han%=8 nochan%=.|
00000360  0d 00 25 35 e7 20 6e 6f  63 68 61 6e 25 3d a3 20  |..%5. nochan%=. |
00000370  f1 22 54 72 61 63 6b 65  72 20 6d 75 73 74 20 68  |."Tracker must h|
00000380  61 76 65 20 34 20 6f 72  20 38 20 63 68 61 6e 6e  |ave 4 or 8 chann|
00000390  65 6c 73 21 22 0d 00 26  0f fd 20 6e 6f 63 68 61  |els!"..&.. nocha|
000003a0  6e 25 3d b9 0d 00 27 21  f1 27 22 46 69 6c 65 20  |n%=...'!.'"File |
000003b0  6c 6f 61 64 65 64 20 73  75 63 63 65 73 73 66 75  |loaded successfu|
000003c0  6c 6c 79 22 27 0d 00 28  0f 6c 61 73 74 61 64 64  |lly"'..(.lastadd|
000003d0  72 25 3d 30 0d 00 29 09  61 74 25 3d bc 0d 00 2a  |r%=0..).at%=...*|
000003e0  05 20 0d 00 2b 16 46 25  3d ae 28 64 65 73 74 69  |. ..+.F%=.(desti|
000003f0  6e 61 74 69 6f 6e 24 29  0d 00 2c 05 20 0d 00 2d  |nation$)..,. ..-|
00000400  21 70 6f 69 6e 74 65 72  25 3d a4 66 69 6e 64 28  |!pointer%=.find(|
00000410  6d 65 6d 6f 72 79 2c 22  4d 4e 41 4d 22 29 0d 00  |memory,"MNAM")..|
00000420  2e 17 f2 70 75 74 28 70  6f 69 6e 74 65 72 25 2b  |...put(pointer%+|
00000430  38 2c 32 30 29 0d 00 2f  05 20 0d 00 30 21 70 6f  |8,20)../. ..0!po|
00000440  69 6e 74 65 72 25 3d a4  66 69 6e 64 28 6d 65 6d  |inter%=.find(mem|
00000450  6f 72 79 2c 22 50 4e 55  4d 22 29 0d 00 31 16 6e  |ory,"PNUM")..1.n|
00000460  70 61 74 74 73 25 3d 70  6f 69 6e 74 65 72 25 21  |patts%=pointer%!|
00000470  38 0d 00 32 2c f1 8a 30  2c 61 74 25 29 3b 22 4e  |8..2,..0,at%);"N|
00000480  75 6d 62 65 72 20 6f 66  20 70 61 74 74 65 72 6e  |umber of pattern|
00000490  73 3a 20 22 3b 6e 70 61  74 74 73 25 3b 0d 00 33  |s: ";npatts%;..3|
000004a0  05 20 0d 00 34 15 6c 61  73 74 66 6f 75 6e 64 25  |. ..4.lastfound%|
000004b0  3d 6d 65 6d 6f 72 79 0d  00 35 0c e3 69 25 3d 31  |=memory..5..i%=1|
000004c0  b8 33 31 0d 00 36 27 73  61 6d 70 73 74 61 72 74  |.31..6'sampstart|
000004d0  25 3d a4 66 69 6e 64 28  6c 61 73 74 66 6f 75 6e  |%=.find(lastfoun|
000004e0  64 25 2c 22 53 41 4d 50  22 29 0d 00 37 25 f1 8a  |d%,"SAMP")..7%..|
000004f0  30 2c 61 74 25 29 3b 22  46 6f 75 6e 64 20 73 61  |0,at%);"Found sa|
00000500  6d 70 6c 65 20 22 3b 69  25 3b 22 20 28 22 3b 0d  |mple ";i%;" (";.|
00000510  00 38 25 70 6f 69 6e 74  65 72 25 3d a4 66 69 6e  |.8%pointer%=.fin|
00000520  64 28 6c 61 73 74 66 6f  75 6e 64 25 2c 22 53 4e  |d(lastfound%,"SN|
00000530  41 4d 22 29 0d 00 39 17  f2 70 75 74 28 70 6f 69  |AM")..9..put(poi|
00000540  6e 74 65 72 25 2b 38 2c  32 30 29 0d 00 3a 1e e3  |nter%+8,20)..:..|
00000550  6c 25 3d 70 6f 69 6e 74  65 72 25 2b 38 b8 70 6f  |l%=pointer%+8.po|
00000560  69 6e 74 65 72 25 2b 32  37 0d 00 3b 16 ef 3f 6c  |inter%+27..;..?l|
00000570  25 3a ed 3a f1 22 29 22  3b 89 28 31 30 29 3b 0d  |%:.:.")";.(10);.|
00000580  00 3c 11 d5 23 46 25 2c  30 3a d5 23 46 25 2c 30  |.<..#F%,0:.#F%,0|
00000590  0d 00 3d 25 70 6f 69 6e  74 65 72 25 3d a4 66 69  |..=%pointer%=.fi|
000005a0  6e 64 28 6c 61 73 74 66  6f 75 6e 64 25 2c 22 53  |nd(lastfound%,"S|
000005b0  4c 45 4e 22 29 0d 00 3e  14 73 6c 65 6e 25 3d 70  |LEN")..>.slen%=p|
000005c0  6f 69 6e 74 65 72 25 21  38 0d 00 3f 16 73 61 6d  |ointer%!8..?.sam|
000005d0  70 6c 65 6e 25 28 69 25  29 3d 73 6c 65 6e 25 0d  |plen%(i%)=slen%.|
000005e0  00 40 11 73 6c 65 6e 25  3d 73 6c 65 6e 25 2f 32  |.@.slen%=slen%/2|
000005f0  0d 00 41 12 d5 23 46 25  2c 73 6c 65 6e 25 81 32  |..A..#F%,slen%.2|
00000600  35 36 0d 00 42 12 d5 23  46 25 2c 73 6c 65 6e 25  |56..B..#F%,slen%|
00000610  83 32 35 36 0d 00 43 05  20 0d 00 44 0a d5 23 46  |.256..C. ..D..#F|
00000620  25 2c 30 0d 00 45 05 20  0d 00 46 25 70 6f 69 6e  |%,0..E. ..F%poin|
00000630  74 65 72 25 3d a4 66 69  6e 64 28 6c 61 73 74 66  |ter%=.find(lastf|
00000640  6f 75 6e 64 25 2c 22 53  56 4f 4c 22 29 0d 00 47  |ound%,"SVOL")..G|
00000650  18 73 76 6f 6c 25 3d 28  70 6f 69 6e 74 65 72 25  |.svol%=(pointer%|
00000660  21 38 29 2d 31 0d 00 48  10 d5 23 46 25 2c 73 76  |!8)-1..H..#F%,sv|
00000670  6f 6c 25 2f 34 0d 00 49  05 20 0d 00 4a 25 70 6f  |ol%/4..I. ..J%po|
00000680  69 6e 74 65 72 25 3d a4  66 69 6e 64 28 6c 61 73  |inter%=.find(las|
00000690  74 66 6f 75 6e 64 25 2c  22 52 4f 46 53 22 29 0d  |tfound%,"ROFS").|
000006a0  00 4b 14 72 6f 66 73 25  3d 70 6f 69 6e 74 65 72  |.K.rofs%=pointer|
000006b0  25 21 38 0d 00 4c 11 72  6f 66 73 25 3d 72 6f 66  |%!8..L.rofs%=rof|
000006c0  73 25 2f 32 0d 00 4d 12  d5 23 46 25 2c 72 6f 66  |s%/2..M..#F%,rof|
000006d0  73 25 81 32 35 36 0d 00  4e 12 d5 23 46 25 2c 72  |s%.256..N..#F%,r|
000006e0  6f 66 73 25 83 32 35 36  0d 00 4f 05 20 0d 00 50  |ofs%.256..O. ..P|
000006f0  25 70 6f 69 6e 74 65 72  25 3d a4 66 69 6e 64 28  |%pointer%=.find(|
00000700  6c 61 73 74 66 6f 75 6e  64 25 2c 22 52 4c 45 4e  |lastfound%,"RLEN|
00000710  22 29 0d 00 51 14 72 6c  65 6e 25 3d 70 6f 69 6e  |")..Q.rlen%=poin|
00000720  74 65 72 25 21 38 0d 00  52 11 72 6c 65 6e 25 3d  |ter%!8..R.rlen%=|
00000730  72 6c 65 6e 25 2f 32 0d  00 53 12 d5 23 46 25 2c  |rlen%/2..S..#F%,|
00000740  72 6c 65 6e 25 81 32 35  36 0d 00 54 12 d5 23 46  |rlen%.256..T..#F|
00000750  25 2c 72 6c 65 6e 25 83  32 35 36 0d 00 55 05 20  |%,rlen%.256..U. |
00000760  0d 00 56 25 70 6f 69 6e  74 65 72 25 3d a4 66 69  |..V%pointer%=.fi|
00000770  6e 64 28 6c 61 73 74 66  6f 75 6e 64 25 2c 22 53  |nd(lastfound%,"S|
00000780  44 41 54 22 29 0d 00 57  16 6c 61 73 74 61 64 64  |DAT")..W.lastadd|
00000790  72 25 3d 70 6f 69 6e 74  65 72 25 0d 00 58 1c 73  |r%=pointer%..X.s|
000007a0  61 6d 70 6c 65 61 64 64  72 25 28 69 25 29 3d 70  |ampleaddr%(i%)=p|
000007b0  6f 69 6e 74 65 72 25 0d  00 59 17 6c 61 73 74 66  |ointer%..Y.lastf|
000007c0  6f 75 6e 64 25 3d 70 6f  69 6e 74 65 72 25 0d 00  |ound%=pointer%..|
000007d0  5a 05 ed 0d 00 5b 05 20  0d 00 5c 21 70 6f 69 6e  |Z....[. ..\!poin|
000007e0  74 65 72 25 3d a4 66 69  6e 64 28 6d 65 6d 6f 72  |ter%=.find(memor|
000007f0  79 2c 22 4d 4c 45 4e 22  29 0d 00 5d 13 d5 23 46  |y,"MLEN")..]..#F|
00000800  25 2c 70 6f 69 6e 74 65  72 25 21 38 0d 00 5e 05  |%,pointer%!8..^.|
00000810  20 0d 00 5f 0c d5 23 46  25 2c 31 32 37 0d 00 60  | .._..#F%,127..`|
00000820  05 20 0d 00 61 21 70 6f  69 6e 74 65 72 25 3d a4  |. ..a!pointer%=.|
00000830  66 69 6e 64 28 6d 65 6d  6f 72 79 2c 22 53 45 51  |find(memory,"SEQ|
00000840  55 22 29 0d 00 62 18 f2  70 75 74 28 70 6f 69 6e  |U")..b..put(poin|
00000850  74 65 72 25 2b 38 2c 31  32 38 29 0d 00 63 05 20  |ter%+8,128)..c. |
00000860  0d 00 64 27 e7 20 63 68  61 6e 25 3d 38 20 f2 70  |..d'. chan%=8 .p|
00000870  75 74 28 66 6c 74 38 2c  34 29 20 8b 20 f2 70 75  |ut(flt8,4) . .pu|
00000880  74 28 6d 6b 2c 34 29 0d  00 65 05 20 0d 00 66 13  |t(mk,4)..e. ..f.|
00000890  70 6f 69 6e 74 65 72 25  3d 6d 65 6d 6f 72 79 0d  |pointer%=memory.|
000008a0  00 67 11 e3 70 25 3d 31  b8 6e 70 61 74 74 73 25  |.g..p%=1.npatts%|
000008b0  0d 00 68 23 70 6f 69 6e  74 65 72 25 3d a4 66 69  |..h#pointer%=.fi|
000008c0  6e 64 28 70 6f 69 6e 74  65 72 25 2c 22 50 41 54  |nd(pointer%,"PAT|
000008d0  54 22 29 0d 00 69 26 f2  63 6f 6e 76 65 72 74 70  |T")..i&.convertp|
000008e0  61 74 74 28 70 6f 69 6e  74 65 72 25 2b 38 2c 32  |att(pointer%+8,2|
000008f0  35 36 2a 63 68 61 6e 25  29 0d 00 6a 27 c8 99 22  |56*chan%)..j'.."|
00000900  4f 53 5f 47 42 50 42 22  2c 32 2c 46 25 2c 74 65  |OS_GBPB",2,F%,te|
00000910  6d 70 70 61 74 74 2c 32  35 36 2a 63 68 61 6e 25  |mppatt,256*chan%|
00000920  0d 00 6b 05 ed 0d 00 6c  05 20 0d 00 6d 0c e3 73  |..k....l. ..m..s|
00000930  25 3d 31 b8 33 31 0d 00  6e 19 73 61 6d 70 25 3d  |%=1.31..n.samp%=|
00000940  73 61 6d 70 6c 65 61 64  64 72 25 28 73 25 29 0d  |sampleaddr%(s%).|
00000950  00 6f 1e f2 6c 6f 67 28  73 61 6d 70 25 2b 38 2c  |.o..log(samp%+8,|
00000960  73 61 6d 70 6c 65 6e 25  28 73 25 29 29 0d 00 70  |samplen%(s%))..p|
00000970  29 c8 99 22 4f 53 5f 47  42 50 42 22 2c 32 2c 46  |).."OS_GBPB",2,F|
00000980  25 2c 73 61 6d 70 25 2b  38 2c 73 61 6d 70 6c 65  |%,samp%+8,sample|
00000990  6e 25 28 73 25 29 0d 00  71 05 ed 0d 00 72 05 20  |n%(s%)..q....r. |
000009a0  0d 00 73 08 d9 23 46 25  0d 00 74 47 f1 27 27 22  |..s..#F%..tG.''"|
000009b0  43 68 6f 6f 73 65 20 66  69 6c 65 74 79 70 65 3a  |Choose filetype:|
000009c0  20 20 20 28 54 29 72 61  63 6b 65 72 20 28 43 42  |   (T)racker (CB|
000009d0  36 29 22 27 8a 31 39 29  3b 22 28 53 29 6f 75 6e  |6)"'.19);"(S)oun|
000009e0  64 74 72 61 63 6b 65 72  20 28 30 30 31 29 22 0d  |dtracker (001)".|
000009f0  00 75 36 f1 8a 31 39 29  3b 22 28 50 29 72 6f 74  |.u6..19);"(P)rot|
00000a00  72 61 63 6b 65 72 20 28  37 30 31 29 22 8a 31 39  |racker (701)".19|
00000a10  29 3b 22 54 65 28 51 29  20 4d 75 73 69 63 20 28  |);"Te(Q) Music (|
00000a20  43 43 35 29 22 0d 00 76  18 f1 8a 31 39 29 3b 22  |CC5)"..v...19);"|
00000a30  28 44 29 6f 6e 27 74 20  63 61 72 65 22 0d 00 77  |(D)on't care"..w|
00000a40  0a 6b 65 79 24 3d be 0d  00 78 16 6b 65 79 24 3d  |.key$=...x.key$=|
00000a50  bd 28 97 28 6b 65 79 24  29 84 33 32 29 0d 00 79  |.(.(key$).32)..y|
00000a60  0d 66 74 24 3d 22 30 30  30 22 0d 00 7a 0d c8 8e  |.ft$="000"..z...|
00000a70  20 6b 65 79 24 20 ca 0d  00 7b 12 c9 22 74 22 3a  | key$ ...{.."t":|
00000a80  66 74 24 3d 22 43 42 36  22 0d 00 7c 12 c9 22 73  |ft$="CB6"..|.."s|
00000a90  22 3a 66 74 24 3d 22 30  30 31 22 0d 00 7d 12 c9  |":ft$="001"..}..|
00000aa0  22 70 22 3a 66 74 24 3d  22 37 30 31 22 0d 00 7e  |"p":ft$="701"..~|
00000ab0  12 c9 22 71 22 3a 66 74  24 3d 22 43 43 35 22 0d  |.."q":ft$="CC5".|
00000ac0  00 7f 05 cb 0d 00 80 24  ff 22 53 65 74 54 79 70  |.......$."SetTyp|
00000ad0  65 20 22 2b 64 65 73 74  69 6e 61 74 69 6f 6e 24  |e "+destination$|
00000ae0  2b 22 20 22 2b 66 74 24  0d 00 81 05 ee 0d 00 82  |+" "+ft$........|
00000af0  05 20 0d 00 83 05 e0 0d  00 84 05 20 0d 00 85 1a  |. ......... ....|
00000b00  dd a4 66 69 6e 64 28 73  74 61 72 74 25 2c 73 74  |..find(start%,st|
00000b10  72 69 6e 67 24 29 0d 00  86 11 24 62 75 66 25 3d  |ring$)....$buf%=|
00000b20  73 74 72 69 6e 67 24 0d  00 87 11 21 73 74 61 72  |string$....!star|
00000b30  74 3d 73 74 61 72 74 25  0d 00 88 0e 3d ba 28 73  |t=start%....=.(s|
00000b40  65 61 72 63 68 29 0d 00  89 05 3a 0d 00 8a 16 dd  |earch)....:.....|
00000b50  f2 70 75 74 28 73 74 61  72 74 25 2c 6c 65 6e 25  |.put(start%,len%|
00000b60  29 0d 00 8b 07 ea 69 25  0d 00 8c 10 e3 69 25 3d  |).....i%.....i%=|
00000b70  30 b8 6c 65 6e 25 2d 31  0d 00 8d 12 d5 23 46 25  |0.len%-1.....#F%|
00000b80  2c 69 25 3f 73 74 61 72  74 25 0d 00 8e 05 ed 0d  |,i%?start%......|
00000b90  00 8f 05 e1 0d 00 90 05  3a 0d 00 91 0a dd f2 63  |........:......c|
00000ba0  6f 64 65 0d 00 92 0f de  20 63 6f 64 65 20 26 46  |ode..... code &F|
00000bb0  46 46 0d 00 93 0f e3 70  61 73 73 3d 30 b8 32 88  |FF.....pass=0.2.|
00000bc0  32 0d 00 94 0b 50 25 3d  63 6f 64 65 0d 00 95 0c  |2....P%=code....|
00000bd0  5b 4f 50 54 70 61 73 73  0d 00 96 05 20 0d 00 97  |[OPTpass.... ...|
00000be0  09 2e 62 75 66 25 0d 00  98 0a 45 51 55 44 20 30  |..buf%....EQUD 0|
00000bf0  0d 00 99 0a 45 51 55 44  20 30 0d 00 9a 05 20 0d  |....EQUD 0.... .|
00000c00  00 9b 13 2e 6d 6b 20 45  51 55 53 20 22 4d 2e 4b  |....mk EQUS "M.K|
00000c10  2e 22 0d 00 9c 15 2e 66  6c 74 38 20 45 51 55 53  |.".....flt8 EQUS|
00000c20  20 22 46 4c 54 38 22 0d  00 9d 05 20 0d 00 9e 11  | "FLT8".... ....|
00000c30  2e 73 74 61 72 74 20 45  51 55 44 20 30 0d 00 9f  |.start EQUD 0...|
00000c40  05 20 0d 00 a0 0b 2e 73  65 61 72 63 68 0d 00 a1  |. .....search...|
00000c50  10 4c 44 52 20 52 30 2c  73 74 61 72 74 0d 00 a2  |.LDR R0,start...|
00000c60  0f 4c 44 52 20 52 32 2c  62 75 66 25 0d 00 a3 09  |.LDR R2,buf%....|
00000c70  2e 6c 6f 6f 70 0d 00 a4  10 41 44 44 20 52 30 2c  |.loop....ADD R0,|
00000c80  52 30 2c 23 34 0d 00 a5  0f 4c 44 52 20 52 31 2c  |R0,#4....LDR R1,|
00000c90  5b 52 30 5d 0d 00 a6 0d  43 4d 50 20 52 31 2c 52  |[R0]....CMP R1,R|
00000ca0  32 0d 00 a7 0c 42 4e 45  20 6c 6f 6f 70 0d 00 a8  |2....BNE loop...|
00000cb0  05 20 0d 00 a9 0e 4d 4f  56 20 50 43 2c 52 31 34  |. ....MOV PC,R14|
00000cc0  0d 00 aa 05 20 0d 00 ab  15 2e 73 61 6d 70 73 74  |.... .....sampst|
00000cd0  61 72 74 20 45 51 55 44  20 30 0d 00 ac 13 2e 73  |art EQUD 0.....s|
00000ce0  61 6d 70 6c 65 6e 20 45  51 55 44 20 30 0d 00 ad  |amplen EQUD 0...|
00000cf0  16 2e 6c 6f 67 74 61 62  61 64 64 72 20 45 51 55  |..logtabaddr EQU|
00000d00  44 20 30 0d 00 ae 05 20  0d 00 af 0f 2e 63 6f 6e  |D 0.... .....con|
00000d10  76 65 72 74 6c 6f 67 0d  00 b0 12 4c 44 52 20 52  |vertlog....LDR R|
00000d20  30 2c 73 61 6d 70 6c 65  6e 0d 00 b1 14 4c 44 52  |0,samplen....LDR|
00000d30  20 52 31 2c 73 61 6d 70  73 74 61 72 74 0d 00 b2  | R1,sampstart...|
00000d40  15 4c 44 52 20 52 32 2c  6c 6f 67 74 61 62 61 64  |.LDR R2,logtabad|
00000d50  64 72 0d 00 b3 05 20 0d  00 b4 0c 2e 6c 6f 67 6c  |dr.... .....logl|
00000d60  6f 6f 70 0d 00 b5 10 53  55 42 20 52 30 2c 52 30  |oop....SUB R0,R0|
00000d70  2c 23 31 0d 00 b6 14 4c  44 52 42 20 52 31 32 2c  |,#1....LDRB R12,|
00000d80  5b 52 31 2c 52 30 5d 0d  00 b7 15 4c 44 52 42 20  |[R1,R0]....LDRB |
00000d90  52 31 31 2c 5b 52 32 2c  52 31 32 5d 0d 00 b8 14  |R11,[R2,R12]....|
00000da0  53 54 52 42 20 52 31 31  2c 5b 52 31 2c 52 30 5d  |STRB R11,[R1,R0]|
00000db0  0d 00 b9 05 20 0d 00 ba  0d 43 4d 50 20 52 30 2c  |.... ....CMP R0,|
00000dc0  23 30 0d 00 bb 0f 42 4e  45 20 6c 6f 67 6c 6f 6f  |#0....BNE logloo|
00000dd0  70 0d 00 bc 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |p....MOV PC,R14.|
00000de0  00 bd 05 5d 0d 00 be 05  ed 0d 00 bf 05 e1 0d 00  |...]............|
00000df0  c0 05 3a 0d 00 c1 19 dd  f2 6c 6f 67 28 73 74 61  |..:......log(sta|
00000e00  72 74 25 2c 6c 65 6e 67  74 68 25 29 0d 00 c2 30  |rt%,length%)...0|
00000e10  f1 8a 30 2c 61 74 25 29  3b 22 43 6f 6e 76 65 72  |..0,at%);"Conver|
00000e20  74 69 6e 67 20 73 61 6d  70 6c 65 20 22 3b 73 25  |ting sample ";s%|
00000e30  3b 22 2f 33 31 22 3b 89  28 31 35 29 0d 00 c3 26  |;"/31";.(15)...&|
00000e40  21 73 61 6d 70 6c 65 6e  3d 6c 65 6e 67 74 68 25  |!samplen=length%|
00000e50  3a 21 73 61 6d 70 73 74  61 72 74 3d 73 74 61 72  |:!sampstart=star|
00000e60  74 25 0d 00 c4 16 21 6c  6f 67 74 61 62 61 64 64  |t%....!logtabadd|
00000e70  72 3d 6c 6f 67 74 61 62  0d 00 c5 1c e7 20 6c 65  |r=logtab..... le|
00000e80  6e 67 74 68 25 3e 30 20  d6 20 63 6f 6e 76 65 72  |ngth%>0 . conver|
00000e90  74 6c 6f 67 0d 00 c6 05  e1 0d 00 c7 20 dd f2 63  |tlog........ ..c|
00000ea0  6f 6e 76 65 72 74 70 61  74 74 28 62 61 73 65 25  |onvertpatt(base%|
00000eb0  2c 6c 65 6e 67 74 68 25  29 0d 00 c8 43 ea 20 69  |,length%)...C. i|
00000ec0  25 2c 77 6f 72 64 25 2c  64 61 74 61 25 2c 63 6f  |%,word%,data%,co|
00000ed0  6d 6d 25 2c 73 61 6d 70  25 2c 70 69 74 63 68 25  |mm%,samp%,pitch%|
00000ee0  2c 62 79 74 65 31 25 2c  62 79 74 65 32 25 2c 62  |,byte1%,byte2%,b|
00000ef0  79 74 65 33 25 2c 62 79  74 65 34 25 0d 00 c9 38  |yte3%,byte4%...8|
00000f00  f1 8a 30 2c 61 74 25 29  3b 22 43 6f 6e 76 65 72  |..0,at%);"Conver|
00000f10  74 69 6e 67 20 70 61 74  74 65 72 6e 20 22 3b 70  |ting pattern ";p|
00000f20  25 3b 22 2f 22 3b 6e 70  61 74 74 73 25 3b 89 28  |%;"/";npatts%;.(|
00000f30  31 35 29 3b 0d 00 ca 15  e3 69 25 3d 30 b8 6c 65  |15);.....i%=0.le|
00000f40  6e 67 74 68 25 2d 34 88  34 0d 00 cb 14 64 61 74  |ngth%-4.4....dat|
00000f50  61 25 3d 62 61 73 65 25  3f 28 69 25 29 0d 00 cc  |a%=base%?(i%)...|
00000f60  19 61 72 63 63 6f 6d 6d  25 3d 62 61 73 65 25 3f  |.arccomm%=base%?|
00000f70  28 69 25 2b 31 29 0d 00  cd 11 c8 8e 20 61 72 63  |(i%+1)...... arc|
00000f80  63 6f 6d 6d 25 20 ca 0d  00 ce 12 c9 26 30 31 3a  |comm% ......&01:|
00000f90  63 6f 6d 6d 25 3d 26 30  31 0d 00 cf 12 c9 26 30  |comm%=&01.....&0|
00000fa0  32 3a 63 6f 6d 6d 25 3d  26 30 32 0d 00 d0 12 c9  |2:comm%=&02.....|
00000fb0  26 31 43 3a 63 6f 6d 6d  25 3d 26 30 46 0d 00 d1  |&1C:comm%=&0F...|
00000fc0  3a c9 26 30 45 3a 63 6f  6d 6d 25 3d 26 30 30 3a  |:.&0E:comm%=&00:|
00000fd0  64 61 74 61 25 3d 30 3a  f4 20 73 74 72 69 70 20  |data%=0:. strip |
00000fe0  6f 66 66 20 73 65 74 20  73 74 65 72 65 6f 20 63  |off set stereo c|
00000ff0  6f 6d 6d 61 6e 64 73 0d  00 d2 12 c9 26 31 31 3a  |ommands.....&11:|
00001000  63 6f 6d 6d 25 3d 26 30  41 0d 00 d3 12 c9 26 31  |comm%=&0A.....&1|
00001010  30 3a 63 6f 6d 6d 25 3d  26 30 34 0d 00 d4 12 c9  |0:comm%=&04.....|
00001020  26 31 46 3a 63 6f 6d 6d  25 3d 26 30 43 0d 00 d5  |&1F:comm%=&0C...|
00001030  12 c9 26 30 42 3a 63 6f  6d 6d 25 3d 26 30 44 0d  |..&0B:comm%=&0D.|
00001040  00 d6 12 c9 26 30 30 3a  63 6f 6d 6d 25 3d 26 30  |....&00:comm%=&0|
00001050  30 0d 00 d7 12 c9 26 31  30 3a 63 6f 6d 6d 25 3d  |0.....&10:comm%=|
00001060  26 30 41 0d 00 d8 05 7f  0d 00 d9 12 63 6f 6d 6d  |&0A.........comm|
00001070  25 3d 61 72 63 63 6f 6d  6d 25 0d 00 da 05 cb 0d  |%=arccomm%......|
00001080  00 db 16 73 61 6d 70 25  3d 62 61 73 65 25 3f 28  |...samp%=base%?(|
00001090  69 25 2b 32 29 0d 00 dc  17 70 69 74 63 68 25 3d  |i%+2)....pitch%=|
000010a0  62 61 73 65 25 3f 28 69  25 2b 33 29 0d 00 dd 27  |base%?(i%+3)...'|
000010b0  62 79 74 65 31 25 3d 30  3a 62 79 74 65 32 25 3d  |byte1%=0:byte2%=|
000010c0  30 3a 62 79 74 65 33 25  3d 30 3a 62 79 74 65 34  |0:byte3%=0:byte4|
000010d0  25 3d 30 0d 00 de 1d e7  20 63 6f 6d 6d 25 3d 26  |%=0..... comm%=&|
000010e0  30 43 20 64 61 74 61 25  3d 64 61 74 61 25 2f 34  |0C data%=data%/4|
000010f0  0d 00 df 10 62 79 74 65  34 25 3d 64 61 74 61 25  |....byte4%=data%|
00001100  0d 00 e0 18 62 79 74 65  33 25 3d 28 73 61 6d 70  |....byte3%=(samp|
00001110  25 80 31 35 29 3c 3c 34  0d 00 e1 1c 62 79 74 65  |%.15)<<4....byte|
00001120  33 25 3d 62 79 74 65 33  25 84 28 63 6f 6d 6d 25  |3%=byte3%.(comm%|
00001130  80 26 46 29 0d 00 e2 24  62 79 74 65 32 25 3d 28  |.&F)...$byte2%=(|
00001140  70 69 74 63 68 74 61 62  21 28 70 69 74 63 68 25  |pitchtab!(pitch%|
00001150  2a 34 29 29 80 26 46 46  0d 00 e3 2a 62 79 74 65  |*4)).&FF...*byte|
00001160  31 25 3d 28 28 70 69 74  63 68 74 61 62 21 28 70  |1%=((pitchtab!(p|
00001170  69 74 63 68 25 2a 34 29  29 80 26 46 30 30 29 3e  |itch%*4)).&F00)>|
00001180  3e 38 0d 00 e4 1d 62 79  74 65 31 25 3d 62 79 74  |>8....byte1%=byt|
00001190  65 31 25 84 28 73 61 6d  70 25 80 26 46 30 29 0d  |e1%.(samp%.&F0).|
000011a0  00 e5 19 3f 28 69 25 2b  74 65 6d 70 70 61 74 74  |...?(i%+temppatt|
000011b0  29 3d 62 79 74 65 31 25  0d 00 e6 1b 3f 28 74 65  |)=byte1%....?(te|
000011c0  6d 70 70 61 74 74 2b 69  25 2b 31 29 3d 62 79 74  |mppatt+i%+1)=byt|
000011d0  65 32 25 0d 00 e7 1b 3f  28 74 65 6d 70 70 61 74  |e2%....?(temppat|
000011e0  74 2b 69 25 2b 32 29 3d  62 79 74 65 33 25 0d 00  |t+i%+2)=byte3%..|
000011f0  e8 1b 3f 28 74 65 6d 70  70 61 74 74 2b 69 25 2b  |..?(temppatt+i%+|
00001200  33 29 3d 62 79 74 65 34  25 0d 00 e9 05 ed 0d 00  |3)=byte4%.......|
00001210  ea 05 e1 0d 00 eb 05 3a  0d 00 ec 11 dd f2 69 6e  |.......:......in|
00001220  69 74 70 69 74 63 68 65  73 0d 00 ed 08 f7 20 2b  |itpitches..... +|
00001230  30 0d 00 ee 0c e3 69 25  3d 31 b8 33 36 0d 00 ef  |0.....i%=1.36...|
00001240  11 f3 20 61 6d 69 67 61  77 65 69 72 64 25 0d 00  |.. amigaweird%..|
00001250  f0 1f 70 69 74 63 68 74  61 62 21 28 69 25 2a 34  |..pitchtab!(i%*4|
00001260  29 3d 61 6d 69 67 61 77  65 69 72 64 25 0d 00 f1  |)=amigaweird%...|
00001270  05 ed 0d 00 f2 0f 21 70  69 74 63 68 74 61 62 3d  |......!pitchtab=|
00001280  30 0d 00 f3 05 e1 0d 00  f4 05 3a 0d 00 f5 16 f4  |0.........:.....|
00001290  20 41 6d 69 67 61 20 70  69 74 63 68 20 64 61 74  | Amiga pitch dat|
000012a0  61 0d 00 f6 35 dc 20 38  35 36 2c 38 30 38 2c 37  |a...5. 856,808,7|
000012b0  36 32 2c 37 32 30 2c 36  37 38 2c 36 34 30 2c 36  |62,720,678,640,6|
000012c0  30 34 2c 35 37 30 2c 35  33 38 2c 35 30 38 2c 34  |04,570,538,508,4|
000012d0  38 30 2c 34 35 33 0d 00  f7 35 dc 20 34 32 38 2c  |80,453...5. 428,|
000012e0  34 30 34 2c 33 38 31 2c  33 36 30 2c 33 33 39 2c  |404,381,360,339,|
000012f0  33 32 30 2c 33 30 32 2c  32 38 35 2c 32 36 39 2c  |320,302,285,269,|
00001300  32 35 34 2c 32 34 30 2c  32 32 36 0d 00 f8 35 dc  |254,240,226...5.|
00001310  20 32 31 34 2c 32 30 32  2c 31 39 30 2c 31 38 30  | 214,202,190,180|
00001320  2c 31 37 30 2c 31 36 30  2c 31 35 31 2c 31 34 33  |,170,160,151,143|
00001330  2c 31 33 35 2c 31 32 37  2c 31 32 30 2c 31 31 33  |,135,127,120,113|
00001340  0d 00 f9 05 20 0d 00 fa  0f dd f2 69 6e 69 74 5f  |.... ......init_|
00001350  6c 6f 67 73 0d 00 fb 14  c8 99 22 48 6f 75 72 67  |logs......"Hourg|
00001360  6c 61 73 73 5f 4f 6e 22  0d 00 fc 08 f7 20 2b 30  |lass_On"..... +0|
00001370  0d 00 fd 0d e3 69 25 3d  30 b8 32 35 35 0d 00 fe  |.....i%=0.255...|
00001380  0b f3 20 64 61 74 61 25  0d 00 ff 13 6c 6f 67 74  |.. data%....logt|
00001390  61 62 3f 69 25 3d 64 61  74 61 25 0d 01 00 05 ed  |ab?i%=data%.....|
000013a0  0d 01 01 15 c8 99 22 48  6f 75 72 67 6c 61 73 73  |......"Hourglass|
000013b0  5f 4f 66 66 22 0d 01 02  05 e1 0d 01 03 05 3a 0d  |_Off".........:.|
000013c0  01 04 2a f4 20 41 72 63  68 69 6d 65 64 65 73 20  |..*. Archimedes |
000013d0  4c 6f 67 20 74 6f 20 41  6d 69 67 61 20 4c 69 6e  |Log to Amiga Lin|
000013e0  65 61 72 20 74 61 62 6c  65 0d 01 05 25 dc 20 30  |ear table...%. 0|
000013f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00001400  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 01  |,0,0,0,0,0,0,0..|
00001410  06 35 dc 20 30 2c 32 35  35 2c 30 2c 32 35 35 2c  |.5. 0,255,0,255,|
00001420  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,255,0,255,0,25|
00001430  35 2c 30 2c 32 35 35 2c  30 2c 32 35 35 2c 30 2c  |5,0,255,0,255,0,|
00001440  32 35 35 0d 01 07 35 dc  20 30 2c 32 35 35 2c 30  |255...5. 0,255,0|
00001450  2c 32 35 35 2c 30 2c 32  35 35 2c 30 2c 32 35 35  |,255,0,255,0,255|
00001460  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
00001470  35 35 2c 30 2c 32 35 35  0d 01 08 35 dc 20 31 2c  |55,0,255...5. 1,|
00001480  32 35 35 2c 31 2c 32 35  35 2c 31 2c 32 35 35 2c  |255,1,255,1,255,|
00001490  31 2c 32 35 35 2c 31 2c  32 35 34 2c 31 2c 32 35  |1,255,1,254,1,25|
000014a0  34 2c 31 2c 32 35 34 2c  31 2c 32 35 34 0d 01 09  |4,1,254,1,254...|
000014b0  35 dc 20 31 2c 32 35 34  2c 31 2c 32 35 34 2c 31  |5. 1,254,1,254,1|
000014c0  2c 32 35 34 2c 31 2c 32  35 34 2c 32 2c 32 35 34  |,254,1,254,2,254|
000014d0  2c 32 2c 32 35 34 2c 32  2c 32 35 33 2c 32 2c 32  |,2,254,2,253,2,2|
000014e0  35 33 0d 01 0a 35 dc 20  32 2c 32 35 33 2c 32 2c  |53...5. 2,253,2,|
000014f0  32 35 33 2c 32 2c 32 35  33 2c 32 2c 32 35 33 2c  |253,2,253,2,253,|
00001500  33 2c 32 35 33 2c 33 2c  32 35 33 2c 33 2c 32 35  |3,253,3,253,3,25|
00001510  32 2c 33 2c 32 35 32 0d  01 0b 35 dc 20 33 2c 32  |2,3,252...5. 3,2|
00001520  35 32 2c 33 2c 32 35 32  2c 34 2c 32 35 32 2c 34  |52,3,252,4,252,4|
00001530  2c 32 35 31 2c 34 2c 32  35 31 2c 34 2c 32 35 31  |,251,4,251,4,251|
00001540  2c 35 2c 32 35 31 2c 35  2c 32 35 30 0d 01 0c 35  |,5,251,5,250...5|
00001550  dc 20 35 2c 32 35 30 2c  35 2c 32 35 30 2c 36 2c  |. 5,250,5,250,6,|
00001560  32 35 30 2c 36 2c 32 34  39 2c 36 2c 32 34 39 2c  |250,6,249,6,249,|
00001570  36 2c 32 34 39 2c 37 2c  32 34 39 2c 37 2c 32 34  |6,249,7,249,7,24|
00001580  38 0d 01 0d 38 dc 20 37  2c 32 34 38 2c 38 2c 32  |8...8. 7,248,8,2|
00001590  34 38 2c 38 2c 32 34 37  2c 39 2c 32 34 37 2c 39  |48,8,247,9,247,9|
000015a0  2c 32 34 36 2c 31 30 2c  32 34 36 2c 31 30 2c 32  |,246,10,246,10,2|
000015b0  34 35 2c 31 31 2c 32 34  35 0d 01 0e 3d dc 20 31  |45,11,245...=. 1|
000015c0  31 2c 32 34 34 2c 31 32  2c 32 34 34 2c 31 32 2c  |1,244,12,244,12,|
000015d0  32 34 33 2c 31 33 2c 32  34 33 2c 31 33 2c 32 34  |243,13,243,13,24|
000015e0  32 2c 31 34 2c 32 34 32  2c 31 34 2c 32 34 31 2c  |2,14,242,14,241,|
000015f0  31 35 2c 32 34 31 0d 01  0f 3d dc 20 31 35 2c 32  |15,241...=. 15,2|
00001600  34 30 2c 31 36 2c 32 34  30 2c 31 37 2c 32 33 39  |40,16,240,17,239|
00001610  2c 31 38 2c 32 33 38 2c  31 39 2c 32 33 37 2c 32  |,18,238,19,237,2|
00001620  30 2c 32 33 36 2c 32 31  2c 32 33 35 2c 32 32 2c  |0,236,21,235,22,|
00001630  32 33 34 0d 01 10 3d dc  20 32 33 2c 32 33 33 2c  |234...=. 23,233,|
00001640  32 34 2c 32 33 32 2c 32  35 2c 32 33 31 2c 32 36  |24,232,25,231,26|
00001650  2c 32 33 30 2c 32 37 2c  32 32 39 2c 32 38 2c 32  |,230,27,229,28,2|
00001660  32 38 2c 32 39 2c 32 32  37 2c 33 30 2c 32 32 36  |28,29,227,30,226|
00001670  0d 01 11 3d dc 20 33 31  2c 32 32 35 2c 33 33 2c  |...=. 31,225,33,|
00001680  32 32 34 2c 33 35 2c 32  32 32 2c 33 37 2c 32 32  |224,35,222,37,22|
00001690  30 2c 33 39 2c 32 31 38  2c 34 31 2c 32 31 36 2c  |0,39,218,41,216,|
000016a0  34 33 2c 32 31 34 2c 34  35 2c 32 31 32 0d 01 12  |43,214,45,212...|
000016b0  3d dc 20 34 37 2c 32 31  30 2c 34 39 2c 32 30 38  |=. 47,210,49,208|
000016c0  2c 35 31 2c 32 30 36 2c  35 33 2c 32 30 34 2c 35  |,51,206,53,204,5|
000016d0  35 2c 32 30 32 2c 35 37  2c 32 30 30 2c 35 39 2c  |5,202,57,200,59,|
000016e0  31 39 38 2c 36 31 2c 31  39 36 0d 01 13 3d dc 20  |198,61,196...=. |
000016f0  36 33 2c 31 39 34 2c 36  37 2c 31 39 32 2c 37 31  |63,194,67,192,71|
00001700  2c 31 38 38 2c 37 35 2c  31 38 34 2c 37 39 2c 31  |,188,75,184,79,1|
00001710  38 30 2c 38 33 2c 31 37  36 2c 38 37 2c 31 37 32  |80,83,176,87,172|
00001720  2c 39 31 2c 31 36 38 0d  01 14 43 dc 20 39 35 2c  |,91,168...C. 95,|
00001730  31 36 34 2c 39 39 2c 31  36 30 2c 31 30 33 2c 31  |164,99,160,103,1|
00001740  35 36 2c 31 30 37 2c 31  35 32 2c 31 31 31 2c 31  |56,107,152,111,1|
00001750  34 38 2c 31 31 35 2c 31  34 34 2c 31 31 39 2c 31  |48,115,144,119,1|
00001760  34 30 2c 31 32 37 2c 31  33 36 0d ff              |40,127,136..|
0000176c