From 5e14a3984483f438bd80d53139e2fa484435f80a Mon Sep 17 00:00:00 2001
From: sater <none@none>
Date: Mon, 21 May 1984 16:04:57 +0000
Subject: [PATCH] Initial revision

---
 lang/pc/pem/move.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 lang/pc/pem/move.c

diff --git a/lang/pc/pem/move.c b/lang/pc/pem/move.c
new file mode 100644
index 000000000..b2c32ce1c
--- /dev/null
+++ b/lang/pc/pem/move.c
@@ -0,0 +1,20 @@
+/* A program to move the file pem??.m to pem.m */
+/* Called when "apc pem.p" fails. It is assumed that the binary
+   file is incorrect in that case and has to be created from the compact
+   code file.
+   This program selects the correct compact code file for each combination
+   of word and pointer size.
+   It will return an error code if the move failed
+*/
+main(argc) {
+	char copy[100] ;
+
+	if ( argc!=1 ) {
+		printf("No arguments allowed\n") ;
+		exit(1) ;
+	}
+
+	sprintf(copy,"cp pem%d%d.m pem.m", EM_WSIZE, EM_PSIZE) ;
+	printf("%s\n",copy) ;
+	return system(copy) ;
+}