]> git.sur5r.net Git - cc65/blob - libsrc/creativision/chline.s
Merge remote-tracking branch 'upstream/master' into creativision
[cc65] / 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