github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-27 01:09:49 +00:00
Code Issues Releases Wiki Activity

On a KA10, avoid use of FIX instruction by reverting patch to [CLIB] 16.

Browse Source 
C; [CREL] 16 is timestamped 1981, but [CLIB] 16 is dated 1986.
Probably the latter was patched not to use the obsoleted UFA
instruction not supported by the KS10 machines.
This commit is contained in:
Lars Brinkhoff
2019-06-14 21:04:54 +02:00
parent 8aba868186
commit 2422348871
3 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
build/ka10/include.tcl
View File

@@ -191,3 +191,19 @@ proc translate_diagnostics {} {
respond "*" "\033\024"
respond " " "dsk: maint; part k, part k.old\r"
}
proc patch_clib_16 {} {
respond "*" ":job clib\r"
respond "*" "\033\060l"
respond " " "c; \[clib\] 16\r"
respond "*" "23237/"
respond "FIX" "ufa 1,775763\n"
respond "JRST" "tlo 2,777000\r"
respond "\n" "23244/"
respond "FIX" "ufa 1,775763\n"
respond "MOVN" "tlo 2,777000\n"
respond "JRST" "movn 2,2\r"
respond "\n" "\033\060y"
respond " " "c; \[clib\] 16\r"
respond "*" ":kill\r"
}

3
build/ks10/include.tcl
View File

@@ -198,3 +198,6 @@ proc translate_diagnostics {} {
respond "*" "\033\024"
respond " " "dsk: maint; part k, part l\r"
}
proc patch_clib_16 {} {
}

3
build/misc.tcl
View File

@@ -1434,6 +1434,9 @@ respond "*" ":link sys3; ts r, r; ts r42\r"
# r; rmacro 1 -> r; r macros
# sys3; ts itype -> r; ts itype
# Revert patch to [CLIB] 16 to avoid use of the FIX instruction on a KA10.
patch_clib_16
# C library for drawing on a TV display.
respond "*" ":cwd clib\r"
respond "*" ":cc tv.>\r"