2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)
|Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al|
This page was last updated on 05/19/2019. Total Pages: 680. Total Files: 952.
Now Just what would you do if your ROM Pack blew up?
Well, if you had a backup on tape, you might be able to relax a little, anyway. The following routine, from you Al Morgan (who, for those of you who follow his endeavors, has changed his base of operation from Massachusetts to New York) will allow you to copy your ROM Pack into memory and then transfer it to tape.
That does not necessarily mean that you can then just load it back in and run it from RAM, but you could do some dissambly and examine. Also, with a little knowledge of machine language, some of the routines will be pretty obvious to you.
A word of extreme caution: This program requires plugging ROM Carts in and out with the power ON! It should be used ONLY with Tandy/Radio Shack carts, since it is safe to plug them in without removing the power. Otherwise some of your chip. -- including the CPU -- could get zapped.
So, here's a listing of ROM Pack insurance from Al Morgan:
10 CLS:PRINT"THIS PROGRAM WILL A LLOW YOU TO SAVE A ROMPAC TO TA PE. " 20 PRINT:PRINT"INSERT ROMPACK. YOU WILL NOT CONTROL." 30 PRINT:PRINT"PRESS ANY KEY WEN YOU HAVE INSERTED ROMPAC." 35 POKE&HFF23,36 40 IF INKEYS=""THEN40 45 PRINT:PRINT"PROGRAM IS NOW BEING DUMPED. PLEASE STANDBY." 50 IF MEM>20000 THEN N=&H4000 ELSE N=&H2000 55 A=N 60 FOR X=&HC000 TO &HCFFF 70 POKE N,PEEK(X):N=N+1 75 PRINT CHR$(PEEK(X)); 80 NEXT X 90 CLS:PRINT"ROMPAC HAS BEEN DUMPED TO RAM." 92 PRINT:INPUT"ENTER NEW FILE NAME";N$ 100 PRINT:PRINT"NEW REMOVE ROMPAC AND PREPARE TAPE RECORDER." 110 PRINT:PRINT"PRESS ANY KEY TO CONTINUE" 120 IF INKEY$=""THEN120 130 CSAVEM N$,A,A+4096,A 140 CLS:PRINT"FILE NOW COPIED" 160 IF INKEY$=""THEN160 170 POIKE &HFF23,37 180 END