git.sur5r.net Git - cc65/blob - libsrc/geos-common/disk/nxtblkalloc.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 21.12.1999, 2.1.2003
   5
   6 ; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
   7
   8             .import popax, setoserror
   9             .import gettrse
  10             .importzp ptr4
  11             .export _NxtBlkAlloc
  12
  13             .include "jumptab.inc"
  14             .include "geossym.inc"
  15
  16 _NxtBlkAlloc:
  17         sta r2L
  18         stx r2H
  19         jsr popax
  20         sta r4L
  21         stx r4H
  22         jsr popax
  23         jsr gettrse
  24         sta r3L
  25         stx r3H
  26         jsr NxtBlkAlloc
  27         jmp setoserror