]> git.sur5r.net Git - cc65/blob - libsrc/atari/scroll.s
Don't add a mode when opening files for reading
[cc65] / libsrc / atari / scroll.s
1 ;
2 ; Christian Groessler, June 2000
3 ;
4 ; void __fastcall__ scroll (signed char numlines);
5 ; numlines > 0  scrolls up
6 ; numlines < 0  scrolls down
7 ;
8
9         .include        "atari.inc"
10         .importzp       tmp1,tmp4,ptr1,ptr2
11         .import         mul40,_clrscr
12         .export         _scroll
13
14 .proc   _scroll
15
16         cmp     #0
17         beq     jmpfin
18 ;       cmp     #$80
19 ;       bcc     up
20         bpl     up
21
22 ;scroll down
23         eor     #$ff
24         clc
25         adc     #1              ; make positive
26         sta     tmp1
27
28         cmp     #24             ; scroll >= the whole screen?
29         bcc     down_ok
30         jmp     _clrscr
31
32 down_ok:lda     SAVMSC
33         clc
34         adc     #<(40*23)
35         sta     ptr1
36         sta     ptr2
37         lda     SAVMSC+1
38         adc     #>(40*23)
39         sta     ptr1+1          ; point to last line on screen
40         sta     ptr2+1
41
42         lda     tmp1
43         jsr     mul40
44         sta     tmp4
45         lda     ptr2
46         sec
47         sbc     tmp4
48         sta     ptr2
49         stx     tmp4
50         lda     ptr2+1
51         sbc     tmp4
52         sta     ptr2+1
53
54         lda     #24             ; # of lines on screen
55         sec
56         sbc     tmp1            ; # of lines to move
57         tax
58
59         ;very simple, could be improved
60
61 scrold: ldy     #39             ; # of chars on a line - 1
62 copy_d: lda     (ptr2),y
63         sta     (ptr1),y
64         dey
65         bpl     copy_d
66         lda     ptr1
67         sec
68         sbc     #40
69         sta     ptr1
70         bcs     u1
71         dec     ptr1+1
72 u1:     lda     ptr2
73         sec
74         sbc     #40
75         sta     ptr2
76         bcs     u2
77         dec     ptr2+1
78 u2:     dex
79         bne     scrold
80
81         ; fill new scrolled in lines with space
82
83         ldx     tmp1            ; # of new lines
84 fild:   lda     #0
85         ldy     #39
86 fill_d: sta     (ptr1),y
87         dey
88         bpl     fill_d
89         dex
90 jmpfin: beq     finish
91         lda     ptr1
92         sec
93         sbc     #40
94         sta     ptr1
95         bcs     u3
96         dec     ptr1+1
97 u3:     jmp     fild
98
99 ;scroll up
100 up:     sta     tmp1            ; # of lines to scroll
101         cmp     #24             ; scroll >= the whole screen?
102         bcc     up_ok
103         jmp     _clrscr
104
105         ;multiply by 40 (xsize)
106 up_ok:  jsr     mul40
107         clc
108         adc     SAVMSC          ; add start of screen mem
109         sta     ptr2
110         txa
111         adc     SAVMSC+1
112         sta     ptr2+1
113         lda     SAVMSC+1
114         sta     ptr1+1
115         lda     SAVMSC
116         sta     ptr1
117         lda     #24             ; # of lines on screen
118         sec
119         sbc     tmp1            ; # of lines to move
120         tax
121
122         ;very simple, could be improved
123
124 scroll: ldy     #39             ; # of chars on a line - 1
125 copy_l: lda     (ptr2),y
126         sta     (ptr1),y
127         dey
128         bpl     copy_l
129         lda     #40
130         clc
131         adc     ptr1
132         sta     ptr1
133         bcc     l1
134         inc     ptr1+1
135 l1:     lda     #40
136         clc
137         adc     ptr2
138         sta     ptr2
139         bcc     l2
140         inc     ptr2+1
141 l2:     dex
142         bne     scroll
143
144         ; fill new scrolled in lines with space
145
146         ldx     tmp1            ; # of new lines
147 fill:   lda     #0
148         ldy     #39
149 fill_l: sta     (ptr1),y
150         dey
151         bpl     fill_l
152         dex
153         beq     finish
154         lda     #40
155         clc
156         adc     ptr1
157         sta     ptr1
158         bcc     l3
159         inc     ptr1+1
160 l3:     jmp     fill
161
162 finish: rts
163
164 .endproc