Apple-2gs-SW
/
MiniMemoryTester
mirror of https://github.com/digarok/MiniMemoryTester.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

two pass 8 bit pattern seems good

This commit is contained in:
Dagen Brock 2015-10-13 21:10:41 -05:00
parent 37356175ea
commit e20d477192
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/mmt.s
View File

@ -157,6 +157,7 @@ TestInit
TestMasterLoop clc TestMasterLoop clc
xce xce
rep #$10 ;long x/y rep #$10 ;long x/y
ldy StartAddr ldy StartAddr
ldx EndAddr ldx EndAddr
stz CurBank stz CurBank
@ -192,7 +193,11 @@ KeyHandled
beq :infiniteIterations ;0=infinite beq :infiniteIterations ;0=infinite
cmp _testIteration cmp _testIteration
bcc :testComplete bcc :testComplete
:infiniteIterations jmp TestMasterLoop :infiniteIterations lda TestTwoPass
beq :notwopass
stz _testState ;hack to reset for two pass, will switch it back to write when it sees zero. i hope. (update: WORKS! BOOM!)
:notwopass jmp TestMasterLoop
TestAbort jsr TestForceUpdateStatus ;print last test address TestAbort jsr TestForceUpdateStatus ;print last test address
:testComplete sep #$10 :testComplete sep #$10
jsr LogTestDone jsr LogTestDone
@ -240,15 +245,15 @@ TestSetState lda TestTwoPass ;read pass
TestPrintState PushAll TestPrintState PushAll
sep #$10 sep #$10
lda _testState lda _testState
:check1 cmp #1 :check1 cmp #TESTSTATE_WRITE
bne :check2 bne :check2
PRINTXY #53;#12;Mesg_Writing PRINTXY #53;#12;Mesg_Writing
bra :done bra :done
:check2 cmp #2 :check2 cmp #TESTSTATE_READ
bne :check3 bne :check3
PRINTXY #53;#12;Mesg_Reading PRINTXY #53;#12;Mesg_Reading
bra :done bra :done
:check3 cmp #3 :check3 cmp #TESTSTATE_BOTH
bne :done bne :done
PRINTXY #53;#12;Mesg_WR PRINTXY #53;#12;Mesg_WR
:done clc :done clc
@ -554,7 +559,7 @@ Test_8BitPatternTP lda _testState
cmp #TESTSTATE_READ cmp #TESTSTATE_READ
beq :read beq :read
:write ldy TestWriteRepeat :write ldy TestWriteRepeat
_writeloop2 lda HexPattern _writeloop2 lda HexPattern
stal $020000,x stal $020000,x
BANKPATCH10 = *-1 BANKPATCH10 = *-1
dey dey
@ -569,12 +574,12 @@ BANKPATCH10 = *-1
:read :read
ldy TestReadRepeat ldy TestReadRepeat
_readloop ldal $020000,x _readloop3 ldal $020000,x
BANKPATCH11 = *-1 BANKPATCH11 = *-1
cmp HexPattern cmp HexPattern
bne :readerror bne :readerror
dey dey
bne _readloop bne _readloop3
rts rts
:readerror jsr TestLogError :readerror jsr TestLogError
jsr TestPrintErrors jsr TestPrintErrors
@ -587,7 +592,7 @@ BANKPATCH11 = *-1
mx %10 ;still shortM longX mx %10 ;still shortM longX
* 8-bit R/W TESTS * 8-bit W/R TESTS
Test_8BitWalk0WR Test_8BitWalk0WR
lda #%01111111 lda #%01111111
sta HexPattern sta HexPattern
@ -664,7 +669,7 @@ _noAdjacentWrite dey
jsr CORRUPTOR jsr CORRUPTOR
ldy TestReadRepeat ldy TestReadRepeat
_readloop2 ldal $020000,x _readloop2 ldal $020000,x
BANKPATCH04 = *-1 BANKPATCH04 = *-1
cmp HexPattern cmp HexPattern
bne :readerror bne :readerror
@ -677,7 +682,7 @@ BANKPATCH04 = *-1
rts rts
* 16-bit R/W TESTS * 16-bit W/R TESTS
mx %00 mx %00
Test_16BitWalk0WR Test_16BitWalk0WR
lda #%0111111111111111 lda #%0111111111111111
@ -944,8 +949,8 @@ TestPatchBanks lda CurBank
sta BANKPATCH07 sta BANKPATCH07
sta BANKPATCH08 sta BANKPATCH08
sta BANKPATCH10 ;two pass start here sta BANKPATCH10 ;two pass start here
sta BANKPATCH11 sta BANKPATCH11
rts rts
@ -1475,7 +1480,7 @@ MainMenuStrs
asc $1B,'ZZ'," Bin Pattern : ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," Bin Pattern : ",'_'," ",'Z'," ",'_'," ",'_',$18,00
asc $1B,'ZZ'," ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," ",'_'," ",'Z'," ",'_'," ",'_',$18,00
asc $1B,'ZZ'," Direction Wait on Error ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," Direction Wait on Error ",'_'," ",'Z'," ",'_'," ",'_',$18,00
asc $1B,'ZZ'," Adjacent Wr. Two-Pass R/W ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," Adjacent Wr. Two-Pass W/R ",'_'," ",'Z'," ",'_'," ",'_',$18,00
asc $1B,'ZZ'," Read Repeat Write Repeat ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," Read Repeat Write Repeat ",'_'," ",'Z'," ",'_'," ",'_',$18,00
asc $1B,'ZZ'," Iterations Refresh Pause ",'_'," ",'Z'," ([ BEGIN TEST ]) ",'_'," ",'_',$18,00 asc $1B,'ZZ'," Iterations Refresh Pause ",'_'," ",'Z'," ([ BEGIN TEST ]) ",'_'," ",'_',$18,00
asc $1B,'ZZ'," ",'_'," ",'Z'," ",'_'," ",'_',$18,00 asc $1B,'ZZ'," ",'_'," ",'Z'," ",'_'," ",'_',$18,00
@ -1668,3 +1673,4 @@ BankExpansionHighest ds 1
BankMap ds 256 ;page-align maps just to make them easier to see BankMap ds 256 ;page-align maps just to make them easier to see
_stash ds 256 _stash ds 256
ds \ ds \