home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: AMOS Basic Source Code Archive
(archive/amosSrc).
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 2e 33 20 |AMOS Bas|ic V1.3 |
|00000010| 00 00 08 38 1f 01 09 ea | 00 3e 00 00 00 00 00 5c |...8....|.>.....\|
|00000020| 00 3e 00 00 02 80 00 5c | 00 3e 00 00 00 c8 00 5c |.>.....\|.>.....\|
|00000030| 00 3e 00 00 00 02 00 5c | 0c 84 00 54 0d 1c 00 3e |.>.....\|...T...>|
|00000040| 00 00 00 01 00 5c 00 36 | 00 00 0f ff 00 54 14 46 |.....\.6|.....T.F|
|00000050| 00 00 18 01 06 52 00 28 | 20 66 69 72 73 74 20 6f |.....R.(| first o|
|00000060| 70 65 6e 20 64 6f 73 2e | 6c 69 62 72 61 72 79 20 |pen dos.|library |
|00000070| 74 6f 20 67 65 74 20 64 | 6f 73 20 62 61 73 65 20 |to get d|os base |
|00000080| 00 00 19 01 00 12 ff ee | 0c 80 6f 70 65 6e 5f 6c |........|..open_l|
|00000090| 69 62 72 61 72 79 00 84 | 00 26 00 0b 64 6f 73 2e |ibrary..|.&..dos.|
|000000a0| 6c 69 62 72 61 72 79 00 | 00 5c 00 3e 00 00 00 00 |library.|.\.>....|
|000000b0| 00 8c 00 00 0a 01 00 06 | 00 00 06 00 64 73 62 61 |........|....dsba|
|000000c0| 73 65 ff a2 03 e2 00 00 | 0e 01 02 be 00 44 00 06 |se......|.....D..|
|000000d0| 00 00 06 00 64 73 62 61 | 73 65 ff a2 00 3e 00 00 |....dsba|se...>..|
|000000e0| 00 00 00 00 12 01 04 76 | 00 26 00 1a 64 6f 73 2e |.......v|.&..dos.|
|000000f0| 6c 69 62 72 61 72 79 20 | 66 61 69 6c 65 64 20 74 |library |failed t|
|00000100| 6f 20 6f 70 65 6e 00 00 | 03 01 06 7a 00 00 03 01 |o open..|...z....|
|00000110| 02 da 00 00 24 01 06 52 | 00 40 20 6e 6f 77 20 77 |....$..R|.@ now w|
|00000120| 61 6c 6b 20 74 68 65 20 | 63 68 61 69 6e 20 6f 66 |alk the |chain of|
|00000130| 20 63 6f 6e 74 72 6f 6c | 73 20 74 6f 20 67 65 74 | control|s to get|
|00000140| 20 74 68 65 20 61 64 64 | 72 65 73 73 20 6f 66 20 | the add|ress of |
|00000150| 74 68 65 20 66 69 72 73 | 74 20 00 00 1f 01 06 52 |the firs|t .....R|
|00000160| 00 36 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |.6 eleme|nt of th|
|00000170| 65 20 6c 69 6e 6b 65 64 | 20 6c 69 73 74 20 6f 66 |e linked| list of|
|00000180| 20 64 65 76 69 63 65 20 | 69 6e 66 6f 20 73 74 72 | device |info str|
|00000190| 75 63 74 75 72 65 73 20 | 00 00 27 01 06 52 00 46 |uctures |..'..R.F|
|000001a0| 20 6e 6f 74 65 20 74 68 | 61 74 20 61 64 64 72 65 | note th|at addre|
|000001b0| 73 73 65 73 20 61 72 65 | 20 6f 72 64 69 6e 61 72 |sses are| ordinar|
|000001c0| 79 20 70 6f 69 6e 74 65 | 72 73 20 61 6e 64 20 73 |y pointe|rs and s|
|000001d0| 6f 6d 65 20 61 72 65 20 | 42 43 50 4c 20 70 6f 69 |ome are |BCPL poi|
|000001e0| 6e 74 65 72 73 20 00 00 | 17 01 00 06 00 06 08 00 |nters ..|........|
|000001f0| 72 6f 6f 74 6e 6f 64 65 | ff a2 21 fe 00 74 00 06 |rootnode|..!..t..|
|00000200| 00 00 06 00 64 73 62 61 | 73 65 ff c0 00 3e 00 00 |....dsba|se...>..|
|00000210| 00 22 00 7c 00 00 1b 01 | 00 06 00 0c 06 00 64 73 |.".|....|......ds|
|00000220| 69 6e 66 6f ff a2 21 fe | 00 74 00 06 00 06 08 00 |info..!.|.t......|
|00000230| 72 6f 6f 74 6e 6f 64 65 | ff c0 00 3e 00 00 00 18 |rootnode|...>....|
|00000240| 00 7c ff e2 00 3e 00 00 | 00 04 00 00 1b 01 00 06 |.|...>..|........|
|00000250| 00 12 08 00 64 65 76 69 | 6e 66 6f 00 ff a2 21 fe |....devi|nfo...!.|
|00000260| 00 74 00 06 00 0c 06 00 | 64 73 69 6e 66 6f ff c0 |.t......|dsinfo..|
|00000270| 00 3e 00 00 00 04 00 7c | ff e2 00 3e 00 00 00 04 |.>.....||...>....|
|00000280| 00 00 04 01 02 50 04 3e | 00 00 23 01 06 52 00 3e |.....P.>|..#..R.>|
|00000290| 20 66 69 6e 64 20 6f 75 | 74 20 77 68 65 74 68 65 | find ou|t whethe|
|000002a0| 72 20 74 68 65 20 70 61 | 72 74 69 63 75 6c 61 72 |r the pa|rticular|
|000002b0| 20 64 65 76 69 63 65 20 | 77 65 20 61 72 65 20 61 | device |we are a|
|000002c0| 74 20 69 73 20 61 20 76 | 6f 6c 75 6d 65 20 00 00 |t is a v|olume ..|
|000002d0| 11 01 06 52 00 1a 20 70 | 68 79 73 69 63 61 6c 20 |...R.. p|hysical |
|000002e0| 64 65 76 69 63 65 20 6f | 72 20 61 73 73 69 67 6e |device o|r assign|
|000002f0| 00 00 16 01 00 06 00 18 | 04 00 74 79 70 65 ff a2 |........|..type..|
|00000300| 21 fe 00 74 00 06 00 12 | 08 00 64 65 76 69 6e 66 |!..t....|..devinf|
|00000310| 6f 00 ff c0 00 3e 00 00 | 00 04 00 7c 00 00 0d 01 |o....>..|...|....|
|00000320| 02 be 01 26 00 06 00 18 | 04 00 74 79 70 65 ff a2 |...&....|..type..|
|00000330| 00 3e 00 00 00 00 00 00 | 1d 01 06 52 00 32 20 69 |.>......|...R.2 i|
|00000340| 66 20 74 68 65 20 66 69 | 6c 65 73 79 73 73 74 61 |f the fi|lesyssta|
|00000350| 72 74 75 70 6d 73 67 20 | 70 6f 69 6e 74 73 20 74 |rtupmsg |points t|
|00000360| 6f 20 61 20 72 65 61 6c | 20 61 64 64 72 65 73 73 |o a real| address|
|00000370| 00 00 11 01 06 52 00 1a | 20 74 68 65 6e 20 74 68 |.....R..| then th|
|00000380| 65 20 64 65 76 69 63 65 | 20 69 73 20 61 20 64 69 |e device| is a di|
|00000390| 73 6b 00 00 1e 01 00 06 | 00 1e 0c 00 66 69 6c 65 |sk......|....file|
|000003a0| 73 74 61 72 74 75 70 00 | ff a2 21 fe 00 74 00 06 |startup.|..!..t..|
|000003b0| 00 12 08 00 64 65 76 69 | 6e 66 6f 00 ff c0 00 3e |....devi|nfo....>|
|000003c0| 00 00 00 1c 00 7c ff e2 | 00 3e 00 00 00 04 00 00 |.....|..|.>......|
|000003d0| 11 01 02 be 00 44 00 06 | 00 1e 0c 00 66 69 6c 65 |.....D..|....file|
|000003e0| 73 74 61 72 74 75 70 00 | ff b6 00 3e 00 00 00 14 |startup.|...>....|
|000003f0| 00 00 11 01 00 06 00 24 | 04 02 74 79 70 65 ff a2 |.......$|..type..|
|00000400| 00 26 00 0d 44 69 73 6b | 20 44 65 76 69 63 65 3a |.&..Disk| Device:|
|00000410| 2d 00 00 00 04 01 02 d0 | 00 2a 00 00 12 01 00 06 |-.......|.*......|
|00000420| 00 24 04 02 74 79 70 65 | ff a2 00 26 00 10 4c 6f |.$..type|...&..Lo|
|00000430| 67 69 63 61 6c 20 44 65 | 76 69 63 65 3a 2d 00 00 |gical De|vice:-..|
|00000440| 03 01 02 da 00 00 03 01 | 02 da 00 00 0d 01 02 be |........|........|
|00000450| 00 3c 00 06 00 18 04 00 | 74 79 70 65 ff a2 00 3e |.<......|type...>|
|00000460| 00 00 00 01 00 00 12 01 | 00 06 00 24 04 02 74 79 |........|...$..ty|
|00000470| 70 65 ff a2 00 26 00 10 | 4c 6f 67 69 63 61 6c 20 |pe...&..|Logical |
|00000480| 44 65 76 69 63 65 3a 2d | 00 00 03 01 02 da 00 00 |Device:-|........|
|00000490| 0d 01 02 be 00 34 00 06 | 00 18 04 00 74 79 70 65 |.....4..|....type|
|000004a0| ff a2 00 3e 00 00 00 02 | 00 00 0e 01 00 06 00 24 |...>....|.......$|
|000004b0| 04 02 74 79 70 65 ff a2 | 00 26 00 08 56 6f 6c 75 |..type..|.&..Volu|
|000004c0| 6d 65 3a 2d 00 00 03 01 | 02 da 00 00 0e 01 06 52 |me:-....|.......R|
|000004d0| 00 14 70 72 6f 63 65 73 | 73 20 64 65 76 69 63 65 |..proces|s device|
|000004e0| 20 6e 61 6d 65 20 00 00 | 1b 01 00 06 00 2a 06 00 | name ..|.....*..|
|000004f0| 6e 6d 70 74 72 00 ff a2 | 21 fe 00 74 00 06 00 12 |nmptr...|!..t....|
|00000500| 08 00 64 65 76 69 6e 66 | 6f 00 ff c0 00 3e 00 00 |..devinf|o....>..|
|00000510| 00 28 00 7c ff e2 00 3e | 00 00 00 04 00 00 12 01 |.(.|...>|........|
|00000520| 00 06 00 30 06 00 6e 6d | 6c 65 6e 00 ff a2 21 e6 |...0..nm|len...!.|
|00000530| 00 74 00 06 00 2a 06 00 | 6e 6d 70 74 72 00 00 7c |.t...*..|nmptr..||
|00000540| 00 00 11 01 00 06 00 36 | 04 02 6e 61 6d 65 ff a2 |.......6|..name..|
|00000550| 05 5e 00 74 00 06 00 30 | 06 00 6e 6d 6c 65 6e 00 |.^.t...0|..nmlen.|
|00000560| 00 7c 00 00 13 01 02 3c | 00 6a 00 06 00 3c 02 00 |.|.....<|.j...<..|
|00000570| 6e 00 ff a2 00 3e 00 00 | 00 01 00 94 00 06 00 30 |n....>..|.......0|
|00000580| 06 00 6e 6d 6c 65 6e 00 | 00 00 23 01 21 ca 06 14 |..nmlen.|..#.!...|
|00000590| 00 74 00 06 00 36 04 02 | 6e 61 6d 65 00 7c ff c0 |.t...6..|name.|..|
|000005a0| 00 06 00 3c 02 00 6e 00 | ff ca 00 3e 00 00 00 01 |...<..n.|...>....|
|000005b0| 00 5c 21 e6 00 74 00 06 | 00 2a 06 00 6e 6d 70 74 |.\!..t..|.*..nmpt|
|000005c0| 72 00 ff c0 00 06 00 3c | 02 00 6e 00 00 7c 00 00 |r......<|..n..|..|
|000005d0| 07 01 02 46 00 06 00 3c | 02 00 6e 00 00 00 1b 01 |...F...<|..n.....|
|000005e0| 04 76 04 a6 00 26 00 11 | 7e 7e 7e 7e 7e 7e 7e 7e |.v...&..|~~~~~~~~|
|000005f0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 00 00 64 00 06 00 24 |~~~~~~~~|~..d...$|
|00000600| 04 02 74 79 70 65 00 64 | 00 06 00 36 04 02 6e 61 |..type.d|...6..na|
|00000610| 6d 65 00 00 24 01 06 52 | 00 40 67 65 74 20 74 68 |me..$..R|.@get th|
|00000620| 65 20 61 64 64 72 65 73 | 73 20 6f 66 20 74 68 65 |e addres|s of the|
|00000630| 20 6e 65 78 74 20 73 74 | 72 75 63 74 75 72 65 20 | next st|ructure |
|00000640| 69 66 20 74 68 65 20 61 | 64 64 72 65 73 73 20 69 |if the a|ddress i|
|00000650| 73 20 30 20 74 68 65 6e | 20 20 00 00 1b 01 06 52 |s 0 then| .....R|
|00000660| 00 2e 20 77 65 72 65 20 | 61 74 20 74 68 65 20 6c |.. were |at the l|
|00000670| 61 73 74 20 73 74 72 75 | 63 74 75 72 65 20 73 6f |ast stru|cture so|
|00000680| 20 77 65 76 65 20 66 69 | 6e 6e 69 73 68 65 64 20 | weve fi|nnished |
|00000690| 00 00 18 01 00 06 00 12 | 08 00 64 65 76 69 6e 66 |........|..devinf|
|000006a0| 6f 00 ff a2 21 fe 00 74 | 00 06 00 12 08 00 64 65 |o...!..t|......de|
|000006b0| 76 69 6e 66 6f 00 00 7c | ff e2 00 3e 00 00 00 04 |vinfo..||...>....|
|000006c0| 00 00 0e 01 02 5c 00 06 | 00 12 08 00 64 65 76 69 |.....\..|....devi|
|000006d0| 6e 66 6f 00 ff a2 00 3e | 00 00 00 00 00 00 12 01 |nfo....>|........|
|000006e0| 06 52 00 1c 63 6c 6f 73 | 65 20 64 6f 73 2e 6c 69 |.R..clos|e dos.li|
|000006f0| 62 72 61 72 79 20 74 6f | 20 62 65 20 74 69 64 79 |brary to| be tidy|
|00000700| 00 00 14 01 00 12 ff d8 | 0e 80 6b 6c 6f 73 65 5f |........|..klose_|
|00000710| 6c 69 62 72 61 72 79 00 | 00 84 00 06 00 00 06 00 |library.|........|
|00000720| 64 73 62 61 73 65 00 8c | 00 00 1d 01 03 76 00 00 |dsbase..|.....v..|
|00000730| 00 a6 00 0c 00 00 00 06 | 00 00 0c 80 6f 70 65 6e |........|....open|
|00000740| 5f 6c 69 62 72 61 72 79 | 00 84 00 06 00 00 04 02 |_library|........|
|00000750| 6c 69 62 00 00 5c 00 06 | 00 06 04 00 77 65 72 73 |lib..\..|....wers|
|00000760| 00 8c 00 00 14 01 00 06 | 00 00 04 02 6c 69 62 00 |........|....lib.|
|00000770| ff a2 00 06 00 00 04 02 | 6c 69 62 00 ff c0 05 52 |........|lib....R|
|00000780| 00 74 00 3e 00 00 00 00 | 00 7c 00 00 0c 01 22 a2 |.t.>....|.|....".|
|00000790| 00 74 00 3e 00 00 00 00 | 00 7c ff a2 00 3e 00 00 |.t.>....|.|...>..|
|000007a0| 00 00 00 00 11 01 22 96 | 00 74 00 3e 00 00 00 01 |......".|.t.>....|
|000007b0| 00 7c ff a2 06 14 00 74 | 00 06 00 00 04 02 6c 69 |.|.....t|......li|
|000007c0| 62 00 00 7c 00 00 0c 01 | 03 90 00 84 01 f8 00 74 |b..|....|.......t|
|000007d0| ff ca 00 3e 00 00 02 28 | 00 7c 00 8c 00 00 18 01 |...>...(|.|......|
|000007e0| 03 76 00 00 00 60 00 0c | 00 00 00 06 00 00 0e 80 |.v...`..|........|
|000007f0| 6b 6c 6f 73 65 5f 6c 69 | 62 72 61 72 79 00 00 84 |klose_li|brary...|
|00000800| 00 06 00 00 04 00 6c 69 | 62 00 00 8c 00 00 0e 01 |......li|b.......|
|00000810| 22 96 00 74 00 3e 00 00 | 00 01 00 7c ff a2 00 06 |"..t.>..|...|....|
|00000820| 00 00 04 00 6c 69 62 00 | 00 00 0e 01 00 06 00 06 |....lib.|........|
|00000830| 02 00 72 00 ff a2 01 f8 | 00 74 ff ca 00 3e 00 00 |..r.....|.t...>..|
|00000840| 01 9e 00 7c 00 00 03 01 | 03 90 00 00 41 6d 42 73 |...|....|....AmBs|
|00000850| 00 00 | |.. | |
+--------+-------------------------+-------------------------+--------+--------+
