Home » Archimedes archive » Archimedes World » AW-1996-08.adf » !6502DEm_6502Dem » Utils/SaveROMs

Utils/SaveROMs

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1996-08.adf » !6502DEm_6502Dem
Filename: Utils/SaveROMs
Read OK:
File size: 0BA6 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > SaveROMs
   20REM
   30REM Downloads ROMs to disc on BBC Computers
   40REM
   50REM v3
   60
   70IF !-4=&E568E374 THEN master35=TRUE ELSE master35=FALSE
   80MODE7
   90VDU23,1,0;0;0;0;
  100A%=0:X%=1:V%=(USR&FFF4 AND &FF00) DIV 256
  110I%=INKEY-256
  120IF V%>5 THEN PRINT"This program is for 8 bit Acorn machines":END
  130HIMEM=&3000
  140DIM A 200
  150IF !-4=&DC1CD9CD THEN PROCripbbcb:END
  160IF !-4=&DAE7D8D2 THEN PROCripelectron:END
  170IF !-4=&E59EE364 THEN PROCassem:PROCripmaster:END
  180IF !-4=&E568E374 THEN PROCassem:PROCripmaster35:END
  190IF !-4=&E5B7E386 THEN PROCassem:PROCripcompact:END
  200PRINT"Unrecognised machine":END
  210
  220DEFPROCripelectron
  230PRINTTAB(0,12)
  240PRINT"I think this is an Electron with OS 1.0"
  250FORI%=0 TO &3FFF STEP 4
  260I%!HIMEM=I%!&C000
  270NEXT
  280OSCLI "SAVE Electron "+STR$~HIMEM+" +4000 C000 C000"
  290PRINT"Electron"
  300FORI%=0 TO &3FFF STEP 4
  310I%!HIMEM=I%!&8000
  320NEXT
  330OSCLI "SAVE BASICII "+STR$~HIMEM+" +4000 8000 8000"
  340PRINT"BASICII"
  350ENDPROC
  360
  370DEFPROCripbbcb
  380PRINT"I think this is a BBC with OS 1.2"
  390FORI%=0 TO &3FFF STEP 4
  400I%!HIMEM=I%!&C000
  410NEXT
  420OSCLI "SAVE OS1,2 "+STR$~HIMEM+" +4000 C000 C000"
  430PRINT"OS1,2"
  440FORI%=0 TO &3FFF STEP 4
  450I%!HIMEM=I%!&8000
  460NEXT
  470OSCLI "SAVE BASICII "+STR$~HIMEM+" +4000 8000 8000"
  480PRINT"BASICII"
  490ENDPROC
  500
  510DEFPROCripmaster
  520PRINT"I think this is a Master 128 with OS 3.2"
  530PROCgetROM(15,"Terminal")
  540PROCgetROM(14,"View")
  550PROCgetROM(13,"ADFS1,50")
  560PROCgetROM(12,"BASICIV84")
  570PROCgetROM(11,"Edit1,00")
  580PROCgetROM(10,"ViewSheet")
  590PROCgetROM(9,"DFS2,24")
  600PROCripOS("OS3,2")
  610ENDPROC
  620
  630DEFPROCripmaster35
  640PRINT"I think this is a Master 128 with OS 3.5"
  650PROCgetROM(15,"Terminal35")
  660PROCgetROM(14,"ViewB3,3")
  670PROCgetROM(13,"ADFS2,03")
  680PROCgetROM(12,"BASIC4r32")
  690PROCgetROM(11,"Edit1,50r")
  700PROCgetROM(10,"ViewSh1,01")
  710PROCgetROM(9,"DFS2,45")
  720PROCripOS("OS3,5")
  730ENDPROC
  740
  750DEFPROCripcompact
  760PRINT"I think this is a Master Compact with OS 5.1"
  770PROCgetROM(15,"Utils")
  780PROCgetROM(14,"BASICIV86")
  790PROCgetROM(13,"ADFS2,10")
  800PROCripOS("OS5,1")
  810ENDPROC
  820
  830DEFPROCgetROM(N%,file$)
  840?&70=N%
  850CALLstart
  860OSCLI"SAVE "+file$+" "+STR$~HIMEM+" +4000 8000 8000"
  870PRINTfile$
  880ENDPROC
  890DEFPROCassem
  900FORPass%=0 TO 2 STEP 2
  910P%=A
  920[OPTPass%
  930.start
  940LDA#HIMEM DIV 256
  950STA&72
  960LDA#00
  970STA&71
  980LDA#114
  990LDY#0
 1000JSR&FFF4
 1010\LDA#22
 1020\JSR&FFEE
 1030\LDA#135
 1040\JSR&FFEE
 1050LDX #0
 1060LDY&70
 1070LDA#0
 1080STA&F6
 1090LDA#&80
 1100STA&F7
 1110.loop
 1120JSR&FFB9
 1130STA(&71)
 1140LDA&F6
 1150CLC
 1160ADC#1
 1170STA&F6
 1180LDA&F7
 1190ADC#0
 1200STA&F7
 1210LDA&71
 1220CLC
 1230ADC#1
 1240STA&71
 1250LDA&72
 1260ADC#0
 1270STA&72
 1280LDA&F7
 1290CMP#&C0
 1300BNE loop
 1310LDA&F6
 1320CMP#&0
 1330BNE loop
 1340RTS
 1350]
 1360NEXT
 1370ENDPROC
 1380DEFPROCripOS(F$)
 1390FORp=0 TO 2 STEP 2
 1400P%=A
 1410[OPTp
 1420.ripOS
 1430SEI
 1440LDA &FE34
 1450STA &70
 1460AND #(255-8)
 1470]
 1480
 1490IF master35=TRUE THEN [OPTp:ORA #&40 \ get bits hidden behind SHEI
 1500LA etc:]
 1510
 1520[OPTp
 1530STA &FE34
 1540LDA #0
 1550STA &72
 1560STA &74
 1570LDA #&C0
 1580STA &73
 1590LDA #HIMEM DIV 256
 1600STA &75
 1610LDY #0
 1620.loop
 1630LDA (&72),Y
 1640STA (&74),Y
 1650CLC
 1660LDA &74
 1670ADC #1
 1680STA &74
 1690LDA &75
 1700ADC #0
 1710STA &75
 1720CLC
 1730LDA &72
 1740ADC #1
 1750STA &72
 1760LDA &73
 1770ADC #0
 1780STA &73
 1790BCC loop
 1800LDA &70
 1810STA &FE34
 1820CLI
 1830RTS
 1840]
 1850CALL ripOS
 1860OSCLI"SAVE "+F$+" "+STR$~HIMEM+" +4000 C000 C000"
 1870PRINTF$
 1880ENDPROC

� > SaveROMs
�
-� Downloads ROMs to disc on BBC Computers
(�
2� v3
<
F-� !-4=&E568E374 � master35=� � master35=�
P�7
Z�23,1,0;0;0;0;
d'A%=0:X%=1:V%=(�&FFF4 � &FF00) � 256
nI%=�-256
x:� V%>5 � �"This program is for 8 bit Acorn machines":�
��=&3000
�� A 200
� � !-4=&DC1CD9CD � �ripbbcb:�
�$� !-4=&DAE7D8D2 � �ripelectron:�
�)� !-4=&E59EE364 � �assem:�ripmaster:�
�+� !-4=&E568E374 � �assem:�ripmaster35:�
�*� !-4=&E5B7E386 � �assem:�ripcompact:�
��"Unrecognised machine":�
�
���ripelectron
��0,12)
�.�"I think this is an Electron with OS 1.0"
��I%=0 � &3FFF � 4
I%!�=I%!&C000
�
-� "SAVE Electron "+�~�+" +4000 C000 C000"
"�"Electron"
,�I%=0 � &3FFF � 4
6I%!�=I%!&8000
@�
J,� "SAVE BASICII "+�~�+" +4000 8000 8000"
T�"BASICII"
^�
h
r
��ripbbcb
|(�"I think this is a BBC with OS 1.2"
��I%=0 � &3FFF � 4
�I%!�=I%!&C000
��
�*� "SAVE OS1,2 "+�~�+" +4000 C000 C000"
��"OS1,2"
��I%=0 � &3FFF � 4
�I%!�=I%!&8000
��
�,� "SAVE BASICII "+�~�+" +4000 8000 8000"
��"BASICII"
��
�
���ripmaster
/�"I think this is a Master 128 with OS 3.2"
�getROM(15,"Terminal")
�getROM(14,"View")
&�getROM(13,"ADFS1,50")
0�getROM(12,"BASICIV84")
:�getROM(11,"Edit1,00")
D�getROM(10,"ViewSheet")
N�getROM(9,"DFS2,24")
X�ripOS("OS3,2")
b�
l
v��ripmaster35
�/�"I think this is a Master 128 with OS 3.5"
��getROM(15,"Terminal35")
��getROM(14,"ViewB3,3")
��getROM(13,"ADFS2,03")
��getROM(12,"BASIC4r32")
��getROM(11,"Edit1,50r")
��getROM(10,"ViewSh1,01")
��getROM(9,"DFS2,45")
��ripOS("OS3,5")
��
�
���ripcompact
�3�"I think this is a Master Compact with OS 5.1"
�getROM(15,"Utils")
�getROM(14,"BASICIV86")
�getROM(13,"ADFS2,10")
 �ripOS("OS5,1")
*�
4
>��getROM(N%,file$)
H?&70=N%
R
�start
\-�"SAVE "+file$+" "+�~�+" +4000 8000 8000"
f
�file$
p�
z��assem
��Pass%=0 � 2 � 2
�P%=A
�
[OPTPass%
�
.start
�LDA#� � 256
�
STA&72
�
LDA#00
�
STA&71
�LDA#114
�	LDY#0
�JSR&FFF4
�\LDA#22
�
\JSR&FFEE
\LDA#135

\JSR&FFEE

LDX #0
$
LDY&70
.	LDA#0
8
STA&F6
BLDA#&80
L
STA&F7
V	.loop
`JSR&FFB9
jSTA(&71)
t
LDA&F6
~CLC
�	ADC#1
�
STA&F6
�
LDA&F7
�	ADC#0
�
STA&F7
�
LDA&71
�CLC
�	ADC#1
�
STA&71
�
LDA&72
�	ADC#0
�
STA&72

LDA&F7

CMP#&C0
BNE loop

LDA&F6
(
CMP#&0
2BNE loop
<RTS
F]
P�
Z�
d��ripOS(F$)
n�p=0 � 2 � 2
xP%=A
�	[OPTp
�
.ripOS
�SEI
�
LDA &FE34
�STA &70
�� #(255-8)
�]
�
�>� master35=� � [OPTp:�A #&40 \ get bits hidden behind SHEI
�LA etc:]
�
�	[OPTp
�
STA &FE34

LDA #0
STA &72
STA &74
"LDA #&C0
,STA &73
6LDA #� � 256
@STA &75
J
LDY #0
T	.loop
^LDA (&72),Y
hSTA (&74),Y
rCLC
|LDA &74
�
ADC #1
�STA &74
�LDA &75
�
ADC #0
�STA &75
�CLC
�LDA &72
�
ADC #1
�STA &72
�LDA &73
�
ADC #0
�STA &73
�BCC loop
LDA &70

STA &FE34
CLI
&RTS
0]
:� ripOS
D*�"SAVE "+F$+" "+�~�+" +4000 C000 C000"
N�F$
X�
�
00000000  0d 00 0a 10 f4 20 3e 20  53 61 76 65 52 4f 4d 73  |..... > SaveROMs|
00000010  0d 00 14 05 f4 0d 00 1e  2d f4 20 44 6f 77 6e 6c  |........-. Downl|
00000020  6f 61 64 73 20 52 4f 4d  73 20 74 6f 20 64 69 73  |oads ROMs to dis|
00000030  63 20 6f 6e 20 42 42 43  20 43 6f 6d 70 75 74 65  |c on BBC Compute|
00000040  72 73 0d 00 28 05 f4 0d  00 32 08 f4 20 76 33 0d  |rs..(....2.. v3.|
00000050  00 3c 04 0d 00 46 2d e7  20 21 2d 34 3d 26 45 35  |.<...F-. !-4=&E5|
00000060  36 38 45 33 37 34 20 8c  20 6d 61 73 74 65 72 33  |68E374 . master3|
00000070  35 3d b9 20 8b 20 6d 61  73 74 65 72 33 35 3d a3  |5=. . master35=.|
00000080  0d 00 50 06 eb 37 0d 00  5a 12 ef 32 33 2c 31 2c  |..P..7..Z..23,1,|
00000090  30 3b 30 3b 30 3b 30 3b  0d 00 64 27 41 25 3d 30  |0;0;0;0;..d'A%=0|
000000a0  3a 58 25 3d 31 3a 56 25  3d 28 ba 26 46 46 46 34  |:X%=1:V%=(.&FFF4|
000000b0  20 80 20 26 46 46 30 30  29 20 81 20 32 35 36 0d  | . &FF00) . 256.|
000000c0  00 6e 0c 49 25 3d a6 2d  32 35 36 0d 00 78 3a e7  |.n.I%=.-256..x:.|
000000d0  20 56 25 3e 35 20 8c 20  f1 22 54 68 69 73 20 70  | V%>5 . ."This p|
000000e0  72 6f 67 72 61 6d 20 69  73 20 66 6f 72 20 38 20  |rogram is for 8 |
000000f0  62 69 74 20 41 63 6f 72  6e 20 6d 61 63 68 69 6e  |bit Acorn machin|
00000100  65 73 22 3a e0 0d 00 82  0b d3 3d 26 33 30 30 30  |es":......=&3000|
00000110  0d 00 8c 0b de 20 41 20  32 30 30 0d 00 96 20 e7  |..... A 200... .|
00000120  20 21 2d 34 3d 26 44 43  31 43 44 39 43 44 20 8c  | !-4=&DC1CD9CD .|
00000130  20 f2 72 69 70 62 62 63  62 3a e0 0d 00 a0 24 e7  | .ripbbcb:....$.|
00000140  20 21 2d 34 3d 26 44 41  45 37 44 38 44 32 20 8c  | !-4=&DAE7D8D2 .|
00000150  20 f2 72 69 70 65 6c 65  63 74 72 6f 6e 3a e0 0d  | .ripelectron:..|
00000160  00 aa 29 e7 20 21 2d 34  3d 26 45 35 39 45 45 33  |..). !-4=&E59EE3|
00000170  36 34 20 8c 20 f2 61 73  73 65 6d 3a f2 72 69 70  |64 . .assem:.rip|
00000180  6d 61 73 74 65 72 3a e0  0d 00 b4 2b e7 20 21 2d  |master:....+. !-|
00000190  34 3d 26 45 35 36 38 45  33 37 34 20 8c 20 f2 61  |4=&E568E374 . .a|
000001a0  73 73 65 6d 3a f2 72 69  70 6d 61 73 74 65 72 33  |ssem:.ripmaster3|
000001b0  35 3a e0 0d 00 be 2a e7  20 21 2d 34 3d 26 45 35  |5:....*. !-4=&E5|
000001c0  42 37 45 33 38 36 20 8c  20 f2 61 73 73 65 6d 3a  |B7E386 . .assem:|
000001d0  f2 72 69 70 63 6f 6d 70  61 63 74 3a e0 0d 00 c8  |.ripcompact:....|
000001e0  1d f1 22 55 6e 72 65 63  6f 67 6e 69 73 65 64 20  |.."Unrecognised |
000001f0  6d 61 63 68 69 6e 65 22  3a e0 0d 00 d2 04 0d 00  |machine":.......|
00000200  dc 11 dd f2 72 69 70 65  6c 65 63 74 72 6f 6e 0d  |....ripelectron.|
00000210  00 e6 0b f1 8a 30 2c 31  32 29 0d 00 f0 2e f1 22  |.....0,12)....."|
00000220  49 20 74 68 69 6e 6b 20  74 68 69 73 20 69 73 20  |I think this is |
00000230  61 6e 20 45 6c 65 63 74  72 6f 6e 20 77 69 74 68  |an Electron with|
00000240  20 4f 53 20 31 2e 30 22  0d 00 fa 15 e3 49 25 3d  | OS 1.0".....I%=|
00000250  30 20 b8 20 26 33 46 46  46 20 88 20 34 0d 01 04  |0 . &3FFF . 4...|
00000260  11 49 25 21 93 3d 49 25  21 26 43 30 30 30 0d 01  |.I%!.=I%!&C000..|
00000270  0e 05 ed 0d 01 18 2d ff  20 22 53 41 56 45 20 45  |......-. "SAVE E|
00000280  6c 65 63 74 72 6f 6e 20  22 2b c3 7e 93 2b 22 20  |lectron "+.~.+" |
00000290  2b 34 30 30 30 20 43 30  30 30 20 43 30 30 30 22  |+4000 C000 C000"|
000002a0  0d 01 22 0f f1 22 45 6c  65 63 74 72 6f 6e 22 0d  |..".."Electron".|
000002b0  01 2c 15 e3 49 25 3d 30  20 b8 20 26 33 46 46 46  |.,..I%=0 . &3FFF|
000002c0  20 88 20 34 0d 01 36 11  49 25 21 93 3d 49 25 21  | . 4..6.I%!.=I%!|
000002d0  26 38 30 30 30 0d 01 40  05 ed 0d 01 4a 2c ff 20  |&8000..@....J,. |
000002e0  22 53 41 56 45 20 42 41  53 49 43 49 49 20 22 2b  |"SAVE BASICII "+|
000002f0  c3 7e 93 2b 22 20 2b 34  30 30 30 20 38 30 30 30  |.~.+" +4000 8000|
00000300  20 38 30 30 30 22 0d 01  54 0e f1 22 42 41 53 49  | 8000"..T.."BASI|
00000310  43 49 49 22 0d 01 5e 05  e1 0d 01 68 04 0d 01 72  |CII"..^....h...r|
00000320  0d dd f2 72 69 70 62 62  63 62 0d 01 7c 28 f1 22  |...ripbbcb..|(."|
00000330  49 20 74 68 69 6e 6b 20  74 68 69 73 20 69 73 20  |I think this is |
00000340  61 20 42 42 43 20 77 69  74 68 20 4f 53 20 31 2e  |a BBC with OS 1.|
00000350  32 22 0d 01 86 15 e3 49  25 3d 30 20 b8 20 26 33  |2".....I%=0 . &3|
00000360  46 46 46 20 88 20 34 0d  01 90 11 49 25 21 93 3d  |FFF . 4....I%!.=|
00000370  49 25 21 26 43 30 30 30  0d 01 9a 05 ed 0d 01 a4  |I%!&C000........|
00000380  2a ff 20 22 53 41 56 45  20 4f 53 31 2c 32 20 22  |*. "SAVE OS1,2 "|
00000390  2b c3 7e 93 2b 22 20 2b  34 30 30 30 20 43 30 30  |+.~.+" +4000 C00|
000003a0  30 20 43 30 30 30 22 0d  01 ae 0c f1 22 4f 53 31  |0 C000"....."OS1|
000003b0  2c 32 22 0d 01 b8 15 e3  49 25 3d 30 20 b8 20 26  |,2".....I%=0 . &|
000003c0  33 46 46 46 20 88 20 34  0d 01 c2 11 49 25 21 93  |3FFF . 4....I%!.|
000003d0  3d 49 25 21 26 38 30 30  30 0d 01 cc 05 ed 0d 01  |=I%!&8000.......|
000003e0  d6 2c ff 20 22 53 41 56  45 20 42 41 53 49 43 49  |.,. "SAVE BASICI|
000003f0  49 20 22 2b c3 7e 93 2b  22 20 2b 34 30 30 30 20  |I "+.~.+" +4000 |
00000400  38 30 30 30 20 38 30 30  30 22 0d 01 e0 0e f1 22  |8000 8000"....."|
00000410  42 41 53 49 43 49 49 22  0d 01 ea 05 e1 0d 01 f4  |BASICII"........|
00000420  04 0d 01 fe 0f dd f2 72  69 70 6d 61 73 74 65 72  |.......ripmaster|
00000430  0d 02 08 2f f1 22 49 20  74 68 69 6e 6b 20 74 68  |.../."I think th|
00000440  69 73 20 69 73 20 61 20  4d 61 73 74 65 72 20 31  |is is a Master 1|
00000450  32 38 20 77 69 74 68 20  4f 53 20 33 2e 32 22 0d  |28 with OS 3.2".|
00000460  02 12 1a f2 67 65 74 52  4f 4d 28 31 35 2c 22 54  |....getROM(15,"T|
00000470  65 72 6d 69 6e 61 6c 22  29 0d 02 1c 16 f2 67 65  |erminal").....ge|
00000480  74 52 4f 4d 28 31 34 2c  22 56 69 65 77 22 29 0d  |tROM(14,"View").|
00000490  02 26 1a f2 67 65 74 52  4f 4d 28 31 33 2c 22 41  |.&..getROM(13,"A|
000004a0  44 46 53 31 2c 35 30 22  29 0d 02 30 1b f2 67 65  |DFS1,50")..0..ge|
000004b0  74 52 4f 4d 28 31 32 2c  22 42 41 53 49 43 49 56  |tROM(12,"BASICIV|
000004c0  38 34 22 29 0d 02 3a 1a  f2 67 65 74 52 4f 4d 28  |84")..:..getROM(|
000004d0  31 31 2c 22 45 64 69 74  31 2c 30 30 22 29 0d 02  |11,"Edit1,00")..|
000004e0  44 1b f2 67 65 74 52 4f  4d 28 31 30 2c 22 56 69  |D..getROM(10,"Vi|
000004f0  65 77 53 68 65 65 74 22  29 0d 02 4e 18 f2 67 65  |ewSheet")..N..ge|
00000500  74 52 4f 4d 28 39 2c 22  44 46 53 32 2c 32 34 22  |tROM(9,"DFS2,24"|
00000510  29 0d 02 58 13 f2 72 69  70 4f 53 28 22 4f 53 33  |)..X..ripOS("OS3|
00000520  2c 32 22 29 0d 02 62 05  e1 0d 02 6c 04 0d 02 76  |,2")..b....l...v|
00000530  11 dd f2 72 69 70 6d 61  73 74 65 72 33 35 0d 02  |...ripmaster35..|
00000540  80 2f f1 22 49 20 74 68  69 6e 6b 20 74 68 69 73  |./."I think this|
00000550  20 69 73 20 61 20 4d 61  73 74 65 72 20 31 32 38  | is a Master 128|
00000560  20 77 69 74 68 20 4f 53  20 33 2e 35 22 0d 02 8a  | with OS 3.5"...|
00000570  1c f2 67 65 74 52 4f 4d  28 31 35 2c 22 54 65 72  |..getROM(15,"Ter|
00000580  6d 69 6e 61 6c 33 35 22  29 0d 02 94 1a f2 67 65  |minal35").....ge|
00000590  74 52 4f 4d 28 31 34 2c  22 56 69 65 77 42 33 2c  |tROM(14,"ViewB3,|
000005a0  33 22 29 0d 02 9e 1a f2  67 65 74 52 4f 4d 28 31  |3").....getROM(1|
000005b0  33 2c 22 41 44 46 53 32  2c 30 33 22 29 0d 02 a8  |3,"ADFS2,03")...|
000005c0  1b f2 67 65 74 52 4f 4d  28 31 32 2c 22 42 41 53  |..getROM(12,"BAS|
000005d0  49 43 34 72 33 32 22 29  0d 02 b2 1b f2 67 65 74  |IC4r32").....get|
000005e0  52 4f 4d 28 31 31 2c 22  45 64 69 74 31 2c 35 30  |ROM(11,"Edit1,50|
000005f0  72 22 29 0d 02 bc 1c f2  67 65 74 52 4f 4d 28 31  |r").....getROM(1|
00000600  30 2c 22 56 69 65 77 53  68 31 2c 30 31 22 29 0d  |0,"ViewSh1,01").|
00000610  02 c6 18 f2 67 65 74 52  4f 4d 28 39 2c 22 44 46  |....getROM(9,"DF|
00000620  53 32 2c 34 35 22 29 0d  02 d0 13 f2 72 69 70 4f  |S2,45").....ripO|
00000630  53 28 22 4f 53 33 2c 35  22 29 0d 02 da 05 e1 0d  |S("OS3,5")......|
00000640  02 e4 04 0d 02 ee 10 dd  f2 72 69 70 63 6f 6d 70  |.........ripcomp|
00000650  61 63 74 0d 02 f8 33 f1  22 49 20 74 68 69 6e 6b  |act...3."I think|
00000660  20 74 68 69 73 20 69 73  20 61 20 4d 61 73 74 65  | this is a Maste|
00000670  72 20 43 6f 6d 70 61 63  74 20 77 69 74 68 20 4f  |r Compact with O|
00000680  53 20 35 2e 31 22 0d 03  02 17 f2 67 65 74 52 4f  |S 5.1".....getRO|
00000690  4d 28 31 35 2c 22 55 74  69 6c 73 22 29 0d 03 0c  |M(15,"Utils")...|
000006a0  1b f2 67 65 74 52 4f 4d  28 31 34 2c 22 42 41 53  |..getROM(14,"BAS|
000006b0  49 43 49 56 38 36 22 29  0d 03 16 1a f2 67 65 74  |ICIV86").....get|
000006c0  52 4f 4d 28 31 33 2c 22  41 44 46 53 32 2c 31 30  |ROM(13,"ADFS2,10|
000006d0  22 29 0d 03 20 13 f2 72  69 70 4f 53 28 22 4f 53  |").. ..ripOS("OS|
000006e0  35 2c 31 22 29 0d 03 2a  05 e1 0d 03 34 04 0d 03  |5,1")..*....4...|
000006f0  3e 16 dd f2 67 65 74 52  4f 4d 28 4e 25 2c 66 69  |>...getROM(N%,fi|
00000700  6c 65 24 29 0d 03 48 0b  3f 26 37 30 3d 4e 25 0d  |le$)..H.?&70=N%.|
00000710  03 52 0a d6 73 74 61 72  74 0d 03 5c 2d ff 22 53  |.R..start..\-."S|
00000720  41 56 45 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |AVE "+file$+" "+|
00000730  c3 7e 93 2b 22 20 2b 34  30 30 30 20 38 30 30 30  |.~.+" +4000 8000|
00000740  20 38 30 30 30 22 0d 03  66 0a f1 66 69 6c 65 24  | 8000"..f..file$|
00000750  0d 03 70 05 e1 0d 03 7a  0b dd f2 61 73 73 65 6d  |..p....z...assem|
00000760  0d 03 84 14 e3 50 61 73  73 25 3d 30 20 b8 20 32  |.....Pass%=0 . 2|
00000770  20 88 20 32 0d 03 8e 08  50 25 3d 41 0d 03 98 0d  | . 2....P%=A....|
00000780  5b 4f 50 54 50 61 73 73  25 0d 03 a2 0a 2e 73 74  |[OPTPass%.....st|
00000790  61 72 74 0d 03 ac 0f 4c  44 41 23 93 20 81 20 32  |art....LDA#. . 2|
000007a0  35 36 0d 03 b6 0a 53 54  41 26 37 32 0d 03 c0 0a  |56....STA&72....|
000007b0  4c 44 41 23 30 30 0d 03  ca 0a 53 54 41 26 37 31  |LDA#00....STA&71|
000007c0  0d 03 d4 0b 4c 44 41 23  31 31 34 0d 03 de 09 4c  |....LDA#114....L|
000007d0  44 59 23 30 0d 03 e8 0c  4a 53 52 26 46 46 46 34  |DY#0....JSR&FFF4|
000007e0  0d 03 f2 0b 5c 4c 44 41  23 32 32 0d 03 fc 0d 5c  |....\LDA#22....\|
000007f0  4a 53 52 26 46 46 45 45  0d 04 06 0c 5c 4c 44 41  |JSR&FFEE....\LDA|
00000800  23 31 33 35 0d 04 10 0d  5c 4a 53 52 26 46 46 45  |#135....\JSR&FFE|
00000810  45 0d 04 1a 0a 4c 44 58  20 23 30 0d 04 24 0a 4c  |E....LDX #0..$.L|
00000820  44 59 26 37 30 0d 04 2e  09 4c 44 41 23 30 0d 04  |DY&70....LDA#0..|
00000830  38 0a 53 54 41 26 46 36  0d 04 42 0b 4c 44 41 23  |8.STA&F6..B.LDA#|
00000840  26 38 30 0d 04 4c 0a 53  54 41 26 46 37 0d 04 56  |&80..L.STA&F7..V|
00000850  09 2e 6c 6f 6f 70 0d 04  60 0c 4a 53 52 26 46 46  |..loop..`.JSR&FF|
00000860  42 39 0d 04 6a 0c 53 54  41 28 26 37 31 29 0d 04  |B9..j.STA(&71)..|
00000870  74 0a 4c 44 41 26 46 36  0d 04 7e 07 43 4c 43 0d  |t.LDA&F6..~.CLC.|
00000880  04 88 09 41 44 43 23 31  0d 04 92 0a 53 54 41 26  |...ADC#1....STA&|
00000890  46 36 0d 04 9c 0a 4c 44  41 26 46 37 0d 04 a6 09  |F6....LDA&F7....|
000008a0  41 44 43 23 30 0d 04 b0  0a 53 54 41 26 46 37 0d  |ADC#0....STA&F7.|
000008b0  04 ba 0a 4c 44 41 26 37  31 0d 04 c4 07 43 4c 43  |...LDA&71....CLC|
000008c0  0d 04 ce 09 41 44 43 23  31 0d 04 d8 0a 53 54 41  |....ADC#1....STA|
000008d0  26 37 31 0d 04 e2 0a 4c  44 41 26 37 32 0d 04 ec  |&71....LDA&72...|
000008e0  09 41 44 43 23 30 0d 04  f6 0a 53 54 41 26 37 32  |.ADC#0....STA&72|
000008f0  0d 05 00 0a 4c 44 41 26  46 37 0d 05 0a 0b 43 4d  |....LDA&F7....CM|
00000900  50 23 26 43 30 0d 05 14  0c 42 4e 45 20 6c 6f 6f  |P#&C0....BNE loo|
00000910  70 0d 05 1e 0a 4c 44 41  26 46 36 0d 05 28 0a 43  |p....LDA&F6..(.C|
00000920  4d 50 23 26 30 0d 05 32  0c 42 4e 45 20 6c 6f 6f  |MP#&0..2.BNE loo|
00000930  70 0d 05 3c 07 52 54 53  0d 05 46 05 5d 0d 05 50  |p..<.RTS..F.]..P|
00000940  05 ed 0d 05 5a 05 e1 0d  05 64 0f dd f2 72 69 70  |....Z....d...rip|
00000950  4f 53 28 46 24 29 0d 05  6e 10 e3 70 3d 30 20 b8  |OS(F$)..n..p=0 .|
00000960  20 32 20 88 20 32 0d 05  78 08 50 25 3d 41 0d 05  | 2 . 2..x.P%=A..|
00000970  82 09 5b 4f 50 54 70 0d  05 8c 0a 2e 72 69 70 4f  |..[OPTp.....ripO|
00000980  53 0d 05 96 07 53 45 49  0d 05 a0 0d 4c 44 41 20  |S....SEI....LDA |
00000990  26 46 45 33 34 0d 05 aa  0b 53 54 41 20 26 37 30  |&FE34....STA &70|
000009a0  0d 05 b4 0e 80 20 23 28  32 35 35 2d 38 29 0d 05  |..... #(255-8)..|
000009b0  be 05 5d 0d 05 c8 04 0d  05 d2 3e e7 20 6d 61 73  |..].......>. mas|
000009c0  74 65 72 33 35 3d b9 20  8c 20 5b 4f 50 54 70 3a  |ter35=. . [OPTp:|
000009d0  84 41 20 23 26 34 30 20  5c 20 67 65 74 20 62 69  |.A #&40 \ get bi|
000009e0  74 73 20 68 69 64 64 65  6e 20 62 65 68 69 6e 64  |ts hidden behind|
000009f0  20 53 48 45 49 0d 05 dc  0c 4c 41 20 65 74 63 3a  | SHEI....LA etc:|
00000a00  5d 0d 05 e6 04 0d 05 f0  09 5b 4f 50 54 70 0d 05  |]........[OPTp..|
00000a10  fa 0d 53 54 41 20 26 46  45 33 34 0d 06 04 0a 4c  |..STA &FE34....L|
00000a20  44 41 20 23 30 0d 06 0e  0b 53 54 41 20 26 37 32  |DA #0....STA &72|
00000a30  0d 06 18 0b 53 54 41 20  26 37 34 0d 06 22 0c 4c  |....STA &74..".L|
00000a40  44 41 20 23 26 43 30 0d  06 2c 0b 53 54 41 20 26  |DA #&C0..,.STA &|
00000a50  37 33 0d 06 36 10 4c 44  41 20 23 93 20 81 20 32  |73..6.LDA #. . 2|
00000a60  35 36 0d 06 40 0b 53 54  41 20 26 37 35 0d 06 4a  |56..@.STA &75..J|
00000a70  0a 4c 44 59 20 23 30 0d  06 54 09 2e 6c 6f 6f 70  |.LDY #0..T..loop|
00000a80  0d 06 5e 0f 4c 44 41 20  28 26 37 32 29 2c 59 0d  |..^.LDA (&72),Y.|
00000a90  06 68 0f 53 54 41 20 28  26 37 34 29 2c 59 0d 06  |.h.STA (&74),Y..|
00000aa0  72 07 43 4c 43 0d 06 7c  0b 4c 44 41 20 26 37 34  |r.CLC..|.LDA &74|
00000ab0  0d 06 86 0a 41 44 43 20  23 31 0d 06 90 0b 53 54  |....ADC #1....ST|
00000ac0  41 20 26 37 34 0d 06 9a  0b 4c 44 41 20 26 37 35  |A &74....LDA &75|
00000ad0  0d 06 a4 0a 41 44 43 20  23 30 0d 06 ae 0b 53 54  |....ADC #0....ST|
00000ae0  41 20 26 37 35 0d 06 b8  07 43 4c 43 0d 06 c2 0b  |A &75....CLC....|
00000af0  4c 44 41 20 26 37 32 0d  06 cc 0a 41 44 43 20 23  |LDA &72....ADC #|
00000b00  31 0d 06 d6 0b 53 54 41  20 26 37 32 0d 06 e0 0b  |1....STA &72....|
00000b10  4c 44 41 20 26 37 33 0d  06 ea 0a 41 44 43 20 23  |LDA &73....ADC #|
00000b20  30 0d 06 f4 0b 53 54 41  20 26 37 33 0d 06 fe 0c  |0....STA &73....|
00000b30  42 43 43 20 6c 6f 6f 70  0d 07 08 0b 4c 44 41 20  |BCC loop....LDA |
00000b40  26 37 30 0d 07 12 0d 53  54 41 20 26 46 45 33 34  |&70....STA &FE34|
00000b50  0d 07 1c 07 43 4c 49 0d  07 26 07 52 54 53 0d 07  |....CLI..&.RTS..|
00000b60  30 05 5d 0d 07 3a 0b d6  20 72 69 70 4f 53 0d 07  |0.]..:.. ripOS..|
00000b70  44 2a ff 22 53 41 56 45  20 22 2b 46 24 2b 22 20  |D*."SAVE "+F$+" |
00000b80  22 2b c3 7e 93 2b 22 20  2b 34 30 30 30 20 43 30  |"+.~.+" +4000 C0|
00000b90  30 30 20 43 30 30 30 22  0d 07 4e 07 f1 46 24 0d  |00 C000"..N..F$.|
00000ba0  07 58 05 e1 0d ff                                 |.X....|
00000ba6