From 0e46e6bc75bc065a728a005f175804623aae9974 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 30 Jun 1992 11:18:17 +0000
Subject: [PATCH] Added EXIT entry point

---
 mach/6500/libmon/head_em.s | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/mach/6500/libmon/head_em.s b/mach/6500/libmon/head_em.s
index 5e4a1c267..774d20aa7 100644
--- a/mach/6500/libmon/head_em.s
+++ b/mach/6500/libmon/head_em.s
@@ -9,6 +9,7 @@
 .define RETSIZE, TRAPVAL, STACK, BRANCH
 .define start, Push, Pop, STACKTh, STACKTl
 .define F_DUM
+.define EXIT
 .sect .zero
 .sect .text
 .sect .rom
@@ -186,6 +187,12 @@ start:
 	jsr OSBYTE	! input only from R423
 	rts
 
+EXIT:
+	ldx STACK	! load stackpointer
+	dex
+	dex		! adjust
+	txs		! reset hardware stackpointer
+	rts
 
 ! The subroutine Push pushes the registerpair AX onto the stack.
 
-- 
2.34.1