Added kernal replacement routines

git-svn-id: svn://svn.cc65.org/cc65/trunk@1546 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-20 01:31:56 +00:00
parent 6d498d8187
commit ae38242db9
9 changed files with 145 additions and 11 deletions
--- a/libsrc/pet/kclose.s
+++ b/libsrc/pet/kclose.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 19.11.2002
+;
+; CLOSE replacement function for the PETs
+;
+
+        .export         CLOSE
+
+        .include        "pet.inc"
+
+
+.proc   CLOSE
+                     
+        ldx     PET_DETECT
+        cpx     #PET_4000
+        bne     @L1
+        jmp     $F2E2           ; BASIC 4
+@L1:    jmp     $F2AE           ; BASIC 2&3
+
+.endproc
+
+