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 ; (prefixed because so much of the program runs from LC RAM, so don't call
; these without thinking about memory banks first) ; these without thinking about memory banks first)
ROM_TEXT2COPY =$F962 ; turn on alternate display mode on IIgs ROM_TEXT2COPY =$F962 ; turn on alternate display mode on IIgs
ROM_REBOOT = $FAA6
ROM_TEXT = $FB2F ROM_TEXT = $FB2F
ROM_MACHINEID =$FBB3 ROM_MACHINEID =$FBB3
ROM_HOME = $FC58 ROM_HOME = $FC58

View File

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

View File

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

View File

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