From 37e82b0f100472a1e1307bb1de34407a589e99b3 Mon Sep 17 00:00:00 2001
From: MateoConLechuga <matthewwaltzis@gmail.com>
Date: Sun, 19 Aug 2018 20:58:02 -0600
Subject: [PATCH] disable apd

---
 src/execute.asm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/execute.asm b/src/execute.asm
index 4a7f58e..0a319e1 100644
--- a/src/execute.asm
+++ b/src/execute.asm
@@ -105,6 +105,7 @@ execute_program:
 execute_assembly_program:
 	ld	hl,return_asm
 	push	hl
+	call	_DisableAPD
 	set	appAutoScroll,(iy + appflags)		; allow scrolling
 	jp	userMem
 
@@ -123,8 +124,7 @@ execute_basic_program:
 	call	_RunIndicOn
 	bit	setting_basic_indicator,(iy + settings_flag)
 	call	nz,_RunIndicOff
-	call	_APDSetup
-	call	_EnableAPD
+	call	_DisableAPD
 	call	hook_home.save
 	call	hook_home.set
 	bit	prgm_archived,(iy + prgm_flag)
@@ -164,5 +164,6 @@ execute_basic_program:
 	push	hl
 	sub	a,a
 	ld	(kbdGetKy),a
+	call	_DisableAPD
 	ei
 	jp	_ParseInp				; run program