From 9b8a87d9acfa6051541ff04e69826d650faae5e8 Mon Sep 17 00:00:00 2001
From: Dagen Brock <dagenbrock@gmail.com>
Date: Sat, 24 Oct 2015 22:56:46 -0500
Subject: [PATCH] print memory map

---
 src/mmt.s | 34 +++++++++++++++++++++++++++++++---
 1 file changed, 31 insertions(+), 3 deletions(-)

diff --git a/src/mmt.s b/src/mmt.s
index 65cfebf..ab901fe 100644
--- a/src/mmt.s
+++ b/src/mmt.s
@@ -31,6 +31,8 @@
                            put          applerom
 
 Init
+
+                           jsr          Intro
                            clc
                            xce                                        ;enable full 65816
                            LDA          #$A0                          ;USE A BLANK SPACE TO
@@ -39,7 +41,10 @@ Init
                            lda          $C034                         ; save border color
                            sta          BorderColor
 
+
                            jsr          DetectRam
+                           jsr PrintMemoryMap
+                           jsr RDKEY
                            lda          BankExpansionLowest
                            sta          StartBank
                            lda          BankExpansionHighest
@@ -1286,7 +1291,7 @@ TESTSTATE_WRITE            =            2
 TESTSTATE_BOTH             =            3
 UpdateScanInterval         equ          #$1000
 
-Mesg_Welcome               asc          "Welcome to Mini Memory Tester v0.3 by Dagen Brock",$8D,00
+Mesg_Welcome               asc          "Welcome to Mini Memory Tester v0.4 by Dagen Brock",$8D,00
 Mesg_InternalRam256        asc          "Built-In RAM  256K",00
 Mesg_InternalRam1024       asc          "Built-In RAM  1024K",00
 Mesg_ExpansionRam          asc          "Expansion RAM ",00
@@ -1396,6 +1401,7 @@ PRBIN                      pha
                            pla
                            rts
 
+
 Pauser
                            PRINTXY      #55;#13;Mesg_Waiting
                            ldy          #60
@@ -1713,7 +1719,7 @@ _clearstring               asc          "                         ",$00
 
 MainMenuStrs
                            asc          " ______________________________________________________________________________",$8D,$00
-                           asc          $1B,'ZV_@ZVWVWVWV_',"Mini Memory Tester v0.3",'ZVWVWVWVWVWVWVWVWVWVW_',"UltimateMicro",'ZWVWVWVW_',$18,$00
+                           asc          $1B,'ZV_@ZVWVWVWV_',"Mini Memory Tester v0.4",'ZVWVWVWVWVWVWVWVWVWVW_',"UltimateMicro",'ZWVWVWVW_',$18,$00
                            asc          $1B,'ZLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL_',$18,00
                            asc          $1B,'ZZ \GGGGGGGGGGGGG_',"Test  Settings",'ZGGGGGGGGGGGGG\ _'," ",'Z \GGGGGGGG_',"Info",'ZGGGGGGGG\ _'," ",'_',$18,00
                            asc          $1B,'ZZ',"                                              ",'_'," ",'Z',"                          ",'_'," ",'_',$18,00
@@ -1855,6 +1861,29 @@ DetectRam
                            rts
 
 
+PrintMemoryMap
+  jsr CROUT
+
+    ldx #$0
+    ldy #$0
+:loop    lda BankMap,x
+    phy
+    phx
+    jsr PRBYTE
+    lda #" "
+    jsr COUT
+    plx
+    ply
+    iny
+    cpy #16
+    bne :noty
+    jsr CROUT
+    ldy #0
+:noty
+    inx
+    bne :loop
+    rts
+
 
 * Takes address in X/Y and prints out Int stored there
 PrintInt
@@ -1917,4 +1946,3 @@ BankExpansionHighest       ds           1
 BankMap                    ds           256                           ;page-align maps just to make them easier to see
 _stash                     ds           256
                            ds           \
-