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

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 25.12.99, 30.7.2000
   6
   7 ; char FindFTypes  (char *buffer, char fileType, char fileMax, char *Class);
   8
   9             .export _FindFTypes
  10             .import popax, popa, __oserror
  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         sta tmpFileMax
  21         jsr popa
  22         sta r7L
  23         jsr popax
  24         sta r6L
  25         stx r6H
  26         jsr FindFTypes
  27         stx __oserror
  28 ; return (fileMax - r7H)
  29         lda tmpFileMax
  30         sec
  31         sbc r7H
  32         rts
  33
  34 tmpFileMax:     .byte 0