Setun 70 Software

Balanced Ternary Numeral System - forum was moved from http://ternary.info

Moderator: haqreu

User avatar
askfind
Devil
Posts: 798
Joined: 04 Jan 2016 09:15
Location: Russia, S.- Peterburg

Setun 70 Software

Post by askfind »

Emulator of Setun 70 computer on C++

Simple and naive emulation of Setun 70 ternary computer

https://github.com/marinusmaurice/Setun-70
"Ученье свет, а неученье — тьма. Дело мастера боится, и коль крестьянин не умеет сохою владеть — хлеб не родится." (С)
User avatar
askfind
Devil
Posts: 798
Joined: 04 Jan 2016 09:15
Location: Russia, S.- Peterburg

Re: Setun 70 Software

Post by askfind »

libreDSSP

https://github.com/beadleha/libreDSSP

A GPLv3 Licensed DSSP Interpreter libreDSSP (libre Dialog System for Structured Programming) is a free software interpreter for the DSSP language. This language originated in the Soviet Union and was designed for the Setun ternary computer. It is very similar to Forth but has more compact syntax along with arguably more consistent rules regarding the behavior of stack operations and the evaluation of variables and addresses. This implementation is not yet complete, but it is complete enough to experiment with. Work has resumed after a long delay but it will continue to be sporadic due to my busy schedule.

BOTTLES.DSP

Code: Select all

[ Written by Alan Beadle for libreDSSP  ]
[ https://github.com/beadleha/libreDSSP ]
[ Run with '99 BOTTLES'                 ]

: BOTTLES C 1 + DO BRANCHES ;
: BRANCHES C BR 0 NONE 1 ONE 2 TWO ELSE MANY CR CR ;
: TAKE ."Take one down and pass it around, " 1 - ;
: HOWMANY C 2 TON ." bottles of beer on the wall, " C 2 TON ." bottles of beer!" CR ;
: BOBOTW ." bottles of beer on the wall!" ;
: MANY HOWMANY TAKE C 2 TON BOBOTW ;
: TWO HOWMANY TAKE C 2 TON ." bottle of beer on the wall!" ;
: ONE C 2 TON ." bottle of beer on the wall, "
    C 2 TON ." bottle of beer!" CR TAKE ."no more" BOBOTW ;
: NONE ."No more bottles of beer on the wall,"
	." no more bottles of beer!" CR
    ."Go to the store and buy some more, "
    99 + 2 TON BOBOTW ;
"Ученье свет, а неученье — тьма. Дело мастера боится, и коль крестьянин не умеет сохою владеть — хлеб не родится." (С)
User avatar
askfind
Devil
Posts: 798
Joined: 04 Jan 2016 09:15
Location: Russia, S.- Peterburg

Re: Setun 70 Software

Post by askfind »

https://github.com/trinarium/DSSP-C
README
Данный аpхив содеpжит дистpибyтив Диалоговой системы стpyктypиpо-
ванного пpогpаммиpования, далее именyемой ДССП. Дистpибyтив включает в себя
полный комплект файлов исходных текстов необходимых для генеpации системы.
Теоpетически система может быть сгенеpиpована на любой машине имеющей ком-
пилятоp языка "С". Пpактически генеpация пpоводилась на IBM PC и SPARC
station. Пpи pаспаковке дистpибyтив создает следyющие диpектоpии:

- doc - содержит документацию по системе и библиотекам
- dssp - исходные тексты для сбоpки виpтyальной машины
- examples - пpимеpы пpогpамм
- gen - компоненты для сбоpки целевой системы
- lib - библиотеки пpогpамм

Для того, что бы запyстить ДССП ее нyжно сначала скомпоновать.

Code: Select all

$ tree -L 1
.
├── doc
├── dssp
├── examples
├── gen
├── generate
├── INSTALL
├── inst.bat
└── README
2. Подготовка к установке ДССП

2.1 Linux, UNIX

Для установки ДССП необходимо запустить файл generate с двумя параметрами:
путь для установки и платформа под которую устанавливаем

Use command "generate [dir] [type]".
[dir] - target directory
[type] = linux
"Ученье свет, а неученье — тьма. Дело мастера боится, и коль крестьянин не умеет сохою владеть — хлеб не родится." (С)