Carousel Volume 2 #1

home *** CD-ROM | disk | FTP | other *** search

/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / xcmd_get.sit / GetPVolume.Pas < prev next >

MacBinary | 1988-02-27 | 1.9 KB | [TEXT/EDIT]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: GetPVolume.Pas

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	TheDraw Pascal screen Image `(image/theDrawPascalScreenImage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Feb 27 17:14:42 1988, modified Sat Feb 27 17:14:42 1988, creator Macintosh Edit, type ASCII, 1325 bytes "GetPVolume.Pas" , at 0x5ad 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 47 65 74 50 56 6f | 6c 75 6d 65 2e 50 61 73 |..GetPVo|lume.Pas|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 05 2d 00 | 00 01 5c 9e 4c f3 d2 9e |......-.|..\.L...|
|00000060| 4c f3 d2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a9 00 00 00 |........|........|
|00000080| 7b 24 52 2d 7d 0d 7b 0d | 09 47 65 74 50 56 6f 6c |{$R-}.{.|.GetPVol|
|00000090| 75 6d 65 20 2d 2d 20 41 | 6e 20 48 79 70 65 72 43 |ume -- A|n HyperC|
|000000a0| 61 72 64 20 58 46 43 4e | 20 74 68 61 74 20 77 69 |ard XFCN| that wi|
|000000b0| 6c 6c 20 72 65 74 75 72 | 6e 20 74 68 65 20 76 6f |ll retur|n the vo|
|000000c0| 6c 75 6d 65 20 6f 66 20 | 74 68 65 20 73 70 65 61 |lume of |the spea|
|000000d0| 6b 65 72 0d 09 09 09 09 | 09 61 73 20 69 74 20 69 |ker.....|.as it i|
|000000e0| 73 20 73 74 6f 72 65 64 | 20 69 6e 20 74 68 65 20 |s stored| in the |
|000000f0| 70 61 72 61 6d 65 74 65 | 72 20 52 41 4d 2e 0d 09 |paramete|r RAM...|
|00000100| 0d 09 09 57 72 69 74 74 | 65 6e 20 62 79 20 53 74 |...Writt|en by St|
|00000110| 65 76 65 6e 20 4b 69 65 | 6e 6c 65 2c 20 43 49 53 |even Kie|nle, CIS|
|00000120| 20 61 63 63 6f 75 6e 74 | 20 6e 75 6d 62 65 72 20 | account| number |
|00000130| 37 32 33 33 30 2c 31 31 | 31 0d 09 0d 09 47 65 74 |72330,11|1....Get|
|00000140| 50 56 6f 6c 75 6d 65 20 | 73 68 6f 75 6c 64 20 62 |PVolume |should b|
|00000150| 65 20 63 61 6c 6c 65 64 | 20 69 6e 20 48 79 70 65 |e called| in Hype|
|00000160| 72 43 61 72 64 20 61 73 | 0d 09 09 47 65 74 50 56 |rCard as|...GetPV|
|00000170| 6f 6c 75 6d 65 28 29 0d | 09 54 68 65 20 70 61 72 |olume().|.The par|
|00000180| 65 6e 74 68 65 73 65 73 | 20 61 72 65 20 72 65 71 |entheses| are req|
|00000190| 75 69 72 65 64 2e 0d 09 | 0d 09 41 66 74 65 72 20 |uired...|..After |
|000001a0| 63 6f 6d 70 69 6c 69 6e | 67 20 74 68 69 73 20 70 |compilin|g this p|
|000001b0| 72 6f 67 72 61 6d 2c 20 | 6c 69 6e 6b 20 69 74 20 |rogram, |link it |
|000001c0| 77 69 74 68 20 74 68 65 | 20 47 65 74 50 56 6f 6c |with the| GetPVol|
|000001d0| 75 6d 65 2e 4c 69 6e 6b | 2c 20 74 68 65 6e 20 75 |ume.Link|, then u|
|000001e0| 73 65 0d 09 52 65 73 45 | 64 69 74 20 74 6f 20 6d |se..ResE|dit to m|
|000001f0| 6f 76 65 20 74 68 65 20 | 58 46 43 4e 20 72 65 73 |ove the |XFCN res|
|00000200| 6f 75 72 63 65 20 74 6f | 20 74 68 65 20 61 70 70 |ource to| the app|
|00000210| 72 6f 70 72 69 61 74 65 | 20 73 74 61 63 6b 2e 20 |ropriate| stack. |
|00000220| 20 4f 72 20 75 73 65 20 | 74 68 65 0d 09 47 65 74 | Or use |the..Get|
|00000230| 50 56 6f 6c 75 6d 65 2f | 53 65 74 56 6f 6c 75 6d |PVolume/|SetVolum|
|00000240| 65 20 73 74 61 63 6b 27 | 73 20 49 6e 73 74 61 6c |e stack'|s Instal|
|00000250| 6c 20 62 75 74 74 6f 6e | 2e 0d 09 0d 09 4e 4f 54 |l button|.....NOT|
|00000260| 45 3a 20 20 66 6f 72 20 | 74 68 65 20 58 43 6d 64 |E:  for |the XCmd|
|00000270| 47 6c 75 65 2e 69 6e 63 | 20 66 69 6c 65 20 74 6f |Glue.inc| file to|
|00000280| 20 77 6f 72 6b 20 77 69 | 74 68 20 54 4d 4c 20 50 | work wi|th TML P|
|00000290| 61 73 63 61 6c 2c 20 61 | 20 66 65 77 20 0d 09 09 |ascal, a| few ...|
|000002a0| 20 20 20 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 73 |   modif|ications|
|000002b0| 20 61 72 65 20 72 65 71 | 75 69 72 65 64 2e 0d 7d | are req|uired..}|
|000002c0| 0d 0d 7b 24 53 20 47 65 | 74 50 56 6f 6c 75 6d 65 |..{$S Ge|tPVolume|
|000002d0| 20 7d 20 09 7b 20 53 65 | 67 6d 65 6e 74 20 6e 61 | } .{ Se|gment na|
|000002e0| 6d 65 20 6d 75 73 74 20 | 62 65 20 74 68 65 20 73 |me must |be the s|
|000002f0| 61 6d 65 20 61 73 20 74 | 68 65 20 63 6f 6d 6d 61 |ame as t|he comma|
|00000300| 6e 64 20 6e 61 6d 65 2e | 20 7d 0d 0d 55 4e 49 54 |nd name.| }..UNIT|
|00000310| 20 44 75 6d 6d 79 55 6e | 69 74 3b 0d 0d 49 4e 54 | DummyUn|it;..INT|
|00000320| 45 52 46 41 43 45 0d 0d | 55 53 45 53 20 4d 61 63 |ERFACE..|USES Mac|
|00000330| 49 6e 74 66 2c 20 48 79 | 70 65 72 58 43 6d 64 3b |Intf, Hy|perXCmd;|
|00000340| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 45 4e 54 52 |..PROCED|URE ENTR|
|00000350| 59 50 4f 49 4e 54 28 70 | 61 72 61 6d 50 74 72 3a |YPOINT(p|aramPtr:|
|00000360| 20 58 43 6d 64 50 74 72 | 29 3b 0d 09 0d 49 4d 50 | XCmdPtr|);...IMP|
|00000370| 4c 45 4d 45 4e 54 41 54 | 49 4f 4e 0d 0d 50 52 4f |LEMENTAT|ION..PRO|
|00000380| 43 45 44 55 52 45 20 47 | 65 74 50 56 6f 6c 75 6d |CEDURE G|etPVolum|
|00000390| 65 28 70 61 72 61 6d 50 | 74 72 3a 20 58 43 6d 64 |e(paramP|tr: XCmd|
|000003a0| 50 74 72 29 3b 20 46 4f | 52 57 41 52 44 3b 0d 0d |Ptr); FO|RWARD;..|
|000003b0| 20 20 50 52 4f 43 45 44 | 55 52 45 20 45 4e 54 52 |  PROCED|URE ENTR|
|000003c0| 59 50 4f 49 4e 54 28 70 | 61 72 61 6d 50 74 72 3a |YPOINT(p|aramPtr:|
|000003d0| 20 58 43 6d 64 50 74 72 | 29 3b 0d 20 20 42 45 47 | XCmdPtr|);.  BEG|
|000003e0| 49 4e 0d 20 20 20 20 47 | 65 74 50 56 6f 6c 75 6d |IN.    G|etPVolum|
|000003f0| 65 28 70 61 72 61 6d 50 | 74 72 29 3b 0d 20 20 45 |e(paramP|tr);.  E|
|00000400| 4e 44 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 47 |ND;..PRO|CEDURE G|
|00000410| 65 74 50 56 6f 6c 75 6d | 65 28 70 61 72 61 6d 50 |etPVolum|e(paramP|
|00000420| 74 72 3a 20 58 43 6d 64 | 50 74 72 29 3b 0d 09 56 |tr: XCmd|Ptr);..V|
|00000430| 41 52 0d 09 09 6c 6f 6c | 64 56 6f 6c 75 6d 65 20 |AR...lol|dVolume |
|00000440| 3a 20 4c 6f 6e 67 49 6e | 74 20 3b 0d 09 09 70 61 |: LongIn|t ;...pa|
|00000450| 73 53 74 72 20 3a 20 53 | 74 72 32 35 35 20 3b 0d |sStr : S|tr255 ;.|
|00000460| 09 09 74 68 65 50 61 72 | 61 6d 73 20 3a 20 53 79 |..thePar|ams : Sy|
|00000470| 73 50 50 74 72 20 3b 0d | 0d 09 7b 24 49 20 58 43 |sPPtr ;.|..{$I XC|
|00000480| 6d 64 47 6c 75 65 2e 69 | 6e 63 20 7d 0d 0d 09 42 |mdGlue.i|nc }...B|
|00000490| 45 47 49 4e 0d 09 09 74 | 68 65 50 61 72 61 6d 73 |EGIN...t|heParams|
|000004a0| 20 3a 3d 20 47 65 74 53 | 79 73 50 50 74 72 20 3b | := GetS|ysPPtr ;|
|000004b0| 09 7b 20 47 65 74 20 74 | 68 65 20 76 6f 6c 75 6d |.{ Get t|he volum|
|000004c0| 65 20 66 72 6f 6d 20 74 | 68 65 20 50 61 72 61 6d |e from t|he Param|
|000004d0| 65 74 65 72 20 52 41 4d | 20 7d 0d 09 09 6c 6f 6c |eter RAM| }...lol|
|000004e0| 64 56 6f 6c 75 6d 65 20 | 3a 3d 20 42 69 74 41 6e |dVolume |:= BitAn|
|000004f0| 64 28 74 68 65 50 61 72 | 61 6d 73 5e 2e 76 6f 6c |d(thePar|ams^.vol|
|00000500| 43 6c 69 6b 2c 24 30 37 | 30 30 29 20 44 49 56 20 |Clik,$07|00) DIV |
|00000510| 24 30 31 30 30 20 3b 0d | 09 09 70 61 73 53 74 72 |$0100 ;.|..pasStr|
|00000520| 20 3a 3d 20 4e 75 6d 54 | 6f 53 74 72 28 6c 6f 6c | := NumT|oStr(lol|
|00000530| 64 56 6f 6c 75 6d 65 29 | 20 3b 09 09 09 09 7b 20 |dVolume)| ;....{ |
|00000540| 43 6f 6e 76 65 72 74 20 | 6e 75 6d 62 65 72 20 74 |Convert |number t|
|00000550| 6f 20 73 74 72 69 6e 67 | 20 7d 0d 09 09 70 61 72 |o string| }...par|
|00000560| 61 6d 50 74 72 5e 2e 72 | 65 74 75 72 6e 56 61 6c |amPtr^.r|eturnVal|
|00000570| 75 65 20 3a 3d 20 50 61 | 73 54 6f 5a 65 72 6f 28 |ue := Pa|sToZero(|
|00000580| 70 61 73 53 74 72 29 20 | 3b 09 7b 20 52 65 74 75 |pasStr) |;.{ Retu|
|00000590| 72 6e 20 74 68 65 20 76 | 61 6c 75 65 20 7d 0d 09 |rn the v|alue }..|
|000005a0| 45 4e 44 3b 0d 0d 0d 45 | 4e 44 2e 0d 0d 00 00 00 |END;...E|ND......|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000610| e6 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000620| ff 00 00 ff ff 13 30 02 | c5 11 00 05 38 11 00 04 |......0.|....8...|
|00000630| 0e 47 65 74 50 56 6f 6c | 75 6d 65 2e 50 61 73 6d |.GetPVol|ume.Pasm|
|00000640| 02 00 00 00 54 45 58 54 | 45 44 49 54 01 00 ff fd |....TEXT|EDIT....|
|00000650| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff fd 00 7c |..TEXTED|IT.....||
|00000660| 00 00 00 84 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 9e 4c ad 81 00 00 | 05 2d 00 00 01 5c 00 ff |...L....|.-...\..|
|00000680| ff 16 2d 0a a5 16 42 0c | 02 13 22 02 66 14 1c 06 |..-...B.|..".f...|
|00000690| 0c 16 10 04 4d 00 00 00 | 00 16 36 0b b4 14 20 07 |....M...|..6... .|
|000006a0| 1e 00 00 00 00 00 00 00 | 00 16 3e 0b ec 00 00 00 |........|..>.....|
|000006b0| 00 00 00 00 00 14 29 07 | 50 00 00 00 00 00 00 00 |......).|P.......|
|000006c0| 00 14 02 06 73 14 15 05 | d0 00 00 ff ff 0f 05 07 |....s...|........|
|000006d0| 8d 14 20 07 27 16 3d 0b | e5 00 00 00 00 00 00 00 |.. .'.=.|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff 00 00 00 |........|........|
|000006f0| 00 00 00 ff ff 00 00 00 | 00 00 00 ff ff 00 00 00 |........|........|
|00000700| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 20 00 00 |.......M|onaco ..|
|00000710| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000720| 00 16 00 00 00 46 00 14 | 2b 0c 07 b8 00 00 00 1c |.....F..|+.......|
|00000730| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000740| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 14 37 7e |........|......7~|
|00000750| 03 ec ff ff 00 00 00 0e | 00 14 37 c6 00 00 00 00 |........|..7.....|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+