home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / code / wt / wtexample / Examples_~ClaimSWIs_ClaimSWI < prev    next >
Unknown  |  1995-04-04  |  3.7 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 04 0d 00 02 23 | f4 20 57 54 20 65 78 61 |.......#|. WT exa|
|00000010| 6d 70 6c 65 20 66 6f 72 | 20 63 6c 61 69 6d 69 6e |mple for| claimin|
|00000020| 67 20 53 57 49 73 2e 0d | 00 03 23 f4 20 3d 3d 3d |g SWIs..|..#. ===|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 00 04 04 0d 00 |========|==......|
|00000050| 05 4f f4 20 54 68 69 73 | 20 65 78 61 6d 70 6c 65 |.O. This| example|
|00000060| 20 73 68 6f 77 73 20 68 | 6f 77 20 79 6f 75 20 63 | shows h|ow you c|
|00000070| 61 6e 20 69 6e 74 65 72 | 63 65 70 74 20 61 20 53 |an inter|cept a S|
|00000080| 57 49 20 77 69 74 68 20 | 6e 75 6d 62 65 72 20 6c |WI with |number l|
|00000090| 65 73 73 20 74 68 61 74 | 20 26 31 30 30 0d 00 06 |ess that| &100...|
|000000a0| 3b f4 20 61 66 74 65 72 | 20 72 75 6e 6e 69 6e 67 |;. after| running|
|000000b0| 20 74 68 69 73 20 74 68 | 65 20 73 79 73 74 65 6d | this th|e system|
|000000c0| 20 6d 6f 64 75 6c 65 73 | 20 77 69 6c 6c 20 62 65 | modules| will be|
|000000d0| 20 6c 6f 63 6b 65 64 21 | 0d 00 07 1a f4 20 55 73 | locked!|..... Us|
|000000e0| 65 20 2d 20 2a 52 4d 4b | 69 6c 6c 20 52 4d 4c 6f |e - *RMK|ill RMLo|
|000000f0| 63 6b 0d 00 08 04 0d 00 | 09 0e 73 61 76 65 25 20 |ck......|..save% |
|00000100| 20 20 3d 30 0d 00 0a 15 | 74 69 74 6c 65 24 20 20 | =0....|title$ |
|00000110| 3d 22 52 4d 4c 6f 63 6b | 22 0d 00 0b 25 70 61 74 |="RMLock|"...%pat|
|00000120| 68 24 20 20 20 3d 22 57 | 54 45 78 61 6d 70 6c 65 |h$ ="W|TExample|
|00000130| 73 3a 7e 43 6c 61 69 6d | 53 57 49 73 2e 22 0d 00 |s:~Claim|SWIs."..|
|00000140| 0c 13 66 69 6c 65 24 20 | 20 20 3d 74 69 74 6c 65 |..file$ | =title|
|00000150| 24 0d 00 0d 13 76 65 72 | 73 69 6f 6e 24 3d 22 30 |$....ver|sion$="0|
|00000160| 2e 30 32 22 0d 00 0e 0f | 68 65 6c 70 24 20 20 20 |.02"....|help$ |
|00000170| 3d 22 22 0d 00 0f 0f 68 | 65 6c 70 24 20 20 2b 3d |=""....h|elp$ +=|
|00000180| 22 22 0d 00 10 0f 68 65 | 6c 70 24 20 20 2b 3d 22 |""....he|lp$ +="|
|00000190| 22 0d 00 11 04 0d 00 12 | 11 64 6c 72 63 68 75 6e |".......|.dlrchun|
|000001a0| 6b 25 3d 26 34 30 0d 00 | 13 04 0d 00 14 37 6e 66 |k%=&40..|.....7nf|
|000001b0| 3d 31 3c 3c 33 31 3a 7a | 66 3d 31 3c 3c 33 30 3a |=1<<31:z|f=1<<30:|
|000001c0| 63 66 3d 31 3c 3c 32 39 | 3a 76 66 3d 31 3c 3c 32 |cf=1<<29|:vf=1<<2|
|000001d0| 38 3a 64 6c 72 62 3d 30 | 3a 64 6c 72 62 5f 5f 3d |8:dlrb=0|:dlrb__=|
|000001e0| 30 0d 00 15 19 e7 a9 74 | 69 74 6c 65 24 3c 38 20 |0......t|itle$<8 |
|000001f0| 74 69 74 6c 65 24 2b 3d | bd 39 0d 00 16 3e de 63 |title$+=|.9...>.c|
|00000200| 6f 64 65 25 35 30 2a 31 | 30 32 34 2c 4c 25 2d 31 |ode%50*1|024,L%-1|
|00000210| 3a e3 70 25 3d 31 32 b8 | 31 34 88 32 3a 4f 25 3d |:.p%=12.|14.2:O%=|
|00000220| 63 6f 64 65 25 3a 50 25 | 3d 30 3a 5b 4f 50 54 70 |code%:P%|=0:[OPTp|
|00000230| 25 3a 2e 73 74 61 72 74 | 0d 00 17 46 5c 5f 5f 5f |%:.start|...F\___|
|00000240| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000250| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000260| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000270| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 0d 00 |________|______..|
|00000280| 18 04 0d 00 19 22 2e 77 | 74 6d 68 20 20 20 20 20 |.....".w|tmh |
|00000290| 20 20 20 20 20 64 63 64 | 20 6d 6f 64 75 6c 65 5f | dcd| module_|
|000002a0| 77 6f 72 64 0d 00 1a 1a | 20 20 20 20 20 20 20 20 |word....| |
|000002b0| 20 20 20 20 20 20 20 3d | 22 57 54 6d 64 22 0d 00 | =|"WTmd"..|
|000002c0| 1b 1b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000002d0| 20 64 63 64 20 68 65 6c | 70 0d 00 1c 3d 20 20 20 | dcd hel|p...= |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 63 64 20 | | dcd |
|000002f0| 77 74 73 68 20 20 20 20 | 20 20 20 20 20 20 5c 20 |wtsh | \ |
|00000300| 77 74 20 73 65 72 76 69 | 63 65 20 6d 73 67 20 68 |wt servi|ce msg h|
|00000310| 61 6e 64 6c 65 72 0d 00 | 1d 0b 2e 77 74 6d 68 5f |andler..|...wtmh_|
|00000320| 5f 0d 00 1e 18 2e 68 65 | 6c 70 20 20 20 20 20 20 |_.....he|lp |
|00000330| 20 20 20 20 a4 68 65 6c | 70 0d 00 1f 46 5c 5f 5f | .hel|p...F\__|
|00000340| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000350| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000360| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000370| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 0d |________|_______.|
|00000380| 00 20 04 0d 00 21 3b 2e | 77 74 73 68 20 20 20 20 |. ...!;.|wtsh |
|00000390| 20 20 20 20 20 20 74 65 | 71 20 20 20 20 20 31 2c | te|q 1,|
|000003a0| 23 a4 69 64 28 22 57 54 | 53 65 72 76 69 63 65 5f |#.id("WT|Service_|
|000003b0| 46 69 6e 61 6c 69 73 61 | 74 69 6f 6e 22 29 0d 00 |Finalisa|tion")..|
|000003c0| 22 3d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"= | |
|000003d0| 20 74 65 71 6e 65 20 20 | 20 31 2c 23 a4 69 64 28 | teqne | 1,#.id(|
|000003e0| 22 57 54 53 65 72 76 69 | 63 65 5f 49 6e 69 74 69 |"WTServi|ce_Initi|
|000003f0| 61 6c 69 73 61 74 69 6f | 6e 22 29 0d 00 23 3e 20 |alisatio|n")..#> |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 65 | | te|
|00000410| 71 6e 65 20 20 20 31 2c | 23 a4 69 64 28 22 57 54 |qne 1,|#.id("WT|
|00000420| 53 65 72 76 69 63 65 5f | 53 79 73 74 65 6d 50 6f |Service_|SystemPo|
|00000430| 73 74 52 65 73 65 74 22 | 29 0d 00 24 20 20 20 20 |stReset"|)..$ |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 6e | | movn|
|00000450| 65 73 20 20 31 35 2c 31 | 34 0d 00 25 04 0d 00 26 |es 15,1|4..%...&|
|00000460| 27 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |' | |
|00000470| 73 74 6d 66 64 20 20 20 | 31 33 21 2c 7b 31 2d 32 |stmfd |13!,{1-2|
|00000480| 2c 31 34 7d 0d 00 27 3b | 20 20 20 20 20 20 20 20 |,14}..';| |
|00000490| 20 20 20 20 20 20 20 74 | 65 71 20 20 20 20 20 31 | t|eq 1|
|000004a0| 2c 23 a4 69 64 28 22 57 | 54 53 65 72 76 69 63 65 |,#.id("W|TService|
|000004b0| 5f 46 69 6e 61 6c 69 73 | 61 74 69 6f 6e 22 29 0d |_Finalis|ation").|
|000004c0| 00 28 52 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(R | |
|000004d0| 20 20 73 77 69 6e 65 20 | 20 20 22 58 57 54 5f 52 | swine | "XWT_R|
|000004e0| 65 67 69 73 74 65 72 57 | 54 44 4c 52 73 22 20 20 |egisterW|TDLRs" |
|000004f0| 20 20 20 3b 20 52 65 67 | 69 73 74 65 72 20 57 54 | ; Reg|ister WT|
|00000500| 44 4c 52 73 2c 20 74 68 | 69 73 20 61 6c 6c 6f 77 |DLRs, th|is allow|
|00000510| 73 0d 00 29 51 20 20 20 | 20 20 20 20 20 20 20 20 |s..)Q | |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000540| 20 20 20 20 20 3b 20 57 | 54 44 4c 52 73 20 74 6f | ; W|TDLRs to|
|00000550| 20 62 65 20 72 65 70 6c | 61 63 65 64 20 77 68 69 | be repl|aced whi|
|00000560| 6c 65 0d 00 2a 4b 20 20 | 20 20 20 20 20 20 20 20 |le..*K | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000590| 20 20 20 20 20 20 3b 20 | 77 65 20 61 72 65 20 6c | ; |we are l|
|000005a0| 69 6e 6b 65 64 20 77 69 | 74 68 20 69 74 0d 00 2b |inked wi|th it..+|
|000005b0| 04 0d 00 2c 43 20 20 20 | 20 20 20 20 20 20 20 20 |...,C | |
|000005c0| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 30 2c 23 26 | mov | 0,#&|
|000005d0| 31 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1e | |
|000005e0| 20 20 20 20 20 3b 20 53 | 57 49 20 4f 53 5f 4d 6f | ; S|WI OS_Mo|
|000005f0| 64 75 6c 65 0d 00 2d 46 | 20 20 20 20 20 20 20 20 |dule..-F| |
|00000600| 20 20 20 20 20 20 20 61 | 64 72 20 20 20 20 20 31 | a|dr 1|
|00000610| 2c 63 6c 61 69 6d 63 6f | 64 65 20 20 20 20 20 20 |,claimco|de |
|00000620| 20 20 20 20 20 20 20 20 | 3b 20 70 6f 69 6e 74 65 | |; pointe|
|00000630| 72 20 74 6f 20 70 61 74 | 63 68 0d 00 2e 4a 20 20 |r to pat|ch...J |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 | | mov|
|00000650| 20 20 20 20 20 32 2c 23 | 30 20 20 20 20 20 20 20 | 2,#|0 |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00000670| 6e 6f 20 77 6f 72 6b 73 | 70 61 63 65 20 70 6f 69 |no works|pace poi|
|00000680| 6e 74 65 72 0d 00 2f 4f | 20 20 20 20 20 20 20 20 |nter../O| |
|00000690| 20 20 20 20 20 20 20 73 | 77 69 6e 65 20 20 20 22 | s|wine "|
|000006a0| 58 57 54 5f 43 6c 61 69 | 6d 53 57 49 22 20 20 20 |XWT_Clai|mSWI" |
|000006b0| 20 20 20 20 20 20 20 20 | 3b 20 69 66 20 69 6e 69 | |; if ini|
|000006c0| 74 69 61 6c 2e 20 6f 72 | 20 70 6f 73 74 20 72 65 |tial. or| post re|
|000006d0| 73 65 74 0d 00 30 45 20 | 20 20 20 20 20 20 20 20 |set..0E | |
|000006e0| 20 20 20 20 20 20 73 77 | 69 65 71 20 20 20 22 58 | sw|ieq "X|
|000006f0| 57 54 5f 52 65 6c 65 61 | 73 65 53 57 49 22 20 20 |WT_Relea|seSWI" |
|00000700| 20 20 20 20 20 20 20 3b | 20 69 66 20 66 69 6e 61 | ;| if fina|
|00000710| 6c 69 73 61 74 69 6f 6e | 0d 00 31 27 20 20 20 20 |lisation|..1' |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 6c 64 6d 66 64 | | ldmfd|
|00000730| 20 20 20 31 33 21 2c 7b | 31 2d 32 2c 31 35 7d 0d | 13!,{|1-2,15}.|
|00000740| 00 32 49 5c 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |.2I\____|________|
|00000750| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000760| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000770| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000780| 5f 5f 5f 5f 5f 5f 5f 5f | 0d 00 33 04 0d 00 34 4e |________|..3...4N|
|00000790| 2e 63 6c 61 69 6d 63 6f | 64 65 20 20 20 20 20 74 |.claimco|de t|
|000007a0| 65 71 20 20 20 20 20 30 | 2c 23 34 20 20 20 20 20 |eq 0|,#4 |
|000007b0| 20 20 20 20 20 20 20 20 | 3b 20 69 66 20 6e 6f 74 | |; if not|
|000007c0| 20 27 4d 6f 64 75 6c 65 | 20 6b 69 6c 6c 27 20 72 | 'Module| kill' r|
|000007d0| 65 61 73 6f 6e 20 63 6f | 64 65 0d 00 35 34 20 20 |eason co|de..54 |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 | | mov|
|000007f0| 6e 65 73 20 20 31 35 2c | 31 34 20 20 20 20 20 20 |nes 15,|14 |
|00000800| 20 20 20 20 20 20 3b 20 | 72 65 74 75 72 6e 0d 00 | ; |return..|
|00000810| 36 04 0d 00 37 40 20 20 | 20 20 20 20 20 20 20 20 |6...7@ | |
|00000820| 20 20 20 20 20 73 74 6d | 66 64 20 20 20 31 33 21 | stm|fd 13!|
|00000830| 2c 7b 30 2d 35 2c 31 34 | 7d 20 20 20 20 20 3b 20 |,{0-5,14|} ; |
|00000840| 70 72 65 73 65 72 76 65 | 20 72 65 67 69 73 74 65 |preserve| registe|
|00000850| 72 73 0d 00 38 47 20 20 | 20 20 20 20 20 20 20 20 |rs..8G | |
|00000860| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 30 2c 23 | mov| 0,#|
|00000870| 31 38 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |18 | ; |
|00000880| 27 4d 6f 64 75 6c 65 20 | 69 6e 66 6f 27 20 72 65 |'Module |info' re|
|00000890| 61 73 6f 6e 20 63 6f 64 | 65 0d 00 39 37 20 20 20 |ason cod|e..97 |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 77 69 20 | | swi |
|000008b0| 20 20 20 20 26 32 30 30 | 31 65 20 20 20 20 20 20 | &200|1e |
|000008c0| 20 20 20 20 20 3b 20 4f | 53 5f 4d 6f 64 75 6c 65 | ; O|S_Module|
|000008d0| 0d 00 3a 51 20 20 20 20 | 20 20 20 20 20 20 20 20 |..:Q | |
|000008e0| 20 20 20 6c 64 6d 76 73 | 66 64 20 31 33 21 2c 7b | ldmvs|fd 13!,{|
|000008f0| 30 2d 35 2c 31 35 7d 5e | 20 20 20 20 3b 20 69 66 |0-5,15}^| ; if|
|00000900| 20 6d 6f 64 75 6c 65 20 | 6e 6f 74 20 66 6f 75 6e | module |not foun|
|00000910| 64 20 6c 65 74 20 52 49 | 53 43 20 4f 53 20 73 65 |d let RI|SC OS se|
|00000920| 74 0d 00 3b 36 20 20 20 | 20 20 20 20 20 20 20 20 |t..;6 | |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 | | ; a|
|00000950| 6e 20 65 72 72 6f 72 0d | 00 3c 04 0d 00 3d 44 20 |n error.|.<...=D |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 | | ld|
|00000970| 6d 66 64 20 20 20 31 33 | 21 2c 7b 30 2d 35 2c 31 |mfd 13|!,{0-5,1|
|00000980| 34 7d 20 20 20 20 20 3b | 20 67 65 74 20 63 61 6c |4} ;| get cal|
|00000990| 6c 65 72 27 73 20 72 65 | 67 69 73 74 65 72 73 0d |ler's re|gisters.|
|000009a0| 00 3e 3e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.>> | |
|000009b0| 20 20 61 64 72 20 20 20 | 20 20 30 2c 65 72 72 6f | adr | 0,erro|
|000009c0| 72 20 20 20 20 20 20 20 | 20 20 20 3b 20 70 6f 69 |r | ; poi|
|000009d0| 6e 74 65 72 20 74 6f 20 | 65 72 72 6f 72 0d 00 3f |nter to |error..?|
|000009e0| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |8 | |
|000009f0| 63 6d 70 20 20 20 20 20 | 31 35 2c 23 31 3c 3c 33 |cmp |15,#1<<3|
|00000a00| 31 20 20 20 20 20 20 20 | 20 3b 20 73 65 74 20 56 |1 | ; set V|
|00000a10| 20 66 6c 61 67 0d 00 40 | 3b 20 20 20 20 20 20 20 | flag..@|; |
|00000a20| 20 20 20 20 20 20 20 20 | 2a 62 20 20 20 20 20 20 | |*b |
|00000a30| 57 54 5f 49 6e 74 65 72 | 63 65 70 74 53 57 49 20 |WT_Inter|ceptSWI |
|00000a40| 20 3b 20 69 6e 74 65 72 | 63 65 70 74 20 53 57 49 | ; inter|cept SWI|
|00000a50| 0d 00 41 04 0d 00 42 18 | 2e 65 72 72 6f 72 20 20 |..A...B.|.error |
|00000a60| 20 20 20 20 20 20 20 64 | 63 64 20 30 0d 00 43 40 | d|cd 0..C@|
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d | | =|
|00000a80| 22 53 79 73 74 65 6d 20 | 6d 6f 64 75 6c 65 73 20 |"System |modules |
|00000a90| 61 72 65 20 6c 6f 63 6b | 65 64 20 61 67 61 69 6e |are lock|ed again|
|00000aa0| 73 74 20 6b 69 6c 6c 69 | 6e 67 21 22 0d 00 44 15 |st killi|ng!"..D.|
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d | | =|
|00000ac0| 30 0d 00 45 24 20 20 20 | 20 20 20 20 20 20 20 20 |0..E$ | |
|00000ad0| 20 20 20 20 40 20 20 20 | 20 20 20 20 20 3b 20 61 | @ | ; a|
|00000ae0| 6c 69 67 6e 21 0d 00 46 | 49 5c 5f 5f 5f 5f 5f 5f |lign!..F|I\______|
|00000af0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b00| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b10| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b20| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 0d 00 |________|______..|
|00000b30| 47 08 2e 65 6e 64 0d 00 | 48 05 5d 0d 00 49 2a 6d |G..end..|H.]..I*m|
|00000b40| 6f 64 75 6c 65 5f 77 6f | 72 64 3d 65 6e 64 2d 73 |odule_wo|rd=end-s|
|00000b50| 74 61 72 74 3c 3c 38 20 | 84 20 77 74 6d 68 5f 5f |tart<<8 |. wtmh__|
|00000b60| 2d 77 74 6d 68 0d 00 4a | 31 64 6c 72 5f 77 6f 72 |-wtmh..J|1dlr_wor|
|00000b70| 64 20 20 20 3d 64 6c 72 | 63 68 75 6e 6b 25 3c 3c |d =dlr|chunk%<<|
|00000b80| 38 20 84 20 28 64 6c 72 | 62 5f 5f 2d 64 6c 72 62 |8 . (dlr|b__-dlrb|
|00000b90| 2d 34 29 3e 3e 32 0d 00 | 4b 05 ed 0d 00 4c 04 0d |-4)>>2..|K....L..|
|00000ba0| 00 4d 18 c8 99 22 57 54 | 5f 49 6e 73 74 61 6c 6c |.M..."WT|_Install|
|00000bb0| 22 2c 63 6f 64 65 25 0d | 00 4e 2b e7 73 61 76 65 |",code%.|.N+.save|
|00000bc0| 25 c8 99 38 2c 31 30 2c | 70 61 74 68 24 2b 66 69 |%..8,10,|path$+fi|
|00000bd0| 6c 65 24 2c 26 62 36 66 | 2c 2c 63 6f 64 65 25 2c |le$,&b6f|,,code%,|
|00000be0| 4f 25 0d 00 4f 04 0d 00 | 50 63 f2 73 69 6d 70 6c |O%..O...|Pc.simpl|
|00000bf0| 65 5f 64 75 6d 70 28 70 | 61 74 68 24 2b 22 44 75 |e_dump(p|ath$+"Du|
|00000c00| 6d 70 22 2c 22 54 72 79 | 20 74 6f 20 6b 69 6c 6c |mp","Try| to kill|
|00000c10| 20 61 20 73 79 73 74 65 | 6d 20 6d 6f 64 75 6c 65 | a syste|m module|
|00000c20| 20 6e 6f 77 20 28 74 6f | 20 75 6e 6c 6f 63 6b 20 | now (to| unlock |
|00000c30| 75 73 65 3a 20 27 2a 57 | 54 4b 69 6c 6c 20 52 4d |use: '*W|TKill RM|
|00000c40| 4c 6f 63 6b 27 29 2e 22 | 29 0d 00 51 04 0d 00 52 |Lock')."|)..Q...R|
|00000c50| 05 e0 0d 00 53 2a dd a4 | 69 77 28 66 25 2c 74 25 |....S*..|iw(f%,t%|
|00000c60| 29 3a 5b 6f 70 74 70 25 | 3a 64 63 64 74 25 2d 50 |):[optp%|:dcdt%-P|
|00000c70| 25 3c 3c 38 84 66 25 3a | 5d 3a 3d 30 0d 00 54 29 |%<<8.f%:|]:=0..T)|
|00000c80| dd a4 69 64 28 73 24 29 | 3a c8 99 22 57 54 5f 54 |..id(s$)|:.."WT_T|
|00000c90| 6f 6b 65 6e 69 73 65 22 | 2c 2c 73 24 20 b8 2c 74 |okenise"|,,s$ .,t|
|00000ca0| 25 3a 3d 74 25 0d 00 55 | 17 dd a4 6e 75 6d 28 73 |%:=t%..U|...num(s|
|00000cb0| 24 29 3a 3d a4 69 64 20 | 80 32 35 35 0d 00 56 42 |$):=.id |.255..VB|
|00000cc0| dd a4 70 68 28 73 24 29 | 3a c8 99 22 57 54 5f 43 |..ph(s$)|:.."WT_C|
|00000cd0| 61 6c 6c 44 4c 52 44 22 | 2c 70 25 2c 22 50 48 5f |allDLRD"|,p%,"PH_|
|00000ce0| 43 6f 6d 70 72 65 73 73 | 22 2c 50 25 2c 4f 25 2c |Compress|",P%,O%,|
|00000cf0| 73 24 20 b8 2c 2c 50 25 | 2c 4f 25 3a 3d 30 0d 00 |s$ .,,P%|,O%:=0..|
|00000d00| 57 26 dd a4 68 65 6c 70 | 3a 5b 6f 70 74 70 25 3a |W&..help|:[optp%:|
|00000d10| 3d 74 69 74 6c 65 24 3a | 3d 39 3a 3d 76 65 72 73 |=title$:|=9:=vers|
|00000d20| 69 6f 6e 24 0d 00 58 40 | 3d 22 20 28 22 2b c1 91 |ion$..X@|=" ("+..|
|00000d30| 24 2c 35 2c 31 31 29 2b | 22 29 20 62 79 20 47 55 |$,5,11)+|") by GU|
|00000d40| 53 2c 20 a9 20 41 72 6f | 6d 61 22 3a 3d 31 33 3a |S, . Aro|ma":=13:|
|00000d50| a4 70 68 28 68 65 6c 70 | 24 29 3a 3d 30 3a 40 3a |.ph(help|$):=0:@:|
|00000d60| 5d 3a 3d 30 0d 00 59 04 | 0d 00 5a 18 dd f2 73 69 |]:=0..Y.|..Z...si|
|00000d70| 6d 70 6c 65 5f 64 75 6d | 70 28 66 24 2c 65 24 29 |mple_dum|p(f$,e$)|
|00000d80| 0d 00 5b 47 ff 28 22 3e | 45 63 68 6f 20 53 69 6d |..[G.(">|Echo Sim|
|00000d90| 70 6c 65 20 64 75 6d 70 | 20 6a 75 73 74 20 74 6f |ple dump| just to|
|00000da0| 20 63 68 65 63 6b 20 74 | 68 65 20 6f 75 74 70 75 | check t|he outpu|
|00000db0| 74 20 63 6f 64 65 2e 20 | 20 7b 20 3e 20 22 2b 66 |t code. | { > "+f|
|00000dc0| 24 2b 22 20 7d 22 29 0d | 00 5c 48 ff 28 22 3e 45 |$+" }").|.\H.(">E|
|00000dd0| 63 68 6f 20 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |cho ~~~~|~~~~~~~~|
|00000de0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|00000df0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 20 20 |~~~~~~~~|~~~~~~ |
|00000e00| 7b 20 3e 3e 20 22 2b 66 | 24 2b 22 20 7d 22 29 0d |{ >> "+f|$+" }").|
|00000e10| 00 5d 34 ff 28 22 3e 4d | 65 6d 6f 72 79 49 20 22 |.]4.(">M|emoryI "|
|00000e20| 2b c3 7e 63 6f 64 65 25 | 2b 22 20 22 2b c3 7e 4f |+.~code%|+" "+.~O|
|00000e30| 25 2b 22 20 7b 20 3e 3e | 20 22 2b 66 24 2b 22 20 |%+" { >>| "+f$+" |
|00000e40| 7d 22 29 0d 00 5e 1c ff | 28 22 3e 45 63 68 6f 20 |}")..^..|(">Echo |
|00000e50| 7b 20 3e 3e 20 22 2b 66 | 24 2b 22 20 7d 22 29 0d |{ >> "+f|$+" }").|
|00000e60| 00 5f 24 ff 28 22 3e 45 | 63 68 6f 20 22 2b 65 24 |._$.(">E|cho "+e$|
|00000e70| 2b 22 20 7b 20 3e 3e 20 | 22 2b 66 24 2b 22 20 7d |+" { >> |"+f$+" }|
|00000e80| 22 29 20 0d 00 60 1d ff | 28 22 3e 53 65 74 54 79 |") ..`..|(">SetTy|
|00000e90| 70 65 20 22 2b 66 24 2b | 22 20 54 65 78 74 22 29 |pe "+f$+|" Text")|
|00000ea0| 0d 00 61 17 ff 28 22 3e | 46 69 6c 65 72 5f 52 75 |..a..(">|Filer_Ru|
|00000eb0| 6e 20 22 2b 66 24 29 0d | 00 62 05 e1 0d ff |n "+f$).|.b.... |
+--------+-------------------------+-------------------------+--------+--------+