Emm part 2

 BBS: Inland Empire Archive
Date: 06-13-92 (15:30)             Number: 106
From: JAMES VAHN                   Refer#: NONE
  To: FRANCOIS ROY                  Recvd: NO  
Subj: Emm part 2                     Conf: (2) Quik_Bas
Since it's raining out I thought I'd give that another go..

'test4ems.bas   Checks for presence of expanded memory
'$INCLUDE: 'qb.bi'
DIM Regs AS RegTypeX

Regs.ax = &H3567
DEF SEG = Regs.es
 FOR t = &HA TO &H11
  ems$ = ems$ + CHR$(PEEK(t))
IF ems$ <> "EMMXXXX0" THEN PRINT "No ";
PRINT "EMS installed"

This one peeks right into wherever the driver is supposed to be.  By making a
few changes you could check for other drivers too.  The
funny name EMMXXXX0 is found by installing the driver and
with DOS 5.0's MEM/D command.

--- Maximus 2.00
 * Origin: Inland Empire Archive (1:346/10)
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