Sorry your browser is not supported!

REM Project: TMEX
REM Created: 10/26/2006 11:07:35 PM
REM
REM ***** Main Source File *****
REM

remstart This is the ibfs32.dll function list as it appears in the sample code.
static long (far pascal *TMExtendedStartSession)(short,short,void far *);
static short (far pascal *TMEndSession)(long);
static short (far pascal *TMValidSession)(long);
static short (far pascal *TMSetup)(long);
static short (far pascal *TMClose)(long);
static short (far pascal *TMTouchReset)(long);
static short (far pascal *TMTouchByte)(long, short);
static short (far pascal *TMTouchBit)(long, short);
static short (far pascal *TMOneWireCom)(long, short, short);
static short (far pascal *TMOneWireLevel)(long, short, short, short);
static short (far pascal *TMGetTypeVersion)(short, char *);
static short (far pascal *Get_Version)(char *);
static short (far pascal *TMBlockStream)(long, unsigned char *, short);
static short (far pascal *TMFirst)(long, uchar *);
static short (far pascal *TMNext)(long, uchar *);
static short (far pascal *TMAccess)(long, uchar *);
static short (far pascal *TMStrongAccess)(long, uchar *);
static short (far pascal *TMRom)(long, uchar *, short *);
remend

#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17

global ibfs32 as integer
global memID as integer
global dwptr as DWORD
global version$ as string

dim TMEX(18) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"

for i = 0 to 18
    print TMEX(i)
next i

ibfs32 = 1
do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32
wait key

delete dll ibfs32
end

ong session_handle;
short PortNum = 1, PortType = 1;

/* attempt to get a session on Port */
session_handle = TMExtendedStartSession(PortNum,PortType,NULL);

if (session_handle > 0)
{
    /* call TMEX API function with session_handle */
    ...
}
else if (session_handle == 0)
{
    /* port not available */
    ...
}
else if (session_handle == -1)
{
    /* failure, indicated type does not have a driver */
    ...
}

/* relinquish port */
TMEndSession(session_handle);

#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17

global ibfs32 as integer
global memID as integer
global dwptr as dword
global version$ as string
global PortNum, PortType, wTemp as word
global session_handle as dword


dim TMEX(18) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"

PortNum = 1
PortType = 1
session_handle = 0
ibfs32 = 1
do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32
print "Requesting session on port "; PortNum

session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)
print "Handle returned : " + hex$(session_handle) + "h"
if session_handle > 0
    rem session valid...continue.
    wTemp = call dll(ibfs32, TMEX(TMEndSession), session_handle)
    if wTemp  > 0 and wTemp < 32768
        print "Session terminated."
    else
        print "Session was NOT terminated."
    endif
else
    if session_handle = 0
        print "Port not available."
    endif
    if session_handle < 0
        print "Driver not available."
    endif
endif
delete dll ibfs32

wait key
end

#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18

global ibfs32 as integer
global memID as integer
global dwptr as dword
global version$ as string
global PortNum, PortType, wTemp as word
global session_handle as dword
global state_buffer as dword

global ReturnPortType as word

dim TMEX(20) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"

TMEX(TMReadDefaultPort) = "TMReadDefaultPort"

PortNum = 1
PortType = 1
session_handle = 0
ibfs32 = 1
state_buffer = 15360

do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32
print "Requesting session on port "; PortNum
print ""
print "Getting required info"

`(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function.
`(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent.
`(-3)   NO_SUCH_FUNCTION - Function not supported.
`(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter
`(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire
`(-200)  INVALID_SESSION - session not valid
`(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required

session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType,null)
EndSession = call dll(ibfs32, TMEX(TMEndSession),session_handle )
rem <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
ReturnPortType =call dll(ibsf32, TMEX(TMReadDefaultPort),PortNum, portType)

Setup =call dll(ibfs32, TMEX(TMSetup),session_handle )
`mNext = call dll(ibfs32,TMEX(TMNext),session_handle , state_buffer)
`mfirst = call dll(ibfs32,TMEX(TMFirst),session_handle, state_buffer)

`MRom = call dll(ibfs32,tmex(TMRom),session_handle, state_buffer )

print "Handle returned : " + hex$(session_handle ) + "h"
print "session_handle  = ";session_handle
print "ReturnPorttype = ";ReturnPortType
print "endsession =";endsession
print "setup = "; setup
print "mnext = "; mnext
print "mfirst = "; mfirst
print "mrom = "; mrom

if ExtendedStartSession > 0
    rem session valid...continue.
    wTemp = call dll(ibfs32, TMEX(TMEndSession),session_handle )
    if wTemp  > 0 and wTemp < 32768
        print "Session terminated."
    else
        print "Session was NOT terminated."
    endif
else
    if session_handle  = 0
        print "Port not available."
    endif
    if session_handle  < 0
        print "Driver not available."
    endif
endif
delete dll ibfs32

wait key
end
remstart
`//--------------------------------------------------------------------------
`// Load the TMEX driver and get a pointers to the functions
`//
`short LoadTMEX(void)
`{
`   // attempt to get a SHandle to the TMEX driver
`   hInst = LoadLibrary("IBFS32.DLL");```

`   // get a pointer to the function needed by loopit32
`   if (hInst != NULL)
`   {
`      ExtendedStartSession = GetProcAddress(hInst,"TMExtendedStartSession");
`      TMEndSession = GetProcAddress(hInst,"TMEndSession");
`      TMSetup = GetProcAddress(hInst,"TMSetup");
`      TMNext = GetProcAddress(hInst,"TMNext");
`      TMRom = GetProcAddress(hInst,"TMRom");
`      Get_Version = GetProcAddress(hInst,"Get_Version");
`      TMGetTypeVersion = GetProcAddress(hInst,"TMGetTypeVersion");
`     TMReadDefaultPort = GetProcAddress(hInst, "TMReadDefaultPort");`

`      // check to make sure got ALL of the functions needed
`      if ((ExtendedStartSession == NULL) || (TMEndSession == NULL) ||
`         (TMSetup == NULL) || (TMNext == NULL) ||
`         (TMRom == NULL) || (Get_Version == NULL) ||
`         (TMGetTypeVersion == NULL) || (TMReadDefaultPort == NULL))
`      {
`         printf("ERROR, could not get a pointer to all"
`                " of the TMEX functions neededn");
`         return 0;
`      }
`      // get a function pointer that returns a long
`      TMExtendedStartSession = (long (far pascal *)(short,short,void far *))ExtendedStartSession;
`      return 1;
`   }
`   else
`      return 0;





************************************************************
TMExtendedStartSession  request a 1-Wire network port
session_handle = TMExtendedStartSession(PortNum,PortType,NULL);


TMStartSession          (old format) request a 1-Wire network port
session_handle = TMStartSession(port);

TMValidSession          check to see if the 1-Wire network port session is still valid
if (TMValidSession(session_handle) == 1)

TMEndSession            relinquish a 1-Wire network port
if (TMEndSession(session_handle) == 0)

File Operations

TMFirstFile             get first file name in the current directory
result = TMFirstFile(session_handle,state_buffer,&fentry);

if (result < 0)
{
    /* FILE_OPERATIONS error */
    ...
}
else
{
    /* success, first file is in fentry */
    sprintf(buf,"First file is %.4s.%03d",
                        fentry.name,fentry.extension);
    ...
}

TMNextFile              get next file name in the current directory
result = TMFirstFile(session_handle,state_buffer,&fentry)

/* loop while files are being found */
while(result > 0)
{
   /* get the file information */
   sprintf(buf,"File is %.4s.%03d",
                        fentry.name,fentry.extension);
   ...

   /* get the next file */
   result = TMNextFile(session_handle,state_buffer,&fentry);
}

TMOpenFile              open a file for reading
result = TMFirstFile(session_handle,state_buffer,&fentry);

/* make sure a file was found that was not a directory reference */
if ((result > 0) && (fentry.extension != 0x7F))
{
   /* try and open the file that was just found */
   file_handle = TMOpenFile(session_handle,state_buffer,&fentry);
   if (file_handle >= 0)
   {
       /* file is opened, ready to read using file_handle */
       ...
   }
   else
   {
       /* error getting file handle */
       ...
   }
}
else
{
    /* error getting first file or file entry is a directory */
    ...
}

OR

fentry.name[0] = 'D';
fentry.name[1] = 'E';
fentry.name[2] = 'M';
fentry.name[3] = 'O';
fentry.extension = 0;

/* try to open the file DEMO.000 */
file_handle = TMOpenFile(session_handle,state_buffer,&fentry);

if (file_handle >= 0)
{
   /* file is opened, ready to read */
   ...
}
else
{
   /* error opening file */
   ...
}

/* close the opened file with a call to TMCloseFile */
...

/* close the session with a call to TMEndSession */
...

TMCreateFile            create a file for writing

TMCloseFile             close an opened/created file

TMReadFile              read an opened file

TMWriteFile             write a created file

TMDeleteFile            delete a file

TMFormat                format 1-Wire device for file structure

TMAttribute             change file/directory attributes

TMReNameFile            rename a file

TMChangeDirectory       read or change the current directory

TMDirectoryMR           Make or Remove a sub-directory

TMCreateProgramJob      ready the write buffer for EPROM programming

TMDoProgramJob          do the EPROM programming

TMWriteAddFile          append or alter an ‘AddFile’ on an EPROM 1-Wire device

TMTerminateAddFile      terminate an ‘AddFile’ with Universal Data Packets

TMGetFamilySpec         gets 1-Wire device description based on family code

Get_Version             read the version string of the main TMEX driver

Transport

TMReadPacket            read a CRC16 validated packet

TMWritePacket           write a CRC16 validated packet

TMBlockIO               transfer a block to the 1-Wire network

TMExtendedReadPage      read a device-CRC validated page (regular or status)

TMProgramByte           program a byte in an EPROM 1-Wire device

TMProgramBlock          program a block of bytes in an EPROM 1-Wire device

TMCRC                   provides 8-bit or 16-bit CRC calculation

Network


TMFirst                 find the first device on a 1-Wire network

TMNext                  find the next device on a 1-Wire network

TMAccess                select the current device

TMStrongAccess          verify that the current device is still there and select

TMStrongAlarmAccess     same as TMStrongAccess except it must be alarming

TMOverAccess            select the current device and switch it into overdrive speed

TMRom                   read the current device ROM or set the ROM for the next select

TMFirstAlarm            find the first alarming device on a 1-Wire network

TMNextAlarm             find the next alarming device on a 1-Wire network

TMFamilySearchSetup     set the search to find a family type on the next search

TMSkipFamily            skip the current device family type on the next search

TMAutoOverDrive         automatically get in and out of overdrive speeds

TMSearch                performs general search for 1-Wire devices

Hardware Specific

TMSetup                 verify the port exists

TMTouchByte             one byte communication to 1-Wire network

TMTouchReset            reset 1-Wire devices on 1-Wire network

TMTouchBit              one bit communication to 1-Wire network

TMProgramPulse          send a programming pulse to 1-Wire network

TMOneWireLevel          set the 1-Wire communication level

TMOneWireCom            set the 1-Wire communication speed

TMClose                 power down a port (not always applicable)

TMGetTypeVersion        read the version string of the hardware specific driver

TMBlockStream           transfer a stream to the 1-Wire network

TMReadDefaultPort       reads the default 1-Wire port and type from the system registry

TMGetAdapterSpec        returns 1-Wire adapter feature-set information

Get_Version             read the version string of the main TMEX driver
TMAccess                select the current device
TMAttribute             change file/directory attributes
TMAutoOverDrive         automatically get in and out of overdrive speeds
TMBlockIO               transfer a block to the 1-Wire network
TMBlockStream           transfer a stream to the 1-Wire network.
TMChangeDirectory       read or change the current directory
TMCloseFile             close an opened/created file
TMClose                 power down a port (not always applicable)
TMCRC                   provides 8-bit or 16-bit CRC calculation
TMCreateFile            create a file for writing
TMCreateProgramJob      ready the write buffer for EPROM programming
TMDeleteFile            delete a file
TMDirectoryMR           Make or Remove a sub-directory
TMDoProgramJob          do the EPROM programming
TMEndSession            relinquish a 1-Wire network port
TMExtendedReadPage      read a device-CRC validated page (regular or status)
TMExtendedStartSession  request a 1-Wire network port
TMFamilySearchSetup     set the search to find a family type on the next search
TMFirstAlarm            find the first alarming device on a 1-Wire network
TMFirstFile             get first file name in the current directory
TMFirst                 find the first device on a 1-Wire network
TMFormat                format 1-Wire device for file structure
TMGetAdapterSpec        returns 1-Wire adapter feature-set information
TMGetFamilySpec         gets 1-Wire device description based on family code
TMGetTypeVersion        power down a port (not always applicable)
TMNextAlarm             find the next alarming device on a 1-Wire network
TMNextFile              get next file name in the current directory
TMNext                  find the next device on a 1-Wire network
TMOneWireCom            set the 1-Wire communication speed
TMOneWireLevel          set the 1-Wire communication level
TMOpenFile              open a file for reading
TMOverAccess            select the current device and switch it into overdrive speed
TMProgramBlock          program a block of bytes in an EPROM 1-Wire device
TMProgramByte           program a byte in an EPROM 1-Wire device
TMProgramPulse          send a programming pulse to 1-Wire network
TMReadDefaultPort       reads the default 1-Wire port and type from the system registry
TMReadFile              read an opened file
TMReadPacket            read a CRC16 validated packet
TMReNameFile            rename a file
TMRom                   read the current device ROM or set the ROM for the next select
TMSearch                performs general search for 1-Wire devices
TMSetup                 verify the port exists
TMSkipFamily            skip the current device family type on the next search
TMStartSession          (old format) request a 1-Wire network port
TMStrongAccess          verify that the current device is still there and select
TMStrongAlarmAccess     same as TMStrongAccess except it must be alarming
TMTerminateAddFile      terminate an ‘AddFile’ with Universal Data Packets
TMTouchBit              one bit communication to 1-Wire network
TMTouchByte             one byte communication to 1-Wire network
TMTouchReset            reset 1-Wire devices on 1-Wire network
TMValidSession          check to see if the 1-Wire network port session is still valid
TMWriteAddFile          append or alter an ‘AddFile’ on an EPROM 1-Wire device
TMWriteFile             write a created file
TMWritePacket           write a CRC16 validated packet
See Also



remend

EM Project: tmex2
REM Created: 10/30/2006 1:27:00 AM
REM
REM ***** Main Source File *****
REM
#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18

global ibfs32 as integer
global memID as integer
global dwptr1, dwptr2 as dword
global version$ as string
global PortNum, PortType, wFirst, wNext, wROM , wSetup, wEndSession as word
global session_handle as dword
global state_buffer as dword
global ReturnPortType as dword

dim TMEX(19) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"

PortNum = 1
PortType = 1
wFirst = 0
wNext = 0
wROM = 0
wSetup = 0
wEndSession = 0
session_handle = 0
ibfs32 = 1
state_buffer = 15360

do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32
print "Requesting session on port "; PortNum
print ""
print "Getting required info"

`(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function.
`(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent.
`(-3)   NO_SUCH_FUNCTION - Function not supported.
`(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter
`(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire
`(-200)  INVALID_SESSION - session not valid
`(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required

remstart    TMReadDefaultPort should be called first. The parameters passed to it
            are addresses to store information. That information is required by
            TMExtendedStartSession.
remend

dwptr1 = make memory(2)
dwptr2 = make memory(2)
ReturnPortType =call dll(ibfs32, TMEX(TMReadDefaultPort), dwptr1, dwptr2)
rem I commented the following two lines out in my code because I do not
rem have the hardware installed, and it returns garbage to me. Try it, and
rem tell me if it works for you.
rem PortNum = *dwptr1
rem PortType = *dwptr2
delete memory dwptr1
delete memory dwptr2
session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)
rem <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
wSetup =call dll(ibfs32, TMEX(TMSetup) ,session_handle )
' wFirst = call dll(ibfs32,TMEX(TMFirst),session_handle, state_buffer)
' wNext = call dll(ibfs32,TMEX(TMNext),session_handle , state_buffer)
' wROM = call dll(ibfs32,tmex(TMRom),session_handle, state_buffer )
wEndSession = call dll(ibfs32, TMEX(TMEndSession), session_handle )

print "Handle returned : " + hex$(session_handle ) + "h"
print "session_handle  = "; session_handle
print "ReturnPorttype = "; ReturnPortType
print "endsession ="; wEndSession
print "setup = "; wSetup
print "mnext = "; wNext
print "mfirst = "; wFirst
print "mrom = "; wROM

if ExtendedStartSession > 0
    rem session valid...continue.
    wTemp = call dll(ibfs32, TMEX(TMEndSession),session_handle )
    if wTemp  > 0 and wTemp < 32768
        print "Session terminated."
    else
        print "Session was NOT terminated."
    endif
else
    if session_handle  = 0
        print "Port not available."
    endif
    if session_handle  < 0
        print "Driver not available."
    endif
endif
delete dll ibfs32

wait key
end
remstart
`//--------------------------------------------------------------------------
`// Load the TMEX driver and get a pointers to the functions
`//
`short LoadTMEX(void)
`{
`   // attempt to get a SHandle to the TMEX driver
`   hInst = LoadLibrary("IBFS32.DLL");```

`   // get a pointer to the function needed by loopit32
`   if (hInst != NULL)
`   {
`      ExtendedStartSession = GetProcAddress(hInst,"TMExtendedStartSession");
`      TMEndSession = GetProcAddress(hInst,"TMEndSession");
`      TMSetup = GetProcAddress(hInst,"TMSetup");
`      TMNext = GetProcAddress(hInst,"TMNext");
`      TMRom = GetProcAddress(hInst,"TMRom");
`      Get_Version = GetProcAddress(hInst,"Get_Version");
`      TMGetTypeVersion = GetProcAddress(hInst,"TMGetTypeVersion");
`     TMReadDefaultPort = GetProcAddress(hInst, "TMReadDefaultPort");`

`      // check to make sure got ALL of the functions needed
`      if ((ExtendedStartSession == NULL) || (TMEndSession == NULL) ||
`         (TMSetup == NULL) || (TMNext == NULL) ||
`         (TMRom == NULL) || (Get_Version == NULL) ||
`         (TMGetTypeVersion == NULL) || (TMReadDefaultPort == NULL))
`      {
`         printf("ERROR, could not get a pointer to all"
`                " of the TMEX functions neededn");
`         return 0;
`      }
`      // get a function pointer that returns a long
`      TMExtendedStartSession = (long (far pascal *)(short,short,void far *))ExtendedStartSession;
`      return 1;
`   }
`   else
`      return 0;





************************************************************
TMExtendedStartSession  request a 1-Wire network port
session_handle = TMExtendedStartSession(PortNum,PortType,NULL);


TMStartSession          (old format) request a 1-Wire network port
session_handle = TMStartSession(port);

TMValidSession          check to see if the 1-Wire network port session is still valid
if (TMValidSession(session_handle) == 1)

TMEndSession            relinquish a 1-Wire network port
if (TMEndSession(session_handle) == 0)

File Operations

TMFirstFile             get first file name in the current directory
result = TMFirstFile(session_handle,state_buffer,&fentry);

if (result < 0)
{
    /* FILE_OPERATIONS error */
    ...
}
else
{
    /* success, first file is in fentry */
    sprintf(buf,"First file is %.4s.%03d",
                        fentry.name,fentry.extension);
    ...
}

TMNextFile              get next file name in the current directory
result = TMFirstFile(session_handle,state_buffer,&fentry)

/* loop while files are being found */
while(result > 0)
{
   /* get the file information */
   sprintf(buf,"File is %.4s.%03d",
                        fentry.name,fentry.extension);
   ...

   /* get the next file */
   result = TMNextFile(session_handle,state_buffer,&fentry);
}

TMOpenFile              open a file for reading
result = TMFirstFile(session_handle,state_buffer,&fentry);

/* make sure a file was found that was not a directory reference */
if ((result > 0) && (fentry.extension != 0x7F))
{
   /* try and open the file that was just found */
   file_handle = TMOpenFile(session_handle,state_buffer,&fentry);
   if (file_handle >= 0)
   {
       /* file is opened, ready to read using file_handle */
       ...
   }
   else
   {
       /* error getting file handle */
       ...
   }
}
else
{
    /* error getting first file or file entry is a directory */
    ...
}

OR

fentry.name[0] = 'D';
fentry.name[1] = 'E';
fentry.name[2] = 'M';
fentry.name[3] = 'O';
fentry.extension = 0;

/* try to open the file DEMO.000 */
file_handle = TMOpenFile(session_handle,state_buffer,&fentry);

if (file_handle >= 0)
{
   /* file is opened, ready to read */
   ...
}
else
{
   /* error opening file */
   ...
}

/* close the opened file with a call to TMCloseFile */
...

/* close the session with a call to TMEndSession */
...

TMCreateFile            create a file for writing

TMCloseFile             close an opened/created file

TMReadFile              read an opened file

TMWriteFile             write a created file

TMDeleteFile            delete a file

TMFormat                format 1-Wire device for file structure

TMAttribute             change file/directory attributes

TMReNameFile            rename a file

TMChangeDirectory       read or change the current directory

TMDirectoryMR           Make or Remove a sub-directory

TMCreateProgramJob      ready the write buffer for EPROM programming

TMDoProgramJob          do the EPROM programming

TMWriteAddFile          append or alter an ‘AddFile’ on an EPROM 1-Wire device

TMTerminateAddFile      terminate an ‘AddFile’ with Universal Data Packets

TMGetFamilySpec         gets 1-Wire device description based on family code

Get_Version             read the version string of the main TMEX driver

Transport

TMReadPacket            read a CRC16 validated packet

TMWritePacket           write a CRC16 validated packet

TMBlockIO               transfer a block to the 1-Wire network

TMExtendedReadPage      read a device-CRC validated page (regular or status)

TMProgramByte           program a byte in an EPROM 1-Wire device

TMProgramBlock          program a block of bytes in an EPROM 1-Wire device

TMCRC                   provides 8-bit or 16-bit CRC calculation

Network


TMFirst                 find the first device on a 1-Wire network

TMNext                  find the next device on a 1-Wire network

TMAccess                select the current device

TMStrongAccess          verify that the current device is still there and select

TMStrongAlarmAccess     same as TMStrongAccess except it must be alarming

TMOverAccess            select the current device and switch it into overdrive speed

TMRom                   read the current device ROM or set the ROM for the next select

TMFirstAlarm            find the first alarming device on a 1-Wire network

TMNextAlarm             find the next alarming device on a 1-Wire network

TMFamilySearchSetup     set the search to find a family type on the next search

TMSkipFamily            skip the current device family type on the next search

TMAutoOverDrive         automatically get in and out of overdrive speeds

TMSearch                performs general search for 1-Wire devices

Hardware Specific

TMSetup                 verify the port exists

TMTouchByte             one byte communication to 1-Wire network

TMTouchReset            reset 1-Wire devices on 1-Wire network

TMTouchBit              one bit communication to 1-Wire network

TMProgramPulse          send a programming pulse to 1-Wire network

TMOneWireLevel          set the 1-Wire communication level

TMOneWireCom            set the 1-Wire communication speed

TMClose                 power down a port (not always applicable)

TMGetTypeVersion        read the version string of the hardware specific driver

TMBlockStream           transfer a stream to the 1-Wire network

TMReadDefaultPort       reads the default 1-Wire port and type from the system registry

TMGetAdapterSpec        returns 1-Wire adapter feature-set information

Get_Version             read the version string of the main TMEX driver
TMAccess                select the current device
TMAttribute             change file/directory attributes
TMAutoOverDrive         automatically get in and out of overdrive speeds
TMBlockIO               transfer a block to the 1-Wire network
TMBlockStream           transfer a stream to the 1-Wire network.
TMChangeDirectory       read or change the current directory
TMCloseFile             close an opened/created file
TMClose                 power down a port (not always applicable)
TMCRC                   provides 8-bit or 16-bit CRC calculation
TMCreateFile            create a file for writing
TMCreateProgramJob      ready the write buffer for EPROM programming
TMDeleteFile            delete a file
TMDirectoryMR           Make or Remove a sub-directory
TMDoProgramJob          do the EPROM programming
TMEndSession            relinquish a 1-Wire network port
TMExtendedReadPage      read a device-CRC validated page (regular or status)
TMExtendedStartSession  request a 1-Wire network port
TMFamilySearchSetup     set the search to find a family type on the next search
TMFirstAlarm            find the first alarming device on a 1-Wire network
TMFirstFile             get first file name in the current directory
TMFirst                 find the first device on a 1-Wire network
TMFormat                format 1-Wire device for file structure
TMGetAdapterSpec        returns 1-Wire adapter feature-set information
TMGetFamilySpec         gets 1-Wire device description based on family code
TMGetTypeVersion        power down a port (not always applicable)
TMNextAlarm             find the next alarming device on a 1-Wire network
TMNextFile              get next file name in the current directory
TMNext                  find the next device on a 1-Wire network
TMOneWireCom            set the 1-Wire communication speed
TMOneWireLevel          set the 1-Wire communication level
TMOpenFile              open a file for reading
TMOverAccess            select the current device and switch it into overdrive speed
TMProgramBlock          program a block of bytes in an EPROM 1-Wire device
TMProgramByte           program a byte in an EPROM 1-Wire device
TMProgramPulse          send a programming pulse to 1-Wire network
TMReadDefaultPort       reads the default 1-Wire port and type from the system registry
TMReadFile              read an opened file
TMReadPacket            read a CRC16 validated packet
TMReNameFile            rename a file
TMRom                   read the current device ROM or set the ROM for the next select
TMSearch                performs general search for 1-Wire devices
TMSetup                 verify the port exists
TMSkipFamily            skip the current device family type on the next search
TMStartSession          (old format) request a 1-Wire network port
TMStrongAccess          verify that the current device is still there and select
TMStrongAlarmAccess     same as TMStrongAccess except it must be alarming
TMTerminateAddFile      terminate an ‘AddFile’ with Universal Data Packets
TMTouchBit              one bit communication to 1-Wire network
TMTouchByte             one byte communication to 1-Wire network
TMTouchReset            reset 1-Wire devices on 1-Wire network
TMValidSession          check to see if the 1-Wire network port session is still valid
TMWriteAddFile          append or alter an ‘AddFile’ on an EPROM 1-Wire device
TMWriteFile             write a created file
TMWritePacket           write a CRC16 validated packet
See Also



remend

Rem ***** Main Source File *****
rEM Project: tmex2
REM Created: 10/30/2006 1:27:00 AM
REM
REM ***** Main Source File *****
REM
#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18

global ibfs32 as integer
global memID as integer
global dwptr1, dwptr2 as dword
global version$ as string
global PortNum, PortType, wFirst, wNext, wROM , wSetup, wEndSession as word
global session_handle as dword
global state_buffer as dword
global ReturnPortType as dword

dim TMEX(19) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"

PortNum = 1
PortType = 1
wFirst = 0
wNext = 0
wROM = 0
wSetup = 0
wEndSession = 0
session_handle = 0
ibfs32 = 1
state_buffer = 15360

do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32
print "Requesting session on port "; PortNum
print ""
print "Getting required info"

`(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function.
`(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent.
`(-3)   NO_SUCH_FUNCTION - Function not supported.
`(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter
`(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire
`(-200)  INVALID_SESSION - session not valid
`(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required

remstart    TMReadDefaultPort should be called first. The parameters passed to it
            are addresses to store information. That information is required by
            TMExtendedStartSession.
remend

dwptr1 = make memory(2)
dwptr2 = make memory(2)
dwptr3 = make memory(2)
state_buffer =*dwptr3
ReturnPortType =call dll(ibfs32, TMEX(TMReadDefaultPort), dwptr1, dwptr2)
rem I commented the following two lines out in my code because I do not
rem have the hardware installed, and it returns garbage to me. Try it, and
rem tell me if it works for you.
`1           Older DS9097E-type serial port adapters
`2           Parallel port adapters
`5           Standard DS90907U-type serial port adapters
`6           USB port adapters

PortNum = *dwptr1
PortType = *dwptr2
print portnum
print porttype
delete memory dwptr1
delete memory dwptr2
delete memory dwptr3
`/* search for the first alarming device */

session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)



rem <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


wSetup =call dll(ibfs32, TMEX(TMSetup),session_handle)
`0 => Setup failed.
`1 => Setup ok.
`2 => Setup ok but 1-Wire network shorted.
`3 => 1-Wire network does not exist.
`4 => TMSetup not supported

result = call dll(ibfs32,TMEX(TMSearch),session_handle, state_buffer, 1, 1, 0xF0)
print "TMsearch =";result

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
`wFirst = call dll(ibfs32,TMEX(TMFirst),session_handle, state_buffer)
`dwptr1 = make memory(2)
`dwptr2 = make memory(2)
`wFirst = call dll(ibfs32,TMEX(TMFirst),session_handle, state_buffer,dwptr1,dwprt2)
`fr=*dwprt1
`se=*dwprt2
`delete memory dwptr1
`delete memory dwptr2
rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

`/* setup the search to find family type 0x0C on the next search */
result =call dll(ibfs32,TMEX(TMFamilySearchSetup),session_handle, state_buffer, 0x0C);
print "familusearchsetup=";result

 `wNext = call dll(ibfs32,TMEX(TMNext),session_handle , state_buffer)
`wNext = call dll(ibfs32,TMEX(TMNext),session_handle , state_buffer)
 `wROM = call dll(ibfs32,tmex(TMRom),session_handle, state_buffer )
wEndSession = call dll(ibfs32, TMEX(TMEndSession), session_handle )

print "Handle returned : " + hex$(session_handle ) + "h"
print "session_handle  = "; session_handle
print "ReturnPorttype = "; ReturnPortType
print "endsession ="; wEndSession
print "setup = "; wSetup
print "mnext = "; wNext
print "mfirst = "; wFirst
print "mrom = "; wROM
print "error codes"
print "(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function."
print "(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent."
print "(-3)   NO_SUCH_FUNCTION - Function not supported."
print "(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter"
print "(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire"
print "(-200)  INVALID_SESSION - session not valid"
print "(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required"
print "1  port Older DS9097E-type serial port adapters"
print "2  port Parallel port adapters"
print "5  port Standard DS90907U-type serial port adapters"
print "6  port USB port adapters << after this one >>"
print "0 => Setup failed."
print "1 => Setup ok."
print "2 => Setup ok but 1-Wire network shorted."
print "3 => 1-Wire network does not exist."
print "4 => TMSetup not supported"

if ExtendedStartSession > 0
    rem session valid...continue.
    wTemp = call dll(ibfs32, TMEX(TMEndSession),session_handle )
    if wTemp  > 0 and wTemp < 32768
        print "Session terminated."
    else
        print "Session was NOT terminated."
    endif
else
    if session_handle  = 0
        print "Port not available."
    endif
    if session_handle  < 0
        print "Driver not available."
    endif
endif
delete dll ibfs32

wait key
end

EXECUTE FILE "SetPrt32.exe","","C:Program FilesDallas Semiconductor1-Wire Drivers V4.00 Beta 3",1

Rem ***** Main Source File *****
rEM Project: tmex2
REM Created: 10/30/2006 1:27:00 AM
REM
REM ***** Main Source File *****
REM
set display mode 1024,640,32
#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18
#constant TMGetAdapterSpec       =19
#constant TMSearch               =20
#constant TMFamilySearchSetup    =21
#constant TMPortSetup            =22

global ibfs32 as integer
global memID as integer
global dwptr1, dwptr2, dwptr3 as dword
global version$ as string
global PortNum, PortType, wFirst, wNext, wROM , wSetup, wEndSession portsetup as word
global session_handle as dword
global state_buffer as dword
global ReturnPortType as dword
global ID_buf as dword
global GetAdapterSpec as dword

dim TMEX(23) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"
TMEX(TMGetAdapterSpec) ="TMGetAdapterSpec" :rem usb90
TMEX(TMSearch)= "TMSearch"
TMEX(TMFamilySearchSetup) = "TMFamilySearchSetup" : rem usb90
TMEX(TMPortSetup) = "TMPortSetup" : rem usb90

PortNum = 1
PortType = 1
wFirst = 0
wNext = 0
wROM = 0
wSetup = 0
wEndSession = 0
session_handle = 0
ibfs32 = 1
state_buffer = 15360
ID_buf = 100

do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop

load dll "ibfs32.dll", ibfs32
load dll "ib90usb.dll",ibfs32+1
print "DLL loaded as "; ibfs32
print "Requesting session on port "; PortNum
print ""
print "Getting required info"
EXECUTE FILE "SetPrt32.exe","","C:\Program Files\Dallas Semiconductor\1-Wire Drivers V4.00 Beta 3\",1
`(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function.
`(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent.
`(-3)   NO_SUCH_FUNCTION - Function not supported.
`(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter
`(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire
`(-200)  INVALID_SESSION - session not valid
`(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required

remstart    TMReadDefaultPort should be called first. The parameters passed to it
            are addresses to store information. That information is required by
            TMExtendedStartSession.
remend
dwptr1 = make memory(1) : rem PortNum
dwptr2 = make memory(1) : rem PortType
dwptr3 = make memory(15360) : rem state_buffer
dwptr4 = make memory(100) : rem ID_buf
dwptr5 = make memory(1) : rem PortNum
dwptr6 = make memory(1) : rem PortType

state_buffer =*dwptr3
print "before";dwptr1;"  ";dwptr2
rem call ok
ReturnPortType =call dll(ibfs32, TMEX(TMReadDefaultPort), dwptr1, dwptr2)
`ReturnPortType1 =call dll(ibfs32+1, TMEX(TMReadDefaultPort), dwptr5, dwptr6)

rem I commented the following two lines out in my code because I do not
rem have the hardware installed, and it returns garbage to me. Try it, and
rem tell me if it works for you.
`1           Older DS9097E-type serial port adapters
`2           Parallel port adapters
`5           Standard DS90907U-type serial port adapters
`6           USB port adapters
PortSetup = call dll(ibfs32+1,TMEX(TMPortSetup),session_handle1,dwptr1, dwptr2, NULL)
print "port set up = ";portsetup
PortNum = *dwptr1
PortType = *dwptr2
state_buffer = *dwptr3
ID_buf = *dwptr4
print portnum;"  ";hex$(portnum)+"h"
print porttype;"  ";hex$(porttype)+"h"
print ID_buf;"  ";hex$(ID_buf)+"h"
delete memory dwptr1
delete memory dwptr2
delete memory dwptr3
delete memory dwprt4

`/* search for the first alarming device */
rem call ok 161h
session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)
session_handle1 = call dll(ibfs32+1, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)

rem port set up

rem find version of device call ok
typver = call dll (ibfs32,TMEX(TMGetTypeVersion),1,ID_buf)
`typver1 = call dll (ibfs32+1,TMEX(TMGetTypeVersion),1,ID_buf)
print "Get type version = ";typver

GetAdapterSpec= call dll(ibfs32,TMEX(TMGetAdapterSpec),session_handle1,dwprt1, dwprt2)
print "get Adapter Spec ibfs32 =";hex$(GetAdapterSpec);"h ";GetAdapterSpec

rem <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


rem call ok returns a 1
wSetup =call dll(ibfs32, TMEX(TMSetup),session_handle)
wSetup1 =call dll(ibfs32+1, TMEX(TMSetup),session_handle1)

`0 => Setup failed.
`1 => Setup ok.
`2 => Setup ok but 1-Wire network shorted.
`3 => 1-Wire network does not exist.
`4 => TMSetup not supported
rem call ok but no results return -200
result = call dll(ibfs32+1,TMEX(TMSearch),session_handle1, state_buffer, 1, 1, 0xC0)
print "TMsearch =";result

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
rem no go bad call -200
wFirst = call dll(ibfs32+1,TMEX(TMFirst),session_handle1, state_buffer)

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

`/* setup the search to find family type 0x0C on the next search */
result =call dll(ibfs32,TMEX(TMFamilySearchSetup),session_handle1, state_buffer, 0xF0);
print "family search setup = ";result

` wNext = call dll(ibfs32+1,TMEX(TMNext),session_handle1 , state_buffer)

wNext = call dll(ibfs32+1,TMEX(TMNext),session_handle1 , state_buffer)

`wROM = call dll(ibfs32,tmex(TMRom),session_handle, state_buffer )
rem last close session
wEndSession = call dll(ibfs32, TMEX(TMEndSession), session_handle )
wEndSession1 = call dll(ibfs32+1, TMEX(TMEndSession), session_handle1 )

print "Session Handle returned : " + hex$(session_handle ) + "h dec  = "; session_handle
print "Session Handle returned usb : " + hex$(session_handle1 ) + "h dec  = "; session_handle1

print "state_buffer = ";state_buffer;"  ";hex$(state_buffer)+"h"
print "ReturnPortType = "; ReturnPortType;
print "endsession ="; wEndSession
print "setup = "; wSetup;"   setup1 usb = ";setup1
print "mnext = "; wNext
print "mfirst = "; wFirst
print "mrom = "; wROM
print "error codes"
`print "(-1)   PORT_NOT_INITIALIZED - Specified 1-Wire network has not been initialized with a call to the TMSetup function."
`print "(-2)   PORT_NOT_EXIST - Specified 1-Wire network nonexistent."
`print "(-3)   NO_SUCH_FUNCTION - Function not supported."
`print "(-12)  BCOM_FAILURE – Failure to communicate with hardware adapter"
`print "(-13)  BCOM_EVENT – An unsolicited event occurred on the 1-Wire"
print "(-200)  INVALID_SESSION - session not valid"
print "(-201)  HS_NOT_FOUND - Hardware_Specific driver not found and is required"
print "1  port Older DS9097E-type serial port adapters"
print "2  port Parallel port adapters"
print "5  port Standard DS90907U-type serial port adapters"
print "6  port USB port adapters << after this one >>"
print "0 => Setup failed."
print "1 => Setup ok."
print "2 => Setup ok but 1-Wire network shorted."
print "3 => 1-Wire network does not exist."
print "4 => TMSetup not supported"

if ExtendedStartSession > 0
    rem session valid...continue.
    wTemp = call dll(ibfs32, TMEX(TMEndSession),session_handle )
    if wTemp  > 0 and wTemp < 32768
        print "Session terminated."
    else
        print "Session was NOT terminated."
    endif
else
    if session_handle  = 0
        print "Port not available."
    endif
    if session_handle  < 0
        print "Driver not available."
    endif
endif
delete dll ibfs32

wait key
end

REM Project: tmex2
REM Created: 10/30/2006 1:27:00 AM
REM
REM ***** Main Source File *****
REM
#constant NULL = 0
#constant NULLSTR = ""
#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18

global ibfs32 as integer = -1
global memID as integer
global iTemp as integer
global iEndSession as integer
global iSetup as integer
global iFirst as integer
global iNext as integer
global iROM as integer
global iTotalDevices as integer
global dwptr1 as dword
global dwptr2 as dword
global version$ as string
global PortNum as word
global PortType as word
global wTemp as word
global session_handle as dword
global state_buffer as dword
global ReturnPortType as dword

dim TMEX(19) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"

dim TMEXSetupReturn(12) as string

TMEXSetupReturn(0) = "Setup failed."
TMEXSetupReturn(1) = "Setup ok."
TMEXSetupReturn(2) = "Setup ok, but 1-Wire network shorted."
TMEXSetupReturn(3) = "1-Wire network does not exist."
TMEXSetupReturn(4) = "TMSetup not supported."
TMEXSetupReturn(5) = "Port not initialized by call to TMSetup."
TMEXSetupReturn(6) = "1-Wire network does not exist."
TMEXSetupReturn(7) = "Function not supported."
TMEXSetupReturn(8) = "Failure to communicate with hardware badapter."
TMEXSetupReturn(9) = "Unsolicited event on 1-Wire network."
TMEXSetupReturn(10) = "Session not valid."
TMEXSetupReturn(11) = "Required hardware driver not found."

dim ROMBUFFER(8) as word

PortNum = 0
PortType = 0
iFirst = 0
iNext = 0
iROM = 0
iSetup = 0
iEndSession = 0
iTotalDevices = 0
session_handle = 0
ibfs32 = 1

do
    if dll exist(ibfs32) = 0 then exit
    inc ibfs32
loop


load dll "ibfs32.dll", ibfs32
print "DLL loaded as "; ibfs32

dwptr1 = make memory(2)
dwptr2 = make memory(2)
ReturnPortType = call dll(ibfs32, TMEX(TMReadDefaultPort), dwptr1, dwptr2)
PortNum = *dwptr1
PortType = *dwptr2

print "Requesting session on port "; PortNum
print ""
print "Getting required info"
print "Default port = " + str$(int(PortNum)) + "/Type = " + str$(int(PortType))

delete memory dwptr1
delete memory dwptr2

remstart
    I think it is time to discuss the OSI 7 layer model for networking. Here is
    the wiki on that: http://en.wikipedia.org/wiki/OSI_model

    LAYER 1 = Weather Station sensors.
    LAYER 2 = Physical 1-Wire network up to and partially including the USB adapter.
    LAYER 3/4 = Most of this resides in the iButton devices, and the USB driver.
    LAYER 5 = This is ibfs32.dll, and its interface to us, and to the other drivers.
    LAYER 6/7 = This program and whatever you use to display the data.

    This is a rough idea of how your application fits into the 7 layer model. There
    is some overlap, and alot of the devices in the iButton family service multiple
    layers. I am mentioning it because we are only going to address the session layer,
    so it should not be necessary to query other dlls for communications.
remend

session_handle = call dll(ibfs32, TMEX(TMExtendedStartSession), PortNum, PortType, NULL)
print "Session handle  = "; session_handle

rem This requests a startup of the network.
wTemp = call dll(ibfs32, TMEX(TMSetup), session_handle)
iSetup = MakeWordIntValue(wTemp)
if iSetup > -1 and iSetup < 5
    print TMEXSetupReturn(iSetup)
else
    select iSetup
        case -1
            print TMEXSetupReturn(5)
            endcase
        case -2
            print TMEXSetupReturn(6)
            endcase
        case -3
            print TMEXSetupReturn(7)
            endcase
        case -12
            print TMEXSetupReturn(8)
            endcase
        case -13
            print TMEXSetupReturn(9)
            endcase
        case -200
            print TMEXSetupReturn(10)
            endcase
        case -201
            print TMEXSetupReturn(11)
            endcase
        case default
            print "Setup returned "; iSetup
            endcase
    endselect
endif

remstart Here, we are enumerating the devices on the network. There is still
         alot of code to determine the type, etc. Also, we will create some
         UDTs for your sensors, which will make things nice and tidy later,
         when you want to display the information in unique ways using DBPro.
remend

dwptr3 = make memory(15360)
wTemp = call dll(ibfs32, TMEX(TMFirst), session_handle, dwptr3)
iFirst = MakeWordIntValue(wTemp)
iNext = 0
iTotalDevices = iFirst
if iTotalDevices > 0
    while iNext > -1
        wTemp = call dll(ibfs32, TMEX(TMNext),session_handle , dwptr3)
        iNext = MakeWordIntValue(wTemp)
        if iNext > 0
            inc iTotalDevices
        endif
    endwhile
else
    iTotalDevices = 0
endif

remstart The TMRom function call shouldn't be called unless you have found a device,
         and then...it is a little convoluted. You are on your own until I get my
         USB adapter, and iButtons.
remend

print "Found " + str$(iTotalDevices) + " device(s) on the network."
print "Next device = "; iNext
print "First device = "; iFirst
print "ROM = "; iROM

if session_handle > 0
    wTemp = call dll(ibfs32, TMEX(TMEndSession), session_handle)
    iEndSession = MakeWordIntValue(wTemp)
    if iEndSession  > 0
        print "Session terminated."
    else
        if iEndSession < 0
            print "Session was NOT terminated."
        else
            print "Invalid session handle."
        endif
    endif
else
    if session_handle  = 0
        print "Port not available."
    endif
    if session_handle  < 0
        print "Driver not available."
    endif
endif
print "endsession = "; iEndSession

delete dll ibfs32
delete memory dwptr3
wait key
end

remstart    I put this function here because the network often returns two byte
            values. In C, a short integer is two bytes, and it maps well to the
            data returned by the dll. DBPro is a 32bit system, and it has no
            two byte equivalent of the short integer. Sometimes, the dll wants
            to return a value that is less than zero. This function will take
            a word input, and give a signed 4 byte integer as the return. In
            general, it is a very useful type of routine. This version only
            does what it says....it turns a word into an integer.
remend

function MakeWordIntValue(wordvalue as word)
    intValue as integer

    if wordvalue && 0x8000              rem This checks for a sign bit.
        intValue = wordvalue - 65536    rem Quick and dirty, but accurate...100%.
    else
        intValue = wordvalue
    endif
endfunction intValue

[Estacion]
Temperatura=10A7411B000800DCNTemperature TAI8515
ContViento=1D031E01000000CBNWind Speed TAI8515
DirVIento=20C4D000000000F2NWind Dir. TAI8515
OffsetViento=3

REM Project: iButton
REM Created: 11/6/2006 11:34:11 PM
REM
REM ***** Main Source File *****
REM 1-Wire Network Communications

#constant TRUE = 1
#constant FALSE = 0
#constant NULL = 0
#constant NULLSTR = ""

rem Here are some limits for things related to TMEX API and iButton devices.

#constant MAX_STATE_BUFFER      = 15360
#constant NO_EPROM_STATE_BUFFER = 5120

remstart
            These are indices for the function call names in the TMEX API dll,
            TMEXDLL.dll The string array TMEX contains the strings.
remend

#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMNext                 = 5
#constant TMFirst                = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18

remstart
            Returns from the TMEX API File operations group. Use for return values.
            The string array, TMEXFileIOReturn has the error text.
remend

#constant NO_DEVICE                 = -1
#constant WRONG_TYPE                = -2
#constant FILE_READ_ERR             = -3
#constant BUFFER_TOO_SMALL          = -4
#constant HANDLE_NOT_AVAIL          = -5
#constant FILE_NOT_FOUND            = -6
#constant REPEAT_FILE               = -7
#constant HANDLE_NOT_USED           = -8
#constant FILE_WRITE_ONLY           = -9
#constant OUT_OF_SPACE              = -10
#constant FILE_WRITE_ERR            = -11
#constant FILE_READ_ONLY            = -12
#constant FUNC_NOT_SUP              = -13
#constant BAD_FILENAME              = -14
#constant CANT_DEL_READ_ONLY        = -15
#constant HANDLE_NOT_EXIST          = -16
#constant ONE_WIRE_PORT_ERROR       = -17
#constant INVALID_DIRECTORY         = -18
#constant DIRECTORY_NOT_EMPTY       = -19
#constant UNABLE_TO_CREATE_DIR      = -20
#constant NO_PROGRAM_JOB            = -21
#constant PROGRAM_WRITE_PROTECT     = -22
#constant NON_PROGRAM_PARTS         = -23
#constant ADDFILE_TERMINATED        = -24
#constant INVALID_SESSION           = -200
#constant HS_NOT_FOUND              = -201


remstart
                Start of global variables.
remend

global jinzai_img as integer
global jinzai_x, jinzai_y, info_y as integer
global lasttime as dword = 0
global nowtime as dword = 0
global timesegment as dword = 0
global milliseconds as integer = 0
global seconds as integer = 0
global tick as boolean = FALSE
global minutes as integer = 0
global hours as integer = 0

global TMEXDLL as integer = -1
global iTemp as integer = 0
global iPortNum as integer = 0
global iPortType as integer = 0
global iEndSession as integer = 0
global iSetup as integer = 0
global iTotalDevices as integer = 0
global iSessionHandle as integer = 0

global dbWordPtr1 as dword = 0
global dbWordPtr2 as dword = 0
global dbStateBufferPtr as dword = 0
global dwTemp as dword

global wTemp as word = 0
global wPortNum as word = 0
global wPortType as word = 0

global versionStr as string = NULLSTR
global timeStr as string

dim TMEX(19) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMNext) = "TMNext"
TMEX(TMFirst) = "TMFirst"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"

dim TMEXSetupReturn(12) as string

TMEXSetupReturn(0) = "Setup failed."
TMEXSetupReturn(1) = "Setup ok."
TMEXSetupReturn(2) = "Setup ok, but 1-Wire network shorted."
TMEXSetupReturn(3) = "1-Wire network does not exist."
TMEXSetupReturn(4) = "TMSetup not supported."
TMEXSetupReturn(5) = "Port not initialized by call to TMSetup."
TMEXSetupReturn(6) = "1-Wire network does not exist."
TMEXSetupReturn(7) = "Function not supported."
TMEXSetupReturn(8) = "Failure to communicate with hardware adapter."
TMEXSetupReturn(9) = "Unsolicited event on 1-Wire network."
TMEXSetupReturn(10) = "Session not valid."
TMEXSetupReturn(11) = "Required hardware driver not found."

dim TMEXFileIOReturn(26) as string

TMEXFileIOReturn(0) = "Device not found."
TMEXFileIOReturn(1) = "Operation not suuported."
TMEXFileIOReturn(2) = "Read error."
TMEXFileIOReturn(3) = "Read buffer overrun."
TMEXFileIOReturn(4) = "Handle not available."
TMEXFileIOReturn(5) = "File not found."
TMEXFileIOReturn(6) = "File already exists."
TMEXFileIOReturn(7) = "Handle does not reference a file."
TMEXFileIOReturn(8) = "Attempt to read a write only file."
TMEXFileIOReturn(9) = "Out of space to write."
TMEXFileIOReturn(10) = "Device not found."
TMEXFileIOReturn(11) = "Write error. Possible unit malfunction."
TMEXFileIOReturn(12) = "Attempt to write a read only handle."
TMEXFileIOReturn(13) = "Function not supported."
TMEXFileIOReturn(14) = "Illegal name."
TMEXFileIOReturn(15) = "Cannot delete read only file."
TMEXFileIOReturn(16) = "1-Wire network error. Check setup."
TMEXFileIOReturn(17) = "Invalid directory."
TMEXFileIOReturn(18) = "Directory not empty."
TMEXFileIOReturn(19) = "Cannot exceed 10 directories in depth."
TMEXFileIOReturn(20) = "No program job started."
TMEXFileIOReturn(21) = "Program is write protected."
TMEXFileIOReturn(22) = "Non-EPROM parts detected during attempt to program."
TMEXFileIOReturn(23) = "Cannot append to terminated AddFile."
TMEXFileIOReturn(24) = "Session invalid."
TMEXFileIOReturn(25) = "Required hardware-specific driver not found."

dim ROMBUFFER(8) as word

remstart
        Here is a sort of laundry list of things about how DBPro and the
        1-Wire SDK do not marry up automatically, and what I do in each case.

        1. The TMEX API returns short integers in most cases. A notable exception
           is TMEXExtendedStartSession, which returns a long. That is the direct
           equivalent of DBPro's integer type. Nothing is done in that case, and
           iSessionHandle is used as is. DBPro will return a DWORD type, which
           has the unpleasant side-effect of destroying the sign of short integer
           returns from dlls if you use the return as a DWORD, or even as an
           integer. The function jzMakeWordIntValue is used when the TMEX API is
           trying to return a short integer to DBPro. It preserves the sign of
           the original dll return.
        2. Strings are C-style null terminated ASCII character arrays. I have
           provided translation to and from DBPro strings.
        3. Structures are passed via memory blocks, and each structure has
           routines for transport in both directions.
remend

rem ************************* START OF PROGRAM EXECUTION **********************

iPortNum = -1
iPortType = -1
iFirst = -1
iNext = -1
iROM = -1
iSetup = 0
iEndSession = 0
iTotalDevices = 0
iSessionHandle = -1
TMEXDLL = 0
set window on
set window layout 1, 1, 1
sync on
sync rate 0
backdrop off
set text transparent
set text font "arial"
set text size 16
set text to bold
screen_width = screen width()
screen_height = screen height()
mid_x = screen_width >> 1
mid_y = screen_height >> 1
info_y = screen_height - 112
jinzai_x = screen_width - 132
jinzai_y = screen_height - 88

Initialize1WireNetwork()
lasttime = timer()
do
    cls
    nowtime = timer()
    timesegment = nowtime - lasttime
    inc milliseconds, timesegment
    if milliseconds > 999
        inc seconds
        dec milliseconds, 1000
        tick = TRUE
        if seconds > 59
            inc minutes
            dec seconds, 60
            if minutes > 59
                inc hours
                dec minutes, 60
            endif
        endif
    endif
    set cursor 0, 0
    print "Program runtime  : " + str$(hours) + " hours " + ...
                                  str$(minutes) + " minutes " + ...
                                  str$(seconds) + " seconds."
    print "TMEX DLL version : " + versionStr
    print "Default port = " + str$(iPortNum) + "/Type = " + str$(iPortType)
    print "Session handle  = "; iSessionHandle

    if iSetup > -1 and iSetup < 5
        print TMEXSetupReturn(iSetup)
    else
        select iSetup
            case -1
                print TMEXSetupReturn(5)
                endcase
            case -2
                print TMEXSetupReturn(6)
                endcase
            case -3
                print TMEXSetupReturn(7)
                endcase
            case -12
                print TMEXSetupReturn(8)
                endcase
            case -13
                print TMEXSetupReturn(9)
                endcase
            case -200
                print TMEXSetupReturn(10)
                endcase
            case -201
                print TMEXSetupReturn(11)
                endcase
            case default
                print "Setup returned "; iSetup
                endcase
        endselect
    endif
    print "Found " + str$(iTotalDevices) + " device(s) on the network."
    print "iEndSession = "; iEndSession
    lasttime = nowtime
    if tick = TRUE
        tick = FALSE
        GetValidSession()
    endif
    sync
loop

end

rem         **********************End Main Program*************************

function Initialize1WireNetwork()
    rem 1. Load DLL if necessary.

    if TMEXDLL < 1
        TMEXDLL = 1
        do
            if dll exist(TMEXDLL) = 0 then exit
            inc TMEXDLL
            if TMEXDLL > 255 then exitfunction FALSE
        loop
        load dll "ibfs32.dll", TMEXDLL
    endif

    rem 2. Get the ibfs32.dll version string and store globally.

    versionStr = NULLSTR
    versionStr = space$(256)
    dwTemp = call dll(TMEXDLL, TMEX(Get_Version), versionStr)
    if dbWordPtr1 = 0 then dbWordPtr1 = make memory(2)
    if dbWordPrr2 = 0 then dbWordPtr2 = make memory(2)
    dwTemp = call dll(TMEXDLL, TMEX(TMReadDefaultPort), dbWordPtr1, dbWordPtr2)
    wPortNum = *dbWordPtr1
    wPortType = *dbWordPtr2
    iPortNum = jzMakeWordIntValue(wPortNum)
    iPortType = jzMakeWordIntValue(wPortType)
    GetSessionHandle()
    if iSessionHandle > 0
        iTotalDevices = EnumerateDevices()
    endif
endfunction TRUE

function GetSessionHandle()
    local dwptr as dword

    dwptr = make memory(4)
    *dwptr = 0x00000007
    iSessionHandle = call dll(TMEXDLL, TMEX(TMExtendedStartSession), ...
                              wPortNum, wPortType, NULL)
    delete memory dwptr
    if iSessionHandle > 0
        iEndSession = 0
        wTemp = call dll(TMEXDLL, TMEX(TMSetup), iSessionHandle)
        iSetup = jzMakeWordIntValue(wTemp)
    endif
endfunction

function GetValidSession()
    local iValid as integer

    wTemp = call dll(TMEXDLL, TMEX(TXValidSession), iSessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid <> 1
        GetSessionHandle()
        if (iSessionHandle > 0)
            iTotalDevices = EnumerateDevices()
        endif
    endif
endfunction

function ShutDown()
    if TMEXDLL > 0 and TMEXDLL < 256
        delete dll TMEXDLL
        TMEXDLL = 0
    endif
    if dbWordPtr1 <> 0
        delete memory dbWordPtr1
        dbWordPtr1 = 0
    endif
    if dbWordPtr2 <> 0
        delete memory dbWordPtr2
        dbWordPtr2 = 0
    endif
    if dbStateBufferPtr <> 0
        delete memory dbStateBufferPtr
        dbStateBufferPtr = 0
    endif
endfunction

function EnumerateDevices()
    local totalDevices as integer = 0
    local device as integer = 0
    local count as integer = 0

    if dbStateBufferPtr <> 0 then delete memory dbStateBufferPtr
       dbStateBufferPtr = make memory(MAX_STATE_BUFFER)
    fill memory dbStateBufferPtr, 0x00, MAX_STATE_BUFFER

    wTemp = call dll(TMEXDLL, TMEX(TMFirst), iSessionHandle, dbStateBufferPtr)
    device = jzMakeWordIntValue(wTemp)
    if device > 0
        totalDevices = 1
        while device > -1 and count < 256
            wTemp = call dll(TMEXDLL, TMEX(TMNext), iSessionHandle, dbStateBufferPtr)
            device = jzMakeWordIntValue(wTemp)
            if device > 0
               inc totalDevices
            endif
            inc count
        endwhile
    else
        totalDevices = 0
        iEndSession = call dll(TMEXDLL, TMEX(TMEndSession), iSessionHandle)
    endif
endfunction totalDevices

function jzMakeWordIntValue(wordvalue as word)
    local intValue as integer

    if wordvalue && 0x8000              rem This checks for a sign bit.
        intValue = wordvalue - 65536    rem Quick and dirty, but accurate...100%.
    else
        intValue = wordvalue
    endif
endfunction intValue

These are the device names I pulled from ib90usb.dll:

DS1990A,DS2401,Unique Serial Number
DS1991,DS1205, MultiKey iButton
DS1994,DS2404,4K-bit NVRAM with Clock
DS2405,,Single Addressable Switch
DS1993,DS2403,4K-bit NVRAM
DS1992,DS2402,1K-bit NVRAM
DS1982,DS2502,1K-bit EPROM
DS1995,DS2416,16K-bit NVRAM
DS1985,DS2505,16K-bit EPROM
DS1996,DS2464,64K-bit NVRAM
DS1986,DS2506,64K-bit EPROM
DS1920,DS1820,Temperature iButton with Trips
DS1981,DS2501,512-bit EPROM
DS2407,,Dual Addressable Switch
DS1983,DS2503,4K-bit EPROM
DS1971,DS2430A,256-bit EEPROM, plus 64-bit OTP
DS87C900,,Lock Processor
DS1954,,Crypto iButton
DS1963S,4-K-bit SHA iButton
DS1963,,4K-bit Transaction iButton
DS2422,,1K-bit EconoRAM with Counter Input
DS2423,,4K-bit EconoRAM with Counter Input
DS2409,,One-Wire Net Coupler
DS2450,,Quad A-D Converter
DS1921,,Temperature Recorder iButton
DS1973,DS2433,4K-bit EEPROM
DS2415,,1-Wire Time Chip

function getTMGetAdapterSpec()
 local dwptr as dword
 local dwptr1 as dword
    dwptr = make memory(4)
    dwprt1 = make memory(4)
    spec = *dwprt1
    *dwptr = 0x00000007
    iSessionHandle = call dll(TMEXDLL, TMEX(TMExtendedStartSession),wPortNum, wPortType, NULL)
    delete memory dwptr
    if iSessionHandle > 0
        iEndSession = 0
        wTemp = call dll(TMEXDLL, TMEX(TMGetAdapterSpec), iSessionHandle,Spec)
        iSpec =str$( jzMakeWordIntValue(wTemp))
    endif
endfunction

REM Project: iButton
REM Created: 11/10/2006 11:34:11 PM
REM jinzai Silvis, IL
REM ***** Main Source File *****
REM 1-Wire Network Communications

remstart Here is a list of my iButton Devices from iButtonViewer32.

            240000007100F704 DS1994 - 4kbits of NVRAM, RTC, timer, counter, alarm.
            0A000000264C1D81 DS1990A - 64 bit unique ID.
            29000000189ACD21 DS1921 - "Thermochron" digital thermometer -40/+85C.
                                        4kbits NVRAM, RTC, temp alarm, automatic
                                        temperaturer logging.
remend

rem This is the iButton device structure definition.

type DEVICE
    DeviceFamily    as integer
    ID_0            as integer
    ID_1            as integer
    ID_2            as integer
    ID_3            as integer
    ID_4            as integer
    ID_5            as integer
    CRC_8           as integer
endtype

#constant TRUE = 1
#constant FALSE = 0
#constant NULL = 0
#constant NULLSTR = ""

rem Here are some limits for things related to TMEX API and iButton devices.

#constant MAX_STATE_BUFFER      = 15360
#constant NO_EPROM_STATE_BUFFER = 5120
#constant MSEC_DELAY = 500

remstart
            These are indices for the function call names in the TMEX API dll,
            TMEXDLL.dll The string array TMEX contains the strings.
remend

#constant TMExtendedStartSession = 0
#constant TMEndSession           = 1
#constant TMValidSession         = 2
#constant TMSetup                = 3
#constant TMClose                = 4
#constant TMFirst                = 5
#constant TMNext                 = 6
#constant TMRom                  = 7
#constant TMAccess               = 8
#constant TMStrongAccess         = 9
#constant TMBlockStream          = 10
#constant TMTouchBit             = 11
#constant TMTouchByte            = 12
#constant TMTouchReset           = 13
#constant TMOneWireCom           = 14
#constant TMOneWireLevel         = 15
#constant Get_Version            = 16
#constant TMGetTypeVersion       = 17
#constant TMReadDefaultPort      = 18
#constant TMGetAdapterSpec       = 19

remstart
            Returns from the TMEX API File operations group. Use for return values.
            The string array, TMEXFileIOReturn has the error text.
remend

#constant NO_DEVICE                 = -1
#constant WRONG_TYPE                = -2
#constant FILE_READ_ERR             = -3
#constant BUFFER_TOO_SMALL          = -4
#constant HANDLE_NOT_AVAIL          = -5
#constant FILE_NOT_FOUND            = -6
#constant REPEAT_FILE               = -7
#constant HANDLE_NOT_USED           = -8
#constant FILE_WRITE_ONLY           = -9
#constant OUT_OF_SPACE              = -10
#constant FILE_WRITE_ERR            = -11
#constant FILE_READ_ONLY            = -12
#constant FUNC_NOT_SUP              = -13
#constant BAD_FILENAME              = -14
#constant CANT_DEL_READ_ONLY        = -15
#constant HANDLE_NOT_EXIST          = -16
#constant ONE_WIRE_PORT_ERROR       = -17
#constant INVALID_DIRECTORY         = -18
#constant DIRECTORY_NOT_EMPTY       = -19
#constant UNABLE_TO_CREATE_DIR      = -20
#constant NO_PROGRAM_JOB            = -21
#constant PROGRAM_WRITE_PROTECT     = -22
#constant NON_PROGRAM_PARTS         = -23
#constant ADDFILE_TERMINATED        = -24
#constant INVALID_SESSION           = -200
#constant HS_NOT_FOUND              = -201


remstart
                Start of global variables.
remend

global jinzai_img as integer
global jinzai_x, jinzai_y, info_y as integer
global lasttime as dword = 0
global nowtime as dword = 0
global timesegment as dword = 0
global milliseconds as integer = 0
global seconds as integer = 0
global tick as boolean = FALSE
global bSetup = FALSE
global minutes as integer = 0
global hours as integer = 0

global TMEXDLL as integer = -1
global iTemp as integer = 0
global iPortNum as integer = 0
global iPortType as integer = 0
global iEndSession as integer = 0
global iSetup as integer = 0
global iSpec as integer = 0
global iROM_blk as integer = 0
global ibuffer_blk as integer = 0
global iTotalDevices as integer = 0
global iSessionHandle as integer = 0

global dbWordPtr1 as dword = 0
global dbWordPtr2 as dword = 0
global dbROMBufferPtr as dword = 0
global dwTemp as dword

global wTemp as word = 0
global wPortNum as word = 0
global wPortType as word = 0

global tempDevice as DEVICE
global versionStr as string = NULLSTR
global timeStr as string
global TMAdapterDescription as string
global TMTypeVersion as string

dim Devices() as DEVICE
dim TMAdapterFeatures(32) as word
dim TMEX(20) as string

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMEndSession) = "TMEndSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMSetup) = "TMSetup"
TMEX(TMClose) = "TMClose"
TMEX(TMFirst) = "TMFirst"
TMEX(TMNext) = "TMNext"
TMEX(TMRom) = "TMRom"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(Get_Version) = "Get_Version"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"
TMEX(TMGetAdapterSpec) = "TMGetAdapterSpec"

dim TMEXSetupReturn(12) as string

TMEXSetupReturn(0) = "Setup failed."
TMEXSetupReturn(1) = "Setup ok."
TMEXSetupReturn(2) = "Setup ok, but 1-Wire network shorted."
TMEXSetupReturn(3) = "1-Wire network does not exist."
TMEXSetupReturn(4) = "TMSetup not supported."
TMEXSetupReturn(5) = "Port not initialized by call to TMSetup."
TMEXSetupReturn(6) = "1-Wire network does not exist."
TMEXSetupReturn(7) = "Function not supported."
TMEXSetupReturn(8) = "Failure to communicate with hardware adapter."
TMEXSetupReturn(9) = "Unsolicited event on 1-Wire network."
TMEXSetupReturn(10) = "Session not valid."
TMEXSetupReturn(11) = "Required hardware driver not found."

dim TMEXFileIOReturn(26) as string

TMEXFileIOReturn(0) = "Device not found."
TMEXFileIOReturn(1) = "Operation not suuported."
TMEXFileIOReturn(2) = "Read error."
TMEXFileIOReturn(3) = "Read buffer overrun."
TMEXFileIOReturn(4) = "Handle not available."
TMEXFileIOReturn(5) = "File not found."
TMEXFileIOReturn(6) = "File already exists."
TMEXFileIOReturn(7) = "Handle does not reference a file."
TMEXFileIOReturn(8) = "Attempt to read a write only file."
TMEXFileIOReturn(9) = "Out of space to write."
TMEXFileIOReturn(10) = "Device not found."
TMEXFileIOReturn(11) = "Write error. Possible unit malfunction."
TMEXFileIOReturn(12) = "Attempt to write a read only handle."
TMEXFileIOReturn(13) = "Function not supported."
TMEXFileIOReturn(14) = "Illegal name."
TMEXFileIOReturn(15) = "Cannot delete read only file."
TMEXFileIOReturn(16) = "1-Wire network error. Check setup."
TMEXFileIOReturn(17) = "Invalid directory."
TMEXFileIOReturn(18) = "Directory not empty."
TMEXFileIOReturn(19) = "Cannot exceed 10 directories in depth."
TMEXFileIOReturn(20) = "No program job started."
TMEXFileIOReturn(21) = "Program is write protected."
TMEXFileIOReturn(22) = "Non-EPROM parts detected during attempt to program."
TMEXFileIOReturn(23) = "Cannot append to terminated AddFile."
TMEXFileIOReturn(24) = "Session invalid."
TMEXFileIOReturn(25) = "Required hardware-specific driver not found."

remstart
        Here is a sort of laundry list of things about how DBPro and the
        1-Wire SDK do not marry up automatically, and what I do in each case.

        1. The TMEX API returns short integers in most cases. A notable exception
           is TMEXExtendedStartSession, which returns a long. That is the direct
           equivalent of DBPro's integer type. Nothing is done in that case, and
           iSessionHandle is used as is. DBPro will return a DWORD type, which
           has the unpleasant side-effect of destroying the sign of short integer
           returns from dlls if you use the return as a DWORD, or even as an
           integer. The function jzMakeWordIntValue is used when the TMEX API is
           trying to return a short integer to DBPro. It preserves the sign and
           value of the original dll return.
        2. Strings are C-style null terminated ASCII character arrays. I have
           provided translation to and from DBPro strings.
        3. Structures are passed via memory blocks, and DWORD pointers are used
           for passing addresses to the functions that require them.
        4. I ply DBPro's dynamic array capability to create a dynamic device
           array based on the UDT DEVICE. This type should be expanded to
           encompass all of the like data about iButtons. Currently, it does that
           for the most basic of all iButtons, the ID Button. I imagine a space for
           a memblock ID will be sufficient. The code is not there yet, however.
        mtb11.10.2006
remend

rem ************************* START OF PROGRAM EXECUTION **********************
empty array Devices()
iPortNum = -1
iPortType = -1
iFirst = -1
iNext = -1
iROM = -1
iSetup = 0
iEndSession = 0
iTotalDevices = 0
iSessionHandle = -1
TMEXDLL = 0
for temp = 0 to 31
    TMAdapterFeatures(temp) = 0
next temp
TMAdapterDescription = NULLSTR
set window on
set window layout 1, 1, 1
sync on
sync rate 0
backdrop off
set text transparent
set text font "terminal"
set text size 16
set text to bold
screen_width = screen width()
screen_height = screen height()
mid_x = screen_width >> 1
mid_y = screen_height >> 1
info_y = screen_height - 112
jinzai_x = screen_width - 132
jinzai_y = screen_height - 88
Initialize1WireNetwork()
lasttime = timer()
do
    cls
    nowtime = timer()
    timesegment = nowtime - lasttime
    inc milliseconds, timesegment
    if milliseconds > 999
        inc seconds
        dec milliseconds, 1000
        tick = TRUE
        if seconds > 59
            inc minutes
            dec seconds, 60
            if minutes > 59
                inc hours
                dec minutes, 60
            endif
        endif
    endif
    set cursor 0, 0
    print "Program runtime  : " + str$(hours) + " hours " + ...
                                  str$(minutes) + " minutes " + ...
                                  str$(seconds) + " seconds."
    print "TMEX DLL version : " + versionStr
    print "Default port = " + str$(iPortNum) + "/Type = " + str$(iPortType)
    print "Adapter Description string : " + TMAdapterDescription
    print "Adapter version : " + TMTypeVersion
    print "Session handle  = "; iSessionHandle

    if iSetup > -1 and iSetup < 5
        print TMEXSetupReturn(iSetup)
    else
        select iSetup
            case 1
                print TMEXSetupReturn(1)
                endcase
            case -1
                print TMEXSetupReturn(5)
                endcase
            case -2
                print TMEXSetupReturn(6)
                endcase
            case -3
                print TMEXSetupReturn(7)
                endcase
            case -12
                print TMEXSetupReturn(8)
                endcase
            case -13
                print TMEXSetupReturn(9)
                endcase
            case -200
                print TMEXSetupReturn(10)
                endcase
            case -201
                print TMEXSetupReturn(11)
                endcase
            case default
                print "Setup returned "; iSetup
                endcase
        endselect
    endif
    print "Found " + str$(iTotalDevices) + " device(s) on the network."
    print "iEndSession = "; iEndSession
    for temp = 0 to array count(Devices())
        print "Device ROM : " + hex$(int(Devices(temp).DeviceFamily)) + " " + ...
                hex$(int(Devices(temp).ID_0)) + " " + ...
                hex$(int(Devices(temp).ID_1)) + " " + hex$(int(Devices(temp).ID_2)) + " " + ...
                hex$(int(Devices(temp).ID_3)) + " " + hex$(int(Devices(temp).ID_4)) + " " + ...
                hex$(int(Devices(temp).ID_5)) + " " + hex$(int(Devices(temp).CRC_8))
    next temp
    lasttime = nowtime
    if tick = TRUE
        tick = FALSE
        GetValidSession()
    endif
    sync
loop

end

rem         **********************End Main Program*************************

remstart
        ibfs32.dll is the session dll. It provides the link into the 1-Wire
        Network's lower layers.
remend

remstart                        Initialize1WireNetwork()
        This routine is fairly straightforward. It gets some resources,
        and starts up the 1-Wire Network in accordance with the TMEX API
        design guidelines.
        MTB11.10.2006
remend

function Initialize1WireNetwork()
    rem 1. Load DLL if necessary.

    if TMEXDLL < 1
        TMEXDLL = jzGetNextAvailableDLLID(FALSE, 1)
        load dll "ibfs32.dll", TMEXDLL
    endif

    rem 2. Get a buffer for the devices' ROM bytes.

    if iROM_blk = 0
        iROM_blk = jzGetNextAvailableMemblockID(1)
        make memblock iROM_blk, 16
    endif
    dbROMBufferPtr = get memblock ptr(iROM_blk)
    if ibuffer_blk = 0
        ibuffer_blk = jzGetNextAvailableMemblockID(1)
        make memblock ibuffer_blk, MAX_STATE_BUFFER
    endif

    rem 3. Get the ibfs32.dll version string and store globally.

    versionStr = NULLSTR
    versionStr = space$(80)
    dwTemp = call dll(TMEXDLL, TMEX(Get_Version), versionStr)
    if dbWordPtr1 = 0 then dbWordPtr1 = make memory(2)
    if dbWordPrr2 = 0 then dbWordPtr2 = make memory(2)
    dwTemp = call dll(TMEXDLL, TMEX(TMReadDefaultPort), dbWordPtr1, dbWordPtr2)
    wPortNum = *dbWordPtr1
    wPortType = *dbWordPtr2
    delete memory dbWordPtr1
    delete memory dbWordPtr2
    dbWordPtr1 = 0
    dbWordPtr2 = 0
    iPortNum = jzMakeWordIntValue(wPortNum)
    iPortType = jzMakeWordIntValue(wPortType)
    TMTypeVersion = space$(80)
    wTemp = call dll(TMEXDLL, TMEX(TMGetTypeVersion), wPortType, TMTypeVersion)

    rem 4.  Start the session. You must call TMExtendedStartSession first.
    rem     Next, you must call TMSetup. TMGetAdapterSpec is not necessary,
    rem     but it pays to know about the adapter's capabilities up front.

    temp = GetSessionHandle()
    if iSessionHandle > 0 and bSetup
        if GetAdapterSpec() > 0
            iTotalDevices = EnumerateDevices()
        endif
    endif
endfunction TRUE

function GetSessionHandle()
    local dwptr as dword

    dwptr = make memory(4)
    *dwptr = 0x00000000
    iSessionHandle = call dll(TMEXDLL, TMEX(TMExtendedStartSession), ...
                              wPortNum, wPortType, dwptr)
    delete memory dwptr
    if iSessionHandle > 0
        iEndSession = 0
        if bSetup = FALSE
            wTemp = call dll(TMEXDLL, TMEX(TMSetup), iSessionHandle)
            iSetup = jzMakeWordIntValue(wTemp)
            if iSetup > 0
                bSetup = TRUE
            endif
        endif
    else
        exitfunction 0
    endif
endfunction iSessionHandle

function GetValidSession()
    local iValid as integer

    wTemp = call dll(TMEXDLL, TMEX(TMValidSession), iSessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid <> 1
        iValid = GetSessionHandle()
        if iValid <> 0
            iTotalDevices = EnumerateDevices()
        endif
    endif
endfunction iValid

function ShutDown()
    local iValid as integer

    wTemp = call dll(TMEXDLL, TMEX(TMValidSession), iSessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid
        iEndSession = call dll(TMEXDLL, TMEX(TMEndSession), iSessionHandle)
    endif
    if TMEXDLL > 0 and TMEXDLL < 256
        delete dll TMEXDLL
        TMEXDLL = 0
    endif
    if dbWordPtr1 <> 0
        delete memory dbWordPtr1
        dbWordPtr1 = 0
    endif
    if dbWordPtr2 <> 0
        delete memory dbWordPtr2
        dbWordPtr2 = 0
    endif
    if dbStateBufferPtr <> 0
        delete memory dbStateBufferPtr
        dbStateBufferPtr = 0
    endif
    if memblock exist(iROM_blk) = 1 then delete memblock iROM_blk
    if memblock exist(ibuffer_blk) = 1 then delete memblock iBuffer_blk
endfunction

function EnumerateDevices()
    local totalDevices as integer = 0
    local count as integer = 0
    local dwTempPtr as dword = 0
    local offset as integer = 0

    rem 1.  Always a good idea to do this, although the first time it should
    rem     be empty already.

    empty array Devices()

    rem 2. TMFirst and TMNext require a pointer to a state buffer.

    dwTempPtr = get memblock ptr(ibuffer_blk)
    fill memory dwTempPtr, 0x00, MAX_STATE_BUFFER
    fill memory dbROMBufferPtr, 0x00, 16
    wTemp = call dll(TMEXDLL, TMEX(TMFirst), iSessionHandle, dwTempPtr)
    if wTemp = 1
        totalDevices = 1
        wTemp = call dll(TMEXDLL, TMEX(TMRom), iSessionHandle, dwTempPtr, ...
                         dbROMBufferPtr)
        if wTemp = 0x0001
            offset = 0
            array insert at bottom Devices()
            Devices().DeviceFamily = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_0 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_1 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_2 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_3 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_4 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_5 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().CRC_8 = memblock word(iROM_blk, offset)
            rem
        endif
        while wTemp = 0x0001
            wTemp = call dll(TMEXDLL, TMEX(TMNext), iSessionHandle, dwTempPtr)
            if wTemp <> 0x0001 then exit
            device = jzMakeWordIntValue(wTemp)
            inc totalDevices
            write memblock word iROM_blk, 0, 0x0000
            wTemp = call dll(TMEXDLL, TMEX(TMRom), iSessionHandle, ...
                             dwTempPtr, dbROMBufferPtr)
            iTemp = jzMakeWordIntValue(wTemp)
            if iTemp > 0
               offset = 0
               array insert at bottom Devices()
               Devices().DeviceFamily = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_0 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_1 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_2 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_3 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_4 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().ID_5 = memblock word(iROM_blk, offset)
               inc offset, 2
               Devices().CRC_8 = memblock word(iROM_blk, offset)
            endif
        endwhile
    else
        totalDevices = 0
        iEndSession = call dll(TMEXDLL, TMEX(TMEndSession), iSessionHandle)
    endif
endfunction totalDevices

remstart                        GetAdapterSpec()
        The 1-Wire Network TMEX API documentation has an incorrect prototype
        for this function call. You do not pass a pointer to the state buffer.
        The example code shows the correct format of this call, which is used
        here. Also, a return of 0 is not an error.
        MTB11.10.2006
remend

function GetAdapterSpec()
    local dwptr1 as dword
    local offset as dword
    local spec_blk as integer
    local temp_blk as integer
    local ireturn as integer

    rem 1. Initialize global variables to known values.

    for temp = 0 to 31
        TMAdapterFeatures(temp) = 0x0000
    next temp
    TMAdapterDescription = NULLSTR

    rem 2.  Get a memblock for the data that is going to be returned.
    rem     Also, get a pointer for it to pass to the dll.

    spec_blk = jzGetNextAvailableMemblockID(1)
    make memblock spec_blk, 319
    dwptr1 = get memblock ptr(spec_blk)

    rem 3.  It is a very good practice to call GetValidSession() before
    rem     making any calls into the network. Here, it is only next door,
    rem     but the session can get invalidated. GetValidSession() attempts
    rem     to fix that.

    if GetValidSession()
        wTemp = call dll(TMEXDLL, TMEX(TMGetAdapterSpec), iSessionHandle, ...
                         dwptr1)
        ireturn = jzMakeWordIntValue(wTemp)
    endif

    rem 4.  Copy returned data into global variables.

    offset = 0
    for temp = 0 to 31
        TMAdapterFeatures(temp) = memblock word(spec_blk, offset)
        inc offset, 2
    next temp

    rem N.B.    Here, it is easier to use a more generic routine to create a
    rem         DBPro string by copying the string data into a new memblock.

    temp_blk = jzGetNextAvailableMemblockID(1)
    make memblock temp_blk, 255
    dwptr1 = get memblock ptr(temp_blk)
    fill memory dwptr1, 0x00, 255
    copy memblock spec_blk, temp_blk, 64, 0, 255
    TMAdapterDescription = jzMakeDBString(temp_blk)
    delete memblock spec_blk
    delete memblock temp_blk
endfunction ireturn

remstart
        These are general purpose routines for translating types, and basically
        to enable efficient use of some of the DBPro resources required. They
        were all gleaned from my DBPro utility source files.
remend

function jzMakeWordIntValue(wordvalue as word)
    local intValue as integer

    if wordvalue && 0x8000              rem This checks for a sign bit.
        intValue = wordvalue - 65536    rem Quick and dirty, but accurate...100%.
    else
        intValue = wordvalue
    endif
endfunction intValue

function jzGetNextAvailableMemblockID(seed as integer)
   local temp = seed

   if seed < 1 then exitfunction -1
   do
      if memblock exist(temp) = 0 then exitfunction temp
      inc temp
      if temp < 0 then exitfunction -1
   loop
endfunction -1

function jzGetNextAvailableDLLID(bDown as boolean, seed as integer)
   local temp = seed

   if seed < 1 or seed > 255 then exitfunction -1
   do
      if dll exist(temp) = 0 then exitfunction temp
      if bDown = 1
         dec temp
      else
         inc temp
      endif
      if temp < 1 or temp > 255 then exitfunction -1
   loop
endfunction -1

function jzMakeDBString(cstring_blockID as integer)
    local ivalue as integer
    local icount as integer
    local offset as integer
    local buildstr as string

    offset = 0
    icount = 0
    buildstr = ""
    ivalue = memblock byte(cstring_blockID, offset)
    while ivalue <> 0
        buildstr = buildstr + chr$(ivalue)
        inc offset
        inc icount
        if icount > 32767 then exitfunction buildstr
        ivalue = memblock byte(cstring_blockID, offset)
    endwhile
endfunction buildstr

REM Project: iButton
REM Created: 11/10/2006 11:34:11 PM
REM jinzai Silvis, IL USA
REM ***** Main Source File *****
REM 1-Wire Network Communications

remstart    This represents a complete DBPro interface to the TMEX API provided
            by Dallas Semiconductor for use of their 1-Wire Network and iButton
            devices. As of 11/13/2006, the entire API can be called. From now on,
            I will place changes here in chronological order, leading up to a
            version 1.0.0, which I will place in the code base, perhaps with
            some more information and sources for iButtons. I got onboard for
            less than $50USD, and it looks very interesting to me, with some
            potential game and game development uses. Stay tuned.
            mtb11.13.2006
remend

rem Define some UDTs.

rem I am smuggling this array into the specification type below.

type FEATURES
    word_0      as word         rem     regular pages, unsigned LSB first
    word_1      as word         rem     bytes per page in regular memory
    word_2      as word         rem     status pages, unsigned LSB first
    word_3      as word         rem     bytes per page in status memory
    word_4      as word         rem     max communication speed: reg=0/OD=1/HD=2
    word_5      as word         rem     memory type
                                rem         0 = NOMEM
                                rem         1 = NVRAM
                                rem         2 = EPROM
                                rem         3 = EPROM2
                                rem         4 = EPROM3
                                rem         5 = EEPROM1
                                rem         6 = MNVRAM
                                rem         7 = EEPROM2
                                rem         8 = NVRAM2
                                rem         9 = NVRAM3
    word_6      as word         rem     FUTURE EXPANSION.
    word_7      as word         rem     FUTURE EXPANSION.
    word_8      as word         rem     FUTURE EXPANSION.
    word_9      as word         rem     FUTURE EXPANSION.
    word_10     as word         rem     FUTURE EXPANSION.
    word_11     as word         rem     FUTURE EXPANSION.
    word_12     as word         rem     FUTURE EXPANSION.
    word_13     as word         rem     FUTURE EXPANSION.
    word_14     as word         rem     FUTURE EXPANSION.
    word_15     as word         rem     FUTURE EXPANSION.
    word_16     as word         rem     FUTURE EXPANSION.
    word_17     as word         rem     FUTURE EXPANSION.
    word_18     as word         rem     FUTURE EXPANSION.
    word_19     as word         rem     FUTURE EXPANSION.
    word_20     as word         rem     FUTURE EXPANSION.
    word_21     as word         rem     FUTURE EXPANSION.
    word_22     as word         rem     FUTURE EXPANSION.
    word_23     as word         rem     FUTURE EXPANSION.
    word_24     as word         rem     FUTURE EXPANSION.
    word_25     as word         rem     FUTURE EXPANSION.
    word_26     as word         rem     FUTURE EXPANSION.
    word_27     as word         rem     FUTURE EXPANSION.
    word_28     as word         rem     FUTURE EXPANSION.
    word_29     as word         rem     FUTURE EXPANSION.
    word_30     as word         rem     FUTURE EXPANSION.
    word_31     as word         rem     FUTURE EXPANSION.
endtype

rem This is an iButton device specification structure.

type SPECIFICATION
    features        as FEATURES
    description     as string
endtype

rem This is the iButton device structure definition.

type DEVICE
    DeviceFamily    as integer
    ID_0            as integer
    ID_1            as integer
    ID_2            as integer
    ID_3            as integer
    ID_4            as integer
    ID_5            as integer
    CRC_8           as integer
    specification   as SPECIFICATION
endtype

rem Helpful constants

#constant TRUE          = 1
#constant FALSE         = 0
#constant NULL          = 0
#constant NULLSTR       = ""

rem Here are some limits for things related to TMEX API and iButton devices.

#constant MAX_STATE_BUFFER          = 15360
#constant NO_EPROM_STATE_BUFFER     = 5120
#constant MSEC_DELAY                = 500

rem Here are the current memory types.

#constant NOMEM         = 0
#constant NVRAM         = 1
#constant EPROM         = 2
#constant EPROM2        = 3
#constant EPROM3        = 4
#constant EEPROM1       = 5
#constant MNVRAM        = 6
#constant EEPROM2       = 7
#constant NVRAM2        = 8
#constant NVRAM3        = 9

remstart
            These are indices for the function call names in the TMEX API dll,
            TMEXDLL.dll The string array TMEX contains the strings.
remend
rem         TMEX Session API
#constant TMExtendedStartSession    = 0
#constant TMStartSession            = 1
#constant TMValidSession            = 2
#constant TMEndSession              = 3
rem         TMEX File Operations API
#constant TMFirstFile               = 4
#constant TMNextFile                = 5
#constant TMOpenFile                = 6
#constant TMCreateFile              = 7
#constant TMCloseFile               = 8
#constant TMReadFile                = 9
#constant TMWriteFile               = 10
#constant TMDeleteFile              = 11
#constant TMFormat                  = 12
#constant TMAttribute               = 13
#constant TMReNameFile              = 14
#constant TMChangeDirectory         = 15
#constant TMDirectoryMR             = 16
#constant TMCreateProgramJob        = 17
#constant TMDoProgramJob            = 18
#constant TMWriteAddFile            = 19
#constant TMTerminateAddFile        = 20
#constant TMGetFamilySpec           = 21
#constant Get_Version               = 22
rem         TMEX Transport API
#constant TMReadPacket              = 23
#constant TMWritePacket             = 24
#constant TMBlockIO                 = 25
#constant TMExtendedReadPage        = 26
#constant TMProgramByte             = 27
#constant TMProgramBlock            = 28
#constant TMCRC                     = 29
rem         TMEX Network API
#constant TMFirst                   = 30
#constant TMNext                    = 31
#constant TMAccess                  = 32
#constant TMStrongAccess            = 33
#constant TMStrongAlarmAccess       = 34
#constant TMOverAccess              = 35
#constant TMRom                     = 36
#constant TMFirstAlarm              = 37
#constant TMNextAlarm               = 38
#constant TMFamilySearchSetup       = 39
#constant TMSkipFamily              = 40
#constant TMAutoOverDrive           = 41
#constant TMSearch                  = 42
rem         TMEX Hardware API
#constant TMSetup                   = 43
#constant TMTouchByte               = 44
#constant TMTouchReset              = 45
#constant TMTouchBit                = 46
#constant TMProgramPulse            = 47
#constant TMOneWireLevel            = 48
#constant TMOneWireCom              = 49
#constant TMClose                   = 50
#constant TMGetTypeVersion          = 51
#constant TMBlockStream             = 52
#constant TMReadDefaultPort         = 53
#constant TMGetAdapterSpec          = 54

remstart
            Returns from the TMEX API File operations group. Use for return values.
            The string array, TMEXFileIOReturn has the error text.
remend

#constant NO_DEVICE                 = -1
#constant WRONG_TYPE                = -2
#constant FILE_READ_ERR             = -3
#constant BUFFER_TOO_SMALL          = -4
#constant HANDLE_NOT_AVAIL          = -5
#constant FILE_NOT_FOUND            = -6
#constant REPEAT_FILE               = -7
#constant HANDLE_NOT_USED           = -8
#constant FILE_WRITE_ONLY           = -9
#constant OUT_OF_SPACE              = -10
#constant FILE_WRITE_ERR            = -11
#constant FILE_READ_ONLY            = -12
#constant FUNC_NOT_SUP              = -13
#constant BAD_FILENAME              = -14
#constant CANT_DEL_READ_ONLY        = -15
#constant HANDLE_NOT_EXIST          = -16
#constant ONE_WIRE_PORT_ERROR       = -17
#constant INVALID_DIRECTORY         = -18
#constant DIRECTORY_NOT_EMPTY       = -19
#constant UNABLE_TO_CREATE_DIR      = -20
#constant NO_PROGRAM_JOB            = -21
#constant PROGRAM_WRITE_PROTECT     = -22
#constant NON_PROGRAM_PARTS         = -23
#constant ADDFILE_TERMINATED        = -24
#constant INVALID_SESSION           = -200
#constant HS_NOT_FOUND              = -201


remstart
                Start of global variables.
remend

global lasttime as dword = 0
global nowtime as dword = 0
global timesegment as dword = 0
global milliseconds as integer = 0
global seconds as integer = 0
global tick as boolean = FALSE
global bSetup = FALSE
global minutes as integer = 0
global hours as integer = 0

global TMEXDLL as integer = -1
global iTemp as integer = 0
global itab_1 as integer = 0
global itextwidth as integer = 0
global iwidthchar = 0
global iPortNum as integer = 0
global iPortType as integer = 0
global iEndSession as integer = 0
global iSetup as integer = 0
global iSpec as integer = 0
global iROM_blk as integer = 0
global ibuffer_blk as integer = 0
global iTotalDevices as integer = 0
global iSessionHandle as integer = 0

global dwWordPtr1 as dword = NULL
global dwWordPtr2 as dword = NULL
global dwROMBufferPtr as dword = NULL
global dwTemp as dword = NULL

global wTemp as word = 0
global wPortNum as word = 0
global wPortType as word = 0

global tempStr1 as string = NULLSTR
global tempStr2 as string = NULLSTR
global tempStr3 as string = NULLSTR
global tempStr4 as string = NULLSTR
global tempStr5 as string = NULLSTR
global tempStr6 as string = NULLSTR
global tempStr7 as string = NULLSTR
global tempStr8 as string = NULLSTR
global displayStr as string = NULLSTR
global versionStr as string = NULLSTR
global timeStr as string = NULLSTR
global TMTypeVersion as string = NULLSTR

global Adapter as SPECIFICATION

global tempDevice as DEVICE
dim Devices() as DEVICE

dim TMEX(55) as string

remstart    TMEX is divided into APIs which correspond to the OSI 7-layer model.
remend

rem         TMEX Session API function calls.

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMStartSession) = "TMStartSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMEndSession) = "TMEndSession"

rem         TMEX File Operations API function calls.

TMEX(TMFirstFile) = "TMFirstFile"
TMEX(TMNextFile) = "TMNextFile"
TMEX(TMOpenFile) = "TMOpenFile"
TMEX(TMCreateFile) = "TMCreateFile"
TMEX(TMCloseFile) = "TMCloseFile"
TMEX(TMReadFile) = "TMReadFile"
TMEX(TMWriteFile) = "TMWriteFile"
TMEX(TMDeleteFile) = "TMDeleteFile"
TMEX(TMFormat) = "TMFormat"
TMEX(TMAttribute) = "TMAttribute"
TMEX(TMReNameFile) = "TMReNameFile"
TMEX(TMChangeDirectory) = "TMChangeDirectory"
TMEX(TMDirectoryMR) = "TMDirectoryMR"
TMEX(TMCreateProgramJob) = "TMCreateProgramJob"
TMEX(TMDoProgramJob) = "TMDoProgramJob"
TMEX(TMWriteAddFile) = "TMWriteAddFile"
TMEX(TMTerminateAddFile) = "TMTerminateAddFile"
TMEX(TMGetFamilySpec) = "TMGetFamilySpec"
TMEX(Get_Version) = "Get_Version"

rem         TMEX Transport API
TMEX(TMReadPacket) = "TMReadPacket"
TMEX(TMWritePacket) = "TMWritePacket"
TMEX(TMBlockIO) = "TMBlockIO"
TMEX(TMExtendedReadPage) = "TMExtendedReadPage"
TMEX(TMProgramByte) = "TMProgramByte"
TMEX(TMProgramBlock) = "TMProgramBlock"
TMEX(TMCRC) = "TMCRC"

rem         TMEX Network API function calls.

TMEX(TMFirst) = "TMFirst"
TMEX(TMNext) = "TMNext"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMStrongAlarmAccess) = "TMStrongAlarmAccess"
TMEX(TMOverAccess) = "TMOverAccess"
TMEX(TMRom) = "TMRom"
TMEX(TMFirstAlarm) = "TMFirstAlarm"
TMEX(TMNextAlarm) = "TMNextAlarm"
TMEX(TMFamilySearchSetup) = "TMFamilySearchSetup"
TMEX(TMSkipFamily) = "TMSkipFamily"
TMEX(TMAutoOverDrive) = "TMAutoOverDrive"
TMEX(TMSearch) = "TMSearch"

rem         TMEX Hardware API function calls.

TMEX(TMSetup) = "TMSetup"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMProgramPulse) = "TMProgramPulse"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMClose) = "TMClose"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"
TMEX(TMGetAdapterSpec) = "TMGetAdapterSpec"

dim TMEXSetupReturn(12) as string

TMEXSetupReturn(0) = "Setup failed."
TMEXSetupReturn(1) = "Setup ok."
TMEXSetupReturn(2) = "Setup ok, but 1-Wire network shorted."
TMEXSetupReturn(3) = "1-Wire network does not exist."
TMEXSetupReturn(4) = "TMSetup not supported."
TMEXSetupReturn(5) = "Port not initialized by call to TMSetup."
TMEXSetupReturn(6) = "1-Wire network does not exist."
TMEXSetupReturn(7) = "Function not supported."
TMEXSetupReturn(8) = "Failure to communicate with hardware adapter."
TMEXSetupReturn(9) = "Unsolicited event on 1-Wire network."
TMEXSetupReturn(10) = "Session not valid."
TMEXSetupReturn(11) = "Required hardware driver not found."

dim TMEXFileIOReturn(26) as string

TMEXFileIOReturn(0) = "Device not found."
TMEXFileIOReturn(1) = "Operation not suuported."
TMEXFileIOReturn(2) = "Read error."
TMEXFileIOReturn(3) = "Read buffer overrun."
TMEXFileIOReturn(4) = "Handle not available."
TMEXFileIOReturn(5) = "File not found."
TMEXFileIOReturn(6) = "File already exists."
TMEXFileIOReturn(7) = "Handle does not reference a file."
TMEXFileIOReturn(8) = "Attempt to read a write only file."
TMEXFileIOReturn(9) = "Out of space to write."
TMEXFileIOReturn(10) = "Device not found."
TMEXFileIOReturn(11) = "Write error. Possible unit malfunction."
TMEXFileIOReturn(12) = "Attempt to write a read only handle."
TMEXFileIOReturn(13) = "Function not supported."
TMEXFileIOReturn(14) = "Illegal name."
TMEXFileIOReturn(15) = "Cannot delete read only file."
TMEXFileIOReturn(16) = "1-Wire network error. Check setup."
TMEXFileIOReturn(17) = "Invalid directory."
TMEXFileIOReturn(18) = "Directory not empty."
TMEXFileIOReturn(19) = "Cannot exceed 10 directories in depth."
TMEXFileIOReturn(20) = "No program job started."
TMEXFileIOReturn(21) = "Program is write protected."
TMEXFileIOReturn(22) = "Non-EPROM parts detected during attempt to program."
TMEXFileIOReturn(23) = "Cannot append to terminated AddFile."
TMEXFileIOReturn(24) = "Session invalid."
TMEXFileIOReturn(25) = "Required hardware-specific driver not found."

dim deviceMemoryTypeStr(10) as string
deviceMemoryTypeStr(NOMEM) = "-NONE-"
deviceMemoryTypeStr(NVRAM) = "NVRAM"
deviceMemoryTypeStr(EPROM) = "EPROM"
deviceMemoryTypeStr(EPROM2) = "EPROM2"
deviceMemoryTypeStr(EPROM3) = "EPROM3"
deviceMemoryTypeStr(EEPROM1) = "EEPROM1"
deviceMemoryTypeStr(MNVRAM) = "MNVRAM"
deviceMemoryTypeStr(EEPROM2) = "EEPROM2"
deviceMemoryTypeStr(NVRAM2) = "NVRAM2"
deviceMemoryTypeStr(NVRAM3) = "NVRAM3"

remstart
        Here is a sort of laundry list of things about how DBPro and the
        1-Wire SDK do not marry up automatically, and what I do in each case.

        1. The TMEX API returns short integers in most cases. A notable exception
           is TMEXExtendedStartSession, which returns a long. That is the direct
           equivalent of DBPro's integer type. Nothing is done in that case, and
           iSessionHandle is used as is. DBPro will return a DWORD type, which
           has the unpleasant side-effect of destroying the sign of short integer
           returns from dlls if you use the return as a DWORD, or even as an
           integer. The function jzMakeWordIntValue is used when the TMEX API is
           trying to return a short integer to DBPro. It preserves the sign and
           value of the original dll return while converting to the DBPro integer
           type.
        2. Strings are C-style null terminated ASCII character arrays. I have
           provided translation to DBPro strings.
        3. Structures are passed via memory blocks, and DWORD pointers are used
           for passing addresses to the functions that require them.
        4. I ply DBPro's dynamic array capability to create a dynamic device
           array based on the UDT DEVICE. This type should be expanded to
           encompass all of the like data about iButtons. Currently, it does that
           for the most basic of all iButtons, the ID Button. I imagine a space for
           a memblock ID will be sufficient in most cases, but the file system,
           alarms and some of the other features will need specific attention.
        mtb11.12.2006
remend

rem ************************* START OF PROGRAM EXECUTION **********************
empty array Devices()
iPortNum = -1
iPortType = -1
iFirst = -1
iNext = -1
iROM = -1
iSetup = 0
iEndSession = 0
iTotalDevices = 0
iSessionHandle = -1
TMEXDLL = 0
Adapter.features.word_0 = 0x0000
Adapter.features.word_1 = 0x0000
Adapter.features.word_2 = 0x0000
Adapter.features.word_3 = 0x0000
Adapter.features.word_4 = 0x0000
Adapter.features.word_5 = 0x0000
Adapter.features.word_6 = 0x0000
Adapter.features.word_7 = 0x0000
Adapter.features.word_8 = 0x0000
Adapter.features.word_9 = 0x0000
Adapter.features.word_10 = 0x0000
Adapter.features.word_11 = 0x0000
Adapter.features.word_12 = 0x0000
Adapter.features.word_13 = 0x0000
Adapter.features.word_14 = 0x0000
Adapter.features.word_15 = 0x0000
Adapter.features.word_16 = 0x0000
Adapter.features.word_17 = 0x0000
Adapter.features.word_18 = 0x0000
Adapter.features.word_19 = 0x0000
Adapter.features.word_20 = 0x0000
Adapter.features.word_21 = 0x0000
Adapter.features.word_22 = 0x0000
Adapter.features.word_23 = 0x0000
Adapter.features.word_24 = 0x0000
Adapter.features.word_25 = 0x0000
Adapter.features.word_26 = 0x0000
Adapter.features.word_27 = 0x0000
Adapter.features.word_28 = 0x0000
Adapter.features.word_29 = 0x0000
Adapter.features.word_30 = 0x0000
Adapter.features.word_31 = 0x0000
Adapter.description = "INVALID! Uninitialized."
set window on
set window layout 1, 1, 1
sync on
sync rate 0
backdrop off
set text transparent
set text font "terminal"
set text size 18
set text to bold
perform checklist for fonts
iwidthchar = text width("W")
itab_1 = iwidthchar * 24
screen_width = screen width()
screen_height = screen height()
mid_x = screen_width >> 1
mid_y = screen_height >> 1
info_y = screen_height - 112
jinzai_x = screen_width - 132
jinzai_y = screen_height - 88
lasttime = timer()
Initialize1WireNetwork()
do
    cls
    nowtime = timer()
    timesegment = nowtime - lasttime
    inc milliseconds, timesegment
    if milliseconds > 999
        inc seconds
        dec milliseconds, 1000
        tick = TRUE
        if seconds > 59
            inc minutes
            dec seconds, 60
            if minutes > 59
                inc hours
                dec minutes, 60
            endif
        endif
    endif
    center text mid_x, 0, "~~~~~~~~~~ 1-Wire Network ~~~~~~~~~~"
    set cursor 0, 20
    print "TMEX DLL version : " + versionStr + " session handle : "; iSessionHandle
    if iSetup > -1 and iSetup < 5
        print TMEXSetupReturn(iSetup)
    else
        select iSetup
            case -1
                print TMEXSetupReturn(5)
                endcase
            case -2
                print TMEXSetupReturn(6)
                endcase
            case -3
                print TMEXSetupReturn(7)
                endcase
            case -12
                print TMEXSetupReturn(8)
                endcase
            case -13
                print TMEXSetupReturn(9)
                endcase
            case -200
                print TMEXSetupReturn(10)
                endcase
            case -201
                print TMEXSetupReturn(11)
                endcase
            case default
                print "Setup returned "; iSetup
                endcase
        endselect
    endif
    print "Default port = " + str$(iPortNum) + "/Type = " + str$(iPortType)
    print "Adapter Description string : " + Adapter.description
    print "Adapter version : " + TMTypeVersion
    print "Program runtime  : " + str$(hours) + " hours " + ...
                                  str$(minutes) + " minutes " + ...
                                  str$(seconds) + " seconds."
    print jzDupStr("~", 132)
    print space$(9) + "[-ROM ID-]" + space$(40) + "[-Description-]" + ...
            space$(38) + "[-Memory-]" + space$(4) + "[-Speed-]"
    print jzDupStr("~", 132)

    for temp = 0 to array count(Devices())
        tempStr1 = hex$(Devices(temp).DeviceFamily)
        tempStr2 = hex$(Devices(temp).ID_0)
        tempStr3 = hex$(Devices(temp).ID_1)
        tempStr4 = hex$(Devices(temp).ID_2)
        tempStr5 = hex$(Devices(temp).ID_3)
        tempStr6 = hex$(Devices(temp).ID_4)
        tempStr7 = hex$(Devices(temp).ID_5)
        tempStr8 = hex$(Devices(temp).CRC_8)
        if len(tempStr1) = 1
            displayStr = "0" + tempStr1
        else
            displayStr = tempStr1
        endif
        displayStr = displayStr + " "
        if len(tempStr2) = 1
            displayStr = displayStr + "0" + tempStr2
        else
            displayStr = displayStr + tempStr2
        endif
        if len(tempStr3) = 1
            displayStr = displayStr + "0" + tempStr3
        else
            displayStr = displayStr + tempStr3
        endif
        if len(tempStr4) = 1
            displayStr = displayStr + "0" + tempStr4
        else
            displayStr = displayStr + tempStr4
        endif
        if len(tempStr5) = 1
            displayStr = displayStr + "0" + tempStr5
        else
            displayStr = displayStr + tempStr5
        endif
        if len(tempStr6) = 1
            displayStr = displayStr + "0" + tempStr6
        else
            displayStr = displayStr + tempStr6
        endif
        if len(tempStr7) = 1
            displayStr = displayStr + "0" + tempStr7
        else
            displayStr = displayStr + tempStr7
        endif
        displayStr = displayStr + " "
        if len(tempStr8) = 1
            displayStr = displayStr + "0" + tempStr8
        else
            displayStr = displayStr + tempStr8
        endif
        itextwidth = text width(displayStr)
        iTemp = itab_1 - itextwidth
        iTemp = iTemp / iwidthchar
        inc iTemp
        tempStr1 = space$(iTemp)
        displayStr = displayStr + tempStr1
        displayStr = displayStr + Devices(temp).specification.description
        displayStr = displayStr + tempStr1
        displayStr = displayStr + ...
            deviceMemoryTypeStr(int(Devices(temp).specification.features.word_5))
        displayStr = displayStr + tempStr1
        displayStr = displayStr + ...
            str$(int(Devices(temp).specification.features.word_4))
        print displayStr
    next temp
    lasttime = nowtime
    if tick = TRUE
        tick = FALSE
        GetValidSession()
    endif
    sync
loop

end

rem         **********************End Main Program*************************

remstart
        ibfs32.dll is the session dll. It provides the link into the 1-Wire
        Network's lower layers.
remend

remstart                        Initialize1WireNetwork()
        This routine is fairly straightforward. It gets some resources,
        and starts up the 1-Wire Network in accordance with the TMEX API
        design guidelines.
        MTB11.10.2006
remend

function Initialize1WireNetwork()
    rem 1. Load DLL if necessary.

    if TMEXDLL < 1
        TMEXDLL = jzGetNextAvailableDLLID(FALSE, 1)
        load dll "ibfs32.dll", TMEXDLL
    endif

    rem 2. Get a buffer for the devices' ROM bytes.

    if iROM_blk = 0
        iROM_blk = jzGetNextAvailableMemblockID(1)
        make memblock iROM_blk, 16
    endif
    dwROMBufferPtr = get memblock ptr(iROM_blk)
    if ibuffer_blk = 0
        ibuffer_blk = jzGetNextAvailableMemblockID(1)
        make memblock ibuffer_blk, MAX_STATE_BUFFER
    endif

    rem 3.  Get the ibfs32.dll version string and store globally.
    rem     ibfs32.dll will read the registry for a default port and type.
    rem     Get the adapter driver version string and store globally.

    versionStr = NULLSTR
    versionStr = space$(80)
    dwTemp = call dll(TMEXDLL, TMEX(Get_Version), versionStr)
    if dwWordPtr1 = 0 then dwWordPtr1 = make memory(2)
    if dbWordPrr2 = 0 then dwWordPtr2 = make memory(2)
    dwTemp = call dll(TMEXDLL, TMEX(TMReadDefaultPort), dwWordPtr1, dwWordPtr2)
    wPortNum = *dwWordPtr1
    wPortType = *dwWordPtr2
    delete memory dwWordPtr1
    delete memory dwWordPtr2
    dwWordPtr1 = 0
    dwWordPtr2 = 0
    iPortNum = jzMakeWordIntValue(wPortNum)
    iPortType = jzMakeWordIntValue(wPortType)
    TMTypeVersion = space$(80)
    wTemp = call dll(TMEXDLL, TMEX(TMGetTypeVersion), wPortType, TMTypeVersion)

    rem 4.  Start the session. You must call TMExtendedStartSession first.
    rem     Next, you must call TMSetup. TMGetAdapterSpec is not necessary,
    rem     but it pays to know about the adapter's capabilities up front.

    temp = GetSessionHandle()
    if iSessionHandle > 0 and bSetup
        if GetAdapterSpec() > 0
            iTotalDevices = EnumerateDevices()
        endif
    endif
endfunction TRUE

function GetSessionHandle()
    local dwptr as dword

    dwptr = make memory(4)
    *dwptr = 0x00000000
    iSessionHandle = call dll(TMEXDLL, TMEX(TMExtendedStartSession), ...
                              wPortNum, wPortType, dwptr)
    delete memory dwptr
    if iSessionHandle > 0
        iEndSession = 0
        if bSetup = FALSE
            wTemp = call dll(TMEXDLL, TMEX(TMSetup), iSessionHandle)
            iSetup = jzMakeWordIntValue(wTemp)
            if iSetup > 0
                bSetup = TRUE
            endif
        endif
    else
        exitfunction 0
    endif
endfunction iSessionHandle

function GetValidSession()
    local iValid as integer

    wTemp = call dll(TMEXDLL, TMEX(TMValidSession), iSessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid <> 1
        iValid = GetSessionHandle()
        if iValid <> 0
            iTotalDevices = EnumerateDevices()
        endif
    endif
endfunction iValid

function ShutDown()
    local iValid as integer

    wTemp = call dll(TMEXDLL, TMEX(TMValidSession), iSessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid
        iEndSession = call dll(TMEXDLL, TMEX(TMEndSession), iSessionHandle)
    endif
    if TMEXDLL > 0 and TMEXDLL < 256
        delete dll TMEXDLL
        TMEXDLL = 0
    endif
    if dwWordPtr1 <> 0
        delete memory dwWordPtr1
        dwWordPtr1 = 0
    endif
    if dwWordPtr2 <> 0
        delete memory dwWordPtr2
        dwWordPtr2 = 0
    endif
    if dbStateBufferPtr <> 0
        delete memory dbStateBufferPtr
        dbStateBufferPtr = 0
    endif
    if iROM_blk > 0 and memblock exist(iROM_blk) = 1 then delete memblock iROM_blk
    if ibuffer_blk > 0 and memblock exist(ibuffer_blk) = 1 then delete memblock iBuffer_blk
endfunction

function EnumerateDevices()
    local totalDevices as integer = 0
    local count as integer = 0
    local dwTempPtr as dword = 0
    local dwTempPtr2 as dword = 0
    local offset as integer = 0
    local spec_blk as integer = 0
    local temp_blk as integer = 0

    rem 1.  Always a good idea to do this, although the first time it should
    rem     be empty already.

    empty array Devices()

    rem 2.  TMFirst and TMNext require a pointer to a state buffer.

    dwTempPtr = get memblock ptr(ibuffer_blk)
    fill memory dwTempPtr, 0x00, MAX_STATE_BUFFER
    fill memory dwROMBufferPtr, 0x00, 16
    wTemp = call dll(TMEXDLL, TMEX(TMFirst), iSessionHandle, dwTempPtr)
    if wTemp = 0x0001
        spec_blk = jzGetNextAvailableMemblockID(1)
        make memblock spec_blk, 319
        dwTempPtr2 = get memblock ptr(spec_blk)
        fill memory dwTempPtr2, 0x00, 319
        totalDevices = 1
        wTemp = call dll(TMEXDLL, TMEX(TMRom), iSessionHandle, dwTempPtr, ...
                         dwROMBufferPtr)
        if wTemp = 0x0001
            offset = 0
            array insert at bottom Devices()
            Devices().DeviceFamily = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_0 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_1 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_2 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_3 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_4 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().ID_5 = memblock word(iROM_blk, offset)
            inc offset, 2
            Devices().CRC_8 = memblock word(iROM_blk, offset)
            Devices().specification.description = "INVALID: UNINITIALIZED."
            wTemp = call dll(TMEXDLL, TMEX(TMGetFamilySpec), iSessionHandle, ...
                             dwTempPtr, dwTempPtr2)
            if jzMakeWordIntValue(wTemp) > 0
                offset = 0
                Devices().specification.features.word_0 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_1 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_2 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_3 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_4 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_5 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_6 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_7 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_8 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_9 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_10 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_11 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_12 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_13 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_14 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_15 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_16 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_17 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_18 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_19 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_20 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_21 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_22 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_23 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_24 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_25 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_26 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_27 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_28 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_29 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_30 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_31 = ...
                    memblock word(spec_blk, offset)
                temp_blk = jzGetNextAvailableMemblockID(1)
                make memblock temp_blk, 255
                dwTempPtr2 = get memblock ptr(temp_blk)
                fill memory dwTempPtr2, 0x00, 255
                copy memblock spec_blk, temp_blk, 64, 0, 255
                Devices().specification.description = jzMakeDBString(temp_blk)
            endif
        endif
        while wTemp = 0x0001
            wTemp = call dll(TMEXDLL, TMEX(TMNext), iSessionHandle, dwTempPtr)
            if wTemp <> 0x0001 then exit
            inc totalDevices
            write memblock word iROM_blk, 0, 0x0000
            dwTempPtr2 = get memblock ptr(spec_blk)
            fill memory dwTempPtr2, 0x00, 319
            wTemp = call dll(TMEXDLL, TMEX(TMRom), iSessionHandle, ...
                             dwTempPtr, dwROMBufferPtr)
            iTemp = jzMakeWordIntValue(wTemp)
            if iTemp > 0
                offset = 0
                array insert at bottom Devices()
                Devices().DeviceFamily = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_0 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_1 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_2 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_3 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_4 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().ID_5 = memblock word(iROM_blk, offset)
                inc offset, 2
                Devices().CRC_8 = memblock word(iROM_blk, offset)
                Devices().specification.description = "INVALID: UNINITIALIZED."
                wTemp = call dll(TMEXDLL, TMEX(TMGetFamilySpec), iSessionHandle, ...
                                 dwTempPtr, dwTempPtr2)
                if jzMakeWordIntValue(wTemp) > 0
                    offset = 0
                    Devices().specification.features.word_0 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_1 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_2 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_3 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_4 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_5 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_6 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_7 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_8 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_9 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_10 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_11 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_12 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_13 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_14 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_15 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_16 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_17 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_18 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_19 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_20 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_21 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_22 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_23 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_24 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_25 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_26 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_27 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_28 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_29 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_30 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_31 = ...
                        memblock word(spec_blk, offset)
                    dwTempPtr2 = get memblock ptr(temp_blk)
                    fill memory dwTempPtr2, 0x00, 255
                    copy memblock spec_blk, temp_blk, 64, 0, 255
                    Devices().specification.description = jzMakeDBString(temp_blk)
                endif
            endif
        endwhile
    else
        totalDevices = 0
        iEndSession = call dll(TMEXDLL, TMEX(TMEndSession), iSessionHandle)
    endif
    if spec_blk <> 0 and memblock exist(spec_blk) = 1 then delete memblock spec_blk
    if temp_blk <> 0 and memblock exist(temp_blk) = 1 then delete memblock temp_blk
endfunction totalDevices

remstart                        GetAdapterSpec()
        The 1-Wire Network TMEX API documentation has an incorrect prototype
        for this function call. You do not pass a pointer to the state buffer.
        The example code shows the correct format of this call, which is used
        here. Also, a return of 0 is not an error.
        MTB11.10.2006
remend

function GetAdapterSpec()
    local dwptr1 as dword
    local offset as dword
    local spec_blk as integer
    local temp_blk as integer
    local ireturn as integer

    rem 1. Initialize global variables to known values.

    Adapter.features.word_0 = 0x0000
    Adapter.features.word_1 = 0x0000
    Adapter.features.word_2 = 0x0000
    Adapter.features.word_3 = 0x0000
    Adapter.features.word_4 = 0x0000
    Adapter.features.word_5 = 0x0000
    Adapter.features.word_6 = 0x0000
    Adapter.features.word_7 = 0x0000
    Adapter.features.word_8 = 0x0000
    Adapter.features.word_9 = 0x0000
    Adapter.features.word_10 = 0x0000
    Adapter.features.word_11 = 0x0000
    Adapter.features.word_12 = 0x0000
    Adapter.features.word_13 = 0x0000
    Adapter.features.word_14 = 0x0000
    Adapter.features.word_15 = 0x0000
    Adapter.features.word_16 = 0x0000
    Adapter.features.word_17 = 0x0000
    Adapter.features.word_18 = 0x0000
    Adapter.features.word_19 = 0x0000
    Adapter.features.word_20 = 0x0000
    Adapter.features.word_21 = 0x0000
    Adapter.features.word_22 = 0x0000
    Adapter.features.word_23 = 0x0000
    Adapter.features.word_24 = 0x0000
    Adapter.features.word_25 = 0x0000
    Adapter.features.word_26 = 0x0000
    Adapter.features.word_27 = 0x0000
    Adapter.features.word_28 = 0x0000
    Adapter.features.word_29 = 0x0000
    Adapter.features.word_30 = 0x0000
    Adapter.features.word_31 = 0x0000
    Adapter.description = "INVALID! Uninitialized."

    rem 2.  Get a memblock for the data that is going to be returned.
    rem     Also, get a pointer for it to pass to the dll.

    spec_blk = jzGetNextAvailableMemblockID(1)
    make memblock spec_blk, 319
    dwptr1 = get memblock ptr(spec_blk)

    rem 3.  It is a very good practice to call GetValidSession() before
    rem     making any calls into the network. Here, it is only next door,
    rem     but the session can get invalidated. GetValidSession() attempts
    rem     to fix that.

    if GetValidSession()
        wTemp = call dll(TMEXDLL, TMEX(TMGetAdapterSpec), iSessionHandle, ...
                         dwptr1)
        ireturn = jzMakeWordIntValue(wTemp)

    rem 4.  Copy returned data into global variables.

        Adapter.features.word_0 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_1 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_2 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_3 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_4 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_5 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_6 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_7 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_8 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_9 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_10 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_11 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_12 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_13 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_14 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_15 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_16 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_17 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_18 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_19 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_20 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_21 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_22 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_23 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_24 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_25 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_26 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_27 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_28 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_29 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_30 = memblock word(spec_blk, offset)
        inc offset, 2
        Adapter.features.word_31 = memblock word(spec_blk, offset)

    rem N.B.    Here, it is easier to use a more generic routine to create a
    rem         DBPro string by copying the string data into a new memblock.

        temp_blk = jzGetNextAvailableMemblockID(1)
        make memblock temp_blk, 255
        dwptr1 = get memblock ptr(temp_blk)
        fill memory dwptr1, 0x00, 255
        copy memblock spec_blk, temp_blk, 64, 0, 255
        Adapter.description = jzMakeDBString(temp_blk)
        delete memblock spec_blk
        delete memblock temp_blk
    endif
endfunction ireturn

remstart
        These are general purpose routines for translating types, and basically
        to enable efficient use of some of the DBPro resources required. They
        were all gleaned from my DBPro utility source files.
remend

function jzMakeWordIntValue(wordvalue as word)
    local intValue as integer

    if wordvalue && 0x8000              rem This checks for a sign bit.
        intValue = wordvalue - 65536    rem Quick and dirty, but accurate...100%.
    else
        intValue = wordvalue
    endif
endfunction intValue

function jzGetNextAvailableMemblockID(seed as integer)
   local temp = seed

   if seed < 1 then exitfunction -1
   do
      if memblock exist(temp) = 0 then exitfunction temp
      inc temp
      if temp < 0 then exitfunction -1
   loop
endfunction -1

function jzGetNextAvailableDLLID(bDown as boolean, seed as integer)
   local temp = seed

   if seed < 1 or seed > 255 then exitfunction -1
   do
      if dll exist(temp) = 0 then exitfunction temp
      if bDown = 1
         dec temp
      else
         inc temp
      endif
      if temp < 1 or temp > 255 then exitfunction -1
   loop
endfunction -1

function jzMakeDBString(cstring_blockID as integer)
    local ivalue as integer
    local icount as integer
    local offset as integer
    local buildstr as string

    offset = 0
    icount = 0
    buildstr = ""
    ivalue = memblock byte(cstring_blockID, offset)
    while ivalue <> 0
        buildstr = buildstr + chr$(ivalue)
        inc offset
        inc icount
        if icount > 32767 then exitfunction buildstr
        ivalue = memblock byte(cstring_blockID, offset)
    endwhile
endfunction buildstr

function jzDupStr(character as string, numtimes as integer)
    local buildstr as string
    local i as integer

    buildstr = ""
    for i = 0 to numtimes - 1
        buildstr = buildstr + character
    next i
endfunction buildstr

Rem Project: bubble compass
Rem Created: 13/11/2006 13:59:07

Rem ***** Main Source File *****

`box 0,screen height()/2-10,screen width(),screen height()/2+10
set display mode 680,480,32
color backdrop 0
make light 1
position light 1,0,0,-30
box 0,screen height()/2-1,screen width(),screen height()/2+1
count = 5
lcount = 3
set image colorkey 0,255,0
cls RGB(0,255,0)
for i = 0 to screen width() step 3

if count = 5
count =1
inc lcount
box i,screen height()/2-10,i+1,screen height()/2+10
if lcount = 4
lcount=1
READ A$
TEXT I,screen height()/2-20,A$
endif
else
box i,screen height()/2-5,i+1,screen height()/2+5
inc count
endif
next i
get image 1,0,0,screen width()-4,screen height(),1
sync

cls rgb(0,255,0)
box screen width()/2-.5,0,screen width()/2+.5,screen height()
for i = 120 to 220 step 3
box screen width()/2-.5-5,i,screen width()/2+.5+5,i+1
next i

get image 2,0,0,screen width(),screen height(),1
sync

cls rgb(0,255,0)
box screen width()/2-.5,0,screen width()/2+.5,screen height()
for i = 250 to 350 step 3
box screen width()/2-.5-5,i,screen width()/2+.5+5,i+1
next i

get image 4,0,0,screen width(),screen height(),1
sync

cls rgb(0,255,0)
ink RGB(255,0,255),0
box 0,screen height()/2-1,screen width(),screen height()/2+1
get image 3,0,0,screen width(),screen height(),1
sync

cls rgb(0,255,0)
ink rgb(255,0,0),0
box screen width()/2-.5-10,screen height()/2,screen width()/2+.5+10,screen height()
get image 5,0,0,screen width(),screen height(),1
sync


make object sphere 1,10,50,50
make object sphere 2,9,50,50
make object sphere 3,10.2,50,50
make object sphere 4,9.7,50,50
make object sphere 5,9.3,50,50

texture object 2,1,1
texture object 1,2
texture object 3,3
texture object 4,4
texture object 5,5

SET OBJECT TRANSPARENCY 1,1
SET OBJECT TRANSPARENCY 2,1
set object transparency 3,1
set object transparency 4,1
set object transparency 5,1
w=110
do

yrotate object 2,wrapvalue(object angle y(2))-0.1
xrotate object 3,wrapvalue(90)+w

xrotate object 5,-15
sync
loop


data "N","NNE","NE","E","EES","ES","ESS","S","SSW","SW","SWW","W","WWN","WN","WWN","N"

REM Project: iButton
REM Created: 11/10/2006 11:34:11 PM
REM jinzai Silvis, IL USA
REM ***** Main Source File *****
REM 1-Wire Network Communications

remstart    This represents a complete DBPro interface to the TMEX API provided
            by Dallas Semiconductor for use of their 1-Wire Network and iButton
            devices. As of 11/13/2006, the entire API can be called. From now on,
            I will place changes here in chronological order, leading up to a
            version 1.0.0, which I will place in the code base, perhaps with
            some more information and sources for iButtons. I got onboard for
            less than $50USD, and it looks very interesting to me, with some
            potential game and game development uses. Stay tuned.
            mtb11.13.2006
remend

remstart    I have added the underpinnings of support for an additional layer
            of abstraction tonight, and also I have done a little tidying up,
            eliminating some unused variables, and also making some structures
            more specific. Notice the GetDevice functions. There will be more
            of those to come. Also, I have begun to expand the error checking.
            I will have full error reporting and also some error correcting
            later in the week. Then the entire connection will be more
            automatic, and easier to establish and maintain for the less savvy
            user. I might even add some troubleshooting help.
            mtb11.14.2006
remend

remstart    I added a NETCONNECTION type, and put almost all of the globals
            in it that are needed for a managed connection. I have exposed the
            connection through the global NETCONNECTION UDT, this. There are
            global functions to access almost all of the network connectivity.
            I have also cleaned the code up some more, and am keeping all returns
            by layer API in the this object. I continued to try to abstract the
            connection from the application layer somewhat. You can still
            manipulate it as before, but now it is accessed through the this
            object. Next, I will add more error reporting options, and add more
            functions for Devices and this.
            mtb11.15.2006
remend

rem Define some UDTs.

rem     I am smuggling this array into the specification type below. Now, when
rem     it comes out, it will look almost like a class. It is tantamount to a base
rem     class of type Device. The global functions are the member functions, and
rem     this stuff here is the class definition. It is also dynamic, and completely
rem     driven by the network/devices/and application. In fact, I could probably
rem     hide the actual data, too...but why bother? I've already got all the
rem     advantages of OOP without suffering the ills of BASIC too much.

type FEATURES
    regular_mem_pages               as word rem     regular pages, unsigned LSB first
    regular_mem_bytes_per_page      as word rem     bytes per page in regular memory
    status_mem_pages                as word rem     status pages, unsigned LSB first
    status_mem_bytes_per_page       as word rem     bytes per page in status memory
    max_speed                       as word rem     max communication speed: reg/OD/HD
    memory_type                     as word rem     memory type
                                            rem         0 = NOMEM
                                            rem         1 = NVRAM
                                            rem         2 = EPROM
                                            rem         3 = EPROM2
                                            rem         4 = EPROM3
                                            rem         5 = EEPROM1
                                            rem         6 = MNVRAM
                                            rem         7 = EEPROM2
                                            rem         8 = NVRAM2
                                            rem         9 = NVRAM3
    word_6                          as word rem     FUTURE EXPANSION.
    word_7                          as word rem     FUTURE EXPANSION.
    word_8                          as word rem     FUTURE EXPANSION.
    word_9                          as word rem     FUTURE EXPANSION.
    word_10                         as word rem     FUTURE EXPANSION.
    word_11                         as word rem     FUTURE EXPANSION.
    word_12                         as word rem     FUTURE EXPANSION.
    word_13                         as word rem     FUTURE EXPANSION.
    word_14                         as word rem     FUTURE EXPANSION.
    word_15                         as word rem     FUTURE EXPANSION.
    word_16                         as word rem     FUTURE EXPANSION.
    word_17                         as word rem     FUTURE EXPANSION.
    word_18                         as word rem     FUTURE EXPANSION.
    word_19                         as word rem     FUTURE EXPANSION.
    word_20                         as word rem     FUTURE EXPANSION.
    word_21                         as word rem     FUTURE EXPANSION.
    word_22                         as word rem     FUTURE EXPANSION.
    word_23                         as word rem     FUTURE EXPANSION.
    word_24                         as word rem     FUTURE EXPANSION.
    word_25                         as word rem     FUTURE EXPANSION.
    word_26                         as word rem     FUTURE EXPANSION.
    word_27                         as word rem     FUTURE EXPANSION.
    word_28                         as word rem     FUTURE EXPANSION.
    word_29                         as word rem     FUTURE EXPANSION.
    word_30                         as word rem     FUTURE EXPANSION.
    word_31                         as word rem     FUTURE EXPANSION.
endtype

rem This is an iButton device specification structure.

type SPECIFICATION
    features        as FEATURES
    description     as string
endtype

rem This is the iButton device structure definition.

type DEVICE
    DeviceFamily        as integer
    ID_0                as integer
    ID_1                as integer
    ID_2                as integer
    ID_3                as integer
    ID_4                as integer
    ID_5                as integer
    CRC_8               as integer
    specification       as SPECIFICATION
    reg_membuff_blk     as integer
    status_membuff_blk  as integer
endtype

rem This is a 1-Wire Network connection structure definition.

type NETCONNECTION
    ibfs32                  as integer
    portNumber              as word
    portType                as word
    sessionHandle           as integer
    setupReturn             as integer
    endSessionReturn        as integer
    sessionAPIReturn        as integer
    fileopsAPIReturn        as integer
    transportAPIReturn      as integer
    networkAPIReturn        as integer
    hardwareAPIReturn       as integer
    sessionFlags            as integer
    bSetup                  as boolean
    totalDevices            as integer
    ROM_blk                 as integer
    stateBuffer_blk         as integer
    adapter                 as SPECIFICATION
    sessionDLLVersion       as string
    adapterDLLVersion       as string
endtype

rem Helpful constants

#constant TRUE          = 1
#constant FALSE         = 0
#constant NULL          = 0
#constant NULLSTR       = ""

rem Here are some limits for things related to TMEX API and iButton devices.

#constant MAX_STATE_BUFFER          = 15360
#constant NO_EPROM_STATE_BUFFER     = 5120
#constant MSEC_DELAY                = 500

rem Here are the current memory types.

#constant NOMEM         = 0
#constant NVRAM         = 1
#constant EPROM         = 2
#constant EPROM2        = 3
#constant EPROM3        = 4
#constant EEPROM1       = 5
#constant MNVRAM        = 6
#constant EEPROM2       = 7
#constant NVRAM2        = 8
#constant NVRAM3        = 9

remstart
            These are indices for the function call names in the TMEX API dll,
            ibfs32.dll The string array TMEX contains the strings.
remend

rem         TMEX Session API
#constant TMExtendedStartSession    = 0
#constant TMStartSession            = 1
#constant TMValidSession            = 2
#constant TMEndSession              = 3
rem         TMEX File Operations API
#constant TMFirstFile               = 4
#constant TMNextFile                = 5
#constant TMOpenFile                = 6
#constant TMCreateFile              = 7
#constant TMCloseFile               = 8
#constant TMReadFile                = 9
#constant TMWriteFile               = 10
#constant TMDeleteFile              = 11
#constant TMFormat                  = 12
#constant TMAttribute               = 13
#constant TMReNameFile              = 14
#constant TMChangeDirectory         = 15
#constant TMDirectoryMR             = 16
#constant TMCreateProgramJob        = 17
#constant TMDoProgramJob            = 18
#constant TMWriteAddFile            = 19
#constant TMTerminateAddFile        = 20
#constant TMGetFamilySpec           = 21
#constant Get_Version               = 22
rem         TMEX Transport API
#constant TMReadPacket              = 23
#constant TMWritePacket             = 24
#constant TMBlockIO                 = 25
#constant TMExtendedReadPage        = 26
#constant TMProgramByte             = 27
#constant TMProgramBlock            = 28
#constant TMCRC                     = 29
rem         TMEX Network API
#constant TMFirst                   = 30
#constant TMNext                    = 31
#constant TMAccess                  = 32
#constant TMStrongAccess            = 33
#constant TMStrongAlarmAccess       = 34
#constant TMOverAccess              = 35
#constant TMRom                     = 36
#constant TMFirstAlarm              = 37
#constant TMNextAlarm               = 38
#constant TMFamilySearchSetup       = 39
#constant TMSkipFamily              = 40
#constant TMAutoOverDrive           = 41
#constant TMSearch                  = 42
rem         TMEX Hardware API
#constant TMSetup                   = 43
#constant TMTouchByte               = 44
#constant TMTouchReset              = 45
#constant TMTouchBit                = 46
#constant TMProgramPulse            = 47
#constant TMOneWireLevel            = 48
#constant TMOneWireCom              = 49
#constant TMClose                   = 50
#constant TMGetTypeVersion          = 51
#constant TMBlockStream             = 52
#constant TMReadDefaultPort         = 53
#constant TMGetAdapterSpec          = 54

remstart
            Returns from the TMEX API File operations group. Use for return values.
            The string array, TMEXFileIOReturn has the error text.
remend

#constant NO_DEVICE                 = -1
#constant WRONG_TYPE                = -2
#constant FILE_READ_ERR             = -3
#constant BUFFER_TOO_SMALL          = -4
#constant HANDLE_NOT_AVAIL          = -5
#constant FILE_NOT_FOUND            = -6
#constant REPEAT_FILE               = -7
#constant HANDLE_NOT_USED           = -8
#constant FILE_WRITE_ONLY           = -9
#constant OUT_OF_SPACE              = -10
#constant FILE_WRITE_ERR            = -11
#constant FILE_READ_ONLY            = -12
#constant FUNC_NOT_SUP              = -13
#constant BAD_FILENAME              = -14
#constant CANT_DEL_READ_ONLY        = -15
#constant HANDLE_NOT_EXIST          = -16
#constant ONE_WIRE_PORT_ERROR       = -17
#constant INVALID_DIRECTORY         = -18
#constant DIRECTORY_NOT_EMPTY       = -19
#constant UNABLE_TO_CREATE_DIR      = -20
#constant NO_PROGRAM_JOB            = -21
#constant PROGRAM_WRITE_PROTECT     = -22
#constant NON_PROGRAM_PARTS         = -23
#constant ADDFILE_TERMINATED        = -24
#constant INVALID_SESSION           = -200
#constant HS_NOT_FOUND              = -201


remstart
                Start of global variables.
remend

global tempStr1 as string = NULLSTR
global displayStr as string = NULLSTR
global timeStr as string = NULLSTR

global iTemp as integer = 0
global isetup as integer = 0
global temp as integer = 0
global screen_width as integer = 0
global screen_height as integer = 0
global mid_x as integer = 0
global mid_y as integer = 0


global this as NETCONNECTION

global lasttime as dword = 0
global nowtime as dword = 0
global timesegment as dword = 0

global milliseconds as integer = 0
global seconds as integer = 0
global minutes as integer = 0
global hours as integer = 0


global tick as boolean = FALSE

dim Devices() as DEVICE

remstart    TMEX is divided into APIs which correspond to the OSI 7-layer model.
            There are currently 55 functions in the API dll, ibfs32.dll
remend

dim TMEX(55) as string

rem         TMEX Session API function calls.

TMEX(TMExtendedStartSession) = "TMExtendedStartSession"
TMEX(TMStartSession) = "TMStartSession"
TMEX(TMValidSession) = "TMValidSession"
TMEX(TMEndSession) = "TMEndSession"

rem         TMEX File Operations API function calls.

TMEX(TMFirstFile) = "TMFirstFile"
TMEX(TMNextFile) = "TMNextFile"
TMEX(TMOpenFile) = "TMOpenFile"
TMEX(TMCreateFile) = "TMCreateFile"
TMEX(TMCloseFile) = "TMCloseFile"
TMEX(TMReadFile) = "TMReadFile"
TMEX(TMWriteFile) = "TMWriteFile"
TMEX(TMDeleteFile) = "TMDeleteFile"
TMEX(TMFormat) = "TMFormat"
TMEX(TMAttribute) = "TMAttribute"
TMEX(TMReNameFile) = "TMReNameFile"
TMEX(TMChangeDirectory) = "TMChangeDirectory"
TMEX(TMDirectoryMR) = "TMDirectoryMR"
TMEX(TMCreateProgramJob) = "TMCreateProgramJob"
TMEX(TMDoProgramJob) = "TMDoProgramJob"
TMEX(TMWriteAddFile) = "TMWriteAddFile"
TMEX(TMTerminateAddFile) = "TMTerminateAddFile"
TMEX(TMGetFamilySpec) = "TMGetFamilySpec"
TMEX(Get_Version) = "Get_Version"

rem         TMEX Transport API
TMEX(TMReadPacket) = "TMReadPacket"
TMEX(TMWritePacket) = "TMWritePacket"
TMEX(TMBlockIO) = "TMBlockIO"
TMEX(TMExtendedReadPage) = "TMExtendedReadPage"
TMEX(TMProgramByte) = "TMProgramByte"
TMEX(TMProgramBlock) = "TMProgramBlock"
TMEX(TMCRC) = "TMCRC"

rem         TMEX Network API function calls.

TMEX(TMFirst) = "TMFirst"
TMEX(TMNext) = "TMNext"
TMEX(TMAccess) = "TMAccess"
TMEX(TMStrongAccess) = "TMStrongAccess"
TMEX(TMStrongAlarmAccess) = "TMStrongAlarmAccess"
TMEX(TMOverAccess) = "TMOverAccess"
TMEX(TMRom) = "TMRom"
TMEX(TMFirstAlarm) = "TMFirstAlarm"
TMEX(TMNextAlarm) = "TMNextAlarm"
TMEX(TMFamilySearchSetup) = "TMFamilySearchSetup"
TMEX(TMSkipFamily) = "TMSkipFamily"
TMEX(TMAutoOverDrive) = "TMAutoOverDrive"
TMEX(TMSearch) = "TMSearch"

rem         TMEX Hardware API function calls.

TMEX(TMSetup) = "TMSetup"
TMEX(TMTouchByte) = "TMTouchByte"
TMEX(TMTouchReset) = "TMTouchReset"
TMEX(TMTouchBit) = "TMTouchBit"
TMEX(TMProgramPulse) = "TMProgramPulse"
TMEX(TMOneWireLevel) = "TMOneWireLevel"
TMEX(TMOneWireCom) = "TMOneWireCom"
TMEX(TMClose) = "TMClose"
TMEX(TMGetTypeVersion) = "TMGetTypeVersion"
TMEX(TMBlockStream) = "TMBlockStream"
TMEX(TMReadDefaultPort) = "TMReadDefaultPort"
TMEX(TMGetAdapterSpec) = "TMGetAdapterSpec"

dim TMEXSetupReturn(12) as string

TMEXSetupReturn(0) = "Setup failed."
TMEXSetupReturn(1) = "Setup ok."
TMEXSetupReturn(2) = "Setup ok, but 1-Wire network shorted."
TMEXSetupReturn(3) = "1-Wire network does not exist."
TMEXSetupReturn(4) = "TMSetup not supported."
TMEXSetupReturn(5) = "Port not initialized by call to TMSetup."
TMEXSetupReturn(6) = "1-Wire network does not exist."
TMEXSetupReturn(7) = "Function not supported."
TMEXSetupReturn(8) = "Failure to communicate with hardware adapter."
TMEXSetupReturn(9) = "Unsolicited event on 1-Wire network."
TMEXSetupReturn(10) = "Session not valid."
TMEXSetupReturn(11) = "Required hardware driver not found."

dim TMEXFileIOReturn(26) as string

TMEXFileIOReturn(0) = "Device not found."
TMEXFileIOReturn(1) = "Operation not suuported."
TMEXFileIOReturn(2) = "Read error."
TMEXFileIOReturn(3) = "Read buffer overrun."
TMEXFileIOReturn(4) = "Handle not available."
TMEXFileIOReturn(5) = "File not found."
TMEXFileIOReturn(6) = "File already exists."
TMEXFileIOReturn(7) = "Handle does not reference a file."
TMEXFileIOReturn(8) = "Attempt to read a write only file."
TMEXFileIOReturn(9) = "Out of space to write."
TMEXFileIOReturn(10) = "Device not found."
TMEXFileIOReturn(11) = "Write error. Possible unit malfunction."
TMEXFileIOReturn(12) = "Attempt to write a read only handle."
TMEXFileIOReturn(13) = "Function not supported."
TMEXFileIOReturn(14) = "Illegal name."
TMEXFileIOReturn(15) = "Cannot delete read only file."
TMEXFileIOReturn(16) = "1-Wire network error. Check setup."
TMEXFileIOReturn(17) = "Invalid directory."
TMEXFileIOReturn(18) = "Directory not empty."
TMEXFileIOReturn(19) = "Cannot exceed 10 directories in depth."
TMEXFileIOReturn(20) = "No program job started."
TMEXFileIOReturn(21) = "Program is write protected."
TMEXFileIOReturn(22) = "Non-EPROM parts detected during attempt to program."
TMEXFileIOReturn(23) = "Cannot append to terminated AddFile."
TMEXFileIOReturn(24) = "Session invalid."
TMEXFileIOReturn(25) = "Required hardware-specific driver not found."

dim deviceMemoryTypeStr(10) as string

deviceMemoryTypeStr(NOMEM) = "-NONE-"
deviceMemoryTypeStr(NVRAM) = "NVRAM"
deviceMemoryTypeStr(EPROM) = "EPROM"
deviceMemoryTypeStr(EPROM2) = "EPROM2"
deviceMemoryTypeStr(EPROM3) = "EPROM3"
deviceMemoryTypeStr(EEPROM1) = "EEPROM1"
deviceMemoryTypeStr(MNVRAM) = "MNVRAM"
deviceMemoryTypeStr(EEPROM2) = "EEPROM2"
deviceMemoryTypeStr(NVRAM2) = "NVRAM2"
deviceMemoryTypeStr(NVRAM3) = "NVRAM3"

remstart
        Here is a sort of laundry list of things about how DBPro and the
        1-Wire SDK do not marry up automatically, and what I do in each case.

        1. The TMEX API returns short integers in most cases. A notable exception
           is TMEXExtendedStartSession, which returns a long. That is the direct
           equivalent of DBPro's integer type. Nothing is done in that case, and
           iSessionHandle is used as is. DBPro will return a DWORD type, which
           has the unpleasant side-effect of destroying the sign of short integer
           returns from dlls if you use the return as a DWORD, or even as an
           integer. The function jzMakeWordIntValue is used when the TMEX API is
           trying to return a short integer to DBPro. It preserves the sign and
           value of the original dll return while converting to the DBPro integer
           type.
        2. Strings are C-style null terminated ASCII character arrays. I have
           provided translation to DBPro strings.
        3. Structures are passed via memory blocks, and DWORD pointers are used
           for passing addresses to the functions that require them.
        4. I ply DBPro's dynamic array capability to create a dynamic device
           array based on the UDT DEVICE. This type should be expanded to
           encompass all of the like data about iButtons. Currently, it does that
           for the most basic of all iButtons, the ID Button. I imagine a space for
           a memblock ID will be sufficient in most cases, but the file system,
           alarms and some of the other features will need specific attention.
        mtb11.12.2006
remend

rem ************************* START OF PROGRAM EXECUTION **********************
empty array Devices()
this.portNumber = 0xffff
this.portType = 0xffff
this.sessionHandle = -1
this.sessionAPIReturn = -1
this.fileopsAPIReturn = -1
this.transportAPIReturn = -1
this.networkAPIReturn = -1
this.hardwareAPIReturn = -1
this.bSetup = FALSE
this.totalDevices = 0
this.ROM_blk = 0
this.stateBuffer_blk = 0
this.adapter.features.regular_mem_pages = 0x0000
this.adapter.features.regular_mem_bytes_per_page = 0x0000
this.adapter.features.status_mem_pages = 0x0000
this.adapter.features.status_mem_bytes_per_page = 0x0000
this.adapter.features.max_speed = 0x0000
this.adapter.features.memory_type = 0x0000
this.adapter.features.word_6 = 0x0000
this.adapter.features.word_7 = 0x0000
this.adapter.features.word_8 = 0x0000
this.adapter.features.word_9 = 0x0000
this.adapter.features.word_10 = 0x0000
this.adapter.features.word_11 = 0x0000
this.adapter.features.word_12 = 0x0000
this.adapter.features.word_13 = 0x0000
this.adapter.features.word_14 = 0x0000
this.adapter.features.word_15 = 0x0000
this.adapter.features.word_16 = 0x0000
this.adapter.features.word_17 = 0x0000
this.adapter.features.word_18 = 0x0000
this.adapter.features.word_19 = 0x0000
this.adapter.features.word_20 = 0x0000
this.adapter.features.word_21 = 0x0000
this.adapter.features.word_22 = 0x0000
this.adapter.features.word_23 = 0x0000
this.adapter.features.word_24 = 0x0000
this.adapter.features.word_25 = 0x0000
this.adapter.features.word_26 = 0x0000
this.adapter.features.word_27 = 0x0000
this.adapter.features.word_28 = 0x0000
this.adapter.features.word_29 = 0x0000
this.adapter.features.word_30 = 0x0000
this.adapter.features.word_31 = 0x0000
this.adapter.description = "INVALID! Uninitialized."
this.sessionDLLVersion = "UNINITIALIZED."
this.adapterDLLVersion = "UNINITIALIZED."
set display mode 800, 600, 16
set window on
set window layout 1, 1, 1
sync on
sync rate 0
backdrop off
set text transparent
set text font "terminal"
set text size 18
set text to bold
screen_width = screen width()
screen_height = screen height()
mid_x = screen_width >> 1
mid_y = screen_height >> 1
lasttime = timer()
Initialize1WireNetwork()
do
    cls
    nowtime = timer()
    timesegment = nowtime - lasttime
    inc milliseconds, timesegment
    if milliseconds > 999
        inc seconds
        dec milliseconds, 1000
        tick = TRUE
        if seconds > 59
            inc minutes
            dec seconds, 60
            if minutes > 59
                inc hours
                dec minutes, 60
            endif
        endif
    endif
    center text mid_x, 0, "~~~~~~~~~~ 1-Wire Network ~~~~~~~~~~"
    set cursor 0, 20
    print "TMEX DLL version : " + Get1WireNetworkSessionDLLVersion()
    print "Adapter version : " + Get1WireNetworkAdapterDLLVersion()
    print "Adapter Description string : " + Get1WireNetworkAdapterDescription()
    print "Connect port = " + str$(Get1WireNetworkPortNumber()) + "/Type = " + ...
        str$(Get1WireNetworkPortType())
    isetup = Get1WireNetworkSetupReturn()
    if Is1WireNetworkAdapterSetup() = TRUE and isetup < 5
        print TMEXSetupReturn(isetup)
    else
        select isetup
            case -1
                print TMEXSetupReturn(5)
                endcase
            case -2
                print TMEXSetupReturn(6)
                endcase
            case -3
                print TMEXSetupReturn(7)
                endcase
            case -12
                print TMEXSetupReturn(8)
                endcase
            case -13
                print TMEXSetupReturn(9)
                endcase
            case -200
                print TMEXSetupReturn(10)
                endcase
            case -201
                print TMEXSetupReturn(11)
                endcase
            case default
                print "Setup returned "; isetup
                endcase
        endselect
    endif
    print "session handle : " + str$(Get1WireNetworkSessionHandle())
    print "Program runtime  : " + str$(hours) + " hours " + ...
                                  str$(minutes) + " minutes " + ...
                                  str$(seconds) + " seconds."
    print jzDupStr("~", 132)
    print space$(6) + "[-ROM ID-]" + space$(37) + "[-Description-]" + ...
            space$(35) + "[-Memory-]" + space$(4) + "[-Speed-]" + ...
            space$(4) + "[RMem]" + space$(4) + "[SMem]"
    print jzDupStr("~", 132)

    for temp = 0 to array count(Devices())
        print GetDeviceROMIDStr(temp) + space$(6) + ...
              GetDeviceName(temp) + "/" + GetDeviceAlternateName(temp) + " " + ...
              GetDeviceDescription(temp) + space$(12) + ...
              deviceMemoryTypeStr(GetDeviceMemoryType(temp)) + space$(16) + ...
              str$(GetDeviceMaxSpeed(temp)) + space$(12) + ...
              str$(GetDeviceRegularMemoryPages(temp)) + "/" + ...
              str$(GetDeviceRegularMemoryBytesPerPage(temp)) + space$(12) + ...
              str$(GetDeviceStatusMemoryPages(temp)) + "/" + ...
              str$(GetDeviceStatusMemoryBytesPerPage(temp))
    next temp
    lasttime = nowtime
    if tick = TRUE
        tick = FALSE
        GetValidSession()
    endif
    sync
loop

end

rem         **********************End Main Program*************************

remstart
        ibfs32.dll is the session dll. It provides the link into the 1-Wire
        Network's lower layers.
remend

remstart                        Initialize1WireNetwork()
        This routine is fairly straightforward. It gets some resources,
        and starts up the 1-Wire Network in accordance with the TMEX API
        design guidelines.
        MTB11.10.2006
remend

function Initialize1WireNetwork()
    local dwWordPtr1 as dword
    local dwWordPtr2 as dword
    local wTemp as word
    local temp as integer

    rem 1. Load DLL if necessary.

    if this.ibfs32 < 1
        this.ibfs32 = jzGetNextAvailableDLLID(FALSE, 1)
        load dll "ibfs32.dll", this.ibfs32
    endif

    rem 2. Get a buffer for the devices' ROM bytes.

    if this.ROM_blk = 0
        this.ROM_blk = jzGetNextAvailableMemblockID(1)
        make memblock this.ROM_blk, 16
    endif
    if this.stateBuffer_blk = 0
        this.stateBuffer_blk = jzGetNextAvailableMemblockID(1)
        make memblock this.stateBuffer_blk, MAX_STATE_BUFFER
    endif

    rem 3.  Get the ibfs32.dll version string and store globally.
    rem     ibfs32.dll will read the registry for a default port and type.
    rem     Get the adapter driver version string and store globally.

    this.sessionDLLVersion = NULLSTR
    this.sessionDLLVersion = space$(80)
    wTemp = call dll(this.ibfs32, TMEX(Get_Version), this.sessionDLLVersion)
    this.fileopsAPIReturn = jzMakeWordIntValue(wTemp)
    dwWordPtr1 = make memory(2)
    dwWordPtr2 = make memory(2)
    wTemp = call dll(this.ibfs32, TMEX(TMReadDefaultPort), ...
                     dwWordPtr1, dwWordPtr2)
    this.hardwareAPIReturn = jzMakeWordIntValue(wTemp)
    this.portNumber = *dwWordPtr1
    this.portType = *dwWordPtr2
    delete memory dwWordPtr1
    delete memory dwWordPtr2
    this.adapterDLLVersion = space$(80)
    wTemp = call dll(this.ibfs32, TMEX(TMGetTypeVersion), ...
                     this.portType, this.adapterDLLVersion)
    this.hardwareAPIReturn = jzMakeWordIntValue(wTemp)

    rem 4.  Start the session. You must call TMExtendedStartSession first.
    rem     Next, you must call TMSetup. TMGetAdapterSpec is not necessary,
    rem     but it pays to know about the adapter's capabilities up front.

    temp = GetSessionHandle(this.sessionFlags)
    if this.sessionHandle > 0 and this.bSetup
        if GetAdapterSpec() > 0
            EnumerateDevices()
        endif
    endif
endfunction TRUE

function GetSessionHandle(sessionflags as DWORD)
    local dwptr as dword
    local wTemp as word

    dwptr = make memory(4)
    *dwptr = sessionflags
    this.sessionHandle = call dll(this.ibfs32, TMEX(TMExtendedStartSession), ...
                                  this.portNumber, this.portType, dwptr)
    delete memory dwptr
    if this.sessionHandle > 0
        this.endSessionReturn = 0
        if this.bSetup = FALSE
            wTemp = call dll(this.ibfs32, TMEX(TMSetup), this.sessionHandle)
            this.hardwareAPIReturn = jzMakeWordIntValue(wTemp)
            this.setupReturn = this.hardwareAPIReturn
            if this.setupReturn > 0
                this.bSetup = TRUE
            endif
        endif
    else
        exitfunction 0
    endif
endfunction this.sessionHandle

function GetValidSession()
    local iValid as integer
    local wTemp as word

    wTemp = call dll(this.ibfs32, TMEX(TMValidSession), this.sessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid <> 1
        iValid = GetSessionHandle(dwSessionFlags)
        if iValid <> 0
            EnumerateDevices()
        else
            this.totalDevices = 0
            if array count(Devices()) <> -1
                empty array Devices()
            endif
        endif
    endif
endfunction iValid

function ShutDown()
    local iValid as integer
    local wTemp as word

    wTemp = call dll(this.ibfs32, TMEX(TMValidSession), this.sessionHandle)
    iValid = jzMakeWordIntValue(wTemp)
    if iValid
        this.sessionAPIReturn = call dll(this.ibfs32, TMEX(TMEndSession), ...
                                         this.sessionHandle)
        this.endSessionReturn = this.sessionAPIReturn
    endif
    if this.ibfs32 > 0 and this.ibfs32 < 256
        delete dll this.ibfs32
        this.ibfs32 = 0
    endif
    if this.stateBuffer_blk <> 0
        delete memory this.stateBuffer_blk
        this.stateBuffer_blk = 0
    endif
    if this.ROM_blk > 0 and memblock exist(this.ROM_blk) = 1
        delete memblock this.ROM_blk
    endif
endfunction

function EnumerateDevices()
    local totalDevices as integer = 0
    local count as integer = 0
    local dwROMptr as dword = 0
    local dwTempPtr as dword = 0
    local dwTempPtr2 as dword = 0
    local offset as integer = 0
    local spec_blk as integer = 0
    local temp_blk as integer = 0
    local wTemp as word

    rem 1.  Always a good idea to do this, although the first time it should
    rem     be empty already.

    empty array Devices()
    this.totalDevices = 0
    rem 2.  TMFirst and TMNext require a pointer to a state buffer.

    dwTempPtr = get memblock ptr(this.stateBuffer_blk)
    fill memory dwTempPtr, 0x00, MAX_STATE_BUFFER
    dwROMptr = get memblock ptr(this.ROM_blk)
    fill memory dwROMptr, 0x00, 16
    wTemp = call dll(this.ibfs32, TMEX(TMFirst), this.sessionHandle, dwTempPtr)
    this.networkAPIReturn = jzMakeWordIntValue(wTemp)
    if this.networkAPIReturn > 0
        spec_blk = jzGetNextAvailableMemblockID(1)
        make memblock spec_blk, 319
        dwTempPtr2 = get memblock ptr(spec_blk)
        fill memory dwTempPtr2, 0x00, 319
        wTemp = call dll(this.ibfs32, TMEX(TMRom), this.sessionHandle, dwTempPtr, ...
                         dwROMptr)
        this.networkAPIReturn = jzMakeWordIntValue(wTemp)
        if this.networkAPIReturn > 0
            offset = 0
            this.totalDevices = 1
            array insert at bottom Devices()
            Devices().DeviceFamily = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_0 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_1 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_2 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_3 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_4 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().ID_5 = memblock word(this.ROM_blk, offset)
            inc offset, 2
            Devices().CRC_8 = memblock word(this.ROM_blk, offset)
            Devices().specification.description = "INVALID: UNINITIALIZED."
            wTemp = call dll(this.ibfs32, TMEX(TMGetFamilySpec), ...
                             this.sessionHandle, dwTempPtr, dwTempPtr2)
            this.fileopsAPIReturn = jzMakeWordIntValue(wTemp)
            if this.fileopsAPIReturn > 0
                offset = 0
                Devices().specification.features.regular_mem_pages = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.regular_mem_bytes_per_page = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.status_mem_pages = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.status_mem_bytes_per_page = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.max_speed = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.memory_type = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_6 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_7 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_8 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_9 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_10 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_11 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_12 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_13 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_14 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_15 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_16 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_17 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_18 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_19 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_20 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_21 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_22 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_23 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_24 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_25 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_26 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_27 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_28 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_29 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_30 = ...
                    memblock word(spec_blk, offset)
                inc offset, 2
                Devices().specification.features.word_31 = ...
                    memblock word(spec_blk, offset)
                temp_blk = jzGetNextAvailableMemblockID(1)
                make memblock temp_blk, 255
                dwTempPtr2 = get memblock ptr(temp_blk)
                fill memory dwTempPtr2, 0x00, 255
                copy memblock spec_blk, temp_blk, 64, 0, 255
                Devices().specification.description = ...
                    jzMakeDBString(temp_blk, 255)
                Devices().reg_membuff_blk = -1
                Devices().status_membuff_blk = -1
            endif
        endif
        while this.networkAPIReturn > 0
            wTemp = call dll(this.ibfs32, TMEX(TMNext), this.sessionHandle, ...
                             dwTempPtr)
            this.networkAPIReturn = jzMakeWordIntValue(wTemp)
            if this.networkAPIReturn < 1 then exit
            inc this.totalDevices
            write memblock word this.ROM_blk, 0, 0x0000
            dwTempPtr2 = get memblock ptr(spec_blk)
            fill memory dwTempPtr2, 0x00, 319
            wTemp = call dll(this.ibfs32, TMEX(TMRom), this.sessionHandle, ...
                             dwTempPtr, dwROMptr)
            this.networkAPIReturn = jzMakeWordIntValue(wTemp)
            if this.networkAPIReturn > 0
                offset = 0
                array insert at bottom Devices()
                Devices().DeviceFamily = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_0 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_1 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_2 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_3 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_4 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().ID_5 = memblock word(this.ROM_blk, offset)
                inc offset, 2
                Devices().CRC_8 = memblock word(this.ROM_blk, offset)
                Devices().specification.description = ...
                    "INVALID: UNINITIALIZED."
                wTemp = call dll(this.ibfs32, TMEX(TMGetFamilySpec), ...
                                 this.sessionHandle, dwTempPtr, dwTempPtr2)
                this.fileopsAPIReturn = jzMakeWordIntValue(wTemp)
                if this.fileopsAPIReturn > 0
                    offset = 0
                    Devices().specification.features.regular_mem_pages = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.regular_mem_bytes_per_page = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.status_mem_pages = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.status_mem_bytes_per_page = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.max_speed = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.memory_type = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_6 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_7 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_8 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_9 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_10 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_11 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_12 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_13 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_14 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_15 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_16 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_17 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_18 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_19 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_10 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_21 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_22 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_23 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_24 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_25 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_26 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_27 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_28 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_29 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_30 = ...
                        memblock word(spec_blk, offset)
                    inc offset, 2
                    Devices().specification.features.word_31 = ...
                        memblock word(spec_blk, offset)
                    dwTempPtr2 = get memblock ptr(temp_blk)
                    fill memory dwTempPtr2, 0x00, 255
                    copy memblock spec_blk, temp_blk, 64, 0, 255
                    Devices().specification.description = ...
                        jzMakeDBString(temp_blk, 255)
                    Devices().reg_membuff_blk = -1
                    Devices().status_membuff_blk = -1
                endif
            endif
        endwhile
    else
        this.sessionAPIReturn = call dll(this.ibfs32, TMEX(TMEndSession), ...
                                         this.sessionHandle)
        this.endSessionReturn = this.sessionAPIReturn
    endif
    if spec_blk <> 0 and memblock exist(spec_blk) = 1
        delete memblock spec_blk
    endif
    if temp_blk <> 0 and memblock exist(temp_blk) = 1
        delete memblock temp_blk
    endif
endfunction

remstart                        GetAdapterSpec()
        The 1-Wire Network TMEX API documentation has an incorrect prototype
        for this function call. You do not pass a pointer to the state buffer.
        The example code shows the correct format of this call, which is used
        here. Also, a return of 0 is not an error.
        MTB11.10.2006
remend

function GetAdapterSpec()
    local dwptr1 as dword
    local offset as dword
    local spec_blk as integer
    local temp_blk as integer
    local ireturn as integer
    local wTemp as word

    rem 1. Initialize global variables to known values.

    this.adapter.features.regular_mem_pages = 0x0000
    this.adapter.features.regular_mem_bytes_per_page = 0x0000
    this.adapter.features.status_mem_pages = 0x0000
    this.adapter.features.status_mem_bytes_per_page = 0x0000
    this.adapter.features.max_speed = 0x0000
    this.adapter.features.memory_type = 0x0000
    this.adapter.features.word_6 = 0x0000
    this.adapter.features.word_7 = 0x0000
    this.adapter.features.word_8 = 0x0000
    this.adapter.features.word_9 = 0x0000
    this.adapter.features.word_10 = 0x0000
    this.adapter.features.word_11 = 0x0000
    this.adapter.features.word_12 = 0x0000
    this.adapter.features.word_13 = 0x0000
    this.adapter.features.word_14 = 0x0000
    this.adapter.features.word_15 = 0x0000
    this.adapter.features.word_16 = 0x0000
    this.adapter.features.word_17 = 0x0000
    this.adapter.features.word_18 = 0x0000
    this.adapter.features.word_19 = 0x0000
    this.adapter.features.word_20 = 0x0000
    this.adapter.features.word_21 = 0x0000
    this.adapter.features.word_22 = 0x0000
    this.adapter.features.word_23 = 0x0000
    this.adapter.features.word_24 = 0x0000
    this.adapter.features.word_25 = 0x0000
    this.adapter.features.word_26 = 0x0000
    this.adapter.features.word_27 = 0x0000
    this.adapter.features.word_28 = 0x0000
    this.adapter.features.word_29 = 0x0000
    this.adapter.features.word_30 = 0x0000
    this.adapter.features.word_31 = 0x0000
    this.adapter.description = "INVALID! Uninitialized."

    rem 2.  Get a memblock for the data that is going to be returned.
    rem     Also, get a pointer for it to pass to the dll.

    spec_blk = jzGetNextAvailableMemblockID(1)
    make memblock spec_blk, 319
    dwptr1 = get memblock ptr(spec_blk)

    rem 3.  It is a very good practice to call GetValidSession() before
    rem     making any calls into the network. Here, it is only next door,
    rem     but the session can get invalidated. GetValidSession() attempts
    rem     to fix that.

    if GetValidSession()
        wTemp = call dll(this.ibfs32, TMEX(TMGetAdapterSpec), this.sessionHandle, ...
                         dwptr1)
        this.hardwareAPIReturn = jzMakeWordIntValue(wTemp)
        if this.hardwareAPIReturn = 1

    rem 4.  Copy returned data into global variables.

            this.adapter.features.regular_mem_pages = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.regular_mem_bytes_per_page = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.status_mem_pages = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.status_mem_bytes_per_page = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.max_speed = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.memory_type = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_6 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_7 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_8 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_9 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_10 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_11 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_12 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_13 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_14 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_15 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_16 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_17 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_18 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_19 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_20 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_21 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_22 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_23 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_24 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_25 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_26 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_27 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_28 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_29 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_30 = ...
                memblock word(spec_blk, offset)
            inc offset, 2
            this.adapter.features.word_31 = ...
                memblock word(spec_blk, offset)

    rem N.B.    Here, it is easier to use a more generic routine to create a
    rem         DBPro string by copying the string data into a new memblock.

            temp_blk = jzGetNextAvailableMemblockID(1)
            make memblock temp_blk, 255
            dwptr1 = get memblock ptr(temp_blk)
            fill memory dwptr1, 0x00, 255
            copy memblock spec_blk, temp_blk, 64, 0, 255
            this.adapter.description = jzMakeDBString(temp_blk, 255)
            delete memblock temp_blk
        endif
    endif
    delete memblock spec_blk
endfunction this.hardwareAPIReturn

remstart ************************************************************************
            Here are the class member functions for 1-Wire Network connections.
         ******************************************************************remend

function Get1WireNetworkSessionDLLVersion()
endfunction this.sessionDLLVersion

function Get1WireNetworkAdapterDLLVersion()
endfunction this.adapterDLLVersion

function Get1WireNetworkAdapterDescription()
endfunction this.adapter.description

function Get1WireNetworkSessionHandle()
endfunction this.sessionHandle

function Get1WireNetworkPortNumber()
    local i as integer
    i = int(this.portNumber)
endfunction i

function Get1WireNetworkPortType()
    local i as integer
    i = int(this.portType)
endfunction i

function Get1WireNetworkFileOperationsAPIReturn()
endfunction this.fileopsAPIReturn

function Get1WireNetworkTransportAPIReturn()
endfunction this.transportAPIReturn

function Get1WireNetworkNetworkAPIReturn()
endfunction this.networkAPIReturn

function Get1WireNetworkHardwareAPIReturn()
endfunction this.hardwareAPIReturn

function Is1WireNetworkAdapterSetup()
endfunction this.bSetup

function Get1WireNetworkSetupReturn()
endfunction this.setupReturn

function Get1WireNetworkTotalDevices()
    i as integer = array count(Devices())
    if i = -1 then i = 0
endfunction i

remstart ******************************************************************
            Here are the class member functions for Devices.
         ******************************************************************remend

function GetDeviceROMIDStr(device as integer)
    local ROMIDstr as string = "Device number INVALID."
    local tempstr1 as string
    local tempstr2 as string
    local tempstr3 as string
    local tempstr4 as string
    local tempstr5 as string
    local tempstr6 as string
    local tempstr7 as string
    local tempstr8 as string

    if device > -1 and device < array count(Devices()) + 1
        ROMIDstr = NULLSTR
        tempstr1 = hex$(int(Devices(device).CRC_8))
        tempstr2 = hex$(int(Devices(device).ID_5))
        tempstr3 = hex$(int(Devices(device).ID_4))
        tempstr4 = hex$(int(Devices(device).ID_3))
        tempstr5 = hex$(int(Devices(device).ID_2))
        tempstr6 = hex$(int(Devices(device).ID_1))
        tempstr7 = hex$(int(Devices(device).ID_0))
        tempstr8 = hex$(int(Devices(device).DeviceFamily))
        if len(tempstr1) = 1
            ROMIDstr = "0"
        endif
        ROMIDstr = ROMIDstr + tempstr1
        if len(tempstr2) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr2
        if len(tempstr3) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr3
        if len(tempstr4) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr4
        if len(tempstr5) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr5
        if len(tempstr6) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr6
        if len(tempstr7) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr7
        if len(tempstr8) = 1
            ROMIDstr = ROMIDstr + "0"
        endif
        ROMIDstr = ROMIDstr + tempstr8
    endif
endfunction ROMIDstr

function GetDeviceSpecification(device as integer)
    local devicenamestr as string = "Device number INVALID."

    if device > -1 and device < array count(Devices()) + 1
        devicenamestr = Devices(device).specification.description
    endif
endfunction devicenamestr

function GetDeviceName(device as integer)
    local devicenamestr as string = "Device number INVALID."

    if device > -1 and device < array count(Devices()) + 1
        devicenamestr = jzGetToken(Devices(device).specification.description, 1, ",")
    endif
endfunction devicenamestr

function GetDeviceAlternateName(device as integer)
    local devicenamestr as string = "Device number INVALID."

    if device > -1 and device < array count(Devices()) + 1
        devicenamestr = jzGetToken(Devices(device).specification.description, 2, ",")
    endif
endfunction devicenamestr

function GetDeviceDescription(device as integer)
    local devicenamestr as string = "Device number INVALID."

    if device > -1 and device < array count(Devices()) + 1
        devicenamestr = jzGetToken(Devices(device).specification.description, 3, ",")
    endif
endfunction devicenamestr

function GetDeviceMaxSpeed(device as integer)
    local max_speed as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        max_speed = Devices(device).specification.features.max_speed
    endif
endfunction max_speed

function GetDeviceMemoryType(device as integer)
    local memory_type as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        memory_type = Devices(device).specification.features.memory_type
    endif
endfunction memory_type

function GetDeviceRegularMemoryPages(device as integer)
    local memory_pages as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        memory_pages = Devices(device).specification.features.regular_mem_pages
    endif
endfunction memory_pages

function GetDeviceRegularMemoryBytesPerPage(device as integer)
    local bytes_per_page as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        bytes_per_page = ...
            Devices(device).specification.features.regular_mem_bytes_per_page
    endif
endfunction bytes_per_page

function GetDeviceStatusMemoryPages(device as integer)
    local memory_pages as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        memory_pages = Devices(device).specification.features.status_mem_pages
    endif
endfunction memory_pages

function GetDeviceStatusMemoryBytesPerPage(device as integer)
    local bytes_per_page as integer = -1

    if device > -1 and device < array count(Devices()) + 1
        bytes_per_page = ...
            Devices(device).specification.features.status_mem_bytes_per_page
    endif
endfunction bytes_per_page

remstart ************************************************************************
            These are general purpose routines for translating types, and basically
            to enable efficient use of some of the DBPro resources required. They
            were all gleaned from my DBPro utility source files.
         ******************************************************************** remend

function jzMakeWordIntValue(wordvalue as word)
    local intValue as integer

    if wordvalue && 0x8000              rem This checks for a sign bit.
        intValue = wordvalue - 65536    rem Quick and dirty, but accurate...100%.
    else
        intValue = wordvalue
    endif
endfunction intValue

function jzGetNextAvailableMemblockID(seed as integer)
   local temp = seed

   if seed < 1 then exitfunction -1
   do
      if memblock exist(temp) = 0 then exitfunction temp
      inc temp
      if temp < 0 then exitfunction -1
   loop
endfunction -1

function jzGetNextAvailableDLLID(bDown as boolean, seed as integer)
   local temp = seed

   if seed < 1 or seed > 255 then exitfunction -1
   do
      if dll exist(temp) = 0 then exitfunction temp
      if bDown = 1
         dec temp
      else
         inc temp
      endif
      if temp < 1 or temp > 255 then exitfunction -1
   loop
endfunction -1

function jzMakeDBString(cstring_blockID as integer, maxLength as integer)
    local ivalue as integer
    local icount as integer
    local offset as integer
    local buildstr as string

    offset = 0
    icount = 0
    buildstr = ""
    ivalue = memblock byte(cstring_blockID, offset)
    while ivalue <> 0
        buildstr = buildstr + chr$(ivalue)
        inc offset
        inc icount
        if icount > maxLength then exitfunction buildstr
        ivalue = memblock byte(cstring_blockID, offset)
    endwhile
endfunction buildstr

function jzDupStr(character as string, numtimes as integer)
    local buildstr as string
    local i as integer

    buildstr = ""
    for i = 0 to numtimes - 1
        buildstr = buildstr + character
    next i
endfunction buildstr

function jzGetToken(inputstr as string, token as integer, delimiter as string)
    local count as integer
    local found as integer = 0
    local buildstr as string = NULLSTR

    for count = 0 to len(inputstr)
        if mid$(inputstr, count) = delimiter
            inc found
            if found = token
                exitfunction buildstr
            else
                buildstr = ""
            endif
        else
            buildstr = buildstr + mid$(inputstr, count)
        endif
    next count
endfunction buildstr