diff --git a/MMT140.po b/MMT140.po index 3010200..6ce2d29 100644 Binary files a/MMT140.po and b/MMT140.po differ diff --git a/MMT800.2mg b/MMT800.2mg index 5a54988..143b20f 100644 Binary files a/MMT800.2mg and b/MMT800.2mg differ diff --git a/MMT800.po b/MMT800.po index e8e916a..813e36a 100644 Binary files a/MMT800.po and b/MMT800.po differ diff --git a/src/misc.s b/src/misc.s index 57047e2..f4cb79d 100644 --- a/src/misc.s +++ b/src/misc.s @@ -1,15 +1,6 @@ MenuCheckKeyColor jsr ColorizeMenu -* lda #55 -* jsr WaitSCB -* lda #80 -* jsr WaitSCB -* lda #55 -* jsr WaitSCB -* lda #80 -* jsr WaitSCB - lda _ticker bne :skipDraw ; we want to avoid updating when nothing is happening... "Save the Cycles!!" ;) jsr Menu_HighlightSelected @@ -41,23 +32,6 @@ ToLower cmp #"Z" :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 ColorizeMenu lda #6 @@ -111,7 +85,7 @@ ColorizeMenu rts * now stores x immediately -WaitScanline ;jmp WaitSCB +WaitScanline sta :val+1 :waitloop ldal $e0c02f @@ -123,55 +97,6 @@ WaitScanline ;jmp WaitSCB stx $c022 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 :vbl ldal $00c019 bmi :vbl @@ -314,7 +239,7 @@ Intro lda #$f5 ;gray :invisible jsr VBlankForce plx - + jsr CheckKey ; bcs :pauseover ;SKIP THE REST! @@ -466,10 +391,11 @@ MakeUMSound bne :first 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_Ultimate1 asc $18, "Memory Expansion (RAM) Card Test Utility",00 Mesg_Programmed asc $18, " Programmed by Dagen Brock",00 + Intro_WhiteMixText lda #" " sta TXTPAGE1 @@ -486,16 +412,14 @@ Intro_WhiteMixText lda #" " dey bne :pageloop 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 lda CLRAN3 ;enables DLR sta SET80VID sta C80STOREON ; enable aux/page1,2 mapping - LDA #$A0 ;USE A BLANK SPACE TO JSR $C300 ;TURN ON THE VIDEO FIRMWARE - rts DL_SetDLRMode @@ -506,6 +430,7 @@ DL_SetDLRMode sta C80STOREON ; enable aux/page1,2 mapping sta MIXCLR ;make sure graphics-only mode rts + DrawUMLogo lda #