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 "diskdrv.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