08027162ca
- Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test
78 lines
1.6 KiB
INI
78 lines
1.6 KiB
INI
|
|
; set console -n log=log.txt
|
|
; set debug -n debug.txt
|
|
; set debug stdout
|
|
; set cpu debug=cmd;data;detail
|
|
|
|
; params: %1 control cards for regional program
|
|
; %2 regional assembly source card deck
|
|
; %3 start address to run program (If empty, program not run)
|
|
; %4 input card deck (if empty, do not attach input card)
|
|
|
|
set cpu 2k
|
|
|
|
; prepare input deck
|
|
|
|
carddeck -q join regional/load_id_card.dck regional/ra.dck %1 regional/ra_starter_card.dck %2 AS deck_in.dck
|
|
|
|
; Now put input deck in reader
|
|
|
|
att cdr1 -q deck_in.dck
|
|
set cdr1 wiring=ra
|
|
|
|
att cdp1 -n -q deck_out.dck
|
|
set cdp1 echo, print, wiring=ra
|
|
att cdp0 -n -q print.txt
|
|
|
|
echo ***
|
|
echo *** Regional Assembler source deck
|
|
echo ***
|
|
|
|
; uncomment this debug to get trace of how source deck is assembled
|
|
; set debug -n debug.txt
|
|
|
|
d csw 70 1901 0000
|
|
d ar 8000
|
|
go
|
|
|
|
; this generates deck_out.dck as program in five-field card format
|
|
|
|
if "%3" == "" goto end
|
|
|
|
; Load five-field card deck into drum
|
|
|
|
carddeck -q join regional/load_id_card.dck deck_out.dck AS deck_in.dck
|
|
|
|
; Now put input deck in reader
|
|
|
|
att cdr1 -q deck_in.dck
|
|
set cdr1 wiring=ra
|
|
|
|
att cdp1 -n -q deck_out.dck
|
|
set cdp1 echo, print, wiring=ra
|
|
att cdp0 -n -q print.txt
|
|
|
|
d csw 70 1901 0000
|
|
d ar 8000
|
|
go
|
|
|
|
echo ***
|
|
echo *** Run Assembled program
|
|
echo ***
|
|
|
|
; attach input deck
|
|
if "%4" == "" goto run1
|
|
|
|
att cdr1 -q %4
|
|
|
|
; Now execute the loaded deck
|
|
:run1
|
|
|
|
; uncomment this debug to get trace of how assembled source deck is executed
|
|
; set debug -n debug.txt
|
|
|
|
d ar %3
|
|
go
|
|
|
|
:end
|
|
|