diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-18 06:06:11 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-18 06:06:11 +0100 |
| commit | cfc9644eb370055a70f3f00a957171630d207007 (patch) | |
| tree | 1461e5c25a9baed0ade4a07c72d42ee00f6d4a0f /samples/mystery.mixal | |
| parent | bab7c91f8913505c53611c774e9a30fd243bbd83 (diff) | |
| download | mdk-cfc9644eb370055a70f3f00a957171630d207007.tar.gz mdk-cfc9644eb370055a70f3f00a957171630d207007.tar.bz2 | |
Additional samples and doc from TAOCP, via ESR's MIXAL
Diffstat (limited to 'samples/mystery.mixal')
| -rw-r--r-- | samples/mystery.mixal | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/samples/mystery.mixal b/samples/mystery.mixal new file mode 100644 index 0000000..faa1775 --- /dev/null +++ b/samples/mystery.mixal @@ -0,0 +1,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 |