github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Add a "macro10" TCP procedure.

Browse Source 
And use it in the build scripts to invoke MACRO-10.
This commit is contained in:
Lars Brinkhoff 2025-02-08 21:08:08 +01:00
parent 80887208ce
commit bcf2657046
3 changed files with 19 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
build/build.tcl
View File

@ -173,6 +173,14 @@ proc arpanet {rfc file} {
} }
} }
proc macro10 {target sources} {
respond "*" ":macro\r"
respond "*" "$target=$sources\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
}
set ip [ip_address [lindex $argv 0]] set ip [ip_address [lindex $argv 0]]
set gw [ip_address [lindex $argv 1]] set gw [ip_address [lindex $argv 1]]

6
build/kl10/processor.tcl
View File

@ -46,11 +46,7 @@ copy_to_klfe "ucode;u1 ram"
# KLDDT # KLDDT
respond "*" ":cwd kldcp\r" respond "*" ":cwd kldcp\r"
respond "*" ":macro\r" macro10 "klddt" "klddt"
respond "*" "klddt=klddt\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:link\r" respond "*" ":dec sys:link\r"
respond "*" "klddt/go\r" respond "*" "klddt/go\r"
respond "EXIT" ":start 45\r" respond "EXIT" ":start 45\r"

55
build/misc.tcl
View File

@ -631,11 +631,7 @@ respond "*" ":pdump sys2; ts macro\r"
respond "*" ":kill\r" respond "*" ":kill\r"
respond "*" ":delete decsys; macro shr\r" respond "*" ":delete decsys; macro shr\r"
# Assemble with itself, now no errors # Assemble with itself, now no errors
respond "*" ":macro\r" macro10 "macro" "macro"
respond "*" "macro=macro\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:link\r" respond "*" ":dec sys:link\r"
respond "*" "macro/go\r" respond "*" "macro/go\r"
expect "%LNKNED" expect "%LNKNED"
@ -647,35 +643,15 @@ respond "*" ":kill\r"
# MACSYM and MONSYM universal files. # MACSYM and MONSYM universal files.
respond "*" ":cwd decsys\r" respond "*" ":cwd decsys\r"
respond "*" ":macro\r" macro10 "macsym.unv" "macsym.mac"
respond "*" "macsym.unv=macsym.mac\r" macro10 "monsym.unv" "monsym.mac"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":macro\r"
respond "*" "monsym.unv=monsym.mac\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
# MACTEN and UUOSYM universal files. # MACTEN and UUOSYM universal files.
respond "*" ":macro\r" macro10 "macten.unv" "macten.mac"
respond "*" "macten.unv=macten.mac\r" macro10 "uuosym.unv" "uuosym.mac"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":macro\r"
respond "*" "uuosym.unv=uuosym.mac\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
# CROSS, assembler # CROSS, assembler
respond "*" ":macro\r" macro10 "cross" "cross"
respond "*" "cross=cross\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:loader\r" respond "*" ":dec sys:loader\r"
respond "*" "cross/g\r" respond "*" "cross/g\r"
respond "*" ":start 45\r" respond "*" ":start 45\r"
@ -1648,19 +1624,12 @@ expect ":KILL"
# ITS universal file. # ITS universal file.
respond "*" ":cwd decsys\r" respond "*" ":cwd decsys\r"
respond "*" ":macro\r" macro10 "sits.unv" "sits.mac"
respond "*" "sits.unv=sits.mac\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
# Datacomputer file transfer. # Datacomputer file transfer.
respond "*" ":cwd mrc\r" respond "*" ":cwd mrc\r"
respond "*" ":macro\r" macro10 "dftp" "dftp"
respond "*" "dftp=dftp\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:link\r" respond "*" ":dec sys:link\r"
respond "*" "dftp/go\r" respond "*" "dftp/go\r"
expect "EXIT" expect "EXIT"
@ -1751,11 +1720,7 @@ expect ":KILL"
# BBN Logo # BBN Logo
respond "*" ":cwd bbn\r" respond "*" ":cwd bbn\r"
respond "*" ":macro\r" macro10 "logo" "logo"
respond "*" "logo=logo\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":dec sys:loader\r" respond "*" ":dec sys:loader\r"
respond "*" "logo/g\r" respond "*" "logo/g\r"
respond "EXIT" ":start 45\r" respond "EXIT" ":start 45\r"