Rompack backup

WELCOME
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

See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.

This page was last updated on 05/19/2019. Total Pages: 744. Total Files: 994.

---

Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-12 - Rompack backup

---

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

Links

See this article as it appeared in the Rainbow Magazine 1981-12 Pag 15, in archive.org