From: Oliver Schmidt <ol.sc@web.de>
Date: Sun, 5 Jun 2016 11:00:37 +0000 (+0200)
Subject: Added Apple II version of doesclrscrafterexit().
X-Git-Tag: V2.16~115
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d67099881477e82f6539e69df6fc2e9622480466;p=cc65

Added Apple II version of doesclrscrafterexit().

The prototype and documentation is supposed to be provided together with the ATARI version.
---

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