Re: Transfer a 8250 diskette

That's fantastic! I'm eager to get my proxa7000 board working now! Thanks for finding, transferring and posting for all to enjoy!

Steve


On Nov 5, 2011, at 4:40 PM, r.lagendijk@hccnet.nl wrote:

> Hi all,
> 
> Good news, I transfered all the files. It took me all Saturday but it
> worked. I used my small BASIC program with the addition of chr$(0).
> 
> I transfered all the files from the 8250lp to the Micro Power 2000. Then I
> took those disks and put them into a 1541 and with Star Commander I put
> them on a PC. Then with USB to my laptop. Then I transfered the 1541 files
> to a 8250 with VICE.
> 
> The disks are for the Proxa 7000 expansion for the PET 700.
> http://www.richardlagendijk.nl/cip/brochure/item/proxa_7000_01/en
> 
> Here are the disks:
> http://www.richardlagendijk.nl/div/proxa7000.d82
> http://www.richardlagendijk.nl/div/proxa7000+++.d82
> 
> Thank you all for helping me.
> And maybe now we can get a Proxa 7000 up and running.
> 
> Richard
> 
> 
> 
> 
> 
> Op Za, 5 november, 2011 8:02 pm schreef Ed Johnson:
>> 
> 
>> 
>> To scratch an existing file before writing it use the "@S"
>> open 3,9,3,"@S0:"+nm$+",p,w"
>> 
>> Best regards,
>> Ed Johnson
>> 
>> 
>> "What ever you do, don't look back." - God
>> 
>> 
>> -----Original Message-----
>> From: owner-cbm-hackers@musoftware.de
>> [mailto:owner-cbm-hackers@musoftware.de] On Behalf Of Spiro Trikaliotis
>> Sent: Saturday, November 05, 2011 2:05 PM
>> To: cbm-hackers@musoftware.de
>> Subject: Re: Transfer a 8250 diskette
>> 
>> 
>> Hello,
>> 
>> 
>> just to add what Nicolas already wrote (chr$(0)::
>> 
>> * On Sat, Nov 05, 2011 at 12:34:24PM +0100 r.lagendijk@hccnet.nl wrote:
>> 
>> 
>>> 
>>> 10 nm$="8032-700-asc-ns"
>>> 20 open 2,8,2,"1:"+nm$+",p,r"
>>> 30 open 3,9,3,"0:"+nm$+",p,w"
>>> 40 get#2,a$
>>> 50 if st=64 then goto 80
>>> 
>> 
>> IIRC, this is wrong. ST=64 is set when you just read the last byte.
>> Thus, you end with a file that is one byte shorter than the original one.
>> 
>> 
>> So, you have to "print#3,a$;" *before* doing the check in line 50.
>> 
>> 
>> thus, change it to:
>> 
>> 45 print#3,a$;
>> 50 if st=64 then goto 80
>> 60 goto 40
>> 
>> 
>> Or, what is seen most often:
>> 
>> 
>> 50 print#3,a$;
>> 60 if st<>64 goto 80
>> 
>> 
>>> 60 print#3,a$;:goto 40
>>> 80 close 2:close 3
>>> 90 end
>>> 
>> 
>> And don't forget to add something like
>> 
>> 
>> 42 if a$="" then a$=chr$(0)
>> 
>> 
>> or similar logic.
>> 
>> Regards,
>> Spiro.
>> 
>> 
>> --
>> Spiro R. Trikaliotis                              http://opencbm.sf.net/
>> http://www.trikaliotis.net/                     http://www.viceteam.org/
>> 
>> 
>> Message was sent through the cbm-hackers mailing list
>> 
>> 
>> 
>> Message was sent through the cbm-hackers mailing list
>> 
>> 
> 
> 
> -- 
> 
> www.richardlagendijk.nl
> 
> 
>       Message was sent through the cbm-hackers mailing list

       Message was sent through the cbm-hackers mailing list