prog8/examples/test.p8

31 lines
540 B
Plaintext
Raw Normal View History

%import textio
2021-02-21 15:22:44 +00:00
%zeropage dontuse
%option no_sysinit
2020-12-08 00:02:38 +00:00
main {
; $1F9C0 - $1F9FF PSG registers
2021-01-13 21:32:17 +00:00
sub start() {
ubyte xx=33
when xx {
1 -> {
}
2 -> {
}
else -> {
}
else -> {
}
}
; uword freq = 1181
; cx16.vpoke(1, $f9c0, lsb(freq))
; cx16.vpoke(1, $f9c1, msb(freq))
; cx16.vpoke(1, $f9c2, %11111111) ; volume
; cx16.vpoke(1, $f9c3, %11000000) ; triangle waveform
2021-01-10 14:15:00 +00:00
}
2020-08-27 17:47:50 +00:00
}