From ca9c087736800af989342bf45140fce5b4037eab Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 1 Mar 2020 15:24:28 -0500
Subject: [PATCH] mist: can walk forward

---
 mist/mist.s | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/mist/mist.s b/mist/mist.s
index ac1785cd..68adb3a0 100644
--- a/mist/mist.s
+++ b/mist/mist.s
@@ -450,6 +450,19 @@ change_location:
 	; go forward
 	;===========================
 go_forward:
+
+	lda	DIRECTION
+	clc
+	adc	#LOCATION_NORTH_EXIT
+	tay
+	lda	(LOCATION_STRUCT_L),Y
+
+	cmp	#$ff
+	beq	cant_go_forward
+
+	sta	LOCATION
+	jsr	change_location
+cant_go_forward:
 	rts
 
 	;==========================