diff --git a/src/system/imp.368 b/src/system/imp.369 similarity index 99% rename from src/system/imp.368 rename to src/system/imp.369 index 16a400e8..19da6647 100644 --- a/src/system/imp.368 +++ b/src/system/imp.369 @@ -629,6 +629,19 @@ IMPIN: LDB T,[241000,,IMPILB+0] ;get network byte (ip[0]) MOVE T,NIFIPA ; make network part of address AND T,NIFIPM 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 ;;; IMP->Host Type 5 - RFNM (Ready For Next Message)