mirror of
https://github.com/cc65/cc65.git
synced 2024-08-25 12:29:04 +00:00
85 lines
1.3 KiB
ArmAsm
85 lines
1.3 KiB
ArmAsm
|
;
|
||
|
; Maciej 'YTM/Elysium' Witkowiak
|
||
|
;
|
||
|
; based on Atari version by Christian Groessler
|
||
|
; 2.7.2001
|
||
|
;
|
||
|
; dhandle_t __fastcall__ dio_open (driveid_t drive_id);
|
||
|
; unsigned char __fastcall__ dio_close (dhandle_t handle);
|
||
|
;
|
||
|
; dio_open sets given device as current and initializes disk
|
||
|
; dio_close does nothing special
|
||
|
|
||
|
.export _dio_open, _dio_close
|
||
|
.import __oserror, _OpenDisk
|
||
|
.importzp ptr1, tmp1
|
||
|
.include "../inc/dio.inc"
|
||
|
.include "../inc/jumptab.inc"
|
||
|
.include "../inc/geossym.inc"
|
||
|
.include "../inc/const.inc"
|
||
|
|
||
|
.bss
|
||
|
|
||
|
sectsizetab:
|
||
|
.res 4 * sst_size ; this is hardcoded
|
||
|
|
||
|
.code
|
||
|
|
||
|
.proc _dio_open
|
||
|
pha
|
||
|
tax
|
||
|
lda driveType,x ; check if there's a device
|
||
|
bne _inv_drive
|
||
|
clc
|
||
|
adc #8 ; normalize devnum
|
||
|
sta curDevice
|
||
|
jsr SetDevice
|
||
|
jsr _OpenDisk ; take care for errors there
|
||
|
|
||
|
pla
|
||
|
tay ; drive #
|
||
|
asl a ; make index from drive id
|
||
|
asl a
|
||
|
tax
|
||
|
|
||
|
lda #0
|
||
|
sta sectsizetab+sst_sectsize,x
|
||
|
lda #128
|
||
|
sta sectsizetab+sst_flag,x ; set flag that drive is "open"
|
||
|
lda #1
|
||
|
sta sectsizetab+sst_sectsize+1,x
|
||
|
tya
|
||
|
sta sectsizetab+sst_driveno,x
|
||
|
|
||
|
stx tmp1
|
||
|
lda #<sectsizetab
|
||
|
clc
|
||
|
adc tmp1
|
||
|
sta tmp1
|
||
|
lda #>sectsizetab
|
||
|
adc #0
|
||
|
tax
|
||
|
lda tmp1
|
||
|
|
||
|
rts
|
||
|
|
||
|
_inv_drive:
|
||
|
lda #DEV_NOT_FOUND
|
||
|
sta __oserror
|
||
|
lda #0
|
||
|
tax
|
||
|
rts
|
||
|
|
||
|
.endproc
|
||
|
|
||
|
.proc _dio_close
|
||
|
sta ptr1
|
||
|
stx ptr1+1
|
||
|
lda #0
|
||
|
ldy #sst_flag
|
||
|
sta (ptr1),y
|
||
|
sta __oserror ; success
|
||
|
tax
|
||
|
rts ; return no error
|
||
|
.endproc
|