git.sur5r.net Git - cc65/blob - libsrc/geos/memory/fillram.s

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 30.10.99, 15.07.2001
   6
   7 ; void * FillRam         (char *dest, char what, int length);
   8
   9             .import popa, popax
  10             .export _FillRam
  11
  12             .include "../inc/jumptab.inc"
  13             .include "../inc/geossym.inc"
  14
  15 _FillRam:
  16             sta r0L
  17             stx r0H
  18             jsr popa
  19             sta r2L
  20             jsr popax
  21             sta r1L
  22             stx r1H
  23             pha
  24             txa
  25             pha
  26             jsr FillRam
  27             pla
  28             tax
  29             pla
  30             rts