cc65/libsrc/geos-common/file/get1stdirentry.s

;
; 1999-10-26, Maciej 'YTM/Alliance' Witkowiak
; 2020-10-29, Greg King
;

; struct filehandle* Get1stDirEntry (void);

            .import __oserror, return0
            .export _Get1stDirEntry

            .include "diskdrv.inc"
            .include "geossym.inc"

_Get1stDirEntry:
        jsr Get1stDirEntry
        stx __oserror
        txa
        bne L1                  ; jump if disk error
        lda r5L
        ldx r5H
        rts

L1:     jmp return0             ; return NULL if not valid entry
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
Made two GEOS directory functions return NULL if they can't give a valid entry. 2020-10-29 21:54:56 +00:00			`; 1999-10-26, Maciej 'YTM/Alliance' Witkowiak`
			`; 2020-10-29, Greg King`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`

			`; struct filehandle* Get1stDirEntry (void);`

Return NULL on error (or end of directory). 2020-10-29 16:42:36 +00:00			`.import __oserror, return0`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _Get1stDirEntry`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.include "diskdrv.inc"`
			`.include "geossym.inc"`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`_Get1stDirEntry:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`jsr Get1stDirEntry`
			`stx __oserror`
Return NULL on error (or end of directory). 2020-10-29 16:42:36 +00:00			`txa`
Made two GEOS directory functions return NULL if they can't give a valid entry. 2020-10-29 21:54:56 +00:00			`bne L1 ; jump if disk error`
			`lda r5L`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldx r5H`
			`rts`
Made two GEOS directory functions return NULL if they can't give a valid entry. 2020-10-29 21:54:56 +00:00
			`L1: jmp return0 ; return NULL if not valid entry`