Date   : Thu, 10 Feb 2005 00:38:08 +0000
From   : Mike Tomlinson <mike@...>
Subject: Re: VIEWSTORE

In article <000001c50d0c$f4991950$0301010a@...>, Tom Drage
<drage@...> writes
>
>    Oh the other things is, is pulling the bbc apart the only way of 
>    checking for installed roms?

Please could you post to the list in plain text?

The following will print a list of ROMs in the Beeb:

10 DIM space% 10
20 PROCassem
30 FOR Y%=15 TO 0 STEP -1
40 Y$=STR$Y%:IF LENY$=1 Y$="0"+Y$
50 PRINT Y$"> ";
60 PRINT FNrom
70 NEXT
80 END
90 DEF FNrom
100 IF Y%?&2A1=0 := "(vacant)"
110 A%=&8009
120 a$=""
130 REPEAT
140 ?&F6=A% MOD 256
150 ?&F7=A% DIV 256
160 CALL start
170 IF ?&70>31 AND ?&70<127 a$=a$+CHR$?&70
180 A%=A%+1
190 UNTIL ?&70=0
200 :=a$
210 :
220 DEF PROCassem
230 P%=space%
240 [OPT 2
250 .start
260 JSR &FFB9
270 STA &70
280 RTS
290 ]
300 ENDPROC


Example output:

15> BASIC
14> DFS 1.44
13> (vacant)
12> (vacant)
11> (vacant)
10> (vacant)
09> (vacant)
08> (vacant)
07> (vacant)
06> (vacant)
05> (vacant)
04> (vacant)
03> (vacant)
02> (vacant)
01> (vacant)
00> (vacant)

-- 
.sigmonster on vacation