5X: fix accelerator menu bugs after initial HW test

rom5x/B1_D6CE_rom5x_misc.s

@@ -78,7 +78,7 @@ msg1 = *
 	.byte $07,$06,"4 RAM Card Diags"
 	.byte $07,$86,"5 Boot 3.5/SmartPort"
 	.byte $04,$2e,"6 Boot 5.25"
-;	.byte $04,$ae,"7 Accelerator"
+	.byte $04,$ae,"7 Accelerator"
 	.byte $07,$5f,"By M.G."
 msg2:	.byte $07,$db,"ROM 5X 02/10/17"
 	.byte $05,$ae,$00		; cursor pos in menu

rom5x/B1_DB63_reset5x.s

@@ -31,7 +31,11 @@ ckkey1:	cmp #$b2		; "2"
 	bne ckkey2
 doconf:	jsr conf5x
 	bne menu		; go back to menu4x
-ckkey2:	sec
+ckkey2:	cmp #$b7		; "7"
+	bne ckkey3
+	jsr $fd02		; accelerator menu
+	bra menu
+ckkey3:	sec
 	sbc #$b0		; ascii->number
 	bmi menu		; < 0 not valid
 	cmp #$07		; we will use 7 for accelerator later

rom5x/B1_FB3C_rom5x_dispatch.s

@@ -15,7 +15,8 @@ chk3:	cmp #$40		; beep
 	bne dowait
 ; "classic air raid beep"
 ; inspired by http://quinndunki.com/blondihacks/?p=2471
-	jsr $fcb5		; (new) WAIT for .1 sec delay
+	; jsr $fcb5		; (new) WAIT for .1 sec delay
+	jsr owait
 	ldy #$c0
 obell2:	lda #$0c
 	jsr owait		; old wait for correct sound

rom5x/B1_FD00_accel5x.s

@@ -19,6 +19,7 @@ TESTBLD = 0                   ; set to 1 to enable test code that runs in random
                               ; MIG RAM.
 XTRACMD = 0                   ; set to 1 to enable extra accelerator speed commands
 ACCMENU = 1                   ; set to 1 to enable accelerator menu
+ADEBUG  = 0                   ; turn on debugging (copies registers to $300 whenever they are set)
 
         .psc02
 .if TESTBLD
@@ -91,7 +92,9 @@ SWRTS2  = $C784
         .org $FD00
 .endif
 .proc   ACCEL
-        php
+        bra   accel1
+        jmp   AMENU
+accel1: php
         sei
         phy
         phx
@@ -340,15 +343,19 @@ exinit: rts
 ;        plp
         rts
 .endproc ; ASETR1
+; set accelerator registers from saved values in MIG
 .proc   ASETR1
         ldy   ACWH
-        jsr   ACOND
+        jsr   ACOND           ; conditionally enable accelerator
         tya
-        and   #$08
+        and   #$08            ; is it disabled?
-        beq   setdn
+        bne   setdn           ; if so, don't change other registers
-        ldx   #$03
+        ldx   #$03            ; otherwise set all registers from MIG
 @loop:  lda   ZIP5CSV,x
         sta   ZIP5C,x
+.if ::ADEBUG
+        sta   $300,x          ; DEBUG
+.endif
         dex
         bpl   @loop
 setdn:  rts
@@ -397,10 +404,11 @@ IREGV:  .byte %01100111     ; Initial $C05C - slots & speaker: b7-b1 = slot spee
 ; Speed: 4.00         Pdl Dly: On
 ;
 .proc   AMENU
-        ; do this in case someone else calls us
+        ; do this in case someone else calls us outside of AINIT
         bit   MIGPAG0
         bit   MIGPAGI
         bit   MIGPAGI
+        ; save ZP locs we are using
         lda   COUNTER
         pha
         lda   UBFPTRH
@@ -441,7 +449,9 @@ dspd:   lda   ZIP5DSV       ; Speed in 5D register
         ; fall through will say 0.00 MHz
 dspd1:  tya
         stx   COUNTER       ; which speed option is selected
+.if ::TESTBLD
         stx   $0e1f         ; DEBUG
+.endif
         and   #$03          ; MHz value
         ora   #$b0          ; to digit
         sta   $072b         ; ones
@@ -512,12 +522,16 @@ ckP:    cmp   #$d0          ; 'P'
         eor   #$40
         sta   ACWH
 tomenu: jmp   amenu1
+; restore saved values and set accelerator
 exit:   pla
         sta   UBFPTRL
         pla
         sta   UBFPTRH
         pla
         sta   COUNTER
+        jsr   AUNLK
+        jsr   ASETR1
+        jsr   ALOCK
         jmp   dclear
 disp:   jsr   dclear
         inx

rom5x/iic+.defs

@@ -1,5 +1,5 @@
 ; options
-newbeep = 1		; 1 = use IIc+ beep
+newbeep = 0		; 1 = use IIc+ beep
 
 ; hardware
 ;set80col = $c001