]> git.sur5r.net Git - cc65/blob - libsrc/geos-common/file/get1stdirentry.s
On Apple GEOS all "low jumptable" entries went into 'diskdrv.inc'. So this needs...
[cc65] / libsrc / geos-common / file / get1stdirentry.s
1 ;
2 ; Maciej 'YTM/Alliance' Witkowiak
3 ;
4 ; 26.10.99
5
6 ; struct filehandle* Get1stDirEntry (void);
7
8             .import __oserror
9             .export _Get1stDirEntry
10
11             .include "diskdrv.inc"
12             .include "geossym.inc"
13
14 _Get1stDirEntry:
15         jsr Get1stDirEntry
16         stx __oserror
17         lda r5L
18         ldx r5H
19         rts