From 30d970341a952e9f68f4e0d44128a24882b45358 Mon Sep 17 00:00:00 2001
From: Klaus2m5 <K@2m5.de>
Date: Tue, 24 Nov 2015 20:28:44 +0100
Subject: [PATCH] fixed load/save with error causes a loop in prnum:

---
 vtl02sg.a65 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/vtl02sg.a65 b/vtl02sg.a65
index edeefb0..78997ed 100644
--- a/vtl02sg.a65
+++ b/vtl02sg.a65
@@ -1845,7 +1845,7 @@ skip_bs:
 load:
     lda  #0         ; setup dma control block
     sta  dma_cmd
-    sta  gthan+1    ; return code upper byte = 0
+    sta  arg+1      ; return code upper byte = 0
     stx  dma_dat    ; program #
     lda  #lo(prgm)  ; from
     sta  dma_dat
@@ -1856,7 +1856,7 @@ load:
     lda  #7         ; load eep command
     sta  dma_cmd
     lda  dma_sta    ; get status
-    sta  gthan
+    sta  arg
     cmp  #$17
     bne  load_fail
     lda  dma_dat    ; get end of program address
@@ -1870,7 +1870,7 @@ load:
 save:
     lda  #0         ; setup dma control block
     sta  dma_cmd
-    sta  gthan+1    ; return code upper byte = 0
+    sta  arg+1      ; return code upper byte = 0
     stx  dma_dat    ; program #
     lda  #lo(prgm)  ; from
     sta  dma_dat
@@ -1883,11 +1883,11 @@ save:
     lda  #6         ; save eep command
     sta  dma_cmd
     lda  dma_sta    ; get status
-    sta  gthan
+    sta  arg
     cmp  #$16
     beq  save_OK
 load_fail:
-    ldx  gthan      ; print error number
+    ldx  #arg       ; print error number
     jsr  prnum      
 save_OK:
     jmp  start