/ RISCWORLD 5 / RISCWORLD_VOL5.iso / SOFTWARE / Issue2 / TOOLBOX / CASTLE / !System / SysPaths

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 53 | 79 73 50 61 74 68 73 0d |..... >S|ysPaths.|
|00000010| 00 14 05 f4 0d 00 1e 48 | f4 20 56 65 72 73 69 6f |.......H|. Versio|
|00000020| 6e 20 30 2e 38 31 20 20 | 31 33 2d 53 65 70 2d 30 |n 0.81  |13-Sep-0|
|00000030| 32 20 20 52 65 77 72 69 | 74 74 65 6e 20 69 6e 20 |2  Rewri|tten in |
|00000040| 42 41 53 49 43 20 74 6f | 20 61 76 6f 69 64 20 33 |BASIC to| avoid 3|
|00000050| 32 2d 62 69 74 20 69 73 | 73 75 65 73 0d 00 28 04 |2-bit is|sues..(.|
|00000060| 0d 00 32 14 65 6e 74 72 | 79 5f 6c 69 6d 69 74 25 |..2.entr|y_limit%|
|00000070| 3d 32 35 36 0d 00 3c 23 | de 20 64 69 72 65 63 74 |=256..<#|. direct|
|00000080| 6f 72 69 65 73 25 20 65 | 6e 74 72 79 5f 6c 69 6d |ories% e|ntry_lim|
|00000090| 69 74 25 2a 34 2d 31 0d | 00 46 12 65 6e 74 72 79 |it%*4-1.|.F.entry|
|000000a0| 5f 63 6f 75 6e 74 25 3d | 30 0d 00 50 04 0d 00 5a |_count%=|0..P...Z|
|000000b0| 21 62 61 73 65 64 69 72 | 25 3d a4 73 79 73 70 61 |!basedir|%=.syspa|
|000000c0| 74 68 73 5f 73 79 73 74 | 65 6d 5f 64 69 72 0d 00 |ths_syst|em_dir..|
|000000d0| 64 21 76 65 72 73 69 6f | 6e 25 3d a4 73 79 73 70 |d!versio|n%=.sysp|
|000000e0| 61 74 68 73 5f 6f 73 5f | 76 65 72 73 69 6f 6e 0d |aths_os_|version.|
|000000f0| 00 6e 04 0d 00 78 47 e7 | 20 62 61 73 65 64 69 72 |.n...xG.| basedir|
|00000100| 25 3c 3e 30 20 80 20 76 | 65 72 73 69 6f 6e 25 3c |%<>0 . v|ersion%<|
|00000110| 3e 30 20 8c 20 f2 62 75 | 69 6c 64 5f 73 79 73 74 |>0 . .bu|ild_syst|
|00000120| 65 6d 5f 70 61 74 68 28 | 62 61 73 65 64 69 72 25 |em_path(|basedir%|
|00000130| 2c 76 65 72 73 69 6f 6e | 25 29 0d 00 82 05 e0 0d |,version|%)......|
|00000140| 00 8c 04 0d 00 96 11 dd | 20 a4 73 74 72 6c 65 6e |........| .strlen|
|00000150| 28 53 25 29 0d 00 a0 08 | ea 20 50 25 0d 00 aa 09 |(S%)....|. P%....|
|00000160| 50 25 3d 53 25 0d 00 b4 | 0d c8 95 20 3f 50 25 3c |P%=S%...|... ?P%<|
|00000170| 3e 30 0d 00 be 0b 20 20 | 50 25 2b 3d 31 0d 00 c8 |>0....  |P%+=1...|
|00000180| 05 ce 0d 00 d2 0a 3d 50 | 25 2d 53 25 0d 00 dc 04 |......=P|%-S%....|
|00000190| 0d 00 e6 14 dd 20 a4 69 | 73 6e 75 6d 65 72 69 63 |..... .i|snumeric|
|000001a0| 28 41 24 29 0d 00 f0 08 | ea 20 4e 25 0d 00 fa 11 |(A$)....|. N%....|
|000001b0| e3 20 4e 25 3d 31 20 b8 | 20 a9 20 41 24 0d 01 04 |. N%=1 .| . A$...|
|000001c0| 2e 20 20 e7 20 c1 41 24 | 2c 4e 25 2c 31 29 20 3c |.  . .A$|,N%,1) <|
|000001d0| 20 22 30 22 20 84 20 c1 | 41 24 2c 4e 25 2c 31 29 | "0" . .|A$,N%,1)|
|000001e0| 20 3e 20 22 39 22 20 8c | 20 3d a3 0d 01 0e 05 ed | > "9" .| =......|
|000001f0| 0d 01 18 06 3d b9 0d 01 | 22 04 0d 01 2c 2c dd 20 |....=...|"...,,. |
|00000200| f2 62 75 69 6c 64 5f 73 | 79 73 74 65 6d 5f 70 61 |.build_s|ystem_pa|
|00000210| 74 68 28 62 61 73 65 64 | 69 72 25 2c 20 76 65 72 |th(based|ir%, ver|
|00000220| 73 69 6f 6e 25 29 0d 01 | 36 2a ea 20 63 6f 6e 74 |sion%)..|6*. cont|
|00000230| 65 78 74 25 2c 62 75 66 | 66 65 72 25 2c 62 75 66 |ext%,buf|fer%,buf|
|00000240| 73 69 7a 65 25 2c 62 75 | 66 25 2c 56 25 2c 41 24 |size%,bu|f%,V%,A$|
|00000250| 0d 01 40 12 de 20 62 75 | 66 66 65 72 25 20 34 30 |..@.. bu|ffer% 40|
|00000260| 39 35 0d 01 4a 14 62 75 | 66 73 69 7a 65 25 3d 34 |95..J.bu|fsize%=4|
|00000270| 30 39 36 2d 33 32 0d 01 | 54 0e 63 6f 6e 74 65 78 |096-32..|T.contex|
|00000280| 74 25 3d 30 0d 01 5e 05 | f5 0d 01 68 51 20 20 c8 |t%=0..^.|...hQ  .|
|00000290| 99 22 4f 53 5f 47 42 50 | 42 22 2c 39 2c 62 61 73 |."OS_GBP|B",9,bas|
|000002a0| 65 64 69 72 25 2c 62 75 | 66 66 65 72 25 2c 32 35 |edir%,bu|ffer%,25|
|000002b0| 36 2c 63 6f 6e 74 65 78 | 74 25 2c 62 75 66 73 69 |6,contex|t%,bufsi|
|000002c0| 7a 65 25 2c 30 20 b8 20 | 2c 2c 2c 63 6f 75 6e 74 |ze%,0 . |,,,count|
|000002d0| 25 2c 63 6f 6e 74 65 78 | 74 25 0d 01 72 14 20 20 |%,contex|t%..r.  |
|000002e0| 62 75 66 25 20 3d 20 62 | 75 66 66 65 72 25 0d 01 |buf% = b|uffer%..|
|000002f0| 7c 2d 20 20 c8 95 20 63 | 6f 75 6e 74 25 3e 30 20 ||-  .. c|ount%>0 |
|00000300| 80 20 65 6e 74 72 79 5f | 63 6f 75 6e 74 25 3c 65 |. entry_|count%<e|
|00000310| 6e 74 72 79 5f 6c 69 6d | 69 74 25 0d 01 86 1d 20 |ntry_lim|it%.... |
|00000320| 20 20 20 62 75 66 6c 65 | 6e 25 3d a4 73 74 72 6c |   bufle|n%=.strl|
|00000330| 65 6e 28 62 75 66 25 29 | 0d 01 90 17 20 20 20 20 |en(buf%)|....    |
|00000340| 62 75 66 25 3f 62 75 66 | 6c 65 6e 25 3d 31 33 0d |buf%?buf|len%=13.|
|00000350| 01 9a 2f 20 20 20 20 e7 | 20 a4 69 73 6e 75 6d 65 |../    .| .isnume|
|00000360| 72 69 63 28 24 62 75 66 | 25 29 20 8c 20 56 25 3d |ric($buf|%) . V%=|
|00000370| bb 20 24 62 75 66 25 20 | 8b 20 56 25 3d 30 0d 01 |. $buf% |. V%=0..|
|00000380| a4 20 20 20 20 20 e7 20 | 56 25 3c 3e 30 20 80 20 |.     . |V%<>0 . |
|00000390| 56 25 3c 3d 76 65 72 73 | 69 6f 6e 25 20 8c 0d 01 |V%<=vers|ion% ...|
|000003a0| ae 2a 20 20 20 20 20 20 | 64 69 72 65 63 74 6f 72 |.*      |director|
|000003b0| 69 65 73 25 21 28 65 6e | 74 72 79 5f 63 6f 75 6e |ies%!(en|try_coun|
|000003c0| 74 25 2a 34 29 3d 56 25 | 0d 01 b8 19 20 20 20 20 |t%*4)=V%|....    |
|000003d0| 20 20 65 6e 74 72 79 5f | 63 6f 75 6e 74 25 2b 3d |  entry_|count%+=|
|000003e0| 31 0d 01 c2 09 20 20 20 | 20 cd 0d 01 cc 17 20 20 |1....   | .....  |
|000003f0| 20 20 62 75 66 25 2b 3d | 62 75 66 6c 65 6e 25 2b |  buf%+=|buflen%+|
|00000400| 31 0d 01 d6 11 20 20 20 | 20 63 6f 75 6e 74 25 2d |1....   | count%-|
|00000410| 3d 31 0d 01 e0 07 20 20 | ce 0d 01 ea 11 fd 20 63 |=1....  |...... c|
|00000420| 6f 6e 74 65 78 74 25 3d | 2d 31 0d 01 f4 04 0d 01 |ontext%=|-1......|
|00000430| fe 2f c8 99 22 4f 53 5f | 48 65 61 70 53 6f 72 74 |./.."OS_|HeapSort|
|00000440| 22 2c 65 6e 74 72 79 5f | 63 6f 75 6e 74 25 2c 64 |",entry_|count%,d|
|00000450| 69 72 65 63 74 6f 72 69 | 65 73 25 2c 30 0d 02 08 |irectori|es%,0...|
|00000460| 04 0d 02 12 10 62 75 66 | 25 3d 62 75 66 66 65 72 |.....buf|%=buffer|
|00000470| 25 0d 02 1c 04 0d 02 26 | 16 e7 20 65 6e 74 72 79 |%......&|.. entry|
|00000480| 5f 63 6f 75 6e 74 25 3e | 30 20 8c 0d 02 30 28 20 |_count%>|0 ...0( |
|00000490| 20 e3 20 63 6f 6e 74 65 | 78 74 25 3d 65 6e 74 72 | . conte|xt%=entr|
|000004a0| 79 5f 63 6f 75 6e 74 25 | 2d 31 20 b8 20 30 20 88 |y_count%|-1 . 0 .|
|000004b0| 20 2d 31 0d 02 3a 39 20 | 20 20 20 41 24 3d 22 53 | -1..:9 |   A$="S|
|000004c0| 79 73 3a 22 2b c3 64 69 | 72 65 63 74 6f 72 69 65 |ys:"+.di|rectorie|
|000004d0| 73 25 21 28 63 6f 6e 74 | 65 78 74 25 2a 34 29 2b |s%!(cont|ext%*4)+|
|000004e0| 22 2e 2c 22 3a 56 25 3d | a9 20 41 24 0d 02 44 10 |".,":V%=|. A$..D.|
|000004f0| 20 20 20 20 24 62 75 66 | 25 3d 41 24 0d 02 4e 10 |    $buf|%=A$..N.|
|00000500| 20 20 20 20 62 75 66 25 | 2b 3d 56 25 0d 02 58 2d |    buf%|+=V%..X-|
|00000510| 20 20 20 20 e7 20 56 25 | 3e 62 75 66 73 69 7a 65 |    . V%|>bufsize|
|00000520| 25 20 8c 20 63 6f 6e 74 | 65 78 74 25 3d 65 6e 74 |% . cont|ext%=ent|
|00000530| 72 79 5f 63 6f 75 6e 74 | 25 0d 02 62 16 20 20 20 |ry_count|%..b.   |
|00000540| 20 62 75 66 73 69 7a 65 | 25 2d 3d a9 20 41 24 0d | bufsize|%-=. A$.|
|00000550| 02 6c 07 20 20 ed 0d 02 | 76 05 cd 0d 02 80 04 0d |.l.  ...|v.......|
|00000560| 02 8a 05 f5 0d 02 94 15 | 20 20 3f 62 75 66 25 3d |........|  ?buf%=|
|00000570| 3f 62 61 73 65 64 69 72 | 25 0d 02 9e 19 20 20 62 |?basedir|%....  b|
|00000580| 75 66 25 2b 3d 31 3a 62 | 61 73 65 64 69 72 25 2b |uf%+=1:b|asedir%+|
|00000590| 3d 31 0d 02 a8 0f fd 20 | 62 75 66 25 3f 2d 31 3d |=1..... |buf%?-1=|
|000005a0| 30 0d 02 b2 04 0d 02 bc | 18 62 75 66 25 3f 2d 31 |0.......|.buf%?-1|
|000005b0| 3d 97 22 2e 22 3a 3f 62 | 75 66 25 3d 30 0d 02 c6 |=.".":?b|uf%=0...|
|000005c0| 04 0d 02 d0 37 c8 99 22 | 4f 53 5f 53 65 74 56 61 |....7.."|OS_SetVa|
|000005d0| 72 56 61 6c 22 2c 22 53 | 79 73 74 65 6d 24 50 61 |rVal","S|ystem$Pa|
|000005e0| 74 68 22 2c 62 75 66 66 | 65 72 25 2c 62 75 66 25 |th",buff|er%,buf%|
|000005f0| 2d 62 75 66 66 65 72 25 | 0d 02 da 05 e1 0d 02 e4 |-buffer%|........|
|00000600| 04 0d 02 ee 1a dd 20 a4 | 73 79 73 70 61 74 68 73 |...... .|syspaths|
|00000610| 5f 6f 73 5f 76 65 72 73 | 69 6f 6e 0d 02 f8 28 ea |_os_vers|ion...(.|
|00000620| 20 6c 65 6e 67 74 68 25 | 2c 6f 73 5f 76 65 72 73 | length%|,os_vers|
|00000630| 69 6f 6e 24 2c 62 6f 6f | 74 6f 73 76 65 72 73 69 |ion$,boo|tosversi|
|00000640| 6f 6e 25 0d 03 02 18 de | 20 62 6f 6f 74 6f 73 76 |on%.....| bootosv|
|00000650| 65 72 73 69 6f 6e 25 20 | 32 35 36 0d 03 0c 55 c8 |ersion% |256...U.|
|00000660| 99 22 58 4f 53 5f 52 65 | 61 64 56 61 72 56 61 6c |."XOS_Re|adVarVal|
|00000670| 22 2c 22 42 6f 6f 74 24 | 4f 53 56 65 72 73 69 6f |","Boot$|OSVersio|
|00000680| 6e 22 2c 62 6f 6f 74 6f | 73 76 65 72 73 69 6f 6e |n",booto|sversion|
|00000690| 25 2c 32 35 36 2c 30 2c | 33 20 b8 20 2c 6f 73 5f |%,256,0,|3 . ,os_|
|000006a0| 76 65 72 73 69 6f 6e 24 | 2c 6c 65 6e 67 74 68 25 |version$|,length%|
|000006b0| 0d 03 16 11 e7 20 6c 65 | 6e 67 74 68 25 3e 30 20 |..... le|ngth%>0 |
|000006c0| 8c 0d 03 20 1f 20 20 62 | 6f 6f 74 6f 73 76 65 72 |... .  b|ootosver|
|000006d0| 73 69 6f 6e 25 3f 6c 65 | 6e 67 74 68 25 3d 31 33 |sion%?le|ngth%=13|
|000006e0| 0d 03 2a 21 20 20 6f 73 | 5f 76 65 72 73 69 6f 6e |..*!  os|_version|
|000006f0| 24 3d 24 62 6f 6f 74 6f | 73 76 65 72 73 69 6f 6e |$=$booto|sversion|
|00000700| 25 0d 03 34 0c 20 20 ea | 20 64 6f 74 25 0d 03 3e |%..4.  .| dot%..>|
|00000710| 1c 20 20 64 6f 74 25 3d | a7 6f 73 5f 76 65 72 73 |.  dot%=|.os_vers|
|00000720| 69 6f 6e 24 2c 22 2e 22 | 29 0d 03 48 0d 20 20 c8 |ion$,"."|)..H.  .|
|00000730| 95 20 64 6f 74 25 0d 03 | 52 3d 20 20 20 20 6f 73 |. dot%..|R=    os|
|00000740| 5f 76 65 72 73 69 6f 6e | 24 3d c0 6f 73 5f 76 65 |_version|$=.os_ve|
|00000750| 72 73 69 6f 6e 24 2c 64 | 6f 74 25 2d 31 29 2b c1 |rsion$,d|ot%-1)+.|
|00000760| 6f 73 5f 76 65 72 73 69 | 6f 6e 24 2c 64 6f 74 25 |os_versi|on$,dot%|
|00000770| 2b 31 29 0d 03 5c 1e 20 | 20 20 20 64 6f 74 25 3d |+1)..\. |   dot%=|
|00000780| a7 6f 73 5f 76 65 72 73 | 69 6f 6e 24 2c 22 2e 22 |.os_vers|ion$,"."|
|00000790| 29 0d 03 66 07 20 20 ce | 0d 03 70 05 cc 0d 03 7a |)..f.  .|..p....z|
|000007a0| 1c 20 20 ea 20 4e 25 2c | 53 25 2c 6e 61 6d 65 24 |.  . N%,|S%,name$|
|000007b0| 2c 76 65 72 73 69 6f 6e | 25 0d 03 84 10 20 20 4e |,version|%....  N|
|000007c0| 25 3d 30 3a 53 25 3d 2d | 31 0d 03 8e 07 20 20 f5 |%=0:S%=-|1....  .|
|000007d0| 0d 03 98 38 20 20 20 20 | c8 99 22 4f 53 5f 4d 6f |...8    |.."OS_Mo|
|000007e0| 64 75 6c 65 22 2c 32 30 | 2c 4e 25 2c 53 25 20 b8 |dule",20|,N%,S% .|
|000007f0| 20 2c 4e 25 2c 53 25 2c | 6e 61 6d 65 24 2c 2c 2c | ,N%,S%,|name$,,,|
|00000800| 76 65 72 73 69 6f 6e 25 | 0d 03 a2 1d 20 20 fd 20 |version%|....  . |
|00000810| 6e 61 6d 65 24 3d 22 55 | 74 69 6c 69 74 79 4d 6f |name$="U|tilityMo|
|00000820| 64 75 6c 65 22 0d 03 ac | 27 20 20 6f 73 5f 76 65 |dule"...|'  os_ve|
|00000830| 72 73 69 6f 6e 24 3d c3 | 7e 28 76 65 72 73 69 6f |rsion$=.|~(versio|
|00000840| 6e 25 3e 3e 3e 31 32 29 | 2b 22 30 22 0d 03 b6 05 |n%>>>12)|+"0"....|
|00000850| cd 0d 03 c0 3f c8 99 22 | 4f 53 5f 53 65 74 56 61 |....?.."|OS_SetVa|
|00000860| 72 56 61 6c 22 2c 22 42 | 6f 6f 74 24 4f 53 56 65 |rVal","B|oot$OSVe|
|00000870| 72 73 69 6f 6e 22 2c 6f | 73 5f 76 65 72 73 69 6f |rsion",o|s_versio|
|00000880| 6e 24 2c a9 20 6f 73 5f | 76 65 72 73 69 6f 6e 24 |n$,. os_|version$|
|00000890| 0d 03 ca 12 3d bb 20 6f | 73 5f 76 65 72 73 69 6f |....=. o|s_versio|
|000008a0| 6e 24 0d 03 d4 04 0d 03 | de 1a dd 20 a4 73 79 73 |n$......|... .sys|
|000008b0| 70 61 74 68 73 5f 73 79 | 73 74 65 6d 5f 64 69 72 |paths_sy|stem_dir|
|000008c0| 0d 03 e8 19 ea 20 73 79 | 73 74 65 6d 5f 64 69 72 |..... sy|stem_dir|
|000008d0| 25 2c 6c 65 6e 67 74 68 | 25 0d 03 f2 16 de 20 73 |%,length|%..... s|
|000008e0| 79 73 74 65 6d 5f 64 69 | 72 25 20 34 30 39 35 0d |ystem_di|r% 4095.|
|000008f0| 03 fc 43 c8 99 22 4f 53 | 5f 52 65 61 64 56 61 72 |..C.."OS|_ReadVar|
|00000900| 56 61 6c 22 2c 22 53 79 | 73 74 65 6d 24 44 69 72 |Val","Sy|stem$Dir|
|00000910| 22 2c 73 79 73 74 65 6d | 5f 64 69 72 25 2c 34 30 |",system|_dir%,40|
|00000920| 39 36 2c 30 2c 33 20 b8 | 20 2c 2c 6c 65 6e 67 74 |96,0,3 .| ,,lengt|
|00000930| 68 25 0d 04 06 1c 73 79 | 73 74 65 6d 5f 64 69 72 |h%....sy|stem_dir|
|00000940| 25 3f 6c 65 6e 67 74 68 | 25 3d 97 22 2e 22 0d 04 |%?length|%=."."..|
|00000950| 10 1d 73 79 73 74 65 6d | 5f 64 69 72 25 3f 28 6c |..system|_dir%?(l|
|00000960| 65 6e 67 74 68 25 2b 31 | 29 3d 30 0d 04 1a 33 c8 |ength%+1|)=0...3.|
|00000970| 99 22 4f 53 5f 53 65 74 | 56 61 72 56 61 6c 22 2c |."OS_Set|VarVal",|
|00000980| 22 53 79 73 24 50 61 74 | 68 22 2c 73 79 73 74 65 |"Sys$Pat|h",syste|
|00000990| 6d 5f 64 69 72 25 2c 6c | 65 6e 67 74 68 25 0d 04 |m_dir%,l|ength%..|
|000009a0| 24 19 73 79 73 74 65 6d | 5f 64 69 72 25 3f 6c 65 |$.system|_dir%?le|
|000009b0| 6e 67 74 68 25 3d 30 0d | 04 2e 10 3d 73 79 73 74 |ngth%=0.|...=syst|
|000009c0| 65 6d 5f 64 69 72 25 0d | ff                      |em_dir%.|.       |
+--------+-------------------------+-------------------------+--------+--------+