git.sur5r.net Git - cc65/blob - libsrc/cbm/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
   8         .export         _cvlinexy, _cvline
   9         .import         gotoxy, putchar, newline
  10         .importzp       tmp1, cvlinechar
  11
  12 _cvlinexy:
  13         pha                     ; Save the length
  14         jsr     gotoxy          ; Call this one, will pop params
  15         pla                     ; Restore the length and run into _cvline
  16
  17 _cvline:
  18         cmp     #0              ; Is the length zero?
  19         beq     L9              ; Jump if done
  20         sta     tmp1
  21 L1:     lda     #cvlinechar     ; Vertical bar
  22         jsr     putchar         ; Write, no cursor advance
  23         jsr     newline         ; Advance cursor to next line
  24         dec     tmp1
  25         bne     L1
  26 L9:     rts