APPENDIX NINETEEN
XL/XE Programs
BASIC Software Toggle
This is a version of the BASIC switcher routine used in a public do- main program called "RamMaster," available on the Gateway BBS, St. Louis, Missouri, used here with permission by its author, Matt Ratcliff. The program creates an AUTORUN.SYS file which prompts you to turn BASIC on and off; there's no need to hold down the OP- TION key when booting a disk. When you turn it off from DOS, you gain the 8K RAM it occupies; DOS takes advantage of this memory space for copy and disk duplication routines. Refer back to the XL/XE memory map for more information.800XL BASIC Switcher
10 GRAPHICS 0:DIM A$(10):? "800XL BASIC SWI TCHER" 15 PRINT "By Matthew Ratcliff 3/25/85" 20 PRINT :PRINT "GET DOS DISK READY AND PRE SS RTN;" 25 INPUT A$ 30 TRAP 200:OPEN #1,8,0,"D:AUTORUN.SYS" 40 RESTORE 50 READ A:IF A<0 THEN 100 60 PUT #1,A:GOTO 50 100 CLOSE #1:PRINT "BASIC SWITCHER READY." 105 PRINT "PUT THIS FILE ON ALL YOUR 'BASIC '" 110 PRINT "PROGRAMMING DISKS.":PRINT 115 PRINT "SAVE THIS LOADER AS A BACKUP!" 120 END 200 PRINT "UNEXPECTED ERROR ";PEEK(195) 210 PRINT "AT LINE ";PEEK(186)+256*PEEK(187 ):END 1000 DATA 255,255,0,52,236,53,173,250,3,240 ,1 1005 DATA 96,32,160,53,76,34,52,184,176 1010 DATA 176,216,204,160,194,193,211,201,1 95 1015 DATA 160,211,247,233,244,227,232,229,2 42,155,4 1020 DATA 162,12,160,52,32,120,53,76,56,52, 194 1025 DATA 249,160,205,225,244,170,210,225,2 44 1030 DATA 155,4,162,44,160,52,32,120,53,76, 88 1035 DATA 52,80,114,101,115,115,32,35,32 1040 DATA 97,110,100,32,210,212,206,32,107, 101 1045 DATA 121,58,155,4,162,66,160,52,32,120 1050 DATA 53,76,115,52,91,49,93,32,66,65,83 1055 DATA 73,67,32,160,207,206,160,160,155 1060 DATA 4,162,98,160,52,32,120,53,76,142, 52,91 1065 DATA 50,93,32,66,65,83,73,67 1070 DATA 32,160,207,198,198,160,155,4,162, 125 1075 DATA 160,52,32,120,53,32,203,53,201,50 1080 DATA 208,41,173,1,211,9,2,141,1,211,16 9 1085 DATA 192,133,106,32,160,53,76,187,52 1090 DATA 160,194,193,211,201,195,160,207,1 98 1095 DATA 198,160,155,4,162,174,160,52,32,1 20,53 1100 DATA 76,62,53,201,49,240,3,76,79,53,17 3,1,211 1105 DATA 41,253,141,1,211,169,160 1110 DATA 133,106,32,160,53,76,235,52,160,1 94 1115 DATA 193,211,201,195,160,207,206,160,2 9,155 1120 DATA 4,162,222,160,52,32,120,53,173,22 6,168 1125 DATA 201,96,208,48,76,31,53,82,69 1130 DATA 86,46,66,32,45,32,195,239,238,244 ,225,227 1135 DATA 244,160,193,212,193,210,201,160 1140 DATA 230,239,242,160,210,197,214,174,1 95 1145 DATA 160,161,155,4,162,252,160,52,32,1 20,53 1150 DATA 76,62,53,201,234,208,17,76,55,53, 82,69 1155 DATA 86,46,67,155,4,162,48,160 1160 DATA 53,32,120,53,76,71,53,29,29,29,29 ,155 1165 DATA 4,162,65,160,53,32,120,53 1170 DATA 96,76,107,53,160,194,193,196,160, 203 1175 DATA 197,217,253,32,32,32,80,82,69,83 1180 DATA 83,32,160,210,212,206,160,155,4 1185 DATA 162,82,160,53,32,120,53,32,203,53 ,76 1190 DATA 0,52,142,68,3,134,208,140,69,3,13 2,209 1195 DATA 160,0,140,72,3,140,73,3 1200 DATA 177,208,201,4,240,6,238,72,3,200, 208 1205 DATA 244,169,11,162,0,141,66,3,76 1210 DATA 86,228,162,96,169,12,157,66,3,32, 86,228 1215 DATA 162,96,169,3,157,66,3,169 1220 DATA 200,157,68,3,169,53,157,69,3,169, 0 1225 DATA 157,75,3,169,28,157,74,3,76 1230 DATA 86,228,83,58,0,162,0,169,5,157 1235 DATA 66,3,169,0,157,68,3,169,4,157 1240 DATA 69,3,169,4,157,72,3,169,0,157 1245 DATA 73,3,32,86,228,173,0,4,96,226 1250 DATA 2,227,2,0,52,-1 DOWNLOAD SWITCHER.BASROM OS to RAM OS Toggle
The second program is a short version ot the "RamMaster" also on the Gateway BBS; it turns your ROM OS into a RAM OS and traps RE- SET so that if you press it. it doesn't jump back to ROM When you press RESET. the routine leaves the block at 52224-53247 ($CC00- $CFFF) intact, so any altered character set you've loaded there will remain untouched. It also creates an AUTORUN.SYS file, so if you want it on the same disk as the BASIC switcher above, you'll have to rename it (line 30). The RESET handler routine loads into page 6 at byte 1616 ($650). Both programs can be loaded trom DOS with the "L" command.ROM to RAM OS Handler
10 GRAPHICS 0:DIM A$(10):? "ROM TO RAM O/S HANDLER" 15 PRINT "BY Matthew Ratcliff 3/25/85" 20 PRINT :PRINT "GET DOS DISK READY AND PRE SS RTN"; 25 INPUT A$ 30 TRAP 200:OPEN #1,8,0,"D:AUTORUN.SYS" 40 RESTORE 50 READ A:IF A<0 THEN 100 60 PUT #1,A:GOTO 50 100 CLOSE #1:PRINT "64K 'XL ROM->RAM O/S C ONVERTER" 105 PRINT "AUTORUN.SYS FILE COMPLETE." 110 PRINT "BE SURE TO SAVE THIS LOADER" 115 PRINT "AS A BACKUP!":END 200 PRINT "UNEXPECTED ERROR "; 205 PRINT PEEK(195):PRINT "AT LINE ";PEEK(1 86)+256*PEEK (187) 210 END 1000 DATA 255,255,0,52,105,53,169,80,133,2 1005 DATA 133,216,169,6,133,3,133,217,165,9 1010 DATA 9,2,133,9,160,0,169,144,133,222,1 69 1015 DATA 52,133,223,173,60,53,133,214,177 1020 DATA 222,145,216,230,222,208,2,230,223 1025 DATA 230,216,208,2,230,217,198,214,208 ,236,76 1030 DATA 91,52,205,225,244,170,210,225,244 ,167 1035 DATA 243,160,210,207,205,173,190,210,1 93,205 1040 DATA 160,200,225,238,228,236,229,242,1 60,242 1045 DATA 229,225,228,249,174,155,4,162,56, 160 1050 DATA 52,32,61,53,76,136,52,160,160,160 ,208 1055 DATA 210,197,211,211,160,167,210,197,2 11 1060 DATA 197,212,167,160,203,229,249,160,2 44 1065 DATA 239,160,229,238,225,226,236,229,1 74,160,160 1070 DATA 155,4,162,101,160,52,32,61,53,96 1075 DATA 169,80,133,2,169,6,133,3,165,9 1080 DATA 9,2,133,9,120,169,0,141,47,2,133 1085 DATA 16,141,0,212,141,14,210,141,14 1090 DATA 212,133,219,169,1,133,66,169,192 1095 DATA 133,217,169,204,133,218,160,0,240 ,81,169 1100 DATA 216,133,217,132,218,230,219,208,7 1 1105 DATA 169,128,133,16,141,14,210,169,64, 141,14 1110 DATA 212,169,34,141,47,2,141,0,212,198 1115 DATA 66,88,162,96,169,12,157,66,3,32 1120 DATA 86,228,162,96,169,3,157,66,3,169 1125 DATA 83,141,0,4,169,58,141,1,4,169 1130 DATA 4,157,69,3,169,0,157,75,3,157 1135 DATA 68,3,169,28,157,74,3,76,86,228 1140 DATA 132,216,173,1,211,9,1,141,1,211 1145 DATA 177,216,170,173,1,211,41,254,141, 1 1150 DATA 211,138,145,216,230,216,208,230,2 30 1155 DATA 217,165,218,197,217,208,222,165,2 19,240,135 1160 DATA 208,143,173,142,68,3,134,212,140 1165 DATA 69,3,132,213,160,0,140,72,3,140,7 3 1170 DATA 3,177,212,201,4,240,11,238,72,3 1175 DATA 208,3,238,73,3,200,208,239,169,11 1180 DATA 162,0,141,66,3,76,86,228,226,2,22 7 1185 DATA 2,0,52,-1 DOWNLOAD ROMTORAM.BASBASIC Revision B Fix
This small program "fixes" your Revision B BASIC (see above) by copying BASIC ROM to RAM and writing the correct bytes into the location. This brings your BASIC B up to BASIC C, without needing the ROM chips or cartridge to do so (I still recommend that you acquire a new Revision C ROM from Atari). This means your BASIC is also alterable, since it is in RAM now. Matt the wizard does it again. I sug- gest you get onto the Gateway BBS and download his programs if you haven't already done so.Revision B BASIC to Revision C Converter
10 REM 800XL & 64K-600XL REV.B(UGS) 20 REM BASIC TO REV.C CONVERTER. 30 REM By Matthew J. W. Ratcliff 4/5/85 40 REM THIS LOADER WILL CREATE AN 50 REM AUTORUN.SYS FILE FOR YOU. 60 REM ADVISABLE TO MOVE DOWN RAMTOP 70 REM WHEN IN THE RAM/BASIC, SINCE 80 REM SOME ATARI GRAPHICS COMMANDS 90 REM WILL CLEAR RAM ABOVE RAMTOP. 100 REM (i.e. POKE 106,PEEK(106)-4:GR.0-6) 110 REM (i.e. POKE 106,PEEK(106)-16:GR.7-11 ) 120 RESTORE 130 GRAPHICS 0:DIM A$(10) 140 ? "GET DOS DISK READY FOR REV.B TO C" 150 ? "AUTORUN FILE AND PRESS RETURN KEY" 160 TRAP 220: INPUT A$ 170 OPEN #1,8,0,"D:AUTORUN.SYS" 180 READ A:IF A<0 THEN 200 190 PUT #1,A:GOTO 180 200 CLOSE #1:? "** ALL DONE **" 210 ? "SAVE THIS LOADER AS A BACKUP":? "JUS T IN CASE!":END 220 ? "ERROR # ";PEEK(195);" AT LINE ";PEEK (186)+256*PEEK(187):END 1000 DATA 255,255,0,6,130,6,169,0,133,2 1010 DATA 169,6,133,3,173,250,3,240,1,96 1020 DATA 169,0,133,216,169,160,133,217,160 ,0 1030 DATA 173,1,211,41,253,141,1,211,177,21 6 1040 DATA 72,173,1,211,9,2,141,1,211,104 1050 DATA 145,216,230,216,208,228,230,217,1 65,217 1060 DATA 201,192,208,220,162,0,169,12,133, 218 1070 DATA 160,0,189,95,6,133,216,232,189,95 1080 DATA 6,133,217,232,189,95,6,145,216,23 2 1090 DATA 198,218,208,232,165,9,9,2,133,9 1100 DATA 96,223,168,234,224,168,240,225,16 8,17 1110 DATA 226,168,234,41,187,0,243,191,0,24 4 1120 DATA 191,0,245,191,0,246,191,0,247,191 1130 DATA 0,248,191,0,249,191,0,226,2,227 1140 DATA 2,0,6,-1 DOWNLOAD REVBTOC.BAS
Return to Table of Contents | Previous Chapter | Next Chapter