do not rage against the machine

This commit is contained in:
4am 2020-07-29 12:15:22 -04:00
parent 7d56cd180a
commit 2c3aa275a1
4 changed files with 19 additions and 18 deletions

View File

@ -53,6 +53,7 @@ DHIRESOFF = $C05F ; double hi-res off switch
; (prefixed because so much of the program runs from LC RAM, so don't call
; these without thinking about memory banks first)
ROM_TEXT2COPY =$F962 ; turn on alternate display mode on IIgs
ROM_REBOOT = $FAA6
ROM_TEXT = $FB2F
ROM_MACHINEID =$FBB3
ROM_HOME = $FC58

View File

@ -35,7 +35,7 @@ kBrowseCredits = 7
kBrowseCheat = 8
kSoftBell = 9 ; must match kInputError
kBrowseJoystick = 10
kBrowseRageQuit = 11
kBrowseQuit = 11
ldy #kNumBrowseKeys
- dey
@ -131,7 +131,7 @@ BrowseDispatchTableLo
!byte <OnBrowseCheat
!byte <SoftBell
!byte <Joystick
!byte <OnRageQuit
!byte <OnQuit
BrowseDispatchTableHi
!byte >OnBrowseSearch
!byte >OnBrowsePrevious
@ -144,7 +144,7 @@ BrowseDispatchTableHi
!byte >OnBrowseCheat
!byte >SoftBell
!byte >Joystick
!byte >OnRageQuit
!byte >OnQuit
kNumBrowseKeys = 14
; number of entries in next 2 tables (each)
@ -162,7 +162,7 @@ BrowseKeys
!byte $8B ; up arrow = previous
!byte $88 ; left arrow = previous
!byte $90 ; Ctrl-P = launch joystick calibration program
!byte $92 ; Ctrl-R = reboot
!byte $91 ; Ctrl-Q = quit
BrowseKeyDispatch
!byte kBrowseCheat
!byte kBrowseCredits
@ -177,7 +177,7 @@ BrowseKeyDispatch
!byte kBrowsePrevious
!byte kBrowsePrevious
!byte kBrowseJoystick
!byte kBrowseRageQuit
!byte kBrowseQuit
GameCount
!word 0

View File

@ -1,23 +1,23 @@
;license:MIT
;(c) 2020 by qkumba
;(c) 2020 by qkumba/4am
;
; reboot system
;
; Public functions
; - OnRageQuit
; - OnQuit
;
;------------------------------------------------------------------------------
; OnRageQuit
; OnQuit
; reboot system
;
; in: none
; out: nothing
;------------------------------------------------------------------------------
OnRageQuit
OnQuit
jsr SwitchToBank2
jsr EnableAcceleratorAndSwitchToBank1
inc $101 ; bank in ROM
lda #$A6
sta $104
lda #$FA
sta $105 ; JMP $FAA6
+LDADDR ROM_REBOOT
+ST16 $104
jmp $100

View File

@ -20,7 +20,7 @@ kInputCredits = 7
kInputCheat = 8
kInputError = 9
kInputJoystick = 10
kInputRageQuit = 11
kInputQuit = 11
InputDispatchTableLo
!byte <OnSearch
@ -34,7 +34,7 @@ InputDispatchTableLo
!byte <OnCheat
!byte <OnError
!byte <Joystick
!byte <OnRageQuit
!byte <OnQuit
InputDispatchTableHi
!byte >OnSearch
!byte >OnClear
@ -47,7 +47,7 @@ InputDispatchTableHi
!byte >OnCheat
!byte >OnError
!byte >Joystick
!byte >OnRageQuit
!byte >OnQuit
kNumInputKeys = 12
; number of entries in next 2 tables (each)
@ -65,7 +65,7 @@ InputKeys
!byte $9B ; Esc = clear input buffer (if any)
; or switch to mega attract mode
!byte $90 ; Ctrl-P = launch joystick calibration program
!byte $92 ; Ctrl-R = reboot
!byte $91 ; Ctrl-Q = quit
InputKeyDispatch
!byte kInputCheat
!byte kInputCredits
@ -78,7 +78,7 @@ InputKeyDispatch
!byte kInputLaunch
!byte kInputClear
!byte kInputJoystick
!byte kInputRageQuit
!byte kInputQuit
.noKeyMatch
jsr IsSearchKey