И.П.БЕРЕЗЕНЦЕВ (г.Пермь)

Загрузка кодовых программ в КУВТ-86

Не каждый пользователь КУВТ-86 знает о том, что команду: OPEN "TT:NAME.BIN" FOR INPUT можно использовать для загрузки программ в машинных кодах с дисковода в БК-0010-01. По этой команде программа с указанным именем загрузится с адреса &O37400. После загрузки вместо команды CLOSE нужно очистить ячейку &O37356, иначе Бейсик будет работать с ошибками.

Оператор «OPEN» удобно использовать для подзагрузки из бейсиковой программы кодовых подпрограмм. К ним обращаются при помощи оператора «USR». Таким же образом можно загружать в экран рисунки. Для этого рисунок (экранную память) предварительно записывают на диск начиная с адреса &O37400.

Если оператором «OPEN» загружена кодовая (например игровая) программа, то для запуска ее надо переместить на адрес &O1000. Это делает предлагаемый фрагмент программы. Он может быть использован как самостоятельный загрузчик или вставлен в другую программу. На его основе можно сделать загрузчик с меню программ, хранящихся на диске.

Недостаток загрузчика в том, что его каждый раз надо загружать заново. Кроме того, предлагаемый загрузчик может работать только с программами, начинающимися с адреса &O1000. Адрес запуска программы можно поменять. Он находится на предпоследнем месте в блоке данных (строка 5050).

5000 INPUT «ИМЯ»; I$
5010 OPEN «ТТ:»+I$+".BIN"FOR INPUT
5020 POKE &О37356,0%
5030 DATA &О12706,&О1000,&О12700,&O40400,&О163700
5040 DATA &O346,&O12701,&О1000,&O13702,&O350
5050 DATA &O112021,&O77202,&O104014,&O137,&О1000,0
5060 RESTORE 5030
5070 I%=&O400
5080 DEF USR=I%
5090 READ D%
5100 IF D%TH POKE I%,D%EL5130
5110 I%=I%+2%
5120 GOTO 5090
5130 I%=USR(I%)