]> git.sur5r.net Git - cc65/blob - libsrc/geos-common/disk/nxtblkalloc.s
Moved the 'disk' files from 'geos-cbm' to 'geos-common' which are believed to work...
[cc65] / libsrc / geos-common / disk / nxtblkalloc.s
1
2 ;
3 ; Maciej 'YTM/Elysium' Witkowiak
4 ;
5 ; 21.12.1999, 2.1.2003
6
7 ; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
8
9             .import popax, setoserror
10             .import gettrse
11             .importzp ptr4
12             .export _NxtBlkAlloc
13
14             .include "jumptab.inc"
15             .include "geossym.inc"
16         
17 _NxtBlkAlloc:
18         sta r2L
19         stx r2H
20         jsr popax
21         sta r4L
22         stx r4H
23         jsr popax
24         jsr gettrse
25         sta r3L
26         stx r3H
27         jsr NxtBlkAlloc
28         jmp setoserror