This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:CartCopy
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
10 REM CARTCOPY BY DAVID YOUNG 070581 20 REM 30 DIM STRING$(70),SCREENINZ$(9),TEMP$(10) 40 REM 50 REM ****** MOVE SCREEN DATA ****** 60 REM 70 FOR I=1 TO 9:READ J:SCREENINZ$(I)=CHR$(J):NEXT I 80 DATA 104,104,104,133,106,32,246,243,96 90 IF PEEK(106)<=128 THEN GOTO 150 100 X=USR(ADR(SCREENINZ$),128) 110 REM 120 REM ****** LOAD SPECIAL ***** 130 REM ****** DISK INTERFACE ***** 140 REM 150 ? "":? "";:GOSUB 1540:RESTORE 160:POKE 82,1 160 PRINT "":?:? "DO YOU NEED INSTRUCTIONS (Y/N)";:INPUT TEMP$:IF LEN(TEMP$)=0 THEN PRINT CHR$(125):GOTO 890 170 IF TEMP$(1,1)<>"Y" THEN PRINT CHR$(125):GOTO 890 180 PRINT " " 190 PRINT:PRINT "THIS PROGRAM IS USED TO COPY CART- " 200 PRINT "RIDGES TO DISK. THE PROGRAM THAT " 210 PRINT "WAS IN THE CARTRIDGE CAN THEN BE " 220 PRINT "RUN WITHOUT THE CARTRIDGE. THE ONLY " 230 PRINT "REQUIREMENT IS THAT YOU HAVE 48K RAM " 240 PRINT "IN YOUR MACHINE. IF YOU DON'T HAVE " 250 PRINT "48K, RUN DOWN TO THE COMPUTER STORE " 260 PRINT "AND GET IT. THIS PROGRAM ALONE WILL " 270 PRINT "MAKE IT WORTHWHILE! " 280 PRINT:PRINT "NOW, UNTIL DIRECTED" 290 PRINT "TO. YOU WILL OPEN THE LID OF YOUR 800" 300 PRINT "AS IF YOU WERE CHANGING A CARTRIDGE " 310 PRINT "(YOU WILL USE THE 'PULL OPEN' " 320 PRINT "LATCH RIGHT ABOVE THE KEYBOARD). YOU " 330 PRINT "WILL THEN LOCATE THE INTERLOCK SWITCH" 340 PRINT "LOCATED IN THE LOWER RIGHTHAND CORNER" 350 PRINT "OF THE SLOT AREA. TO POWER THE UNIT, " 360 PRINT "YOU MUST USE SOMETHING POINTED TO " 370 PRINT "HOLD THE SWITCH DEPRESSED. A PENCIL " 380 PRINT "WEDGED IN THE HOLE WORKS FINE. ":? " ";:INPUT TEMP$ 390 ? CHR$(125):PRINT " ":PRINT 400 PRINT "AFTER YOU HAVE SOMETHING TO " 410 PRINT "HOLD THE SWITCH DOWN, RERUN THE PROG-" 420 PRINT "RAM AND PROCEED WITH THE NEXT PARA- " 430 PRINT "GRAPH. IF YOU FULLY UNDERSTAND THE " 440 PRINT "PRECEDING INSTRUCTIONS, EXECUTE THEM " 450 PRINT "NOW. DON'T WORRY! ITS ALL SAFE! " 460 PRINT:PRINT "NOW THAT YOU HAVE THE UNIT POWERED & " 470 PRINT "CARTRIDGE SLOTS EXPOSED, YOU CAN USE " 480 PRINT "THE LEFT SLOT TO COPY BASIC AND THE " 490 PRINT "RIGHT SLOT (AND ONLY THE RIGHT SLOT!)" 500 PRINT "TO COPY ANY OTHER CARTRIDGE. YOU WILL" 510 PRINT "SIMPLY CAREFULLY INSERT THE CARTRIDGE" 520 PRINT "WHEN TOLD TO DO SO BY THIS PROGRAM " 530 PRINT "(BUT NOT BEFORE!) AND GIVE IT A NAME " 540 PRINT "WHEN PROMPTED. AFTER THE CARTRIDGE IS" 550 PRINT "COPIED TO DISK YOU CAN USE THE 'L' " 560 PRINT "OPTION OF DOS TO RUN IT. MORE ON THIS" 565 ? "LATER. ":? " " 570 ? " ";:INPUT TEMP$ 575 PRINT CHR$(125):PRINT " " 580 PRINT:PRINT "IF YOU WANT THE PROGRAM TO BOOT UP " 590 PRINT "AUTOMATICALLY FROM DISK AT POWER UP, " 600 PRINT "GIVE IT THE NAME 'D1:AUTORUN.SYS'. " 610 PRINT "THE ASSEMBLER/EDITOR AND BASIC ARE " 620 PRINT "ESPECIALLY USEFUL TO HAVE ON DISK " 630 PRINT "BECAUSE YOU CAN FLIP BACK AND FORTH " 640 PRINT "BETWEEN THEM WITHOUT POWERING DOWN, " 650 PRINT "THUS PRESERVING THE CONTENTS OF RAM. " 660 PRINT "TO DO SO, SIMPLY GO TO DOS AND USE " 670 PRINT "THE 'L' OPTION TO RUN WHATEVER " 680 PRINT "'CARTRIDGE' YOU DESIRE. IT IS RECOM- " 690 PRINT "MENDED THAT YOU USE MY MODIFIED VER- " 700 PRINT "SION OF DOS (MY NAME'S IN THE HEADER)" 710 PRINT "BECAUSE THE 'RUN CARTRIDGE' OPTION " 720 PRINT "HAS BEEN MODIFIED TO BE COMPATIBLE " 730 PRINT "WITH THE PROGRAMS THAT DID RESIDE IN " 740 PRINT "THE CARTRIDGE ROMS BUT ARE NOW RUNN- " 750 PRINT "ING OUT OF RAM. : David Young's ":? "MODIFIED DOS IS ON THIS THEME DISK!!!" 752 ? " " 755 ? " ";:INPUT TEMP$:? CHR$(125) 760 PRINT:PRINT " ":PRINT 770 PRINT "IF YOU ARE GOING TO COPY THE BASIC " 780 PRINT "CARTRIDGE, IT IS ALREADY IN THE LEFT " 790 PRINT "SLOT. IF YOU ARE GOING TO COPY ANY " 800 PRINT "OTHER CARTRIDGE, CAREFULLY INSERT IT " 810 PRINT "INTO THE RIGHT SLOT NOW. IF THE KEY- " 820 PRINT "BOARD WILL NOT RESPOND AFTER YOU HAVE" 830 PRINT "DONE THIS, THE SYSTEM HAS BEEN " 840 PRINT "GLITCHED. REMOVE THE CARTRIDGE AND " 850 PRINT "TURN THE POWER OFF AND BACK ON AGAIN." 860 PRINT "RERUN CARTCOPY TO THIS POINT AND " 870 PRINT "TRY INSERTING THE CARTRIDGE AGAIN. " 871 ? " " 872 ? "NOTE: IF USING AN XL/XE MODEL, YOU ":? "HAVE TO USE A 'TRANSLATOR' WITHOUT " 873 ? "BASIC. YOU WILL ALSO HAVE TO MODIFY":? "THE INSTRUCTIONS AS YOU DON'T HAVE A " 874 ? "LID TO LIFT AND YOU ONLY HAVE ONE ":? "CARTRIDGE SLOT. EXPERIMENT. " 875 ? " " 880 PRINT " ";:INPUT TEMP$:PRINT CHR$(125) 885 FOR X=0 TO 23:? " ":NEXT X:? CHR$(125) 890 PRINT " " 895 ?:? "INSERT FORMATTED DISKETTE IN DRIVE #1." 900 PRINT:PRINT "SUPPLY NAME(D1:BASIC,D1:STARRAID,ETC.)":INPUT STRING$ 910 IF LEN(STRING$)=0 THEN PRINT "":GOTO 900 920 IF STRING$(2,2)<>":" AND STRING$(3,3)<>":" THEN PRINT "":GOTO 900 930 IF (STRING$(1,1)<>"D") OR (LEN(STRING$)>15) THEN PRINT "":GOTO 900 940 STRING$(LEN(STRING$)+1)=CHR$(155) 950 REM 960 REM ****** OPEN FILE ******* 970 REM 980 OPEN #1,8,0,STRING$ 990 FOR I=1 TO 6:READ J:STRING$(I)=CHR$(J):NEXT I 1000 REM 1010 REM ***** WRITE FILE HEADER ***** 1020 REM 1030 DATA 255,255,0,96,255,127 1040 X=USR(1538,ADR(STRING$),ADR(STRING$)+6) 1050 IF X=1 THEN GOTO 1070 1060 PRINT "ERROR ";X:CLOSE #1:STOP 1070 J=128:PRINT:PRINT "LEFT OR RIGHT CARTRIDGE (L OR R)" 1072 PRINT "(i.e., L FOR BASIC OR R FOR ANY OTHER)" 1075 INPUT TEMP$:IF TEMP$(1)="L" THEN J=160 1080 PRINT:PRINT "IF YOU HAVE THE CORRECT CARTRIDGE IN," 1090 PRINT "HIT RETURN AND CROSS YOUR FINGERS!":INPUT TEMP$ 1100 REM 1110 REM **** WRITE CARTRIDGE ****** 1120 REM 1130 X=USR(1538,J*256,(J+32)*256) 1140 IF X<>1 THEN GOTO 1060 1150 REM 1160 REM ***** WRITE BOOT ROUTINE **** 1170 REM ***** AND AUTORUN VECTOR **** 1180 REM 1190 FOR I=1 TO 62:READ J:STRING$(I)=CHR$(J):NEXT I 1200 X=USR(1538,ADR(STRING$),ADR(STRING$)+62) 1210 CLOSE #1 1220 PRINT CHR$(125):PRINT " " 1230 PRINT:PRINT "NOW TURN THE POWER OFF AND REMOVE" 1240 PRINT "ALL CARTRIDGES. TURN POWER BACK ON" 1250 PRINT "AND USE THE 'L' OPTION OF DOS TO RUN" 1260 PRINT "THE PROGRAM YOU JUST COPIED TO DISK." 1270 PRINT "FOR EXAMPLE, IF YOU HAVE JUST SAVED" 1280 PRINT "BASIC UNDER THE NAME OF 'D1:BASIC'" 1290 PRINT "THEN, BECAUSE NO CARTRIDGE IS PRESENT," 1300 PRINT "THE DOS MENU APPEARS ON POWER UP:":PRINT 1310 PRINT "DOS: SELECT ITEM OR FOR MENU" 1320 PRINT "YOU: L (RETURN)" 1330 PRINT "DOS: LOAD FROM WHAT FILE?" 1340 PRINT "YOU: BASIC (RETURN)" 1350 PRINT:PRINT "IN SHORT, YOU CAN USE CARTCOPY TO" 1360 PRINT "TRANSFER A PROGRAM FROM CARTRIDGE TO" 1370 PRINT "DISK. YOU THEN USE DOS TO LOAD THE" 1380 PRINT "PROGRAM FROM DISK TO RAM. DOS WILL" 1390 PRINT "EXECUTE IT AUTOMATICALLY UPON COMPLE-" 1400 PRINT "TION OF THE LOAD. Mach Spass!"; 1430 GOTO 1430 1440 END 1450 DATA 0,6,51,6 1460 DATA 165,106,201,144,144,42,169,144 1470 DATA 133,106,32,246,243,173,0,96 1480 DATA 238,14,6,208,3,238,15,6 1490 DATA 141,0,160,238,25,6,208,237 1500 DATA 238,26,6,169,192,77,26,6 1510 DATA 208,227,32,49,6,108,250,191 1520 DATA 96,108,254,191 1530 DATA 224,2,225,2,0,6 1540 RESTORE 1550 1550 READ N,N2:FOR K=N TO N2:READ Q:POKE K,Q:NEXT K:RETURN 1560 DATA 1536,1661 1570 DATA 0,0,104,169,11,141,82,3 1580 DATA 169,128,141,84,3,169,6,141 1590 DATA 85,3,104,133,213,104,133,212 1600 DATA 56,104,170,104,229,212,141,0 1610 DATA 6,138,229,213,141,1,6,162 1620 DATA 125,173,0,6,56,233,125,141 1630 DATA 0,6,173,1,6,233,0,141 1640 DATA 1,6,176,7,24,173,0,6 1650 DATA 105,125,170,138,168,136,48,8 1660 DATA 177,212,153,128,6,24,144,245 1670 DATA 138,101,212,133,212,169,0,101 1680 DATA 213,133,213,138,141,88,3,169 1690 DATA 0,141,89,3,162,16,32,86 1700 DATA 228,16,10,173,83,3,133,212 1710 DATA 169,0,133,213,96,169,255,77 1720 DATA 1,6,208,171,240,237
References
Listing downloads
Downloads
Copyright holder