git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_bar.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void __fastcall__ tgi_bar (int x1, int y1, int x2, int y2);
   5 ; /* Draw a bar (a filled rectangle) using the current color */
   6
   7
   8         .include        "tgi-kernel.inc"
   9
  10         .import         popax
  11         .importzp       ptr1, ptr2, ptr3, ptr4
  12         .export         _tgi_bar
  13
  14 _tgi_bar:
  15         sta     ptr4            ; Get the coordinates
  16         stx     ptr4+1
  17         jsr     popax
  18         sta     ptr3
  19         stx     ptr3+1
  20         jsr     popax
  21         sta     ptr2
  22         stx     ptr2+1
  23         jsr     popax
  24         sta     ptr1
  25         stx     ptr1+1
  26
  27         jmp     tgi_line        ; Call the driver
  28
  29