git.sur5r.net Git - cc65/blob - libsrc/atari5200/cvline.s

   1 ;
   2 ; Ullrich von Bassewitz, 08.08.1998
   3 ;
   4 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
   5 ; void cvline (unsigned char length);
   6 ;
   7         .include "atari5200.inc"
   8
   9         .export         _cvlinexy, _cvline
  10         .import         gotoxy, putchar
  11         .importzp       tmp1
  12
  13 _cvlinexy:
  14         pha                     ; Save the length
  15         jsr     gotoxy          ; Call this one, will pop params
  16         pla                     ; Restore the length and run into _cvline
  17
  18 _cvline:
  19         cmp     #0              ; Is the length zero?
  20         beq     L9              ; Jump if done
  21         sta     tmp1
  22 L1:     lda     COLCRS_5200
  23         pha
  24         lda     #CH_VLINE       ; Vertical bar
  25         jsr     putchar         ; Write, no cursor advance
  26         pla
  27         sta     COLCRS_5200
  28         inc     ROWCRS_5200
  29         dec     tmp1
  30         bne     L1
  31 L9:     rts