From 6367b37e6f3e471da33ea9432a559927e52486b1 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Thu, 23 Mar 2017 20:46:54 -0500
Subject: [PATCH] Add glue code to make AppleTalk calls from ORCA/C.

---
 callat.asm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 callat.asm

diff --git a/callat.asm b/callat.asm
new file mode 100644
index 0000000..ce0c2b0
--- /dev/null
+++ b/callat.asm
@@ -0,0 +1,22 @@
+	case	on
+
+* Bogus segment to go into the .root file and force generation of .a/.o file
+bogus	private
+	nop
+	end
+
+RamDispatch gequ $E11014
+
+_CALLAT	start
+	lda	4,s
+	tax
+	lda	6,s
+	tay
+	phb
+	pla
+	sta	3,s
+	pla
+	sta	3,s
+	plb
+	jml	RamDispatch
+	end