Можно ли отследить, с помощью какого оператора был запущен файл boot в TR-DOS?

[ZX_NOVOSIB]

Как известно в TR-DOS boot можно стартануть используя 3 оператора : RUN, POKE, LOAD. Возможно ли сделать такой файл boot, который бы проверял каким именно оператором он запущен и, в зависимости от этого выполнялась бы дальнейшая загрука либо file1 либо file2?

[Advertiser]

[Gutten]

POKE? Может PEEK?
А это что даст?

[denpopov]

кажется, в Insult MD загрузчик хитро сделан, достаточно набрать
run"Insult".I love Codebusters, где концовка строки ловится.

[ZX_NOVOSIB]

Gutten, POKE, только POKE )) А вообще хочу сделать, чтобы например по RUN грузился один файл, а по LOAD (POKE) второй. Первым фалом может быть ZYX-boot, вторым какой-нибудь продвинутый командер.

Можно сначала грузить один, а потом из него другой. Но хотелось бы минимум телодвижений )) Лень - двигатель прогресса ))

[psb]

а как же merge?

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

[SoftLight]

а не проще сделать так: берем boot #1 и boot #2, записываем их с именами boot1.B boot2.B. Далее на бейсике пишем программу с опросом клавы - по нажатию 1 запускаем бут1, по нажатию 2 второй и т.п. Записываем прогу с именем boot.B. Даже программирование знать не надо.

[creator]

По адресу 23840 находится трёхбайтовая системная переменная TR-DOS, в которой хрянятся первые три символа введенной строки. Набираем простую программу:

10 PRINT PEEK 23840
20 PRINT PEEK 23841
30 PRINT PEEK 23842

Входим в TR-DOS, сохряняем программу на диск:
SAVE "a" LINE 10

Запускаем программу из TR-DOS:
RUN "a"

Видим на экране:
247
34
97
где 247 код команды RUN, 34 — кавычка, 97 — a (RUN "a).

Снова заходим в TR-DOS, запускаем программу:
LOAD "a"

Видим на экране:
239
34
97
где 239 код команды LOAD, 34 — кавычка, 97 — a (LOAD "a).

Эврика!

Снова заходим в TR-DOS, переименовываем программу "a" в "boot":
NEW "boot", "a"

Запускаем:
RUN

Видим на экране:
247
34
98
где 247 код команды RUN, 34 — кавычка, 98 — b (RUN "b)

Снова заходим в TR-DOS, запускаем:
LOAD

Видим на экране:
247
34
98
где 247 код команды RUN, 34 — кавычка, 98 — b (RUN "b)

Ой! А почему 247, а не 239, мы же LOAD набирали? И вообще что за "b, мы вообще не набирали этого? А потому что команды запуска бута "без параметров" (просто LOAD, RUN, POKE, PEEK) трансформирутся интерпретатором TR-DOS в RUN "boot". Вот такой вот облом.

Но если не лень набирать полное имя (мне точно лень) хотя бы из одной буквы, то всё будет ровно, по RUN "a" запустится ZYX, по LOAD "a" запустится CONVER:

10 IF PEEK 23840=247 THEN RANDOMIZE USR 15619: REM : RUN "ZYX"
20 IF PEEK 23840=239 THEN RANDOMIZE USR 15619: REM : RUN "CONVER"

[ZX_NOVOSIB]

а как же merge?

Да, мерге тоже работает. Но чтобы её напечатать нужно несколько телодвижений, я имел ввиду одной кнопкой чтобы.

---------- Post added at 21:34 ---------- Previous post was at 21:33 ----------

а не проще сделать так: берем boot #1 и boot #2, записываем их с именами boot1.B boot2.B. Далее на бейсике пишем программу с опросом клавы - по нажатию 1 запускаем бут1, по нажатию 2 второй и т.п. Записываем прогу с именем boot.B. Даже программирование знать не надо.

Да, так проще, но лишнее телодвижение, лишнее нажатие кнопки )) Я хотел свести к минимуму количество нажатий, но видимо так нельзя..

---------- Post added at 21:36 ---------- Previous post was at 21:34 ----------

А потому что команды запуска бута "без параметров" (просто LOAD, RUN, POKE, PEEK) трансформирутся интерпретатором TR-DOS в RUN "boot". Вот такой вот облом.

Но если не лень набирать полное имя (мне точно лень) хотя бы из одной буквы, то всё будет ровно, по RUN "a" запустится ZYX, по LOAD "a" запустится CONVER:

10 IF PEEK 23840=247 THEN RANDOMIZE USR 15619: REM : RUN "ZYX"
20 IF PEEK 23840=239 THEN RANDOMIZE USR 15619: REM : RUN "CONVER"

Да, похоже облом! Набирать имя - это лишнее телодвижение. Но я всё равно что-нибудь придумаю, как минимизировать количество телодвижение, уже придумал, надо только проверить..

[ZX_NOVOSIB]

Пожалуй наилучшее решение такое:

10 BORDER 0: PAPER 0: CLS
20 IF CODE INKEY$=13 THEN BORDER 2: RANDOMIZE USR 15619: REM: RUN "CONVER"
30 RANDOMIZE USR 15619: REM: RUN "ZYX"

Вводим RUN и.. если сразу отпускаем палец - грузится ZYX-boot, если чуть задерживаем палец на ентере, то грузится Конвер..

Бордер 2 добавлен для того, чтобы просигнализировать "Всё, палец можно отпускать".

[Faster]

Можно оптимизировать boot разместив весь код после REM ассемблерным вариантом запуска файлов.