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 _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         jsr setoserror
  28 ; return (fileMax - r7H)
  29         lda tmpFileMax
  30         sec
  31         sbc r7H
  32         rts
  33
  34 .bss
  35
  36 tmpFileMax:
  37         .res 1