Basic: add pr-memory-summary core function.

- Remove test POKE commands.

diff --git a/basic/core.in.bas b/basic/core.in.bas
index 8788e3d..f0d1412 100644 (file)
--- a/basic/core.in.bas
+++ b/basic/core.in.bas
@@ -208,8 +208,7 @@ DO_FUNCTION:
   DO_40_49:
   ON G-39 GOTO DO_CONS,DO_CONCAT,DO_NTH,DO_FIRST,DO_REST,DO_EMPTY_Q,DO_COUNT,DO_CONJ,DO_SEQ,DO_WITH_META
   DO_50_59:
-  ON G-49 GOTO DO_META,DO_ATOM,DO_ATOM_Q,DO_DEREF,DO_RESET_BANG,DO_EVAL,DO_READ_FILE
-  REM ,DO_PR_MEMORY_SUMMARY
+  ON G-49 GOTO DO_META,DO_ATOM,DO_ATOM_Q,DO_DEREF,DO_RESET_BANG,DO_EVAL,DO_READ_FILE,DO_PR_MEMORY_SUMMARY
 
   DO_EQUAL_Q:
     A=AA:B=AB:GOSUB EQUAL_Q
@@ -532,9 +531,9 @@ DO_FUNCTION:
   REM DO_PR_MEMORY:
   REM   P1=ZT:P2=-1:GOSUB PR_MEMORY
   REM   RETURN
-  REM DO_PR_MEMORY_SUMMARY:
-  REM   GOSUB PR_MEMORY_SUMMARY
-  REM   RETURN
+  DO_PR_MEMORY_SUMMARY:
+    GOSUB PR_MEMORY_SUMMARY
+    RETURN
 
   DO_EVAL:
     Q=E:GOSUB PUSH_Q: REM push/save environment
@@ -620,7 +619,7 @@ INIT_CORE_NS:
 
   K$="eval":A=55:GOSUB INIT_CORE_SET_FUNCTION
   K$="read-file":A=56:GOSUB INIT_CORE_SET_FUNCTION
-  REM K$="pr-memory-summary":A=57:GOSUB INIT_CORE_SET_FUNCTION
+  K$="pr-memory-summary":A=57:GOSUB INIT_CORE_SET_FUNCTION
 
   REM these are in DO_TCO_FUNCTION
   K$="apply":A=61:GOSUB INIT_CORE_SET_FUNCTION

diff --git a/basic/step9_try.in.bas b/basic/step9_try.in.bas
index 2afccdb..45a6d5b 100755 (executable)
--- a/basic/step9_try.in.bas
+++ b/basic/step9_try.in.bas
@@ -1,5 +1,3 @@
-REM POKE 1, PEEK(1)AND248: REM enable all ROM areas as RAM
-REM POKE 55,0: POKE 56,192: CLR: REM move BASIC end from $A000 to $C000
 GOTO MAIN
 
 REM $INCLUDE: 'types.in.bas'

diff --git a/basic/stepA_mal.in.bas b/basic/stepA_mal.in.bas
index 7f055a2..3ad10c3 100755 (executable)
--- a/basic/stepA_mal.in.bas
+++ b/basic/stepA_mal.in.bas
@@ -1,5 +1,3 @@
-REM POKE 1, PEEK(1)AND248: REM enable all ROM areas as RAM
-REM POKE 55,0: POKE 56,192: CLR: REM move BASIC end from $A000 to $C000
 GOTO MAIN
 
 REM $INCLUDE: 'types.in.bas'