Skip to content

Instantly share code, notes, and snippets.

@houmei

houmei/MMR.BAS

Created July 5, 2021 18:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save houmei/8ade8635d34993758fc0692269636ae1 to your computer and use it in GitHub Desktop.
Save houmei/8ade8635d34993758fc0692269636ae1 to your computer and use it in GitHub Desktop.
Download ZIP
FM-11 EXTENDED MEMORY READ / F-BASIC4.0
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment