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).

DIM regs AS regtypex
DIM temp AS STRING * 64  'buffer for return = &H4700         'Service h47
regs.dx = 0              'default drive
regs.ds = VARSEG(temp)   'Segment of temp = 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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET