mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 16:55:31 +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
|
||||
PLY
|
||||
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
|
||||
CLC ; SHOULD SET CARRY IF EOF
|
||||
RTS
|
||||
|
||||
* OSBPUT - write one byte to an open file
|
||||
|
Loading…
Reference in New Issue
Block a user