From d67099881477e82f6539e69df6fc2e9622480466 Mon Sep 17 00:00:00 2001
From: Oliver Schmidt <ol.sc@web.de>
Date: Sun, 5 Jun 2016 13:00:37 +0200
Subject: [PATCH] Added Apple II version of doesclrscrafterexit().

The prototype and documentation is supposed to be provided together with the ATARI version.
---
 libsrc/apple2/doesclrscr.s | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 libsrc/apple2/doesclrscr.s

diff --git a/libsrc/apple2/doesclrscr.s b/libsrc/apple2/doesclrscr.s
new file mode 100644
index 000000000..2e2e7b96f
--- /dev/null
+++ b/libsrc/apple2/doesclrscr.s
@@ -0,0 +1,21 @@
+;
+; Oliver Schmidt, 2016-06-05
+;
+; unsigned char doesclrscrafterexit (void);
+;
+
+        .export         _doesclrscrafterexit
+        .import         done
+
+        .include        "apple2.inc"
+
+_doesclrscrafterexit:
+        ; If the page we jump to when done equals the page
+        ; of the warmstart vector we'll return to BASIC so
+        ; there's no implicit clrscr() after exit().
+        lda     done+2
+        sec
+        sbc     #>DOSWARM
+
+        ldx     #>$0000
+        rts