home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-04-06 | 10.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 3a ac 2e f4 20 20 3e | 3c 42 61 73 69 63 56 24 |.:... >|<BasicV$|
|00000010| 4c 69 62 3e 2e 4c 69 62 | 48 61 6e 64 6c 65 72 20 |Lib>.Lib|Handler |
|00000020| 20 3a 20 20 52 45 4d 20 | 20 76 30 2e 31 32 0d 3a | : REM | v0.12.:|
|00000030| b6 1b f4 20 20 4d 41 43 | 48 49 4e 45 3a 20 20 41 |... MAC|HINE: A|
|00000040| 72 63 68 69 6d 65 64 65 | 73 0d 3a c0 1c f4 20 20 |rchimede|s.:... |
|00000050| 4c 41 4e 47 55 41 47 45 | 3a 20 42 42 43 20 42 41 |LANGUAGE|: BBC BA|
|00000060| 53 49 43 20 56 0d 3a ca | 1b f4 20 20 41 55 54 48 |SIC V.:.|.. AUTH|
|00000070| 4f 52 3a 20 20 20 43 79 | 20 42 6f 6f 6b 65 72 2c |OR: Cy| Booker,|
|00000080| 0d 3a d4 47 f4 20 20 20 | 20 20 20 20 20 20 20 20 |.:.G. | |
|00000090| 20 38 36 20 43 68 75 72 | 63 68 20 56 69 65 77 2c | 86 Chur|ch View,|
|000000a0| 20 4d 61 69 6e 20 52 6f | 61 64 2c 20 43 72 6f 63 | Main Ro|ad, Croc|
|000000b0| 6b 65 6e 68 69 6c 6c 2c | 20 53 77 61 6e 6c 65 79 |kenhill,| Swanley|
|000000c0| 2c 20 4b 65 6e 74 2e 0d | 3a de 18 f4 20 20 20 20 |, Kent..|:... |
|000000d0| 20 20 20 20 20 20 20 20 | 42 52 38 20 38 4a 57 0d | |BR8 8JW.|
|000000e0| 3a e8 11 f4 20 20 46 55 | 4e 43 54 49 4f 4e 53 3a |:... FU|NCTIONS:|
|000000f0| 0d 3a f2 0f f4 20 20 20 | 28 6e 6f 6e 65 29 2e 0d |.:... |(none)..|
|00000100| 3a fc 08 f4 20 20 3a 0d | 3b 06 12 f4 20 20 50 52 |:... :.|;... PR|
|00000110| 4f 43 45 44 55 52 45 53 | 3a 0d 3b 10 32 f4 20 20 |OCEDURES|:.;.2. |
|00000120| 20 5f 68 61 72 64 5f 69 | 6e 69 74 69 61 6c 69 73 | _hard_i|nitialis|
|00000130| 65 5f 4c 69 62 48 61 6e | 64 6c 65 72 20 20 20 20 |e_LibHan|dler |
|00000140| 20 20 20 5b 54 65 73 74 | 65 64 5d 0d 3b 1a 32 f4 | [Test|ed].;.2.|
|00000150| 20 20 20 5f 6c 6f 61 64 | 5f 6c 69 62 72 61 72 79 | _load|_library|
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000170| 20 20 20 20 20 5b 54 65 | 73 74 65 64 5d 0d 3b 24 | [Te|sted].;$|
|00000180| 32 f4 20 20 20 5f 6c 6f | 61 64 5f 41 52 4d 5f 4f |2. _lo|ad_ARM_O|
|00000190| 62 6a 65 63 74 5f 6c 69 | 62 72 61 72 79 20 20 20 |bject_li|brary |
|000001a0| 20 20 20 20 20 20 20 5b | 54 65 73 74 65 64 5d 0d | [|Tested].|
|000001b0| 3b 2e 3b f4 20 20 20 5f | 65 20 20 20 20 20 20 20 |;.;. _|e |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 20 20 20 20 20 20 20 20 | 20 5b 57 6f 72 6b 73 20 | | [Works |
|000001e0| 2d 20 61 6c 74 65 72 65 | 64 5d 0d 3b 38 08 f4 20 |- altere|d].;8.. |
|000001f0| 20 3a 0d 3b 42 31 f4 20 | 20 20 5f 68 61 72 64 5f | :.;B1. | _hard_|
|00000200| 69 6e 69 74 5f 61 73 73 | 65 6d 62 6c 65 5f 6c 69 |init_ass|emble_li|
|00000210| 62 72 61 72 79 20 20 20 | 20 20 20 20 5b 57 6f 72 |brary | [Wor|
|00000220| 6b 73 5d 0d 3b 4c 31 f4 | 20 20 20 5f 61 73 73 65 |ks].;L1.| _asse|
|00000230| 6d 62 6c 65 5f 6c 69 62 | 72 61 72 79 20 20 20 20 |mble_lib|rary |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5b 57 6f | | [Wo|
|00000250| 72 6b 73 5d 0d 3b 56 31 | f4 20 20 20 5f 6c 6f 61 |rks].;V1|. _loa|
|00000260| 64 5f 61 73 73 65 6d 62 | 6c 65 5f 6c 69 62 72 61 |d_assemb|le_libra|
|00000270| 72 79 20 20 20 20 20 20 | 20 20 20 20 20 20 5b 57 |ry | [W|
|00000280| 6f 72 6b 73 5d 0d 3b 60 | 1f f4 20 20 20 5f 64 65 |orks].;`|.. _de|
|00000290| 62 75 67 5f 61 73 73 65 | 6d 62 6c 65 5f 6c 69 62 |bug_asse|mble_lib|
|000002a0| 72 61 72 79 0d 3b 6a 08 | f4 20 20 3a 0d 3b 74 11 |rary.;j.|. :.;t.|
|000002b0| f4 20 20 45 58 54 45 52 | 4e 41 4c 53 3a 0d 3b 7e |. EXTER|NALS:.;~|
|000002c0| 0d f4 20 20 20 70 61 73 | 73 25 0d 3b 88 08 f4 20 |.. pas|s%.;... |
|000002d0| 20 3a 0d 3b 92 11 f4 20 | 20 49 4e 54 45 52 4e 41 | :.;... | INTERNA|
|000002e0| 4c 53 3a 0d 3b 9c 1a f4 | 20 20 20 6d 61 78 5f 6c |LS:.;...| max_l|
|000002f0| 69 62 72 61 72 79 5f 66 | 69 6c 65 73 25 0d 3b a6 |ibrary_f|iles%.;.|
|00000300| 1a f4 20 20 20 6e 75 6d | 5f 6c 69 62 72 61 72 79 |.. num|_library|
|00000310| 5f 66 69 6c 65 73 25 0d | 3b b0 18 f4 20 20 20 6c |_files%.|;... l|
|00000320| 69 62 72 61 72 79 5f 6e | 61 6d 65 73 24 28 29 0d |ibrary_n|ames$().|
|00000330| 3b ba 1b f4 20 20 20 6c | 69 62 72 61 72 79 5f 76 |;... l|ibrary_v|
|00000340| 65 72 73 69 6f 6e 73 25 | 28 29 0d 3b c4 08 f4 20 |ersions%|().;... |
|00000350| 20 3a 0d 3b ce 18 f4 20 | 20 20 4c 69 62 5f 45 72 | :.;... | Lib_Er|
|00000360| 72 6f 72 5f 4c 65 76 65 | 6c 25 0d 3b d8 1d f4 20 |ror_Leve|l%.;... |
|00000370| 20 20 4e 75 6d 5f 4c 69 | 62 5f 45 72 72 6f 72 5f | Num_Li|b_Error_|
|00000380| 4c 65 76 65 6c 73 25 0d | 3b e2 15 f4 20 20 20 4c |Levels%.|;... L|
|00000390| 69 62 5f 45 72 72 6f 72 | 73 24 28 29 0d 3b ec 2e |ib_Error|s$().;..|
|000003a0| f4 20 20 20 4f 6e 5f 4c | 69 62 5f 45 72 72 6f 72 |. On_L|ib_Error|
|000003b0| 5f 4d 4f 44 45 25 20 20 | 20 20 20 20 20 20 47 6c |_MODE% | Gl|
|000003c0| 6f 62 61 6c 20 76 61 6c | 75 65 0d 3b f6 30 f4 20 |obal val|ue.;.0. |
|000003d0| 20 20 4f 6e 5f 4c 69 62 | 5f 45 72 72 6f 72 5f 43 | On_Lib|_Error_C|
|000003e0| 6f 6e 74 69 6e 75 65 25 | 20 20 20 20 47 6c 6f 62 |ontinue%| Glob|
|000003f0| 61 6c 20 62 6f 6f 6c 65 | 61 6e 0d 3c 00 08 f4 20 |al boole|an.<... |
|00000400| 20 3a 0d 3c 0a 1c f4 20 | 20 20 6c 69 62 72 61 72 | :.<... | librar|
|00000410| 79 5f 61 73 73 65 6d 62 | 6c 65 72 24 28 29 0d 3c |y_assemb|ler$().<|
|00000420| 14 1e f4 20 20 20 6d 61 | 78 5f 6c 69 62 72 61 72 |... ma|x_librar|
|00000430| 79 5f 61 73 73 65 6d 62 | 6c 65 72 25 0d 3c 1e 21 |y_assemb|ler%.<.!|
|00000440| f4 20 20 20 70 61 73 73 | 5f 31 5f 6c 69 62 72 61 |. pass|_1_libra|
|00000450| 72 79 5f 61 73 73 65 6d | 62 6c 65 72 25 0d 3c 28 |ry_assem|bler%.<(|
|00000460| 21 f4 20 20 20 70 61 73 | 73 5f 32 5f 6c 69 62 72 |!. pas|s_2_libr|
|00000470| 61 72 79 5f 61 73 73 65 | 6d 62 6c 65 72 25 0d 3c |ary_asse|mbler%.<|
|00000480| 32 08 f4 20 20 3a 0d 3c | 3c 29 f4 20 20 20 57 69 |2.. :.<|<). Wi|
|00000490| 6d 70 5f 41 63 74 69 76 | 65 25 20 20 20 20 20 20 |mp_Activ|e% |
|000004a0| 20 20 20 20 20 20 20 20 | 42 6f 6f 6c 65 61 6e 0d | |Boolean.|
|000004b0| 3c 46 29 f4 20 20 20 44 | 65 62 75 67 5f 57 69 6d |<F). D|ebug_Wim|
|000004c0| 70 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |p% | |
|000004d0| 20 42 6f 6f 6c 65 61 6e | 0d 3c 50 08 f4 20 20 3a | Boolean|.<P.. :|
|000004e0| 0d 3c 5a 0f f4 20 20 55 | 50 44 41 54 45 53 3a 0d |.<Z.. U|PDATES:.|
|000004f0| 3c 64 26 f4 20 20 20 76 | 30 2e 30 32 3a 20 20 42 |<d&. v|0.02: B|
|00000500| 65 74 74 65 72 20 65 72 | 72 6f 72 20 6d 65 73 73 |etter er|ror mess|
|00000510| 61 67 65 73 2e 0d 3c 6e | 28 f4 20 20 20 76 30 2e |ages..<n|(. v0.|
|00000520| 30 33 3a 20 20 5f 6c 6f | 61 64 5f 41 52 4d 5f 4f |03: _lo|ad_ARM_O|
|00000530| 62 6a 65 63 74 5f 6c 69 | 62 72 61 72 79 0d 3c 78 |bject_li|brary.<x|
|00000540| 39 f4 20 20 20 76 30 2e | 30 34 3a 20 20 42 65 74 |9. v0.|04: Bet|
|00000550| 74 65 72 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ter erro|r messag|
|00000560| 65 20 69 66 20 6e 6f 20 | 68 61 72 64 20 69 6e 69 |e if no |hard ini|
|00000570| 74 20 66 28 29 2e 0d 3c | 82 43 f4 20 20 20 76 30 |t f()..<|.C. v0|
|00000580| 2e 30 35 3a 20 20 53 6f | 20 63 61 6e 20 61 74 74 |.05: So| can att|
|00000590| 65 6d 70 74 20 74 6f 20 | 61 73 73 65 6d 62 6c 65 |empt to |assemble|
|000005a0| 20 6c 69 62 72 61 72 79 | 20 72 6f 75 74 69 6e 65 | library| routine|
|000005b0| 73 20 65 61 73 69 6c 79 | 2e 0d 3c 8c 3a f4 20 20 |s easily|..<.:. |
|000005c0| 20 76 30 2e 30 36 3a 20 | 20 42 65 74 74 65 72 20 | v0.06: | Better |
|000005d0| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 73 20 69 |error me|ssages i|
|000005e0| 6e 20 61 73 73 65 6d 62 | 6c 65 5f 6c 69 62 72 61 |n assemb|le_libra|
|000005f0| 72 79 2e 0d 3c 96 28 f4 | 20 20 20 76 30 2e 30 37 |ry..<.(.| v0.07|
|00000600| 3a 20 20 5f 64 65 62 75 | 67 5f 61 73 73 65 6d 62 |: _debu|g_assemb|
|00000610| 6c 65 5f 6c 69 62 72 61 | 72 79 2e 0d 3c a0 45 f4 |le_libra|ry..<.E.|
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 61 73 73 65 6d | | assem|
|00000630| 62 6c 65 5f 6c 69 62 72 | 61 72 79 28 29 20 6e 6f |ble_libr|ary() no|
|00000640| 77 20 63 6f 70 65 73 20 | 63 6f 72 72 65 63 74 6c |w copes |correctl|
|00000650| 79 20 77 69 74 68 20 72 | 65 63 75 72 73 69 76 65 |y with r|ecursive|
|00000660| 0d 3c aa 16 f4 20 20 20 | 20 20 20 20 20 20 20 20 |.<... | |
|00000670| 63 61 6c 6c 73 2e 0d 3c | b4 32 f4 20 20 20 76 30 |calls..<|.2. v0|
|00000680| 2e 30 38 3a 20 20 50 52 | 4f 43 5f 65 20 2d 20 73 |.08: PR|OC_e - s|
|00000690| 6f 20 63 61 6e 20 62 61 | 63 6b 2d 74 72 61 63 65 |o can ba|ck-trace|
|000006a0| 20 65 72 72 6f 72 73 2e | 0d 3c be 4a f4 20 20 20 | errors.|.<.J. |
|000006b0| 20 20 20 20 20 20 20 20 | 41 6c 74 65 72 65 64 20 | |Altered |
|000006c0| 73 6f 20 6e 6f 77 20 75 | 73 65 73 20 50 52 4f 43 |so now u|ses PROC|
|000006d0| 5f 65 20 2d 20 64 65 6c | 65 74 65 64 20 68 61 6e |_e - del|eted han|
|000006e0| 64 6c 65 5f 6c 69 62 72 | 61 72 79 5f 65 72 72 6f |dle_libr|ary_erro|
|000006f0| 72 2e 0d 3c c8 34 f4 20 | 20 20 76 30 2e 30 39 3a |r..<.4. | v0.09:|
|00000700| 20 20 53 6f 20 63 61 6e | 20 61 6c 74 65 72 20 68 | So can| alter h|
|00000710| 6f 77 20 65 72 72 6f 72 | 73 20 61 72 65 20 68 61 |ow error|s are ha|
|00000720| 6e 64 6c 65 64 2e 0d 3c | d2 42 f4 20 20 20 76 30 |ndled..<|.B. v0|
|00000730| 2e 31 30 3a 20 20 45 72 | 72 6f 72 20 6d 65 73 73 |.10: Er|ror mess|
|00000740| 61 67 65 20 69 6e 20 6c | 6f 61 64 5f 6c 69 62 72 |age in l|oad_libr|
|00000750| 61 72 79 28 29 20 77 61 | 73 20 61 20 62 69 74 20 |ary() wa|s a bit |
|00000760| 73 6b 65 77 20 69 66 2e | 0d 3c dc 44 f4 20 20 20 |skew if.|.<.D. |
|00000770| 76 30 2e 31 31 3a 20 20 | 48 61 6e 64 6c 65 20 6e |v0.11: |Handle n|
|00000780| 65 77 20 77 61 79 20 6f | 66 20 73 70 65 63 69 66 |ew way o|f specif|
|00000790| 79 69 6e 67 20 6c 69 62 | 72 61 72 79 20 66 6f 6c |ying lib|rary fol|
|000007a0| 64 65 72 73 20 2d 20 75 | 73 69 6e 67 0d 3c e6 2e |ders - u|sing.<..|
|000007b0| f4 20 20 20 20 20 20 20 | 20 20 20 20 73 79 73 74 |. | syst|
|000007c0| 65 6d 20 76 61 72 69 61 | 62 6c 65 73 20 3c 42 61 |em varia|bles <Ba|
|000007d0| 73 69 63 56 24 4c 69 62 | 3e 2e 0d 3c f0 4b f4 20 |sicV$Lib|>..<.K. |
|000007e0| 20 20 76 30 2e 31 32 3a | 20 20 30 35 2e 30 34 2e | v0.12:| 05.04.|
|000007f0| 31 39 39 31 20 43 4a 42 | 20 4f 6e 20 65 72 72 6f |1991 CJB| On erro|
|00000800| 72 2c 20 69 66 20 57 69 | 6d 70 5f 41 63 74 69 76 |r, if Wi|mp_Activ|
|00000810| 65 25 20 74 68 65 6e 20 | 70 61 73 73 20 65 72 72 |e% then |pass err|
|00000820| 6f 72 20 6f 6e 0d 3c fa | 08 f4 20 20 3a 0d 3d 04 |or on.<.|.. :.=.|
|00000830| 0d f4 20 20 55 53 41 47 | 45 3a 0d 3d 0e 44 f4 20 |.. USAG|E:.=.D. |
|00000840| 20 20 54 68 69 73 20 73 | 68 6f 75 6c 64 20 62 65 | This s|hould be|
|00000850| 20 74 68 65 20 66 69 72 | 73 74 20 6c 69 62 72 61 | the fir|st libra|
|00000860| 72 79 20 66 69 6c 65 20 | 74 6f 20 62 65 20 6c 6f |ry file |to be lo|
|00000870| 61 64 65 64 2c 20 61 6e | 64 20 69 74 73 27 0d 3d |aded, an|d its'.=|
|00000880| 18 49 f4 20 20 20 68 61 | 72 64 20 69 6e 69 74 69 |.I. ha|rd initi|
|00000890| 61 6c 69 73 61 74 69 6f | 6e 20 63 61 6c 6c 65 64 |alisatio|n called|
|000008a0| 2e 20 20 46 72 6f 6d 20 | 74 68 65 6e 20 6f 6e 20 |. From |then on |
|000008b0| 6a 75 73 74 20 75 73 65 | 20 5f 6c 6f 61 64 5f 6c |just use| _load_l|
|000008c0| 69 62 72 61 72 79 2e 0d | 3d 22 05 3a 0d 3d 2c 24 |ibrary..|=".:.=,$|
|000008d0| dd 20 a4 5f 4c 69 62 48 | 61 6e 64 6c 65 72 5f 76 |. ._LibH|andler_v|
|000008e0| 65 72 73 69 6f 6e 20 20 | 3a 20 20 3d 20 30 31 32 |ersion |: = 012|
|000008f0| 0d 3d 36 05 3a 0d 3d 40 | 3e dd 20 f2 5f 68 61 72 |.=6.:.=@|>. ._har|
|00000900| 64 5f 69 6e 69 74 69 61 | 6c 69 73 65 5f 4c 69 62 |d_initia|lise_Lib|
|00000910| 48 61 6e 64 6c 65 72 28 | 20 6d 61 78 5f 6c 69 62 |Handler(| max_lib|
|00000920| 73 25 2c 20 6e 65 65 64 | 5f 76 65 72 73 69 6f 6e |s%, need|_version|
|00000930| 25 20 29 0d 3d 4a 07 ea | 20 85 0d 3d 54 36 20 20 |% ).=J..| ..=T6 |
|00000940| 20 ee 20 85 20 ea 20 f7 | 20 85 3a f2 5f 65 28 20 | . . . .| .:._e( |
|00000950| 22 25 4c 69 62 48 61 6e | 64 6c 65 72 3a 20 68 61 |"%LibHan|dler: ha|
|00000960| 72 64 5f 69 6e 69 74 69 | 61 6c 69 73 65 22 20 29 |rd_initi|alise" )|
|00000970| 0d 3d 5e 2d 20 20 20 e7 | 20 a4 5f 4c 69 62 48 61 |.=^- .| ._LibHa|
|00000980| 6e 64 6c 65 72 5f 76 65 | 72 73 69 6f 6e 3c 6e 65 |ndler_ve|rsion<ne|
|00000990| 65 64 5f 76 65 72 73 69 | 6f 6e 25 20 8c 0d 3d 68 |ed_versi|on% ..=h|
|000009a0| 23 20 20 20 20 20 20 85 | 20 30 2c 20 22 4c 69 62 |# .| 0, "Lib|
|000009b0| 48 61 6e 64 6c 65 72 20 | 74 6f 6f 20 6f 6c 64 22 |Handler |too old"|
|000009c0| 0d 3d 72 08 20 20 20 cd | 0d 3d 7c 16 20 20 20 e7 |.=r. .|.=|. .|
|000009d0| 20 6d 61 78 5f 6c 69 62 | 73 25 3c 31 20 8c 0d 3d | max_lib|s%<1 ..=|
|000009e0| 86 37 20 20 20 20 20 20 | 85 20 30 2c 20 22 4c 69 |.7 |. 0, "Li|
|000009f0| 62 48 61 6e 64 6c 65 72 | 3a 20 62 61 64 20 6d 61 |bHandler|: bad ma|
|00000a00| 78 20 6c 69 62 72 61 72 | 79 73 20 70 61 72 61 6d |x librar|ys param|
|00000a10| 65 74 65 72 22 0d 3d 90 | 08 20 20 20 cd 0d 3d 9a |eter".=.|. ..=.|
|00000a20| 25 20 20 20 6d 61 78 5f | 6c 69 62 72 61 72 79 5f |% max_|library_|
|00000a30| 66 69 6c 65 73 25 20 3d | 20 6d 61 78 5f 6c 69 62 |files% =| max_lib|
|00000a40| 73 25 0d 3d a4 2f 20 20 | 20 de 20 6c 69 62 72 61 |s%.=./ | . libra|
|00000a50| 72 79 5f 6e 61 6d 65 73 | 24 28 20 6d 61 78 5f 6c |ry_names|$( max_l|
|00000a60| 69 62 72 61 72 79 5f 66 | 69 6c 65 73 25 2d 31 20 |ibrary_f|iles%-1 |
|00000a70| 29 0d 3d ae 32 20 20 20 | de 20 6c 69 62 72 61 72 |).=.2 |. librar|
|00000a80| 79 5f 76 65 72 73 69 6f | 6e 73 25 28 20 6d 61 78 |y_versio|ns%( max|
|00000a90| 5f 6c 69 62 72 61 72 79 | 5f 66 69 6c 65 73 25 2d |_library|_files%-|
|00000aa0| 31 20 29 0d 3d b8 1d 20 | 20 20 6e 75 6d 5f 6c 69 |1 ).=.. | num_li|
|00000ab0| 62 72 61 72 79 5f 66 69 | 6c 65 73 25 20 3d 20 30 |brary_fi|les% = 0|
|00000ac0| 0d 3d c2 08 20 20 20 3a | 0d 3d cc 3d 20 20 20 3a |.=.. :|.=.= :|
|00000ad0| 20 f4 20 20 54 68 69 73 | 20 69 73 20 75 73 65 64 | . This| is used|
|00000ae0| 20 73 6f 20 63 61 6e 20 | 69 6e 64 65 6e 74 20 6e | so can |indent n|
|00000af0| 65 73 74 65 64 20 65 72 | 72 6f 72 20 68 61 6e 64 |ested er|ror hand|
|00000b00| 6c 65 72 73 2e 0d 3d d6 | 08 20 20 20 3a 0d 3d e0 |lers..=.|. :.=.|
|00000b10| 22 20 20 20 4e 75 6d 5f | 4c 69 62 5f 45 72 72 6f |" Num_|Lib_Erro|
|00000b20| 72 5f 4c 65 76 65 6c 73 | 25 20 20 3d 20 34 30 0d |r_Levels|% = 40.|
|00000b30| 3d ea 21 20 20 20 4c 69 | 62 5f 45 72 72 6f 72 5f |=.! Li|b_Error_|
|00000b40| 4c 65 76 65 6c 25 20 20 | 20 20 20 20 20 3d 20 30 |Level% | = 0|
|00000b50| 0d 3d f4 45 20 20 20 4f | 6e 5f 4c 69 62 5f 45 72 |.=.E O|n_Lib_Er|
|00000b60| 72 6f 72 5f 4d 4f 44 45 | 25 20 20 20 20 20 3d 20 |ror_MODE|% = |
|00000b70| 31 32 20 20 20 20 20 20 | 20 20 20 20 3a 20 20 f4 |12 | : .|
|00000b80| 20 20 41 20 31 36 2d 63 | 6f 6c 6f 75 72 20 73 63 | A 16-c|olour sc|
|00000b90| 72 65 65 6e 2e 0d 3d fe | 21 20 20 20 4f 6e 5f 4c |reen..=.|! On_L|
|00000ba0| 69 62 5f 45 72 72 6f 72 | 5f 43 6f 6e 74 69 6e 75 |ib_Error|_Continu|
|00000bb0| 65 25 20 3d 20 a3 0d 3e | 08 2f 20 20 20 de 20 4c |e% = ..>|./ . L|
|00000bc0| 69 62 5f 45 72 72 6f 72 | 73 24 28 20 4e 75 6d 5f |ib_Error|s$( Num_|
|00000bd0| 4c 69 62 5f 45 72 72 6f | 72 5f 4c 65 76 65 6c 73 |Lib_Erro|r_Levels|
|00000be0| 25 2d 31 20 29 0d 3e 12 | 08 20 20 20 3a 0d 3e 1c |%-1 ).>.|. :.>.|
|00000bf0| 17 20 20 20 57 69 6d 70 | 5f 41 63 74 69 76 65 25 |. Wimp|_Active%|
|00000c00| 20 3d 20 a3 0d 3e 26 17 | 20 20 20 44 65 62 75 67 | = ..>&.| Debug|
|00000c10| 5f 57 69 6d 70 25 20 20 | 3d 20 a3 0d 3e 30 05 e1 |_Wimp% |= ..>0..|
|00000c20| 0d 3e 3a 05 3a 0d 3e 44 | 4b f4 20 2a 2a 2a 2a 2a |.>:.:.>D|K. *****|
|00000c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c70| 0d 3e 4e 4a f4 20 2a 20 | 4c 6f 61 64 20 61 20 6c |.>NJ. * |Load a l|
|00000c80| 69 62 72 61 72 79 20 66 | 69 6c 65 2c 20 63 68 65 |ibrary f|ile, che|
|00000c90| 63 6b 20 69 74 27 73 20 | 61 20 6e 65 77 20 65 6e |ck it's |a new en|
|00000ca0| 6f 75 67 68 20 76 65 72 | 73 69 6f 6e 20 20 61 6e |ough ver|sion an|
|00000cb0| 64 20 74 68 65 6e 2c 20 | 69 66 0d 3e 58 45 f4 20 |d then, |if.>XE. |
|00000cc0| 2a 20 69 74 20 68 61 73 | 6e 27 74 20 61 6c 72 65 |* it has|n't alre|
|00000cd0| 61 64 79 20 62 65 65 6e | 20 6c 6f 61 64 65 64 2c |ady been| loaded,|
|00000ce0| 20 63 61 6c 6c 20 69 74 | 73 27 20 68 61 72 64 20 | call it|s' hard |
|00000cf0| 69 6e 69 74 69 61 6c 69 | 73 61 74 69 6f 6e 2e 0d |initiali|sation..|
|00000d00| 3e 62 2f f4 20 2a 20 54 | 68 69 73 20 70 72 6f 63 |>b/. * T|his proc|
|00000d10| 65 64 75 72 65 20 63 6f | 75 6c 64 20 77 65 6c 6c |edure co|uld well|
|00000d20| 20 62 65 20 72 65 63 75 | 72 73 69 76 65 2e 0d 3e | be recu|rsive..>|
|00000d30| 6c 2f f4 20 2a 20 49 4e | 3a 20 20 20 6c 69 62 72 |l/. * IN|: libr|
|00000d40| 61 72 79 24 20 3d 3d 20 | 66 69 6c 65 20 6e 61 6d |ary$ == |file nam|
|00000d50| 65 20 6f 66 20 6c 69 62 | 72 61 72 79 2e 0d 3e 76 |e of lib|rary..>v|
|00000d60| 3d f4 20 2a 20 20 20 20 | 20 20 20 76 65 72 73 69 |=. * | versi|
|00000d70| 6f 6e 25 20 3d 3d 20 65 | 61 72 6c 69 65 73 74 20 |on% == e|arliest |
|00000d80| 70 6f 73 73 69 62 6c 65 | 20 76 65 72 73 69 6f 6e |possible| version|
|00000d90| 20 72 65 71 75 69 72 65 | 64 2e 0d 3e 80 3f f4 20 | require|d..>.?. |
|00000da0| 2a 20 4f 55 54 3a 20 20 | 45 52 52 4f 52 20 30 20 |* OUT: |ERROR 0 |
|00000db0| 69 66 20 62 61 64 20 76 | 65 72 73 69 6f 6e 73 20 |if bad v|ersions |
|00000dc0| 2f 20 74 6f 6f 20 6d 61 | 6e 79 20 6c 69 62 72 61 |/ too ma|ny libra|
|00000dd0| 72 79 20 66 69 6c 65 73 | 2e 0d 3e 8a 2a dd 20 f2 |ry files|..>.*. .|
|00000de0| 5f 6c 6f 61 64 5f 6c 69 | 62 72 61 72 79 28 20 6c |_load_li|brary( l|
|00000df0| 69 62 72 61 72 79 24 2c | 20 76 65 72 73 69 6f 6e |ibrary$,| version|
|00000e00| 25 20 29 0d 3e 94 1a ea | 20 6c 6f 61 64 25 2c 20 |% ).>...| load%, |
|00000e10| 69 25 2c 20 6c 65 61 66 | 24 2c 20 65 24 0d 3e 9e |i%, leaf|$, e$.>.|
|00000e20| 07 ea 20 85 0d 3e a8 36 | 20 20 20 ee 20 85 20 ea |.. ..>.6| . . .|
|00000e30| 20 f7 20 85 20 3a 20 f2 | 5f 65 28 20 22 25 2e 4c | . . : .|_e( "%.L|
|00000e40| 69 62 48 61 6e 64 6c 65 | 72 3a 20 6c 6f 61 64 5f |ibHandle|r: load_|
|00000e50| 6c 69 62 72 61 72 79 22 | 20 29 0d 3e b2 10 20 20 |library"| ).>.. |
|00000e60| 20 69 25 20 20 20 20 3d | 20 30 0d 3e bc 10 20 20 | i% =| 0.>.. |
|00000e70| 20 6c 6f 61 64 25 20 3d | 20 b9 0d 3e c6 2e 20 20 | load% =| ..>.. |
|00000e80| 20 6c 65 61 66 24 20 3d | 20 c1 6c 69 62 72 61 72 | leaf$ =| .librar|
|00000e90| 79 24 2c 20 31 20 2b 20 | a7 6c 69 62 72 61 72 79 |y$, 1 + |.library|
|00000ea0| 24 2c 20 22 2e 22 29 29 | 0d 3e d0 27 20 20 20 c8 |$, "."))|.>.' .|
|00000eb0| 95 20 69 25 3c 6e 75 6d | 5f 6c 69 62 72 61 72 79 |. i%<num|_library|
|00000ec0| 5f 66 69 6c 65 73 25 20 | 80 20 6c 6f 61 64 25 0d |_files% |. load%.|
|00000ed0| 3e da 2d 20 20 20 20 20 | 20 6c 6f 61 64 25 20 3d |>.- | load% =|
|00000ee0| 20 28 6c 65 61 66 24 3c | 3e 6c 69 62 72 61 72 79 | (leaf$<|>library|
|00000ef0| 5f 6e 61 6d 65 73 24 28 | 69 25 29 29 0d 3e e4 13 |_names$(|i%)).>..|
|00000f00| 20 20 20 20 20 20 e7 20 | 6c 6f 61 64 25 20 8c 0d | . |load% ..|
|00000f10| 3e ee 14 20 20 20 20 20 | 20 20 20 20 69 25 20 2b |>.. | i% +|
|00000f20| 3d 20 31 0d 3e f8 0b 20 | 20 20 20 20 20 cd 0d 3f |= 1.>.. | ..?|
|00000f30| 02 08 20 20 20 ce 0d 3f | 0c 10 20 20 20 e7 20 6c |.. ..?|.. . l|
|00000f40| 6f 61 64 25 20 8c 0d 3f | 16 23 20 20 20 20 20 20 |oad% ..?|.# |
|00000f50| e7 20 69 25 3d 6d 61 78 | 5f 6c 69 62 72 61 72 79 |. i%=max|_library|
|00000f60| 5f 66 69 6c 65 73 25 20 | 8c 0d 3f 20 39 20 20 20 |_files% |..? 9 |
|00000f70| 20 20 20 20 20 20 85 20 | 30 2c 22 4c 69 62 48 61 | . |0,"LibHa|
|00000f80| 6e 64 6c 65 72 3a 20 54 | 6f 6f 20 6d 61 6e 79 20 |ndler: T|oo many |
|00000f90| 6c 69 62 72 61 72 79 73 | 20 74 6f 20 6c 6f 61 64 |librarys| to load|
|00000fa0| 21 22 0d 3f 2a 0b 20 20 | 20 20 20 20 cd 0d 3f 34 |!".?*. | ..?4|
|00000fb0| 26 20 20 20 20 20 20 6c | 69 62 72 61 72 79 5f 6e |& l|ibrary_n|
|00000fc0| 61 6d 65 73 24 28 20 69 | 25 20 29 20 3d 20 6c 65 |ames$( i|% ) = le|
|00000fd0| 61 66 24 0d 3f 3e 15 20 | 20 20 20 20 20 c8 9b 20 |af$.?>. | .. |
|00000fe0| 6c 69 62 72 61 72 79 24 | 0d 3f 48 37 20 20 20 20 |library$|.?H7 |
|00000ff0| 20 20 65 24 20 3d 20 22 | 27 22 20 2b 20 6c 69 62 | e$ = "|'" + lib|
|00001000| 72 61 72 79 24 20 2b 20 | 22 27 20 64 6f 65 73 20 |rary$ + |"' does |
|00001010| 6e 6f 74 20 68 61 76 65 | 20 61 20 46 4e 5f 22 0d |not have| a FN_".|
|00001020| 3f 52 0d 20 20 20 20 20 | 20 ea 20 85 0d 3f 5c 36 |?R. | . ..?\6|
|00001030| 20 20 20 20 20 20 ee 20 | 85 20 ea 20 f7 20 85 20 | . |. . . . |
|00001040| 20 3a 20 20 f2 5f 65 28 | 20 65 24 20 2b 20 6c 65 | : ._e(| e$ + le|
|00001050| 61 66 24 20 2b 20 22 5f | 76 65 72 73 69 6f 6e 22 |af$ + "_|version"|
|00001060| 20 29 0d 3f 66 41 20 20 | 20 20 20 20 6c 69 62 72 | ).?fA | libr|
|00001070| 61 72 79 5f 76 65 72 73 | 69 6f 6e 73 25 28 20 69 |ary_vers|ions%( i|
|00001080| 25 20 29 20 3d 20 a0 28 | 22 46 4e 5f 22 20 2b 20 |% ) = .(|"FN_" + |
|00001090| 6c 65 61 66 24 20 2b 20 | 22 5f 76 65 72 73 69 6f |leaf$ + |"_versio|
|000010a0| 6e 22 29 0d 3f 70 0d 20 | 20 20 20 20 20 f7 20 85 |n").?p. | . .|
|000010b0| 0d 3f 7a 26 20 20 20 20 | 20 20 6e 75 6d 5f 6c 69 |.?z& | num_li|
|000010c0| 62 72 61 72 79 5f 66 69 | 6c 65 73 25 20 20 20 20 |brary_fi|les% |
|000010d0| 20 20 2b 3d 20 31 0d 3f | 84 25 20 20 20 20 20 20 | += 1.?|.% |
|000010e0| f4 20 20 54 68 69 73 20 | 63 6f 75 6c 64 20 62 65 |. This |could be|
|000010f0| 20 72 65 63 75 72 73 69 | 76 65 2e 0d 3f 8e 0d 20 | recursi|ve..?.. |
|00001100| 20 20 20 20 20 ea 20 85 | 0d 3f 98 3f 20 20 20 20 | . .|.?.? |
|00001110| 20 20 ee 20 85 20 ea 20 | f7 20 85 20 20 3a 20 20 | . . . |. . : |
|00001120| f2 5f 65 28 20 65 24 20 | 2b 20 22 5f 68 61 72 64 |._e( e$ |+ "_hard|
|00001130| 5f 69 6e 69 74 69 61 6c | 69 73 65 5f 22 20 2b 20 |_initial|ise_" + |
|00001140| 6c 65 61 66 24 20 29 0d | 3f a2 2e 20 20 20 20 20 |leaf$ ).|?.. |
|00001150| 20 e7 20 a0 28 22 46 4e | 5f 68 61 72 64 5f 69 6e | . .("FN|_hard_in|
|00001160| 69 74 69 61 6c 69 73 65 | 5f 22 20 2b 20 6c 65 61 |itialise|_" + lea|
|00001170| 66 24 29 20 8c 0d 3f ac | 49 20 20 20 20 20 20 20 |f$) ..?.|I |
|00001180| 20 20 85 20 31 2c 20 22 | 4c 69 62 72 61 72 79 20 | . 1, "|Library |
|00001190| 66 69 6c 65 20 27 22 20 | 2b 20 6c 69 62 72 61 72 |file '" |+ librar|
|000011a0| 79 24 20 2b 20 22 27 73 | 20 68 61 72 64 20 69 6e |y$ + "'s| hard in|
|000011b0| 69 74 27 69 6f 6e 20 66 | 61 69 6c 65 64 22 0d 3f |it'ion f|ailed".?|
|000011c0| b6 0b 20 20 20 20 20 20 | cd 0d 3f c0 0d 20 20 20 |.. |..?.. |
|000011d0| 20 20 20 f7 20 85 0d 3f | ca 08 20 20 20 cd 0d 3f | . ..?|.. ..?|
|000011e0| d4 29 20 20 20 e7 20 76 | 65 72 73 69 6f 6e 25 3e |.) . v|ersion%>|
|000011f0| 6c 69 62 72 61 72 79 5f | 76 65 72 73 69 6f 6e 73 |library_|versions|
|00001200| 25 28 69 25 29 20 8c 0d | 3f de 38 20 20 20 20 20 |%(i%) ..|?.8 |
|00001210| 20 85 20 31 2c 20 22 4c | 69 62 72 61 72 79 20 66 | . 1, "L|ibrary f|
|00001220| 69 6c 65 20 27 22 20 2b | 20 6c 69 62 72 61 72 79 |ile '" +| library|
|00001230| 24 20 2b 20 22 27 20 74 | 6f 6f 20 6f 6c 64 22 0d |$ + "' t|oo old".|
|00001240| 3f e8 08 20 20 20 cd 0d | 3f f2 05 e1 0d 3f fc 05 |?.. ..|?....?..|
|00001250| 3a 0d 40 06 4b f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |:.@.K. *|********|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 40 10 47 |********|****.@.G|
|000012a0| f4 20 2a 20 54 68 69 73 | 20 6a 75 73 74 20 73 70 |. * This| just sp|
|000012b0| 65 63 69 66 69 65 73 20 | 61 20 73 75 62 2d 64 69 |ecifies |a sub-di|
|000012c0| 72 65 63 74 6f 72 79 20 | 69 6e 20 74 68 65 20 6c |rectory |in the l|
|000012d0| 69 62 72 61 72 79 20 74 | 6f 20 75 73 65 2c 20 74 |ibrary t|o use, t|
|000012e0| 68 65 6e 0d 40 1a 29 f4 | 20 2a 20 63 61 6c 6c 73 |hen.@.).| * calls|
|000012f0| 20 74 68 65 20 6e 6f 72 | 6d 61 6c 20 6c 69 62 72 | the nor|mal libr|
|00001300| 61 72 79 20 68 61 6e 64 | 6c 65 72 2e 0d 40 24 05 |ary hand|ler..@$.|
|00001310| f4 0d 40 2e 35 dd 20 f2 | 5f 6c 6f 61 64 5f 41 52 |..@.5. .|_load_AR|
|00001320| 4d 5f 4f 62 6a 65 63 74 | 5f 6c 69 62 72 61 72 79 |M_Object|_library|
|00001330| 28 20 6c 69 62 72 61 72 | 79 24 2c 20 76 65 72 73 |( librar|y$, vers|
|00001340| 69 6f 6e 25 20 29 0d 40 | 38 07 ea 20 85 0d 40 42 |ion% ).@|8.. ..@B|
|00001350| 38 ee 20 85 20 ea f7 20 | 85 3a f2 5f 65 28 22 25 |8. . .. |.:._e("%|
|00001360| 4c 69 62 48 61 6e 64 6c | 65 72 3a 20 6c 6f 61 64 |LibHandl|er: load|
|00001370| 5f 41 52 4d 5f 4f 62 6a | 65 63 74 5f 6c 69 62 72 |_ARM_Obj|ect_libr|
|00001380| 61 72 79 22 29 0d 40 4c | 4e 20 20 20 f2 5f 6c 6f |ary").@L|N ._lo|
|00001390| 61 64 5f 6c 69 62 72 61 | 72 79 28 20 22 3c 42 61 |ad_libra|ry( "<Ba|
|000013a0| 73 69 63 56 5f 41 73 73 | 65 6d 62 6c 65 72 5f 4f |sicV_Ass|embler_O|
|000013b0| 62 6a 65 63 74 24 4c 69 | 62 3e 2e 22 20 2b 20 6c |bject$Li|b>." + l|
|000013c0| 69 62 72 61 72 79 24 2c | 20 76 65 72 73 69 6f 6e |ibrary$,| version|
|000013d0| 25 20 29 0d 40 56 05 e1 | 0d 40 60 05 3a 0d 40 6a |% ).@V..|.@`.:.@j|
|000013e0| 4b f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |K. *****|********|
|000013f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001420| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 40 74 4a f4 20 2a 20 |********|.@tJ. * |
|00001430| 48 61 72 64 20 69 6e 69 | 74 69 61 6c 69 73 65 20 |Hard ini|tialise |
|00001440| 6c 69 62 72 61 72 79 20 | 61 73 73 65 6d 62 6c 65 |library |assemble|
|00001450| 72 20 2d 20 74 68 69 73 | 20 6a 75 73 74 20 65 6e |r - this| just en|
|00001460| 73 75 72 65 73 20 74 68 | 61 74 20 6c 69 62 72 61 |sures th|at libra|
|00001470| 72 79 0d 40 7e 29 f4 20 | 2a 20 72 6f 75 74 69 6e |ry.@~). |* routin|
|00001480| 65 73 20 6f 6e 6c 79 20 | 67 65 74 20 61 73 73 65 |es only |get asse|
|00001490| 6d 62 6c 65 64 20 6f 6e | 63 65 2e 0d 40 88 47 f4 |mbled on|ce..@.G.|
|000014a0| 20 2a 20 49 4e 3a 20 20 | 6d 61 78 5f 72 6f 75 74 | * IN: |max_rout|
|000014b0| 69 6e 65 73 25 20 3d 3d | 20 4d 61 78 69 6d 75 6d |ines% ==| Maximum|
|000014c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 72 6f 75 74 69 | number |of routi|
|000014d0| 6e 65 73 20 74 68 61 74 | 20 77 69 6c 6c 20 6b 65 |nes that| will ke|
|000014e0| 65 70 0d 40 92 26 f4 20 | 20 20 20 20 20 20 20 20 |ep.@.&. | |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001500| 74 61 62 73 20 6f 6e 2e | 0d 40 9c 05 f4 0d 40 a6 |tabs on.|.@....@.|
|00001510| 33 dd 20 f2 5f 68 61 72 | 64 5f 69 6e 69 74 5f 61 |3. ._har|d_init_a|
|00001520| 73 73 65 6d 62 6c 65 5f | 6c 69 62 72 61 72 79 28 |ssemble_|library(|
|00001530| 20 6d 61 78 5f 72 6f 75 | 74 69 6e 65 73 25 20 29 | max_rou|tines% )|
|00001540| 0d 40 b0 07 ea 20 85 0d | 40 ba 41 ee 20 85 20 ea |.@... ..|@.A. . .|
|00001550| 20 f7 20 85 20 20 3a 20 | 20 f2 5f 65 28 22 25 2e | . . : | ._e("%.|
|00001560| 4c 69 62 48 61 6e 64 6c | 65 72 3a 20 68 61 72 64 |LibHandl|er: hard|
|00001570| 5f 69 6e 69 74 5f 61 73 | 73 65 6d 62 6c 65 5f 6c |_init_as|semble_l|
|00001580| 69 62 72 61 72 79 22 29 | 0d 40 c4 1b 20 20 20 e7 |ibrary")|.@.. .|
|00001590| 20 6d 61 78 5f 72 6f 75 | 74 69 6e 65 73 25 3c 3d | max_rou|tines%<=|
|000015a0| 30 20 8c 0d 40 ce 24 20 | 20 20 20 20 20 85 20 31 |0 ..@.$ | . 1|
|000015b0| 2c 20 22 42 61 64 20 70 | 61 72 61 6d 65 74 65 72 |, "Bad p|arameter|
|000015c0| 20 28 3e 30 29 2e 22 0d | 40 d8 08 20 20 20 cd 0d | (>0).".|@.. ..|
|000015d0| 40 e2 2c 20 20 20 de 20 | 6c 69 62 72 61 72 79 5f |@., . |library_|
|000015e0| 61 73 73 65 6d 62 6c 65 | 72 24 28 20 6d 61 78 5f |assemble|r$( max_|
|000015f0| 72 6f 75 74 69 6e 65 73 | 25 20 29 0d 40 ec 30 20 |routines|% ).@.0 |
|00001600| 20 20 6d 61 78 5f 6c 69 | 62 72 61 72 79 5f 61 73 | max_li|brary_as|
|00001610| 73 65 6d 62 6c 65 72 25 | 20 20 20 20 3d 20 6d 61 |sembler%| = ma|
|00001620| 78 5f 72 6f 75 74 69 6e | 65 73 25 0d 40 f6 24 20 |x_routin|es%.@.$ |
|00001630| 20 20 70 61 73 73 5f 31 | 5f 6c 69 62 72 61 72 79 | pass_1|_library|
|00001640| 5f 61 73 73 65 6d 62 6c | 65 72 25 20 3d 20 30 0d |_assembl|er% = 0.|
|00001650| 41 00 24 20 20 20 70 61 | 73 73 5f 32 5f 6c 69 62 |A.$ pa|ss_2_lib|
|00001660| 72 61 72 79 5f 61 73 73 | 65 6d 62 6c 65 72 25 20 |rary_ass|embler% |
|00001670| 3d 20 30 0d 41 0a 05 e1 | 0d 41 14 05 3a 0d 41 1e |= 0.A...|.A..:.A.|
|00001680| 4b f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |K. *****|********|
|00001690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 41 28 32 f4 20 2a 20 |********|.A(2. * |
|000016d0| 28 43 6f 6e 64 69 74 69 | 6f 6e 61 6c 79 29 20 61 |(Conditi|onaly) a|
|000016e0| 73 73 65 6d 62 6c 65 20 | 61 20 6c 69 62 72 61 72 |ssemble |a librar|
|000016f0| 79 20 72 6f 75 74 69 6e | 65 2e 0d 41 32 49 f4 20 |y routin|e..A2I. |
|00001700| 2a 20 49 4e 3a 20 20 20 | 72 6f 75 74 69 6e 65 24 |* IN: |routine$|
|00001710| 20 3d 3d 20 72 6f 75 74 | 69 6e 65 20 74 6f 20 61 | == rout|ine to a|
|00001720| 73 73 65 6d 62 6c 65 2c | 20 74 68 69 73 20 77 69 |ssemble,| this wi|
|00001730| 6c 6c 20 62 65 20 74 68 | 65 20 6e 61 6d 65 20 6f |ll be th|e name o|
|00001740| 66 20 61 0d 41 3c 42 f4 | 20 2a 20 20 20 20 20 20 |f a.A<B.| * |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 72 6f | | pro|
|00001760| 63 65 64 75 72 65 20 69 | 6e 20 61 20 28 6c 6f 61 |cedure i|n a (loa|
|00001770| 64 65 64 29 20 6c 69 62 | 72 61 72 79 2c 20 63 61 |ded) lib|rary, ca|
|00001780| 6c 6c 65 64 3a 0d 41 46 | 37 f4 20 2a 20 20 20 20 |lled:.AF|7. * |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 | | "|
|000017a0| 44 45 46 20 46 4e 5f 61 | 73 73 65 6d 62 6c 65 5f |DEF FN_a|ssemble_|
|000017b0| 22 20 2b 20 72 6f 75 74 | 69 6e 65 24 0d 41 50 24 |" + rout|ine$.AP$|
|000017c0| dd 20 f2 5f 61 73 73 65 | 6d 62 6c 65 5f 6c 69 62 |. ._asse|mble_lib|
|000017d0| 72 61 72 79 28 20 72 6f | 75 74 69 6e 65 24 20 29 |rary( ro|utine$ )|
|000017e0| 0d 41 5a 1e ea 20 69 25 | 2c 20 66 6f 75 6e 64 25 |.AZ.. i%|, found%|
|000017f0| 2c 20 6e 75 6d 25 2c 20 | 65 72 72 6f 72 24 0d 41 |, num%, |error$.A|
|00001800| 64 07 ea 20 85 0d 41 6e | 38 20 20 20 ee 20 85 20 |d.. ..An|8 . . |
|00001810| ea 20 f7 20 85 3a f2 5f | 65 28 22 25 2e 4c 69 62 |. . .:._|e("%.Lib|
|00001820| 48 61 6e 64 6c 65 72 3a | 20 61 73 73 65 6d 62 6c |Handler:| assembl|
|00001830| 65 5f 6c 69 62 72 61 72 | 79 3a 20 22 29 0d 41 78 |e_librar|y: ").Ax|
|00001840| 1c 20 20 20 e7 20 28 70 | 61 73 73 25 20 80 20 25 |. . (p|ass% . %|
|00001850| 30 30 31 30 29 3d 30 20 | 8c 0d 41 82 2a 20 20 20 |0010)=0 |..A.* |
|00001860| 20 20 20 6e 75 6d 25 20 | 3d 20 70 61 73 73 5f 31 | num% |= pass_1|
|00001870| 5f 6c 69 62 72 61 72 79 | 5f 61 73 73 65 6d 62 6c |_library|_assembl|
|00001880| 65 72 25 0d 41 8c 08 20 | 20 20 cc 0d 41 96 2a 20 |er%.A.. | ..A.* |
|00001890| 20 20 20 20 20 6e 75 6d | 25 20 3d 20 70 61 73 73 | num|% = pass|
|000018a0| 5f 32 5f 6c 69 62 72 61 | 72 79 5f 61 73 73 65 6d |_2_libra|ry_assem|
|000018b0| 62 6c 65 72 25 0d 41 a0 | 08 20 20 20 cd 0d 41 aa |bler%.A.|. ..A.|
|000018c0| 11 20 20 20 69 25 20 20 | 20 20 20 3d 20 30 0d 41 |. i% | = 0.A|
|000018d0| b4 38 20 20 20 c8 95 20 | 28 69 25 3c 6e 75 6d 25 |.8 .. |(i%<num%|
|000018e0| 29 20 80 20 28 72 6f 75 | 74 69 6e 65 24 3c 3e 6c |) . (rou|tine$<>l|
|000018f0| 69 62 72 61 72 79 5f 61 | 73 73 65 6d 62 6c 65 72 |ibrary_a|ssembler|
|00001900| 24 28 69 25 29 29 0d 41 | be 11 20 20 20 20 20 20 |$(i%)).A|.. |
|00001910| 69 25 20 2b 3d 20 31 0d | 41 c8 08 20 20 20 ce 0d |i% += 1.|A.. ..|
|00001920| 41 d2 14 20 20 20 e7 20 | 28 69 25 3d 6e 75 6d 25 |A.. . |(i%=num%|
|00001930| 29 20 8c 0d 41 dc 28 20 | 20 20 20 20 20 e7 20 69 |) ..A.( | . i|
|00001940| 25 3e 3d 6d 61 78 5f 6c | 69 62 72 61 72 79 5f 61 |%>=max_l|ibrary_a|
|00001950| 73 73 65 6d 62 6c 65 72 | 25 20 8c 0d 41 e6 46 20 |ssembler|% ..A.F |
|00001960| 20 20 20 20 20 20 20 20 | 65 72 72 6f 72 24 20 3d | |error$ =|
|00001970| 20 22 54 6f 6f 20 6d 61 | 6e 79 20 6c 69 62 72 61 | "Too ma|ny libra|
|00001980| 72 79 20 61 73 73 65 6d | 62 6c 65 72 20 72 6f 75 |ry assem|bler rou|
|00001990| 74 69 6e 65 73 2c 20 69 | 6e 63 72 65 61 73 65 20 |tines, i|ncrease |
|000019a0| 22 0d 41 f0 45 20 20 20 | 20 20 20 20 20 20 85 20 |".A.E | . |
|000019b0| 31 2c 20 65 72 72 6f 72 | 24 20 2b 20 22 70 61 72 |1, error|$ + "par|
|000019c0| 61 6d 65 74 65 72 20 74 | 6f 20 68 61 72 64 5f 69 |ameter t|o hard_i|
|000019d0| 6e 69 74 5f 61 73 73 65 | 6d 62 6c 65 5f 6c 69 62 |nit_asse|mble_lib|
|000019e0| 72 61 72 79 2e 22 0d 41 | fa 0b 20 20 20 20 20 20 |rary.".A|.. |
|000019f0| cd 0d 42 04 2d 20 20 20 | 20 20 20 6c 69 62 72 61 |..B.- | libra|
|00001a00| 72 79 5f 61 73 73 65 6d | 62 6c 65 72 24 28 20 69 |ry_assem|bler$( i|
|00001a10| 25 20 29 20 3d 20 72 6f | 75 74 69 6e 65 24 0d 42 |% ) = ro|utine$.B|
|00001a20| 0e 1f 20 20 20 20 20 20 | e7 20 28 70 61 73 73 25 |.. |. (pass%|
|00001a30| 20 80 20 25 30 30 31 30 | 29 3d 30 20 8c 0d 42 18 | . %0010|)=0 ..B.|
|00001a40| 2b 20 20 20 20 20 20 20 | 20 20 70 61 73 73 5f 31 |+ | pass_1|
|00001a50| 5f 6c 69 62 72 61 72 79 | 5f 61 73 73 65 6d 62 6c |_library|_assembl|
|00001a60| 65 72 25 20 2b 3d 20 31 | 0d 42 22 0b 20 20 20 20 |er% += 1|.B". |
|00001a70| 20 20 cc 0d 42 2c 2b 20 | 20 20 20 20 20 20 20 20 | ..B,+ | |
|00001a80| 70 61 73 73 5f 32 5f 6c | 69 62 72 61 72 79 5f 61 |pass_2_l|ibrary_a|
|00001a90| 73 73 65 6d 62 6c 65 72 | 25 20 2b 3d 20 31 0d 42 |ssembler|% += 1.B|
|00001aa0| 36 0b 20 20 20 20 20 20 | cd 0d 42 40 0d 20 20 20 |6. |..B@. |
|00001ab0| 20 20 20 ea 20 85 0d 42 | 4a 38 20 20 20 20 20 20 | . ..B|J8 |
|00001ac0| ee 20 85 20 ea 20 f7 20 | 85 20 20 3a 20 20 f2 5f |. . . . |. : ._|
|00001ad0| 65 28 20 22 28 22 22 22 | 20 2b 20 72 6f 75 74 69 |e( "("""| + routi|
|00001ae0| 6e 65 24 2b 20 22 22 22 | 29 3a 20 22 20 29 0d 42 |ne$+ """|): " ).B|
|00001af0| 54 49 20 20 20 20 20 20 | 69 25 20 3d 20 a0 28 22 |TI |i% = .("|
|00001b00| 46 4e 5f 61 73 73 65 6d | 62 6c 65 5f 22 20 2b 20 |FN_assem|ble_" + |
|00001b10| 72 6f 75 74 69 6e 65 24 | 29 20 20 3a 20 20 f4 20 |routine$|) : . |
|00001b20| 20 44 6f 20 69 74 20 2d | 20 63 6f 75 6c 64 20 72 | Do it -| could r|
|00001b30| 65 63 75 72 73 65 2e 0d | 42 5e 0d 20 20 20 20 20 |ecurse..|B^. |
|00001b40| 20 f7 20 85 0d 42 68 08 | 20 20 20 cd 0d 42 72 05 | . ..Bh.| ..Br.|
|00001b50| e1 0d 42 7c 05 3a 0d 42 | 86 1e dd 20 f2 5f 64 65 |..B|.:.B|... ._de|
|00001b60| 62 75 67 5f 61 73 73 65 | 6d 62 6c 65 5f 6c 69 62 |bug_asse|mble_lib|
|00001b70| 72 61 72 79 0d 42 90 21 | 20 20 20 f1 20 22 44 65 |rary.B.!| . "De|
|00001b80| 62 75 67 20 61 73 73 65 | 6d 62 6c 65 20 6c 69 62 |bug asse|mble lib|
|00001b90| 72 61 72 79 22 0d 42 9a | 08 20 20 20 f1 0d 42 a4 |rary".B.|. ..B.|
|00001ba0| 30 20 20 20 f1 20 22 43 | 75 72 72 65 6e 74 20 70 |0 . "C|urrent p|
|00001bb0| 61 73 73 25 20 6f 66 20 | 61 73 73 65 6d 62 6c 65 |ass% of |assemble|
|00001bc0| 72 3a 20 26 22 3b 20 7e | 70 61 73 73 25 0d 42 ae |r: &"; ~|pass%.B.|
|00001bd0| 26 20 20 20 70 31 25 20 | 3d 20 70 61 73 73 5f 31 |& p1% |= pass_1|
|00001be0| 5f 6c 69 62 72 61 72 79 | 5f 61 73 73 65 6d 62 6c |_library|_assembl|
|00001bf0| 65 72 25 0d 42 b8 26 20 | 20 20 70 32 25 20 3d 20 |er%.B.& | p2% = |
|00001c00| 70 61 73 73 5f 32 5f 6c | 69 62 72 61 72 79 5f 61 |pass_2_l|ibrary_a|
|00001c10| 73 73 65 6d 62 6c 65 72 | 25 0d 42 c2 1c 20 20 20 |ssembler|%.B.. |
|00001c20| e7 20 28 70 61 73 73 25 | 20 80 20 25 30 30 31 30 |. (pass%| . %0010|
|00001c30| 29 3d 30 20 8c 0d 42 cc | 44 20 20 20 20 20 20 f1 |)=0 ..B.|D .|
|00001c40| 20 22 48 61 76 65 20 73 | 74 6f 72 65 64 2c 20 73 | "Have s|tored, s|
|00001c50| 6f 20 66 61 72 20 64 75 | 72 69 6e 67 20 70 61 73 |o far du|ring pas|
|00001c60| 73 20 31 2c 20 22 3b 20 | 70 31 25 3b 20 22 20 72 |s 1, "; |p1%; " r|
|00001c70| 6f 75 74 69 6e 65 73 2e | 22 0d 42 d6 32 20 20 20 |outines.|".B.2 |
|00001c80| 20 20 20 f2 5f 64 65 62 | 75 67 5f 61 73 73 65 6d | ._deb|ug_assem|
|00001c90| 62 6c 65 5f 6c 69 62 72 | 61 72 79 5f 73 68 6f 77 |ble_libr|ary_show|
|00001ca0| 28 20 30 2c 20 20 70 31 | 25 20 29 0d 42 e0 08 20 |( 0, p1|% ).B.. |
|00001cb0| 20 20 cc 0d 42 ea 42 20 | 20 20 20 20 20 f1 20 22 | ..B.B | . "|
|00001cc0| 44 75 72 69 6e 67 20 70 | 61 73 73 20 31 2c 20 73 |During p|ass 1, s|
|00001cd0| 74 6f 72 65 64 20 61 20 | 74 6f 74 61 6c 20 6f 66 |tored a |total of|
|00001ce0| 20 22 3b 20 70 31 25 3b | 20 22 20 72 6f 75 74 69 | "; p1%;| " routi|
|00001cf0| 6e 65 73 2e 22 0d 42 f4 | 16 20 20 20 20 20 20 e7 |nes.".B.|. .|
|00001d00| 20 70 61 73 73 25 3c 3e | 30 20 8c 0d 42 fe 45 20 | pass%<>|0 ..B.E |
|00001d10| 20 20 20 20 20 20 20 20 | f1 20 22 53 6f 20 66 61 | |. "So fa|
|00001d20| 72 2c 20 64 75 72 69 6e | 67 20 70 61 73 73 20 32 |r, durin|g pass 2|
|00001d30| 20 73 74 6f 72 65 64 20 | 20 20 20 20 22 3b 20 70 | stored | "; p|
|00001d40| 32 25 3b 20 22 20 72 6f | 75 74 69 6e 65 73 2e 22 |2%; " ro|utines."|
|00001d50| 0d 43 08 0b 20 20 20 20 | 20 20 cc 0d 43 12 45 20 |.C.. | ..C.E |
|00001d60| 20 20 20 20 20 20 20 20 | f1 20 22 44 75 72 69 6e | |. "Durin|
|00001d70| 67 20 70 61 73 73 20 32 | 2c 20 73 74 6f 72 65 64 |g pass 2|, stored|
|00001d80| 20 61 20 74 6f 74 61 6c | 20 6f 66 20 22 3b 20 70 | a total| of "; p|
|00001d90| 32 25 3b 20 22 20 72 6f | 75 74 69 6e 65 73 2e 22 |2%; " ro|utines."|
|00001da0| 0d 43 1c 0b 20 20 20 20 | 20 20 cd 0d 43 26 31 20 |.C.. | ..C&1 |
|00001db0| 20 20 20 20 20 f2 5f 64 | 65 62 75 67 5f 61 73 73 | ._d|ebug_ass|
|00001dc0| 65 6d 62 6c 65 5f 6c 69 | 62 72 61 72 79 5f 73 68 |emble_li|brary_sh|
|00001dd0| 6f 77 28 20 30 2c 20 70 | 31 25 20 29 0d 43 30 23 |ow( 0, p|1% ).C0#|
|00001de0| 20 20 20 20 20 20 f1 22 | 2d 2d 2d 2d 2d 2d 2d 2d | ."|--------|
|00001df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 22 0d |--------|------".|
|00001e00| 43 3a 33 20 20 20 20 20 | 20 f2 5f 64 65 62 75 67 |C:3 | ._debug|
|00001e10| 5f 61 73 73 65 6d 62 6c | 65 5f 6c 69 62 72 61 72 |_assembl|e_librar|
|00001e20| 79 5f 73 68 6f 77 28 20 | 70 31 25 2c 20 70 32 25 |y_show( |p1%, p2%|
|00001e30| 20 29 0d 43 44 08 20 20 | 20 cd 0d 43 4e 0d 20 20 | ).CD. | ..CN. |
|00001e40| 20 f1 20 22 4f 4b 22 0d | 43 58 05 e1 0d 43 62 05 | . "OK".|CX...Cb.|
|00001e50| 3a 0d 43 6c 2d dd 20 f2 | 5f 64 65 62 75 67 5f 61 |:.Cl-. .|_debug_a|
|00001e60| 73 73 65 6d 62 6c 65 5f | 6c 69 62 72 61 72 79 5f |ssemble_|library_|
|00001e70| 73 68 6f 77 28 20 73 25 | 2c 20 65 25 20 29 0d 43 |show( s%|, e% ).C|
|00001e80| 76 0f 20 20 20 c8 95 20 | 73 25 3c 65 25 0d 43 80 |v. .. |s%<e%.C.|
|00001e90| 24 20 20 20 20 20 20 f1 | 20 6c 69 62 72 61 72 79 |$ .| library|
|00001ea0| 5f 61 73 73 65 6d 62 6c | 65 72 24 28 20 73 25 20 |_assembl|er$( s% |
|00001eb0| 29 0d 43 8a 11 20 20 20 | 20 20 20 73 25 20 2b 3d |).C.. | s% +=|
|00001ec0| 20 31 0d 43 94 08 20 20 | 20 ce 0d 43 9e 05 e1 0d | 1.C.. | ..C....|
|00001ed0| 43 a8 05 3a 0d 43 b2 4b | f4 20 2a 2a 2a 2a 2a 2a |C..:.C.K|. ******|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00001f20| 43 bc 46 f4 20 2a 20 43 | 6f 6d 62 69 6e 65 20 61 |C.F. * C|ombine a|
|00001f30| 20 6c 6f 61 64 20 6c 69 | 62 72 61 72 79 20 61 6e | load li|brary an|
|00001f40| 64 20 61 73 73 65 6d 62 | 6c 65 20 61 20 72 6f 75 |d assemb|le a rou|
|00001f50| 74 69 6e 65 20 69 6e 20 | 74 68 61 74 20 6c 69 62 |tine in |that lib|
|00001f60| 72 61 72 79 2e 0d 43 c6 | 34 f4 20 2a 20 49 4e 3a |rary..C.|4. * IN:|
|00001f70| 20 20 20 6c 69 62 72 61 | 72 79 24 2c 20 76 65 72 | libra|ry$, ver|
|00001f80| 73 69 6f 6e 25 20 61 73 | 20 70 65 72 20 6c 6f 61 |sion% as| per loa|
|00001f90| 64 20 6c 69 62 72 61 72 | 79 0d 43 d0 2e f4 20 2a |d librar|y.C... *|
|00001fa0| 20 20 20 20 20 20 20 72 | 6f 75 74 69 6e 65 24 20 | r|outine$ |
|00001fb0| 61 73 20 70 65 72 20 61 | 73 73 65 6d 62 6c 65 20 |as per a|ssemble |
|00001fc0| 6c 69 62 72 61 72 79 0d | 43 da 3d dd 20 f2 5f 6c |library.|C.=. ._l|
|00001fd0| 6f 61 64 5f 61 73 73 65 | 6d 62 6c 65 5f 6c 69 62 |oad_asse|mble_lib|
|00001fe0| 72 61 72 79 28 20 6c 69 | 62 72 61 72 79 24 2c 20 |rary( li|brary$, |
|00001ff0| 76 65 72 73 69 6f 6e 25 | 2c 20 72 6f 75 74 69 6e |version%|, routin|
|00002000| 65 24 20 29 0d 43 e4 07 | ea 20 85 0d 43 ee 38 ee |e$ ).C..|. ..C.8.|
|00002010| 20 85 ea f7 20 85 3a f2 | 5f 65 28 22 25 2e 4c 69 | ... .:.|_e("%.Li|
|00002020| 62 48 61 6e 64 6c 65 72 | 3a 20 6c 6f 61 64 5f 61 |bHandler|: load_a|
|00002030| 73 73 65 6d 62 6c 65 5f | 6c 69 62 72 61 72 79 3a |ssemble_|library:|
|00002040| 20 22 29 0d 43 f8 2b 20 | 20 20 f2 5f 6c 6f 61 64 | ").C.+ | ._load|
|00002050| 5f 6c 69 62 72 61 72 79 | 28 20 6c 69 62 72 61 72 |_library|( librar|
|00002060| 79 24 2c 20 76 65 72 73 | 69 6f 6e 25 20 29 0d 44 |y$, vers|ion% ).D|
|00002070| 02 25 20 20 20 f2 5f 61 | 73 73 65 6d 62 6c 65 5f |.% ._a|ssemble_|
|00002080| 6c 69 62 72 61 72 79 28 | 20 72 6f 75 74 69 6e 65 |library(| routine|
|00002090| 24 20 29 0d 44 0c 05 e1 | 0d 44 16 05 3a 0d 44 20 |$ ).D...|.D..:.D |
|000020a0| 4b f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |K. *****|********|
|000020b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 44 2a 49 f4 20 2a 20 |********|.D*I. * |
|000020f0| 54 68 69 73 20 69 73 20 | 73 6f 20 63 61 6e 20 68 |This is |so can h|
|00002100| 61 76 65 20 65 72 72 6f | 72 20 62 61 63 6b 2d 74 |ave erro|r back-t|
|00002110| 72 61 63 6b 69 6e 67 2c | 20 73 6f 20 63 61 6e 20 |racking,| so can |
|00002120| 66 69 6e 64 20 6f 75 74 | 20 63 6f 6d 70 6c 65 74 |find out| complet|
|00002130| 65 0d 44 34 4a f4 20 2a | 20 63 61 6c 6c 69 6e 67 |e.D4J. *| calling|
|00002140| 20 68 69 65 72 61 72 63 | 68 79 20 77 68 65 6e 20 | hierarc|hy when |
|00002150| 61 6e 20 65 72 72 6f 72 | 20 6f 63 63 75 72 73 20 |an error| occurs |
|00002160| 64 65 65 70 20 64 6f 77 | 6e 20 2d 20 61 6e 64 20 |deep dow|n - and |
|00002170| 74 68 69 73 20 69 73 20 | 68 6f 77 0d 44 3e 14 f4 |this is |how.D>..|
|00002180| 20 2a 20 74 6f 20 75 73 | 65 20 69 74 2e 2e 2e 0d | * to us|e it....|
|00002190| 44 48 2c f4 20 2a 20 20 | 20 4f 4e 20 45 52 52 4f |DH,. * | ON ERRO|
|000021a0| 52 20 50 52 4f 43 5f 68 | 61 6e 64 6c 65 5f 6c 69 |R PROC_h|andle_li|
|000021b0| 62 72 61 72 79 5f 65 72 | 72 6f 72 0d 44 52 0d f4 |brary_er|ror.DR..|
|000021c0| 20 2a 20 20 20 2e 2e 2e | 0d 44 5c 21 f4 20 2a 20 | * ...|.D\!. * |
|000021d0| 20 20 44 45 46 20 50 52 | 4f 43 5f 6d 79 5f 70 72 | DEF PR|OC_my_pr|
|000021e0| 6f 63 28 20 2e 2e 2e 20 | 29 0d 44 66 13 f4 20 2a |oc( ... |).Df.. *|
|000021f0| 20 20 20 4c 4f 43 41 4c | 20 2e 2e 2e 0d 44 70 15 | LOCAL| ....Dp.|
|00002200| f4 20 2a 20 20 20 4c 4f | 43 41 4c 20 45 52 52 4f |. * LO|CAL ERRO|
|00002210| 52 0d 44 7a 48 f4 20 2a | 20 20 20 20 20 20 4f 4e |R.DzH. *| ON|
|00002220| 20 45 52 52 4f 52 20 4c | 4f 43 41 4c 20 52 45 53 | ERROR L|OCAL RES|
|00002230| 54 4f 52 45 20 45 52 52 | 4f 52 20 20 3a 20 20 50 |TORE ERR|OR : P|
|00002240| 52 4f 43 5f 65 28 20 22 | 25 2e 4c 69 62 3a 20 6d |ROC_e( "|%.Lib: m|
|00002250| 79 5f 70 72 6f 63 22 20 | 29 0d 44 84 10 f4 20 2a |y_proc" |).D... *|
|00002260| 20 20 20 20 20 20 2e 2e | 2e 0d 44 8e 11 f4 20 2a | ..|..D... *|
|00002270| 20 20 20 45 4e 44 50 52 | 4f 43 0d 44 98 35 f4 20 | ENDPR|OC.D.5. |
|00002280| 2a 20 4e 42 20 20 4e 65 | 65 64 20 74 68 69 73 20 |* NB Ne|ed this |
|00002290| 6f 74 68 65 72 20 6c 65 | 76 65 6c 2c 20 73 69 6e |other le|vel, sin|
|000022a0| 63 65 20 69 66 20 6a 75 | 73 74 20 6b 65 65 70 0d |ce if ju|st keep.|
|000022b0| 44 a2 49 f4 20 2a 20 20 | 20 20 20 27 45 52 52 4f |D.I. * | 'ERRO|
|000022c0| 52 20 45 52 52 2c 20 72 | 6f 75 74 69 6e 65 24 20 |R ERR, r|outine$ |
|000022d0| 2b 20 52 45 50 4f 52 54 | 24 27 2c 20 74 68 65 6e |+ REPORT|$', then|
|000022e0| 20 42 41 53 49 43 20 77 | 69 6c 6c 20 71 75 69 63 | BASIC w|ill quic|
|000022f0| 6b 6c 79 20 68 61 76 65 | 0d 44 ac 31 f4 20 2a 20 |kly have|.D.1. * |
|00002300| 20 20 20 20 74 6f 20 63 | 68 6f 70 20 74 68 65 20 | to c|hop the |
|00002310| 73 74 72 69 6e 67 20 74 | 6f 20 32 35 35 20 63 68 |string t|o 255 ch|
|00002320| 61 72 61 63 74 65 72 73 | 2e 0d 44 b6 47 f4 20 2a |aracters|..D.G. *|
|00002330| 20 20 20 20 20 53 6f 20 | 73 74 6f 72 69 6e 67 20 | So |storing |
|00002340| 69 6e 20 61 6e 20 61 72 | 72 61 79 20 2d 20 74 68 |in an ar|ray - th|
|00002350| 65 6e 20 70 72 69 6e 74 | 20 6f 75 74 20 74 68 65 |en print| out the|
|00002360| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 73 2e | error m|essages.|
|00002370| 0d 44 c0 07 f4 20 2a 0d | 44 ca 15 dd 20 f2 5f 65 |.D... *.|D... ._e|
|00002380| 28 20 72 6f 75 74 69 6e | 65 24 20 29 0d 44 d4 17 |( routin|e$ ).D..|
|00002390| 20 20 20 e7 20 57 69 6d | 70 5f 41 63 74 69 76 65 | . Wim|p_Active|
|000023a0| 25 20 8c 0d 44 de 32 20 | 20 20 3a 20 f4 20 20 50 |% ..D.2 | : . P|
|000023b0| 61 73 73 20 65 72 72 6f | 72 20 6f 6e 74 6f 20 6e |ass erro|r onto n|
|000023c0| 65 78 74 20 6c 65 76 65 | 6c 20 6f 66 20 68 61 6e |ext leve|l of han|
|000023d0| 64 6c 65 72 2e 0d 44 e8 | 08 20 20 20 3a 0d 44 f2 |dler..D.|. :.D.|
|000023e0| 19 20 20 20 20 20 20 e7 | 20 44 65 62 75 67 5f 57 |. .| Debug_W|
|000023f0| 69 6d 70 25 20 8c 0d 44 | fc 2f 20 20 20 20 20 20 |imp% ..D|./ |
|00002400| 3a 20 f4 20 20 4d 69 67 | 68 74 20 62 65 20 75 73 |: . Mig|ht be us|
|00002410| 65 66 75 6c 20 77 68 69 | 6c 65 20 64 65 62 75 67 |eful whi|le debug|
|00002420| 67 69 6e 67 2e 0d 45 06 | 0b 20 20 20 20 20 20 3a |ging..E.|. :|
|00002430| 0d 45 10 24 20 20 20 20 | 20 20 20 20 20 85 20 9f |.E.$ | . .|
|00002440| 2c 20 f6 24 2b 20 22 20 | 5b 22 2b 20 c3 9e 2b 20 |, .$+ " |["+ ..+ |
|00002450| 22 5d 2e 22 0d 45 1a 0b | 20 20 20 20 20 20 cc 0d |"].".E..| ..|
|00002460| 45 24 14 20 20 20 20 20 | 20 20 20 20 85 20 9f 2c |E$. | . .,|
|00002470| 20 f6 24 0d 45 2e 0b 20 | 20 20 20 20 20 cd 0d 45 | .$.E.. | ..E|
|00002480| 38 08 20 20 20 cc 0d 45 | 42 26 20 20 20 20 20 20 |8. ..E|B& |
|00002490| e7 20 ac 20 4f 6e 5f 4c | 69 62 5f 45 72 72 6f 72 |. . On_L|ib_Error|
|000024a0| 5f 43 6f 6e 74 69 6e 75 | 65 25 20 8c 0d 45 4c 37 |_Continu|e% ..EL7|
|000024b0| 20 20 20 20 20 20 20 20 | 20 e7 20 4c 69 62 5f 45 | | . Lib_E|
|000024c0| 72 72 6f 72 5f 4c 65 76 | 65 6c 25 3d 4e 75 6d 5f |rror_Lev|el%=Num_|
|000024d0| 4c 69 62 5f 45 72 72 6f | 72 5f 4c 65 76 65 6c 73 |Lib_Erro|r_Levels|
|000024e0| 25 20 8c 0d 45 56 4e 20 | 20 20 20 20 20 20 20 20 |% ..EVN | |
|000024f0| 20 20 20 4c 69 62 5f 45 | 72 72 6f 72 73 28 20 4e | Lib_E|rrors( N|
|00002500| 75 6d 5f 4c 69 62 5f 45 | 72 72 6f 72 5f 4c 65 76 |um_Lib_E|rror_Lev|
|00002510| 65 6c 73 25 2d 31 20 29 | 20 3d 20 22 45 72 72 6f |els%-1 )| = "Erro|
|00002520| 72 73 20 74 6f 6f 20 64 | 65 65 70 21 21 21 21 21 |rs too d|eep!!!!!|
|00002530| 22 0d 45 60 26 20 20 20 | 20 20 20 20 20 20 20 20 |".E`& | |
|00002540| 20 f2 5f 68 61 6e 64 6c | 65 5f 6c 69 62 72 61 72 | ._handl|e_librar|
|00002550| 79 5f 65 72 72 6f 72 0d | 45 6a 0e 20 20 20 20 20 |y_error.|Ej. |
|00002560| 20 20 20 20 cd 0d 45 74 | 43 20 20 20 20 20 20 20 | ..Et|C |
|00002570| 20 20 4c 69 62 5f 45 72 | 72 6f 72 73 24 28 20 4c | Lib_Er|rors$( L|
|00002580| 69 62 5f 45 72 72 6f 72 | 5f 4c 65 76 65 6c 25 20 |ib_Error|_Level% |
|00002590| 29 20 3d 20 72 6f 75 74 | 69 6e 65 24 20 2b 20 22 |) = rout|ine$ + "|
|000025a0| 3a 20 22 20 2b 20 f6 24 | 0d 45 7e 46 20 20 20 20 |: " + .$|.E~F |
|000025b0| 20 20 20 20 20 4c 69 62 | 5f 45 72 72 6f 72 73 24 | Lib|_Errors$|
|000025c0| 28 20 4c 69 62 5f 45 72 | 72 6f 72 5f 4c 65 76 65 |( Lib_Er|ror_Leve|
|000025d0| 6c 25 20 29 20 2b 3d 20 | 22 20 28 6c 69 6e 65 20 |l% ) += |" (line |
|000025e0| 22 20 2b 20 c3 28 9e 29 | 20 2b 20 22 29 22 0d 45 |" + .(.)| + ")".E|
|000025f0| 88 22 20 20 20 20 20 20 | 20 20 20 4c 69 62 5f 45 |." | Lib_E|
|00002600| 72 72 6f 72 5f 4c 65 76 | 65 6c 25 20 2b 3d 20 31 |rror_Lev|el% += 1|
|00002610| 0d 45 92 14 20 20 20 20 | 20 20 20 20 20 85 20 9f |.E.. | . .|
|00002620| 2c 20 22 22 0d 45 9c 0b | 20 20 20 20 20 20 cd 0d |, "".E..| ..|
|00002630| 45 a6 08 20 20 20 cd 0d | 45 b0 05 e1 0d 45 ba 05 |E.. ..|E....E..|
|00002640| 3a 0d 45 c4 1c dd 20 f2 | 5f 68 61 6e 64 6c 65 5f |:.E... .|_handle_|
|00002650| 6c 69 62 72 61 72 79 5f | 65 72 72 6f 72 0d 45 ce |library_|error.E.|
|00002660| 17 20 20 20 e7 20 57 69 | 6d 70 5f 41 63 74 69 76 |. . Wi|mp_Activ|
|00002670| 65 25 20 8c 0d 45 d8 19 | 20 20 20 20 20 20 e7 20 |e% ..E..| . |
|00002680| 44 65 62 75 67 5f 57 69 | 6d 70 25 20 8c 0d 45 e2 |Debug_Wi|mp% ..E.|
|00002690| 35 20 20 20 20 20 20 20 | 20 20 f2 5f 57 69 6d 70 |5 | ._Wimp|
|000026a0| 5f 45 72 72 6f 72 28 20 | 9f 2c 20 f6 24 2b 20 22 |_Error( |., .$+ "|
|000026b0| 20 5b 22 2b 20 c3 28 9e | 29 2b 20 22 5d 2e 22 20 | ["+ .(.|)+ "]." |
|000026c0| 20 29 0d 45 ec 1d 20 20 | 20 20 20 20 20 20 20 f2 | ).E.. | .|
|000026d0| 5f 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 0d |_Wimp_Cl|oseDown.|
|000026e0| 45 f6 0e 20 20 20 20 20 | 20 20 20 20 e0 0d 46 00 |E.. | ..F.|
|000026f0| 0b 20 20 20 20 20 20 cc | 0d 46 0a 23 20 20 20 20 |. .|.F.# |
|00002700| 20 20 20 20 20 f2 5f 57 | 69 6d 70 5f 45 72 72 6f | ._W|imp_Erro|
|00002710| 72 28 20 9f 2c 20 f6 24 | 20 20 29 0d 46 14 24 20 |r( ., .$| ).F.$ |
|00002720| 20 20 20 20 20 20 20 20 | e7 20 9f 3d 57 69 6d 70 | |. .=Wimp|
|00002730| 5f 45 72 72 6f 72 5f 46 | 61 74 61 6c 25 20 8c 0d |_Error_F|atal% ..|
|00002740| 46 1e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |F. | .|
|00002750| 5f 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 0d |_Wimp_Cl|oseDown.|
|00002760| 46 28 11 20 20 20 20 20 | 20 20 20 20 20 20 20 e0 |F(. | .|
|00002770| 0d 46 32 0e 20 20 20 20 | 20 20 20 20 20 cd 0d 46 |.F2. | ..F|
|00002780| 3c 0b 20 20 20 20 20 20 | cd 0d 46 46 08 20 20 20 |<. |..FF. |
|00002790| cc 0d 46 50 22 20 20 20 | 20 20 20 e7 20 4f 6e 5f |..FP" | . On_|
|000027a0| 4c 69 62 5f 45 72 72 6f | 72 5f 4d 4f 44 45 25 3e |Lib_Erro|r_MODE%>|
|000027b0| 30 20 8c 0d 46 5a 36 20 | 20 20 20 20 20 20 20 20 |0 ..FZ6 | |
|000027c0| eb 20 4f 6e 5f 4c 69 62 | 5f 45 72 72 6f 72 5f 4d |. On_Lib|_Error_M|
|000027d0| 4f 44 45 25 20 20 3a 20 | 20 f4 20 20 52 65 73 65 |ODE% : | . Rese|
|000027e0| 74 20 73 63 72 65 65 6e | 2e 0d 46 64 0b 20 20 20 |t screen|..Fd. |
|000027f0| 20 20 20 cd 0d 46 6e 25 | 20 20 20 20 20 20 f1 20 | ..Fn%| . |
|00002800| 22 41 6e 20 65 72 72 6f | 72 20 68 61 73 20 6f 63 |"An erro|r has oc|
|00002810| 63 75 72 65 64 2e 2e 2e | 22 0d 46 78 0b 20 20 20 |cured...|".Fx. |
|00002820| 20 20 20 f1 0d 46 82 20 | 20 20 20 20 20 20 e7 20 | ..F. | . |
|00002830| 4c 69 62 5f 45 72 72 6f | 72 5f 4c 65 76 65 6c 25 |Lib_Erro|r_Level%|
|00002840| 3d 30 20 8c 0d 46 8c 1f | 20 20 20 20 20 20 20 20 |=0 ..F..| |
|00002850| 20 f1 20 f6 24 3b 20 22 | 3a 20 6c 69 6e 65 20 22 | . .$; "|: line "|
|00002860| 3b 20 9e 0d 46 96 0b 20 | 20 20 20 20 20 cc 0d 46 |; ..F.. | ..F|
|00002870| a0 0e 20 20 20 20 20 20 | 20 20 20 f5 0d 46 aa 25 |.. | ..F.%|
|00002880| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 69 62 5f | | Lib_|
|00002890| 45 72 72 6f 72 5f 4c 65 | 76 65 6c 25 20 2d 3d 20 |Error_Le|vel% -= |
|000028a0| 31 0d 46 b4 39 20 20 20 | 20 20 20 20 20 20 20 20 |1.F.9 | |
|000028b0| 20 fb 20 28 28 37 20 2d | 20 28 4c 69 62 5f 45 72 | . ((7 -| (Lib_Er|
|000028c0| 72 6f 72 5f 4c 65 76 65 | 6c 25 20 3c 3c 20 31 29 |ror_Leve|l% << 1)|
|000028d0| 29 20 80 20 36 29 20 2b | 20 31 0d 46 be 32 20 20 |) . 6) +| 1.F.2 |
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 f1 20 4c 69 62 5f | | . Lib_|
|000028f0| 45 72 72 6f 72 73 24 28 | 20 4c 69 62 5f 45 72 72 |Errors$(| Lib_Err|
|00002900| 6f 72 5f 4c 65 76 65 6c | 25 20 29 3b 0d 46 c8 26 |or_Level|% );.F.&|
|00002910| 20 20 20 20 20 20 20 20 | 20 20 20 20 e7 20 4c 69 | | . Li|
|00002920| 62 5f 45 72 72 6f 72 5f | 4c 65 76 65 6c 25 3e 30 |b_Error_|Level%>0|
|00002930| 20 8c 0d 46 d2 1a 20 20 | 20 20 20 20 20 20 20 20 | ..F.. | |
|00002940| 20 20 20 20 20 f1 20 22 | 3a 20 22 3b 0d 46 dc 11 | . "|: ";.F..|
|00002950| 20 20 20 20 20 20 20 20 | 20 20 20 20 cd 0d 46 e6 | | ..F.|
|00002960| 21 20 20 20 20 20 20 20 | 20 20 fd 20 4c 69 62 5f |! | . Lib_|
|00002970| 45 72 72 6f 72 5f 4c 65 | 76 65 6c 25 3d 30 0d 46 |Error_Le|vel%=0.F|
|00002980| f0 0b 20 20 20 20 20 20 | cd 0d 46 fa 0b 20 20 20 |.. |..F.. |
|00002990| 20 20 20 f1 0d 47 04 0d | 20 20 20 20 20 20 fb 20 | ..G..| . |
|000029a0| 37 0d 47 0e 0b 20 20 20 | 20 20 20 e0 0d 47 18 08 |7.G.. | ..G..|
|000029b0| 20 20 20 cd 0d 47 22 05 | e1 0d 47 2c 05 3a 0d ff | ..G".|..G,.:..|
+--------+-------------------------+-------------------------+--------+--------+
