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

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