From b12ac2c302deb6c6e2ae28f6db5f9abd17518935 Mon Sep 17 00:00:00 2001
From: Stefan Drissen <stefan.drissen@gmail.com>
Date: Sun, 7 Nov 2021 23:17:51 +0100
Subject: [PATCH] Loader: change record stack imbalance

Each change of record grew stack by two bytes.
Fixes #10.
---
 src/loader.s | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/loader.s b/src/loader.s
index 7ccc46a..abc1478 100644
--- a/src/loader.s
+++ b/src/loader.s
@@ -1442,7 +1442,7 @@ normal.mess:
 
     push bc
     call @scan.keyboard.left.right.shifted
-    call nz,@record.up.down
+    jr nz,@record.up.down
     pop bc
 
 @not.drive_2:
@@ -1489,7 +1489,7 @@ normal.mess:
 @change.record:
 
     call bdos.select.record.hl
-    pop af                      ; toss return address
+    pop bc                      ; toss bc
     ld c,1
     jp select.key