[comp.sys.cbm] C128 / 1581 autoboot

dave@zehntel (Dave Funk) (03/21/89)

Can anybody out there help me?

I just got Kermit 2.2 and am trying to make it autoboot from a 1581 (I have
a C128).  I have used the "autoboot 1581" program supplied on the 1581 
test/demo disk to get the 1581 to look at kermit's boot program, but that
doesn't work (I have tried both "binary" and "basic").

I took a look at kermit's boot program - the beginning looks like garbarge,
and then it starts looking like BASIC.

Surely someone out there has managed to get the C128/1581 combination to
work - help!

- dave -
Dave Funk			 ....!ucbvax!zehntel!dave
Zehntel, Inc.			 ....!decvax!sytek!zehntel!dave
2625 Shadelands Drive		 ...."zehntel!dave"@BERKELEY
Walnut Creek, CA  94598		 (415) 932-6900 x309

fred@cbmvax.UUCP (Fred Bowen) (03/22/89)

In article <799@zehntel.UUCP> dave@zehntel (Dave Funk) writes:
>I just got Kermit 2.2 and am trying to make it autoboot from a 1581 (I have
>a C128).  I have used the "autoboot 1581" program supplied on the 1581 
>test/demo disk to get the 1581 to look at kermit's boot program, but that
>doesn't work (I have tried both "binary" and "basic").
>Dave Funk			 ....!ucbvax!zehntel!dave

	Kermit runs in C64 mode, even on a C128.  It can access all the
	C128 features it needs from there- 80 column, fast mode, keypad.

	Commodore will be including Kermit (as well as VT100-128 V2) on
	the soon-to-be released 1670 modem disk.  What I do on that disk
	is, in C128 mode, autoboot a menu.  If you select a C64 mode only
	program, such as Kermit, it burst loads that program, installs
	a little C64 wedge at $8000, and goes to 64 mode.  The autostart
	code at $8000 gets control and runs the already loaded program.

	Here's the relevant section of C128 code:

245 print"loading program & going to 64 mode."
246 print"switch to 40-column screen, please."
250 : bload(n$(s)),p(dec("8100")): e1=peek(174): e2=peek(175): a=dec("8000")
260 : restore500: readd$: do: pokea,dec(d$): a=a+1: readd$: loop until d$="end"
270 : pokea,e1+1: pokea+1,e2-dec("79"): pokea+2,e2-dec("81")
280 : go64
290 :
500 data 09,80,09,80,c3,c2,cd,38,30,78,a9,e4,85,01,a2,0f,bd,00,dc,9d,10,01,bd
510 data 00,dd,9d,20,01,ca,10,f1,ad,00,a0,8d,04,80,a9,e7,85,01,20,a3,fd,20,50
520 data fd,20,15,fd,20,5b,ff,20,53,e4,20,bf,e3,20,22,e4,78,a2,04,86,c6,bd,9b
530 data 80,9d,76,02,ca,10,f7,78,a9,e4,85,01,a2,0f,bd,10,01,9d,00,dc,bd,20,01
540 data 9d,00,dd,ca,10,f1,ad,04,80,8d,00,a0,ea,a0,01,a9,08,84,fd,85,fe,a0,00
550 data a9,81,84,fb,85,fc,a9,e4,85,01,ae,a2,80,b1,fb,91,fd,c8,d0,f9,e6,fc,e6
560 data fe,ca,10,f2,a9,e7,85,01,ea,ae,a0,80,ac,a1,80,4c,a7,e1,52,55,4e,0d,end

	where n$(s) is the filename of the program selected from the menu-
	adapting it to your situation should not be much of a challenge.
	There are obvious size restraints on the program loaded, but it works
	things the size of Kermit.  Enjoy.
--
-- 
Fred Bowen			uucp:	{uunet|rutgers|pyramid}!cbmvax!fred
				arpa:	cbmvax!fred@uunet.uu.net
				tele:	215 431-9100

Commodore Electronics, Ltd.,  1200 Wilson Drive,  West Chester,  PA,  19380