Re: copying BIOS to a file

On Tue, 18 Dec 2007 18:28:57 GMT, Tom Lake wrote:

> "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 

How about:
OPEN "BIOS.BIN" FOR OUTPUT AS 1
FOR J = &HC0000 TO &HF0000 STEP &h10000
DEF SEG J
FOR I = 0 TO &hFFFF
PRINT #1, CHR$(PEEK(I));
NEXT I
NEXT J
CLOSE 1

-- 
- I can't believe those words just came out of my mouth.
- Better those words than those teeth.