Luis46coco: Created page with "{{NavRainbow1981-12}} 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 routi..."

2019-05-19T12:18:16Z

Created page with "{{NavRainbow1981-12}} 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 routi..."

New page

{{NavRainbow1981-12}}
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:
<pre>
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
</pre>
==Links==
[https://archive.org/details/rainbowmagazine-1981-12/page/n14 See this article as it appeared in the Rainbow Magazine 1981-12 Pag 15, in archive.org]
[[Category:Software Utility]]

Rompack backup - Revision history

Luis46coco: Created page with "{{NavRainbow1981-12}} 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 routi..."