Moved the 'disk' files from 'geos-cbm' to 'geos-common' which are believed to work...

[cc65] / libsrc / cbm / c_load.s

diff --git a/libsrc/cbm/c_load.s b/libsrc/cbm/c_load.s
index 4a767eab4e6cfcd1a701ef5678e7ab6eb2180ad9..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 char __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,7 +17,14 @@ _cbm_k_load:
        ldx     ptr1
        ldy     ptr1+1
        jsr     LOAD
-       bcs     @NotOk
-       lda     #0
-@NotOk:        rts
-       
+       bcc     @Ok
+        sta     __oserror
+        ldx     ptr1
+        ldy     ptr1+1
+@Ok:    txa
+        pha
+        tya
+        tax
+        pla
+        rts
+