changeset 45:c6f72faedb9a tip

Add RESET and EXIT commands to pause mode
author William Astle <lost@l-w.ca>
date Sat, 21 Apr 2018 12:58:49 -0600
parents 2e83348f665a
children
files dod.s
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/dod.s	Fri Dec 30 13:36:43 2016 -0700
+++ b/dod.s	Sat Apr 21 12:58:49 2018 -0600
@@ -5502,14 +5502,20 @@
 		jsr [a,x]			; go handle command
 		jmp LD2A7			; go handle new command
 ; Pause mode command list
-kwlist_pcmd	fcb 2
+kwlist_pcmd	fcb 4
 		fcb 0				; RESUME
 		fcn 'RESUME'
 		fcb 0				; CREDITS
 		fcn 'CREDITS'
+		fcb 0
+		fcn 'RESET'
+		fcb 0
+		fcn 'EXIT'
 ; Pause mode command jump table
 pausecmd_jump	fdb pcmd_resume			; RESUME command
 		fdb pcmd_credits
+		fdb pcmd_reset
+		fdb pcmd_exit
 ; Resume message
 resumemess	fcn 'Use the RESUME command to\rreturn to your game.\r\r'
 ; The credits display12345678901234567890123456789012
@@ -5527,6 +5533,9 @@
 		clr disablesched		; re-enable scheduler
 		clr pausemode			; turn off pause mode
 		rts
+pcmd_reset	jmp START			; restart demo
+pcmd_exit	clr >RSTFLG			; do cold start
+		jmp [0xfffe]
 ; This displays the credits
 pcmd_credits	ldx #credits			; point to credits text
 ; This renders text to the dungeon area