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

**hobot** · 21.04.2014, 09:22

В процессе работы программы стал плавать выскакивать в разных местах
вылет по трапу с таким сообщением:

Код:

TRAP TO 4 - FROM PC 003152

Правил исходник, теперь чётко в одном месте вылет.
Обойти его можно (условие не вылета известно, неизвестно условие вылета !!!).

**form** · 21.04.2014, 10:44

Сообщение от hobot

Правил исходник, теперь чётко в одном месте вылет.
Обойти его можно (условие не вылета известно, неизвестно условие вылета !!!).

Ну так нужен исходник и результат команды E для ближайших адресов к тому с которого вылет.

**hobot** · 21.04.2014, 18:17

Сообщение от form

Ну так нужен исходник и результат команды E для ближайших адресов к тому с которого вылет.

у меня тут такой огород ) Надо заного переписать...
ПАСКАЛИТЬ не скучно ни разу - очитывая что в эмуляторе 3 секунды компиляция занимает примерно ) Шик!
Я пока что заного просто перепишу соблюдая условие не вылета )
Ура! )

**form** · 21.04.2014, 18:18

Сообщение от hobot

у меня тут такой огород ) Надо заного переписать...
ПАСКАЛИТЬ не скучно ни разу - очитывая что в эмуляторе 3 секунды компиляция занимает примерно ) Шик!
Я пока что заного просто перепишу соблюдая условие не вылета )
Ура! )

Как вариант - собрать SD, ST, загрузить и пустить программу.
Свалится, можно будет посимвольно увидеть где.

**hobot** · 29.06.2014, 18:28

Сообщение от bigral

На вскидку есть bk0010, uk-nc, кгд, кцгд, pro300...

Хотел просто упомянуть такую вещь (пока просто для информации), для УК-НЦ имеется практически аналогичный КЦГДшному "PAST" (см. демо в теме про КЦГД) набор процедур с простейшими графическими построениями и возможностью выводить "графическим" шрифтом в любых направлениях, это система GRAY

Код:

Image  :   GRAY.DSK

Format :   DSK 
Size   :   75 Kb

Volume ID: Gray 2.03.90
Owner    : Fomenko S.A.

File       Blocks    Date       Bytes
---------- ------ ----------- ----------
GRAY  .SAV    10  06-Mar-1990      5'120
TSGRAY.SAV    13  07-Mar-1990      6'656
GRAY  .MAC    50  06-Mar-1990     25'600
GRAYF .MAC    13  10-Mar-1990      6'656
GRAY  .TXT     8  10-Mar-1990      4'096
GRAYP .MAC    14  06-Mar-1990      7'168
GRAYP .OBJ     4  06-Mar-1990      2'048
T     .SAV     3  10-Mar-1990      1'536
TSGRAY.BAK     9  07-Mar-1990      4'608
GRAYF .OBJ     4  10-Mar-1990      2'048
T     .MAC     5  10-Mar-1990      2'560
TSGRAY.PAS     9  10-May-2014      4'608
---------- ------ ----------- ----------
 12 Files, 142 Blocks
 0 Free blocks

Код:

(* Краткое описание графического пакета 'Gray'для УК-НЦ *)
(* (c) Фоменко С.А. 10-Марта-1990 года. *)

procedure init;		external;
	  (* инициализация работы с пакетом *)
procedure finit;	external;
	  (* окончание работы с пакетом *)

procedure window(xl,yb,xr,yt:integer);		external;
	  (* Установка окна вывода графики *)

procedure ramka;				external;
	  (* Установление рамки в окне текущим цветом
	     и типом линии *)

procedure newpicture(i:integer);		external;
	  (* Отчистка текущего окна i-способ отчистки *)
	  (* 0-инверсией,1-наложением,2-отчисткой по маске
	     3-установкой цвета *)
procedure drawmode(i:integer);			external;
	  (* Задание способа рисования 0,1,2,3 *)

procedure color(i:integer);			external;
	  (* Задание цвета графики 0..7 *)

procedure linestyle(i:integer);			external;
	  (* Задание типа линии 0..7 *)

procedure userstyle(i:integer);			external;
	  (* Задание пользовательского типа линии *)

procedure line(x,y,x1,y1:integer);		external;
	  (* Прорисовка линии *)

procedure dot(x,y:integer);			external;
	  (* Прорисовка точки *)

procedure grdot(x,y:integer);			external;
	  (* Прорисовка точки графика в соответствии
	    с текущим типом линии *)

procedure circle(x,y,r:integer);		external;
	  (* Прорисовка окружности *)

procedure arc(x,y,r,xs,ys,xt,yt,cw:integer);	external;
	  (* Прорисовка дуги *)

procedure fill(x,y:integer);			external;
	  (* Заливка произвольной области *)

procedure square(x,y,x1,y1:integer);		external;
	  (* Прорисовка квадрата *)

procedure setcol(c,i:integer);			external;
	  (* Установка соответствия цвета *)

procedure screen(i:integer);			external;
	  (* Установка размеров экрана 1,2,3,4  *)

procedure chcolor(i:integer);			external;
	  (* Установка цвета а/ц. символов *)
procedure chkurs(i:integer);			external;
	  (* Установка цвета а/ц. курсора *)
procedure sccolor(i:integer);			external;
	  (* Установка цвета экрана. символов *)
procedure stcolor(i:integer);			external;
	  (* Установка цвета строки *)
	  (* При задании цвета меньше 0 происходит
	     восстановление предыдущего цвета	*)

procedure invers(onof:integer);			external;
	  (* Установка/снятие инверсии а/ц. символов
	     1-Установка 0-снятие *)

procedure podch(onof:integer);			external;
	  (* Установка/снятие подчеркивания а/ц. символов
	     1-Установка 0-снятие *)

procedure anpos(x,y:integer);			external;
	  (* Позиционирование а/ц курсора *)

procedure vanpos(x,y:integer);			external;
	  (* Позиционирование а/ц курсора близко к графике *)

procedure anclear(x,y:integer);			external;
	  (* отчистк а/ц дисплея до конца экрана *)

procedure setchsize(dx,dy:integer);		external;
	  (* Установка размера графических символов
	     dx и dy - множители в размере символа *)

procedure setchup(up:integer);			external;
	  (* Установка направления вывода графических
	     символов 0-нормальный вывод
	     1-7 повернутые через 45 град. против час.
	     стрелки.
	     8-11 вывод обратных символов по 4 направлениям
	     12   вывод наклонного шрифта
	     13   вывод обратного наклонного шрифта
	     14   вывод наклонного шрифта с обратным наклоном
	     15   вывод ---//--- развернутым... *)

procedure character(x,y:integer;c:char);	external;
	  (* Вывод графического символа по координатам
	      текущим цветом графики размером и наклоном *)

procedure string(x,y,dx,dy:integer);		external;
	  (* Вывод строки символов начиная с координаты
	      приращение каждого символа определяется дь,ды
	      вывод текста осуществляется текущим цветом
	      графики размером и наклоном и заканчивается
	      символом код которого меньше пробела (32.)
	     Рекомендуется следущая комбинация на вывод
		---//---
	      setchsize(dx,dy);
	      setchup(up);
	      string(x,y,dx,dy);
	      write('Text... a=',a,b,c,chr(10));
		---//---
	      chr(10) заканчивает вывод граф.символов..*)

Насколько я понимаю - Сергей Фоменко писал его уже вне ASPcorp.
Пока не публикуется - все новые материалы по ASPcorp. проходят
проверку (ожидается так же одобрение хозяина дискет и авторов на
публикацию\добавлению в архив).

(в общем выложу\прилеплю как только так сразу)

**hobot** · 19.12.2014, 00:29

Выдернул опрос клавиатуры из исходника Titusa.
К ожиданию нажатия и работы .TTYIN естественно нет проблем.

Но! Как мне дальше работать (обрабатывать) код нажатой кнопки???
Сделал тестовую программу, что бы нагляднее описать суть вопроса:
Протокол работы:

Код:

 
.TPQQQ1
НАЖМИТЕ ЛЮБУЮ КЛАВИШУ
uh ty!!!
BYE            0

Листинг TPQQQ1.PAS

Код:

.TY TPQQQ1.PAS

PROGRAM TPQQQ1;
/*$C    .MCALL  .TTYIN
*/
VAR
        RP: INTEGER;

  PROCEDURE KEYPRESS(KEYCODE: INTEGER);
    BEGIN
 /*$C   BIS     #^O10000,@#^O44
        .TTYIN
        CMPB    R0,#27.
        BNE     1$
        .TTYIN
 1$:    CMPB    R0,#13.
        BNE     2$
        .TTYIN
 2$:    MOV     R0, KEYCODE(SP)
 */
 END;

  BEGIN
      WRITELN(CHR(14),'navmite l`bu` klawi{u',CHR(15));
      KEYPRESS(RP);
      WRITELN('uh ty!!!');
      KEYPRESS(RP);
      WRITELN('BYE',RP);
  END.

Выделенная жирным команда не работает!!!
RP при таком как сейчас присвоении = нулю (как видно выше),
если я по примеру оператора сравнения CMPB использую оператор
MOVB программа вылетает в TRAP ??? Почему 0 ??? В чём моя ошибка ???

**Advertiser** · 19.12.2014, 00:29

**form** · 19.12.2014, 04:31

Сообщение от hobot

Выдернул опрос клавиатуры из исходника Titusa.
К ожиданию нажатия и работы .TTYIN естественно нет проблем.

Но! Как мне дальше работать (обрабатывать) код нажатой кнопки???
Сделал тестовую программу, что бы нагляднее описать суть вопроса:
Протокол работы:

Код:

 
.TPQQQ1
НАЖМИТЕ ЛЮБУЮ КЛАВИШУ
uh ty!!!
BYE            0

Листинг TPQQQ1.PAS

Код:

.TY TPQQQ1.PAS

PROGRAM TPQQQ1;
/*$C    .MCALL  .TTYIN
*/
VAR
        RP: INTEGER;

  PROCEDURE KEYPRESS(KEYCODE: INTEGER);
    BEGIN
 /*$C   BIS     #^O10000,@#^O44
        .TTYIN
        CMPB    R0,#27.
        BNE     1$
        .TTYIN
 1$:    CMPB    R0,#13.
        BNE     2$
        .TTYIN
 2$:    MOV     R0, KEYCODE(SP)
 */
 END;

  BEGIN
      WRITELN(CHR(14),'navmite l`bu` klawi{u',CHR(15));
      KEYPRESS(RP);
      WRITELN('uh ty!!!');
      KEYPRESS(RP);
      WRITELN('BYE',RP);
  END.

Выделенная жирным команда не работает!!!
RP при таком как сейчас присвоении = нулю (как видно выше),
если я по примеру оператора сравнения CMPB использую оператор
MOVB программа вылетает в TRAP ??? Почему 0 ??? В чём моя ошибка ???

VAR KEYCODE в аргументах функции поставить?

**hobot** · 19.12.2014, 16:06

Сообщение от form

VAR KEYCODE в аргументах функции поставить?

Я уже пробовал.
Для MOV снова ноль значение (((

Код:

.@MTPQ

TPQQQ1               OMSI PASCAL-1  RT11 V1.1G 19-   -82        Page 1
Univ. Tasmania, Info. Sciences, Physics Bldg, Hobart 7001, site #72-12

LINE  STMT LEVEL  NEST   SOURCE STATEMENT

   1                     PROGRAM TPQQQ1;
   2                     /*$C   .MCALL  .TTYIN
   3                     */
   4                     VAR
   5                            RP: INTEGER;
   6
   7                       PROCEDURE KEYPRESS(VAR KEYCODE: INTEGER);
   8                         BEGIN
   9                      /*$C  BIS     #^O10000,@#^O44
  10                            .TTYIN
  11                            CMPB    R0,#27.
  12                            BNE     1$
  13                            .TTYIN
  14                      1$:   CMPB    R0,#13.
  15                            BNE     2$
  16                            .TTYIN
  17                      2$:   MOV     R0, KEYCODE(SP)
  18                      */
  19     1     2     1    END;
  20
  21                       BEGIN
  22     1     1     1         WRITELN(CHR(14),'navmite l`bu` klawi{u',CHR(15));
  23     2     1     1         KEYPRESS(RP);
  24     3     1     1         WRITELN('uh ty!!!');
  25     4     1     1         KEYPRESS(RP);
  26     5     1     1         WRITELN('BYE',RP);
  27     6     1     1     END.

ERRORS DETECTED:  0
FREE MEMORY:  9615  WORDS

ERRORS DETECTED:  0
FREE MEMORY:  9615  WORDS

НАЖМИТЕ ЛЮБУЮ КЛАВИШУ
uh ty!!!
BYE            0

.

или так

Код:

.@MTPQ


TPQQQ1               OMSI PASCAL-1  RT11 V1.1G 19-   -82        Page 1
Univ. Tasmania, Info. Sciences, Physics Bldg, Hobart 7001, site #72-12

LINE  STMT LEVEL  NEST   SOURCE STATEMENT

   1                     PROGRAM TPQQQ1;
   2                     /*$C   .MCALL  .TTYIN
   3                     */
   4                     VAR
   5                            RP: INTEGER;
   6
   7                       PROCEDURE KEYPRESS(VAR KEYCODE: INTEGER);
   8                         BEGIN
   9                      /*$C  BIS     #^O10000,@#^O44
  10                            .TTYIN
  11                            CMPB    R0,#27.
  12                            BNE     1$
  13                            .TTYIN
  14                      1$:   CMPB    R0,#13.
  15                            BNE     2$
  16                            .TTYIN
  17                      2$:   MOVB    R0, KEYCODE(SP)
  18                      */
  19     1     2     1    END;
  20
  21                       BEGIN
  22     1     1     1         WRITELN(CHR(14),'navmite l`bu` klawi{u',CHR(15));
  23     2     1     1         KEYPRESS(RP);
  24     3     1     1         WRITELN('uh ty!!!');
  25     4     1     1         KEYPRESS(RP);
  26     5     1     1         WRITELN('BYE',RP);
  27     6     1     1     END.

ERRORS DETECTED:  0
FREE MEMORY:  9615  WORDS

ERRORS DETECTED:  0
FREE MEMORY:  9615  WORDS

НАЖМИТЕ ЛЮБУЮ КЛАВИШУ
uh ty!!!
BYE            0

.

Ну тут прогресс только в том, что вылетать перестало в трап !!! )
Что же ему не так?
Просто мне в Ассме обрабатывать кнопочки совсем не с руки,
каша из кода получится, мне оно нужно только до момента
нажатия, а потом уже в Паскале с ними работать.

Я попробую другую версию компилятора и в другом эмуляторе
(просто ради эксперимента, отпишусь). Может быть какая-то
хитрость внутри 340 - емта??? бцц .-2 который TTYIN ????

**form** · 19.12.2014, 16:10

Сообщение от hobot

Ну тут прогресс только в том, что вылетать перестало в трап !!! )
Что же ему не так?
Просто мне в Ассме обрабатывать кнопочки совсем не с руки,
каша из кода получится, мне оно нужно только до момента
нажатия, а потом уже в Паскале с ними работать.

Я попробую другую версию компилятора и в другом эмуляторе
(просто ради эксперимента, отпишусь). Может быть какая-то
хитрость внутри 340 - емта??? бцц .-2 который TTYIN ????

Могу предположить, что KEYCODE(SP) ни что иное как адрес переменной KEYCODE, то есть команда MOV всего лишь затирает его в передаваемых функции аргументах. Поставь @ впереди

**hobot** · 19.12.2014, 16:10

form, вот смотри что в ассемблере получается
(после pascal трансляции)

Код:

.TY TPQQQ1.MAC
        .TITLE  TPQQQ1
        .MCALL  .TTYIN

        .RADIX  10
        .GLOBL  $RESR5,$RESR6,$FILE,$END
        .GLOBL  $BEGIN,$VER
L0:
        JSR     %7,$B127
        .GLOBL  $B127
        BIS     #^O10000,@#^O44
        .TTYIN
        CMPB    R0,#27.
        BNE     1$
        .TTYIN
 1$:    CMPB    R0,#13.
        BNE     2$
        .TTYIN
 2$:    MOVB    R0, 2(SP)

        MOV     (6),2(6)
        ADD     #2,%6
        RTS     %7
        $VER=12.
$BEGIN:

        MOV     #6,-(6)
        .GLOBL  $B70
        JSR     %7,$B70
        MOV     (6)+,%5
        MOV     (6),(5)+
        MOV     2(6),(5)+
        MOV     %5,$RESR5
        MOV     #14,-(6)
        CLR     -(6)
        JSR     %7,$B20
        .GLOBL  $B20
        MOV             #L1,-(6)
        MOV     #21,-(6)
        MOV     #21,-(6)
        JSR     %7,$B32
        .GLOBL  $B32
        MOV     #15,-(6)
        CLR     -(6)
        JSR     %7,$B20
        JSR     %7,$B36
        .GLOBL  $B36
        MOV     %5,-(6)
        JSR     %7,L0
        MOV             #L2,-(6)
        MOV     #8,-(6)
        MOV     #8,-(6)
        JSR     %7,$B32
        JSR     %7,$B36
        MOV     %5,-(6)
        JSR     %7,L0
        MOV             #L3,-(6)
        MOV     #3,-(6)
        MOV     #3,-(6)
        JSR     %7,$B32
        MOV     @%5,-(6)
        MOV     #7,-(6)
        JSR     %7,$B24
        .GLOBL  $B24
        JSR     %7,$B36
        JMP     $END
L1:     .WORD   24942
        .WORD   28022
        .WORD   29801
        .WORD   8293
        .WORD   24684
        .WORD   30050
        .WORD   8288
        .WORD   27755
        .WORD   30561
        .WORD   31593
        .WORD   117
L2:     .WORD   26741
        .WORD   29728
        .WORD   8569
        .WORD   8481
        .WORD   0
L3:     .WORD   22850
        .WORD   69
        .END


.

User Tag List

Тема: PASCAL + MACRO11 (УКНЦ-ДВК).

Опции темы

Отображение

ловлу вылет и потихонечку ращу программу

GRAY пока без файлов. почти КЦГДшный PAST !

пересыл содержимого R0 не работает !!!

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

"Исходники" Turbo Pascal нужны кому ?

Продам МС5310 блок дисководов к УКНЦ+КМД УКНЦ

в розыске дисковая версия Pascal.

Pascal

Скопировать/вставить из/в HiSoft Pascal в эмуляторе

Метки этой темы

Ваши права