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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 29.1.00
   6
   7             .export gettrse
   8             .importzp ptr4
   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