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

   1 ;
   2 ; Ullrich von Bassewitz, 08.08.1998
   3 ;
   4 ; void __fastcall__ chlinexy (unsigned char x, unsigned char y, unsigned char length);
   5 ; void __fastcall__ chline (unsigned char length);
   6 ;
   7
   8         .export         _chlinexy, _chline, chlinedirect
   9         .import         gotoxy, cputdirect
  10
  11         .include        "zeropage.inc"
  12         .include        "apple2.inc"
  13
  14 _chlinexy:
  15         pha                     ; Save the length
  16         jsr     gotoxy          ; Call this one, will pop params
  17         pla                     ; Restore the length and run into _chline
  18
  19 _chline:
  20         .ifdef  __APPLE2ENH__
  21         ldx     #'_' | $80      ; Underscore, screen code
  22         .else
  23         ldx     #'-' | $80      ; Minus, screen code
  24         .endif
  25
  26 chlinedirect:
  27         stx     tmp1
  28         cmp     #$00            ; Is the length zero?
  29         beq     done            ; Jump if done
  30         sta     tmp2
  31 :       lda     tmp1            ; Screen code
  32         jsr     cputdirect      ; Direct output
  33         dec     tmp2
  34         bne     :-
  35 done:   rts