Re: Interrupt Help

 BBS: Inland Empire Archive
Date: 03-17-93 (19:17)             Number: 380
From: DICK DENNISON                Refer#: NONE
  To: EARL MONTGOMERY               Recvd: NO  
Subj: Re: Interrupt Help             Conf: (2) Quik_Bas

EM> Just when I thought I was getting the hang of interrupts I run
EM> across a new one that is giving me fits. It is Get the current
EM> Directory (&H21 function 47H).

'$INCLUDE: 'qb.bi'
DEFINT A-Z
DIM regs AS regtypex
DIM temp AS STRING * 64  'buffer for return
regs.ax = &H4700         'Service h47
regs.dx = 0              'default drive
regs.ds = VARSEG(temp)   'Segment of temp
regs.si = VARPTR(temp)   'Offset of Temp
interruptx &H21, regs, regs   'Call dos
PRINT regs.flags AND 1   'An error?
PRINT temp$              'If you're in the root a blank
       'is returned



--- VP [DOS] V4.09e
 * Origin: The MailMan  (914)374-3903 NY Quick Share Pt #7 *HST (1:272/34)