.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 ; carry is cleared by _mul40
+up_ok: jsr __mul40 ; carry is cleared by __mul40
adc SAVMSC ; add start of screen mem
sta ptr2
txa