mirror of
https://github.com/cc65/cc65.git
synced 2025-01-24 04:34:35 +00:00
Fixes/improvements from Stefan Haubenthal
git-svn-id: svn://svn.cc65.org/cc65/trunk@2873 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
95c0fb6e0b
commit
e717b44d4d
@ -4,7 +4,11 @@
|
|||||||
; unsigned char __fastcall__ cbm_k_basin (void);
|
; unsigned char __fastcall__ cbm_k_basin (void);
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _cbm_k_basin
|
.export _cbm_k_basin
|
||||||
.import BASIN
|
.import BASIN
|
||||||
|
|
||||||
_cbm_k_basin = BASIN
|
|
||||||
|
_cbm_k_basin:
|
||||||
|
jsr BASIN
|
||||||
|
ldx #0 ; Clear high byte
|
||||||
|
rts
|
||||||
|
@ -10,7 +10,7 @@
|
|||||||
|
|
||||||
_cbm_k_open:
|
_cbm_k_open:
|
||||||
jsr OPEN
|
jsr OPEN
|
||||||
|
ldx #0 ; Clear high byte
|
||||||
bcs @NotOk
|
bcs @NotOk
|
||||||
lda #0
|
txa
|
||||||
@NotOk: ldx #0 ; Clear high byte
|
@NotOk: rts
|
||||||
rts
|
|
||||||
|
@ -4,8 +4,11 @@
|
|||||||
; unsigned char __fastcall__ cbm_k_readst (void);
|
; unsigned char __fastcall__ cbm_k_readst (void);
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _cbm_k_readst
|
.export _cbm_k_readst
|
||||||
.import READST
|
.import READST
|
||||||
|
|
||||||
|
|
||||||
_cbm_k_readst = READST
|
_cbm_k_readst:
|
||||||
|
jsr READST
|
||||||
|
ldx #0 ; Clear high byte
|
||||||
|
rts
|
||||||
|
Loading…
x
Reference in New Issue
Block a user