mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 00:55:55 +00:00
Return correct carry flag from OSGBPB.
This commit is contained in:
parent
d08dbcdc3f
commit
7198e1e078
@ -84,8 +84,18 @@ GBPBHND CMP #4
|
|||||||
OSGBPBRET >>> ENTAUX
|
OSGBPBRET >>> ENTAUX
|
||||||
PLY
|
PLY
|
||||||
PLX
|
PLX
|
||||||
|
PHY
|
||||||
|
LDY #$05 ; Check if bytes left = 0
|
||||||
|
LDA (OSLPTR),Y
|
||||||
|
BNE :BYTESLEFT
|
||||||
|
INY
|
||||||
|
LDA (OSLPTR),Y
|
||||||
|
BNE :BYTESLEFT
|
||||||
|
CLC
|
||||||
|
BRA :S2
|
||||||
|
:BYTESLEFT SEC ; Set carry if bytes left
|
||||||
|
:S2 PLY
|
||||||
LDA #$00 ; A=0 means supported command
|
LDA #$00 ; A=0 means supported command
|
||||||
CLC ; SHOULD SET CARRY IF EOF
|
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
* OSBPUT - write one byte to an open file
|
* OSBPUT - write one byte to an open file
|
||||||
|
Loading…
Reference in New Issue
Block a user