git.sur5r.net Git - cc65/blob - libsrc/telestrat/chline.s

   1 ;
   2 ; jede jede@oric.org 2018-04-17
   3 ;
   4
   5 ; void chline (unsigned char length);
   6 ;
   7
   8         .export         _chline
   9         .include        "telestrat.inc"
  10         .include        "zeropage.inc"
  11
  12
  13 .proc _chline
  14     sta     tmp1
  15 @loop:
  16     lda     #'-'            ; horizontal line screen code
  17     BRK_TELEMON  XWR0       ; macro send char to screen (channel 0 in telemon terms)
  18     dec     tmp1
  19     bne     @loop
  20     rts
  21 .endproc
  22