Interrupt Help

 BBS: Inland Empire Archive
Date: 03-17-93 (21:32)             Number: 391
From: MARTY DUPLISSEY              Refer#: NONE
  To: EARL MONTGOMERY               Recvd: NO  
Subj: Interrupt Help                 Conf: (2) Quik_Bas

Blabbering as if I knew what I was talking about!

In a msg of <15 Mar 93>, Earl Montgomery mumbled incoherently to All:

 EM> I've never worked with the DS:SI combination and don't really
 EM> understand what SI is. Can someone please show me the proper
 EM> use of this interrupt? I just need the basics. Such as what
 EM> do you load the inregs with and where do you (and how do you)
 EM> read the ASCIIZ return string. If you could comment it for me
 EM> maybe in the future I can figure these things out for myself.

--------------------------Cut-----------------------------
'Get Current dir path Marty Duplissey 03/17/93
'Using function &h4700 of interrupt &h21

'$INCLUDE: 'QBX.BI'  ' Delete the one you don't need
'$INCLUDE: 'qb.bi'

'This is probably where you are having your problem notice the x
DIM regs AS regtypex

'This is supposed to be 64 spaces but that is the maximum the int will
'return if you don't have any paths that long it will not hurt to make it
'shorter be warned though STRING$(64," ") WILL NOT work
path$ = "                                      "

regs.dx = &H0          'Default drive
regs.ax = &H4700
regs.ds = SSEG(path$)  'Comment out this line if using QB 4.?
regs.si = SADD(path$)  'Ptr to Path$

' Again notice the x
CALL interruptx(&H21, regs, regs)

' Path$ will now have the full path to your dir without the C:\
' You will have to attach that your self

PRINT path$
-------------------------------cut-----------------------------------

I hope this helps
MARTY

--- GoldED 2.40
 * Origin: World Link, Longview,TX.USA OS/2 (903-643-7607) (1:398/1)