From 0fd16a0bb6d5b642da1f9a46da1767fba93cb93c Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 21 Jul 2019 19:32:24 -0400
Subject: [PATCH] ed: fix boken 'a' and 'd' cmds

---
 apps/ed/main.asm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/apps/ed/main.asm b/apps/ed/main.asm
index 5150e20..17a5691 100644
--- a/apps/ed/main.asm
+++ b/apps/ed/main.asm
@@ -66,7 +66,7 @@ edMain:
 	; Now, process line.
 	call	printcrlf
 	call	cmdParse
-	jr	nz, .error
+	jp	nz, .error
 	ld	a, (CMD_TYPE)
 	cp	'q'
 	jr	z, .doQ
@@ -84,6 +84,7 @@ edMain:
 	call	cpHLDE
 	pop	hl		; <-- lvl 1
 	jr	z, .error
+	ld	a, (CMD_TYPE)
 	cp	'd'
 	jr	z, .doD
 	cp	'a'