/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / baslib / FSysLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 f4 20 3e 26 | 2e 42 61 73 6c 69 62 2e |..... >&|.Baslib.|
|00000010| 46 53 79 73 4c 69 62 0d | 00 14 05 3a 0d 00 1e 12 |FSysLib.|...:....|
|00000020| f4 20 76 65 72 73 69 6f | 6e 20 31 2e 30 31 0d 00 |. versio|n 1.01..|
|00000030| 28 05 3a 0d 00 32 14 f4 | 20 30 38 31 31 38 38 20 |(.:..2..| 081188 |
|00000040| 43 72 65 61 74 65 64 0d | 00 3c 49 f4 20 31 31 31 |Created.|.<I. 111|
|00000050| 31 38 38 20 41 64 64 65 | 64 20 46 4e 66 69 6c 65 |188 Adde|d FNfile|
|00000060| 5f 6c 6f 61 64 61 64 64 | 72 28 29 2c 20 46 4e 66 |_loadadd|r(), FNf|
|00000070| 69 6c 65 5f 65 78 65 63 | 61 64 64 72 28 29 2c 20 |ile_exec|addr(), |
|00000080| 46 4e 66 69 6c 65 5f 6c | 65 6e 67 74 68 28 29 2c |FNfile_l|ength(),|
|00000090| 0d 00 46 2a f4 20 20 20 | 20 20 20 20 20 46 4e 66 |..F*.   |     FNf|
|000000a0| 69 6c 65 5f 65 78 69 73 | 74 73 28 29 2c 46 4e 66 |ile_exis|ts(),FNf|
|000000b0| 69 6c 65 5f 74 79 70 65 | 28 29 0d 00 50 05 3a 0d |ile_type|()..P.:.|
|000000c0| 00 5a 13 dd f2 64 65 6d | 6f 5f 64 69 72 5f 72 65 |.Z...dem|o_dir_re|
|000000d0| 61 64 0d 00 64 18 de 20 | 6e 61 6d 65 24 28 37 37 |ad..d.. |name$(77|
|000000e0| 29 2c 62 6c 6b 25 20 32 | 35 36 0d 00 6e 27 6e 72 |),blk% 2|56..n'nr|
|000000f0| 25 3d a4 64 69 72 5f 72 | 65 61 64 28 6e 61 6d 65 |%=.dir_r|ead(name|
|00000100| 24 28 29 2c 22 24 22 2c | 22 2a 22 2c 62 6c 6b 25 |$(),"$",|"*",blk%|
|00000110| 29 0d 00 78 15 e3 20 6c | 6f 6f 70 25 3d 30 20 b8 |)..x.. l|oop%=0 .|
|00000120| 20 6e 72 25 2d 31 0d 00 | 82 37 f1 6e 61 6d 65 24 | nr%-1..|.7.name$|
|00000130| 28 6c 6f 6f 70 25 29 3b | 8a 31 34 29 3b a4 63 61 |(loop%);|.14);.ca|
|00000140| 74 69 6e 66 6f 5f 72 65 | 61 64 28 22 24 2e 22 2b |tinfo_re|ad("$."+|
|00000150| 6e 61 6d 65 24 28 6c 6f | 6f 70 25 29 29 0d 00 8c |name$(lo|op%))...|
|00000160| 05 ed 0d 00 96 05 e1 0d | 00 a0 05 3a 0d 00 aa 31 |........|...:...1|
|00000170| dd a4 64 69 72 5f 72 65 | 61 64 28 6e 61 6d 65 24 |..dir_re|ad(name$|
|00000180| 28 29 2c 64 69 72 5f 6e | 61 6d 65 24 2c 66 69 6c |(),dir_n|ame$,fil|
|00000190| 65 5f 6e 61 6d 65 24 2c | 62 6c 6b 25 29 0d 00 b4 |e_name$,|blk%)...|
|000001a0| 19 ea 20 6f 66 66 73 65 | 74 25 2c 6e 65 77 5f 6f |.. offse|t%,new_o|
|000001b0| 66 66 73 65 74 25 0d 00 | be 0b ea 20 6c 6f 6f 70 |ffset%..|... loop|
|000001c0| 25 0d 00 c8 10 63 6f 75 | 6e 74 65 72 25 20 3d 20 |%....cou|nter% = |
|000001d0| 30 0d 00 d2 34 6f 66 66 | 73 65 74 25 3d 30 3a 6e |0...4off|set%=0:n|
|000001e0| 65 77 5f 6f 66 66 73 65 | 74 25 3d 30 3a 74 6f 74 |ew_offse|t%=0:tot|
|000001f0| 61 6c 5f 72 65 61 64 25 | 3d 30 3a 6e 72 5f 72 65 |al_read%|=0:nr_re|
|00000200| 61 64 25 3d 30 0d 00 dc | 05 f5 0d 00 e6 1b 20 20 |ad%=0...|......  |
|00000210| 6f 66 66 73 65 74 25 20 | 3d 20 6e 65 77 5f 6f 66 |offset% |= new_of|
|00000220| 66 73 65 74 25 0d 00 f0 | 57 20 20 c8 99 20 22 4f |fset%...|W  .. "O|
|00000230| 53 5f 47 42 50 42 22 2c | 39 2c 64 69 72 5f 6e 61 |S_GBPB",|9,dir_na|
|00000240| 6d 65 24 2c 62 6c 6b 25 | 2c 37 37 2c 6f 66 66 73 |me$,blk%|,77,offs|
|00000250| 65 74 25 2c 32 35 36 2c | 66 69 6c 65 5f 6e 61 6d |et%,256,|file_nam|
|00000260| 65 24 20 b8 20 2c 2c 2c | 6e 72 5f 72 65 61 64 25 |e$ . ,,,|nr_read%|
|00000270| 2c 6e 65 77 5f 6f 66 66 | 73 65 74 25 0d 00 fa 1d |,new_off|set%....|
|00000280| 20 20 74 6f 74 61 6c 5f | 72 65 61 64 25 20 2b 3d |  total_|read% +=|
|00000290| 20 6e 72 5f 72 65 61 64 | 25 0d 01 04 14 20 20 e7 | nr_read|%....  .|
|000002a0| 20 6e 72 5f 72 65 61 64 | 25 3e 30 20 8c 0d 01 0e | nr_read|%>0 ....|
|000002b0| 0e 20 20 20 20 70 74 72 | 25 3d 30 0d 01 18 29 20 |.    ptr|%=0...) |
|000002c0| 20 20 20 e3 20 6c 6f 6f | 70 25 20 3d 20 6f 66 66 |   . loo|p% = off|
|000002d0| 73 65 74 25 20 b8 20 74 | 6f 74 61 6c 5f 72 65 61 |set% . t|otal_rea|
|000002e0| 64 25 2d 31 0d 01 22 32 | 20 20 20 20 20 20 6e 61 |d%-1.."2|      na|
|000002f0| 6d 65 24 28 6c 6f 6f 70 | 25 29 3d a4 6d 65 6d 5f |me$(loop|%)=.mem_|
|00000300| 74 6f 5f 73 74 72 69 6e | 67 28 62 6c 6b 25 2c 70 |to_strin|g(blk%,p|
|00000310| 74 72 25 2c 30 29 0d 01 | 2c 21 20 20 20 20 20 20 |tr%,0)..|,!      |
|00000320| 70 74 72 25 2b 3d a9 28 | 6e 61 6d 65 24 28 6c 6f |ptr%+=.(|name$(lo|
|00000330| 6f 70 25 29 29 2b 31 0d | 01 36 0f 20 20 20 20 ed |op%))+1.|.6.    .|
|00000340| 20 6c 6f 6f 70 25 0d 01 | 40 07 20 20 cd 0d 01 4a | loop%..|@.  ...J|
|00000350| 16 fd 20 6e 65 77 5f 6f | 66 66 73 65 74 25 20 3d |.. new_o|ffset% =|
|00000360| 20 2d 31 0d 01 54 11 3d | 20 74 6f 74 61 6c 5f 72 | -1..T.=| total_r|
|00000370| 65 61 64 25 0d 01 5e 05 | 3a 0d 01 68 1b dd a4 63 |ead%..^.|:..h...c|
|00000380| 61 74 69 6e 66 6f 5f 72 | 65 61 64 28 6f 62 6a 65 |atinfo_r|ead(obje|
|00000390| 63 74 24 29 0d 01 72 37 | ea 20 74 79 70 65 25 2c |ct$)..r7|. type%,|
|000003a0| 6c 6f 61 64 5f 61 64 64 | 72 25 2c 65 78 65 63 5f |load_add|r%,exec_|
|000003b0| 61 64 64 72 25 2c 6c 65 | 6e 67 74 68 25 2c 61 74 |addr%,le|ngth%,at|
|000003c0| 74 73 25 2c 73 74 72 69 | 6e 67 24 0d 01 7c 47 c8 |ts%,stri|ng$..|G.|
|000003d0| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 35 2c 6f 62 |. "OS_Fi|le",5,ob|
|000003e0| 6a 65 63 74 24 20 b8 20 | 74 79 70 65 25 2c 2c 6c |ject$ . |type%,,l|
|000003f0| 6f 61 64 5f 61 64 64 72 | 25 2c 65 78 65 63 5f 61 |oad_addr|%,exec_a|
|00000400| 64 64 72 25 2c 6c 65 6e | 67 74 68 25 2c 61 74 74 |ddr%,len|gth%,att|
|00000410| 73 25 0d 01 86 1d e7 20 | 74 79 70 65 25 3d 30 20 |s%..... |type%=0 |
|00000420| 8c 20 3d 20 22 4e 6f 74 | 20 46 6f 75 6e 64 22 0d |. = "Not| Found".|
|00000430| 01 90 20 e7 20 61 74 74 | 73 25 3d 35 31 20 20 8c |.. . att|s%=51  .|
|00000440| 20 73 74 72 69 6e 67 24 | 2b 3d 22 57 52 20 22 0d | string$|+="WR ".|
|00000450| 01 9a 20 e7 20 61 74 74 | 73 25 3d 31 38 37 20 8c |.. . att|s%=187 .|
|00000460| 20 73 74 72 69 6e 67 24 | 2b 3d 22 4c 57 52 22 0d | string$|+="LWR".|
|00000470| 01 a4 20 e7 20 61 74 74 | 73 25 3d 31 33 36 20 8c |.. . att|s%=136 .|
|00000480| 20 73 74 72 69 6e 67 24 | 2b 3d 22 44 4c 20 22 0d | string$|+="DL ".|
|00000490| 01 ae 31 73 74 72 69 6e | 67 24 2b 3d 22 20 22 2b |..1strin|g$+=" "+|
|000004a0| a4 70 61 64 5f 6c 65 61 | 64 69 6e 67 28 c3 7e 6c |.pad_lea|ding(.~l|
|000004b0| 6f 61 64 5f 61 64 64 72 | 25 2c 22 30 22 2c 38 29 |oad_addr|%,"0",8)|
|000004c0| 0d 01 b8 31 73 74 72 69 | 6e 67 24 2b 3d 22 20 22 |...1stri|ng$+=" "|
|000004d0| 2b a4 70 61 64 5f 6c 65 | 61 64 69 6e 67 28 c3 7e |+.pad_le|ading(.~|
|000004e0| 65 78 65 63 5f 61 64 64 | 72 25 2c 22 30 22 2c 38 |exec_add|r%,"0",8|
|000004f0| 29 0d 01 c2 2e 73 74 72 | 69 6e 67 24 2b 3d 22 20 |)....str|ing$+=" |
|00000500| 22 2b a4 70 61 64 5f 6c | 65 61 64 69 6e 67 28 c3 |"+.pad_l|eading(.|
|00000510| 7e 6c 65 6e 67 74 68 25 | 2c 22 30 22 2c 38 29 0d |~length%|,"0",8).|
|00000520| 01 cc 0c 3d 73 74 72 69 | 6e 67 24 0d 01 d6 05 3a |...=stri|ng$....:|
|00000530| 0d 01 e0 1c dd a4 66 69 | 6c 65 5f 6c 6f 61 64 61 |......fi|le_loada|
|00000540| 64 64 72 28 6f 62 6a 65 | 63 74 24 29 0d 01 ea 37 |ddr(obje|ct$)...7|
|00000550| ea 20 74 79 70 65 25 2c | 6c 6f 61 64 5f 61 64 64 |. type%,|load_add|
|00000560| 72 25 2c 65 78 65 63 5f | 61 64 64 72 25 2c 6c 65 |r%,exec_|addr%,le|
|00000570| 6e 67 74 68 25 2c 61 74 | 74 73 25 2c 73 74 72 69 |ngth%,at|ts%,stri|
|00000580| 6e 67 24 0d 01 f4 47 c8 | 99 20 22 4f 53 5f 46 69 |ng$...G.|. "OS_Fi|
|00000590| 6c 65 22 2c 35 2c 6f 62 | 6a 65 63 74 24 20 b8 20 |le",5,ob|ject$ . |
|000005a0| 74 79 70 65 25 2c 2c 6c | 6f 61 64 5f 61 64 64 72 |type%,,l|oad_addr|
|000005b0| 25 2c 65 78 65 63 5f 61 | 64 64 72 25 2c 6c 65 6e |%,exec_a|ddr%,len|
|000005c0| 67 74 68 25 2c 61 74 74 | 73 25 0d 01 fe 0f 3d 6c |gth%,att|s%....=l|
|000005d0| 6f 61 64 5f 61 64 64 72 | 25 0d 02 08 05 3a 0d 02 |oad_addr|%....:..|
|000005e0| 12 1c dd a4 66 69 6c 65 | 5f 65 78 65 63 61 64 64 |....file|_execadd|
|000005f0| 72 28 6f 62 6a 65 63 74 | 24 29 0d 02 1c 37 ea 20 |r(object|$)...7. |
|00000600| 74 79 70 65 25 2c 6c 6f | 61 64 5f 61 64 64 72 25 |type%,lo|ad_addr%|
|00000610| 2c 65 78 65 63 5f 61 64 | 64 72 25 2c 6c 65 6e 67 |,exec_ad|dr%,leng|
|00000620| 74 68 25 2c 61 74 74 73 | 25 2c 73 74 72 69 6e 67 |th%,atts|%,string|
|00000630| 24 0d 02 26 47 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |$..&G.. |"OS_File|
|00000640| 22 2c 35 2c 6f 62 6a 65 | 63 74 24 20 b8 20 74 79 |",5,obje|ct$ . ty|
|00000650| 70 65 25 2c 2c 6c 6f 61 | 64 5f 61 64 64 72 25 2c |pe%,,loa|d_addr%,|
|00000660| 65 78 65 63 5f 61 64 64 | 72 25 2c 6c 65 6e 67 74 |exec_add|r%,lengt|
|00000670| 68 25 2c 61 74 74 73 25 | 0d 02 30 0f 3d 65 78 65 |h%,atts%|..0.=exe|
|00000680| 63 5f 61 64 64 72 25 0d | 02 3a 05 3a 0d 02 44 1a |c_addr%.|.:.:..D.|
|00000690| dd a4 66 69 6c 65 5f 6c | 65 6e 67 74 68 28 6f 62 |..file_l|ength(ob|
|000006a0| 6a 65 63 74 24 29 0d 02 | 4e 37 ea 20 74 79 70 65 |ject$)..|N7. type|
|000006b0| 25 2c 6c 6f 61 64 5f 61 | 64 64 72 25 2c 65 78 65 |%,load_a|ddr%,exe|
|000006c0| 63 5f 61 64 64 72 25 2c | 6c 65 6e 67 74 68 25 2c |c_addr%,|length%,|
|000006d0| 61 74 74 73 25 2c 73 74 | 72 69 6e 67 24 0d 02 58 |atts%,st|ring$..X|
|000006e0| 47 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 35 2c |G.. "OS_|File",5,|
|000006f0| 6f 62 6a 65 63 74 24 20 | b8 20 74 79 70 65 25 2c |object$ |. type%,|
|00000700| 2c 6c 6f 61 64 5f 61 64 | 64 72 25 2c 65 78 65 63 |,load_ad|dr%,exec|
|00000710| 5f 61 64 64 72 25 2c 6c | 65 6e 67 74 68 25 2c 61 |_addr%,l|ength%,a|
|00000720| 74 74 73 25 0d 02 62 0c | 3d 6c 65 6e 67 74 68 25 |tts%..b.|=length%|
|00000730| 0d 02 6c 05 3a 0d 02 76 | 1a dd a4 66 69 6c 65 5f |..l.:..v|...file_|
|00000740| 65 78 69 73 74 73 28 6f | 62 6a 65 63 74 24 29 0d |exists(o|bject$).|
|00000750| 02 80 2f e7 20 a4 63 61 | 74 69 6e 66 6f 5f 72 65 |../. .ca|tinfo_re|
|00000760| 61 64 28 6f 62 6a 65 63 | 74 24 29 3d 22 4e 6f 74 |ad(objec|t$)="Not|
|00000770| 20 46 6f 75 6e 64 22 3a | 3d a3 20 8b 3d b9 0d 02 | Found":|=. .=...|
|00000780| 8a 05 3a 0d 02 94 18 dd | a4 66 69 6c 65 5f 74 79 |..:.....|.file_ty|
|00000790| 70 65 28 6f 62 6a 65 63 | 74 24 29 0d 02 9e 0b ea |pe(objec|t$).....|
|000007a0| 20 74 79 70 65 25 0d 02 | a8 24 c8 99 20 22 4f 53 | type%..|.$.. "OS|
|000007b0| 5f 46 69 6c 65 22 2c 35 | 2c 6f 62 6a 65 63 74 24 |_File",5|,object$|
|000007c0| 20 b8 20 2c 2c 74 79 70 | 65 25 0d 02 b2 1e 74 79 | . ,,typ|e%....ty|
|000007d0| 70 65 25 3d 28 74 79 70 | 65 25 20 80 20 26 46 46 |pe%=(typ|e% . &FF|
|000007e0| 46 30 30 29 3e 3e 3e 38 | 0d 02 bc 0a 3d 74 79 70 |F00)>>>8|....=typ|
|000007f0| 65 25 0d 02 c6 05 3a 0d | 02 d0 12 dd f2 68 65 6c |e%....:.|.....hel|
|00000800| 70 5f 66 73 79 73 6c 69 | 62 0d 02 da 20 f1 22 20 |p_fsysli|b... ." |
|00000810| 31 29 2e 20 44 45 46 50 | 52 4f 43 64 65 6d 6f 5f |1). DEFP|ROCdemo_|
|00000820| 64 69 72 5f 72 65 61 64 | 22 0d 02 e4 39 f1 22 20 |dir_read|"...9." |
|00000830| 20 20 20 20 20 20 41 20 | 64 65 6d 6f 21 20 44 69 |      A |demo! Di|
|00000840| 73 70 6c 61 79 73 20 63 | 6f 6e 74 65 6e 74 73 20 |splays c|ontents |
|00000850| 6f 66 20 72 6f 6f 74 20 | 64 69 72 65 63 74 6f 72 |of root |director|
|00000860| 79 22 0d 02 ee 3c f1 22 | 20 32 29 2e 20 44 45 46 |y"...<."| 2). DEF|
|00000870| 46 4e 64 69 72 5f 72 65 | 61 64 28 6e 61 6d 65 24 |FNdir_re|ad(name$|
|00000880| 28 29 2c 64 69 72 5f 6e | 61 6d 65 24 2c 66 69 6c |(),dir_n|ame$,fil|
|00000890| 65 5f 6e 61 6d 65 24 2c | 62 6c 6b 25 29 22 0d 02 |e_name$,|blk%)"..|
|000008a0| f8 47 f1 22 20 20 20 20 | 20 20 20 52 65 61 64 73 |.G."    |   Reads|
|000008b0| 20 74 68 65 20 66 69 6c | 65 6e 61 6d 65 73 20 66 | the fil|enames f|
|000008c0| 72 6f 6d 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |rom the |specifie|
|000008d0| 64 20 64 69 72 65 63 74 | 6f 72 79 20 69 6e 74 6f |d direct|ory into|
|000008e0| 20 74 68 65 22 0d 03 02 | 1b f1 22 20 20 20 20 20 | the"...|.."     |
|000008f0| 20 20 61 72 72 61 79 20 | 6e 61 6d 65 24 28 29 22 |  array |name$()"|
|00000900| 0d 03 0c 26 f1 22 20 33 | 29 2e 20 44 45 46 46 4e |...&." 3|). DEFFN|
|00000910| 63 61 74 69 6e 66 6f 5f | 72 65 61 64 28 6f 62 6a |catinfo_|read(obj|
|00000920| 65 63 74 24 29 22 0d 03 | 16 41 f1 22 20 20 20 20 |ect$)"..|.A."    |
|00000930| 20 20 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 61 |   Retur|ns the a|
|00000940| 74 74 72 69 62 75 74 65 | 73 20 65 74 63 20 6f 66 |ttribute|s etc of|
|00000950| 20 74 68 65 20 66 69 6c | 65 20 73 70 65 63 69 66 | the fil|e specif|
|00000960| 69 65 64 20 69 6e 22 0d | 03 20 15 f1 22 20 20 20 |ied in".|. .."   |
|00000970| 20 20 20 20 6f 62 6a 65 | 63 74 24 22 0d 03 2a 27 |    obje|ct$"..*'|
|00000980| f1 22 20 34 29 20 20 44 | 45 46 46 4e 66 69 6c 65 |." 4)  D|EFFNfile|
|00000990| 5f 6c 6f 61 64 61 64 64 | 72 28 6f 62 6a 65 63 74 |_loadadd|r(object|
|000009a0| 24 29 22 0d 03 34 27 f1 | 22 20 35 29 20 20 44 45 |$)"..4'.|" 5)  DE|
|000009b0| 46 46 4e 66 69 6c 65 5f | 65 78 65 63 61 64 64 72 |FFNfile_|execaddr|
|000009c0| 28 6f 62 6a 65 63 74 24 | 29 22 0d 03 3e 25 f1 22 |(object$|)"..>%."|
|000009d0| 20 36 29 20 20 44 45 46 | 46 4e 66 69 6c 65 5f 6c | 6)  DEF|FNfile_l|
|000009e0| 65 6e 67 74 68 28 6f 62 | 6a 65 63 74 24 29 22 0d |ength(ob|ject$)".|
|000009f0| 03 48 25 f1 22 20 37 29 | 20 20 44 45 46 46 4e 66 |.H%." 7)|  DEFFNf|
|00000a00| 69 6c 65 5f 65 78 69 73 | 74 73 28 6f 62 6a 65 63 |ile_exis|ts(objec|
|00000a10| 74 24 29 22 0d 03 52 23 | f1 22 20 38 29 20 20 44 |t$)"..R#|." 8)  D|
|00000a20| 45 46 46 4e 66 69 6c 65 | 5f 74 79 70 65 28 6f 62 |EFFNfile|_type(ob|
|00000a30| 6a 65 63 74 24 29 22 0d | 03 5c 05 e1 0d 03 66 05 |ject$)".|.\....f.|
|00000a40| 3a 0d ff                |                         |:..     |        |
+--------+-------------------------+-------------------------+--------+--------+