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

[hobot]

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 ????