From 2f2fdcbccdcc1928256664bf844b16d0fb2538e4 Mon Sep 17 00:00:00 2001
From: Zellyn Hunter <zellyn@gmail.com>
Date: Mon, 9 Jun 2014 17:39:10 -0700
Subject: [PATCH] add misc code at f699

---
 source/redbook/misc-f699.asm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 source/redbook/misc-f699.asm

diff --git a/source/redbook/misc-f699.asm b/source/redbook/misc-f699.asm
new file mode 100644
index 0000000..70f6418
--- /dev/null
+++ b/source/redbook/misc-f699.asm
@@ -0,0 +1,32 @@
+* MISCELLANEOUS ROUTINES AT $F699
+* IN THE APPLE II INTEGER BASIC ROM
+	ORG $F669
+* ADDRESSES
+ASAVE	EQU $56
+XSAVE	EQU $57
+YSAVE	EQU $58
+PSAVE	EQU $59
+STACK   EQU $100
+*
+SAVE    STY YSAVE
+        STX XSAVE
+        STA ASAVE
+        PHP
+        PLA
+        STA PSAVE
+        TSX
+        INX
+        INX
+        LDA $0100,X
+        ASL
+        ASL
+        ASL
+        ASL
+        RTS
+RESTORE LDY YSAVE
+        LDX XSAVE
+        LDA PSAVE
+        PHA
+        LDA ASAVE
+        PLP
+        RTS