-
Notifications
You must be signed in to change notification settings - Fork 20
Open
Description
compile millfork.jar -I .\include\ -t zxspectrum -s proga.mfk
`
import stdlib
array(word) sa[192]
array(byte) bw = [$80,$40,$20,$10,8,4,2,1]
word sad
void main() {
//precalc screen lines adresses
byte i
for i,0,to,191
{
asm
{
ld a,(i)
call $22b0
ld (sad),hl
}
sa[word (i)]=sad
}
for i,0,to,191
{
plott(i,i)
}
while true {}
}
ubyte plott(ubyte x, ubyte y) {
sad=sa[word(y)]+(x>>3)
poke(sad,peek(sad)|(bw[x&7]))
}
`
Metadata
Metadata
Assignees
Labels
No labels