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 16aec28df191689530132fb3c3e6ac94af8fb946..8213307045b00c6717c46d05843ced94b1b0f8e7 100644 (file)
--- a/libsrc/cbm/c_load.s
+++ b/libsrc/cbm/c_load.s
@@ -1,26 +1,30 @@
 ;
 ; Ullrich von Bassewitz, 03.06.1999
 ;
-; unsigned __fastcall__ cbm_load (unsigned char flag, unsigned addr);
+; unsigned int __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
 ;
 
-       .include        "cbm.inc"
-
-               .export         _cbm_load
+               .export         _cbm_k_load
+        .import         LOAD
+        .import         __oserror
        .import         popa
        .importzp       ptr1
 
-_cbm_load:
+_cbm_k_load:
        sta     ptr1
-       stx     ptr1+1      
+       stx     ptr1+1
        jsr     popa            ; get flag
        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