From 99bf0fa295c8acd1d0d0853b83bae45bea0da2e6 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Wed, 11 Jan 2023 17:15:06 -0500
Subject: [PATCH] KA10: Fix imp to send proper IP address to KS.

---
 PDP10/kx10_imp.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/PDP10/kx10_imp.c b/PDP10/kx10_imp.c
index 403c016..ebc8a23 100644
--- a/PDP10/kx10_imp.c
+++ b/PDP10/kx10_imp.c
@@ -1316,10 +1316,10 @@ t_stat imp_eth_srv(UNIT * uptr)
 #else
               imp_data.rbuffer[0] = 0x4;
 #endif
-              imp_data.rbuffer[1] = (ntohl(imp_data.ip) >> 24) & 0xff;
-              imp_data.rbuffer[5] = (ntohl(imp_data.ip) >> 16) & 0xff;
-              imp_data.rbuffer[6] = (ntohl(imp_data.ip) >> 8) & 0xff;
-              imp_data.rbuffer[7] = ntohl(imp_data.ip) & 0xff;
+              imp_data.rbuffer[1] = (ntohl(imp_data.hostip) >> 24) & 0xff;
+              imp_data.rbuffer[5] = (ntohl(imp_data.hostip) >> 16) & 0xff;
+              imp_data.rbuffer[6] = (ntohl(imp_data.hostip) >> 8) & 0xff;
+              imp_data.rbuffer[7] = ntohl(imp_data.hostip) & 0xff;
               imp_unit[0].STATUS |= IMPIB;
               imp_unit[0].IPOS = 0;
               imp_unit[0].ILEN = 12*8;