Path: utzoo!utgpu!watmath!att!tut.cis.ohio-state.edu!gem.mps.ohio-state.edu!ginosko!uunet!mcvax!kth!draken!tut!po87553
From: po87553@tut.fi (Ojala Pasi Juhani)
Newsgroups: comp.sys.cbm
Subject: burstloader for c64 &1571/81
Message-ID: <1926@alva.tut.fi>
Date: 9 Aug 89 22:17:46 GMT
Reply-To: po87553@alva.UUCP (Ojala Pasi Juhani)
Distribution: comp.sys.cbm
Organization: Tampere University of Technology, Finland
Lines: 83
Here it comes at last.. You may have forgotten all about me, but it
really doen't matter. Have fun if possible..
Burst loader by Pasi Ojala 1989 for 1571&1581 drives
------------------------------------------------------
All you need is this programm and two wires from serial port
to user port. These wires may be connected internally if
you are using a c64. A switch is needed if you are using 128
in 64-mode.
You have to connect:
serial SRQ (pin 1) ----- CNT1 (pin 4) user
port DATA (pin 5) ----- SP1 (pin 5) port
To get started
1) load"burst51700",8,1
2) sys51700
Now you have a working burstloader in your machine.
If you use normal load-command, it uses burst-routines,
but my routine uses the normal loader (which was
installed when sys51700 was given) when the program name
starts with a $-sign or its second character is a :
Examples
load"$",8 loads the directory (normal load)
load"0:program",9 loads program with normal load
load"faster",9 loads with burst
Special features:
- Waits if rs-transmission is on (added for my own needs)
- May confuse IRQ-rate if it is changed by user
- Allows 1541-fastload in the same time (first activate 1541-load
then burstload)
- Can be used with two different drives bu using drive numbers for non-
burst drive
- It is just over one page in memory
NOTICE!!!:
If you have any difficulties using burst51700, please mail:
po87553@tut.fi or po87553@alva.UUCP
Following burst51700:
#CUT HERE -- CUT HERE -- CUT HERE -- CUT HERE
# Extraxt this file with /BIN/SH, do not use chs!!
if test -f 'burst51700.uu'
then
echo shar:Will not override existing burst51700.uu
else
cat << \SHAR_EOF > 'burst51700.uu'
begin 600 burst51700
M ,EXJ0&-!-RI (T%W*G!C0[Y8ZNI,
MZ,GJ>""%[BP-W" NR2 DR