PASCAL + MACRO11 (УКНЦ-ДВК).

[Manwe]

Так и пиши - Не умею искать. Будет честнее.

Честнее будет так: в документе используется старая терминология, поэтому поиск затруднён. Чтобы выучить старую терминологию, надо прочитать всю книгу. А это вовсе не поиск.

Если мой ответ не устраивает - это не значит, что я его не дал. Просто уровень знаний не тот - для понимания ответа.

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


Нормальным ответом было бы:
"L1$ - это отнюдь не локальная метка. Если правильная локальная метка, то ассемблер выдаст ошибку, поскольку нет специальных директив".

Вообще, вопрос возник из-за этого кода (никаких директив Macro-11 в начале нет):

;процедура обработки перехода через сегмент и зацикливания

	MOV	#1,R4	;МАСКА ДЛЯ ОПОЗНАНИЯ КОНЦА ИНСТР.

VL0:	MOV	#0,R5
	BEQ	10$
	ADD	R5,VOL0+2
VLL0:	CMP	#0,VOL0+2
	BLO	10$
	MOV	VLL0+2,VOL0+2
	CLR	VL0+2
10$:	CMP	R0,#ADINS1+10000
	BLO	20$
	SUB	#10000,R0
	ADD	#10,@#UR1
20$:	BITB	R4,@R0
	BNE	40$
CL0:	SUB	#0,@#UR1
	ADD	#0,R0
30$:	TSTB	@R0
	BNE	40$
	CLR	QQ0
	MOV	#111004,INC0
	CLR	R0
40$:

VL1:	MOV	#0,R5
	BEQ	10$
	ADD	R5,VOL1+2
VLL1:	CMP	#0,VOL1+2
	BLO	10$
	MOV	VLL1+2,VOL1+2
	CLR	VL1+2
10$:	CMP	R1,#ADINS2+10000
	BLO	20$
	SUB	#10000,R1
	ADD	#10,@#UR2
20$:	BITB	R4,@R1
	BNE	40$
CL1:	SUB	#0,@#UR2
	ADD	#0,R1
30$:	TSTB	@R1
	BNE	40$
	CLR	QQ1
	MOV	#111104,INC1
	CLR	R1
40$:

[Advertiser]

[gid]

(никаких директив Macro-11 в начале нет)

В этом случае (по умолчанию в Macro-11) область видимости локальной метки ограничена обычными метками. т.е. переход как вперёд к локальной через обычную, так и переход назад, через обычную выдаст ошибку, что нету метки для перехода.

[Hunta]

понимание которого требует уровня знаний выше того, который обозначен в вопросе.

RTFM

похвастаться уровнем знаний

Мне давно на это наплевать

запросить денег за консультацию

Даже если предложишь - не буду консультировать

[Manwe]

В этом случае (по умолчанию в Macro-11) область видимости локальной метки ограничена обычными метками. т.е. переход как вперёд к локальной через обычную, так и переход назад, через обычную выдаст ошибку, что нету метки для перехода.

Спасибо!
Значит, исходник, который я разбираю, не из Macro-11, а из БКшной Turbo8. Там такие трюки (или глюки) прокатывают, переход вперёд произойдёт.
Это исходник проигрывателя трекерной музыки для Союз-Неона, переделанный для БК 0011М. Видимо, при портировании что-то пострадало - играет музыку неправильно. Сижу разбираюсь.

[nzeemin]

Постараюсь подытожить то что я узнал про Паскаль ДВК / OMSI Pascal 1 восстановлении паскалевского исходника Сталкера.

В продолжение, по коду KINGOM - про работу с файлами.
Этот Паскаль позволяет работать с файлами как со списками элементов заданного типа.
Для примера см. https://github.com/nzeemin/uknc-vari...CAL/KINGM6.PAS

type FArray = array [1..12] of integer;
var D,E: file of FArray; F:FArray;
...
F := D^; { Берём (копируем) текущий элемент файла D }
if D^[1] = 1 then ... { Обращаемся к текущему элементу файла D, без копирования }
GET(D); { Переходим к следующему элементу файла D }
...
E^ = F; { Копируем в текущий элемент файла E }
PUT(E); { Сохраняем элемент в файл E }

Открытие файлов через RESET либо REWRITE, переход к заданной записи SEEK, закрытие файла - CLOSE.

[Alex_K]

переход к заданной записи SEEK

Нету в данной версии (1.1) SEEK. Да, файл можно открыть, как файл с записями одинаковой длины, но переходить вперёд-назад нельзя. А вот в версии 1.2 это реализовано.

[Alex_K]

Хотелось бы найти RANDOM.PAS из поставки Паскаля.

>TYP [PASRT]RANDOM.PAS
var
  Seed: 0..65535;
  I: integer;

  function Random: real;
  begin { Random }
    Seed := (Seed * 13077 + 6925) mod 32768;
    Random := Seed / 32768.0
  end { Random };

Hunta, а из какой поставки Паскаля у вас этот файл?

[Hunta]

из какой поставки Паскаля у вас этот файл?

Хороший вопрос По каталогу - однозначно из RT, и скорее всего, версия 1.x (ЕМНИП, то второй версии у меня во времена активного юзанья - а каталог на это намекает - Квант-а 4С не было. Немного позже (щас, ошибки поправлю и синтез запущу) гляну

[Alex_K]

Хороший вопрос По каталогу - однозначно из RT, и скорее всего, версия 1.x (ЕМНИП, то второй версии у меня во времена активного юзанья - а каталог на это намекает - Квант-а 4С не было. Немного позже (щас, ошибки поправлю и синтез запущу) гляну

А будет возможность выложить куда нибудь весь пакет? Интересуют сам компилятор и библиотеки к нему.

[Hunta]

Вот это несколько более геморойно (он на диске в формате RSX), попробую до выходных выцарапть, но не обещаю - в выходные точно смогу

- - - Добавлено - - -

И эта, вдогонку Если до субботы второй половины дня не выложу - можно смело меня пнуть-напомнить Работа началась, голова теперь не только DE10 занята - легко могу забыть

- - - Добавлено - - -

А вот обманул Не знаю, в каком смысле этого слова 2.0K