git.sur5r.net Git - cc65/blob - libsrc/c64/soft80_cvline.s

   1 ;
   2 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
   3 ; void cvline (unsigned char length);
   4 ;
   5
   6         .export         soft80_cvline, soft80_cvlinexy
   7         .import         popa, _gotoxy, soft80_putchar, soft80_newline
   8         .importzp       tmp1
   9
  10 soft80_cvlinexy:
  11         pha                     ; Save the length
  12         jsr     popa            ; Get y
  13         jsr     _gotoxy         ; Call this one, will pop params
  14         pla                     ; Restore the length and run into soft80_cvlinexy
  15
  16 soft80_cvline:
  17         cmp     #0              ; Is the length zero?
  18         beq     L9              ; Jump if done
  19         sta     tmp1
  20 L1:     lda     #125            ; Vertical bar
  21         jsr     soft80_putchar  ; Write, no cursor advance
  22         jsr     soft80_newline  ; Advance cursor to next line
  23         dec     tmp1
  24         bne     L1
  25 L9:     rts
  26
  27
  28