git.sur5r.net Git - cc65/blob - libsrc/cbm/telldir.s

   1 ;
   2 ; Ullrich von Bassewitz, 2012-06-03
   3 ;
   4 ; Based on C code by Groepaz
   5 ;
   6 ; long __fastcall__ telldir (DIR *dir);
   7 ;
   8
   9
  10         .include        "dir.inc"
  11         .include        "zeropage.inc"
  12
  13
  14 .proc   _telldir
  15
  16         sta     ptr1
  17         stx     ptr1+1
  18
  19 ; Clear high word of returned value
  20
  21         lda     #0
  22         sta     sreg
  23         sta     sreg+1
  24
  25 ; Return dir->off
  26
  27         ldy     #DIR::off+1
  28         lda     (ptr1),y
  29         tax
  30         dey
  31         lda     (ptr1),y
  32         rts
  33
  34 .endproc
  35