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

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 25.12.1999, 2.1.2003
   5
   6 ; char FindFTypes  (char *buffer, char fileType, char fileMax, char *Class);
   7
   8             .export _FindFTypes
   9             .import popax, popa, setoserror
  10
  11             .include "jumptab.inc"
  12             .include "diskdrv.inc"
  13             .include "geossym.inc"
  14
  15 .code
  16
  17 _FindFTypes:
  18         sta r10L
  19         stx r10H
  20         jsr popa
  21         sta r7H
  22         sta tmpFileMax
  23         jsr popa
  24         sta r7L
  25         jsr popax
  26         sta r6L
  27         stx r6H
  28         jsr FindFTypes
  29         jsr setoserror
  30 ; return (fileMax - r7H)
  31         lda tmpFileMax
  32         sec
  33         sbc r7H
  34         rts
  35
  36 .bss
  37
  38 tmpFileMax:
  39         .res 1