git.sur5r.net Git - cc65/blob - libsrc/geos-common/mousesprite/prompton.s

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 21.12.99
   5
   6 ; void PromptOn (struct pixel *);
   7
   8             .importzp ptr4
   9             .export _PromptOn
  10
  11             .include "jumptab.inc"
  12             .include "geossym.inc"
  13
  14 _PromptOn:
  15         sta ptr4
  16         stx ptr4+1
  17         ldy #0
  18 promptLp:
  19         lda (ptr4),y
  20         sta stringX,y
  21         iny
  22         cpy #3
  23         bne promptLp
  24         jmp PromptOn