git.sur5r.net Git - cc65/blob - libsrc/geos/file/followchain.s

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 25.12.99
   6
   7 ; char FollowChain  (struct tr_se *myTrSe, char *buffer);
   8
   9             .export _FollowChain
  10             .import popax
  11             .import gettrse
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/geossym.inc"
  15
  16 _FollowChain:
  17         sta r3L
  18         stx r3H
  19         jsr popax
  20         jsr gettrse
  21         sta r1L
  22         stx r1H
  23         jsr FollowChain
  24         stx errno
  25         txa
  26         rts