add starting hex pattern (better default?) and remove unused code
This commit is contained in:
parent
e03c5e08c7
commit
41e3d52aba
BIN
MMT800.2mg
BIN
MMT800.2mg
Binary file not shown.
88
src/misc.s
88
src/misc.s
|
@ -1,15 +1,6 @@
|
||||||
|
|
||||||
MenuCheckKeyColor jsr ColorizeMenu
|
MenuCheckKeyColor jsr ColorizeMenu
|
||||||
|
|
||||||
* lda #55
|
|
||||||
* jsr WaitSCB
|
|
||||||
* lda #80
|
|
||||||
* jsr WaitSCB
|
|
||||||
* lda #55
|
|
||||||
* jsr WaitSCB
|
|
||||||
* lda #80
|
|
||||||
* jsr WaitSCB
|
|
||||||
|
|
||||||
lda _ticker
|
lda _ticker
|
||||||
bne :skipDraw ; we want to avoid updating when nothing is happening... "Save the Cycles!!" ;)
|
bne :skipDraw ; we want to avoid updating when nothing is happening... "Save the Cycles!!" ;)
|
||||||
jsr Menu_HighlightSelected
|
jsr Menu_HighlightSelected
|
||||||
|
@ -41,23 +32,6 @@ ToLower cmp #"Z"
|
||||||
:notUpper rts
|
:notUpper rts
|
||||||
|
|
||||||
|
|
||||||
WaitKey
|
|
||||||
:kloop
|
|
||||||
jsr ColorizeMenu
|
|
||||||
lda KEY
|
|
||||||
bpl :kloop
|
|
||||||
sta STROBE
|
|
||||||
cmp #"b" ; REMOVE DEBUG
|
|
||||||
bne :nobreak
|
|
||||||
brk $75
|
|
||||||
:nobreak
|
|
||||||
rts
|
|
||||||
MiniWait nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
rts
|
|
||||||
|
|
||||||
mx %11
|
mx %11
|
||||||
ColorizeMenu
|
ColorizeMenu
|
||||||
lda #6
|
lda #6
|
||||||
|
@ -111,7 +85,7 @@ ColorizeMenu
|
||||||
rts
|
rts
|
||||||
|
|
||||||
* now stores x immediately
|
* now stores x immediately
|
||||||
WaitScanline ;jmp WaitSCB
|
WaitScanline
|
||||||
sta :val+1
|
sta :val+1
|
||||||
|
|
||||||
:waitloop ldal $e0c02f
|
:waitloop ldal $e0c02f
|
||||||
|
@ -123,55 +97,6 @@ WaitScanline ;jmp WaitSCB
|
||||||
stx $c022
|
stx $c022
|
||||||
rts
|
rts
|
||||||
|
|
||||||
ColorizeMenuOld
|
|
||||||
:loop
|
|
||||||
lda #6
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$A0 ; green
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #7
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$c0 ; green
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #9
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$d0 ; yello
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #10
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$90 ; orange
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
|
|
||||||
lda #11
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$10 ; red
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #12
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$30 ; purple
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #13
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$70 ; bblue
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #15
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$50 ; grey
|
|
||||||
sta $c022
|
|
||||||
|
|
||||||
lda #16
|
|
||||||
jsr WaitSCB
|
|
||||||
lda #$f0 ; white
|
|
||||||
sta $c022
|
|
||||||
rts
|
|
||||||
|
|
||||||
VBlankForce
|
VBlankForce
|
||||||
:vbl ldal $00c019
|
:vbl ldal $00c019
|
||||||
bmi :vbl
|
bmi :vbl
|
||||||
|
@ -314,7 +239,7 @@ Intro lda #$f5 ;gray
|
||||||
:invisible
|
:invisible
|
||||||
jsr VBlankForce
|
jsr VBlankForce
|
||||||
plx
|
plx
|
||||||
|
|
||||||
jsr CheckKey ;
|
jsr CheckKey ;
|
||||||
bcs :pauseover ;SKIP THE REST!
|
bcs :pauseover ;SKIP THE REST!
|
||||||
|
|
||||||
|
@ -466,10 +391,11 @@ MakeUMSound
|
||||||
bne :first
|
bne :first
|
||||||
rts
|
rts
|
||||||
|
|
||||||
Mesg_Testchars asc $1b,'Uu ',"Uu ",$18,'Uu ',"Uu ",00
|
*Mesg_Testchars asc $1b,'Uu ',"Uu ",$18,'Uu ',"Uu ",00
|
||||||
Mesg_Ultimate0 asc $18, "an Apple IIgs",00
|
Mesg_Ultimate0 asc $18, "an Apple IIgs",00
|
||||||
Mesg_Ultimate1 asc $18, "Memory Expansion (RAM) Card Test Utility",00
|
Mesg_Ultimate1 asc $18, "Memory Expansion (RAM) Card Test Utility",00
|
||||||
Mesg_Programmed asc $18, " Programmed by Dagen Brock",00
|
Mesg_Programmed asc $18, " Programmed by Dagen Brock",00
|
||||||
|
|
||||||
Intro_WhiteMixText lda #" "
|
Intro_WhiteMixText lda #" "
|
||||||
sta TXTPAGE1
|
sta TXTPAGE1
|
||||||
|
|
||||||
|
@ -486,16 +412,14 @@ Intro_WhiteMixText lda #" "
|
||||||
dey
|
dey
|
||||||
bne :pageloop
|
bne :pageloop
|
||||||
rts
|
rts
|
||||||
* To allow us to uncompress to 80col text before turning on DLR (I hope)
|
|
||||||
|
|
||||||
|
* To allow us to uncompress to 80col text before turning on DLR (I hope)
|
||||||
PrepDLR80Col
|
PrepDLR80Col
|
||||||
lda CLRAN3 ;enables DLR
|
lda CLRAN3 ;enables DLR
|
||||||
sta SET80VID
|
sta SET80VID
|
||||||
sta C80STOREON ; enable aux/page1,2 mapping
|
sta C80STOREON ; enable aux/page1,2 mapping
|
||||||
|
|
||||||
LDA #$A0 ;USE A BLANK SPACE TO
|
LDA #$A0 ;USE A BLANK SPACE TO
|
||||||
JSR $C300 ;TURN ON THE VIDEO FIRMWARE
|
JSR $C300 ;TURN ON THE VIDEO FIRMWARE
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
DL_SetDLRMode
|
DL_SetDLRMode
|
||||||
|
@ -506,6 +430,7 @@ DL_SetDLRMode
|
||||||
sta C80STOREON ; enable aux/page1,2 mapping
|
sta C80STOREON ; enable aux/page1,2 mapping
|
||||||
sta MIXCLR ;make sure graphics-only mode
|
sta MIXCLR ;make sure graphics-only mode
|
||||||
rts
|
rts
|
||||||
|
|
||||||
DrawUMLogo
|
DrawUMLogo
|
||||||
lda #<UMLOGOLOW_MAINRLE
|
lda #<UMLOGOLOW_MAINRLE
|
||||||
sta $2
|
sta $2
|
||||||
|
@ -521,6 +446,7 @@ DrawUMLogo
|
||||||
sta TXTPAGE2
|
sta TXTPAGE2
|
||||||
jsr DKUnpackRLEToLoRes
|
jsr DKUnpackRLEToLoRes
|
||||||
rts
|
rts
|
||||||
|
|
||||||
DrawMMTLogo
|
DrawMMTLogo
|
||||||
lda #<MMT_MAINRLE
|
lda #<MMT_MAINRLE
|
||||||
sta $2
|
sta $2
|
||||||
|
|
|
@ -1590,7 +1590,7 @@ EndBank db #$1F
|
||||||
CurBank db #0
|
CurBank db #0
|
||||||
StartAddr dw #$0000
|
StartAddr dw #$0000
|
||||||
EndAddr dw #$FFFF
|
EndAddr dw #$FFFF
|
||||||
HexPattern dw #$0000
|
HexPattern dw #$CDAB
|
||||||
|
|
||||||
TestTwoPass 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
|
||||||
|
|
Loading…
Reference in New Issue