; 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
asl
asl
asl
- ldx #$00
- stx __oserror
+ ldx #$00
+ stx __oserror
rts