cc65/libsrc/cbm/c_open.s

18 lines
282 B
ArmAsm

;
; Ullrich von Bassewitz, 03.06.1999
;
; unsigned char cbm_k_open (void);
;
.include "cbm.inc"
.export _cbm_k_open
_cbm_k_open:
jsr OPEN
ldx #0 ; Clear high byte
bcs @NotOk
txa
@NotOk: rts