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:
@@ -7,4 +7,8 @@
|
|||||||
.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
|
|
||||||
|
|||||||
@@ -8,4 +8,7 @@
|
|||||||
.import READST
|
.import READST
|
||||||
|
|
||||||
|
|
||||||
_cbm_k_readst = READST
|
_cbm_k_readst:
|
||||||
|
jsr READST
|
||||||
|
ldx #0 ; Clear high byte
|
||||||
|
rts
|
||||||
|
|||||||
Reference in New Issue
Block a user