Path: utzoo!attcan!uunet!lll-winken!ncis.llnl.gov!ncis!helios.ee.lbl.gov!pasteur!agate!saturn!ssyx.ucsc.edu!koreth
From: koreth@ssyx.ucsc.edu (Steven Grimm)
Newsgroups: comp.sources.atari.st
Subject: v01i089: limiter -- Limit uppermost hard disk device letter
Keywords: GFA BASIC
Message-ID: <5994@saturn.ucsc.edu>
Date: 18 Jan 89 09:39:37 GMT
Sender: usenet@saturn.ucsc.edu
Lines: 38
Approved: koreth@ssyx.ucsc.edu

Submitted-by: holzer@ztivax.siemens.com (Walter Holzer)
Posting-number: Volume 1, Issue 89
Archive-name: limiter



' --------------------------------------------------------------------------
' LIMITER, a Public Domain program by MaDom, <P> 26. Dec. 1988
' Version 1.0 developed in GfA-BASIC 2.0 because the compiler V3 isn't
' available (Oh sh..)
'
' Description:
' If you're using the driver's from Supra or ICD, all drives (A through P)
' are activated. This seems a little stupid, so this program was developed.
' You've to put the program in the folder "AUTO" of your boot device. Then
' you've to rename the program to LIMITERx.PRG, where x means the character
' of your last harddisk partition, eg. LIMITERI.PRG if your last partition
' will be "I:".
'
' CAUTION: The program won't check your inputs, so be careful.
' -------------------------------------------------------------------------
' set dta

Void Gemdos(26,L:Basepage+128)
' &H446 means the boot device, so every boot device will work
Filename$=Chr$(Dpeek(&H446)+65)+":\AUTO\LIMITER?.PRG"+Chr$(0)
' Scan for the name of the program
E%=Gemdos(78,L:Varptr(Filename$),-1)
' Yes, we've got it
If E%=0 Then
  Limit=Peek(Basepage+165)-64
  ' Poke the new number into _drvbits
  Sdpoke &H4C4,(2^Limit)-1
  ' A little bit of Copyright

  Print "LIMITER, a Public Domain program by MaDOM, <P> 26. Dec. 1988"
Endif
End