I have an old DOS program that needs a small extension. But -- I
run out of memory, Error 7.
This happens late in the program, in a SUBroutine that prepares
and then prints an output file to a Windows printer. The error
pops up right after the MEMPACK statement.
Since POPUP loads the program intp EMS memory to make room for
the following code I thought that POPUP could be my savior.
Never tried POPUp before. Below is the code snippet to show you
what I did. The DOSPrint is to start after a simple <Enter> key
press, nothing fancey. The program compiles but does not run.
Apparently it does not like the SHELL statement?
The OUTGO$ + E$ is the assembled output file ready to be printed.
' MEMPACK
Do
PopUp Key CHR$(0, &H1C)
dummy1& = setmem (-600000)
PopUp sleep USING EMS
cursorx = pos
cursory = csrlin
def seg = &hb800
savescreen$ = peek$(0, 4000)
SHELL DRV+":\WINLINK.EXE DOSPRINT.EXE " + OUTGO$+E$
DELAY 3
locate cursory, cursorx
def seg = &hb800
poke$ 0, savescreen$
PopUp sleep
loop until 0
Does anybody have an idea what to do?
------------------
run out of memory, Error 7.
This happens late in the program, in a SUBroutine that prepares
and then prints an output file to a Windows printer. The error
pops up right after the MEMPACK statement.
Since POPUP loads the program intp EMS memory to make room for
the following code I thought that POPUP could be my savior.
Never tried POPUp before. Below is the code snippet to show you
what I did. The DOSPrint is to start after a simple <Enter> key
press, nothing fancey. The program compiles but does not run.
Apparently it does not like the SHELL statement?
The OUTGO$ + E$ is the assembled output file ready to be printed.
' MEMPACK
Do
PopUp Key CHR$(0, &H1C)
dummy1& = setmem (-600000)
PopUp sleep USING EMS
cursorx = pos
cursory = csrlin
def seg = &hb800
savescreen$ = peek$(0, 4000)
SHELL DRV+":\WINLINK.EXE DOSPRINT.EXE " + OUTGO$+E$
DELAY 3
locate cursory, cursorx
def seg = &hb800
poke$ 0, savescreen$
PopUp sleep
loop until 0
Does anybody have an idea what to do?
------------------
Comment