diff --git a/IBMRES.ASM b/IBMRES.ASM
index 713a804..db8a91c 100644
--- a/IBMRES.ASM
+++ b/IBMRES.ASM
@@ -400,6 +400,7 @@ ITAB:
 	Q	INPUT
 	Q	IF
 	Q	INSTRC
+	Q2	INSTR,INSTRC
 	QF	INT
 	QF	INP
 	Q	IMP
diff --git a/IBMRES.H b/IBMRES.H
index b60fea2..a26dd65 100644
--- a/IBMRES.H
+++ b/IBMRES.H
@@ -37,6 +37,28 @@ Q       MACRO   RESWRD
  ENDIF
 ENDM
 
+Q2      MACRO   RESWRD,RESDSP
+ IFDEF  $&RESDSP
+        $F=0
+  IRPC  XX,<RESWRD>
+   IF   $F
+        $Q="&XX&"
+        DB      "&XX&"
+   ENDIF
+   IFE  $F-1
+        .XLIST
+   ENDIF
+        $F=$F+1
+  ENDM
+        .LIST
+        ORG     $-1
+        DB      $Q+128D
+        DB      $&RESDSP
+ ELSE
+        un_def  RESDSP
+ ENDIF
+ENDM
+
 QF      MACRO   RESWRD
  IFDEF  $&RESWRD
         $F=0
diff --git a/update/IBMRES.ASM b/update/IBMRES.ASM
index 80643a1..dce4ed4 100644
--- a/update/IBMRES.ASM
+++ b/update/IBMRES.ASM
@@ -401,6 +401,7 @@ ITAB:
 	Q	INPUT
 	Q	IF
 	Q	INSTRC
+	Q2	INSTR,INSTRC
 	QF	INT
 	QF	INP
 	Q	IMP