Apple-2gs-SW/MiniMemoryTester
1
0
Fork 0
mirror of https://github.com/digarok/MiniMemoryTester.git synced 2025-01-02 12:29:45 +00:00
Code Issues Projects Releases Wiki Activity

print memory map

Browse Source
This commit is contained in:
Dagen Brock 2015-10-24 22:56:46 -05:00
parent ac458d0444
commit 9b8a87d9ac
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/mmt.s
View File

@ -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 \