]> git.sur5r.net Git - cc65/blob - libsrc/atari5200/cvline.s
Replace hard returns with an "else", add an error for non-IDENT tokens, and test...
[cc65] / libsrc / atari5200 / cvline.s
1 ;
2 ; Ullrich von Bassewitz, 08.08.1998
3 ;
4 ; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
5 ; void cvline (unsigned char length);
6 ;
7         .include "atari5200.inc"
8         
9         .export         _cvlinexy, _cvline
10         .import         gotoxy, putchar
11         .importzp       tmp1
12
13 _cvlinexy:
14         pha                     ; Save the length
15         jsr     gotoxy          ; Call this one, will pop params
16         pla                     ; Restore the length and run into _cvline
17
18 _cvline:
19         cmp     #0              ; Is the length zero?
20         beq     L9              ; Jump if done
21         sta     tmp1
22 L1:     lda     COLCRS_5200
23         pha
24         lda     #CH_VLINE       ; Vertical bar
25         jsr     putchar         ; Write, no cursor advance
26         pla
27         sta     COLCRS_5200
28         inc     ROWCRS_5200
29         dec     tmp1
30         bne     L1
31 L9:     rts