�>LibHandler
0�Produced by BasCompress v1.31 (18 Jan 1993)
ݤ_LibHandler_version=19
_��_hard_initialise_LibHandler(max_libs%,need_version%):�_LibHandler_version<need_version%�

�1,"EIL1"
�:�max_libs%<1�

�1,"EIL2"
��:max_library_files%=max_libs%:�library_names$(max_library_files%-1):�library_versions%(max_library_files%-1):num_library_files%=0:�__error_buf%256:Num_Lib_Error_Levels%=40:Lib_Error_Level%=0:On_Lib_Error_MODE%=12:On_Lib_Error_Continue%=�
	V�Lib_Errors$(Num_Lib_Error_Levels%-1):Wimp_Active%=�:Debug_Wimp%=�:Debug_Eval%=�:�

���_load_library(library$,version%):�load%,i%,leaf$,e$:i%=0:load%=�:leaf$=�library$,1+�library$,".")):ȕi%<num_library_files%�load%:load%=(leaf$<>library_names$(i%)):�load%�
	i%+=1
�:�:�load%�

�i%=max_library_files%�

�1,"EIL3"
s�:library_names$(i%)=leaf$:țlibrary$:e$="'"+library$+"' does not have a FN_":�:��:�_e(e$+leaf$+"_version")
wlibrary_versions%(i%)=�("FN_"+leaf$+"_version"):��:num_library_files%+=1:�:��:�_e(e$+"_hard_initialise_"+leaf$)
$�("FN_hard_initialise_"+leaf$)�
�1,"EIL5 "+library$
�:��
&�:�version%>library_versions%(i%)�
�1,"EIL4 "+library$
�:�
=��_load_ARM_Object_library(library$,version%):�1,"EIL6":�
C��_hard_init_assemble_library(max_routines%):�max_routines%<=0�

�1,"EIL7"
��:�library_assembler$(max_routines%):max_library_assembler%=max_routines%:pass_1_library_assembler%=0:pass_2_library_assembler%=0:�
?��_assemble_library(routine$):�i%,found%,num%:�(pass%�2)=0�
"num%=pass_1_library_assembler%
$�:num%=pass_2_library_assembler%
M�:i%=0:ȕ(i%<num%)�(routine$<>library_assembler$(i%)):i%+=1:�:�(i%=num%)�
)�i%>=max_library_assembler%��1,"EIL8"
 1library_assembler$(i%)=routine$:�(pass%�2)=0�
! pass_1_library_assembler%+=1
""�:pass_2_library_assembler%+=1
#*�:�:��:�_e("("""+routine$+"""): ")
$$i%=�("FN_assemble_"+routine$):��
%�:�
&���_debug_assemble_library:�"Debug assemble library":�:�"Current pass% of assembler: &";~pass%:p1%=pass_1_library_assembler%:p2%=pass_2_library_assembler%:�(pass%�2)=0�
'`�"Have stored, so far during pass 1, ";p1%;" routines.":�_debug_assemble_library_show(0,p1%)
(F�:�"During pass 1, stored a total of ";p1%;" routines.":�pass%<>0�
)8�"So far, during pass 2 stored    ";p2%;" routines."
*;�:�"During pass 2, stored a total of ";p2%;" routines."
+k�:�_debug_assemble_library_show(0,p1%):�"----------------------":�_debug_assemble_library_show(p1%,p2%)
,
�:�"OK":�
-S��_debug_assemble_library_show(s%,e%):ȕs%<e%:�library_assembler$(s%):s%+=1:�:�
.'ݤeval(__eval$):�:��:�evalError
/=�(__eval$)
0��evalError:�Debug_Eval%�
12��,�$+" (evaluating `"+__eval$+"' ["+�(�)+"])"
2�:��,�$
3�:�
4/ݤgetz(A%):�A$:ȕ?A%:A$+=�(?A%):A%+=1:�:=A$
5?ݤgetzn(A%,B%):�A$:ȕB%>=1�?A%:A$+=�(?A%):A%+=1:B%-=1:�:=A$
62ݤgets(A%):�A$:ȕ?A%>31:A$+=�(?A%):A%+=1:�:=A$
7<ݤgetsn(A%,B%):�A$:ȕB%>=1�?A%>31:A$+=�(?A%):A%+=1:�:=A$
8%��putz(A%,A$):$A%=A$:A%?�(A$)=0:�
9!��putzn(A%,A$,B%):�(A$)<=B%�
:($A%=�A$,B%-1):A%?(B%-1)=�(�A$,B%,1))
;�:$A%=A$:A%?�(A$)=0
<�:�
=D��_load_assemble_library(library$,version%,routine$):�1,"EIL9":�
>!��_e(routine$):�Wimp_Active%�
?�Debug_Wimp%�
@��,�$+" ["+Þ+"]."
A�:��,�$
B�
C�:�On_Lib_Error_Continue%�
D,�Lib_Error_Level%=Num_Lib_Error_Levels%�
EULib_Errors(Num_Lib_Error_Levels%-1)="Errors too deep!!!!!":�_handle_library_error
F�:��routine$,2)=": "�
G%routine$=�routine$,�(routine$)-2)
H�:�Debug_Wimp%�
I$Lib_Errors$(Lib_Error_Level%)=�$
J�:�Lib_Error_Level%=0�
K�Lib_Errors$(Lib_Error_Level%)="Error `"+�$+"' (line ":Lib_Errors$(Lib_Error_Level%)+=�(�)+") in ":Lib_Errors$(Lib_Error_Level%)+="`"+routine$+"'"
L4�:Lib_Errors$(Lib_Error_Level%)="`"+routine$+"'"
M�
N�:Lib_Error_Level%+=1:��,""
O�
P�:�
Q5��_handle_library_error:�iii%,eee$:�Wimp_Active%�
R�Debug_Wimp%�
S8�_Wimp_Error(�,�$+" ["+�(�)+"]."):�_Wimp_CloseDown:�
T.�:�_Wimp_Error(�,�$):�=Wimp_Error_Fatal%�
U�_Wimp_CloseDown:�
V�
W�
X�:�On_Lib_Error_MODE%=-2�
Y�Lib_Error_Level%>0�
Z���,Lib_Errors$(0)
[�:���,�$
\�:�
]�:�On_Lib_Error_MODE%=-3�
^X$__error_buf%="TASK":ș&400c0,200,!__error_buf%,"LibHandler"+�(0):�Lib_Error_Level%�
_:�iii%=0�Lib_Error_Level%-1:�iii%<(Lib_Error_Level%-1)�
`#�__out(Lib_Errors$(iii%)+" in")
a�:�__out(Lib_Errors$(iii%))
b�:�iii%
c#�:�__out(�$+" (line "+�(�)+")")
d�:ș&600dd:�
e�:�On_Lib_Error_MODE%>=0�
f�On_Lib_Error_MODE%
g5�:�"An error has occured...":�:�Lib_Error_Level%�
hc�iii%=0�Lib_Error_Level%-1:�((7-(iii%<<1))�6)+1:�Lib_Errors$(iii%);:�iii%<(Lib_Error_Level%-1)�
i�" in ";
j�:�iii%
k�:�$;" (line ";�(�);")"
l�:�:�7:�
m�:�
n���__out(message$):�l%:l%=20+(�(message$)+5)�-4:!__error_buf%=l%:__error_buf%!16=&804c0:$(__error_buf%+20)=message$+�(10)+�(0):ș&600e7,17,__error_buf%,0:�
�

00000000  0d 00 01 10 f4 3e 4c 69  62 48 61 6e 64 6c 65 72  |.....>LibHandler|
00000010  0d 00 02 30 f4 50 72 6f  64 75 63 65 64 20 62 79  |...0.Produced by|
00000020  20 42 61 73 43 6f 6d 70  72 65 73 73 20 76 31 2e  | BasCompress v1.|
00000030  33 31 20 28 31 38 20 4a  61 6e 20 31 39 39 33 29  |31 (18 Jan 1993)|
00000040  0d 00 03 1c dd a4 5f 4c  69 62 48 61 6e 64 6c 65  |......_LibHandle|
00000050  72 5f 76 65 72 73 69 6f  6e 3d 31 39 0d 00 04 5f  |r_version=19..._|
00000060  dd f2 5f 68 61 72 64 5f  69 6e 69 74 69 61 6c 69  |.._hard_initiali|
00000070  73 65 5f 4c 69 62 48 61  6e 64 6c 65 72 28 6d 61  |se_LibHandler(ma|
00000080  78 5f 6c 69 62 73 25 2c  6e 65 65 64 5f 76 65 72  |x_libs%,need_ver|
00000090  73 69 6f 6e 25 29 3a e7  a4 5f 4c 69 62 48 61 6e  |sion%):.._LibHan|
000000a0  64 6c 65 72 5f 76 65 72  73 69 6f 6e 3c 6e 65 65  |dler_version<nee|
000000b0  64 5f 76 65 72 73 69 6f  6e 25 8c 0d 00 05 0d 85  |d_version%......|
000000c0  31 2c 22 45 49 4c 31 22  0d 00 06 13 cd 3a e7 6d  |1,"EIL1".....:.m|
000000d0  61 78 5f 6c 69 62 73 25  3c 31 8c 0d 00 07 0d 85  |ax_libs%<1......|
000000e0  31 2c 22 45 49 4c 32 22  0d 00 08 f2 cd 3a 6d 61  |1,"EIL2".....:ma|
000000f0  78 5f 6c 69 62 72 61 72  79 5f 66 69 6c 65 73 25  |x_library_files%|
00000100  3d 6d 61 78 5f 6c 69 62  73 25 3a de 6c 69 62 72  |=max_libs%:.libr|
00000110  61 72 79 5f 6e 61 6d 65  73 24 28 6d 61 78 5f 6c  |ary_names$(max_l|
00000120  69 62 72 61 72 79 5f 66  69 6c 65 73 25 2d 31 29  |ibrary_files%-1)|
00000130  3a de 6c 69 62 72 61 72  79 5f 76 65 72 73 69 6f  |:.library_versio|
00000140  6e 73 25 28 6d 61 78 5f  6c 69 62 72 61 72 79 5f  |ns%(max_library_|
00000150  66 69 6c 65 73 25 2d 31  29 3a 6e 75 6d 5f 6c 69  |files%-1):num_li|
00000160  62 72 61 72 79 5f 66 69  6c 65 73 25 3d 30 3a de  |brary_files%=0:.|
00000170  5f 5f 65 72 72 6f 72 5f  62 75 66 25 32 35 36 3a  |__error_buf%256:|
00000180  4e 75 6d 5f 4c 69 62 5f  45 72 72 6f 72 5f 4c 65  |Num_Lib_Error_Le|
00000190  76 65 6c 73 25 3d 34 30  3a 4c 69 62 5f 45 72 72  |vels%=40:Lib_Err|
000001a0  6f 72 5f 4c 65 76 65 6c  25 3d 30 3a 4f 6e 5f 4c  |or_Level%=0:On_L|
000001b0  69 62 5f 45 72 72 6f 72  5f 4d 4f 44 45 25 3d 31  |ib_Error_MODE%=1|
000001c0  32 3a 4f 6e 5f 4c 69 62  5f 45 72 72 6f 72 5f 43  |2:On_Lib_Error_C|
000001d0  6f 6e 74 69 6e 75 65 25  3d a3 0d 00 09 56 de 4c  |ontinue%=....V.L|
000001e0  69 62 5f 45 72 72 6f 72  73 24 28 4e 75 6d 5f 4c  |ib_Errors$(Num_L|
000001f0  69 62 5f 45 72 72 6f 72  5f 4c 65 76 65 6c 73 25  |ib_Error_Levels%|
00000200  2d 31 29 3a 57 69 6d 70  5f 41 63 74 69 76 65 25  |-1):Wimp_Active%|
00000210  3d a3 3a 44 65 62 75 67  5f 57 69 6d 70 25 3d a3  |=.:Debug_Wimp%=.|
00000220  3a 44 65 62 75 67 5f 45  76 61 6c 25 3d b9 3a e1  |:Debug_Eval%=.:.|
00000230  0d 00 0a b0 dd f2 5f 6c  6f 61 64 5f 6c 69 62 72  |......_load_libr|
00000240  61 72 79 28 6c 69 62 72  61 72 79 24 2c 76 65 72  |ary(library$,ver|
00000250  73 69 6f 6e 25 29 3a ea  6c 6f 61 64 25 2c 69 25  |sion%):.load%,i%|
00000260  2c 6c 65 61 66 24 2c 65  24 3a 69 25 3d 30 3a 6c  |,leaf$,e$:i%=0:l|
00000270  6f 61 64 25 3d b9 3a 6c  65 61 66 24 3d c1 6c 69  |oad%=.:leaf$=.li|
00000280  62 72 61 72 79 24 2c 31  2b a7 6c 69 62 72 61 72  |brary$,1+.librar|
00000290  79 24 2c 22 2e 22 29 29  3a c8 95 69 25 3c 6e 75  |y$,".")):..i%<nu|
000002a0  6d 5f 6c 69 62 72 61 72  79 5f 66 69 6c 65 73 25  |m_library_files%|
000002b0  80 6c 6f 61 64 25 3a 6c  6f 61 64 25 3d 28 6c 65  |.load%:load%=(le|
000002c0  61 66 24 3c 3e 6c 69 62  72 61 72 79 5f 6e 61 6d  |af$<>library_nam|
000002d0  65 73 24 28 69 25 29 29  3a e7 6c 6f 61 64 25 8c  |es$(i%)):.load%.|
000002e0  0d 00 0b 09 69 25 2b 3d  31 0d 00 0c 0f cd 3a ce  |....i%+=1.....:.|
000002f0  3a e7 6c 6f 61 64 25 8c  0d 00 0d 1b e7 69 25 3d  |:.load%......i%=|
00000300  6d 61 78 5f 6c 69 62 72  61 72 79 5f 66 69 6c 65  |max_library_file|
00000310  73 25 8c 0d 00 0e 0d 85  31 2c 22 45 49 4c 33 22  |s%......1,"EIL3"|
00000320  0d 00 0f 73 cd 3a 6c 69  62 72 61 72 79 5f 6e 61  |...s.:library_na|
00000330  6d 65 73 24 28 69 25 29  3d 6c 65 61 66 24 3a c8  |mes$(i%)=leaf$:.|
00000340  9b 6c 69 62 72 61 72 79  24 3a 65 24 3d 22 27 22  |.library$:e$="'"|
00000350  2b 6c 69 62 72 61 72 79  24 2b 22 27 20 64 6f 65  |+library$+"' doe|
00000360  73 20 6e 6f 74 20 68 61  76 65 20 61 20 46 4e 5f  |s not have a FN_|
00000370  22 3a ea 85 3a ee 85 ea  f7 85 3a f2 5f 65 28 65  |":..:.....:._e(e|
00000380  24 2b 6c 65 61 66 24 2b  22 5f 76 65 72 73 69 6f  |$+leaf$+"_versio|
00000390  6e 22 29 0d 00 10 77 6c  69 62 72 61 72 79 5f 76  |n")...wlibrary_v|
000003a0  65 72 73 69 6f 6e 73 25  28 69 25 29 3d a0 28 22  |ersions%(i%)=.("|
000003b0  46 4e 5f 22 2b 6c 65 61  66 24 2b 22 5f 76 65 72  |FN_"+leaf$+"_ver|
000003c0  73 69 6f 6e 22 29 3a f7  85 3a 6e 75 6d 5f 6c 69  |sion"):..:num_li|
000003d0  62 72 61 72 79 5f 66 69  6c 65 73 25 2b 3d 31 3a  |brary_files%+=1:|
000003e0  ea 85 3a ee 85 ea f7 85  3a f2 5f 65 28 65 24 2b  |..:.....:._e(e$+|
000003f0  22 5f 68 61 72 64 5f 69  6e 69 74 69 61 6c 69 73  |"_hard_initialis|
00000400  65 5f 22 2b 6c 65 61 66  24 29 0d 00 11 24 e7 a0  |e_"+leaf$)...$..|
00000410  28 22 46 4e 5f 68 61 72  64 5f 69 6e 69 74 69 61  |("FN_hard_initia|
00000420  6c 69 73 65 5f 22 2b 6c  65 61 66 24 29 8c 0d 00  |lise_"+leaf$)...|
00000430  12 17 85 31 2c 22 45 49  4c 35 20 22 2b 6c 69 62  |...1,"EIL5 "+lib|
00000440  72 61 72 79 24 0d 00 13  08 cd 3a f7 85 0d 00 14  |rary$.....:.....|
00000450  26 cd 3a e7 76 65 72 73  69 6f 6e 25 3e 6c 69 62  |&.:.version%>lib|
00000460  72 61 72 79 5f 76 65 72  73 69 6f 6e 73 25 28 69  |rary_versions%(i|
00000470  25 29 8c 0d 00 15 17 85  31 2c 22 45 49 4c 34 20  |%)......1,"EIL4 |
00000480  22 2b 6c 69 62 72 61 72  79 24 0d 00 16 07 cd 3a  |"+library$.....:|
00000490  e1 0d 00 17 3d dd f2 5f  6c 6f 61 64 5f 41 52 4d  |....=.._load_ARM|
000004a0  5f 4f 62 6a 65 63 74 5f  6c 69 62 72 61 72 79 28  |_Object_library(|
000004b0  6c 69 62 72 61 72 79 24  2c 76 65 72 73 69 6f 6e  |library$,version|
000004c0  25 29 3a 85 31 2c 22 45  49 4c 36 22 3a e1 0d 00  |%):.1,"EIL6":...|
000004d0  18 43 dd f2 5f 68 61 72  64 5f 69 6e 69 74 5f 61  |.C.._hard_init_a|
000004e0  73 73 65 6d 62 6c 65 5f  6c 69 62 72 61 72 79 28  |ssemble_library(|
000004f0  6d 61 78 5f 72 6f 75 74  69 6e 65 73 25 29 3a e7  |max_routines%):.|
00000500  6d 61 78 5f 72 6f 75 74  69 6e 65 73 25 3c 3d 30  |max_routines%<=0|
00000510  8c 0d 00 19 0d 85 31 2c  22 45 49 4c 37 22 0d 00  |......1,"EIL7"..|
00000520  1a 87 cd 3a de 6c 69 62  72 61 72 79 5f 61 73 73  |...:.library_ass|
00000530  65 6d 62 6c 65 72 24 28  6d 61 78 5f 72 6f 75 74  |embler$(max_rout|
00000540  69 6e 65 73 25 29 3a 6d  61 78 5f 6c 69 62 72 61  |ines%):max_libra|
00000550  72 79 5f 61 73 73 65 6d  62 6c 65 72 25 3d 6d 61  |ry_assembler%=ma|
00000560  78 5f 72 6f 75 74 69 6e  65 73 25 3a 70 61 73 73  |x_routines%:pass|
00000570  5f 31 5f 6c 69 62 72 61  72 79 5f 61 73 73 65 6d  |_1_library_assem|
00000580  62 6c 65 72 25 3d 30 3a  70 61 73 73 5f 32 5f 6c  |bler%=0:pass_2_l|
00000590  69 62 72 61 72 79 5f 61  73 73 65 6d 62 6c 65 72  |ibrary_assembler|
000005a0  25 3d 30 3a e1 0d 00 1b  3f dd f2 5f 61 73 73 65  |%=0:....?.._asse|
000005b0  6d 62 6c 65 5f 6c 69 62  72 61 72 79 28 72 6f 75  |mble_library(rou|
000005c0  74 69 6e 65 24 29 3a ea  69 25 2c 66 6f 75 6e 64  |tine$):.i%,found|
000005d0  25 2c 6e 75 6d 25 3a e7  28 70 61 73 73 25 80 32  |%,num%:.(pass%.2|
000005e0  29 3d 30 8c 0d 00 1c 22  6e 75 6d 25 3d 70 61 73  |)=0...."num%=pas|
000005f0  73 5f 31 5f 6c 69 62 72  61 72 79 5f 61 73 73 65  |s_1_library_asse|
00000600  6d 62 6c 65 72 25 0d 00  1d 24 cc 3a 6e 75 6d 25  |mbler%...$.:num%|
00000610  3d 70 61 73 73 5f 32 5f  6c 69 62 72 61 72 79 5f  |=pass_2_library_|
00000620  61 73 73 65 6d 62 6c 65  72 25 0d 00 1e 4d cd 3a  |assembler%...M.:|
00000630  69 25 3d 30 3a c8 95 28  69 25 3c 6e 75 6d 25 29  |i%=0:..(i%<num%)|
00000640  80 28 72 6f 75 74 69 6e  65 24 3c 3e 6c 69 62 72  |.(routine$<>libr|
00000650  61 72 79 5f 61 73 73 65  6d 62 6c 65 72 24 28 69  |ary_assembler$(i|
00000660  25 29 29 3a 69 25 2b 3d  31 3a ce 3a e7 28 69 25  |%)):i%+=1:.:.(i%|
00000670  3d 6e 75 6d 25 29 8c 0d  00 1f 29 e7 69 25 3e 3d  |=num%)....).i%>=|
00000680  6d 61 78 5f 6c 69 62 72  61 72 79 5f 61 73 73 65  |max_library_asse|
00000690  6d 62 6c 65 72 25 8c 85  31 2c 22 45 49 4c 38 22  |mbler%..1,"EIL8"|
000006a0  0d 00 20 31 6c 69 62 72  61 72 79 5f 61 73 73 65  |.. 1library_asse|
000006b0  6d 62 6c 65 72 24 28 69  25 29 3d 72 6f 75 74 69  |mbler$(i%)=routi|
000006c0  6e 65 24 3a e7 28 70 61  73 73 25 80 32 29 3d 30  |ne$:.(pass%.2)=0|
000006d0  8c 0d 00 21 20 70 61 73  73 5f 31 5f 6c 69 62 72  |...! pass_1_libr|
000006e0  61 72 79 5f 61 73 73 65  6d 62 6c 65 72 25 2b 3d  |ary_assembler%+=|
000006f0  31 0d 00 22 22 cc 3a 70  61 73 73 5f 32 5f 6c 69  |1.."".:pass_2_li|
00000700  62 72 61 72 79 5f 61 73  73 65 6d 62 6c 65 72 25  |brary_assembler%|
00000710  2b 3d 31 0d 00 23 2a cd  3a ea 85 3a ee 85 ea f7  |+=1..#*.:..:....|
00000720  85 3a f2 5f 65 28 22 28  22 22 22 2b 72 6f 75 74  |.:._e("("""+rout|
00000730  69 6e 65 24 2b 22 22 22  29 3a 20 22 29 0d 00 24  |ine$+"""): ")..$|
00000740  24 69 25 3d a0 28 22 46  4e 5f 61 73 73 65 6d 62  |$i%=.("FN_assemb|
00000750  6c 65 5f 22 2b 72 6f 75  74 69 6e 65 24 29 3a f7  |le_"+routine$):.|
00000760  85 0d 00 25 07 cd 3a e1  0d 00 26 ab dd f2 5f 64  |...%..:...&..._d|
00000770  65 62 75 67 5f 61 73 73  65 6d 62 6c 65 5f 6c 69  |ebug_assemble_li|
00000780  62 72 61 72 79 3a f1 22  44 65 62 75 67 20 61 73  |brary:."Debug as|
00000790  73 65 6d 62 6c 65 20 6c  69 62 72 61 72 79 22 3a  |semble library":|
000007a0  f1 3a f1 22 43 75 72 72  65 6e 74 20 70 61 73 73  |.:."Current pass|
000007b0  25 20 6f 66 20 61 73 73  65 6d 62 6c 65 72 3a 20  |% of assembler: |
000007c0  26 22 3b 7e 70 61 73 73  25 3a 70 31 25 3d 70 61  |&";~pass%:p1%=pa|
000007d0  73 73 5f 31 5f 6c 69 62  72 61 72 79 5f 61 73 73  |ss_1_library_ass|
000007e0  65 6d 62 6c 65 72 25 3a  70 32 25 3d 70 61 73 73  |embler%:p2%=pass|
000007f0  5f 32 5f 6c 69 62 72 61  72 79 5f 61 73 73 65 6d  |_2_library_assem|
00000800  62 6c 65 72 25 3a e7 28  70 61 73 73 25 80 32 29  |bler%:.(pass%.2)|
00000810  3d 30 8c 0d 00 27 60 f1  22 48 61 76 65 20 73 74  |=0...'`."Have st|
00000820  6f 72 65 64 2c 20 73 6f  20 66 61 72 20 64 75 72  |ored, so far dur|
00000830  69 6e 67 20 70 61 73 73  20 31 2c 20 22 3b 70 31  |ing pass 1, ";p1|
00000840  25 3b 22 20 72 6f 75 74  69 6e 65 73 2e 22 3a f2  |%;" routines.":.|
00000850  5f 64 65 62 75 67 5f 61  73 73 65 6d 62 6c 65 5f  |_debug_assemble_|
00000860  6c 69 62 72 61 72 79 5f  73 68 6f 77 28 30 2c 70  |library_show(0,p|
00000870  31 25 29 0d 00 28 46 cc  3a f1 22 44 75 72 69 6e  |1%)..(F.:."Durin|
00000880  67 20 70 61 73 73 20 31  2c 20 73 74 6f 72 65 64  |g pass 1, stored|
00000890  20 61 20 74 6f 74 61 6c  20 6f 66 20 22 3b 70 31  | a total of ";p1|
000008a0  25 3b 22 20 72 6f 75 74  69 6e 65 73 2e 22 3a e7  |%;" routines.":.|
000008b0  70 61 73 73 25 3c 3e 30  8c 0d 00 29 38 f1 22 53  |pass%<>0...)8."S|
000008c0  6f 20 66 61 72 2c 20 64  75 72 69 6e 67 20 70 61  |o far, during pa|
000008d0  73 73 20 32 20 73 74 6f  72 65 64 20 20 20 20 22  |ss 2 stored    "|
000008e0  3b 70 32 25 3b 22 20 72  6f 75 74 69 6e 65 73 2e  |;p2%;" routines.|
000008f0  22 0d 00 2a 3b cc 3a f1  22 44 75 72 69 6e 67 20  |"..*;.:."During |
00000900  70 61 73 73 20 32 2c 20  73 74 6f 72 65 64 20 61  |pass 2, stored a|
00000910  20 74 6f 74 61 6c 20 6f  66 20 22 3b 70 32 25 3b  | total of ";p2%;|
00000920  22 20 72 6f 75 74 69 6e  65 73 2e 22 0d 00 2b 6b  |" routines."..+k|
00000930  cd 3a f2 5f 64 65 62 75  67 5f 61 73 73 65 6d 62  |.:._debug_assemb|
00000940  6c 65 5f 6c 69 62 72 61  72 79 5f 73 68 6f 77 28  |le_library_show(|
00000950  30 2c 70 31 25 29 3a f1  22 2d 2d 2d 2d 2d 2d 2d  |0,p1%):."-------|
00000960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 22  |---------------"|
00000970  3a f2 5f 64 65 62 75 67  5f 61 73 73 65 6d 62 6c  |:._debug_assembl|
00000980  65 5f 6c 69 62 72 61 72  79 5f 73 68 6f 77 28 70  |e_library_show(p|
00000990  31 25 2c 70 32 25 29 0d  00 2c 0d cd 3a f1 22 4f  |1%,p2%)..,..:."O|
000009a0  4b 22 3a e1 0d 00 2d 53  dd f2 5f 64 65 62 75 67  |K":...-S.._debug|
000009b0  5f 61 73 73 65 6d 62 6c  65 5f 6c 69 62 72 61 72  |_assemble_librar|
000009c0  79 5f 73 68 6f 77 28 73  25 2c 65 25 29 3a c8 95  |y_show(s%,e%):..|
000009d0  73 25 3c 65 25 3a f1 6c  69 62 72 61 72 79 5f 61  |s%<e%:.library_a|
000009e0  73 73 65 6d 62 6c 65 72  24 28 73 25 29 3a 73 25  |ssembler$(s%):s%|
000009f0  2b 3d 31 3a ce 3a e1 0d  00 2e 27 dd a4 65 76 61  |+=1:.:....'..eva|
00000a00  6c 28 5f 5f 65 76 61 6c  24 29 3a ea 85 3a ee 85  |l(__eval$):..:..|
00000a10  ea f7 85 3a f2 65 76 61  6c 45 72 72 6f 72 0d 00  |...:.evalError..|
00000a20  2f 0f 3d a0 28 5f 5f 65  76 61 6c 24 29 0d 00 30  |/.=.(__eval$)..0|
00000a30  1d dd f2 65 76 61 6c 45  72 72 6f 72 3a e7 44 65  |...evalError:.De|
00000a40  62 75 67 5f 45 76 61 6c  25 8c 0d 00 31 32 85 9f  |bug_Eval%...12..|
00000a50  2c f6 24 2b 22 20 28 65  76 61 6c 75 61 74 69 6e  |,.$+" (evaluatin|
00000a60  67 20 60 22 2b 5f 5f 65  76 61 6c 24 2b 22 27 20  |g `"+__eval$+"' |
00000a70  5b 22 2b c3 28 9e 29 2b  22 5d 29 22 0d 00 32 0b  |["+.(.)+"])"..2.|
00000a80  cc 3a 85 9f 2c f6 24 0d  00 33 07 cd 3a e1 0d 00  |.:..,.$..3..:...|
00000a90  34 2f dd a4 67 65 74 7a  28 41 25 29 3a ea 41 24  |4/..getz(A%):.A$|
00000aa0  3a c8 95 3f 41 25 3a 41  24 2b 3d bd 28 3f 41 25  |:..?A%:A$+=.(?A%|
00000ab0  29 3a 41 25 2b 3d 31 3a  ce 3a 3d 41 24 0d 00 35  |):A%+=1:.:=A$..5|
00000ac0  3f dd a4 67 65 74 7a 6e  28 41 25 2c 42 25 29 3a  |?..getzn(A%,B%):|
00000ad0  ea 41 24 3a c8 95 42 25  3e 3d 31 80 3f 41 25 3a  |.A$:..B%>=1.?A%:|
00000ae0  41 24 2b 3d bd 28 3f 41  25 29 3a 41 25 2b 3d 31  |A$+=.(?A%):A%+=1|
00000af0  3a 42 25 2d 3d 31 3a ce  3a 3d 41 24 0d 00 36 32  |:B%-=1:.:=A$..62|
00000b00  dd a4 67 65 74 73 28 41  25 29 3a ea 41 24 3a c8  |..gets(A%):.A$:.|
00000b10  95 3f 41 25 3e 33 31 3a  41 24 2b 3d bd 28 3f 41  |.?A%>31:A$+=.(?A|
00000b20  25 29 3a 41 25 2b 3d 31  3a ce 3a 3d 41 24 0d 00  |%):A%+=1:.:=A$..|
00000b30  37 3c dd a4 67 65 74 73  6e 28 41 25 2c 42 25 29  |7<..getsn(A%,B%)|
00000b40  3a ea 41 24 3a c8 95 42  25 3e 3d 31 80 3f 41 25  |:.A$:..B%>=1.?A%|
00000b50  3e 33 31 3a 41 24 2b 3d  bd 28 3f 41 25 29 3a 41  |>31:A$+=.(?A%):A|
00000b60  25 2b 3d 31 3a ce 3a 3d  41 24 0d 00 38 25 dd f2  |%+=1:.:=A$..8%..|
00000b70  70 75 74 7a 28 41 25 2c  41 24 29 3a 24 41 25 3d  |putz(A%,A$):$A%=|
00000b80  41 24 3a 41 25 3f a9 28  41 24 29 3d 30 3a e1 0d  |A$:A%?.(A$)=0:..|
00000b90  00 39 21 dd f2 70 75 74  7a 6e 28 41 25 2c 41 24  |.9!..putzn(A%,A$|
00000ba0  2c 42 25 29 3a e7 a9 28  41 24 29 3c 3d 42 25 8c  |,B%):..(A$)<=B%.|
00000bb0  0d 00 3a 28 24 41 25 3d  c0 41 24 2c 42 25 2d 31  |..:($A%=.A$,B%-1|
00000bc0  29 3a 41 25 3f 28 42 25  2d 31 29 3d 97 28 c1 41  |):A%?(B%-1)=.(.A|
00000bd0  24 2c 42 25 2c 31 29 29  0d 00 3b 17 cc 3a 24 41  |$,B%,1))..;..:$A|
00000be0  25 3d 41 24 3a 41 25 3f  a9 28 41 24 29 3d 30 0d  |%=A$:A%?.(A$)=0.|
00000bf0  00 3c 07 cd 3a e1 0d 00  3d 44 dd f2 5f 6c 6f 61  |.<..:...=D.._loa|
00000c00  64 5f 61 73 73 65 6d 62  6c 65 5f 6c 69 62 72 61  |d_assemble_libra|
00000c10  72 79 28 6c 69 62 72 61  72 79 24 2c 76 65 72 73  |ry(library$,vers|
00000c20  69 6f 6e 25 2c 72 6f 75  74 69 6e 65 24 29 3a 85  |ion%,routine$):.|
00000c30  31 2c 22 45 49 4c 39 22  3a e1 0d 00 3e 21 dd f2  |1,"EIL9":...>!..|
00000c40  5f 65 28 72 6f 75 74 69  6e 65 24 29 3a e7 57 69  |_e(routine$):.Wi|
00000c50  6d 70 5f 41 63 74 69 76  65 25 8c 0d 00 3f 11 e7  |mp_Active%...?..|
00000c60  44 65 62 75 67 5f 57 69  6d 70 25 8c 0d 00 40 16  |Debug_Wimp%...@.|
00000c70  85 9f 2c f6 24 2b 22 20  5b 22 2b c3 9e 2b 22 5d  |..,.$+" ["+..+"]|
00000c80  2e 22 0d 00 41 0b cc 3a  85 9f 2c f6 24 0d 00 42  |."..A..:..,.$..B|
00000c90  05 cd 0d 00 43 1f cc 3a  e7 ac 4f 6e 5f 4c 69 62  |....C..:..On_Lib|
00000ca0  5f 45 72 72 6f 72 5f 43  6f 6e 74 69 6e 75 65 25  |_Error_Continue%|
00000cb0  8c 0d 00 44 2c e7 4c 69  62 5f 45 72 72 6f 72 5f  |...D,.Lib_Error_|
00000cc0  4c 65 76 65 6c 25 3d 4e  75 6d 5f 4c 69 62 5f 45  |Level%=Num_Lib_E|
00000cd0  72 72 6f 72 5f 4c 65 76  65 6c 73 25 8c 0d 00 45  |rror_Levels%...E|
00000ce0  55 4c 69 62 5f 45 72 72  6f 72 73 28 4e 75 6d 5f  |ULib_Errors(Num_|
00000cf0  4c 69 62 5f 45 72 72 6f  72 5f 4c 65 76 65 6c 73  |Lib_Error_Levels|
00000d00  25 2d 31 29 3d 22 45 72  72 6f 72 73 20 74 6f 6f  |%-1)="Errors too|
00000d10  20 64 65 65 70 21 21 21  21 21 22 3a f2 5f 68 61  | deep!!!!!":._ha|
00000d20  6e 64 6c 65 5f 6c 69 62  72 61 72 79 5f 65 72 72  |ndle_library_err|
00000d30  6f 72 0d 00 46 19 cd 3a  e7 c2 72 6f 75 74 69 6e  |or..F..:..routin|
00000d40  65 24 2c 32 29 3d 22 3a  20 22 8c 0d 00 47 25 72  |e$,2)=": "...G%r|
00000d50  6f 75 74 69 6e 65 24 3d  c0 72 6f 75 74 69 6e 65  |outine$=.routine|
00000d60  24 2c a9 28 72 6f 75 74  69 6e 65 24 29 2d 32 29  |$,.(routine$)-2)|
00000d70  0d 00 48 13 cd 3a e7 44  65 62 75 67 5f 57 69 6d  |..H..:.Debug_Wim|
00000d80  70 25 8c 0d 00 49 24 4c  69 62 5f 45 72 72 6f 72  |p%...I$Lib_Error|
00000d90  73 24 28 4c 69 62 5f 45  72 72 6f 72 5f 4c 65 76  |s$(Lib_Error_Lev|
00000da0  65 6c 25 29 3d f6 24 0d  00 4a 1a cc 3a e7 4c 69  |el%)=.$..J..:.Li|
00000db0  62 5f 45 72 72 6f 72 5f  4c 65 76 65 6c 25 3d 30  |b_Error_Level%=0|
00000dc0  8c 0d 00 4b 95 4c 69 62  5f 45 72 72 6f 72 73 24  |...K.Lib_Errors$|
00000dd0  28 4c 69 62 5f 45 72 72  6f 72 5f 4c 65 76 65 6c  |(Lib_Error_Level|
00000de0  25 29 3d 22 45 72 72 6f  72 20 60 22 2b f6 24 2b  |%)="Error `"+.$+|
00000df0  22 27 20 28 6c 69 6e 65  20 22 3a 4c 69 62 5f 45  |"' (line ":Lib_E|
00000e00  72 72 6f 72 73 24 28 4c  69 62 5f 45 72 72 6f 72  |rrors$(Lib_Error|
00000e10  5f 4c 65 76 65 6c 25 29  2b 3d c3 28 9e 29 2b 22  |_Level%)+=.(.)+"|
00000e20  29 20 69 6e 20 22 3a 4c  69 62 5f 45 72 72 6f 72  |) in ":Lib_Error|
00000e30  73 24 28 4c 69 62 5f 45  72 72 6f 72 5f 4c 65 76  |s$(Lib_Error_Lev|
00000e40  65 6c 25 29 2b 3d 22 60  22 2b 72 6f 75 74 69 6e  |el%)+="`"+routin|
00000e50  65 24 2b 22 27 22 0d 00  4c 34 cc 3a 4c 69 62 5f  |e$+"'"..L4.:Lib_|
00000e60  45 72 72 6f 72 73 24 28  4c 69 62 5f 45 72 72 6f  |Errors$(Lib_Erro|
00000e70  72 5f 4c 65 76 65 6c 25  29 3d 22 60 22 2b 72 6f  |r_Level%)="`"+ro|
00000e80  75 74 69 6e 65 24 2b 22  27 22 0d 00 4d 05 cd 0d  |utine$+"'"..M...|
00000e90  00 4e 1f cd 3a 4c 69 62  5f 45 72 72 6f 72 5f 4c  |.N..:Lib_Error_L|
00000ea0  65 76 65 6c 25 2b 3d 31  3a 85 9f 2c 22 22 0d 00  |evel%+=1:..,""..|
00000eb0  4f 05 cd 0d 00 50 07 cd  3a e1 0d 00 51 35 dd f2  |O....P..:...Q5..|
00000ec0  5f 68 61 6e 64 6c 65 5f  6c 69 62 72 61 72 79 5f  |_handle_library_|
00000ed0  65 72 72 6f 72 3a ea 69  69 69 25 2c 65 65 65 24  |error:.iii%,eee$|
00000ee0  3a e7 57 69 6d 70 5f 41  63 74 69 76 65 25 8c 0d  |:.Wimp_Active%..|
00000ef0  00 52 11 e7 44 65 62 75  67 5f 57 69 6d 70 25 8c  |.R..Debug_Wimp%.|
00000f00  0d 00 53 38 f2 5f 57 69  6d 70 5f 45 72 72 6f 72  |..S8._Wimp_Error|
00000f10  28 9f 2c f6 24 2b 22 20  5b 22 2b c3 28 9e 29 2b  |(.,.$+" ["+.(.)+|
00000f20  22 5d 2e 22 29 3a f2 5f  57 69 6d 70 5f 43 6c 6f  |"]."):._Wimp_Clo|
00000f30  73 65 44 6f 77 6e 3a e0  0d 00 54 2e cc 3a f2 5f  |seDown:...T..:._|
00000f40  57 69 6d 70 5f 45 72 72  6f 72 28 9f 2c f6 24 29  |Wimp_Error(.,.$)|
00000f50  3a e7 9f 3d 57 69 6d 70  5f 45 72 72 6f 72 5f 46  |:..=Wimp_Error_F|
00000f60  61 74 61 6c 25 8c 0d 00  55 16 f2 5f 57 69 6d 70  |atal%...U.._Wimp|
00000f70  5f 43 6c 6f 73 65 44 6f  77 6e 3a e0 0d 00 56 05  |_CloseDown:...V.|
00000f80  cd 0d 00 57 05 cd 0d 00  58 1d cc 3a e7 4f 6e 5f  |...W....X..:.On_|
00000f90  4c 69 62 5f 45 72 72 6f  72 5f 4d 4f 44 45 25 3d  |Lib_Error_MODE%=|
00000fa0  2d 32 8c 0d 00 59 18 e7  4c 69 62 5f 45 72 72 6f  |-2...Y..Lib_Erro|
00000fb0  72 5f 4c 65 76 65 6c 25  3e 30 8c 0d 00 5a 16 85  |r_Level%>0...Z..|
00000fc0  a2 9f 2c 4c 69 62 5f 45  72 72 6f 72 73 24 28 30  |..,Lib_Errors$(0|
00000fd0  29 0d 00 5b 0c cc 3a 85  a2 9f 2c f6 24 0d 00 5c  |)..[..:...,.$..\|
00000fe0  07 cd 3a e0 0d 00 5d 1d  cd 3a e7 4f 6e 5f 4c 69  |..:...]..:.On_Li|
00000ff0  62 5f 45 72 72 6f 72 5f  4d 4f 44 45 25 3d 2d 33  |b_Error_MODE%=-3|
00001000  8c 0d 00 5e 58 24 5f 5f  65 72 72 6f 72 5f 62 75  |...^X$__error_bu|
00001010  66 25 3d 22 54 41 53 4b  22 3a c8 99 26 34 30 30  |f%="TASK":..&400|
00001020  63 30 2c 32 30 30 2c 21  5f 5f 65 72 72 6f 72 5f  |c0,200,!__error_|
00001030  62 75 66 25 2c 22 4c 69  62 48 61 6e 64 6c 65 72  |buf%,"LibHandler|
00001040  22 2b bd 28 30 29 3a e7  4c 69 62 5f 45 72 72 6f  |"+.(0):.Lib_Erro|
00001050  72 5f 4c 65 76 65 6c 25  8c 0d 00 5f 3a e3 69 69  |r_Level%..._:.ii|
00001060  69 25 3d 30 b8 4c 69 62  5f 45 72 72 6f 72 5f 4c  |i%=0.Lib_Error_L|
00001070  65 76 65 6c 25 2d 31 3a  e7 69 69 69 25 3c 28 4c  |evel%-1:.iii%<(L|
00001080  69 62 5f 45 72 72 6f 72  5f 4c 65 76 65 6c 25 2d  |ib_Error_Level%-|
00001090  31 29 8c 0d 00 60 23 f2  5f 5f 6f 75 74 28 4c 69  |1)...`#.__out(Li|
000010a0  62 5f 45 72 72 6f 72 73  24 28 69 69 69 25 29 2b  |b_Errors$(iii%)+|
000010b0  22 20 69 6e 22 29 0d 00  61 1f cc 3a f2 5f 5f 6f  |" in")..a..:.__o|
000010c0  75 74 28 4c 69 62 5f 45  72 72 6f 72 73 24 28 69  |ut(Lib_Errors$(i|
000010d0  69 69 25 29 29 0d 00 62  0b cd 3a ed 69 69 69 25  |ii%))..b..:.iii%|
000010e0  0d 00 63 23 cc 3a f2 5f  5f 6f 75 74 28 f6 24 2b  |..c#.:.__out(.$+|
000010f0  22 20 28 6c 69 6e 65 20  22 2b c3 28 9e 29 2b 22  |" (line "+.(.)+"|
00001100  29 22 29 0d 00 64 10 cd  3a c8 99 26 36 30 30 64  |)")..d..:..&600d|
00001110  64 3a e0 0d 00 65 1d cd  3a e7 4f 6e 5f 4c 69 62  |d:...e..:.On_Lib|
00001120  5f 45 72 72 6f 72 5f 4d  4f 44 45 25 3e 3d 30 8c  |_Error_MODE%>=0.|
00001130  0d 00 66 17 eb 4f 6e 5f  4c 69 62 5f 45 72 72 6f  |..f..On_Lib_Erro|
00001140  72 5f 4d 4f 44 45 25 0d  00 67 35 cd 3a f1 22 41  |r_MODE%..g5.:."A|
00001150  6e 20 65 72 72 6f 72 20  68 61 73 20 6f 63 63 75  |n error has occu|
00001160  72 65 64 2e 2e 2e 22 3a  f1 3a e7 4c 69 62 5f 45  |red...":.:.Lib_E|
00001170  72 72 6f 72 5f 4c 65 76  65 6c 25 8c 0d 00 68 63  |rror_Level%...hc|
00001180  e3 69 69 69 25 3d 30 b8  4c 69 62 5f 45 72 72 6f  |.iii%=0.Lib_Erro|
00001190  72 5f 4c 65 76 65 6c 25  2d 31 3a fb 28 28 37 2d  |r_Level%-1:.((7-|
000011a0  28 69 69 69 25 3c 3c 31  29 29 80 36 29 2b 31 3a  |(iii%<<1)).6)+1:|
000011b0  f1 4c 69 62 5f 45 72 72  6f 72 73 24 28 69 69 69  |.Lib_Errors$(iii|
000011c0  25 29 3b 3a e7 69 69 69  25 3c 28 4c 69 62 5f 45  |%);:.iii%<(Lib_E|
000011d0  72 72 6f 72 5f 4c 65 76  65 6c 25 2d 31 29 8c 0d  |rror_Level%-1)..|
000011e0  00 69 0c f1 22 20 69 6e  20 22 3b 0d 00 6a 0b cd  |.i.." in ";..j..|
000011f0  3a ed 69 69 69 25 0d 00  6b 1c cc 3a f1 f6 24 3b  |:.iii%..k..:..$;|
00001200  22 20 28 6c 69 6e 65 20  22 3b c3 28 9e 29 3b 22  |" (line ";.(.);"|
00001210  29 22 0d 00 6c 0c cd 3a  f1 3a fb 37 3a e0 0d 00  |)"..l..:.:.7:...|
00001220  6d 07 cd 3a e1 0d 00 6e  9e dd f2 5f 5f 6f 75 74  |m..:...n...__out|
00001230  28 6d 65 73 73 61 67 65  24 29 3a ea 6c 25 3a 6c  |(message$):.l%:l|
00001240  25 3d 32 30 2b 28 a9 28  6d 65 73 73 61 67 65 24  |%=20+(.(message$|
00001250  29 2b 35 29 80 2d 34 3a  21 5f 5f 65 72 72 6f 72  |)+5).-4:!__error|
00001260  5f 62 75 66 25 3d 6c 25  3a 5f 5f 65 72 72 6f 72  |_buf%=l%:__error|
00001270  5f 62 75 66 25 21 31 36  3d 26 38 30 34 63 30 3a  |_buf%!16=&804c0:|
00001280  24 28 5f 5f 65 72 72 6f  72 5f 62 75 66 25 2b 32  |$(__error_buf%+2|
00001290  30 29 3d 6d 65 73 73 61  67 65 24 2b bd 28 31 30  |0)=message$+.(10|
000012a0  29 2b bd 28 30 29 3a c8  99 26 36 30 30 65 37 2c  |)+.(0):..&600e7,|
000012b0  31 37 2c 5f 5f 65 72 72  6f 72 5f 62 75 66 25 2c  |17,__error_buf%,|
000012c0  30 3a e1 0d ff                                    |0:...|
000012c5