Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!cs.utexas.edu!uunet!cbmvax!fred From: fred@cbmvax.UUCP (Fred Bowen) Newsgroups: comp.sys.cbm Subject: Re: TWO CARTRIDGES AT ONCE Message-ID: <7176@cbmvax.UUCP> Date: 29 Jun 89 17:55:27 GMT References: <89061907384920@masnet.uucp> <3028@csd4.milw.wisc.edu> <7107@cbmvax.UUCP> <3041@csd4.milw.wisc.edu> <7116@cbmvax.UUCP> <3085@csd4.milw.wisc.edu> Reply-To: fred@cbmvax.UUCP (Fred Bowen) Organization: Commodore Technology, West Chester, PA Lines: 148 In article <3085@csd4.milw.wisc.edu> Joe Greco writes: >In comp.sys.cbm article <7116@cbmvax.UUCP> Fred Bowen wrote: > >I have a C1700 REU Assy 311751 Fab 311753 with an older DIP style 8725 (R1). > C1750 REU Assy 312533 Fab 312535 with a newer "square" 8726 (R1). >Not sure if that first one is an 8725 or 8726...? Both are 8726, and they function identically. >Ah he**, I don't have the equipment or experience to mess with loading >problems and anything else less-than-obvious. I suspect the *DMA line is the problem. I buffered it with a 7407: pin 1 connects to REU#1 *DMA pin pin 2 connects to expansion port pin 13 pin 3 connects to REU#2 *DMA pin pin 4 connects to expansion port pin 13 pin 7 ground pin 14 +5 In article <3129@csd4.milw.wisc.edu> Joe Greco writes: >In comp.sys.cbm article <382@hal.UUCP> Howard Hermann wrote: > >]Joe, If you finally get those two cartridges up and running, I am certain >]a lot of us less technically minded, but otherwise willing souls would like >]to hear from you as to "how-to-do-it". > >*MY* experience has been no-go. I was unable to get a 1700/1750 to >work, and I also experimented with a 1750/1750. Same damn results. > >Now if fred@cbmvax would share his "partitioning" hacks to RAMDOS, I >do believe I could live. Try the above, it works for me. If it works for you, I'd like to hear about it. I'll take all the credit I can get, but I won't be responsible for anything bad resulting from this information :-). As for partitioning, I described that in TC128 issue #23. I hope Loren does not mind if I "share" it with you now. This is only part of the article, which includes a RAMDOS install program which does the partitioning. Enjoy. Partitioning the RAMdisk If you can live with a few limitations, it is possible to fool the RAMdisk into believing it has fewer 64K RAM banks than it actually has. When the RAMdisk is installed, one of the very first things it does is "sniff" the REU to determine how big it is. A simple patch to this routine allows you to specify the number of banks the "sniff" routine "discovers". Any memory banks above this number are then free to use for non-RAMdisk purposes. I have re-written the RAMDOS.BAS program which installs the RAMdisk. This version will ask if you want to partition the RAMdisk, and it works on either C128 or C64 systems using RAMDOS version 4.x. 10 REM F$="RAMDOS.BAS":OPEN1,8,15,"S0:"+F$:CLOSE1:SAVEF$,8 20 IF P THEN 100 30 PRINT""; 40 PRINT"----------------------------------- 50 PRINT"| RAM DISK INSTALLATION - V112188 | 60 PRINT"-----------------------------------":PRINT 70 : 100 U=9: GOSUB 9000: IF R THEN 440 110 INPUT "INSTALL RAM DISK AS UNIT 9<3 cursor lefts>";U 120 : U=INT(U): IF U<4 OR U>30 THEN 110 130 PRINT "RAM DISK INTERFACE PAGE IS ";P;LEFT$("<6 cursor lefts>",L);: INPUT A 140 : IF F=0 AND (A<2 OR A>207) THEN 130 150 : IF F=1 AND (A<2 OR A>32) THEN 130 160 : P=A 170 IF NB=0 THEN 230 180 : A$="Y": INPUT "PARTITION RAM EXPANDER Y<3 cursor lefts>";A$ 190 : IF LEFT$(A$,1)<>"Y" THEN 230 200 : PB=INT(NB/2):PRINT" NUMBER OF BANKS FOR DISK ";PB;"<4 lefts>";:INPUTPB 210 : IF PB>NB OR PB<1 THEN 200 220 : IF F=0 THEN POKESN+3,PB: POKESN+4,76: POKESN+5,134: POKESN+6,126 225 : IF F=1 THEN POKESN+3,PB: POKESN+4,76: POKESN+5,184: POKESN+6,62 230 A$="Y": INPUT "INITIALIZE RAM DISK Y<3 cursor lefts>";A$ 240 : M=3: IF LEFT$(A$,1)="Y" THEN M=0 250 : 260 IF (F=0 AND P=207) OR (F=1 AND P=14) OR (F=1 AND P=8) THEN 290 270 : A$="N": INPUT "CHECK INTERFACE PAGE: ARE YOU SURE N<3 lefts>";A$ 280 : IF LEFT$(A$,1)<>"Y" THEN 30 290 : 300 REM C128 C64 WHAT IT DO 310 REM $2300 $6300 --> INSTALL RAM DISK 320 REM 3 3 --> RE-INSTALL RAM DISK 330 REM 6 6 --> INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X 340 REM 9 9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X 350 REM C C --> DISPLAY COPYRIGHT NOTICE 360 : 370 : 390 POKE RE,U: POKE RE+1,P :REM LDA UNIT: LDX PAGE 400 SYS ML+6+M :REM (RE)INSTALL RAMDISK, USING UNIT# & PAGE 410 : 420 IF F=1 THEN PRINT: DIRECTORY U(U): GRAPHICCLR 430 PRINT 440 PRINT "PRESS ANY KEY TO RETURN TO MENU" 450 GETA$:IFA$=""THEN450 460 LOAD "STARTUP.*",8 :REM GOODBYE 470 : 9000 REM VERIFY PRESENCE OF RAM CARD 9010 : 9015 IF P THEN 9180 9020 R=57088 9030 FORI=2TO5:POKER+I,I:NEXT 9040 FORI=2TO5:IFPEEK(R+I)<>ITHEN9060 9050 NEXT: R=0 9060 IF R>0 THEN PRINT " RAM EXPANDER NOT PRESENT ": RETURN 9070 : 9080 REM DETERMINE IF C64 OR C128 9090 : 9100 SYS65418 :REM RESTORE SYSTEM VECTORS 9110 F=ABS(PEEK(65533)=255) :REM F=0 IF C64, F=1 IF C128 9120 IF F THEN BANK 15 :REM SELECT 128 SYSTEM BANK 9130 IF F=0 THEN P=207: L=6: ML=25344: RE=780: F$="RAMDOS64.BIN*" 9140 IF F=1 THEN P=14: L=5: ML=8960: RE=6: F$="RAMDOS128.BIN*" 9150 IF F=0 THEN LOAD F$,8,1 9160 IF F=1 THEN GRAPHIC1,1: BLOAD (F$): IF PEEK(DEC("D7"))=0 THEN GRAPHIC0 9170 : 9180 REM VERIFY SIZE OF RAM CARD 9190 : 9200 NB=0 :REM #BANKS=0 IF CANNOT PARTITION 9210 IF F=0 THEN SN=32317: B=24837: V=25741 :REM SNIFF ROUTINE, SIZE, VERSION 9220 IF F=1 THEN SN=15983: B=8453: V=9357 9230 : FORI=0TO2:V$=V$+CHR$(PEEK(V+I)):NEXT 9240 : PRINT"RAMDISK VERSION "V$" LOADED": SYSML+12: PRINT 9250 : IF LEFT$(V$,2)="4." THEN SYS SN: NB=PEEK(B) 9260 : 9270 RETURN 9280 : 9999 REM F.BOWEN 11/21/88 Replace your current version of RAMDOS.BAS with this version. Simple enough? This new version will patch the RAMdisk only if you answer Yes to the partition query, otherwise it won't change a thing. I suggest you contact TC128 about a subscription if you like this sort of information (shameless plug). The full article describes a simple hack to BASIC-8 (C128 graphics extensions) which makes it work with RAMDOS, partitioned or not. -- -- 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