.include "atari.inc"
.importzp tmp1,tmp4,ptr1,ptr2
- .import mul40,_clrscr
+ .import _mul40,_clrscr
.export __scroll
.proc __scroll
sta ptr2+1
lda tmp1
- jsr mul40
+ jsr _mul40
sta tmp4
lda ptr2
sec
jmp _clrscr
;multiply by 40 (xsize)
-up_ok: jsr mul40
- clc
+up_ok: jsr _mul40 ; carry is cleared by _mul40
adc SAVMSC ; add start of screen mem
sta ptr2
txa