Home » Archimedes archive » Micro User » MU 1990-11.adf » Listings » SpdROMSRC
SpdROMSRC
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 » Micro User » MU 1990-11.adf » Listings |
| Filename: | SpdROMSRC |
| Read OK: | ✔ |
| File size: | 1E16 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >SpdROMSRC
20 REM By Gareth S. Long.
30 REM (c) The Micro User
40 length%=&A00
50 DIM code% length%
60 FORI%=0TOlength%STEP4:I%!code%=0:NEXT
70 help=0 :REM help message activated
80 verbose=4 :REM Gives information while running
90 testroms=8:REM Just checks to see if ROMs will run at 8MHz
100 reflect=12:REM Reflect the current MEMC state
110 prompt=16 :REM If ROMs pass, ask user for permission to run ROMs at 8MHz
120 error=20 :REM Quit with error if ROMs fail test
130 return=24 :REM Return ROM speed to 4MHz
140 oldmemc=28:REM MEMC State on entry
150 FORI%=0TO3 STEP 3
160 P%=code%
170 [OPT I%
180 SUB r13, r13,#&100 ; Gets around known bug in Arthur 1.20
190 STMFD r13!,{r0-r12,r14}
200 STMFD r13!,{r14}
210 LDRB r0,[r1]
220 BL noparams
230 CMP r0,#&20
240 BLGE decodeparams
250 LDMFD r13!,{r14}
260 LDR r0,[r12,#help]
270 CMP r0,#&FF
280 ADREQ r0,version
290 SWIEQ "XOS_Write0"
300 ADREQ r0,syntaxmessage
310 SWIEQ "XOS_Write0"
320 ADREQ r0,helptext
330 SWIEQ "XOS_Write0"
340 BEQ exit
350 LDR r0,[r12,#verbose] ; Verbose - initialisation
360 CMP r0,#&FF
370 ADREQ r0,version
380 SWIEQ "XOS_Write0"
390 LDR r0,[r12,#return]
400 CMP r0,#&FF
410 BNE pretest
420 MOV r0,#&00
430 MOV r1,#&40
440 SWI "XOS_UpdateMEMC"
450 LDR r0,[r12,#verbose]
460 CMP r0,#&FF
470 BNE exit
480 ADR r0,returnmess
490 SWI "XOS_Write0"
500 B exit
510 .returnmess
520 EQUS "System ROM Speed returned to 4MHz"+CHR$10+CHR$13+CHR$0
530 ALIGN
540 .pretest
550 MOV r0,#&00
560 MOV r1,r0
570 SWI "XOS_UpdateMEMC"
580 STR r0,[r12,#oldmemc]
590 MOV r2,r0
600 LDR r1,[r12,#reflect]
610 LDR r0,[r12,#verbose]
620 ORR r1,r1,r0
630 CMP r1,#&FF
640 BNE test
650 ADR r0,speedmessagea ; user request for ROM status or Verbose
660 SWI "XOS_Write0"
670 AND r2,r2,#&40
680 CMP r2,#&40
690 ADREQ r0,speededup
700 ADRNE r0,notspeededup
710 SWI "XOS_Write0"
720 LDR r0,[r12,#verbose]
730 CMP r0,#&FF
740 BNE exit
750 .test
760 MOV r0,#&30
770 MOV r1,r0
780 SWI "XOS_UpdateMEMC" ; Speed up lower ROM bank
790 MOV r0,#&00
800 MOV r1,#&40
810 SWI "XOS_UpdateMEMC" ; Slow down higher ROM bank
820 MOV r0,#&3400000 ; Lower bank (Unused)
830 MOV r1,#&3800000 ; Higher bank (Used)
840 MOV r10, #&00
850 .loop
860 LDMIA r0!, {r2-5} ; Checksums speeded up bank with
870 LDMIA r1!, {r6-9} ; Normal speed bank. The ROM test
880 EOR r2,r2, r6 ; will fail if a difference is
890 EOR r3,r3, r7 ; detected between the two banks.
900 EOR r4,r4, r8
910 EOR r5,r5, r9
920 ORR r10, r10,r2
930 ORR r10, r10,r3
940 ORR r10, r10,r4
950 ORR r10, r10,r5
960 TST r0,#&80000
970 BEQ loop
980 MOV r11, r10
990 MOV r0,#&00
1000 MOV r1,#&30
1010 SWI "XOS_UpdateMEMC" ; Slow down lower bank again
1020 LDR r0,[r12,#oldmemc]
1030 MOV r1,r0
1040 SWI "XOS_UpdateMEMC" ; add bits to initial value
1050 .prepokerom
1060 LDR r0,[r12,#testroms]
1070 LDR r1,[r12,#verbose]
1080 ORR r0,r0,r1
1090 CMP r0,#&FF
1100 BNE pokerom
1110 ADR r0,speedmessagea ; user request for speed check or Verbose
1120 SWI "XOS_Write0"
1130 CMP r11, #&00
1140 ADREQ r0,passedmess
1150 ADRNE r0,failedmess
1160 SWI "XOS_Write0"
1170 LDR r0,[r12,#verbose]
1180 CMP r0,#&FF
1190 BNE exit
1200 B pokerom
1210 .syntaxmessage
1220 EQUS "Syntax: SpeedROM [-h] [-v] [-t] [-s] [-p] [-e] [-r]"+CHR$10+CHR$10+CHR$13+CHR$0
1230 ALIGN
1240 .version
1250 EQUS "SpeedROM 1.00 [29-May-89]"+CHR$10+CHR$13+CHR$0
1260 ALIGN
1270 .helptext
1280 EQUS "SpeedROM attempts to increase System ROM speed"+CHR$10+CHR$13
1290 EQUS "by reprogramming MEMC. SpeedROM takes various"+CHR$10+CHR$13
1300 EQUS "extra parameters as follows."+CHR$10+CHR$10+CHR$13
1310 EQUS " -H Help - activate extra help"+CHR$10+CHR$13
1320 EQUS " -V Verbose - activate SpeedROM messages"+CHR$10+CHR$13
1330 EQUS " -T Test - just test system ROMs at 8MHz"+CHR$10+CHR$13
1340 EQUS " -S Status - just reflect current ROM state"+CHR$10+CHR$13
1350 EQUS " -P Prompt - Prompt user for permission to run ROMs at 8MHz"+CHR$10+CHR$13
1360 EQUS " -E Error - return with error if ROMs fail speed test"+CHR$10+CHR$13
1370 EQUS " -R Return - Return ROM speed to 4MHz"+CHR$10+CHR$10+CHR$13+CHR$0
1380 ALIGN
1390 .passedmess
1400 EQUS "are capable of running at 8MHz"+CHR$10+CHR$13+CHR$0
1410 ALIGN
1420 .failedmess
1430 EQUS "are incapable of running at 8MHz"+CHR$10+CHR$13+CHR$0
1440 ALIGN
1450 .pokerom
1460 CMP r11, #&00
1470 BNE failed
1480 LDR r0,[r12,#prompt]
1490 CMP r0,#&FF
1500 BNE updatememc
1510 ADR r0,promptmess ; user request to provide prompt
1520 SWI "XOS_Write0"
1530 .input
1540 SWI "XOS_ReadC"
1550 AND r0,r0,#&DF
1560 CMP r0,#ASC"Y"
1570 SWIEQ "XOS_WriteC"
1580 MOVEQ r0,#&0A
1590 SWIEQ "XOS_WriteC"
1600 MOVEQ r0,#&0D
1610 SWIEQ "XOS_WriteC"
1620 BEQ updatememc
1630 CMP r0,#ASC"N"
1640 SWIEQ "XOS_WriteC"
1650 MOVEQ r0,#&0A
1660 SWIEQ "XOS_WriteC"
1670 MOVEQ r0,#&0D
1680 SWIEQ "XOS_WriteC"
1690 BEQ exit
1700 B input
1710 .updatememc
1720 MOV r0,#&40
1730 MOV r1,r0
1740 SWI "XOS_UpdateMEMC" ; Actually speed up the ROMs!
1750 LDR r0,[r12,#verbose]
1760 CMP r0,#&FF
1770 BNE exit
1780 ADR r0,done
1790 SWI "XOS_Write0" ; Verbose - inform task complete
1800 B exit
1810 .speedmessagea
1820 EQUS "The System ROMs "+CHR$0
1830 ALIGN
1840 .speededup
1850 EQUS "are currently operating at RAM speed - 8MHz"+CHR$10+CHR$13+CHR$0
1860 ALIGN
1870 .notspeededup
1880 EQUS "are currently operating at ROM speed - 4MHz"+CHR$10+CHR$13+CHR$0
1890 ALIGN
1900 .failed
1910 LDR r0,[r12,#error] ; FAILED. error out if specified
1920 CMP r0,#&FF
1930 LDMEQFD r13!,{r0-r12,r1}
1940 ADREQ r0,failederror
1950 ORREQS pc,r14,#&10000000
1960 .exit
1970 LDMFD r13!,{r0-r12,pc}
1980 .noparams
1990 MOV r2,#&00
2000 STR r2,[r12,#help] ;
2010 STR r2,[r12,#verbose] ;
2020 STR r2,[r12,#testroms] ; Defaults
2030 STR r2,[r12,#reflect] ;
2040 STR r2,[r12,#prompt] ;
2050 STR r2,[r12,#error] ;
2060 STR r2,[r12,#return] ;
2070 MOV pc,r14
2080 .decodeparams
2090 LDRB r0,[r1,#&00]
2100 CMP r0,#&20
2110 ADDEQ r1,r1, #&01 ; if space, recurse
2120 BEQ decodeparams
2130 CMP r0,#&00
2140 MOVEQ pc,r14 ; if zero, end decode loop
2150 CMP r0,#ASC"-"
2160 .badsyntax
2170 ADRNE r0,version
2180 SWINE "XOS_Write0"
2190 ADRNE r0,syntaxmessage
2200 SWINE "XOS_Write0" ; bad syntax
2210 LDMNEFD r13!,{r14}
2220 BNE exit
2230 MOV r2,#&FF ; found a command
2240 ADD r1,r1, #&01
2250 LDRB r0,[r1,#&00]
2260 ADD r1,r1, #&01
2270 AND r0,r0, #&DF
2280 CMP r0,#ASC"H"
2290 STREQ r2,[r12,#help]
2300 BEQ decodeparams
2310 CMP r0,#ASC"V"
2320 STREQ r2,[r12,#verbose]
2330 BEQ decodeparams
2340 CMP r0,#ASC"T"
2350 STREQ r2,[r12,#testroms]
2360 BEQ decodeparams
2370 CMP r0,#ASC"S"
2380 STREQ r2,[r12,#reflect]
2390 BEQ decodeparams
2400 CMP r0,#ASC"P"
2410 STREQ r2,[r12,#prompt]
2420 BEQ decodeparams
2430 CMP r0,#ASC"E"
2440 STREQ r2,[r12,#error]
2450 BEQ decodeparams
2460 CMP r0,#ASC"R"
2470 STREQ r2,[r12,#return]
2480 BEQ decodeparams ; recurse to look for more
2490 BNE badsyntax ; unrecognised request
2500 .promptmess
2510 EQUS "Your system ROMs are able to run at twice the current"+CHR$10+CHR$13
2520 EQUS "Speed. This can result in a 20% increase in overall speed."+CHR$10+CHR$13
2530 EQUS "Do you wish to take advantage of this speed increase (Y/N)?"+CHR$0
2540 ALIGN
2550 .failederror
2560 EQUD &28900
2570 EQUS "System ROMs incapable of running at 8MHz"+CHR$0
2580 ALIGN
2590 .done
2600 EQUS "The System ROMs are now running at 8MHz"+CHR$10+CHR$13+CHR$0
2610 ALIGN
2620 .Version
2630 EQUS "MEMC ROM Accelerator Version 1.00 (29 May 1989)"+CHR$13
2640 ALIGN
2650 ]
2660 NEXT
2670 OSCLI "Save SpeedROM "+STR$~code%+" "+STR$~P%
2680 *SetType SpeedROM FFC
2690 END
� >SpdROMSRC
� By Gareth S. Long.
� (c) The Micro User
( length%=&A00
2 � code% length%
<! �I%=0�length%�4:I%!code%=0:�
F( help=0 :� help message activated
P1 verbose=4 :� Gives information while running
Z= testroms=8:� Just checks to see if ROMs will run at 8MHz
d0 reflect=12:� Reflect the current MEMC state
nK prompt=16 :� If ROMs pass, ask user for permission to run ROMs at 8MHz
x3 error=20 :� Quit with error if ROMs fail test
�* return=24 :� Return ROM speed to 4MHz
�% oldmemc=28:� MEMC State on entry
� �I%=0�3 � 3
�
P%=code%
� [OPT I%
�E SUB r13, r13,#&100 ; Gets around known bug in Arthur 1.20
� STMFD r13!,{r0-r12,r14}
� STMFD r13!,{r14}
� LDRB r0,[r1]
� BL noparams
� CMP r0,#&20
� BLGE decodeparams
� LDMFD r13!,{r14}
LDR r0,[r12,#help]
CMP r0,#&FF
ADREQ r0,version
" SWIEQ "XOS_Write0"
, ADREQ r0,syntaxmessage
6 SWIEQ "XOS_Write0"
@ ADREQ r0,helptext
J SWIEQ "XOS_Write0"
T BEQ exit
^9 LDR r0,[r12,#verbose] ; Verbose - initialisation
h CMP r0,#&FF
r ADREQ r0,version
| SWIEQ "XOS_Write0"
� LDR r0,[r12,#return]
� CMP r0,#&FF
� BNE pretest
� MOV r0,#&00
� MOV r1,#&40
� SWI "XOS_UpdateMEMC"
� LDR r0,[r12,#verbose]
� CMP r0,#&FF
� BNE exit
� ADR r0,returnmess
� SWI "XOS_Write0"
� B exit
� .returnmess
: EQUS "System ROM Speed returned to 4MHz"+�10+�13+�0
ALIGN
.pretest
& MOV r0,#&00
0 MOV r1,r0
: SWI "XOS_UpdateMEMC"
D STR r0,[r12,#oldmemc]
N MOV r2,r0
X LDR r1,[r12,#reflect]
b LDR r0,[r12,#verbose]
l �R r1,r1,r0
v CMP r1,#&FF
� BNE test
�G ADR r0,speedmessagea ; user request for ROM status or Verbose
� SWI "XOS_Write0"
� � r2,r2,#&40
� CMP r2,#&40
� ADREQ r0,speededup
� ADRNE r0,notspeededup
� SWI "XOS_Write0"
� LDR r0,[r12,#verbose]
� CMP r0,#&FF
� BNE exit
�
.test
� MOV r0,#&30
MOV r1,r0
8 SWI "XOS_UpdateMEMC" ; Speed up lower ROM bank
MOV r0,#&00
MOV r1,#&40
*: SWI "XOS_UpdateMEMC" ; Slow down higher ROM bank
42 MOV r0,#&3400000 ; Lower bank (Unused)
>1 MOV r1,#&3800000 ; Higher bank (Used)
H MOV r10, #&00
R
.loop
\; LDMIA r0!, {r2-5} ; Checksums speeded up bank with
f< LDMIA r1!, {r6-9} ; Normal speed bank. The ROM test
p7 � r2,r2, r6 ; will fail if a difference is
z: � r3,r3, r7 ; detected between the two banks.
� � r4,r4, r8
� � r5,r5, r9
� �R r10, r10,r2
� �R r10, r10,r3
� �R r10, r10,r4
� �R r10, r10,r5
� TST r0,#&80000
� BEQ loop
� MOV r11, r10
� MOV r0,#&00
� MOV r1,#&30
�; SWI "XOS_UpdateMEMC" ; Slow down lower bank again
� LDR r0,[r12,#oldmemc]
MOV r1,r0
: SWI "XOS_UpdateMEMC" ; add bits to initial value
.prepokerom
$ LDR r0,[r12,#testroms]
. LDR r1,[r12,#verbose]
8 �R r0,r0,r1
B CMP r0,#&FF
L BNE pokerom
VH ADR r0,speedmessagea ; user request for speed check or Verbose
` SWI "XOS_Write0"
j CMP r11, #&00
t ADREQ r0,passedmess
~ ADRNE r0,failedmess
� SWI "XOS_Write0"
� LDR r0,[r12,#verbose]
� CMP r0,#&FF
� BNE exit
� B pokerom
� .syntaxmessage
�P EQUS "Syntax: SpeedROM [-h] [-v] [-t] [-s] [-p] [-e] [-r]"+�10+�10+�13+�0
� ALIGN
�
.version
�2 EQUS "SpeedROM 1.00 [29-May-89]"+�10+�13+�0
� ALIGN
� .helptext
D EQUS "SpeedROM attempts to increase System ROM speed"+�10+�13
C EQUS "by reprogramming MEMC. SpeedROM takes various"+�10+�13
6 EQUS "extra parameters as follows."+�10+�10+�13
7 EQUS " -H Help - activate extra help"+�10+�13
(@ EQUS " -V Verbose - activate SpeedROM messages"+�10+�13
2A EQUS " -T Test - just test system ROMs at 8MHz"+�10+�13
<D EQUS " -S Status - just reflect current ROM state"+�10+�13
FT EQUS " -P Prompt - Prompt user for permission to run ROMs at 8MHz"+�10+�13
PO EQUS " -E Error - return with error if ROMs fail speed test"+�10+�13
ZE EQUS " -R Return - Return ROM speed to 4MHz"+�10+�10+�13+�0
d ALIGN
n .passedmess
x7 EQUS "are capable of running at 8MHz"+�10+�13+�0
� ALIGN
� .failedmess
�9 EQUS "are incapable of running at 8MHz"+�10+�13+�0
� ALIGN
�
.pokerom
� CMP r11, #&00
� BNE failed
� LDR r0,[r12,#prompt]
� CMP r0,#&FF
� BNE updatememc
�= ADR r0,promptmess ; user request to provide prompt
� SWI "XOS_Write0"
� .input
SWI "XOS_ReadC"
� r0,r0,#&DF
CMP r0,#�"Y"
" SWIEQ "XOS_WriteC"
, �Q r0,#&0A
6 SWIEQ "XOS_WriteC"
@ �Q r0,#&0D
J SWIEQ "XOS_WriteC"
T BEQ updatememc
^ CMP r0,#�"N"
h SWIEQ "XOS_WriteC"
r �Q r0,#&0A
| SWIEQ "XOS_WriteC"
� �Q r0,#&0D
� SWIEQ "XOS_WriteC"
� BEQ exit
� B input
� .updatememc
� MOV r0,#&40
� MOV r1,r0
�< SWI "XOS_UpdateMEMC" ; Actually speed up the ROMs!
� LDR r0,[r12,#verbose]
� CMP r0,#&FF
� BNE exit
� ADR r0,done
�= SWI "XOS_Write0" ; Verbose - inform task complete
B exit
.speedmessagea
! EQUS "The System ROMs "+�0
& ALIGN
0 .speededup
:D EQUS "are currently operating at RAM speed - 8MHz"+�10+�13+�0
D ALIGN
N .notspeededup
XD EQUS "are currently operating at ROM speed - 4MHz"+�10+�13+�0
b ALIGN
l .failed
v= LDR r0,[r12,#error] ; FAILED. error out if specified
� CMP r0,#&FF
� LDMEQFD r13!,{r0-r12,r1}
� ADREQ r0,failederror
� �REQS pc,r14,#&10000000
�
.exit
� LDMFD r13!,{r0-r12,pc}
� .noparams
� MOV r2,#&00
� STR r2,[r12,#help] ;
� STR r2,[r12,#verbose] ;
�) STR r2,[r12,#testroms] ; Defaults
� STR r2,[r12,#reflect] ;
� STR r2,[r12,#prompt] ;
STR r2,[r12,#error] ;
STR r2,[r12,#return] ;
MOV pc,r14
.decodeparams
* LDRB r0,[r1,#&00]
4 CMP r0,#&20
>. ADDEQ r1,r1, #&01 ; if space, recurse
H BEQ decodeparams
R CMP r0,#&00
\0 �Q pc,r14 ; if zero, end decode loop
f CMP r0,#�"-"
p .badsyntax
z ADRNE r0,version
� SWINE "XOS_Write0"
� ADRNE r0,syntaxmessage
�) SWINE "XOS_Write0" ; bad syntax
� LDMNEFD r13!,{r14}
� BNE exit
�* MOV r2,#&FF ; found a command
� ADD r1,r1, #&01
� LDRB r0,[r1,#&00]
� ADD r1,r1, #&01
� � r0,r0, #&DF
� CMP r0,#�"H"
� STREQ r2,[r12,#help]
� BEQ decodeparams
CMP r0,#�"V"
STREQ r2,[r12,#verbose]
BEQ decodeparams
$ CMP r0,#�"T"
. STREQ r2,[r12,#testroms]
8 BEQ decodeparams
B CMP r0,#�"S"
L STREQ r2,[r12,#reflect]
V BEQ decodeparams
` CMP r0,#�"P"
j STREQ r2,[r12,#prompt]
t BEQ decodeparams
~ CMP r0,#�"E"
� STREQ r2,[r12,#error]
� BEQ decodeparams
� CMP r0,#�"R"
� STREQ r2,[r12,#return]
�7 BEQ decodeparams ; recurse to look for more
�1 BNE badsyntax ; unrecognised request
� .promptmess
�K EQUS "Your system ROMs are able to run at twice the current"+�10+�13
�P EQUS "Speed. This can result in a 20% increase in overall speed."+�10+�13
�L EQUS "Do you wish to take advantage of this speed increase (Y/N)?"+�0
� ALIGN
� .failederror
EQUD &28900
9 EQUS "System ROMs incapable of running at 8MHz"+�0
ALIGN
.done
(@ EQUS "The System ROMs are now running at 8MHz"+�10+�13+�0
2 ALIGN
<
.Version
FA EQUS "MEMC ROM Accelerator Version 1.00 (29 May 1989)"+�13
P ALIGN
Z ]
d �
n) � "Save SpeedROM "+�~code%+" "+�~P%
x *SetType SpeedROM FFC
� �
� 00000000 0d 00 0a 11 20 f4 20 3e 53 70 64 52 4f 4d 53 52 |.... . >SpdROMSR|
00000010 43 0d 00 14 19 20 f4 20 42 79 20 47 61 72 65 74 |C.... . By Garet|
00000020 68 20 53 2e 20 4c 6f 6e 67 2e 0d 00 1e 19 20 f4 |h S. Long..... .|
00000030 20 28 63 29 20 54 68 65 20 4d 69 63 72 6f 20 55 | (c) The Micro U|
00000040 73 65 72 0d 00 28 11 20 6c 65 6e 67 74 68 25 3d |ser..(. length%=|
00000050 26 41 30 30 0d 00 32 14 20 de 20 63 6f 64 65 25 |&A00..2. . code%|
00000060 20 6c 65 6e 67 74 68 25 0d 00 3c 21 20 e3 49 25 | length%..<! .I%|
00000070 3d 30 b8 6c 65 6e 67 74 68 25 88 34 3a 49 25 21 |=0.length%.4:I%!|
00000080 63 6f 64 65 25 3d 30 3a ed 0d 00 46 28 20 68 65 |code%=0:...F( he|
00000090 6c 70 3d 30 20 20 20 20 3a f4 20 68 65 6c 70 20 |lp=0 :. help |
000000a0 6d 65 73 73 61 67 65 20 61 63 74 69 76 61 74 65 |message activate|
000000b0 64 0d 00 50 31 20 76 65 72 62 6f 73 65 3d 34 20 |d..P1 verbose=4 |
000000c0 3a f4 20 47 69 76 65 73 20 69 6e 66 6f 72 6d 61 |:. Gives informa|
000000d0 74 69 6f 6e 20 77 68 69 6c 65 20 72 75 6e 6e 69 |tion while runni|
000000e0 6e 67 0d 00 5a 3d 20 74 65 73 74 72 6f 6d 73 3d |ng..Z= testroms=|
000000f0 38 3a f4 20 4a 75 73 74 20 63 68 65 63 6b 73 20 |8:. Just checks |
00000100 74 6f 20 73 65 65 20 69 66 20 52 4f 4d 73 20 77 |to see if ROMs w|
00000110 69 6c 6c 20 72 75 6e 20 61 74 20 38 4d 48 7a 0d |ill run at 8MHz.|
00000120 00 64 30 20 72 65 66 6c 65 63 74 3d 31 32 3a f4 |.d0 reflect=12:.|
00000130 20 52 65 66 6c 65 63 74 20 74 68 65 20 63 75 72 | Reflect the cur|
00000140 72 65 6e 74 20 4d 45 4d 43 20 73 74 61 74 65 0d |rent MEMC state.|
00000150 00 6e 4b 20 70 72 6f 6d 70 74 3d 31 36 20 3a f4 |.nK prompt=16 :.|
00000160 20 49 66 20 52 4f 4d 73 20 70 61 73 73 2c 20 61 | If ROMs pass, a|
00000170 73 6b 20 75 73 65 72 20 66 6f 72 20 70 65 72 6d |sk user for perm|
00000180 69 73 73 69 6f 6e 20 74 6f 20 72 75 6e 20 52 4f |ission to run RO|
00000190 4d 73 20 61 74 20 38 4d 48 7a 0d 00 78 33 20 65 |Ms at 8MHz..x3 e|
000001a0 72 72 6f 72 3d 32 30 20 20 3a f4 20 51 75 69 74 |rror=20 :. Quit|
000001b0 20 77 69 74 68 20 65 72 72 6f 72 20 69 66 20 52 | with error if R|
000001c0 4f 4d 73 20 66 61 69 6c 20 74 65 73 74 0d 00 82 |OMs fail test...|
000001d0 2a 20 72 65 74 75 72 6e 3d 32 34 20 3a f4 20 52 |* return=24 :. R|
000001e0 65 74 75 72 6e 20 52 4f 4d 20 73 70 65 65 64 20 |eturn ROM speed |
000001f0 74 6f 20 34 4d 48 7a 0d 00 8c 25 20 6f 6c 64 6d |to 4MHz...% oldm|
00000200 65 6d 63 3d 32 38 3a f4 20 4d 45 4d 43 20 53 74 |emc=28:. MEMC St|
00000210 61 74 65 20 6f 6e 20 65 6e 74 72 79 0d 00 96 10 |ate on entry....|
00000220 20 e3 49 25 3d 30 b8 33 20 88 20 33 0d 00 a0 0d | .I%=0.3 . 3....|
00000230 20 50 25 3d 63 6f 64 65 25 0d 00 aa 0c 20 5b 4f | P%=code%.... [O|
00000240 50 54 20 49 25 0d 00 b4 45 20 20 53 55 42 20 20 |PT I%...E SUB |
00000250 20 72 31 33 2c 20 72 31 33 2c 23 26 31 30 30 20 | r13, r13,#&100 |
00000260 20 20 20 20 3b 20 47 65 74 73 20 61 72 6f 75 6e | ; Gets aroun|
00000270 64 20 6b 6e 6f 77 6e 20 62 75 67 20 69 6e 20 41 |d known bug in A|
00000280 72 74 68 75 72 20 31 2e 32 30 0d 00 be 1d 20 20 |rthur 1.20.... |
00000290 53 54 4d 46 44 20 72 31 33 21 2c 7b 72 30 2d 72 |STMFD r13!,{r0-r|
000002a0 31 32 2c 72 31 34 7d 0d 00 c8 16 20 20 53 54 4d |12,r14}.... STM|
000002b0 46 44 20 72 31 33 21 2c 7b 72 31 34 7d 0d 00 d2 |FD r13!,{r14}...|
000002c0 13 20 20 4c 44 52 42 20 20 72 30 2c 5b 72 31 5d |. LDRB r0,[r1]|
000002d0 0d 00 dc 14 20 20 42 4c 20 20 20 20 6e 6f 70 61 |.... BL nopa|
000002e0 72 61 6d 73 0d 00 e6 13 20 20 43 4d 50 20 20 20 |rams.... CMP |
000002f0 72 30 2c 23 26 32 30 0d 00 f0 18 20 20 42 4c 47 |r0,#&20.... BLG|
00000300 45 20 20 64 65 63 6f 64 65 70 61 72 61 6d 73 0d |E decodeparams.|
00000310 00 fa 16 20 20 4c 44 4d 46 44 20 72 31 33 21 2c |... LDMFD r13!,|
00000320 7b 72 31 34 7d 0d 01 04 1a 20 20 4c 44 52 20 20 |{r14}.... LDR |
00000330 20 72 30 2c 5b 72 31 32 2c 23 68 65 6c 70 5d 0d | r0,[r12,#help].|
00000340 01 0e 13 20 20 43 4d 50 20 20 20 72 30 2c 23 26 |... CMP r0,#&|
00000350 46 46 0d 01 18 16 20 20 41 44 52 45 51 20 72 30 |FF.... ADREQ r0|
00000360 2c 76 65 72 73 69 6f 6e 0d 01 22 18 20 20 53 57 |,version..". SW|
00000370 49 45 51 20 22 58 4f 53 5f 57 72 69 74 65 30 22 |IEQ "XOS_Write0"|
00000380 0d 01 2c 1c 20 20 41 44 52 45 51 20 72 30 2c 73 |..,. ADREQ r0,s|
00000390 79 6e 74 61 78 6d 65 73 73 61 67 65 0d 01 36 18 |yntaxmessage..6.|
000003a0 20 20 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 | SWIEQ "XOS_Wri|
000003b0 74 65 30 22 0d 01 40 17 20 20 41 44 52 45 51 20 |te0"..@. ADREQ |
000003c0 72 30 2c 68 65 6c 70 74 65 78 74 0d 01 4a 18 20 |r0,helptext..J. |
000003d0 20 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 74 | SWIEQ "XOS_Writ|
000003e0 65 30 22 0d 01 54 10 20 20 42 45 51 20 20 20 65 |e0"..T. BEQ e|
000003f0 78 69 74 0d 01 5e 39 20 20 4c 44 52 20 20 20 72 |xit..^9 LDR r|
00000400 30 2c 5b 72 31 32 2c 23 76 65 72 62 6f 73 65 5d |0,[r12,#verbose]|
00000410 20 20 3b 20 56 65 72 62 6f 73 65 20 2d 20 69 6e | ; Verbose - in|
00000420 69 74 69 61 6c 69 73 61 74 69 6f 6e 0d 01 68 13 |itialisation..h.|
00000430 20 20 43 4d 50 20 20 20 72 30 2c 23 26 46 46 0d | CMP r0,#&FF.|
00000440 01 72 16 20 20 41 44 52 45 51 20 72 30 2c 76 65 |.r. ADREQ r0,ve|
00000450 72 73 69 6f 6e 0d 01 7c 18 20 20 53 57 49 45 51 |rsion..|. SWIEQ|
00000460 20 22 58 4f 53 5f 57 72 69 74 65 30 22 0d 01 86 | "XOS_Write0"...|
00000470 1c 20 20 4c 44 52 20 20 20 72 30 2c 5b 72 31 32 |. LDR r0,[r12|
00000480 2c 23 72 65 74 75 72 6e 5d 0d 01 90 13 20 20 43 |,#return].... C|
00000490 4d 50 20 20 20 72 30 2c 23 26 46 46 0d 01 9a 13 |MP r0,#&FF....|
000004a0 20 20 42 4e 45 20 20 20 70 72 65 74 65 73 74 0d | BNE pretest.|
000004b0 01 a4 13 20 20 4d 4f 56 20 20 20 72 30 2c 23 26 |... MOV r0,#&|
000004c0 30 30 0d 01 ae 13 20 20 4d 4f 56 20 20 20 72 31 |00.... MOV r1|
000004d0 2c 23 26 34 30 0d 01 b8 1c 20 20 53 57 49 20 20 |,#&40.... SWI |
000004e0 20 22 58 4f 53 5f 55 70 64 61 74 65 4d 45 4d 43 | "XOS_UpdateMEMC|
000004f0 22 0d 01 c2 1d 20 20 4c 44 52 20 20 20 72 30 2c |".... LDR r0,|
00000500 5b 72 31 32 2c 23 76 65 72 62 6f 73 65 5d 0d 01 |[r12,#verbose]..|
00000510 cc 13 20 20 43 4d 50 20 20 20 72 30 2c 23 26 46 |.. CMP r0,#&F|
00000520 46 0d 01 d6 10 20 20 42 4e 45 20 20 20 65 78 69 |F.... BNE exi|
00000530 74 0d 01 e0 19 20 20 41 44 52 20 20 20 72 30 2c |t.... ADR r0,|
00000540 72 65 74 75 72 6e 6d 65 73 73 0d 01 ea 18 20 20 |returnmess.... |
00000550 53 57 49 20 20 20 22 58 4f 53 5f 57 72 69 74 65 |SWI "XOS_Write|
00000560 30 22 0d 01 f4 10 20 20 42 20 20 20 20 20 65 78 |0".... B ex|
00000570 69 74 0d 01 fe 10 20 2e 72 65 74 75 72 6e 6d 65 |it.... .returnme|
00000580 73 73 0d 02 08 3a 20 20 45 51 55 53 20 20 22 53 |ss...: EQUS "S|
00000590 79 73 74 65 6d 20 52 4f 4d 20 53 70 65 65 64 20 |ystem ROM Speed |
000005a0 72 65 74 75 72 6e 65 64 20 74 6f 20 34 4d 48 7a |returned to 4MHz|
000005b0 22 2b bd 31 30 2b bd 31 33 2b bd 30 0d 02 12 0b |"+.10+.13+.0....|
000005c0 20 20 41 4c 49 47 4e 0d 02 1c 0d 20 2e 70 72 65 | ALIGN.... .pre|
000005d0 74 65 73 74 0d 02 26 13 20 20 4d 4f 56 20 20 20 |test..&. MOV |
000005e0 72 30 2c 23 26 30 30 0d 02 30 11 20 20 4d 4f 56 |r0,#&00..0. MOV|
000005f0 20 20 20 72 31 2c 72 30 0d 02 3a 1c 20 20 53 57 | r1,r0..:. SW|
00000600 49 20 20 20 22 58 4f 53 5f 55 70 64 61 74 65 4d |I "XOS_UpdateM|
00000610 45 4d 43 22 0d 02 44 1d 20 20 53 54 52 20 20 20 |EMC"..D. STR |
00000620 72 30 2c 5b 72 31 32 2c 23 6f 6c 64 6d 65 6d 63 |r0,[r12,#oldmemc|
00000630 5d 0d 02 4e 11 20 20 4d 4f 56 20 20 20 72 32 2c |]..N. MOV r2,|
00000640 72 30 0d 02 58 1d 20 20 4c 44 52 20 20 20 72 31 |r0..X. LDR r1|
00000650 2c 5b 72 31 32 2c 23 72 65 66 6c 65 63 74 5d 0d |,[r12,#reflect].|
00000660 02 62 1d 20 20 4c 44 52 20 20 20 72 30 2c 5b 72 |.b. LDR r0,[r|
00000670 31 32 2c 23 76 65 72 62 6f 73 65 5d 0d 02 6c 13 |12,#verbose]..l.|
00000680 20 20 84 52 20 20 20 72 31 2c 72 31 2c 72 30 0d | .R r1,r1,r0.|
00000690 02 76 13 20 20 43 4d 50 20 20 20 72 31 2c 23 26 |.v. CMP r1,#&|
000006a0 46 46 0d 02 80 10 20 20 42 4e 45 20 20 20 74 65 |FF.... BNE te|
000006b0 73 74 0d 02 8a 47 20 20 41 44 52 20 20 20 72 30 |st...G ADR r0|
000006c0 2c 73 70 65 65 64 6d 65 73 73 61 67 65 61 20 20 |,speedmessagea |
000006d0 20 3b 20 75 73 65 72 20 72 65 71 75 65 73 74 20 | ; user request |
000006e0 66 6f 72 20 52 4f 4d 20 73 74 61 74 75 73 20 6f |for ROM status o|
000006f0 72 20 56 65 72 62 6f 73 65 0d 02 94 18 20 20 53 |r Verbose.... S|
00000700 57 49 20 20 20 22 58 4f 53 5f 57 72 69 74 65 30 |WI "XOS_Write0|
00000710 22 0d 02 9e 14 20 20 80 20 20 20 72 32 2c 72 32 |".... . r2,r2|
00000720 2c 23 26 34 30 0d 02 a8 13 20 20 43 4d 50 20 20 |,#&40.... CMP |
00000730 20 72 32 2c 23 26 34 30 0d 02 b2 18 20 20 41 44 | r2,#&40.... AD|
00000740 52 45 51 20 72 30 2c 73 70 65 65 64 65 64 75 70 |REQ r0,speededup|
00000750 0d 02 bc 1b 20 20 41 44 52 4e 45 20 72 30 2c 6e |.... ADRNE r0,n|
00000760 6f 74 73 70 65 65 64 65 64 75 70 0d 02 c6 18 20 |otspeededup.... |
00000770 20 53 57 49 20 20 20 22 58 4f 53 5f 57 72 69 74 | SWI "XOS_Writ|
00000780 65 30 22 0d 02 d0 1d 20 20 4c 44 52 20 20 20 72 |e0".... LDR r|
00000790 30 2c 5b 72 31 32 2c 23 76 65 72 62 6f 73 65 5d |0,[r12,#verbose]|
000007a0 0d 02 da 13 20 20 43 4d 50 20 20 20 72 30 2c 23 |.... CMP r0,#|
000007b0 26 46 46 0d 02 e4 10 20 20 42 4e 45 20 20 20 65 |&FF.... BNE e|
000007c0 78 69 74 0d 02 ee 0a 20 2e 74 65 73 74 0d 02 f8 |xit.... .test...|
000007d0 13 20 20 4d 4f 56 20 20 20 72 30 2c 23 26 33 30 |. MOV r0,#&30|
000007e0 0d 03 02 11 20 20 4d 4f 56 20 20 20 72 31 2c 72 |.... MOV r1,r|
000007f0 30 0d 03 0c 38 20 20 53 57 49 20 20 20 22 58 4f |0...8 SWI "XO|
00000800 53 5f 55 70 64 61 74 65 4d 45 4d 43 22 20 20 20 |S_UpdateMEMC" |
00000810 3b 20 53 70 65 65 64 20 75 70 20 6c 6f 77 65 72 |; Speed up lower|
00000820 20 52 4f 4d 20 62 61 6e 6b 0d 03 16 13 20 20 4d | ROM bank.... M|
00000830 4f 56 20 20 20 72 30 2c 23 26 30 30 0d 03 20 13 |OV r0,#&00.. .|
00000840 20 20 4d 4f 56 20 20 20 72 31 2c 23 26 34 30 0d | MOV r1,#&40.|
00000850 03 2a 3a 20 20 53 57 49 20 20 20 22 58 4f 53 5f |.*: SWI "XOS_|
00000860 55 70 64 61 74 65 4d 45 4d 43 22 20 20 20 3b 20 |UpdateMEMC" ; |
00000870 53 6c 6f 77 20 64 6f 77 6e 20 68 69 67 68 65 72 |Slow down higher|
00000880 20 52 4f 4d 20 62 61 6e 6b 0d 03 34 32 20 20 4d | ROM bank..42 M|
00000890 4f 56 20 20 20 72 30 2c 23 26 33 34 30 30 30 30 |OV r0,#&340000|
000008a0 30 20 20 20 20 20 3b 20 4c 6f 77 65 72 20 62 61 |0 ; Lower ba|
000008b0 6e 6b 20 28 55 6e 75 73 65 64 29 0d 03 3e 31 20 |nk (Unused)..>1 |
000008c0 20 4d 4f 56 20 20 20 72 31 2c 23 26 33 38 30 30 | MOV r1,#&3800|
000008d0 30 30 30 20 20 20 20 20 3b 20 48 69 67 68 65 72 |000 ; Higher|
000008e0 20 62 61 6e 6b 20 28 55 73 65 64 29 0d 03 48 15 | bank (Used)..H.|
000008f0 20 20 4d 4f 56 20 20 20 72 31 30 2c 20 23 26 30 | MOV r10, #&0|
00000900 30 0d 03 52 0a 20 2e 6c 6f 6f 70 0d 03 5c 3b 20 |0..R. .loop..\; |
00000910 20 4c 44 4d 49 41 20 72 30 21 2c 20 7b 72 32 2d | LDMIA r0!, {r2-|
00000920 35 7d 20 20 20 20 3b 20 43 68 65 63 6b 73 75 6d |5} ; Checksum|
00000930 73 20 73 70 65 65 64 65 64 20 75 70 20 62 61 6e |s speeded up ban|
00000940 6b 20 77 69 74 68 0d 03 66 3c 20 20 4c 44 4d 49 |k with..f< LDMI|
00000950 41 20 72 31 21 2c 20 7b 72 36 2d 39 7d 20 20 20 |A r1!, {r6-9} |
00000960 20 3b 20 4e 6f 72 6d 61 6c 20 73 70 65 65 64 20 | ; Normal speed |
00000970 62 61 6e 6b 2e 20 54 68 65 20 52 4f 4d 20 74 65 |bank. The ROM te|
00000980 73 74 0d 03 70 37 20 20 82 20 20 20 72 32 2c 72 |st..p7 . r2,r|
00000990 32 2c 20 72 36 20 20 20 20 20 20 3b 20 77 69 6c |2, r6 ; wil|
000009a0 6c 20 66 61 69 6c 20 69 66 20 61 20 64 69 66 66 |l fail if a diff|
000009b0 65 72 65 6e 63 65 20 69 73 0d 03 7a 3a 20 20 82 |erence is..z: .|
000009c0 20 20 20 72 33 2c 72 33 2c 20 72 37 20 20 20 20 | r3,r3, r7 |
000009d0 20 20 3b 20 64 65 74 65 63 74 65 64 20 62 65 74 | ; detected bet|
000009e0 77 65 65 6e 20 74 68 65 20 74 77 6f 20 62 61 6e |ween the two ban|
000009f0 6b 73 2e 0d 03 84 13 20 20 82 20 20 20 72 34 2c |ks..... . r4,|
00000a00 72 34 2c 20 72 38 0d 03 8e 13 20 20 82 20 20 20 |r4, r8.... . |
00000a10 72 35 2c 72 35 2c 20 72 39 0d 03 98 16 20 20 84 |r5,r5, r9.... .|
00000a20 52 20 20 20 72 31 30 2c 20 72 31 30 2c 72 32 0d |R r10, r10,r2.|
00000a30 03 a2 16 20 20 84 52 20 20 20 72 31 30 2c 20 72 |... .R r10, r|
00000a40 31 30 2c 72 33 0d 03 ac 16 20 20 84 52 20 20 20 |10,r3.... .R |
00000a50 72 31 30 2c 20 72 31 30 2c 72 34 0d 03 b6 16 20 |r10, r10,r4.... |
00000a60 20 84 52 20 20 20 72 31 30 2c 20 72 31 30 2c 72 | .R r10, r10,r|
00000a70 35 0d 03 c0 16 20 20 54 53 54 20 20 20 72 30 2c |5.... TST r0,|
00000a80 23 26 38 30 30 30 30 0d 03 ca 10 20 20 42 45 51 |#&80000.... BEQ|
00000a90 20 20 20 6c 6f 6f 70 0d 03 d4 14 20 20 4d 4f 56 | loop.... MOV|
00000aa0 20 20 20 72 31 31 2c 20 72 31 30 0d 03 de 13 20 | r11, r10.... |
00000ab0 20 4d 4f 56 20 20 20 72 30 2c 23 26 30 30 0d 03 | MOV r0,#&00..|
00000ac0 e8 13 20 20 4d 4f 56 20 20 20 72 31 2c 23 26 33 |.. MOV r1,#&3|
00000ad0 30 0d 03 f2 3b 20 20 53 57 49 20 20 20 22 58 4f |0...; SWI "XO|
00000ae0 53 5f 55 70 64 61 74 65 4d 45 4d 43 22 20 20 20 |S_UpdateMEMC" |
00000af0 3b 20 53 6c 6f 77 20 64 6f 77 6e 20 6c 6f 77 65 |; Slow down lowe|
00000b00 72 20 62 61 6e 6b 20 61 67 61 69 6e 0d 03 fc 1d |r bank again....|
00000b10 20 20 4c 44 52 20 20 20 72 30 2c 5b 72 31 32 2c | LDR r0,[r12,|
00000b20 23 6f 6c 64 6d 65 6d 63 5d 0d 04 06 11 20 20 4d |#oldmemc].... M|
00000b30 4f 56 20 20 20 72 31 2c 72 30 0d 04 10 3a 20 20 |OV r1,r0...: |
00000b40 53 57 49 20 20 20 22 58 4f 53 5f 55 70 64 61 74 |SWI "XOS_Updat|
00000b50 65 4d 45 4d 43 22 20 20 20 3b 20 61 64 64 20 62 |eMEMC" ; add b|
00000b60 69 74 73 20 74 6f 20 69 6e 69 74 69 61 6c 20 76 |its to initial v|
00000b70 61 6c 75 65 0d 04 1a 10 20 2e 70 72 65 70 6f 6b |alue.... .prepok|
00000b80 65 72 6f 6d 0d 04 24 1e 20 20 4c 44 52 20 20 20 |erom..$. LDR |
00000b90 72 30 2c 5b 72 31 32 2c 23 74 65 73 74 72 6f 6d |r0,[r12,#testrom|
00000ba0 73 5d 0d 04 2e 1d 20 20 4c 44 52 20 20 20 72 31 |s].... LDR r1|
00000bb0 2c 5b 72 31 32 2c 23 76 65 72 62 6f 73 65 5d 0d |,[r12,#verbose].|
00000bc0 04 38 13 20 20 84 52 20 20 20 72 30 2c 72 30 2c |.8. .R r0,r0,|
00000bd0 72 31 0d 04 42 13 20 20 43 4d 50 20 20 20 72 30 |r1..B. CMP r0|
00000be0 2c 23 26 46 46 0d 04 4c 13 20 20 42 4e 45 20 20 |,#&FF..L. BNE |
00000bf0 20 70 6f 6b 65 72 6f 6d 0d 04 56 48 20 20 41 44 | pokerom..VH AD|
00000c00 52 20 20 20 72 30 2c 73 70 65 65 64 6d 65 73 73 |R r0,speedmess|
00000c10 61 67 65 61 20 20 20 3b 20 75 73 65 72 20 72 65 |agea ; user re|
00000c20 71 75 65 73 74 20 66 6f 72 20 73 70 65 65 64 20 |quest for speed |
00000c30 63 68 65 63 6b 20 6f 72 20 56 65 72 62 6f 73 65 |check or Verbose|
00000c40 0d 04 60 18 20 20 53 57 49 20 20 20 22 58 4f 53 |..`. SWI "XOS|
00000c50 5f 57 72 69 74 65 30 22 0d 04 6a 15 20 20 43 4d |_Write0"..j. CM|
00000c60 50 20 20 20 72 31 31 2c 20 23 26 30 30 0d 04 74 |P r11, #&00..t|
00000c70 19 20 20 41 44 52 45 51 20 72 30 2c 70 61 73 73 |. ADREQ r0,pass|
00000c80 65 64 6d 65 73 73 0d 04 7e 19 20 20 41 44 52 4e |edmess..~. ADRN|
00000c90 45 20 72 30 2c 66 61 69 6c 65 64 6d 65 73 73 0d |E r0,failedmess.|
00000ca0 04 88 18 20 20 53 57 49 20 20 20 22 58 4f 53 5f |... SWI "XOS_|
00000cb0 57 72 69 74 65 30 22 0d 04 92 1d 20 20 4c 44 52 |Write0".... LDR|
00000cc0 20 20 20 72 30 2c 5b 72 31 32 2c 23 76 65 72 62 | r0,[r12,#verb|
00000cd0 6f 73 65 5d 0d 04 9c 13 20 20 43 4d 50 20 20 20 |ose].... CMP |
00000ce0 72 30 2c 23 26 46 46 0d 04 a6 10 20 20 42 4e 45 |r0,#&FF.... BNE|
00000cf0 20 20 20 65 78 69 74 0d 04 b0 13 20 20 42 20 20 | exit.... B |
00000d00 20 20 20 70 6f 6b 65 72 6f 6d 0d 04 ba 13 20 2e | pokerom.... .|
00000d10 73 79 6e 74 61 78 6d 65 73 73 61 67 65 0d 04 c4 |syntaxmessage...|
00000d20 50 20 20 45 51 55 53 20 20 22 53 79 6e 74 61 78 |P EQUS "Syntax|
00000d30 3a 20 53 70 65 65 64 52 4f 4d 20 5b 2d 68 5d 20 |: SpeedROM [-h] |
00000d40 5b 2d 76 5d 20 5b 2d 74 5d 20 5b 2d 73 5d 20 5b |[-v] [-t] [-s] [|
00000d50 2d 70 5d 20 5b 2d 65 5d 20 5b 2d 72 5d 22 2b bd |-p] [-e] [-r]"+.|
00000d60 31 30 2b bd 31 30 2b bd 31 33 2b bd 30 0d 04 ce |10+.10+.13+.0...|
00000d70 0b 20 20 41 4c 49 47 4e 0d 04 d8 0d 20 2e 76 65 |. ALIGN.... .ve|
00000d80 72 73 69 6f 6e 0d 04 e2 32 20 20 45 51 55 53 20 |rsion...2 EQUS |
00000d90 20 22 53 70 65 65 64 52 4f 4d 20 31 2e 30 30 20 | "SpeedROM 1.00 |
00000da0 5b 32 39 2d 4d 61 79 2d 38 39 5d 22 2b bd 31 30 |[29-May-89]"+.10|
00000db0 2b bd 31 33 2b bd 30 0d 04 ec 0b 20 20 41 4c 49 |+.13+.0.... ALI|
00000dc0 47 4e 0d 04 f6 0e 20 2e 68 65 6c 70 74 65 78 74 |GN.... .helptext|
00000dd0 0d 05 00 44 20 20 45 51 55 53 20 20 22 53 70 65 |...D EQUS "Spe|
00000de0 65 64 52 4f 4d 20 61 74 74 65 6d 70 74 73 20 74 |edROM attempts t|
00000df0 6f 20 69 6e 63 72 65 61 73 65 20 53 79 73 74 65 |o increase Syste|
00000e00 6d 20 52 4f 4d 20 73 70 65 65 64 22 2b bd 31 30 |m ROM speed"+.10|
00000e10 2b bd 31 33 0d 05 0a 43 20 20 45 51 55 53 20 20 |+.13...C EQUS |
00000e20 22 62 79 20 72 65 70 72 6f 67 72 61 6d 6d 69 6e |"by reprogrammin|
00000e30 67 20 4d 45 4d 43 2e 20 53 70 65 65 64 52 4f 4d |g MEMC. SpeedROM|
00000e40 20 74 61 6b 65 73 20 76 61 72 69 6f 75 73 22 2b | takes various"+|
00000e50 bd 31 30 2b bd 31 33 0d 05 14 36 20 20 45 51 55 |.10+.13...6 EQU|
00000e60 53 20 20 22 65 78 74 72 61 20 70 61 72 61 6d 65 |S "extra parame|
00000e70 74 65 72 73 20 61 73 20 66 6f 6c 6c 6f 77 73 2e |ters as follows.|
00000e80 22 2b bd 31 30 2b bd 31 30 2b bd 31 33 0d 05 1e |"+.10+.10+.13...|
00000e90 37 20 20 45 51 55 53 20 20 22 20 20 2d 48 20 20 |7 EQUS " -H |
00000ea0 48 65 6c 70 20 20 2d 20 61 63 74 69 76 61 74 65 |Help - activate|
00000eb0 20 65 78 74 72 61 20 68 65 6c 70 22 2b bd 31 30 | extra help"+.10|
00000ec0 2b bd 31 33 0d 05 28 40 20 20 45 51 55 53 20 20 |+.13..(@ EQUS |
00000ed0 22 20 20 2d 56 20 20 56 65 72 62 6f 73 65 20 2d |" -V Verbose -|
00000ee0 20 61 63 74 69 76 61 74 65 20 53 70 65 65 64 52 | activate SpeedR|
00000ef0 4f 4d 20 6d 65 73 73 61 67 65 73 22 2b bd 31 30 |OM messages"+.10|
00000f00 2b bd 31 33 0d 05 32 41 20 20 45 51 55 53 20 20 |+.13..2A EQUS |
00000f10 22 20 20 2d 54 20 20 54 65 73 74 20 20 2d 20 6a |" -T Test - j|
00000f20 75 73 74 20 74 65 73 74 20 73 79 73 74 65 6d 20 |ust test system |
00000f30 52 4f 4d 73 20 61 74 20 38 4d 48 7a 22 2b bd 31 |ROMs at 8MHz"+.1|
00000f40 30 2b bd 31 33 0d 05 3c 44 20 20 45 51 55 53 20 |0+.13..<D EQUS |
00000f50 20 22 20 20 2d 53 20 20 53 74 61 74 75 73 20 20 | " -S Status |
00000f60 2d 20 6a 75 73 74 20 72 65 66 6c 65 63 74 20 63 |- just reflect c|
00000f70 75 72 72 65 6e 74 20 52 4f 4d 20 73 74 61 74 65 |urrent ROM state|
00000f80 22 2b bd 31 30 2b bd 31 33 0d 05 46 54 20 20 45 |"+.10+.13..FT E|
00000f90 51 55 53 20 20 22 20 20 2d 50 20 20 50 72 6f 6d |QUS " -P Prom|
00000fa0 70 74 20 20 2d 20 50 72 6f 6d 70 74 20 75 73 65 |pt - Prompt use|
00000fb0 72 20 66 6f 72 20 70 65 72 6d 69 73 73 69 6f 6e |r for permission|
00000fc0 20 74 6f 20 72 75 6e 20 52 4f 4d 73 20 61 74 20 | to run ROMs at |
00000fd0 38 4d 48 7a 22 2b bd 31 30 2b bd 31 33 0d 05 50 |8MHz"+.10+.13..P|
00000fe0 4f 20 20 45 51 55 53 20 20 22 20 20 2d 45 20 20 |O EQUS " -E |
00000ff0 45 72 72 6f 72 20 20 20 2d 20 72 65 74 75 72 6e |Error - return|
00001000 20 77 69 74 68 20 65 72 72 6f 72 20 69 66 20 52 | with error if R|
00001010 4f 4d 73 20 66 61 69 6c 20 73 70 65 65 64 20 74 |OMs fail speed t|
00001020 65 73 74 22 2b bd 31 30 2b bd 31 33 0d 05 5a 45 |est"+.10+.13..ZE|
00001030 20 20 45 51 55 53 20 20 22 20 20 2d 52 20 20 52 | EQUS " -R R|
00001040 65 74 75 72 6e 20 20 2d 20 52 65 74 75 72 6e 20 |eturn - Return |
00001050 52 4f 4d 20 73 70 65 65 64 20 74 6f 20 34 4d 48 |ROM speed to 4MH|
00001060 7a 22 2b bd 31 30 2b bd 31 30 2b bd 31 33 2b bd |z"+.10+.10+.13+.|
00001070 30 0d 05 64 0b 20 20 41 4c 49 47 4e 0d 05 6e 10 |0..d. ALIGN..n.|
00001080 20 2e 70 61 73 73 65 64 6d 65 73 73 0d 05 78 37 | .passedmess..x7|
00001090 20 20 45 51 55 53 20 20 22 61 72 65 20 63 61 70 | EQUS "are cap|
000010a0 61 62 6c 65 20 6f 66 20 72 75 6e 6e 69 6e 67 20 |able of running |
000010b0 61 74 20 38 4d 48 7a 22 2b bd 31 30 2b bd 31 33 |at 8MHz"+.10+.13|
000010c0 2b bd 30 0d 05 82 0b 20 20 41 4c 49 47 4e 0d 05 |+.0.... ALIGN..|
000010d0 8c 10 20 2e 66 61 69 6c 65 64 6d 65 73 73 0d 05 |.. .failedmess..|
000010e0 96 39 20 20 45 51 55 53 20 20 22 61 72 65 20 69 |.9 EQUS "are i|
000010f0 6e 63 61 70 61 62 6c 65 20 6f 66 20 72 75 6e 6e |ncapable of runn|
00001100 69 6e 67 20 61 74 20 38 4d 48 7a 22 2b bd 31 30 |ing at 8MHz"+.10|
00001110 2b bd 31 33 2b bd 30 0d 05 a0 0b 20 20 41 4c 49 |+.13+.0.... ALI|
00001120 47 4e 0d 05 aa 0d 20 2e 70 6f 6b 65 72 6f 6d 0d |GN.... .pokerom.|
00001130 05 b4 15 20 20 43 4d 50 20 20 20 72 31 31 2c 20 |... CMP r11, |
00001140 23 26 30 30 0d 05 be 12 20 20 42 4e 45 20 20 20 |#&00.... BNE |
00001150 66 61 69 6c 65 64 0d 05 c8 1c 20 20 4c 44 52 20 |failed.... LDR |
00001160 20 20 72 30 2c 5b 72 31 32 2c 23 70 72 6f 6d 70 | r0,[r12,#promp|
00001170 74 5d 0d 05 d2 13 20 20 43 4d 50 20 20 20 72 30 |t].... CMP r0|
00001180 2c 23 26 46 46 0d 05 dc 16 20 20 42 4e 45 20 20 |,#&FF.... BNE |
00001190 20 75 70 64 61 74 65 6d 65 6d 63 0d 05 e6 3d 20 | updatememc...= |
000011a0 20 41 44 52 20 20 20 72 30 2c 70 72 6f 6d 70 74 | ADR r0,prompt|
000011b0 6d 65 73 73 20 20 20 20 3b 20 75 73 65 72 20 72 |mess ; user r|
000011c0 65 71 75 65 73 74 20 74 6f 20 70 72 6f 76 69 64 |equest to provid|
000011d0 65 20 70 72 6f 6d 70 74 0d 05 f0 18 20 20 53 57 |e prompt.... SW|
000011e0 49 20 20 20 22 58 4f 53 5f 57 72 69 74 65 30 22 |I "XOS_Write0"|
000011f0 0d 05 fa 0b 20 2e 69 6e 70 75 74 0d 06 04 17 20 |.... .input.... |
00001200 20 53 57 49 20 20 20 22 58 4f 53 5f 52 65 61 64 | SWI "XOS_Read|
00001210 43 22 0d 06 0e 14 20 20 80 20 20 20 72 30 2c 72 |C".... . r0,r|
00001220 30 2c 23 26 44 46 0d 06 18 14 20 20 43 4d 50 20 |0,#&DF.... CMP |
00001230 20 20 72 30 2c 23 97 22 59 22 0d 06 22 18 20 20 | r0,#."Y"..". |
00001240 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 74 65 |SWIEQ "XOS_Write|
00001250 43 22 0d 06 2c 10 20 20 ec 51 20 72 30 2c 23 26 |C"..,. .Q r0,#&|
00001260 30 41 0d 06 36 18 20 20 53 57 49 45 51 20 22 58 |0A..6. SWIEQ "X|
00001270 4f 53 5f 57 72 69 74 65 43 22 0d 06 40 10 20 20 |OS_WriteC"..@. |
00001280 ec 51 20 72 30 2c 23 26 30 44 0d 06 4a 18 20 20 |.Q r0,#&0D..J. |
00001290 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 74 65 |SWIEQ "XOS_Write|
000012a0 43 22 0d 06 54 16 20 20 42 45 51 20 20 20 75 70 |C"..T. BEQ up|
000012b0 64 61 74 65 6d 65 6d 63 0d 06 5e 14 20 20 43 4d |datememc..^. CM|
000012c0 50 20 20 20 72 30 2c 23 97 22 4e 22 0d 06 68 18 |P r0,#."N"..h.|
000012d0 20 20 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 | SWIEQ "XOS_Wri|
000012e0 74 65 43 22 0d 06 72 10 20 20 ec 51 20 72 30 2c |teC"..r. .Q r0,|
000012f0 23 26 30 41 0d 06 7c 18 20 20 53 57 49 45 51 20 |#&0A..|. SWIEQ |
00001300 22 58 4f 53 5f 57 72 69 74 65 43 22 0d 06 86 10 |"XOS_WriteC"....|
00001310 20 20 ec 51 20 72 30 2c 23 26 30 44 0d 06 90 18 | .Q r0,#&0D....|
00001320 20 20 53 57 49 45 51 20 22 58 4f 53 5f 57 72 69 | SWIEQ "XOS_Wri|
00001330 74 65 43 22 0d 06 9a 10 20 20 42 45 51 20 20 20 |teC".... BEQ |
00001340 65 78 69 74 0d 06 a4 11 20 20 42 20 20 20 20 20 |exit.... B |
00001350 69 6e 70 75 74 0d 06 ae 10 20 2e 75 70 64 61 74 |input.... .updat|
00001360 65 6d 65 6d 63 0d 06 b8 13 20 20 4d 4f 56 20 20 |ememc.... MOV |
00001370 20 72 30 2c 23 26 34 30 0d 06 c2 11 20 20 4d 4f | r0,#&40.... MO|
00001380 56 20 20 20 72 31 2c 72 30 0d 06 cc 3c 20 20 53 |V r1,r0...< S|
00001390 57 49 20 20 20 22 58 4f 53 5f 55 70 64 61 74 65 |WI "XOS_Update|
000013a0 4d 45 4d 43 22 20 20 20 3b 20 41 63 74 75 61 6c |MEMC" ; Actual|
000013b0 6c 79 20 73 70 65 65 64 20 75 70 20 74 68 65 20 |ly speed up the |
000013c0 52 4f 4d 73 21 0d 06 d6 1d 20 20 4c 44 52 20 20 |ROMs!.... LDR |
000013d0 20 72 30 2c 5b 72 31 32 2c 23 76 65 72 62 6f 73 | r0,[r12,#verbos|
000013e0 65 5d 0d 06 e0 13 20 20 43 4d 50 20 20 20 72 30 |e].... CMP r0|
000013f0 2c 23 26 46 46 0d 06 ea 10 20 20 42 4e 45 20 20 |,#&FF.... BNE |
00001400 20 65 78 69 74 0d 06 f4 13 20 20 41 44 52 20 20 | exit.... ADR |
00001410 20 72 30 2c 64 6f 6e 65 0d 06 fe 3d 20 20 53 57 | r0,done...= SW|
00001420 49 20 20 20 22 58 4f 53 5f 57 72 69 74 65 30 22 |I "XOS_Write0"|
00001430 20 20 20 20 20 3b 20 56 65 72 62 6f 73 65 20 2d | ; Verbose -|
00001440 20 69 6e 66 6f 72 6d 20 74 61 73 6b 20 63 6f 6d | inform task com|
00001450 70 6c 65 74 65 0d 07 08 10 20 20 42 20 20 20 20 |plete.... B |
00001460 20 65 78 69 74 0d 07 12 13 20 2e 73 70 65 65 64 | exit.... .speed|
00001470 6d 65 73 73 61 67 65 61 0d 07 1c 21 20 20 45 51 |messagea...! EQ|
00001480 55 53 20 20 22 54 68 65 20 53 79 73 74 65 6d 20 |US "The System |
00001490 52 4f 4d 73 20 22 2b bd 30 0d 07 26 0b 20 20 41 |ROMs "+.0..&. A|
000014a0 4c 49 47 4e 0d 07 30 10 20 20 2e 73 70 65 65 64 |LIGN..0. .speed|
000014b0 65 64 75 70 0d 07 3a 44 20 20 45 51 55 53 20 20 |edup..:D EQUS |
000014c0 22 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 6f |"are currently o|
000014d0 70 65 72 61 74 69 6e 67 20 61 74 20 52 41 4d 20 |perating at RAM |
000014e0 73 70 65 65 64 20 2d 20 38 4d 48 7a 22 2b bd 31 |speed - 8MHz"+.1|
000014f0 30 2b bd 31 33 2b bd 30 0d 07 44 0b 20 20 41 4c |0+.13+.0..D. AL|
00001500 49 47 4e 0d 07 4e 12 20 2e 6e 6f 74 73 70 65 65 |IGN..N. .notspee|
00001510 64 65 64 75 70 0d 07 58 44 20 20 45 51 55 53 20 |dedup..XD EQUS |
00001520 20 22 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 | "are currently |
00001530 6f 70 65 72 61 74 69 6e 67 20 61 74 20 52 4f 4d |operating at ROM|
00001540 20 73 70 65 65 64 20 2d 20 34 4d 48 7a 22 2b bd | speed - 4MHz"+.|
00001550 31 30 2b bd 31 33 2b bd 30 0d 07 62 0b 20 20 41 |10+.13+.0..b. A|
00001560 4c 49 47 4e 0d 07 6c 0c 20 2e 66 61 69 6c 65 64 |LIGN..l. .failed|
00001570 0d 07 76 3d 20 20 4c 44 52 20 20 20 72 30 2c 5b |..v= LDR r0,[|
00001580 72 31 32 2c 23 65 72 72 6f 72 5d 20 20 3b 20 46 |r12,#error] ; F|
00001590 41 49 4c 45 44 2e 20 65 72 72 6f 72 20 6f 75 74 |AILED. error out|
000015a0 20 69 66 20 73 70 65 63 69 66 69 65 64 0d 07 80 | if specified...|
000015b0 13 20 20 43 4d 50 20 20 20 72 30 2c 23 26 46 46 |. CMP r0,#&FF|
000015c0 0d 07 8a 1e 20 20 4c 44 4d 45 51 46 44 20 72 31 |.... LDMEQFD r1|
000015d0 33 21 2c 7b 72 30 2d 72 31 32 2c 72 31 7d 0d 07 |3!,{r0-r12,r1}..|
000015e0 94 1c 20 20 41 44 52 45 51 20 20 20 72 30 2c 66 |.. ADREQ r0,f|
000015f0 61 69 6c 65 64 65 72 72 6f 72 0d 07 9e 1e 20 20 |ailederror.... |
00001600 84 52 45 51 53 20 20 70 63 2c 72 31 34 2c 23 26 |.REQS pc,r14,#&|
00001610 31 30 30 30 30 30 30 30 0d 07 a8 0a 20 2e 65 78 |10000000.... .ex|
00001620 69 74 0d 07 b2 1c 20 20 4c 44 4d 46 44 20 72 31 |it.... LDMFD r1|
00001630 33 21 2c 7b 72 30 2d 72 31 32 2c 70 63 7d 0d 07 |3!,{r0-r12,pc}..|
00001640 bc 0e 20 2e 6e 6f 70 61 72 61 6d 73 0d 07 c6 13 |.. .noparams....|
00001650 20 20 4d 4f 56 20 20 20 72 32 2c 23 26 30 30 0d | MOV r2,#&00.|
00001660 07 d0 1e 20 20 53 54 52 20 20 20 72 32 2c 5b 72 |... STR r2,[r|
00001670 31 32 2c 23 68 65 6c 70 5d 20 20 20 3b 0d 07 da |12,#help] ;...|
00001680 20 20 20 53 54 52 20 20 20 72 32 2c 5b 72 31 32 | STR r2,[r12|
00001690 2c 23 76 65 72 62 6f 73 65 5d 20 20 3b 0d 07 e4 |,#verbose] ;...|
000016a0 29 20 20 53 54 52 20 20 20 72 32 2c 5b 72 31 32 |) STR r2,[r12|
000016b0 2c 23 74 65 73 74 72 6f 6d 73 5d 20 3b 20 44 65 |,#testroms] ; De|
000016c0 66 61 75 6c 74 73 0d 07 ee 20 20 20 53 54 52 20 |faults... STR |
000016d0 20 20 72 32 2c 5b 72 31 32 2c 23 72 65 66 6c 65 | r2,[r12,#refle|
000016e0 63 74 5d 20 20 3b 0d 07 f8 20 20 20 53 54 52 20 |ct] ;... STR |
000016f0 20 20 72 32 2c 5b 72 31 32 2c 23 70 72 6f 6d 70 | r2,[r12,#promp|
00001700 74 5d 20 20 20 3b 0d 08 02 1e 20 20 53 54 52 20 |t] ;.... STR |
00001710 20 20 72 32 2c 5b 72 31 32 2c 23 65 72 72 6f 72 | r2,[r12,#error|
00001720 5d 20 20 3b 0d 08 0c 20 20 20 53 54 52 20 20 20 |] ;... STR |
00001730 72 32 2c 5b 72 31 32 2c 23 72 65 74 75 72 6e 5d |r2,[r12,#return]|
00001740 20 20 20 3b 0d 08 16 12 20 20 4d 4f 56 20 20 20 | ;.... MOV |
00001750 70 63 2c 72 31 34 0d 08 20 12 20 2e 64 65 63 6f |pc,r14.. . .deco|
00001760 64 65 70 61 72 61 6d 73 0d 08 2a 18 20 20 4c 44 |deparams..*. LD|
00001770 52 42 20 20 72 30 2c 5b 72 31 2c 23 26 30 30 5d |RB r0,[r1,#&00]|
00001780 0d 08 34 13 20 20 43 4d 50 20 20 20 72 30 2c 23 |..4. CMP r0,#|
00001790 26 32 30 0d 08 3e 2e 20 20 41 44 44 45 51 20 72 |&20..>. ADDEQ r|
000017a0 31 2c 72 31 2c 20 23 26 30 31 20 20 20 20 3b 20 |1,r1, #&01 ; |
000017b0 69 66 20 73 70 61 63 65 2c 20 72 65 63 75 72 73 |if space, recurs|
000017c0 65 0d 08 48 18 20 20 42 45 51 20 20 20 64 65 63 |e..H. BEQ dec|
000017d0 6f 64 65 70 61 72 61 6d 73 0d 08 52 13 20 20 43 |odeparams..R. C|
000017e0 4d 50 20 20 20 72 30 2c 23 26 30 30 0d 08 5c 30 |MP r0,#&00..\0|
000017f0 20 20 ec 51 20 70 63 2c 72 31 34 20 20 20 20 20 | .Q pc,r14 |
00001800 20 20 3b 20 69 66 20 7a 65 72 6f 2c 20 65 6e 64 | ; if zero, end|
00001810 20 64 65 63 6f 64 65 20 6c 6f 6f 70 0d 08 66 14 | decode loop..f.|
00001820 20 20 43 4d 50 20 20 20 72 30 2c 23 97 22 2d 22 | CMP r0,#."-"|
00001830 0d 08 70 0f 20 2e 62 61 64 73 79 6e 74 61 78 0d |..p. .badsyntax.|
00001840 08 7a 16 20 20 41 44 52 4e 45 20 72 30 2c 76 65 |.z. ADRNE r0,ve|
00001850 72 73 69 6f 6e 0d 08 84 18 20 20 53 57 49 4e 45 |rsion.... SWINE|
00001860 20 22 58 4f 53 5f 57 72 69 74 65 30 22 0d 08 8e | "XOS_Write0"...|
00001870 1c 20 20 41 44 52 4e 45 20 72 30 2c 73 79 6e 74 |. ADRNE r0,synt|
00001880 61 78 6d 65 73 73 61 67 65 0d 08 98 29 20 20 53 |axmessage...) S|
00001890 57 49 4e 45 20 22 58 4f 53 5f 57 72 69 74 65 30 |WINE "XOS_Write0|
000018a0 22 20 20 20 20 20 3b 20 62 61 64 20 73 79 6e 74 |" ; bad synt|
000018b0 61 78 0d 08 a2 18 20 20 4c 44 4d 4e 45 46 44 20 |ax.... LDMNEFD |
000018c0 72 31 33 21 2c 7b 72 31 34 7d 0d 08 ac 10 20 20 |r13!,{r14}.... |
000018d0 42 4e 45 20 20 20 65 78 69 74 0d 08 b6 2a 20 20 |BNE exit...* |
000018e0 4d 4f 56 20 20 20 72 32 2c 23 26 46 46 20 20 20 |MOV r2,#&FF |
000018f0 20 20 20 3b 20 66 6f 75 6e 64 20 61 20 63 6f 6d | ; found a com|
00001900 6d 61 6e 64 0d 08 c0 17 20 20 41 44 44 20 20 20 |mand.... ADD |
00001910 72 31 2c 72 31 2c 20 23 26 30 31 0d 08 ca 18 20 |r1,r1, #&01.... |
00001920 20 4c 44 52 42 20 20 72 30 2c 5b 72 31 2c 23 26 | LDRB r0,[r1,#&|
00001930 30 30 5d 0d 08 d4 17 20 20 41 44 44 20 20 20 72 |00].... ADD r|
00001940 31 2c 72 31 2c 20 23 26 30 31 0d 08 de 15 20 20 |1,r1, #&01.... |
00001950 80 20 20 20 72 30 2c 72 30 2c 20 23 26 44 46 0d |. r0,r0, #&DF.|
00001960 08 e8 14 20 20 43 4d 50 20 20 20 72 30 2c 23 97 |... CMP r0,#.|
00001970 22 48 22 0d 08 f2 1a 20 20 53 54 52 45 51 20 72 |"H".... STREQ r|
00001980 32 2c 5b 72 31 32 2c 23 68 65 6c 70 5d 0d 08 fc |2,[r12,#help]...|
00001990 18 20 20 42 45 51 20 20 20 64 65 63 6f 64 65 70 |. BEQ decodep|
000019a0 61 72 61 6d 73 0d 09 06 14 20 20 43 4d 50 20 20 |arams.... CMP |
000019b0 20 72 30 2c 23 97 22 56 22 0d 09 10 1d 20 20 53 | r0,#."V".... S|
000019c0 54 52 45 51 20 72 32 2c 5b 72 31 32 2c 23 76 65 |TREQ r2,[r12,#ve|
000019d0 72 62 6f 73 65 5d 0d 09 1a 18 20 20 42 45 51 20 |rbose].... BEQ |
000019e0 20 20 64 65 63 6f 64 65 70 61 72 61 6d 73 0d 09 | decodeparams..|
000019f0 24 14 20 20 43 4d 50 20 20 20 72 30 2c 23 97 22 |$. CMP r0,#."|
00001a00 54 22 0d 09 2e 1e 20 20 53 54 52 45 51 20 72 32 |T".... STREQ r2|
00001a10 2c 5b 72 31 32 2c 23 74 65 73 74 72 6f 6d 73 5d |,[r12,#testroms]|
00001a20 0d 09 38 18 20 20 42 45 51 20 20 20 64 65 63 6f |..8. BEQ deco|
00001a30 64 65 70 61 72 61 6d 73 0d 09 42 14 20 20 43 4d |deparams..B. CM|
00001a40 50 20 20 20 72 30 2c 23 97 22 53 22 0d 09 4c 1d |P r0,#."S"..L.|
00001a50 20 20 53 54 52 45 51 20 72 32 2c 5b 72 31 32 2c | STREQ r2,[r12,|
00001a60 23 72 65 66 6c 65 63 74 5d 0d 09 56 18 20 20 42 |#reflect]..V. B|
00001a70 45 51 20 20 20 64 65 63 6f 64 65 70 61 72 61 6d |EQ decodeparam|
00001a80 73 0d 09 60 14 20 20 43 4d 50 20 20 20 72 30 2c |s..`. CMP r0,|
00001a90 23 97 22 50 22 0d 09 6a 1c 20 20 53 54 52 45 51 |#."P"..j. STREQ|
00001aa0 20 72 32 2c 5b 72 31 32 2c 23 70 72 6f 6d 70 74 | r2,[r12,#prompt|
00001ab0 5d 0d 09 74 18 20 20 42 45 51 20 20 20 64 65 63 |]..t. BEQ dec|
00001ac0 6f 64 65 70 61 72 61 6d 73 0d 09 7e 14 20 20 43 |odeparams..~. C|
00001ad0 4d 50 20 20 20 72 30 2c 23 97 22 45 22 0d 09 88 |MP r0,#."E"...|
00001ae0 1b 20 20 53 54 52 45 51 20 72 32 2c 5b 72 31 32 |. STREQ r2,[r12|
00001af0 2c 23 65 72 72 6f 72 5d 0d 09 92 18 20 20 42 45 |,#error].... BE|
00001b00 51 20 20 20 64 65 63 6f 64 65 70 61 72 61 6d 73 |Q decodeparams|
00001b10 0d 09 9c 14 20 20 43 4d 50 20 20 20 72 30 2c 23 |.... CMP r0,#|
00001b20 97 22 52 22 0d 09 a6 1c 20 20 53 54 52 45 51 20 |."R".... STREQ |
00001b30 72 32 2c 5b 72 31 32 2c 23 72 65 74 75 72 6e 5d |r2,[r12,#return]|
00001b40 0d 09 b0 37 20 20 42 45 51 20 20 20 64 65 63 6f |...7 BEQ deco|
00001b50 64 65 70 61 72 61 6d 73 20 20 20 20 20 3b 20 72 |deparams ; r|
00001b60 65 63 75 72 73 65 20 74 6f 20 6c 6f 6f 6b 20 66 |ecurse to look f|
00001b70 6f 72 20 6d 6f 72 65 0d 09 ba 31 20 20 42 4e 45 |or more...1 BNE|
00001b80 20 20 20 62 61 64 73 79 6e 74 61 78 20 20 20 20 | badsyntax |
00001b90 20 20 3b 20 75 6e 72 65 63 6f 67 6e 69 73 65 64 | ; unrecognised|
00001ba0 20 72 65 71 75 65 73 74 0d 09 c4 10 20 2e 70 72 | request.... .pr|
00001bb0 6f 6d 70 74 6d 65 73 73 0d 09 ce 4b 20 20 45 51 |omptmess...K EQ|
00001bc0 55 53 20 20 22 59 6f 75 72 20 73 79 73 74 65 6d |US "Your system|
00001bd0 20 52 4f 4d 73 20 61 72 65 20 61 62 6c 65 20 74 | ROMs are able t|
00001be0 6f 20 72 75 6e 20 61 74 20 74 77 69 63 65 20 74 |o run at twice t|
00001bf0 68 65 20 63 75 72 72 65 6e 74 22 2b bd 31 30 2b |he current"+.10+|
00001c00 bd 31 33 0d 09 d8 50 20 20 45 51 55 53 20 20 22 |.13...P EQUS "|
00001c10 53 70 65 65 64 2e 20 54 68 69 73 20 63 61 6e 20 |Speed. This can |
00001c20 72 65 73 75 6c 74 20 69 6e 20 61 20 32 30 25 20 |result in a 20% |
00001c30 69 6e 63 72 65 61 73 65 20 69 6e 20 6f 76 65 72 |increase in over|
00001c40 61 6c 6c 20 73 70 65 65 64 2e 22 2b bd 31 30 2b |all speed."+.10+|
00001c50 bd 31 33 0d 09 e2 4c 20 20 45 51 55 53 20 20 22 |.13...L EQUS "|
00001c60 44 6f 20 79 6f 75 20 77 69 73 68 20 74 6f 20 74 |Do you wish to t|
00001c70 61 6b 65 20 61 64 76 61 6e 74 61 67 65 20 6f 66 |ake advantage of|
00001c80 20 74 68 69 73 20 73 70 65 65 64 20 69 6e 63 72 | this speed incr|
00001c90 65 61 73 65 20 28 59 2f 4e 29 3f 22 2b bd 30 0d |ease (Y/N)?"+.0.|
00001ca0 09 ec 0b 20 20 41 4c 49 47 4e 0d 09 f6 11 20 2e |... ALIGN.... .|
00001cb0 66 61 69 6c 65 64 65 72 72 6f 72 0d 0a 00 12 20 |failederror.... |
00001cc0 20 45 51 55 44 20 20 26 32 38 39 30 30 0d 0a 0a | EQUD &28900...|
00001cd0 39 20 20 45 51 55 53 20 20 22 53 79 73 74 65 6d |9 EQUS "System|
00001ce0 20 52 4f 4d 73 20 69 6e 63 61 70 61 62 6c 65 20 | ROMs incapable |
00001cf0 6f 66 20 72 75 6e 6e 69 6e 67 20 61 74 20 38 4d |of running at 8M|
00001d00 48 7a 22 2b bd 30 0d 0a 14 0b 20 20 41 4c 49 47 |Hz"+.0.... ALIG|
00001d10 4e 0d 0a 1e 0a 20 2e 64 6f 6e 65 0d 0a 28 40 20 |N.... .done..(@ |
00001d20 20 45 51 55 53 20 20 22 54 68 65 20 53 79 73 74 | EQUS "The Syst|
00001d30 65 6d 20 52 4f 4d 73 20 61 72 65 20 6e 6f 77 20 |em ROMs are now |
00001d40 72 75 6e 6e 69 6e 67 20 61 74 20 38 4d 48 7a 22 |running at 8MHz"|
00001d50 2b bd 31 30 2b bd 31 33 2b bd 30 0d 0a 32 0b 20 |+.10+.13+.0..2. |
00001d60 20 41 4c 49 47 4e 0d 0a 3c 0d 20 2e 56 65 72 73 | ALIGN..<. .Vers|
00001d70 69 6f 6e 0d 0a 46 41 20 20 45 51 55 53 20 20 22 |ion..FA EQUS "|
00001d80 4d 45 4d 43 20 52 4f 4d 20 41 63 63 65 6c 65 72 |MEMC ROM Acceler|
00001d90 61 74 6f 72 20 56 65 72 73 69 6f 6e 20 31 2e 30 |ator Version 1.0|
00001da0 30 20 28 32 39 20 4d 61 79 20 31 39 38 39 29 22 |0 (29 May 1989)"|
00001db0 2b bd 31 33 0d 0a 50 0b 20 20 41 4c 49 47 4e 0d |+.13..P. ALIGN.|
00001dc0 0a 5a 06 20 5d 0d 0a 64 06 20 ed 0d 0a 6e 29 20 |.Z. ]..d. ...n) |
00001dd0 ff 20 20 22 53 61 76 65 20 53 70 65 65 64 52 4f |. "Save SpeedRO|
00001de0 4d 20 22 2b c3 7e 63 6f 64 65 25 2b 22 20 22 2b |M "+.~code%+" "+|
00001df0 c3 7e 50 25 0d 0a 78 1a 20 2a 53 65 74 54 79 70 |.~P%..x. *SetTyp|
00001e00 65 20 53 70 65 65 64 52 4f 4d 20 46 46 43 0d 0a |e SpeedROM FFC..|
00001e10 82 06 20 e0 0d ff |.. ...|
00001e16 
.