Странно, но в таком виде, как приведён здесь, всё отлично работает. Проверено.

---------- Post added at 23:13 ---------- Previous post was at 23:10 ----------

Цитата Сообщение от Ares Посмотреть сообщение
Как записать всё это на дискету и потом запустить из TR-DOS ?
Надо выйти в STS по D в меню Аласма и сохранить на диск код. Правда надо знать начальный адрес(что известно) и длину кода. После этого грузить и запускать.

---------- Post added at 23:19 ---------- Previous post was at 23:13 ----------

Цитата Сообщение от Destr Посмотреть сообщение
Как в аласме её узнать не в курсе
Можно после ORG***(там где текст кода начинается) поставить метку, start например. А после окончания текста кода - метку end.
После этого, в последней строке текста сделать: DISPLAY "LEN=",end-start. Ну я так обычно делаю.
Команда DISPLAY выдаст (после LEN=) длину проги в байтах.
Очень полезная команда ;-)