mirror of
https://github.com/digarok/MiniMemoryTester.git
synced 2024-06-06 13:29:30 +00:00
fix console log
This commit is contained in:
parent
c7c86025ab
commit
03cb159e98
25
src/mmt.s
25
src/mmt.s
|
@ -35,6 +35,8 @@ Main
|
||||||
:menuLoop jsr DrawMenuBackground
|
:menuLoop jsr DrawMenuBackground
|
||||||
jsr DrawRomMessage
|
jsr DrawRomMessage
|
||||||
jsr DrawRamMessages
|
jsr DrawRamMessages
|
||||||
|
|
||||||
|
|
||||||
:menuDrawOptionsLoop jsr MenuUpdateWordSize ;always update this before draw in case of change
|
:menuDrawOptionsLoop jsr MenuUpdateWordSize ;always update this before draw in case of change
|
||||||
lda #MainMenuDefs
|
lda #MainMenuDefs
|
||||||
ldy #>MainMenuDefs
|
ldy #>MainMenuDefs
|
||||||
|
@ -189,14 +191,14 @@ LOG MAC
|
||||||
jsr ConsoleLog
|
jsr ConsoleLog
|
||||||
<<<
|
<<<
|
||||||
|
|
||||||
|
_consoleBottom = #23
|
||||||
* Write out to console window
|
* Write out to console window
|
||||||
ConsoleLog pha
|
ConsoleLog pha
|
||||||
phy
|
phy
|
||||||
jsr WinConsole
|
jsr WinConsole
|
||||||
lda #0 ;settings to bottom-left of window
|
lda #0 ;settings to bottom-left of window
|
||||||
sta $24
|
sta $24
|
||||||
lda #20
|
lda #_consoleBottom-1
|
||||||
sta $25
|
sta $25
|
||||||
jsr VTAB
|
jsr VTAB
|
||||||
lda #$8D ;pre-fix CR
|
lda #$8D ;pre-fix CR
|
||||||
|
@ -208,13 +210,13 @@ ConsoleLog pha
|
||||||
rts
|
rts
|
||||||
|
|
||||||
* Set console windowing
|
* Set console windowing
|
||||||
WinConsole lda #52
|
WinConsole lda #3
|
||||||
sta $20 ;left edge
|
sta $20 ;left edge
|
||||||
lda #26
|
lda #75
|
||||||
sta $21 ;width
|
sta $21 ;width
|
||||||
lda #5
|
lda #17
|
||||||
sta $22 ;top edge
|
sta $22 ;top edge
|
||||||
lda #16
|
lda #_consoleBottom
|
||||||
sta $23 ;bottom edge
|
sta $23 ;bottom edge
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
@ -682,7 +684,7 @@ EndAddr dw #$FFFF
|
||||||
HexPattern dw #$0000
|
HexPattern dw #$0000
|
||||||
|
|
||||||
TestDirection dw #0 ; list
|
TestDirection dw #0 ; list
|
||||||
TestParallel dw #0 ; bool is byte, but might change in future? :P
|
TestTwoPass dw #0 ; bool is byte, but might change in future? :P
|
||||||
TestAdjacentWrite dw #0 ; bool is byte, but might change in future? :P
|
TestAdjacentWrite dw #0 ; bool is byte, but might change in future? :P
|
||||||
TestRefreshPause dw #$00 ; int
|
TestRefreshPause dw #$00 ; int
|
||||||
TestReadRepeat dw #$01 ; int
|
TestReadRepeat dw #$01 ; int
|
||||||
|
@ -738,10 +740,10 @@ _binpatternsize db 02 ; max len size
|
||||||
db Menu_TypeList
|
db Menu_TypeList
|
||||||
db 2
|
db 2
|
||||||
da TestDirectionTbl
|
da TestDirectionTbl
|
||||||
:Parallel hex 28,0B
|
:TwoPass hex 28,0B
|
||||||
db Menu_TypeBool
|
db Menu_TypeBool
|
||||||
db 2 ; could be 8-bit or 16-bit bool
|
db 2 ; could be 8-bit or 16-bit bool
|
||||||
da TestParallel
|
da TestTwoPass
|
||||||
:AdjacentWrite hex 12,0C ; x,y
|
:AdjacentWrite hex 12,0C ; x,y
|
||||||
db Menu_TypeBool ; 1=hex input
|
db Menu_TypeBool ; 1=hex input
|
||||||
db 01 ; memory size (bytes)
|
db 01 ; memory size (bytes)
|
||||||
|
@ -807,7 +809,7 @@ MainMenuStrs
|
||||||
asc $1B,'ZZ'," Hex Pattern : ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
asc $1B,'ZZ'," Hex Pattern : ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
||||||
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 Parallel R/W ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
asc $1B,'ZZ'," Direction Two-Pass R/W ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
||||||
asc $1B,'ZZ'," Adjacent Wr. Wait on Error ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
asc $1B,'ZZ'," Adjacent Wr. Wait on Error ",'_'," ",'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'," ",'_'," ",'_',$18,00
|
asc $1B,'ZZ'," Iterations Refresh Pause ",'_'," ",'Z'," ",'_'," ",'_',$18,00
|
||||||
|
@ -818,7 +820,8 @@ MainMenuStrs
|
||||||
asc $1B,'Z'," ",'_',$18,00
|
asc $1B,'Z'," ",'_',$18,00
|
||||||
asc $1B,'Z'," ",'_',$18,00
|
asc $1B,'Z'," ",'_',$18,00
|
||||||
asc $1B,'Z'," ",'_',$18,00
|
asc $1B,'Z'," ",'_',$18,00
|
||||||
asc $1B,'Z',"______________________________________________________________________________",'_',$18,00
|
asc $1B,'Z'," _",'_',$18,00
|
||||||
|
asc $1B,'Z',"_____________________________________________________________________________",'_', $18,00
|
||||||
|
|
||||||
* asc " ABCDEFGHIZKLMNOPQRSTUVWXYZ ",$8D,$00
|
* asc " ABCDEFGHIZKLMNOPQRSTUVWXYZ ",$8D,$00
|
||||||
* asc $1B,' ABCDEFGHIZKLMNOPQRSTUVWXYZ ',$1B,$8D,$00
|
* asc $1B,' ABCDEFGHIZKLMNOPQRSTUVWXYZ ',$1B,$8D,$00
|
||||||
|
|
Loading…
Reference in New Issue
Block a user