diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-03-22 03:01:01 +0000 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2001-03-22 03:01:01 +0000 |
commit | 1c345e559710ec6200f7d508629bd24457a20a80 (patch) | |
tree | 4ebccd7c4719cf56da7151af6659992bd1dbb276 /samples/primes.mixal | |
parent | 50375f34b611281a3b05a37221e2baa143f5f5ca (diff) | |
download | mdk-1c345e559710ec6200f7d508629bd24457a20a80.tar.gz mdk-1c345e559710ec6200f7d508629bd24457a20a80.tar.bz2 |
initial import (sf 0.3beta)
Diffstat (limited to 'samples/primes.mixal')
-rw-r--r-- | samples/primes.mixal | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/samples/primes.mixal b/samples/primes.mixal new file mode 100644 index 0000000..d8e6eef --- /dev/null +++ b/samples/primes.mixal @@ -0,0 +1,54 @@ +* table of primes (taopc p. 148) +* +L EQU 500 +OUTDEV EQU 20 the paper tape +PRIME EQU -1 +BUF0 EQU 2000 +BUF1 EQU BUF0+25 + ORIG 3000 +START IOC 0(OUTDEV) + LD1 =1-L= + LD2 =3= +2H INC1 1 + ST2 PRIME+L,1 + J1Z 2F +4H INC2 2 + ENT3 2 +6H ENTA 0 + ENTX 0,2 + DIV PRIME,3 + JXZ 4B + CMPA PRIME,3 + INC3 1 + JG 6B + JMP 2B +2H OUT TITLE(OUTDEV) + ENT4 BUF1+10 + ENT5 -50 +2H INC5 L+1 +4H LDA PRIME,5 + CHAR + STX 0,4(1:4) + DEC4 1 + DEC5 50 + J5P 4B + OUT 0,4(OUTDEV) + LD4 24,4 + J5N 2B + HLT +* initial contents + ORIG PRIME+1 + CON 2 + ORIG BUF0-5 +TITLE ALF "FIRST" + ALF " FIVE" + ALF " HUND" + ALF "RED P" + ALF "RIMES" + ORIG BUF0+24 + CON BUF1+10 + ORIG BUF1+24 + CON BUF0+10 + END START + +
\ No newline at end of file |