diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2005-09-20 00:29:32 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2005-09-20 00:29:32 +0000 |
| commit | b5d17603c0512aab528db2c511f4b0b92c5681a9 (patch) | |
| tree | 39db645301c90557902d5f8a5078aae75e658579 /samples | |
| parent | 1c67dd553c547d330c2a248d29a359f946915a2f (diff) | |
| download | mdk-b5d17603c0512aab528db2c511f4b0b92c5681a9.tar.gz mdk-b5d17603c0512aab528db2c511f4b0b92c5681a9.tar.bz2 | |
New sample mixal
Diffstat (limited to 'samples')
| -rw-r--r-- | samples/.cvsignore | 1 | ||||
| -rw-r--r-- | samples/m.mixal | 25 |
2 files changed, 26 insertions, 0 deletions
diff --git a/samples/.cvsignore b/samples/.cvsignore index a2deabf..249a1c0 100644 --- a/samples/.cvsignore +++ b/samples/.cvsignore @@ -19,6 +19,7 @@ echo.mls hello.mix hello.mls log +m.mix mixasm mixvm mixvm.core diff --git a/samples/m.mixal b/samples/m.mixal new file mode 100644 index 0000000..ae69b42 --- /dev/null +++ b/samples/m.mixal @@ -0,0 +1,25 @@ +X EQU 1000 + ORIG 3000 +MAXIMUM STJ EXIT +INIT ENT3 0,1 + JMP CHANGEM +LOOP CMPA X,3 + JGE *+3 +CHANGEM ENT2 0,3 + LDA X,3 + DEC3 1 + J3P LOOP +EXIT JMP * +START IN X+1(0) + JBUS *(0) + ENT1 100 +1H JMP MAXIMUM + LDX X,1 + STA X,1 + STX X,2 + DEC1 1 + J1P 1B + OUT X+1(1) + HLT + END START + |