millfork
millfork copied to clipboard
Program not compiled
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])) }
`