Re: [TI-99/4A] Disk Duplicator Available
- JacquesWell my old SCSI drive died and I lost that version. The here is how it worked.CALL AMSINIT ! clears the SAMS memory and sets up mapped register set to defualt mode.AMS=0 ! This would be a variable named AMS a page counter 0 to 239 of 2 1K pages in the lower 8K. i.e. >2000 page and >3000 page (just pick a name here)FLAG=0 ! This is a flag variable for the sector to remember where it started when passed to copy the sectors.FOR R=0 to SECTOR-1 ! Loop counter for sector and R is the sector number to read.IF FLAG=0 THEN FLAG=1 :: C=R ! Set the copy flag and save the sector we start with.CALL HEX(R,R$) :: CALL SECTOR(M$,1,32,R$) ! Convert the R into a string variable for sector to use and read the sector. (We need a 4 byte string for this to work)CALL AMSBANK(AMS, AMS+1) ! This sets the pages to use as >2000 is lower page and AMS+1 is then >3000 upper pageAMS=AMS+2 ! We add 2 so that AMS is now set to the next pages needed.IF AMS=240 THEN GOSUB 3000 ! If SAMS is full then GOSUB 3000 is the line that take what is in the full SAMS and copies it to the copy drive.NEXT R ! Loop the sector Read variable3000 AMS=0 :: FOR W=C TO SECTOR-1 ! Reset AMS page counter to zero and load W with sectors to write.3010 CALL HEX(W,W$) :: CALL SECTOR (C$,1,32,W$) ! Convert the W into a string variable for sector to use and write the sector. (We need a 4 byte string for this to work)3020 CALL AMSBANK(AMS,AMS+1) ! This sets the pages to use as >2000 is lower page and AMS+1 is >3000 upper page.3030 AMS=AMS+2 ! We add 2 so that AMS is now set to the next pages needed.3040 IF AMS=240 THEN RETURN ! If all pages used then return.3050 NEXT WNow the above did not have the original lines that I had to determine if the end of the hard drive or drive had already been reached yet.It did not matter really as the drive would not you to write or read larger then the drive but I did have a few lines to figure this out and fix it.Anyway let me know how it goes.Rich
From: "Jacques" <jgroslou@...>
Sent: Friday, March 15, 2013 7:48:08 AM
Subject: Re: [TI-99/4A] Disk Duplicator AvailableYes, both disks are 360K SSSD flippies.What changes would I make to the program to use my SAMS card?JacquesIs the disk formatted the same size?I am using Classic99 presently so I can not test the routine properly.A test run crashes in Classic99 but checking the lower 8K shows a copy of the disk so it is making a copy there.I may have to pull out my old PC99 and see what is wrong here.Rich
From: "Jacques" <jgroslou@...>
Sent: Friday, March 15, 2013 6:58:02 AM
Subject: Re: [TI-99/4A] Disk Duplicator Available
Rich,I have moved the listing below over to my TI-99/4A as a DV80 file and then converted it to an XB program. When I run this program using RXB I get an error message ‘Bad Value in 180’. The values used in 180 are:S 32M$ DSK1.S$ 0000C$ DSK2.My DSK1 only contains 2 files being this XB program and its DV80 listing. DSK2 receives 2 files but an attempt to OLD this program gives an I/O ERROR 50. Examining this file using FW shows that it contains many text sections that are not in the original listing. The DV80 listing contains a lot of control characters which are not in the source file. Very Puzzling.I had been away from using my TI-99/4A for most of 2012 and I was using this opportunity to refresh my memory on using RXB.Jacques
DanoRXB has a Backup program also:100 ! BACKUP BY SECTOR110 DISPLAY AT(1,3)ERASE ALL BEEP:"RXB BACKUP SECTOR COPIER": : : : :"MASTER PATH:": : : : : : : : :"COPY PATH:"120 ACCEPT AT(6,14)SIZE(5):M$ :: ACCEPT AT(15,14)SIZE(5):C$ :: CALL SECTOR(M$,1,1,"0") :: CALL MOVES("R$",255,8192,SM0$)130 SECTOR1$=SEG$(SM0$,11,2) :: SIDE1$=SEG$(SM0$,19,1) :: DENSITY1$=SEG$(SM0$,20,1) :: CALL SECTOR(C$,1,1,"0") :: CALL MOVES("R$",255,8192,SC0$)140 SECTOR2$=SEG$(SC0$,11,2) :: SIDE2$=SEG$(SC0$,19,1) :: DENSITY2$=SEG$(SC0$,20,1) :: IF ASC(DENSITY1$)<>ASC(DENSITY2$)THEN 190150 IF ASC(SIDE1$)<>ASC(SIDE2$)THEN 190160 SECTORS1=ASC(SEG$(SECTOR1$,1,1))*256+ASC(SEG$(SECTOR1$,2,1)) :: SECTORS2=ASC(SEG$(SECTOR2$,1,1))*256+ASC(SEG$(SECTOR2$,2,1)) :: IF SECTORS1<>SECTORS2 THEN 190170 DISPLAY AT(9,1):"SECTORS=";SECTORS1:"SIDES=";ASC(SIDE1$):"DENSITY=";ASC(DENSITY1$) :: DISPLAY AT(17,1):"SECTORS=";SECTORS2:"SIDES=";ASC(SIDE2$):"DENSITY=";ASC(DENSITY2$)180 FOR S=0 TO SECTORS1-1 STEP 32 :: CALL HEX(S,S$) :: DISPLAY AT(24,1):"READ/WRITE SECTOR=";S :: CALL SECTOR(M$,1,32,S$,C$,0,32,S$) :: NEXT S :: DISPLAY AT(15,14)ERASE ALL BEEP:"DONE" :: END190 CALL HONK :: DISPLAY AT(15,6)ERASE ALL:"BAD FORMAT MATCH" :: ENDThis only depends on one factor. That the Master drive is the same format as the Copy drive.This RXB program will copy 1 disk to another disk of any size including any Hard Drive to any Hard Drive.I have used it to copy 1 SCSI 240 meg drive to another 240 meg drive.RichP.S. This program can be speeded up many times faster if you use a SAMS as a buffer to do the copy process. Instead of 2K copies each pass it can do a 960K each pass.Mulitple copies of a Disk are very quickly done this was considering a 720K disk. Of course it is not as fast as Assembly, but I can modify a program in seconds faster.
From: "Dano" <ti994a@...>
Sent: Thursday, March 14, 2013 3:33:45 PM
Subject: Re: [TI-99/4A] Disk Duplicator Available
I have a copy of your cartridge list. (BTW: Thank you for putting that together!) I would love to have that in XLS format so I can apply it to my cartridge collection!
However, the copy that I have, seems to be missing some of the footnotes. Most of the rare cartridges are listed with asterisk and a number, as a note reference (ie *27), but there are no numbered notes. Is my copy bad or was that omitted by accident?
And finally, is there a current link to the most recent document available? Maybe that would solve my problem and I can disregard the above.
"Long Live the TI-99/4A!"On Thu, Mar 14, 2013 at 8:43 AM, computerclassics2000 <computerclassics@...> wrote:
Forgot to mention that Disk Duplicator is available on the Altman Fairware List, number AFL0755. You can access the Altman Fairware List at http://www.ti99ers.org/.
--- In mailto:ti99-4a%40yahoogroups.com, "computerclassics2000" <computerclassics@...> wrote:
> You are correct. It is listed in the "never released" section of my Collecting Cartridges Guidebook, so it had to be listed on the website I used to maintain.
> It was also discussed by Charles Good in the Jan 1990 issue of Bits, Bytes & Pixels on page 7-8, the Lima, OH User Group newsletter.
> Excellent memory!!!
> --- In mailto:ti99-4a%40yahoogroups.com, Bryan Roppolo Boulder <brop99@> wrote:
> > I don't know much about Disk Duplicator except I did have a prototype of the
> > cartridge back in 2008 that I got from Ken Modesit. I seem to remember it
> > might have been for internal use more than for the public. Also, I think
> > Charles Good took a look at this cartridge in one of his Never Released
> > Official TI Cartridges videos from around 1990 or so. Also, this cartridge
> > was on your cartridge list on your website back in the late 90s/early 2000s
> > as I recall, which is where I found out about it in the first place :)
> > -----Original Message-----
> > From: mailto:ti99-4a%40yahoogroups.com [mailto:mailto:ti99-4a%40yahoogroups.com] On Behalf Of
> > computerclassics2000
> > Sent: Tuesday, March 12, 2013 7:11 PM
> > To: mailto:ti99-4a%40yahoogroups.com
> > Subject: [TI-99/4A] Disk Duplicator
> > I have come across what appears to be a "cartridge" for the TI-99 that never
> > made it out of the developmental stage.
> > It is called 'Disk Duplicator'. It has the ability to:
> > 1. Duplicate Pascal Disk
> > 2. Duplicate BASIC Disk
> > 3. Compare Disks
> > 4. Diskette Quality Test
> > 5. Catalog Disk
> > It was limited to DSK1, DSK2 and DSK3 as one might suspect. But it can make
> > 1 or 2 copies of the disk being cloned.
> > I have included to photos in the PHOTOS section of the OLUG, under the
> > 'Timeline' folder.
> > Anyone ever seen this piece of software, or know anything about it or it's
> > history?
> > BillG
> > 03/12/2013
> > ------------------------------------
> > For users/owners of TI-99/4A Geneve 9640 computers everywhere!
> > Visit the TI99'ers Hall of Fame at http://www.ti99hof.org/.
> > Check out the TI99ers On-Line User Group at http://www.ti99ers.org/.
> > Send abuse reports to abuse@! Groups Links