MiniMemoryTester/src/mt.s

****************************************
* MemoryTester                         *
*                                      *
*  Dagen Brock <dagenbrock@gmail.com>  *
*  2015-02-23                          *
****************************************

	org $2000	; start at $2000 (all ProDOS8 system files)
	typ $ff	; set P8 type ($ff = "SYS") for output file
	dsk mtsystem ; tell compiler what name for output file
	put applerom


MLI	equ $bf00

Main	jsr Menu_Draw
:menuLoop	jsr Menu_UndrawSelected
	jsr Menu_DrawSelected
	jsr WaitKey
	cmp #$8D	; ENTER
	bne :check1
:enter	jsr Menu_HandleSelection
	bra :menuLoop

:check1	cmp #$8B	; UP
	bne :check2
	jsr Menu_PrevItem
	bra :menuLoop

:check2	cmp #$8A	; DOWN
	bne :noKey
	jsr Menu_NextItem
	bra :menuLoop

:noKey	bra :menuLoop
* LOOOOOOOOOP ^^^^^^







Quit	jsr MLI	; first actual command, call ProDOS vector
	dfb $65	; with "quit" request ($65)
	da QuitParm
	bcs Error
	brk $00	; shouldn't ever  here!

QuitParm	dfb 4	; number of parameters
	dfb 0	; standard quit type
	da $0000	; not needed when using standard quit
	dfb 0	; not used
	da $0000	; not used


Error	brk $00	; shouldn't be here either
GetStartBank	
	ldx #13
	ldy #10
	jsr GoXY
	lda #2
	ldx #>StartBank
	ldy #StartBank
	jsr GetHex
	brk $99
	lda StartBank
	rts

* Pass desired length in A
GetHex	sta _gethex_maxlen
	stx _gethex_resultptr
	sty _gethex_resultptr+1
	stz _gethex_current

:input	jsr RDKEY
	cmp #"9"+1
	bcs :notNum	;bge > 9
	cmp #"0"
	bcc :badChar	;
	sec
	sbc #"0"
	bra :storeInput
:notNum	cmp #"a"
	bcc :notLower
	sec
	sbc #$20	; ToUpper
:notLower	cmp #"A"
	bcc :badChar
	cmp #"F"+1
	bcs :badChar
:gotHex	
	sec
	sbc #"A"-10
:storeInput
	jsr PRHEX
	ldy _gethex_current
	sta _gethex_buffer,y
	iny
	cpy #_gethex_internalmax
	bge :internalmax
	cpy _gethex_maxlen
	bge :passedmax
	sty _gethex_current
	bra :input
:internalmax
:passedmax
	lda _gethex_resultptr
	sta $0
	lda _gethex_resultptr+1
	sta $1
	ldx #0
	ldy #0
:copyBuffer	lda _gethex_buffer,x
	asl	; move to upper nibble
	asl
	asl
	asl
	sta ($0),y	; store
	inx
	lda _gethex_buffer,x
	ora ($0),y
	sta ($0),y
	iny
	inx
	cpx _gethex_maxlen
	bcc :copyBuffer
	rts

:badChar	bra :input

_gethex_internalmax equ 8
_gethex_resultptr   da 0000
_gethex_maxlen	db 1
_gethex_current	db 0
_gethex_buffer	ds _gethex_internalmax 
PrHexChar	jsr HexCharForByte

HexCharForByte
	cmp #9
	bcs :alpha
:number	clc
	adc #"0"
	rts
:alpha	clc
	adc #"A"
	rts


Menu_Draw	jsr HOME
	lda #MainMenuStrs
	ldy #>MainMenuStrs
	ldx #05	; horiz pos
	jsr PrintStringsX
	lda #MainMenuDefs
	ldy #>MainMenuDefs
	jsr Menu_DrawOptions
	rts

BeginTest	brk $ff


* DEFAULTS
StartBank	db  #$02
EndBank	db  #$7F
StartAddr	dw  #$0000
EndAddr	dw  #$FFFF
TestValue	dw  #$00

Menu_DrawOptions	sta $0
	sty $1
	stz _menuOptionPtr
:drawOption
	ldy _menuOptionPtr
	lda ($0),y
	beq :menuDone
	tax
	iny
	lda ($0),y
	tay
	jsr GoXY
	ldy _menuOptionPtr
	iny
	iny
	lda ($0),y
	beq :charItem
	cmp #1
	beq :hexItem
	cmp #2
	beq :jsrItem
:charItem	
:hexItem	iny
	lda ($0),y	; get len
	sta _menuHexIdx
	iny	
	lda ($0),y	; get da
	sta $2	; storez
	iny	
	lda ($0),y	; get da
	sta $3	; storez
	ldy #0
:prloop	lda ($2),y
	jsr PRBYTE
	iny
	cpy _menuHexIdx
	bne :prloop
	bra :nextMenuItem
:jsrItem
	iny
	iny
	lda ($0),y
	tax
	iny
	lda ($0),y
	tay

	lda $0	; whoops.. save zp ptrs that printstring uses :(
	pha
	lda $1
	pha

	txa
	jsr PrintString
	pla
	sta $1
	pla
	sta $0

:nextMenuItem
	lda _menuOptionPtr
	clc
	adc #6	; len of "struct"
	sta _menuOptionPtr
	bra :drawOption
:menuDone
	rts
_menuHexIdx	dw  0
_menuOptionPtr	dw  00
Menu_UndrawSelected	
	lda #MainMenuDefs
	ldy #>MainMenuDefs
	sta $0
	sty $1
	stz _stash

:undrawLoop	ldy _stash	; struct ptr
	lda ($0),y
	beq :stop
	dec	; x-- (left bracket)
	sta _menuSelectedX1
	iny
	lda ($0),y
	sta _menuSelectedY
	iny 
	lda ($0),y
	bne :notChar
	iny
	lda ($0),y
	inc	;doit
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket

:notChar	cmp #1
	bne :notHex
	iny 
	lda ($0),y
	asl
	inc	;doit
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket

:notHex	cmp #2
	bne :wtf
	iny 
	lda ($0),y

	inc
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket


:wtf

:rightBracket
	ldy _menuSelectedY
	jsr GoXY
	lda #" "
	jsr COUT
:leftBracket	ldx _menuSelectedX1
	ldy _menuSelectedY
	jsr GoXY 
	lda #" "
	jsr COUT
	lda _stash
	clc
	adc #6
	sta _stash
	bra :undrawLoop
:stop
	rts
Menu_DrawSelected	
	lda #MainMenuDefs
	ldy #>MainMenuDefs
	sta $0
	sty $1
	lda #0
	ldx Menu_ItemSelected
:check	beq :foundIdx
	clc
	adc #6	; "struct" size
	dex 
	bra :check

:foundIdx	tay
	lda ($0),y
	dec	; x-- (left bracket)
	sta _menuSelectedX1
	iny
	lda ($0),y
	sta _menuSelectedY
	iny 
	lda ($0),y
	bne :notChar
	iny
	lda ($0),y
	inc	;doit
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket

:notChar	cmp #1
	bne :notHex
	iny 
	lda ($0),y
	asl
	inc	;doit
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket

:notHex	cmp #2
	bne :wtf
	iny 
	lda ($0),y

	inc
	clc
	adc _menuSelectedX1
	tax
	bra :rightBracket


:wtf

:rightBracket
	ldy _menuSelectedY
	jsr GoXY
	lda #"]"
	jsr COUT
:leftBracket	ldx _menuSelectedX1
	ldy _menuSelectedY
	jsr GoXY 
	lda #"["
	jsr COUT

	rts
_menuSelectedX1	db 0	; no x2 cuz we be addin'
_menuSelectedY	db 0

Menu_HandleSelection 
	lda #MainMenuDefs
	ldy #>MainMenuDefs
	sta $0
	sty $1
	lda #0
	ldx Menu_ItemSelected
:check	beq :foundIdx
	clc
	adc #6	; "struct" size
	dex 
	bra :check
:foundIdx	sta _stash
	tay
	lda ($0),y
	tax
	iny
	lda ($0),y
	tay
	jsr GoXY
*** HERE
	ldy _stash
	iny
	iny
	lda ($0),y
	bne :notChar

*TODO
:notChar	cmp #1
	bne :notHex
	iny
	lda ($0),y
	asl	;*2
	pha
	iny
	lda ($0),y
	pha
	iny
	lda ($0),y
	tay
	plx
	pla
	jsr GetHex
	rts


:notHex	cmp #2
	bne :wtf


:wtf
	rts


	lda #2
	ldx #>StartBank
	ldy #StartBank
	jsr GetHex


* EG
*Menu_EndAddr	hex 0D,0E	; x,y
*	db 01	; 0=char/1=hex input 2=Menu JSR
*	db 02	; memory size (bytes), 0=char/1=hex input
*	da EndAddr	; variable storage 




	rts
Menu_PrevItem	dec Menu_ItemSelected
	bpl :noflip
	lda #MainMenuItems
	dec
	sta Menu_ItemSelected

:noflip	rts

Menu_NextItem	
	inc Menu_ItemSelected
	lda Menu_ItemSelected
	cmp #MainMenuItems
	bcc :noflip
	lda #0
	sta Menu_ItemSelected
:noflip	rts


Menu_ItemSelected	db  0
MainMenuDefs
Menu_StartBank	hex 0D,0A ; x,y
	db 01	; 0=char/1=hex input 2=Menu JSR
	db 01	; memory size (bytes), 0=char/1=hex input
	da StartBank	; variable storage 
Menu_EndBank	hex 0D,0B	; x,y
	db 01	; 0=char/1=hex input 2=Menu JSR
	db 01	; memory size (bytes), 0=char/1=hex input
	da EndBank	; variable storage 
Menu_StartAddr	hex 0D,0D	; x,y
	db 01	; 0=char/1=hex input 2=Menu JSR
	db 02	; memory size (bytes), 0=char/1=hex input
	da StartAddr	; variable storage 
Menu_EndAddr	hex 0D,0E	; x,y
	db 01	; 0=char/1=hex input 2=Menu JSR
	db 02	; memory size (bytes), 0=char/1=hex input
	da EndAddr	; variable storage 
Menu_BeginTest	hex 0D,12	; x,y
	db 02	; 0=char/1=hex input 2=Menu JSR
	db MenuStr_BeginTestL ; menu string length
	da MenuStr_BeginTest ; string storage 
MainMenuLen	equ *-Menu_StartBank
MainMenuItems	equ MainMenuLen/6
MainMenuEnd	dw 0000



MenuStr_JSR	da BeginTest	; MUST PRECEDE MENU STRING!  Yes, it's magicly inferred. (-2)
MenuStr_BeginTest	asc "BEGIN TEST"
MenuStr_BeginTestL  equ #*-MenuStr_BeginTest
MenuStr_BeginTestE	db 00
MainMenuStrs
	asc "        *********************** ",$8D,$00
	asc "       **                     **",$8D,$00
	asc "       **  Mini Memory Tester **",$8D,$00
	asc "       **    Reactive Micro   **",$8D,$00
	asc "       **        (beta)       **",$8D,$00
	asc "       **                     **",$8D,$00
	asc "        *********************** ",$8D,$00
	asc $8D,$8D,$8D,$00
	asc " Start BANK:  ",$8D,$00
	asc "   End BANK:  ",$8D,$8D,$00
	asc " Start ADDR:  ",$8D,$00
	asc "   End ADDR:  ",$8D,$8D,$8D,$00
	asc "  Test Byte:    (Leave empty = random)",$8D,$8D,$8D,$00
	asc "        USE ARROW KEYS TO MOVE",8D,$00
	asc "       USE ENTER TO SELECT/EDIT",$8D,$00
	
	hex 00,00
	

PrintStringDebug	sta $0
	sty $1

	ldy #0
:loop	lda ($0),y
	beq :done
	jsr COUT
	jsr WaitKey
	iny
	bra :loop
:done	rts



WaitKey
:kloop	lda KEY
	bpl :kloop
	sta STROBE
	cmp #"b"	; REMOVE DEBUG
	bne :nobreak
	brk $75
:nobreak
	rts

	put strings.s
	ds \
_stash	ds 255
	ds \