Skip to content

Commit

Permalink
I650: adjust carddeck split and join commands
Browse files Browse the repository at this point in the history
so that they don't use the same file as source and destination.
  • Loading branch information
Rhialto committed Jun 16, 2024
1 parent c6b9402 commit f235601
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 7 deletions.
12 changes: 7 additions & 5 deletions I650/sw/run_fortransit.ini
Original file line number Diff line number Diff line change
@@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down
6 changes: 4 additions & 2 deletions I650/sw/run_soap4.ini
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit f235601

Please sign in to comment.