| 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 |