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

Add ITS machine called KA.

Browse Source
This commit is contained in:
Lars Brinkhoff
2017-12-20 13:23:34 +01:00
committed by Eric Swenson
parent 6be8b181ae
commit e1f80890d4
9 changed files with 32 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/sysen1/pword.2661
View File

@@ -9811,6 +9811,10 @@ bltspc: syscal sstatu,[val x ? val x ? val x ? val x ? val x
jrst [move x,[mdspec,,tsspec] ;yes, so use MD's specs
blt x,spcend-1 ; all of them, to the end
ret ]
camn x,[sixbit /KA/] ;is it KA?
jrst [move x,[mdspec,,tsspec] ;yes, so use MD's specs
blt x,spcend-1 ; all of them, to the end
ret ]
camn x,[sixbit /DM/] ;DM-P?
jrst [move x,[dmspec,,tsspec] ;yes, use DM's specs
blt x,spcend-1 ; all of them to the bitter end