github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 07:19:57 +00:00
Code Issues Releases Wiki Activity

Build proc for calling IMTRAN.

Browse Source
This commit is contained in:
Lars Brinkhoff 2025-06-18 11:47:11 +02:00
parent 5692890c70
commit 447d357cd1
2 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
build/build.tcl
View File

@ -248,6 +248,13 @@ proc cwd {directory} {
respond "*" ":cwd $directory\r"
}
proc imtran {target source} {
respond "*" ":imtran\r"
respond "@" "${target}_${source}\r"
respond "@" "\021"
expect ":KILL"
}
set ip [ip_address [lindex $argv 0]]
set gw [ip_address [lindex $argv 1]]

29
build/misc.tcl
View File

@ -1005,10 +1005,7 @@ expect ":KILL"
# SSV 22, Imlac scroll saver
omidas "sysbin;" "imsrc; ssv22"
respond "*" ":imtran\r"
respond "@" "imlac; ssv22 iml_sysbin; ssv22 bin\r"
respond "@" "\021"
expect ":KILL"
imtran "imlac; ssv22 iml" "sysbin; ssv22 bin"
respond "*" ":link imlac; .prgm. normal, imlac; ssv22 iml\r"
# Assemble SSV4.
@ -1018,18 +1015,14 @@ midas "imlac; ts assv4" "assv4"
respond "*" ":imlac;assv4\r"
respond "NUMBER" ">"
expect ":KILL"
respond "*" ":imtran\r"
respond "@" "imlac; ssv4 iml_imlac; ssv4b >\r"
respond "@" "\021"
imtran "imlac; ssv4 iml" "imlac; ssv4b >"
# Maze War
midast "sysbin;" "imsrc; maze" {
respond "with ^C" "MOUSE==1\r\003"
respond "with ^C" "MOUSE==1\r\003"
}
respond "*" ":imtran\r"
respond "@" "imlac; m iml_sysbin; maze bin\r"
respond "@" "\021"
imtran "imlac; m iml" "sysbin; maze bin"
midas "sysbin;" "klh; mazser" {
respond "NPTCL=" "1\r"
@ -1047,29 +1040,21 @@ respond "*" ":kill\r"
midas "imlac;" "imsrc; swar" {
respond "INFINITE FUEL AND BULLETS VERSION?" "N\r"
}
respond "*" ":imtran\r"
respond "@" "imlac; swar iml_imlac; swar bin\r"
respond "@" "\021"
imtran "imlac; swar iml" "imlac; swar bin"
# PONG
midas "imlac;" "imsrc; pong"
respond "*" ":imtran\r"
respond "@" "imlac; pong iml_imlac; pong bin\r"
respond "@" "\021"
imtran "imlac; pong iml" "imlac; pong bin"
# CRASH, PDS-4 version
midas "imlac;" "imsrc; crash"
respond "*" ":imtran\r"
respond "@" "imlac; crash4 iml_imlac; crash bin\r"
respond "@" "\021"
imtran "imlac; crash4 iml" "imlac; crash bin"
# PDS-1 version
midast "imlac;" "imsrc; crash" {
respond "with ^C" "PDS4==0\r\003"
respond "with ^C" "PDS4==0\r\003"
}
respond "*" ":imtran\r"
respond "@" "imlac; crash iml_imlac; crash bin\r"
respond "@" "\021"
imtran "imlac; crash iml" "imlac; crash bin"
# The old CLIB has a UFA instruction which doesn't work on a KS10.
# Patch out the call to FIXIFY.