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/checkst.s
+++ b/libsrc/pet/checkst.s
@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 19.11.2002
+;
+; The kernal open routines do not return a carry on error, so check the IEEE
+; status, set carry flag and return
+;
+
+        .export         checkst
+
+        .include        "pet.inc"
+
+
+.proc   checkst
+
+        lda     ST
+        beq     @L1
+        lda     #5              ; ### Device not present
+        sec
+        rts
+
+@L1:    clc
+        rts
+
+.endproc
+
+