1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
* 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