1* Mystery program 2* (Knuth, vol 1, p 153) 3 4printer equ 18 5buf orig *+3000 61H ent1 1 7 ent2 0 8 ldx 4F 92H ent3 0,1 103H stz buf,2 11 inc2 1 12 dec3 1 13 j3p 3B 14 stx buf,2 15 inc2 1 16 inc1 1 17 cmp1 =75= 18 jl 2B 19 enn2 2400 20 out buf+2400,2(printer) 21 inc2 24 22 j2n *-2 23 hlt 24 254H con "aaaaa" 26 end 1B 27 28* End of mystery.mix 29