/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / wackytalky_2 / Developer / Examples / FileLoad / RLE / RLESupprt!

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 18 c8 9b 22 47 | 4c 69 62 3a 47 4c 69 62 |......"G|Lib:GLib|
|00000010| 22 3a f2 65 72 72 6f 72 | 0d 00 02 04 0d 00 03 0e |":.error|........|
|00000020| 73 61 76 65 25 20 20 20 | 3d 31 0d 00 04 19 74 69 |save%   |=1....ti|
|00000030| 74 6c 65 24 20 20 3d 22 | 52 4c 45 53 75 70 70 6f |tle$  ="|RLESuppo|
|00000040| 72 74 22 0d 00 05 13 66 | 69 6c 65 24 20 20 20 3d |rt"....f|ile$   =|
|00000050| 74 69 74 6c 65 24 0d 00 | 06 2d 70 61 74 68 24 20 |title$..|.-path$ |
|00000060| 20 20 3d 22 3c 57 54 45 | 78 61 6d 70 6c 65 73 24 |  ="<WTE|xamples$|
|00000070| 44 69 72 3e 2e 46 69 6c | 65 4c 6f 61 64 2e 52 4c |Dir>.Fil|eLoad.RL|
|00000080| 45 2e 22 0d 00 07 13 76 | 65 72 73 69 6f 6e 24 3d |E."....v|ersion$=|
|00000090| 22 30 2e 30 33 22 0d 00 | 08 4c 68 65 6c 70 24 20 |"0.03"..|.Lhelp$ |
|000000a0| 20 20 3d 22 53 75 70 70 | 6f 72 74 73 20 63 6f 6d |  ="Supp|orts com|
|000000b0| 70 72 65 73 73 65 64 20 | 57 54 20 6d 6f 64 75 6c |pressed |WT modul|
|000000c0| 65 73 20 77 69 74 68 20 | 69 6e 74 65 72 6e 61 6c |es with |internal|
|000000d0| 20 66 69 6c 65 74 79 70 | 65 20 27 52 4c 45 6d 27 | filetyp|e 'RLEm'|
|000000e0| 2e 22 0d 00 09 0f 68 65 | 6c 70 24 20 20 2b 3d 22 |."....he|lp$  +="|
|000000f0| 22 0d 00 0a 0f 68 65 6c | 70 24 20 20 2b 3d 22 22 |"....hel|p$  +=""|
|00000100| 0d 00 0b 04 0d 00 0c 11 | 64 6c 72 63 68 75 6e 6b |........|dlrchunk|
|00000110| 25 3d 26 34 30 0d 00 0d | 0d 70 6d 5f 77 6f 72 64 |%=&40...|.pm_word|
|00000120| 3d 30 0d 00 0e 04 0d 00 | 0f 15 f2 63 6f 64 65 28 |=0......|...code(|
|00000130| 35 30 2a 31 30 32 34 2c | 31 32 29 0d 00 10 04 0d |50*1024,|12).....|
|00000140| 00 11 18 c8 99 22 57 54 | 5f 49 6e 73 74 61 6c 6c |....."WT|_Install|
|00000150| 22 2c 63 6f 64 65 25 0d | 00 12 2d f4 49 46 73 61 |",code%.|..-.IFsa|
|00000160| 76 65 25 50 52 4f 43 73 | 61 76 65 63 6f 64 65 28 |ve%PROCs|avecode(|
|00000170| 66 69 6c 65 24 2c 26 62 | 36 66 2c 63 6f 64 65 25 |file$,&b|6f,code%|
|00000180| 2c 4f 25 29 0d 00 13 2b | e7 73 61 76 65 25 c8 99 |,O%)...+|.save%..|
|00000190| 38 2c 31 30 2c 70 61 74 | 68 24 2b 66 69 6c 65 24 |8,10,pat|h$+file$|
|000001a0| 2c 26 62 36 66 2c 2c 63 | 6f 64 65 25 2c 4f 25 0d |,&b6f,,c|ode%,O%.|
|000001b0| 00 14 04 0d 00 15 05 e0 | 0d 00 16 48 5f 5f 5f 5f |........|...H____|
|000001c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000001d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000001e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000001f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000200| 0d 00 17 04 0d 00 18 0f | dd a4 6d 63 3a 5b 6f 70 |........|..mc:[op|
|00000210| 74 70 25 0d 00 19 04 0d | 00 1a 2c 20 20 20 20 20 |tp%.....|..,     |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 a4 77 74 6d 5f 68 |        |  .wtm_h|
|00000230| 65 61 64 65 72 28 6c 61 | 73 74 5f 69 73 5f 63 6c |eader(la|st_is_cl|
|00000240| 69 25 29 0d 00 1b 48 5f | 5f 5f 5f 5f 5f 5f 5f 5f |i%)...H_|________|
|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 5f 5f |________|________|
|00000280| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 0d 00 1c 04 0d |________|___.....|
|00000290| 00 1d 1b 2e 66 69 6c 65 | 74 79 70 65 20 20 20 20 |....file|type    |
|000002a0| 20 20 3a 3d 22 52 4c 45 | 6d 22 0d 00 1e 45 5f 5f |  :="RLE|m"...E__|
|000002b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 0d |________|_______.|
|000002f0| 00 1f 04 0d 00 20 3c 2e | 77 74 73 68 20 20 20 20 |..... <.|wtsh    |
|00000300| 20 20 20 20 20 20 74 65 | 71 20 20 20 20 20 31 2c |      te|q     1,|
|00000310| 23 a4 69 64 28 22 57 54 | 53 65 72 76 69 63 65 5f |#.id("WT|Service_|
|00000320| 46 69 6c 65 42 6c 6f 63 | 6b 49 6e 66 6f 22 29 0d |FileBloc|kInfo").|
|00000330| 00 21 3e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.!>     |        |
|00000340| 20 20 74 65 71 6e 65 20 | 20 20 31 2c 23 a4 69 64 |  teqne |  1,#.id|
|00000350| 28 22 57 54 53 65 72 76 | 69 63 65 5f 4d 65 6d 6f |("WTServ|ice_Memo|
|00000360| 72 79 42 6c 6f 63 6b 49 | 6e 66 6f 22 29 0d 00 22 |ryBlockI|nfo").."|
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 6d 6f 76 6e 65 73 20 20 | 31 35 2c 31 34 0d 00 23 |movnes  |15,14..#|
|00000390| 04 0d 00 24 3a 20 20 20 | 20 20 20 20 20 20 20 20 |...$:   |        |
|000003a0| 20 20 20 20 6c 64 72 20 | 39 2c 66 69 6c 65 74 79 |    ldr |9,filety|
|000003b0| 70 65 20 20 20 20 20 20 | 3b 20 67 65 74 20 77 6f |pe      |; get wo|
|000003c0| 72 64 20 74 6f 20 63 68 | 65 63 6b 0d 00 25 4d 20 |rd to ch|eck..%M |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 65 |        |      te|
|000003e0| 71 20 39 2c 33 20 20 20 | 20 20 20 20 20 20 20 20 |q 9,3   |        |
|000003f0| 20 20 3b 20 69 73 20 74 | 68 65 20 31 73 74 20 77 |  ; is t|he 1st w|
|00000400| 6f 72 64 20 6f 66 20 62 | 6c 6f 63 6b 20 6c 69 6b |ord of b|lock lik|
|00000410| 65 20 6d 69 6e 65 20 3f | 0d 00 26 41 20 20 20 20 |e mine ?|..&A    |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 76 65 71 |        |   moveq|
|00000430| 20 33 2c 34 20 20 20 20 | 20 20 20 20 20 20 20 3b | 3,4    |       ;|
|00000440| 20 20 20 72 65 74 75 72 | 6e 20 72 65 61 6c 20 62 |   retur|n real b|
|00000450| 6c 6f 63 6b 20 73 69 7a | 65 0d 00 27 3e 20 20 20 |lock siz|e..'>   |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 65 |        |    move|
|00000470| 71 20 34 2c 31 20 20 20 | 20 20 20 20 20 20 20 20 |q 4,1   |        |
|00000480| 3b 20 20 20 6b 65 65 70 | 20 74 68 65 20 6d 65 73 |;   keep| the mes|
|00000490| 73 61 67 65 20 49 64 0d | 00 28 38 20 20 20 20 20 |sage Id.|.(8     |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 65 71 20 |        |  moveq |
|000004b0| 31 2c 23 30 20 20 20 20 | 20 20 20 20 20 20 3b 20 |1,#0    |      ; |
|000004c0| 20 20 63 6c 61 69 6d 20 | 6d 65 73 73 61 67 65 0d |  claim |message.|
|000004d0| 00 29 4a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.)J     |        |
|000004e0| 20 20 6d 6f 76 65 71 20 | 32 2c 31 32 20 20 20 20 |  moveq |2,12    |
|000004f0| 20 20 20 20 20 20 3b 20 | 20 20 70 72 69 76 61 74 |      ; |  privat|
|00000500| 65 20 77 6f 72 64 20 6f | 66 20 63 6f 6e 76 65 72 |e word o|f conver|
|00000510| 74 20 72 6f 75 74 69 6e | 65 0d 00 2a 45 20 20 20 |t routin|e..*E   |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 65 |        |    move|
|00000530| 71 20 30 2c 31 35 20 20 | 20 20 20 20 20 20 20 20 |q 0,15  |        |
|00000540| 3b 20 20 20 61 64 64 72 | 65 73 73 20 6f 66 20 63 |;   addr|ess of c|
|00000550| 6f 6e 76 65 72 74 20 72 | 6f 75 74 69 6e 65 0d 00 |onvert r|outine..|
|00000560| 2b 1d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+.      |        |
|00000570| 20 6d 6f 76 73 20 31 35 | 2c 31 34 0d 00 2c 04 0d | movs 15|,14..,..|
|00000580| 00 2d 1c 3b 20 54 68 65 | 20 63 6f 6e 76 65 72 74 |.-.; The| convert|
|00000590| 20 72 6f 75 74 69 6e 65 | 2e 2e 2e 0d 00 2e 04 0d | routine|........|
|000005a0| 00 2f 1e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |./.     |        |
|000005b0| 20 20 70 75 73 68 20 32 | 2c 34 2c 31 34 0d 00 30 |  push 2|,4,14..0|
|000005c0| 04 0d 00 31 53 20 20 20 | 20 20 20 20 20 20 20 20 |...1S   |        |
|000005d0| 20 20 20 20 74 65 71 20 | 34 2c 23 a4 69 64 28 22 |    teq |4,#.id("|
|000005e0| 57 54 53 65 72 76 69 63 | 65 5f 4d 65 6d 6f 72 79 |WTServic|e_Memory|
|000005f0| 42 6c 6f 63 6b 49 6e 66 | 6f 22 29 20 3b 20 77 61 |BlockInf|o") ; wa|
|00000600| 73 20 6d 65 73 73 61 67 | 65 20 77 61 73 20 74 68 |s messag|e was th|
|00000610| 61 74 20 3f 0d 00 32 53 | 20 20 20 20 20 20 20 20 |at ?..2S|        |
|00000620| 20 20 20 20 20 20 20 20 | 20 61 64 64 65 71 20 31 |        | addeq 1|
|00000630| 2c 31 2c 23 38 20 20 20 | 20 20 20 20 20 20 20 20 |,1,#8   |        |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 3b 20 75 70 64 61 74 65 | 20 6d 65 6d 6f 72 79 20 |; update| memory |
|00000660| 70 6f 69 6e 74 65 72 0d | 00 33 1e 20 20 20 20 20 |pointer.|.3.     |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 65 71 20 |        |    beq |
|00000680| 5f 6c 6f 6f 70 0d 00 34 | 04 0d 00 35 51 20 20 20 |_loop..4|...5Q   |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 20 |        |    mov |
|000006a0| 30 2c 23 34 3a 61 64 64 | 20 32 2c 31 32 2c 23 34 |0,#4:add| 2,12,#4|
|000006b0| 3a 6d 6f 76 20 33 2c 23 | 38 3a 73 77 69 20 26 32 |:mov 3,#|8:swi &2|
|000006c0| 30 30 30 63 20 3b 20 75 | 70 64 61 74 65 20 66 69 |000c ; u|pdate fi|
|000006d0| 6c 65 20 70 6f 69 6e 74 | 65 72 0d 00 36 3d 20 20 |le point|er..6=  |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 64 6d |        |     ldm|
|000006f0| 69 61 20 31 33 2c 7b 32 | 2c 34 7d 20 20 20 20 20 |ia 13,{2|,4}     |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 20 20 20 3b 0d | 00 37 04 0d 00 38 1b 3b |      ;.|.7...8.;|
|00000720| 20 44 65 63 6f 6d 70 72 | 65 73 73 20 72 6f 75 74 | Decompr|ess rout|
|00000730| 69 6e 65 2e 2e 2e 0d 00 | 39 04 0d 00 3a 2d 5f 6c |ine.....|9...:-_l|
|00000740| 6f 6f 70 20 20 20 20 20 | 20 20 20 20 20 62 6c 20 |oop     |     bl |
|00000750| 67 65 74 62 79 74 65 3a | 63 6d 70 20 30 2c 23 30 |getbyte:|cmp 0,#0|
|00000760| 3a 70 6f 70 65 71 5e 0d | 00 3b 31 20 20 20 20 20 |:popeq^.|.;1     |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 33 2c |        |  mov 3,|
|00000780| 30 2c 6c 73 6c 23 32 34 | 3a 6d 6f 76 73 20 33 2c |0,lsl#24|:movs 3,|
|00000790| 33 2c 61 73 72 23 32 34 | 0d 00 3c 1d 20 20 20 20 |3,asr#24|..<.    |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 62 6c 20 67 65 |        |   bl ge|
|000007b0| 74 62 79 74 65 0d 00 3d | 1e 20 20 20 20 20 20 20 |tbyte..=|.       |
|000007c0| 20 20 20 20 20 20 20 20 | 62 6c 74 20 5f 65 78 70 |        |blt _exp|
|000007d0| 61 6e 64 0d 00 3e 43 5f | 63 6f 70 79 20 20 20 20 |and..>C_|copy    |
|000007e0| 20 20 20 20 20 20 73 74 | 72 62 20 30 2c 5b 32 5d |      st|rb 0,[2]|
|000007f0| 2c 23 31 3a 73 75 62 73 | 20 33 2c 33 2c 23 31 3a |,#1:subs| 3,3,#1:|
|00000800| 62 6c 67 74 20 67 65 74 | 62 79 74 65 3a 62 67 74 |blgt get|byte:bgt|
|00000810| 20 5f 63 6f 70 79 0d 00 | 3f 1a 20 20 20 20 20 20 | _copy..|?.      |
|00000820| 20 20 20 20 20 20 20 20 | 20 62 20 5f 6c 6f 6f 70 |        | b _loop|
|00000830| 0d 00 40 04 0d 00 41 38 | 5f 65 78 70 61 6e 64 20 |..@...A8|_expand |
|00000840| 20 20 20 20 20 20 20 73 | 74 72 62 20 30 2c 5b 32 |       s|trb 0,[2|
|00000850| 5d 2c 23 31 3a 61 64 64 | 73 20 33 2c 33 2c 23 31 |],#1:add|s 3,3,#1|
|00000860| 3a 62 6c 74 20 5f 65 78 | 70 61 6e 64 0d 00 42 1a |:blt _ex|pand..B.|
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |        |       b|
|00000880| 20 5f 6c 6f 6f 70 0d 00 | 43 49 5f 5f 5f 5f 5f 5f | _loop..|CI______|
|00000890| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000008a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000008b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000008c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 0d |________|_______.|
|000008d0| 00 44 04 0d 00 45 3a 2e | 67 65 74 62 79 74 65 20 |.D...E:.|getbyte |
|000008e0| 20 20 20 20 20 20 74 65 | 71 20 34 2c 23 a4 69 64 |      te|q 4,#.id|
|000008f0| 28 22 57 54 53 65 72 76 | 69 63 65 5f 4d 65 6d 6f |("WTServ|ice_Memo|
|00000900| 72 79 42 6c 6f 63 6b 49 | 6e 66 6f 22 29 0d 00 46 |ryBlockI|nfo")..F|
|00000910| 24 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$       |        |
|00000920| 20 20 6c 64 72 65 71 62 | 20 30 2c 5b 31 5d 2c 23 |  ldreqb| 0,[1],#|
|00000930| 31 0d 00 47 21 20 20 20 | 20 20 20 20 20 20 20 20 |1..G!   |        |
|00000940| 20 20 20 20 20 20 6d 6f | 76 65 71 73 20 31 35 2c |      mo|veqs 15,|
|00000950| 31 34 0d 00 48 15 20 20 | 20 20 20 20 20 20 20 20 |14..H.  |        |
|00000960| 20 20 20 20 20 20 20 0d | 00 49 1a 20 20 20 20 20 |       .|.I.     |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 70 75 73 68 20 31 |        |  push 1|
|00000980| 34 0d 00 4a 1d 20 20 20 | 20 20 20 20 20 20 20 20 |4..J.   |        |
|00000990| 20 20 20 20 73 77 69 20 | 26 32 30 30 30 61 0d 00 |    swi |&2000a..|
|000009a0| 4b 17 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |K.      |        |
|000009b0| 20 70 6f 70 5e 0d 00 4c | 08 5d 3a 3d 30 0d ff    | pop^..L|.]:=0.. |
+--------+-------------------------+-------------------------+--------+--------+