From 5cc548d83fb69d7c6eb816069ec60ff481f476e6 Mon Sep 17 00:00:00 2001 From: Richard Cornwell Date: Sun, 11 Aug 2019 13:42:53 -0400 Subject: [PATCH] KA10: Fixed parity error in 7 track TM10 --- PDP10/kx10_mt.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PDP10/kx10_mt.c b/PDP10/kx10_mt.c index 4d70308..fe625f6 100644 --- a/PDP10/kx10_mt.c +++ b/PDP10/kx10_mt.c @@ -616,7 +616,7 @@ t_stat mt_srv(UNIT * uptr) cc = 6 * (5 - uptr->CPOS); ch = mt_buffer[uptr->BPOS]; if ((((uptr->CNTRL & ODD_PARITY) ? 0x40 : 0) ^ - parity_table[ch & 0x3f]) != 0) { + parity_table[ch & 0x3f]) == 0) { mt_status |= PARITY_ERR; } mt_df10.buf |= (uint64)(ch & 0x3f) << cc; @@ -695,7 +695,7 @@ t_stat mt_srv(UNIT * uptr) if (uptr->flags & MTUF_7TRK) { ch = mt_buffer[uptr->BPOS]; if ((((uptr->CNTRL & ODD_PARITY) ? 0x40 : 0) ^ - parity_table[ch & 0x3f]) != (ch & 0x40)) { + parity_table[ch & 0x3f]) == 0) { mt_status |= PARITY_ERR; } mt_buffer[uptr->BPOS] &= 0x3f;