Added the IRQ entry

[cc65] / libsrc / cbm / c_load.s

diff --git a/libsrc/cbm/c_load.s b/libsrc/cbm/c_load.s
index 14b92917c19a87d69896f30283b738c1822144f5..8213307045b00c6717c46d05843ced94b1b0f8e7 100644 (file)
--- a/libsrc/cbm/c_load.s
+++ b/libsrc/cbm/c_load.s
@@ -1,12 +1,12 @@
 ;
 ; Ullrich von Bassewitz, 03.06.1999
 ;
-; unsigned __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
+; unsigned int __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
 ;
 
-       .include        "cbm.inc"
-
                .export         _cbm_k_load
+        .import         LOAD
+        .import         __oserror
        .import         popa
        .importzp       ptr1
 
@@ -17,9 +17,14 @@ _cbm_k_load:
        ldx     ptr1
        ldy     ptr1+1
        jsr     LOAD
-       ldx     #0
        bcc     @Ok
-       inx
-       rts
-@Ok:   txa
-       rts
+        sta     __oserror
+        ldx     ptr1
+        ldy     ptr1+1
+@Ok:    txa
+        pha
+        tya
+        tax
+        pla
+        rts
+