mirror of
https://github.com/PDP-10/its.git
synced 2026-01-18 01:02:15 +00:00
078fc0a18a
KA10 specific programs: DECtape tools, programs related to the Rubin 10-11 interface (including the Knight TV), programs using the 340 display, and programs using the PDP-6. KL10 specific programs: microcode, frontend programs, and LSPEED. KS10 specific programs: microcode, frontend programs, MTBOOT, and TENTH.
37 lines
999 B
Tcl
37 lines
999 B
Tcl
log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
|
|
|
|
# Programs particular to the KS10 processor.
|
|
|
|
# KNS10, KS10 console
|
|
respond "*" ":cwd kshack\r"
|
|
respond "*" ":cross\r"
|
|
respond "*" "FOR21.DAT/PTP,KNS10.PNT/M80/OCT/CRF/EQ:PASS2:SCECOD=CONDEF.M80,HCORE.M80,CMDS.M80,SUBRTN.M80,DR.M80,MSG.M80,STORE.M80\r"
|
|
expect "Core used"
|
|
respond "*" "\003"
|
|
type ":kill\r"
|
|
|
|
# KS10 microcode assembler
|
|
respond "*" ":midas kshack;ts micro_micro\r"
|
|
expect ":KILL"
|
|
|
|
# KS10 microcode.
|
|
# It doesn't seem to work very well when purified.
|
|
respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inout,itspag,pagef\r"
|
|
expect ":KILL"
|
|
respond "*" ":copy kshack; mcr ram, .; ram ram\r"
|
|
|
|
# Update microcode on frontend filesystem.
|
|
type ":ksfedr\r"
|
|
respond "!" "write\r"
|
|
respond "Are you sure" "yes\r"
|
|
respond "Which file" "ram\r"
|
|
expect "Input from"
|
|
sleep 1
|
|
respond ":" ".;ram ram\r"
|
|
respond "!" "quit\r"
|
|
expect ":KILL"
|
|
|
|
# TENTH, toy Forth for KS10.
|
|
respond "*" ":midas .; @ tenth_aap; tenth\r"
|
|
expect ":KILL"
|