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

Fixed DQXDEV (DQ) device to work in KA-10. Resolve #1669.

Browse Source
This commit is contained in:
Eric Swenson
2019-08-02 20:41:31 +00:00
parent 3744295d5b
commit 40bc0b9840
5 changed files with 40 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
src/sysnet/dqxdev.41 → src/sysnet/dqxdev.42
View File

@@ -92,6 +92,24 @@ $barf: .call joberr
quit
quit
IF1,[
DEFINE IFCE A,B
IFE SIXBIT/A/-SIXBIT/B/,TERMIN ;SUBSTITUTE FOR IFSE THAT IGNORES CASE
PRINTX /Limit to KA-10 instructions? /
.TTYMAC KAONLY
IRPS Z,,[YES Y]
IFCE Z,KAONLY,{
$$KA10==1
.ISTOP
}
TERMIN
TERMIN
IFNDEF $$KA10, $$KA10==0
]
$$arpa==1
$$chaos==1
$$hostnm==1
@@ -373,7 +391,15 @@ qt.ptr: move a,qclass ; which type of foo-ADDR are we lookinf for?
call strlen
sub a,t ; get difference
ifg. a ; better be something left!
adjbp a,[440700,,qname] ; point at where trailer should be
IFN $$KA10,[
move t,[440700,,qname]
ibp t
sojg a, .-1
move a,t
]
IFE $$KA10,[
adjbp a,[440700,,qname] ; point at where trailer should be
]
call strcmp ; strings match?
anskp. ; yup
setz t, ; tie off string