From: Alan Cox <alan@linux.intel.com>
Date: Sat, 2 Jun 2018 22:19:30 +0000 (+0100)
Subject: trs80m1: tricks clean up
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7b37cf3e78f406877a09cac606a60634807c9b03;p=FUZIX.git

trs80m1: tricks clean up
---

diff --git a/Kernel/platform-trs80m1/tricks.s b/Kernel/platform-trs80m1/tricks.s
index f3fbc877..68f01c50 100644
--- a/Kernel/platform-trs80m1/tricks.s
+++ b/Kernel/platform-trs80m1/tricks.s
@@ -20,9 +20,6 @@
 ;	Interrupts are off so I guess the stack pointer is spare (Watch
 ;	out for NMI if we do model 3 this way!)
 ;
-;	NOTE: comments are out of date it's actually now doing 16's for
-;	more. I'll fix these ASAP
-;
 bankfork:
 	ld (cpatch0 + 1),a	; patch parent into loop
 	ld a,c
@@ -32,15 +29,13 @@ bankfork:
 	;
 	call fork_mapsave
 	ld (spcache),sp
-	; 32256 bytes to copy. We actually overcopy by 512 bytes right
-	; now which is harmless in this case (and may even be useful once
-	; the core bank code is tweaked a bit).
+	; 32256 bytes to copy.
 	; Stack pointer at the target buffer
 	ld sp,#PROGBASE	; Base of memory to fork
 	; 8 outer loops
 	ld a,#8
 	ld (copyct),a
-	xor a		; Count 256 * 16 byte copies
+	ld a,#252	; Count 252 * 16 byte copies
 copyloop:
 	ex af,af'	; Save A as we need an A for ioports
 cpatch0:
@@ -70,7 +65,7 @@ cpatch1:
 	push bc
 	ex af,af'	; Get counter back
 	dec a
-	jr z, setdone	; 256 loops ?
+	jr z, setdone	; 252 loops ?
 copy_cont:
 sp_patch:
 	ld sp,#0
@@ -83,7 +78,7 @@ setdone:
 	ld hl,#copyct
 	dec (hl)	
 	jr z, copy_over
-	xor a
+	ld a,#252
 	jr copy_cont
 copy_over:
 	;