1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/cbm/syschdir.s

95 lines
1.6 KiB
ArmAsm
Raw Normal View History

;
; Oliver Schmidt, 2012-10-16
;
; unsigned char __fastcall__ _syschdir (const char* name);
;
.export __syschdir
.import diskinit, fnunit, curunit, initcwd
.importzp ptr1, tmp1, tmp2
;--------------------------------------------------------------------------
; __syschdir
.proc __syschdir
; Save name
sta ptr1
stx ptr1+1
; Process first character
ldy #0
lda (ptr1),y
beq err
jsr getdigit
bcs err
tax
; Process second character
iny
lda (ptr1),y
beq init
jsr getdigit
bcs err
stx tmp1 ; First digit
sta tmp2 ; Second digit
; Multiply first digit by 10
ldx #8
@L0: asl
asl tmp1
bcc @L1
clc
adc #10
@L1: dex
bne @L0
; Add second digit to product
clc
adc tmp2
tax
; Process third character
iny
lda (ptr1),y
bne err
; Check device readiness
init: txa
jsr diskinit
bne done
; Success, update cwd
lda fnunit ; Set by diskinit
sta curunit
jmp initcwd ; Returns with A = 0
; Return with error in A
err: lda #9 ; "Ilegal device"
done: rts
.endproc
;--------------------------------------------------------------------------
; getdigit
.proc getdigit
sec
sbc #'0'
bcs @L0
sec
rts
@L0: cmp #10
rts
.endproc