Где скачать ассемблер для эмулятора 800win

[ezswift]

Добавлю... Enter Esc Anykey Arrows работают.

[ezswift]

Вот вопрос denpopov оказался СУЩЕСТВЕННЫМ!
... к чему постоянные конструкции BEGIN-END?

Я долго искал и нашел.
Это оказалась сложная конструкция, исполняющая разные функции при компиляции для разных задач.

Например для процедуры MAIN() BEGIN производит подсчёт адреса начала скомпилированных машинных кодов, а END определяет их конец, то есть это адреса для создания полноценного атарьского *.COM файла.

Для обычных вызываемых процедур BEGIN производит все необходимые PLA для передачи параметров (только для своего программного, а не для аппаратного атарьского стека), а END производит все необходимые PHA, RTS для правильного выхода из программы.

Для процедур INTERRUPT, BEGIN делает то же, что и для обычных процедур, а END к тому же возвращает RTI.

В случае, если процедура должна возвращать данные, то есть является функцией, её END также кладёт возвращаемое на программный стек.

И наконец, в случае применения ПРИМАТИВНЫХ процедур, (От слова ПРИМАТЫ) то есть процедур, являющимися только исполняемыми машинными кодами, BEGIN и END являются только адресами входа и выхода.

Вот например как устанавливается VBI в PL65:

PROC SetVBI*()
BEGIN
  STX XSAVE
  LDA #$06
  LDX #VBI/256
  LDY #VBI AND $FF
  JSR SETVBV
  LDX XSAVE
END

[denpopov]

странный пример, конечно.
по идее в прерывании должны X и Y сохраняться, если задействованы.

[ezswift]

На самом деле, это делает сам язык при BEGIN, однако он не сохраняет регистр X !

В PL65 регистр X используется только при работе с программным стеком языка, поэтому если он нужен в коде, сначала его сохраняют в XSAVE - (байт на нулевой странице), а потом восстанавливают.

Не во всяком языке ассемблер встроен, а где встроен, так там та ещё морока.

Кстати, я на PL65 перегнал руссификатор, который изначально на Си.
Мучался недельку методом тыка, потом прочитал мануал и вуаля!

[denpopov]

На самом деле, это делает сам язык при BEGIN, однако он не сохраняет регистр X !

а регистр Y?

Мучался недельку методом тыка, потом прочитал мануал и вуаля!

было бы интересно взглянуть.

[ezswift]

Регистры A и Y сохраняются при вызове BEGIN и восстанавливаются при вызове END автоматически.

Вот сорц программульки:

INCLUDE TERMINAL.LIB

CONST EN=$E0 BYTE RU,OLDCONS
BYTE CONSOL=$D01F,COLBAK=$02C8,CHBAS=$02F4
CONST BLUE=$80,RED=$32,SELECTED=$05
CONST SETVBV=$E45C,SYSVBV=$E45F,XITVBV=$E462
STRING FName$[20]

BYTE BumpUp[$400-(@ AND $3FF)],NewCSet[$400]

PROC VBI*()
BEGIN
    LDA CONSOL
    CMP OLDCONS BEQ Exit
    CMP #SELECTED BNE Exit
!
    LDA COLBAK
    CMP #RED BNE ToRED
!
    LDA #BLUE STA COLBAK
    LDA #EN STA CHBAS
    GOTO Exit
:ToRED
    LDA #RED STA COLBAK
    LDA RU STA CHBAS
:Exit
    LDA CONSOL STA OLDCONS
    JMP SYSVBV
END

PROC SetVBI*()
BEGIN
  STX XSAVE
  LDA #$06
  LDX #VBI/256
  LDY #VBI AND $FF
  JSR SETVBV
  LDX XSAVE
END

MAIN()
BEGIN
  FName$="D1:RUS.FNT"
  COLBAK=BLUE CHBAS=EN
  RU=.NewCSet/256
  OPEN(1,4,0,FName$)
  GCHAR(1,.NewCSet,$400)
  CLOSE(1)
  SetVBI*()
END

А во вложении atr
Я только заменил расширение на zip, и надо переименовать в atr.

Сейчас пытаюсь сделать программу управления языком резидентной, чтобы по ресету не сбрасывалась.
Теорию ещё не знаю, пока читаю чужие коды.

[Advertiser]

[denpopov]

запустил fld.com, а русских букв не видать. я что-то неправильно сделал?

все же мне думается, что тот вариант, который я сделал, проще. Это ребята из кооператива "Формат" написали, мы немного модифицировали потом русификатор, по Reset подпрограмма рестартует, но я не помню как делали..

[ezswift]

Надо набрать FLD.
Когда рамка станет синей для переключения шрифта надо нажать Select. А потом писать русские буквы.

Мне не подходит рестарт программы по Reset, так как она читает шрифт с диска.
Нехорошо каждый раз загружать шрифт.

[denpopov]

Нехорошо каждый раз загружать шрифт.

поэтому я и сделал autorun.sys

[ezswift]

Я думаю, я добью эту программку...

Она будет ЛЮБОЙ шрифт подгружать, даже, переключаемый по Caps.
(Типа по звучанию, как KOI-8 Z=З и пр.)

На самом деле, мне эта программа вообще не интересна.
Я - учу PL65.

Там столько неведомого, что ВАЩЕ!
Я очень люблю Си, но Это - сухая выжимка из компьютерного опыта.

А PL65 = САМ компьютерный опыт!