;
; Ullrich von Bassewitz, 03.06.1999
;
; unsigned int __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
;

        .include        "cbm.inc"

        .export         _cbm_k_load
        .import         __oserror
        .import         popa
        .importzp       ptr1

_cbm_k_load:
        sta     ptr1
        stx     ptr1+1
        jsr     popa            ; get flag
        ldx     ptr1
        ldy     ptr1+1
        jsr     LOAD
        bcc     @Ok
        sta     __oserror
        ldx     ptr1
        ldy     ptr1+1
@Ok:    txa
        pha
        tya
        tax
        pla
        rts