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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 25.12.99
   6
   7 ; char FindFTypes  (char *buffer, char fileType, char fileMax, char *Class);
   8
   9             .export _FindFTypes
  10             .import popax, popa
  11
  12             .include "../inc/jumptab.inc"
  13             .include "../inc/geossym.inc"
  14
  15 _FindFTypes:
  16         sta r10L
  17         stx r10H
  18         jsr popa
  19         sta r7H
  20         jsr popa
  21         sta r7L
  22         jsr popax
  23         sta r6L
  24         stx r6H
  25         jsr FindFTypes
  26         stx errno
  27         txa
  28         rts