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

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