I650/sw/soap_and_run.ini

; set console -n log=log.txt 
; set debug -n debug.txt
; set debug stdout
; set cpu debug=cmd;data;detail


; params: %1 source card deck to assemble with soap
;         %2 start address to run program (If empty, program not run)
;         %3 input card deck (if empty, do not attach input card

set cpu 2k

; Load SOAP deck into core (1 word per card format), but does not execute it

att cdr1 -q soapII.dck

echo *** 
echo *** load soap deck into drum
echo *** 

d csw 7019519999
d ar 8000
go

; now put source cards in reader and start SOAP assembler

att cdr1 %1
set cdr1 wiring=soap

att cdp1 -n -q deck_out.dck
set cdp1 echo, print, wiring=soap
att cdp0 -n -q print.txt

echo *** 
echo *** run soap 
echo *** 

d ar 1000
go

if "%2" == "" goto end

; load assembled deck into core

det cdp1
set cdr1 wiring=8WORD
att cdr1 deck_out.dck

att cdp1 -n -q deck_out_run.dck
set cdp1 echo, print, wiring=8WORD


echo *** 
echo *** load assembled program
echo *** 

d csw 7019519999
d ar 8000
go

; attach input deck
if "%3" == "" goto run

att cdr1 %3

; now execute the loaded deck
:run

echo *** 
echo *** run assembled program
echo *** 

d ar %2
go

:end