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

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