More cbm510 changes to make file I/O and kernal access work

git-svn-id: svn://svn.cc65.org/cc65/trunk@2846 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-12-27 16:11:14 +00:00
parent 40a48c59b8
commit dada43f570
27 changed files with 670 additions and 642 deletions
--- a/libsrc/cbm510/kreadst.s
+++ b/libsrc/cbm510/kreadst.s
@@ -0,0 +1,26 @@
+;
+; Ullrich von Bassewitz, 2003-12-19
+;
+; READST kernal call
+;
+
+        .export         READST
+
+        .import         sys_bank, restore_bank
+        .import         sysp0: zp, ktmp: zp
+
+        .include        "cbm510.inc"
+
+
+.proc   READST
+
+        jsr     sys_bank
+        sty     ktmp                    ; Save Y register
+        ldy     #$9C                    ; STATUS
+        lda     (sysp0),y               ; Load STATUS from system bank
+        ldy     ktmp
+        jmp     restore_bank            ; Will set condition codes on A
+
+.endproc
+
+