e5c436a2 |
1 | * SUPERCOOLES SONDERPROGRAMM! |
2 | * |
3 | ABS |
4 | ORG '1000 |
5 | * |
6 | * |
7 | * |
8 | LDA =-50 |
9 | STA LCNT LOOP COUNTER |
10 | CRA |
11 | STA 0 ACTIVE PATTERN |
12 | LDA ='125252 |
13 | IAB |
14 | LDA ='000770 |
15 | STA MUS |
16 | * |
17 | L1S LDA =-'47777 INNER DELAY |
18 | STA CNT |
19 | LDA MUS |
20 | L1 IRS CNT |
21 | JMP *-1 |
22 | STA MUS |
23 | * |
24 | LDA MUS |
25 | JST* DISP,1 CALL INDEXED TO TABLE,HUI! |
26 | STA MUS |
27 | * |
28 | IRS LCNT |
29 | JMP L1S NOT READY TO CHANGE PATTERN |
30 | * |
31 | LDA =-50 REINITIALIZE LOOP COUNTER |
32 | STA LCNT |
33 | * |
34 | LDA 0 |
35 | AOA |
36 | ANA =7 |
37 | STA 0 |
38 | * |
39 | JMP L1S LOOP AGAIN INNER |
40 | * |
41 | MUS DEC 0 |
42 | LCNT DEC 0 |
43 | CNT DEC 0 |
44 | * |
45 | DISP DAC P0 |
46 | DAC P0 |
47 | DAC P2 |
48 | DAC P3 |
49 | DAC P4 |
50 | DAC P5 |
51 | DAC P6 |
52 | DAC P7 |
53 | * |
54 | * |
55 | P0 DAC ** |
56 | LLR 1 |
57 | JMP* P0 |
58 | P1 DAC ** |
59 | LRR 1 |
60 | JMP* P1 |
61 | P2 DAC ** |
62 | LLR 2 |
63 | JMP* P2 |
64 | P3 DAC ** |
65 | LRR 2 |
66 | JMP* P3 |
67 | P4 DAC ** |
68 | CMA |
69 | JMP* P4 |
70 | P5 DAC ** |
71 | IAB |
72 | JMP* P5 |
73 | P6 DAC ** |
74 | ICA |
75 | JMP* P6 |
76 | P7 DAC ** |
77 | ALR 1 |
78 | JMP* P7 |
79 | * |
80 | * |
81 | * THAT'S IT! |
82 | * |
83 | END |