Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -4,28 +4,28 @@
|
||||
; dhandle_t __fastcall__ dio_open (unsigned char device);
|
||||
;
|
||||
|
||||
.export _dio_open
|
||||
.import return0, __dos_type, isdevice
|
||||
.export _dio_open
|
||||
.import return0, __dos_type, isdevice
|
||||
|
||||
.include "errno.inc"
|
||||
.include "mli.inc"
|
||||
.include "errno.inc"
|
||||
.include "mli.inc"
|
||||
|
||||
_dio_open:
|
||||
; Check for ProDOS 8
|
||||
ldx __dos_type
|
||||
bne :+
|
||||
lda #$01 ; "Bad system call number"
|
||||
bne oserr ; Branch always
|
||||
ldx __dos_type
|
||||
bne :+
|
||||
lda #$01 ; "Bad system call number"
|
||||
bne oserr ; Branch always
|
||||
|
||||
; Check for valid device
|
||||
: tax
|
||||
jsr isdevice
|
||||
beq :+
|
||||
lda #$28 ; "No device connected"
|
||||
jsr isdevice
|
||||
beq :+
|
||||
lda #$28 ; "No device connected"
|
||||
|
||||
; Return oserror
|
||||
oserr: sta __oserror
|
||||
jmp return0
|
||||
oserr: sta __oserror
|
||||
jmp return0
|
||||
|
||||
; Return success
|
||||
: txa
|
||||
@@ -33,6 +33,6 @@ oserr: sta __oserror
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
ldx #$00
|
||||
stx __oserror
|
||||
ldx #$00
|
||||
stx __oserror
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user