Re: copying BIOS to a file

"H-Man" <I-Hate@[EMAIL PROTECTED]
> wrote in message 
news:476809be$0$40805$892e0abb@[EMAIL PROTECTED]
> On Tue, 18 Dec 2007 12:22:35 -0500, Tom Lake wrote:
>
>> "Allan Adler" <ara@[EMAIL PROTECTED]
> wrote in message
>> news:y93zlw855oj.fsf@[EMAIL PROTECTED]
>>>I have FREEDOS installed on a partition of one of my old machines.
>>> I also have gwbasic on it. I'd like to write a basic program that will
>>> copy the ROM BIOS of the machine (locations 0xC0000 to 0xFFFFF) to
>>> a file. I think I can remember how to use peek but I don't know how
>>> to write stuff to a file in gwbasic. How is this done? The program
>>> can probably be written in just a few lines. If someone feels like
>>> just writing it and posting it, that would be very helpful. Thanks.

> Tom
> Would he not have to cover SEG &HD000 and SEG &HE000 as well? Or am I
> missing something?

It looks like I was missing something!  I believe you're right.

DEF SEG = &HC000
OPEN "BIOS.BIN" FOR OUTPUT AS #1
FOR I=0 TO &HFFFF
PRINT #1, CHR$(PEEK(I));
NEXT
DEF SEG=&HD000
FOR I=0 TO &HFFFF
PRINT #1, CHR$(PEEK(I));
NEXT
DEF SEG=&HE000
FOR I=0 TO &HFFFF
PRINT #1, CHR$(PEEK(I));
NEXT
DEF SEG=&HF000
FOR I=0 TO &HFFFF
PRINT #1, CHR$(PEEK(I));
NEXT
CLOSE #1

Tom Lake