add misc code at f699

2014-06-09 17:39:10 -07:00 · 2014-06-09 17:39:10 -07:00 · 2f2fdcbccd
parent 0d7d92c281
commit 2f2fdcbccd
1 changed files with 32 additions and 0 deletions
--- a/source/redbook/misc-f699.asm
+++ 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