Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 9ab841033d
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (25 sloc) 0.299 kB
* Mystery program
* (Knuth, vol 1, p 153)
printer equ 18
buf orig *+3000
1H ent1 1
ent2 0
ldx 4F
2H ent3 0,1
3H stz buf,2
inc2 1
dec3 1
j3p 3B
stx buf,2
inc2 1
inc1 1
cmp1 =75=
jl 2B
enn2 2400
out buf+2400,2(printer)
inc2 24
j2n *-2
hlt
4H con "aaaaa"
end 1B
* End of mystery.mix
Jump to Line
Something went wrong with that request. Please try again.