/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / sound / computils / !CompUtils / ExpCode / Example

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 42 61 73 69 63 53 61 |..... > |<BasicSa|
|00000010| 76 65 24 44 69 72 3e 2e | 45 78 61 6d 70 6c 65 0d |ve$Dir>.|Example.|
|00000020| 00 14 04 0d 00 1e 1a 69 | 6e 24 3d 22 61 64 66 73 |.......i|n$="adfs|
|00000030| 3a 3a 30 2e 24 2e 49 6e | 46 69 6c 65 22 0d 00 28 |::0.$.In|File"..(|
|00000040| 1c 6f 75 74 24 3d 22 61 | 64 66 73 3a 3a 30 2e 24 |.out$="a|dfs::0.$|
|00000050| 2e 4f 75 74 46 69 6c 65 | 22 0d 00 32 1d 64 69 72 |.OutFile|"..2.dir|
|00000060| 24 3d 22 21 43 6f 6d 70 | 55 74 69 6c 73 2e 45 78 |$="!Comp|Utils.Ex|
|00000070| 70 43 6f 64 65 22 0d 00 | 3c 04 0d 00 46 1a f4 20 |pCode"..|<...F.. |
|00000080| 2d 2d 2d 20 6c 6f 61 64 | 20 75 74 69 6c 69 74 79 |--- load| utility|
|00000090| 20 2d 2d 2d 0d 00 50 31 | c8 99 20 22 4f 53 5f 46 | ---..P1|.. "OS_F|
|000000a0| 69 6c 65 22 2c 35 2c 64 | 69 72 24 2b 22 2e 45 78 |ile",5,d|ir$+".Ex|
|000000b0| 70 43 6f 64 65 22 20 b8 | 20 61 25 2c 2c 2c 2c 6c |pCode" .| a%,,,,l|
|000000c0| 25 20 3b 66 25 0d 00 5a | 13 e7 20 61 25 3c 3e 31 |% ;f%..Z|.. a%<>1|
|000000d0| 20 8c 20 6c 25 3d 31 36 | 0d 00 64 0e de 20 63 6f | . l%=16|..d.. co|
|000000e0| 64 65 25 20 6c 25 0d 00 | 6e 32 c8 99 20 22 4f 53 |de% l%..|n2.. "OS|
|000000f0| 5f 46 69 6c 65 22 2c 32 | 35 35 2c 64 69 72 24 2b |_File",2|55,dir$+|
|00000100| 22 2e 45 78 70 43 6f 64 | 65 22 2c 63 6f 64 65 25 |".ExpCod|e",code%|
|00000110| 2c 30 20 b8 20 3b 66 25 | 0d 00 78 04 0d 00 82 22 |,0 . ;f%|..x...."|
|00000120| f4 20 2d 2d 2d 20 73 65 | 74 20 75 70 20 73 6f 75 |. --- se|t up sou|
|00000130| 72 63 65 20 62 75 66 66 | 65 72 20 2d 2d 2d 0d 00 |rce buff|er ---..|
|00000140| 8c 16 73 6f 75 72 63 65 | 6c 65 6e 25 3d 31 30 32 |..source|len%=102|
|00000150| 34 2a 31 30 0d 00 96 1e | de 20 73 6f 75 72 63 65 |4*10....|. source|
|00000160| 62 75 66 66 65 72 25 20 | 73 6f 75 72 63 65 6c 65 |buffer% |sourcele|
|00000170| 6e 25 0d 00 a0 04 0d 00 | aa 1d f4 20 2d 2d 2d 20 |n%......|... --- |
|00000180| 73 65 74 20 75 70 20 70 | 6f 69 6e 74 65 72 73 20 |set up p|ointers |
|00000190| 2d 2d 2d 0d 00 b4 1a 63 | 6f 64 65 25 21 31 32 3d |---....c|ode%!12=|
|000001a0| 73 6f 75 72 63 65 62 75 | 66 66 65 72 25 0d 00 be |sourcebu|ffer%...|
|000001b0| 17 63 6f 64 65 25 21 31 | 36 3d 73 6f 75 72 63 65 |.code%!1|6=source|
|000001c0| 6c 65 6e 25 0d 00 c8 13 | de 20 66 69 6c 65 6e 61 |len%....|. filena|
|000001d0| 6d 65 25 20 32 35 36 0d | 00 d2 12 24 66 69 6c 65 |me% 256.|...$file|
|000001e0| 6e 61 6d 65 25 3d 69 6e | 24 0d 00 dc 16 63 6f 64 |name%=in|$....cod|
|000001f0| 65 25 21 32 38 3d 66 69 | 6c 65 6e 61 6d 65 25 0d |e%!28=fi|lename%.|
|00000200| 00 e6 04 0d 00 f0 1e f4 | 20 2d 2d 2d 20 73 65 74 |........| --- set|
|00000210| 20 6f 75 74 70 75 74 20 | 66 6c 61 67 73 20 2d 2d | output |flags --|
|00000220| 2d 0d 00 fa 12 63 6f 64 | 65 25 21 33 36 3d 25 30 |-....cod|e%!36=%0|
|00000230| 30 30 30 0d 01 04 25 f4 | 20 69 65 2e 20 56 49 44 |000...%.| ie. VID|
|00000240| 43 20 66 6f 72 6d 61 74 | 2c 20 6e 6f 20 65 6e 68 |C format|, no enh|
|00000250| 61 6e 63 65 6d 65 6e 74 | 0d 01 0e 04 0d 01 18 22 |ancement|......."|
|00000260| f4 20 2d 2d 2d 20 73 65 | 74 20 6f 66 66 73 65 74 |. --- se|t offset|
|00000270| 20 69 6e 74 6f 20 66 69 | 6c 65 20 2d 2d 2d 0d 01 | into fi|le ---..|
|00000280| 22 0e 63 6f 64 65 25 21 | 34 34 3d 30 0d 01 2c 04 |".code%!|44=0..,.|
|00000290| 0d 01 36 1e d1 20 3d 20 | 30 20 3a 20 f4 20 6a 75 |..6.. = |0 : . ju|
|000002a0| 73 74 20 66 6f 72 20 74 | 69 6d 69 6e 67 21 0d 01 |st for t|iming!..|
|000002b0| 40 04 0d 01 4a 1d f4 20 | 2d 2d 2d 20 69 6e 69 74 |@...J.. |--- init|
|000002c0| 69 61 6c 69 73 65 20 63 | 6f 64 65 20 2d 2d 2d 0d |ialise c|ode ---.|
|000002d0| 01 54 15 65 72 72 6f 72 | 25 3d ba 28 63 6f 64 65 |.T.error|%=.(code|
|000002e0| 25 2b 30 29 0d 01 5e 44 | e7 20 65 72 72 6f 72 25 |%+0)..^D|. error%|
|000002f0| 3c 3e 30 20 8c 20 c8 99 | 20 22 4f 53 5f 47 65 6e |<>0 . ..| "OS_Gen|
|00000300| 65 72 61 74 65 45 72 72 | 6f 72 22 2c 65 72 72 6f |erateErr|or",erro|
|00000310| 72 25 20 3a 20 f4 20 6e | 6f 74 20 72 65 61 6c 6c |r% : . n|ot reall|
|00000320| 79 20 6e 65 65 64 65 64 | 0d 01 68 04 0d 01 72 25 |y needed|..h...r%|
|00000330| f4 20 2d 2d 2d 20 69 6e | 69 74 69 61 6c 69 73 61 |. --- in|itialisa|
|00000340| 74 69 6f 6e 20 63 6f 6d | 70 6c 65 74 65 20 2d 2d |tion com|plete --|
|00000350| 2d 0d 01 7c 04 0d 01 86 | 34 f4 20 2d 2d 2d 20 73 |-..|....|4. --- s|
|00000360| 65 74 20 75 70 20 64 65 | 73 74 69 6e 61 74 69 6f |et up de|stinatio|
|00000370| 6e 20 62 75 66 66 65 72 | 20 61 6e 64 20 70 6f 69 |n buffer| and poi|
|00000380| 6e 74 65 72 73 20 2d 2d | 2d 0d 01 90 15 64 65 73 |nters --|-....des|
|00000390| 74 6c 65 6e 25 3d 63 6f | 64 65 25 21 34 30 0d 01 |tlen%=co|de%!40..|
|000003a0| 9a 18 de 20 64 65 73 74 | 62 75 66 66 25 20 64 65 |... dest|buff% de|
|000003b0| 73 74 6c 65 6e 25 0d 01 | a4 16 63 6f 64 65 25 21 |stlen%..|..code%!|
|000003c0| 32 30 3d 64 65 73 74 62 | 75 66 66 25 0d 01 ae 15 |20=destb|uff%....|
|000003d0| 63 6f 64 65 25 21 32 34 | 3d 64 65 73 74 6c 65 6e |code%!24|=destlen|
|000003e0| 25 0d 01 b8 04 0d 01 c2 | 1c f4 20 2d 2d 2d 20 70 |%.......|.. --- p|
|000003f0| 72 6f 63 65 73 73 20 73 | 61 6d 70 6c 65 20 2d 2d |rocess s|ample --|
|00000400| 2d 0d 01 cc 15 65 72 72 | 6f 72 25 3d ba 28 63 6f |-....err|or%=.(co|
|00000410| 64 65 25 2b 34 29 0d 01 | d6 44 e7 20 65 72 72 6f |de%+4)..|.D. erro|
|00000420| 72 25 3c 3e 30 20 8c 20 | c8 99 20 22 4f 53 5f 47 |r%<>0 . |.. "OS_G|
|00000430| 65 6e 65 72 61 74 65 45 | 72 72 6f 72 22 2c 65 72 |enerateE|rror",er|
|00000440| 72 6f 72 25 20 3a 20 f4 | 20 6e 6f 74 20 72 65 61 |ror% : .| not rea|
|00000450| 6c 6c 79 20 6e 65 65 64 | 65 64 0d 01 e0 04 0d 01 |lly need|ed......|
|00000460| ea 35 f1 22 54 69 6d 65 | 20 74 61 6b 65 6e 3a 20 |.5."Time| taken: |
|00000470| 22 3b a8 28 91 2f 35 30 | 2b 30 2e 35 29 2f 32 3b |";.(./50|+0.5)/2;|
|00000480| 22 20 73 65 63 73 22 20 | 3a 20 f4 20 74 69 6d 69 |" secs" |: . timi|
|00000490| 6e 67 21 0d 01 f4 04 0d | 01 fe 2d f4 20 2d 2d 2d |ng!.....|..-. ---|
|000004a0| 20 73 61 76 65 20 64 65 | 73 74 69 6e 61 74 69 6f | save de|stinatio|
|000004b0| 6e 20 62 75 66 66 65 72 | 20 74 6f 20 64 69 73 63 |n buffer| to disc|
|000004c0| 20 2d 2d 2d 0d 02 08 32 | f4 20 6f 66 66 73 65 74 | ---...2|. offset|
|000004d0| 20 2b 34 30 20 63 6f 6e | 74 61 69 6e 73 20 6c 65 | +40 con|tains le|
|000004e0| 6e 67 74 68 20 6f 66 20 | 64 61 74 61 20 69 6e 20 |ngth of |data in |
|000004f0| 62 75 66 66 65 72 0d 02 | 12 3b c8 99 20 22 4f 53 |buffer..|.;.. "OS|
|00000500| 5f 46 69 6c 65 22 2c 31 | 30 2c 6f 75 74 24 2c 26 |_File",1|0,out$,&|
|00000510| 46 46 44 2c 2c 64 65 73 | 74 62 75 66 66 25 2c 64 |FFD,,des|tbuff%,d|
|00000520| 65 73 74 62 75 66 66 25 | 2b 63 6f 64 65 25 21 34 |estbuff%|+code%!4|
|00000530| 30 0d 02 1c 04 0d 02 26 | 18 f4 20 20 20 41 6c 6c |0......&|..   All|
|00000540| 20 64 6f 6e 65 2c 20 73 | 6f 20 65 6e 64 0d 02 30 | done, s|o end..0|
|00000550| 04 0d 02 3a 34 f4 20 20 | 20 49 66 20 79 6f 75 20 |...:4.  | If you |
|00000560| 77 61 6e 74 20 74 6f 20 | 63 68 65 63 6b 20 74 68 |want to |check th|
|00000570| 65 20 6f 75 74 70 75 74 | 20 66 69 6c 65 20 6c 6f |e output| file lo|
|00000580| 61 64 20 69 74 0d 02 44 | 2a f4 20 20 20 69 6e 74 |ad it..D|*.   int|
|00000590| 6f 20 61 6e 20 65 64 69 | 74 6f 72 20 61 73 20 6c |o an edi|tor as l|
|000005a0| 6f 67 61 72 69 74 68 6d | 69 63 20 64 61 74 61 0d |ogarithm|ic data.|
|000005b0| 02 4e 04 0d 02 58 1b f4 | 20 20 20 54 68 61 74 27 |.N...X..|   That'|
|000005c0| 73 20 61 6c 6c 20 66 6f | 6c 6b 73 21 21 21 0d 02 |s all fo|lks!!!..|
|000005d0| 62 05 e0 0d ff          |                         |b....   |        |
+--------+-------------------------+-------------------------+--------+--------+