💾 Archived View for mirrors.apple2.org.za › archive › apple.cabi.net › FAQs.and.INFO › DOSandProDOS … captured on 2023-01-29 at 07:46:49.
-=-=-=-=-=-=-
Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!math.ohio-state.edu!howland.reston.ans.net!spool.mu.edu!carroll1.cc.edu!carroll1.cc.edu!not-for-mail
From: rkneusel@carroll1.cc.edu (Ron Kneusel)
Newsgroups: comp.sys.apple2
Subject: Re: Apple II emulator for Mac
Date: 3 Mar 1994 10:09:42 -0600
Organization: The Carroll College InterNet News site
Lines: 120
Message-ID: <2l5246$r4b@carroll1.cc.edu>
NNTP-Posting-Host: carroll1.cc.edu
To all:
Are you enjoying Kevin's Apple II+ emulator but having trouble
getting your old DOS 3.3 disks transfered? This _might_ be of use to
you...
At the end of this post is a small Applesoft program to read a DOS 3.3
diskette to a file. It _must_ be run under ProDOS, however, as it uses
the ProDOS READ_BLOCK and WRITE MLI commands.
Who should use this?
--------------------
This program is not going to be useful to everyone, in fact, it might
be useful to only a handful of people, but if it is, it should save
you a good amount of time.
Use this program if one of the following applies to you:
1. You have an Apple IIe, IIc or II+ with a RAM card bigger than 140K or
a 3.5 inch floppy drive. If you have the floppy you do not need
the RAM card.
2. You have access (like me) to a Mac LC series with an Apple IIe card.
3. You have an Apple IIe, IIc or II+ with a RAM card bigger than 140K, a
modem and an account somewhere (like on a Unix or VAX machine) with
enough disk storage for the disk image file (143,360 bytes).
How to use it?
--------------
All users: Get everything below the line '>> CUT HERE <<' into a
text file on your Apple (remember, use only a ProDOS disk).
At the prompt type EXEC DSK2FILE.TXT (assuming that's the
name you used). It will create the DSK2FILE program and
associated DSK2FILE.X binary file. Alternatively, you could
simply type it in as it is short.
Group 1,2: Run the program saving to the RAM card if you have it (it's
much faster that way) and then copy the file to a 3.5 inch
disk. IIgs people do the same (or use a hard disk, etc.)
If you don't have a RAM card use the drive, this is really
kind of obvious.. get the file to a 3.5 inch disk somehow.
Use Apple File Exchange on the Mac to copy the file to the
Mac. Use ResEdit to change the type to DSK5 and creator to
A2EM. Repeat for each disk you want to transfer.
Group 3: Run the program saving to the RAM card. Use a terminal
program to upload the file from the RAM card to the remote
system. Use a terminal program on the Mac to download it
from the remote system (it is a binary file even though the
catalog type is TXT). Change the Mac type and creator as
above and you are in business. Of course, it you need to
do this it might prove easier to use a null modem cable and
go directly from Apple to the Mac.
I use a Mac LC to do the transfers and it works fine, though I imagine
that the other methods should work just as well. If you are having
difficulties let me know.
- Ron Kneusel (kneusel@msupa.pa.msu.edu)
>>>>>>>>>>>>>>>> CUT HERE <<<<<<<<<<<<<<<<<
NEW
10 REM DSK2FILE: 140K DISK TO A FILE, RTK
11 D$ = CHR$ (4)
12 PRINT D$;"BLOAD DSK2FILE.X":BLK = 768:WRT = 784:HI = 780:LO = 779
13 WTADDR = 796: GOSUB 100
15 HOME : INVERSE : PRINT "DSK2FILE";: NORMAL
20 PRINT ": 140K DOS 3.3 TO FILE"
25 PRINT "------------------------------"
30 PRINT : INPUT "OUTPUT FILE ? ";F$
35 PRINT D$;"CLOSE": PRINT D$;"OPEN ";F$
40 PRINT : PRINT : PRINT "INSERT DISK IN S6,D1 & PRESS RETURN:";
45 GET A$: IF A$ < > CHR$ (13) THEN 45
46 PRINT
50 FOR TK = 0 TO 34
55 FOR SK = 0 TO 15
60 B = 8 * TK + MAP(SK): REM FIND PRODOS BLOCK
61 VTAB 10: HTAB 1: CALL - 868: PRINT "TRACK ";TK;", SECTOR ";SK
63 POKE HI, INT (B / 256): POKE LO,B - 256 * INT (B / 256)
65 POKE WTADDR,HALF(SK): REM SET PROPER BUFFER HALF
70 CALL BLK: CALL WRT
75 NEXT SK,TK
80 PRINT D$;"CLOSE ";F$
82 VTAB 13: PRINT "COMPLETE, ANOTHER ? (Y/N) ";
85 GET A$: IF A$ = "Y" THEN 15
90 END
100 REM LOAD DOS 3.3 -> PRODOS MAP
105 DIM MAP(16),HALF(16)
110 DATA 0,64,7,64,6,65,6,64,5,65,5,64,4,65,4,64
112 DATA 3,65,3,64,2,65,2,64,1,65,1,64,0,65,7,65
115 FOR I = 0 TO 15
120 READ MAP(I),HALF(I)
125 NEXT I: RETURN
SAVE DSK2FILE
CALL -151
300: 20 00 BF 80 07 03 60 03
308: 60 00 40 09 00 00 00 00
310: 20 00 BF CB 19 03 B0 0A
318: 60 04 01 00 40 00 01 00
320: 00 00 20 DA FD 60 00 00
BSAVE DSK2FILE.X,A$300,E$327