github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-29 13:22:47 +00:00
Code Issues Releases Wiki Activity

Patch the value of IMPUS3 when IP is read from the IMP

Browse Source
This commit is contained in:
Björn Victor
2023-04-20 20:06:24 +02:00
committed by Lars Brinkhoff
parent 47e0df7898
commit 621201978f
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/system/imp.368 → src/system/imp.369
View File

@@ -629,6 +629,19 @@ IMPIN: LDB T,[241000,,IMPILB+0] ;get network byte (ip[0])
MOVE T,NIFIPA ; make network part of address MOVE T,NIFIPA ; make network part of address
AND T,NIFIPM AND T,NIFIPM
MOVEM T,NIFIPN ; save it MOVEM T,NIFIPN ; save it
;; Backwards compatibility for RESOLV"OWNHST (used by e.g. COMSAT):
;; patch the IMPUS3 symbol
PUSH P,A ;Save the ACs clobbered by symlk
PUSH P,B
PUSH P,C
MOVE B,[SQUOZE 0,IMPUS3]
PUSHJ P,SYMLK
BUG HALT,[IMPUS3 symbol not found]
MOVE A,NIFIPA
MOVEM A,(C) ;Zap the symbol value
POP P,C
POP P,B
POP P,A
JRST IMPIRT ;One more NOP from IMP JRST IMPIRT ;One more NOP from IMP
;;; IMP->Host Type 5 - RFNM (Ready For Next Message) ;;; IMP->Host Type 5 - RFNM (Ready For Next Message)