github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-05 11:04:02 +00:00
Code Issues Releases Wiki Activity

Assemble MACRO-10 from source.

Browse Source 
MACRO-10 53A(1152) from 19-JUL-1979.
This commit is contained in:
Lars Brinkhoff
2018-09-14 23:17:07 +02:00
parent 5317f17742
commit affb9ac799
2 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
build/misc.tcl
View File

@@ -497,6 +497,36 @@ respond "*" ":midas sys1;ts who%_sysen3;who%\r"
expect ":KILL"
respond "*" ":link sys1;ts %,sys1;ts who%\r"
# MACRO-10
respond "*" ":cwd decsys\r"
respond "*" ":dec sys:macro\r"
respond "*" "macro=macro\r"
respond "*" "\003"
type ":kill\r"
respond "*" ":dec sys:link\r"
respond "*" "macro/go\r"
# Strange error here. Workaround is to retry.
expect "%LNKNED"
respond "*" "macro/go\r"
respond "*" ":start 45\r"
respond "Command" "d"
respond "*" ":pdump sys2; ts macro\r"
respond "*" ":kill\r"
respond "*" ":delete decsys; macro shr\r"
# Assemble with itself, now no errors
respond "*" ":macro\r"
respond "*" "macro=macro\r"
respond "*" "\003"
type ":kill\r"
respond "*" ":dec sys:link\r"
respond "*" "macro/go\r"
expect "%LNKNED"
respond "*" "macro/go\r"
respond "*" ":start 45\r"
respond "Command" "d"
respond "*" ":pdump sys2; ts macro\r"
respond "*" ":kill\r"
# Old PALX
respond "*" ":midas sys3;ts plx143_rms;palx 143\r"
expect ":KILL"

BIN
src/decsys/macro.mac Normal file
View File

Binary file not shown.