Added EXIT entry point

diff --git a/mach/6500/libmon/head_em.s b/mach/6500/libmon/head_em.s
index 5e4a1c2..774d20a 100644 (file)
--- 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.