From 85c8e7fe2e1b1c1052b781d8bbe4e079a8bf9586 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Thu, 5 Jul 2018 22:04:00 -0400
Subject: [PATCH] IBM360: Fixed to support new sim_card interface.

---
 IBM360/ibm360_cdp.c | 4 ++--
 IBM360/ibm360_cdr.c | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/IBM360/ibm360_cdp.c b/IBM360/ibm360_cdp.c
index 8ee3067..27e7c54 100644
--- a/IBM360/ibm360_cdp.c
+++ b/IBM360/ibm360_cdp.c
@@ -178,7 +178,7 @@ cdp_srv(UNIT *uptr) {
         /* Done waiting, punch card */
         uptr->u3 &= ~CDP_CARD;
         sim_debug(DEBUG_DETAIL, &cdp_dev, "unit=%d:punch\n", u);
-        switch(sim_punch_card(uptr, NULL, image)) {
+        switch(sim_punch_card(uptr, image)) {
         /* If we get here, something is wrong */
         case SCPE_IOERR:
              set_devattn(addr, SNS_DEVEND|SNS_UNITCHK);
@@ -234,7 +234,7 @@ cdp_detach(UNIT * uptr)
     uint16   *image = (uint16 *)(uptr->up7);
 
     if (uptr->u5 & CDP_CARD)
-        sim_punch_card(uptr, NULL, image);
+        sim_punch_card(uptr, image);
     if (uptr->up7 != 0)
         free(uptr->up7);
     uptr->up7 = 0;
diff --git a/IBM360/ibm360_cdr.c b/IBM360/ibm360_cdr.c
index c0ae46d..6fcc01c 100644
--- a/IBM360/ibm360_cdr.c
+++ b/IBM360/ibm360_cdr.c
@@ -252,6 +252,8 @@ cdr_attach(UNIT * uptr, CONST char *file)
 
     if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
        return r;
+    if (uptr->up7 == 0)
+        uptr->up7 = malloc(sizeof(uint16)*80);
     set_devattn(addr, SNS_DEVEND);
     uptr->u3 &= ~(CDR_CARD);
     uptr->u4 = 0;