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

   1 ;
   2 ; Ullrich von Bassewitz, 08.08.1998
   3 ;
   4 ; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
   5 ; void chline (unsigned char length);
   6 ;
   7
   8         .export         _chlinexy, _chline
   9
  10         .import         gotoxy, cputdirect
  11         .importzp       tmp1
  12
  13         .include        "pce.inc"
  14
  15 _chlinexy:
  16         pha                     ; Save the length
  17         jsr     gotoxy          ; Call this one, will pop params
  18         pla                     ; Restore the length
  19
  20 _chline:
  21         cmp     #0              ; Is the length zero?
  22         beq     L9              ; Jump if done
  23         sta     tmp1
  24 L1:     lda     #CH_HLINE       ; Horizontal line, screen code
  25         jsr     cputdirect      ; Direct output
  26         dec     tmp1
  27         bne     L1
  28 L9:     rts