Jump to content



0

A Gift -- FOR ADAM OWNERS!


1 reply to this topic

#1 Inky OFFLINE  

Inky

    Assistant head peon

  • 23,582 posts
  • I be regular, bitches!
  • Location:The Ghost Box

Posted Thu Dec 18, 2003 8:30 PM

Here's a Cart Copy program. This will backup the Coleco Carts to ADAM Datapacks. It can fit 7 carts to datapack. Note that this WILL NOT WORK with Activision carts! Activision Carts are copy protected and will not run from Datapack.

Also: This does not put a menu of programs on the datapack. You will have to write a note reminding you what game is in which slot.

3 rem Multi cart copy program

5 himem:3099

10 data 1,0,4,17,0,0,33,40,160,62,13,211,127,26,50,253,124

20 data 62,1,211,127,58,253,124,119,35,19,11,120,177,194,33,121,201

30 poke 102,237: poke 103,69: REM Disable Interrupt Routine

40 for x = 31000 to 31033: read d: poke x,d: NEXT: rem read cart

50 data 62,8,1,0,0,17,0,0,33,40,160,205,246,252,201

60 for x = 40100 to 40114:read d: poke x,d: next: REM Write tape

70 ? "Insert slave tape into drive #1 and check cart in slot"

72 ?:?

73 INPUT "Input Number of Cart (1-7)"; n

75 REM write 32K of cart to tape

77 ?:? "REMEMBER: Keep your OWN list of carts on this tape";

78 ?"Because carts are not listed in the directory."

80 for i = 1 to 80

83 poke 31005, i*4+128: poke 40106, i+(n-1)*32+2

90 call 31000: call 40100: next i

100 rem Machine language routine for block 0

110 poke 40106,0

120 data 243,49,0,72,33,0,8,62,2,205,41,253,33,0,0,62,3,205,41,253,33,0,32,62,4

130 data 205,41,253,205,56,253,62,240,33,0,32,17,32,0,205,38,253,1,224,1

140 data 205,32,253,1,31,24,33,0,8,17,3,3,205,54,252,24,7,67,65,82,84,32

150 data 35,63,6,7,33,62,200,126,205,57,252,35,16,249,217,17,0,2,33,11

155 data 33,192,254,17,0,73,1,63,1,237,176,33,0,73,205,123,252,17,0,2,33,11,7,200

160 data 1,63,0,237,176,195,0,2,205,108,252,205,57,252,214,48,71,33,226,255

170 data 17,32,0,25,16,253,235,6,2,197,33,0,3,1,0,0,62,8,205,243,252,1,0,4,9

180 data 19,124,254,67,32,238,217,33,0,3,1,0,64,237,176,217,193,16,221,62,3,211,127,195,0

200 for x =41000 to 41179

210 read d: poke x,d: next: call 40100

250 ?: ?: "Copy #"; n; " is complete":end


WHEW! I typed this all in by meself back in the day, and I can verify that it DOES work. It's taken from the HAcker's Guide to ADAM volume 1. The book has other goodie programs, as well as a complete set of schematics for he ADAM.

#2 Inky OFFLINE  

Inky

    Assistant head peon

  • 23,582 posts
  • I be regular, bitches!
  • Location:The Ghost Box

Posted Thu Dec 18, 2003 8:43 PM

Another gift: The wealth of info at this site:

http://ann.hollowdreams.com/




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users