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/kopen.s
+++ b/libsrc/pet/kopen.s
@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 19.11.2002
+;
+; OPEN replacement function for the PETs
+;
+
+        .export         OPEN
+        .import         checkst
+
+        .include        "pet.inc"
+
+
+.proc   OPEN
+
+        lda     PET_DETECT
+        cmp     #PET_4000
+        bne     @L1
+        jsr     $F563           ; BASIC 4
+        jmp     checkst
+
+@L1:    jsr     $F524           ; BASIC 2&3
+        jmp     checkst
+
+.endproc
+
+