FM-11 EXTENDED MEMORY READ / F-BASIC4.0

MMR.BAS

100 CLEAR ,&H4FFF
110 DEF FNH$(A)=RIGHT$("0"+HEX$(A),2)
120 M=&HFD80
130 S=PEEK(&HFD93)
140 PRINT "MSR: ";FNH$(S)
150 FOR I=0 TO 15
160 PRINT "MMR: ";FNH$(I);" ";FNH$(PEEK(M+I));"000"
170 NEXT I
180 T=&HFD85
190 FOR I=2 TO 15
200 M=I*16
210 POKE T,M
220 PRINT HEX$(I);"0000:";
230 FOR J=0 TO 15: PRINT " ";FNH$(PEEK(&H5000+J));:NEXT J
240 PRINT
250 NEXT I