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