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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 21.12.99
   6
   7 ; char NxtBlkAlloc (struct tr_se *startTS, struct tr_se output[], int length );
   8
   9             .import popax
  10             .import gettrse
  11             .importzp ptr4
  12             .export _NxtBlkAlloc
  13
  14             .include "../inc/jumptab.inc"
  15             .include "../inc/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         stx errno
  29         txa
  30         rts