--- cci/d/entry/mcom.c	2019/07/28 12:24:19	1.1
+++ cci/d/entry/mcom.c	2019/07/28 12:30:33	1.1.1.2
@@ -205,37 +205,37 @@ static t_mcoml1()
 
 	if (index==0) {
 	   asm("movl	$0x2,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("mcoml	_source,_source")	/* memory to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("mcoml	_source,_source");	/* memory to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 	   	   }
 	if (index==1) {
 	   asm("movl	$0x3,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r7")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcoml	_source,r7")	/* memory to register */
-	   asm("movl	r7,_source")	/* reload target address */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r7");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcoml	_source,r7");	/* memory to register */
+	   asm("movl	r7,_source");	/* reload target address */
+	   asm("movpsl	_psw");	/*save psw				*/
 	   	   }
 	if (index==2) {
 	   asm("movl	$0x4,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r6")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcoml	r6,_source")	/* register to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r6");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcoml	r6,_source");	/* register to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 	   	   }
 	if (index==3) {
 	   asm("movl	$0x5,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r6")	/* load register */
-	   asm("movl	_source,r7")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcoml	r6,r7")		/* register to register */
-	   asm("movl	r7,_source")	/* reload target address */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r6");	/* load register */
+	   asm("movl	_source,r7");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcoml	r6,r7");	/* register to register */
+	   asm("movl	r7,_source");	/* reload target address */
+	   asm("movpsl	_psw");	/*save psw				*/
 	   	   }
 	   psw &= FLAGS;	/*mask out all bits except flag bits	*/
 	   lptr = expl1 + index;
@@ -284,37 +284,37 @@ static t_mcomw()
 
 	if (index==0) {
 	   asm("movl	$0x6,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("mcomw	_source+2,_dest+2")	/* memory to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("mcomw	_source+2,_dest+2");	/* memory to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 		      }
 	if (index==1) {
 	   asm("movl	$0x7,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r6")	/* load register */
-	   asm("movl	_dest,r7")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcomw	r6,r7")		/* register to register */
-	   asm("movpsl	_psw")	/*save psw				*/
-	   asm("movw	r7,_dest+2")	/* reload memory location for check */
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r6");	/* load register */
+	   asm("movl	_dest,r7");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcomw	r6,r7");		/* register to register */
+	   asm("movpsl	_psw");	/*save psw				*/
+	   asm("movw	r7,_dest+2");	/* reload memory location for check */
 		      }
 	if (index==2) {
 	   asm("movl	$0x8,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r6")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcomw	r6,_dest+2")	/* register to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r6");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcomw	r6,_dest+2");	/* register to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 		      }
 	if (index==3) {
 	   asm("movl	$0x9,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_dest,r7")	/* load register */
-	   asm("bispsw	_init_flg")
-	   asm("mcomw	_source+2,r7")	/* memory to register */
-	   asm("movw	r7,_dest+2")	/* reload compare location */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_dest,r7");	/* load register */
+	   asm("bispsw	_init_flg");
+	   asm("mcomw	_source+2,r7");	/* memory to register */
+	   asm("movw	r7,_dest+2");	/* reload compare location */
+	   asm("movpsl	_psw");	/*save psw				*/
 		      }
 	   psw &= FLAGS;	/*mask out all bits except flag bits	*/
 	   lptr = expw + index;
@@ -354,10 +354,10 @@ static t_mcomw1()
 	   op1 = source = *lptr;	/* do not use index */
 	   init_flg = (short)flag_value[index];
 	   asm("movl	$0xa,_subtst");
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("mcomw	_source+2,_source+2")
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("mcomw	_source+2,_source+2");
+	   asm("movpsl	_psw");	/*save psw				*/
 	   psw &= FLAGS;	/*mask out all bits except flag bits	*/
 	   lptr = expw1 + index;
 	   exp_dest = *lptr;
@@ -402,38 +402,38 @@ static t_mcomb()
 	   init_flg = (short)flag_value[index];
 
 	if (index==0) {
-	   asm("movl	$0xb,_subtst")
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("mcomb	_source+3,_dest+3")	/* memory to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("movl	$0xb,_subtst");
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("mcomb	_source+3,_dest+3");	/* memory to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 	           }
 	if (index==1) {
-	   asm("movl	$0xc,_subtst")
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("movl	_source,r6")		/* load data into reg */
-	   asm("mcomb	r6,_dest+3")		/* register to memory */
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("movl	$0xc,_subtst");
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("movl	_source,r6");		/* load data into reg */
+	   asm("mcomb	r6,_dest+3");		/* register to memory */
+	   asm("movpsl	_psw");	/*save psw				*/
 	           }
 	if (index==2) {
-	   asm("movl	$0xd,_subtst")
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("movl	_dest,r7")		/* load dest register */
-	   asm("mcomb	_source+3,r7")		/* memory to register */
-	   asm("movpsl	_psw")	/*save psw				*/
-	   asm("movb	r7,_dest+3")		/* reload memory */
+	   asm("movl	$0xd,_subtst");
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("movl	_dest,r7");		/* load dest register */
+	   asm("mcomb	_source+3,r7");		/* memory to register */
+	   asm("movpsl	_psw");	/*save psw				*/
+	   asm("movb	r7,_dest+3");		/* reload memory */
 		   }
 	if (index==3) {
-	   asm("movl	$0xe,_subtst")
-	   asm("bicpsw	$PSWMASK")
-	   asm("movl	_source,r6")		/* load data into reg */
-	   asm("movl	_dest,r7")		/* load dest register */
-	   asm("bispsw	_init_flg")
-	   asm("mcomb	r6,r7")		/*  register to register */
-	   asm("movpsl	_psw")	/*save psw				*/
-	   asm("movb	r7,_dest+3")		/* reload memory */
+	   asm("movl	$0xe,_subtst");
+	   asm("bicpsw	$PSWMASK");
+	   asm("movl	_source,r6");		/* load data into reg */
+	   asm("movl	_dest,r7");		/* load dest register */
+	   asm("bispsw	_init_flg");
+	   asm("mcomb	r6,r7");		/*  register to register */
+	   asm("movpsl	_psw");	/*save psw				*/
+	   asm("movb	r7,_dest+3");		/* reload memory */
 		   }
 	   psw &= FLAGS;	/*mask out all bits except flag bits	*/
 	   lptr = expb + index;
@@ -474,11 +474,11 @@ static t_mcomb1()
 	   lptr = src + index;
 	   op1 = source = *lptr;	/* do not use index */
 	   init_flg = (short)flag_value[index];
-	   asm("movl	$0xf,_subtst")
-	   asm("bicpsw	$PSWMASK")
-	   asm("bispsw	_init_flg")
-	   asm("mcomb	_source+3,_source+3")
-	   asm("movpsl	_psw")	/*save psw				*/
+	   asm("movl	$0xf,_subtst");
+	   asm("bicpsw	$PSWMASK");
+	   asm("bispsw	_init_flg");
+	   asm("mcomb	_source+3,_source+3");
+	   asm("movpsl	_psw");	/*save psw				*/
 	   psw &= FLAGS;	/*mask out all bits except flag bits	*/
 	   lptr = expb1 + index;
 	   exp_dest = *lptr;