$IF 0
UPDATE TO ARRAYDESC32():
Although the ARRAYDESC32() included with the kludge file ARRDESC.BAS
that I recently posted works for the demo, it contains a glitch that
I overlooked.... It converts a DWORD to an INTEGER... (oops!) by
moving a DWORD into the AX register thus:
! mov ax, Desc
! mov FUNCTION, ax
The following is a safer version. It seems I posted the wrong version
of the file in the echo.
Jamshid
$ENDIF
FUNCTION ARRAYDESC32 (ANY) AS DWORD
DIM Desc AS DWORD
! mov ax, [bp+6]
! mov bx, [bp+8]
! mov Desc[0], ax
! mov Desc[2], bx
FUNCTION = Desc
END FUNCTION
--- Maximus/2 2.01wb
---------------
* Origin: Sound Stage BBS - Live Via Satellite - (604)944-6476 (1:153/7070)
|