Skip to content
Newer
Older
100644 29 lines (25 sloc) 299 Bytes
9ab8410 @darius mixal-1.11
authored
1 * Mystery program
2 * (Knuth, vol 1, p 153)
3
4 printer equ 18
5 buf orig *+3000
6 1H ent1 1
7 ent2 0
8 ldx 4F
9 2H ent3 0,1
10 3H 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
25 4H con "aaaaa"
26 end 1B
27
28 * End of mystery.mix
Something went wrong with that request. Please try again.