From f235601aebe3e503ca11a774320b9091639d0899 Mon Sep 17 00:00:00 2001
From: Olaf Seibert <rhialto@falu.nl>
Date: Sun, 16 Jun 2024 15:59:36 +0200
Subject: [PATCH] I650: adjust carddeck split and join commands

so that they don't use the same file as source and destination.
---
 I650/sw/run_fortransit.ini | 12 +++++++-----
 I650/sw/run_soap4.ini      |  6 ++++--
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/I650/sw/run_fortransit.ini b/I650/sw/run_fortransit.ini
index 512003e01..27752263d 100644
--- a/I650/sw/run_fortransit.ini
+++ b/I650/sw/run_fortransit.ini
@@ -1,5 +1,5 @@
 
-; set console -n log=log.txt 
+; set console -n log=log.txt
 ; set debug -n debug.txt
 ; set debug stdout
 ; set cpu debug=cmd;data;detail
@@ -83,8 +83,8 @@ goto end
 ; separate last card (header card), and put it in the 
 ; top of deck
 
-carddeck -q split -1 cdp1 deck_it.dck deck_it_header.dck
-carddeck -q join  deck_it_header.dck deck_it.dck as deck_it.dck
+carddeck -q split -1 cdp1 deck_it_rest.dck deck_it_header.dck
+carddeck -q join  deck_it_header.dck deck_it_rest.dck as deck_it.dck
 det cdr1
 
 ; load IT compiler but do not execute it
@@ -156,7 +156,8 @@ go
 ; - subroutines in symbolic SOAP format (if any)
 ; - rest of compilation output from phase II
 
-carddeck -q join fortransit/pack_entry_src.txt deck_res.dck fortransit/pack_res2.txt deck_soap.dck as deck_soap.dck 
+carddeck -q join fortransit/pack_entry_src.txt deck_res.dck fortransit/pack_res2.txt deck_soap.dck as deck_soap_tmp.dck
+rename deck_soap_tmp.dck deck_soap.dck
 
 echo *** 
 echo *** Run SOAP assembler
@@ -196,7 +197,8 @@ det cdp1
 ; - package cards 
 ; - assembled program cards from phase III
 
-carddeck -q join fortransit/pack.dck deck_out.dck as deck_out.dck
+carddeck -q join fortransit/pack.dck deck_out.dck as deck_out_tmp.dck
+rename deck_out_tmp.dck deck_out.dck
 
 echo *** 
 echo *** Read Object Program Deck 
diff --git a/I650/sw/run_soap4.ini b/I650/sw/run_soap4.ini
index de456e4cd..9c1c796eb 100644
--- a/I650/sw/run_soap4.ini
+++ b/I650/sw/run_soap4.ini
@@ -58,10 +58,12 @@ d ar 1000
 go
 
 ; separate 5 words per card deck if any generated
-carddeck -q split 5cd cdp1 deck_out.dck deck_out_5cd.dck
+carddeck -q split 5cd cdp1 deck_out_tmp.dck deck_out_5cd.dck
+rename deck_out_tmp.dck deck_out.dck
 
 ; discard availability card generated if any
-carddeck -q split pat deck_out.dck deck_out.dck nul
+carddeck -q split pat deck_out.dck deck_out_tmp.dck nul
+rename deck_out_tmp.dck deck_out.dck
 
 
 if "%2" == "" goto end