git.sur5r.net Git - cc65/blob - libsrc/pet/kplot.s

   1 ;
   2 ; Ullrich von Bassewitz, 2002-12-12
   3 ;
   4 ; PLOT replacement function for the PETs
   5 ;
   6
   7         .export         PLOT
   8         .import         plot            ; from cputc.s
   9
  10         .include        "pet.inc"
  11
  12
  13 .proc   PLOT
  14
  15         bcs     @L1                     ; Fetch values if carry set
  16         sty     CURS_X
  17         stx     CURS_Y
  18         jsr     plot
  19 @L1:    ldy     CURS_X
  20         ldx     CURS_Y
  21         rts
  22
  23 .endproc
  24
  25