the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests 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

118
libsrc/atari/siocall.s
View File

@@ -7,83 +7,83 @@
; to save space with _dio_read and _dio_write functions.
;
; unsigned char __fastcall__ _sio_call(dhandle_t handle,
; unsigned sect_num,
; void *buffer,
; unsigned sio_val);
; unsigned sect_num,
; void *buffer,
; unsigned sio_val);
; dhandle_t - 16bit (ptr)
; sio_val is (sio_command | sio_direction << 8)
;
.export __sio_call
.include "atari.inc"
.import popa,popax
.import sectsizetab,__oserror
.importzp ptr1
.export __sio_call
.include "atari.inc"
.import popa,popax
.import sectsizetab,__oserror
.importzp ptr1
.proc __sio_call
.proc __sio_call
sta DCOMND ; set command into DCB
stx DSTATS ; set data flow directon
jsr popax ; get buffer address
sta DBUFLO ; set buffer address into DCB
stx DBUFHI
jsr popax
sta DAUX1 ; set sector #
stx DAUX2
sta DCOMND ; set command into DCB
stx DSTATS ; set data flow directon
jsr popax ; get buffer address
sta DBUFLO ; set buffer address into DCB
stx DBUFHI
jsr popax
sta DAUX1 ; set sector #
stx DAUX2
jsr popax
sta ptr1
stx ptr1+1
jsr popax
sta ptr1
stx ptr1+1
ldy #sst_flag
lda (ptr1),y
and #128
beq _inv_hand ; handle not open or invalid
ldy #sst_flag
lda (ptr1),y
and #128
beq _inv_hand ; handle not open or invalid
ldy #sst_driveno
lda (ptr1),y
ldy #sst_driveno
lda (ptr1),y
clc
adc #1
sta DUNIT ; unit number (d1,d2,d3,...)
clc
adc #1
sta DUNIT ; unit number (d1,d2,d3,...)
lda DAUX2 ; high byte sector #
bne _realsz
lda DAUX1
cmp #4 ; sectors 1 to 3 are special (always 128 bytes)
bcs _realsz
lda DAUX2 ; high byte sector #
bne _realsz
lda DAUX1
cmp #4 ; sectors 1 to 3 are special (always 128 bytes)
bcs _realsz
lda #$80
sta DBYTLO
asl a
sta DBYTHI
beq _cont
lda #$80
sta DBYTLO
asl a
sta DBYTHI
beq _cont
_realsz:ldy #sst_sectsize
lda (ptr1),y
sta DBYTLO
iny
lda (ptr1),y
sta DBYTHI
_realsz:ldy #sst_sectsize
lda (ptr1),y
sta DBYTLO
iny
lda (ptr1),y
sta DBYTHI
_cont: lda #DISKID ; SIO bus ID of diskette drive
sta DDEVIC
lda #15
sta DTIMLO ; value got from DOS source
_cont: lda #DISKID ; SIO bus ID of diskette drive
sta DDEVIC
lda #15
sta DTIMLO ; value got from DOS source
jsr SIOV ; execute
jsr SIOV ; execute
ldx #0
lda DSTATS
bmi _req_err ; error occurred
txa ; no error occurred
ldx #0
lda DSTATS
bmi _req_err ; error occurred
txa ; no error occurred
_req_err:
sta __oserror
rts
sta __oserror
rts
_inv_hand:
ldx #0
lda #BADIOC
bne _req_err
ldx #0
lda #BADIOC
bne _req_err
.endproc