Передача данных с Ассемблера в UL

Кое что прояснилось.
Директива  GROUP  действительно влияет на формирование адресов. Ее действие заключается в задании смещений переменных внутри сегментов.
Без  GROUP  смещения переменных и меток устанавливаются обычным образом - от начала об'явленного сегмента, и чтобы обратиться к переменной надо загрузить какой-нибудь сегментный регистр адресом текущего сегмента :
...
push SEG _DATA_SEG
pop   es

mov  al,BYTE PTR es:[смещение_переменной_в_сегменте__DATA_SEG]  ; или просто имя переменной
...

Об'явление  GROUP  интересным образом перестраивает нумерацию адресов. Как-будто образуется некая общая область памяти, и смещения нумеруются непрерывно от начала этой области. Причем сами сегменты физически остаются на своих местах по сравнению с тем, когда они были не сгруппированы, только меняется как-бы система отсчета - некий прообраз локальной плоской модели памяти.
Отсчет начнется с того сегмента из перечисленных, который окажется первым при линковке (самым младшим). Если, например,  при об'явлении  DGROUP  VARLIST, DATA, STORED, раньше всех по тексту окажется  DATA, то с него и начнется отсчет. Выражение  SEG DGROUP  даст адрес начала этой области, то-есть сегмент  DSEG.
Сегменты группы совсем не обязательно должны располагаться рядом, друг за другом. Они могут чередоваться с сегментами не принадлежащими группе, например вперемежку код и данные. При этом сквозная нумерация покрывает и сегменты кода.
Интересно то, что если вызвать адрес сегмента, скажем  SEG DATA, то он и будет получен - то-есть  DATA  а не  DGROUP.

Из всего этого получается, что выражение  SEG DGROUP  совершенно корректно и даст нужный результат.
Кроме того, вовсе не нужно создавать локальную переменную и инициализировать её сегментным адресом :  Seg_DGROUP  DW  SEG DGROUP, а просто по ходу текста установить регистр  DS, и получить переменную :
...
push SEG DGROUP
pop   ds

mov  al,BYTE PTR VAR1
...

GROUP  как и другие директивы призвана повысить удобство работы. Но как всякая палка - аб двух концах, лишнее средство, в определенных случаях может может и усложнить дело, внести путаницу. Решать - по месту.

С уважением, SAN.

<Стандартный  TASM  ругается если сегментам дать имена  CONST  и  STACK  -  это зарезервированные слова.>

Все правильно! Но в данной теме разговор идет о подключаемом к UL obj, поэтому Вам нет необходимости объявлять в своем модуле эти сегменты и компилируете вы TASM.

А по поводу моего примера программы для ADAM 5510 на ASM, то он компилируется MASM и проблем нет! В этом и особенность, подключаемые модули на TASM, полная программа на MASM.

И на счет ...
push SEG DGROUP
pop   ds

Не знаю почему, но я когда начинал делать программы для UL, то этот код не срабатывал и я пришел к <Seg_DGROUP  DW  SEG DGROUP>

<RomanS>

Попробуйте поменять тип переменной. Сделайте DECSH1-Integer и перекомпилируйте программу. Возможно, из за нарушения структуры числа с плавающей запятой у вас и отображается 0. Попробуйте с типом Integer.

<sanwork>

Seg_DGROUP  DW  SEG DGROUP это не локальная переменная, это переменная объявленная в коде программы и действительна на протяжении всего периода работы программы. А локальные переменные создаются в стеке и действительны на время выполнения функции.