adding entry routines
This commit is contained in:
parent
c6500f1911
commit
64992ae08d
|
@ -1,6 +1,9 @@
|
||||||
**************************************************
|
**************************************************
|
||||||
* Apple Standard Memory Locations
|
* Apple Standard Memory Locations
|
||||||
**************************************************
|
**************************************************
|
||||||
|
CH EQU $24
|
||||||
|
CV EQU $25
|
||||||
|
|
||||||
CLRLORES equ $F832
|
CLRLORES equ $F832
|
||||||
LORES equ $C050
|
LORES equ $C050
|
||||||
TXTSET equ $C051
|
TXTSET equ $C051
|
||||||
|
@ -51,5 +54,6 @@ RDKEY equ $FD0C ; Displays blinking cursor; goes to standard input
|
||||||
; routine, nonnally KEYIN or BASICIN
|
; routine, nonnally KEYIN or BASICIN
|
||||||
SCRN equ $F871 ; Reads color of a low-resolution block
|
SCRN equ $F871 ; Reads color of a low-resolution block
|
||||||
SETCOL equ $F864 ; Sets the color for plotting in low-resolution block
|
SETCOL equ $F864 ; Sets the color for plotting in low-resolution block
|
||||||
VTABZ equ $FC24 ; Sets the cursor vertical position
|
VTAB equ $FC22 ; Sets the cursor vertical position (from CV)
|
||||||
|
VTABZ equ $FC24 ; Sets the cursor vertical position (0)
|
||||||
VLINE equ $F828 ; Draws a vertical line of low-resolution blocks
|
VLINE equ $F828 ; Draws a vertical line of low-resolution blocks
|
||||||
|
|
65
src/mt.s
65
src/mt.s
|
@ -14,6 +14,8 @@
|
||||||
MLI equ $bf00
|
MLI equ $bf00
|
||||||
|
|
||||||
jsr DrawMenu
|
jsr DrawMenu
|
||||||
|
jsr GetStartBank
|
||||||
|
jsr GetThing
|
||||||
jsr WaitKey
|
jsr WaitKey
|
||||||
|
|
||||||
|
|
||||||
|
@ -31,6 +33,54 @@ QuitParm dfb 4 ; number of parameters
|
||||||
|
|
||||||
|
|
||||||
Error brk $00 ; shouldn't be here either
|
Error brk $00 ; shouldn't be here either
|
||||||
|
GetStartBank
|
||||||
|
lda #13
|
||||||
|
sta $24
|
||||||
|
lda #10
|
||||||
|
sta $25
|
||||||
|
jsr VTAB
|
||||||
|
lda #"$"
|
||||||
|
sta $33
|
||||||
|
jsr GetHex
|
||||||
|
jsr RDKEY
|
||||||
|
jsr PRBYTE
|
||||||
|
rts
|
||||||
|
|
||||||
|
* Pass desired length in A
|
||||||
|
GetHex sta _gethex_maxlen
|
||||||
|
:input jsr RDKEY
|
||||||
|
cmp #"9"+1
|
||||||
|
bcs :notNum ;bge > 9
|
||||||
|
cmp #"0"
|
||||||
|
bcc :badChar ;
|
||||||
|
sec
|
||||||
|
sbc #"0"
|
||||||
|
bra :gotHex
|
||||||
|
:notNum cmp #"a"
|
||||||
|
bcc :notLower
|
||||||
|
sec
|
||||||
|
sbc #$20 ; ToUpper
|
||||||
|
:notLower cmp #"A"
|
||||||
|
bcc :badChar
|
||||||
|
cmp #"F"+1
|
||||||
|
bcs :badChar
|
||||||
|
:gotHex jsr PRHEX
|
||||||
|
rts
|
||||||
|
|
||||||
|
:badChar bra :input
|
||||||
|
|
||||||
|
|
||||||
|
_gethex_maxlen db 1
|
||||||
|
|
||||||
|
GetThing lda #13
|
||||||
|
sta $24
|
||||||
|
lda #10
|
||||||
|
sta $25
|
||||||
|
jsr VTAB
|
||||||
|
lda #"$"
|
||||||
|
sta $33
|
||||||
|
jsr GETLN
|
||||||
|
rts
|
||||||
|
|
||||||
DrawMenu jsr HOME
|
DrawMenu jsr HOME
|
||||||
lda #MenuStrs
|
lda #MenuStrs
|
||||||
|
@ -81,13 +131,13 @@ PrintString sta $0
|
||||||
:done rts
|
:done rts
|
||||||
|
|
||||||
MenuStrs
|
MenuStrs
|
||||||
asc " *********************** ",$8D,$00
|
asc " *********************** ",$8D,$00
|
||||||
asc " ** **",$8D,$00
|
asc " ** **",$8D,$00
|
||||||
asc " ** Mini Memory Tester **",$8D,$00
|
asc " ** Mini Memory Tester **",$8D,$00
|
||||||
asc " ** Reactive Micro **",$8D,$00
|
asc " ** Reactive Micro **",$8D,$00
|
||||||
asc " ** (beta) **",$8D,$00
|
asc " ** (beta) **",$8D,$00
|
||||||
asc " ** **",$8D,$00
|
asc " ** **",$8D,$00
|
||||||
asc " *********************** ",$8D,$00
|
asc " *********************** ",$8D,$00
|
||||||
asc $8D,$8D,$8D,$00
|
asc $8D,$8D,$8D,$00
|
||||||
asc " Start BANK: ",$8D,$00
|
asc " Start BANK: ",$8D,$00
|
||||||
asc " End BANK: ",$8D,$8D,$00
|
asc " End BANK: ",$8D,$8D,$00
|
||||||
|
@ -111,4 +161,5 @@ StartBank db #$02
|
||||||
EndBank db #$7F
|
EndBank db #$7F
|
||||||
StartAddr dw #$0000
|
StartAddr dw #$0000
|
||||||
EndAddr dw #$FFFF
|
EndAddr dw #$FFFF
|
||||||
|
TestValue dw #$00
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue