git.sur5r.net Git - cc65/blob - libsrc/geos-common/disk/gettrse.s

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 29.1.00
   5
   6             .export gettrse
   7             .importzp ptr4
   8
   9 gettrse:
  10         sta ptr4
  11         stx ptr4+1
  12         ldy #1
  13         lda (ptr4),y
  14         tax
  15         dey
  16         lda (ptr4),y
  17         rts