f828c748 |
1 | /* |
2 | * Copyright (c) 2016, Ian Sutton <ian@kremlin.cc> |
3 | * |
4 | * Permission to use, copy, modify, and/or distribute this software for |
5 | * any purpose with or without fee is hereby granted, provided that the |
6 | * above copyright notice and this permission notice appear in all |
7 | * copies. |
8 | * |
9 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL |
10 | * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED |
11 | * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE |
12 | * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL |
13 | * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR |
14 | * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER |
15 | * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
16 | * PERFORMANCE OF THIS SOFTWARE. |
17 | */ |
18 | |
19 | .origin 0 |
20 | .entrypoint START /* used by debugger only */ |
21 | |
22 | #define PRU0_R31_VEC_VALID (1<<5) |
23 | #define SIGNUM 3 /* corresponds to PRU_EVTOUT_0 */ |
24 | |
25 | #define DELAY_SECONDS 5 |
26 | #define CLOCK 200000000 |
27 | #define CLOCKS_PER_LOOP 2 |
28 | #define DELAYCOUNT DELAY_SECONDS * CLOCK / CLOCKS_PER_LOOP |
29 | |
30 | |
31 | #define R_PINKY 0x0 |
32 | #define R_RING 0x1 |
33 | #define R_MID 0x10 |
34 | #define R_FORE 0x11 |
35 | #define R_THUMB 0x100 |
36 | #define L_THUMB 0x101 |
37 | #define L_FORE 0x110 |
38 | #define L_MID 0x111 |
39 | #define L_RING 0x1000 |
40 | #define L_PINKY 0x1001 |
41 | |
42 | #define CYCLE 4000000 |
43 | #define WIDTH_UP 120000 |
44 | #define WIDTH_DOWN 480000 |
45 | |
46 | // MOV r1, DELAYCOUNT |
47 | // ADD r1, r1, r1 |
48 | // ADD r1, r1, r1 |
49 | // ADD r1, r1, r1 |
50 | // ADD r1, r1, r1 |
51 | //DELAY: |
52 | //SUB r1, r1, 1 |
53 | //NOT r30, r30, r30 |
54 | //QBNE DELAY, r1, 0 |
55 | |
56 | START: |
57 | |
58 | MOV r1, CYCLE |
59 | MOV r2, WIDTH_UP |
60 | MOV r3, WIDTH_DOWN |
61 | MOV r4, 0xffffffff |
62 | MOV r30, 0x000003ff |
63 | MOV r5, 0x00000000 |
64 | KLOOP: |
65 | QBLE DOWN, r5, r2 |
66 | QBLE KRST, r5, r1 |
67 | ADD r5, r5, 4 |
68 | JMP KLOOP |
69 | DOWN: |
70 | MOV r30, 0x00000000 |
71 | MOV r2, 0xffffffff |
72 | JMP KLOOP |
73 | KRST: |
74 | MOV r5, 0x00000000 |
75 | MOV r30, 0x000003ff |
76 | MOV r2, WIDTH_UP |
77 | JMP KLOOP |
78 | KHALT: |
79 | MOV R31.b0, PRU0_R31_VEC_VALID | SIGNUM |
80 | HALT |
81 | |