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

   1 ;
   2 ; Ullrich von Bassewitz, 13.09.2001
   3 ;
   4 ; PLOT routine for the 510.
   5 ;
   6
   7         .export         PLOT
   8         .import         __VIDRAM_START__
   9         .importzp       crtc
  10
  11         .include        "cbm510.inc"
  12
  13         .macpack        generic
  14
  15 ; ------------------------------------------------------------------------
  16 ;
  17
  18 .proc   PLOT
  19
  20         bcs     get
  21
  22         stx     CURS_Y
  23         sty     CURS_X
  24
  25         lda     LineLSBTab,x
  26         sta     SCREEN_PTR
  27         sta     CRAM_PTR
  28         lda     LineMSBTab,x
  29         sta     SCREEN_PTR+1
  30         sub     #>__VIDRAM_START__
  31         add     #>COLOR_RAM
  32         sta     CRAM_PTR+1
  33
  34 get:    ldx     CURS_Y
  35         ldy     CURS_X
  36
  37         rts
  38
  39 .endproc
  40
  41 ; -------------------------------------------------------------------------
  42 ; Low bytes of the start address of the screen lines
  43
  44 .rodata
  45
  46 .macro  LineLoTab
  47         .repeat 25, I
  48         .byte   <(__VIDRAM_START__ + I * 40)
  49         .endrep
  50 .endmacro
  51
  52 LineLSBTab:     LineLoTab
  53
  54 ; -------------------------------------------------------------------------
  55 ; High bytes of the start address of the screen lines
  56
  57 .macro  LineHiTab
  58         .repeat 25, I
  59         .byte   >(__VIDRAM_START__ + I * 40)
  60         .endrep
  61 .endmacro
  62
  63 LineMSBTab:     LineHiTab
  64
  65
  66