bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
libsrc/atari/rwcommon.s
View File

@@ -2,42 +2,42 @@
; common iocb setup routine for read, write
; expects __fastcall__ parameters (int fd, void *buf, int count)
;
.include "atari.inc"
.include "errno.inc"
.import popax
.import fdtoiocb
.include "atari.inc"
.include "errno.inc"
.import popax
.import fdtoiocb
.export __rwsetup
.export __rwsetup
__rwsetup:
pha ; push size in stack
txa
pha
jsr popax ; get buffer address
pha
txa
pha
jsr popax ; get handle
jsr fdtoiocb ; convert to iocb
bmi iocberr ; negative (X=$FF or A>$7F) on error.
tax
pla ; store address
sta ICBAH,x
pla
sta ICBAL,x
pla ; store length
sta ICBLH,x
pla
sta ICBLL,x
ora ICBLH,x ; returns Z if length is 0
rts
pha ; push size in stack
txa
pha
jsr popax ; get buffer address
pha
txa
pha
jsr popax ; get handle
jsr fdtoiocb ; convert to iocb
bmi iocberr ; negative (X=$FF or A>$7F) on error.
tax
pla ; store address
sta ICBAH,x
pla
sta ICBAL,x
pla ; store length
sta ICBLH,x
pla
sta ICBLL,x
ora ICBLH,x ; returns Z if length is 0
rts
iocberr:pla
pla
pla
pla
ldx #$FF ; indicate error + clear ZF
rts
pla
pla
pla
ldx #$FF ; indicate error + clear ZF
rts