]> git.sur5r.net Git - cc65/blob - libsrc/atari/chline.s
Don't add a mode when opening files for reading
[cc65] / libsrc / atari / 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         .import         popa, _gotoxy, cputdirect, setcursor
10         .importzp       tmp1
11
12 _chlinexy:
13         pha                     ; Save the length
14         jsr     popa            ; Get y
15         jsr     _gotoxy         ; Call this one, will pop params
16         pla                     ; Restore the length
17
18 _chline:
19         cmp     #0              ; Is the length zero?
20         beq     L9              ; Jump if done
21         sta     tmp1
22 L1:     lda     #$12+64         ; Horizontal line, screen code
23         jsr     cputdirect      ; Direct output
24         dec     tmp1
25         bne     L1
26 L9:     jmp     setcursor
27
28
29
30