78 lines
1.2 KiB
INI
78 lines
1.2 KiB
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
|
|
|