4cade/src/ui.cheats.a

;license:MIT
;(c) 2018-9 by 4am
;
; cheat-related UI functions
;
; Public functions:
; - ToggleCheat
;

ToggleCheat
; in:    none
; out:   all registers clobbered
;        X = 0, Z = 1 (guaranteed by pref_set)
         lda   gCheatsEnabled
         eor   #$80
         sta   gCheatsEnabled
         beq   +
         lda   #$B1
         +HIDE_NEXT_2_BYTES
+        lda   #$B0
         sta   @val
         jsr   pref_set
         !word kCheat
         !word @pref
         rts
@pref    !byte 1
@val     !byte $FD
. 2019-09-16 16:57:53 +00:00			`;license:MIT`
			`;(c) 2018-9 by 4am`
			`;`
			`; cheat-related UI functions`
			`;`
			`; Public functions:`
Ctrl-C in search or browse mode to toggle cheats, persist in prefs file, honor pref on startup 2019-09-16 17:36:48 +00:00			`; - ToggleCheat`
. 2019-09-16 16:57:53 +00:00			`;`

Ctrl-C in search or browse mode to toggle cheats, persist in prefs file, honor pref on startup 2019-09-16 17:36:48 +00:00			`ToggleCheat`
			`; in: none`
			`; out: all registers clobbered`
			`; X = 0, Z = 1 (guaranteed by pref_set)`
			`lda gCheatsEnabled`
			`eor #$80`
			`sta gCheatsEnabled`
			`beq +`
			`lda #$B1`
			`+HIDE_NEXT_2_BYTES`
			`+ lda #$B0`
			`sta @val`
			`jsr pref_set`
			`!word kCheat`
			`!word @pref`
			`rts`
			`@pref !byte 1`
			`@val !byte $FD`