; ; File generated by cc65 v 2.19 - Git ab8bb268 ; .fopt compiler,"cc65 v 2.19 - Git ab8bb268" .setcpu "6502" .smart on .autoimport on .case on .debuginfo off .importzp sp, sreg, regsave, regbank .importzp tmp1, tmp2, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4 .macpack longbranch .import _malloc .import _memcpy .import _open .import __errno .export _opendir .import __dirread ; --------------------------------------------------------------- ; struct DIR *__near__ __fastcall__ opendir (register const char *name) ; --------------------------------------------------------------- .segment "CODE" .proc _opendir: near .segment "CODE" jsr pushax ldy #$00 ldx #$04 jsr regswap2 jsr decsp2 jsr push0 ldy #$15 jsr subysp lda #$24 ldy #$04 sta (sp),y lda regbank+4 ora regbank+4+1 beq L0026 lda (regbank+4,x) beq L0026 cmp #$2E bne L0027 ldy #$01 lda (regbank+4),y bne L0027 L0026: ldy #$05 sta (sp),y jmp L0024 L0027: lda (regbank+4,x) cmp #$30 beq L001F cmp #$31 bne L0023 L001F: ldy #$01 lda (regbank+4),y cmp #$3A bne L0023 iny lda (regbank+4),y bne L0023 lda (regbank+4,x) ldy #$05 sta (sp),y lda #$00 iny sta (sp),y jmp L0024 L0023: lda #$07 jmp L0025 L0024: lda #$02 tay jsr staxysp lda #$04 jsr leaa0sp jsr pushax lda #$01 jsr pusha0 ldy #$04 jsr _open jsr stax0sp txa bmi L0015 lda sp ldx sp+1 jsr pushax lda #$19 jsr leaa0sp jsr pushax lda #$02 jsr __dirread tax beq L0015 ldx #$00 lda #$15 jsr _malloc ldy #$15 jsr staxysp ldy #$16 lda (sp),y dey ora (sp),y beq L0014 ldy #$18 jsr pushwysp lda #$02 jsr leaa0sp jsr pushax ldx #$00 lda #$15 jsr _memcpy jmp L0015 L0014: tax lda #$02 L0025: sta __errno stx __errno+1 L0015: ldy #$16 jsr ldaxysp pha ldy #$19 lda (sp),y sta regbank+4 iny lda (sp),y sta regbank+5 pla iny jmp addysp .segment "RODATA" M0001: .word $0000 .endproc