]> git.sur5r.net Git - cc65/blob - libsrc/atari/mul40.s
Don't add a mode when opening files for reading
[cc65] / libsrc / atari / mul40.s
1 ;
2 ; Christian Groessler, June 2000
3 ;
4 ; mul40
5 ; multiplies A by 40 and returns result in AX
6 ; uses tmp4
7
8         .importzp       tmp4
9         .export         mul40
10
11 .proc   mul40
12
13         ldx     #0
14         stx     tmp4
15         sta     loc_tmp
16         asl     a
17         rol     tmp4
18         asl     a
19         rol     tmp4            ; val * 4
20         adc     loc_tmp
21         bcc     L1
22         inc     tmp4            ; val * 5
23 L1:     asl     a
24         rol     tmp4            ; val * 10
25         asl     a
26         rol     tmp4
27         asl     a
28         rol     tmp4            ; val * 40
29         ldx     tmp4
30         rts
31
32 .endproc
33
34         .bss
35 loc_tmp:.res    1