Загрузчик 48К и заставка

[goodboy]

Добавь перед загрузкой POKE 23739, 111

это (если не ошибаюсь) перенаправление печати вместо экрана на принтер,
после (для корректного отображения информации) его надо возвращать назад

[Advertiser]

[morozov]

это (если не ошибаюсь) перенаправление печати вместо экрана на принтер,

Вроде как да. Всегда интересовало, что будет, если принтер-таки подключен? Вроде ж повсеместно используется, неужели никто в своё время не жаловался, что у них принтер пишет Bytes: Blah-Blah при загрузке.

А вот сверху уже ответили.

[jerri]

Вроде как да. Всегда интересовало, что будет, если принтер-таки подключен? Вроде ж повсеместно используется, неужели никто в своё время не жаловался, что у них принтер пишет Bytes: Blah-Blah при загрузке.

А вот сверху уже ответили.

23739,111 это не принтер. это подмена процедуры печати на ret.
такой вариант прекрасно работал на скорпионах

другой вариант намертво вешал скорпион. не помню конкретных поков.

[yazhivoy]

его надо возвращать назад

получилось убрать bytes, вернул назад POKE. Но теперь не могу из запускаемой программы поместить поверх заставки какой-либо текст.
Текст загрузчика:

10 BORDER 0: PAPER 0: INK 0: CLS
15 LET x=PEEK 23739: POKE 23739,111
20 LOAD "screen"SCREEN$ : INK 7: PAPER 7: LOAD "myprog"
30 INK 0: POKE 23739,x

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

загрузка программы (print "hello")

1 - без poke
2 - с poke

[jerri]

получилось убрать bytes, вернул назад POKE. Но теперь не могу из запускаемой программы поместить поверх заставки какой-либо текст.
Текст загрузчика:

10 BORDER 0: PAPER 0: INK 0: CLS
15 LET x=PEEK 23739: POKE 23739,111
20 LOAD "screen"SCREEN$ : INK 7: PAPER 7: LOAD "myprog"
30 INK 0: POKE 23739,x

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

загрузка программы (print "hello")

1 - без poke
2 - с poke

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

[yazhivoy]

jerri, поместил в блок программы, теперь работает.