From 1a8f3048b5326af1b9bb74e00aaf6b6f6aec7185 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 18 Mar 2018 13:47:14 -0700
Subject: [PATCH] Verify REL module tyoe before loading

---
 src/vmsrc/apple/cmd.pla | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 367a250..da0a26e 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -1064,6 +1064,13 @@ def loadmod(mod)#1
         refnum = open(strcpy(@filename,strcat(strcpy(@header, @sysmods), @filename)))
     fin
     if refnum
+        header.0 = $0A
+        header:1 = @filename
+        if not syscall($C4, @header) and header.4 <> $FE // Make sure it's a REL module
+            close(refnum)
+            perr = $4A // Incompatible type
+            return -perr
+        fin
         rdlen   = read(refnum, @header, 128)
         modsize = header:0
         moddep  = @header.1