rom4x/rom5x/B1_DB63_reset5x.s
2017-02-12 11:53:47 -08:00

43 lines
985 B
ArmAsm

#include "iic+.defs"
.text
* = reset5x ; max 157 bytes
stz power2 + rx_mslot ; action = normal reset
lda #>(rst5xrtn-1) ; common case
pha
lda #<(rst5xrtn-1)
pha ; note that this stays on stack
asl butn1 ; closed apple
bcs ckdiag
exitrst jmp swrts2
; check to see if both apples are down
ckdiag bit butn0 ; open apple
bmi exitrst ; return to RESET.X
; present menu because only closed apple is down
menu jsr menu5x ; display menu
jsr gkey5x
cmp #$b0 ; "0"
bne ckkey1
ldx #$ff ; reset stack
txs
lda #>(monitor-1) ; monitor entry on stack
pha
lda #<(monitor-1)
pha
jmp swrts2 ; rts to enter monitor
ckkey1 cmp #$b2 ; "2"
beq doconf
cmp #$b4 ; "4"
bne ckkey2
doconf jsr conf5x
bne menu ; go back to menu4x
ckkey2 sec
sbc #$b0 ; ascii->number
bmi menu ; < 0 not valid
cmp #$08 ; we will use 7 for accelerator later
bpl menu ; > 7 not valid
sta power2 + rx_mslot ; for boot5x
stz softev + 1 ; deinit coldstart
stz pwerdup ; ditto
bra exitrst