mirror of
https://github.com/exoticorn/microw8.git
synced 2026-01-20 11:16:42 +01:00
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
include "../include/microw8-api.cwa"
|
|
|
|
global mut frame = 0;
|
|
|
|
export fn upd() {
|
|
if frame % 16 == 0 {
|
|
let ch: i32;
|
|
loop channels {
|
|
playNote(ch, (ch * 32 + (frame / 16) % 32)?0x20000);
|
|
branch_if ch := (ch + 1) % 4: channels;
|
|
}
|
|
}
|
|
frame = frame + 1;
|
|
}
|
|
|
|
data 0x20000 {
|
|
i8(
|
|
0x4e, 0x0, 0x0, 0x4c, 0x49, 0x0, 0x45, 0x47,
|
|
0x49, 0x47, 0x45, 0x44, 0x42, 0x0, 0x3d, 0x41,
|
|
0x44, 0x0, 0x0, 0x47, 0x49, 0x47, 0x45, 0x41,
|
|
0x44, 0x0, 0x0, 0x0, 0x42, 0x0, 0x0, 0x0,
|
|
|
|
0x25, 0, 0x49, 0x25, 0x25, 0, 0x49, 0x38,
|
|
0x25, 0, 0x49, 0x25, 0x25, 0, 0x49, 0x38,
|
|
0x25, 0, 0x49, 0x25, 0x25, 0, 0x49, 0x38,
|
|
0x25, 0, 0x49, 0x25, 0x25, 0, 0x49, 0x38,
|
|
|
|
0x2a, 0x0, 0x0, 0x0, 0x2d, 0x0, 0x0, 0x0,
|
|
0x2c, 0x0, 0x28, 0x0, 0x2a, 0x0, 0x0, 0x0,
|
|
0x25, 0x0, 0x0, 0x0, 0x29, 0x0, 0x0, 0x0,
|
|
0x2c, 0x0, 0x2d, 0x0, 0x2a, 0x0, 0x25, 0x0,
|
|
|
|
0x0, 0x0, 0x31, 0x0, 0x34, 0x0, 0x0, 0x36,
|
|
0x38, 0x39, 0x38, 0x34, 0x36, 0x0, 0x0, 0x0,
|
|
0x0, 0x3d, 0x3b, 0x39, 0x38, 0x0, 0x0, 0x0,
|
|
0x0, 0x39, 0x38, 0x39, 0x38, 0x0, 0x36, 0x0
|
|
)
|
|
} |