Режим совместимости БК-0011М с БК-0010

[Oleg N. Cher]

Не, нам палитра БК10 не нужна, ядовитый RGB это зло Кстати, палитры на 11-х просто атас. В плохом смысле. На УКНЦ сделано гораздо лучше.

Пользуясь советом уважаемого grf, наваял подпрограмму INKEY, но она не работает. Что здесь может быть не так?

signed char Basic_INKEY (void) {
  asm("\
        CLR  R0                 \n\
        BITB $0200, @$0177660   \n\
        BEQ  $NOKEY             \n\
        MOVB @$0177662, R0      \n\
$NOKEY:                         \n"
  );
} // Basic_INKEY

[Advertiser]

[Hunta]

CLR R0
10$:
TSTB @#177660
BPL 10$
BISB @#0177662, R0

Если, конечно, на БК CSR и буфер клавиатуры - это 177660 и 177662

[Sandro]

Обычно она или заблокирована или вызывает рестарт игры. Если надо заблокировать - можно просто прописать вектор 4 на команду RTI

mov #stop,@#4
...
stop: rti

Чуть поправлю; из-за особенностей микрокода ВМ1 при обработке именно немаскируемого прерывания туда попадёт PC+2, поэтому правильно так:

stop: sub #2, @sp
rti

[Oleg N. Cher]

Интересное решение. А что - разве надо проверять все биты регистра 177660 ? Вроде было бы сказано только про бит 7.

А почему здесь не MOVB, а BISB @#0177662, R0 ?

Да, INKEY не ждёт нажатия, если все кнопки отпущены, то она должна вернуть 0.

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

Чуть поправлю; из-за особенностей микрокода ВМ1 при обработке именно немаскируемого прерывания туда попадёт PC+2, поэтому правильно так

Отлично. А такой перехват сработает и на 10, и на 11(M)?

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

CLR R0
10$:
TSTB @#177660
BPL 10$
BISB @#0177662, R0

Если, конечно, на БК CSR и буфе клавиатуры - это 177660 и 177662

Про CSR я не понял, но в режиме БК-0010-01 на эмуле GID'а этот код тоже не работает.

Хорошо. При каких условиях регистры 177660 и 177662 могут не работать?

[gid]

правильно так

Ещё более правильно так (но только для 1801ВМ1):

stop:   sub (PC),(SP)
        rti

и обычно этот код размещают по адресам 2 и 4, т.е. команда RTI одновременно является адресом вектора прерывания

код тоже не работает

Вообще-то это классический код, и он просто обязан работать. Но есть одна особенность, если старый код клавиши из 177662 не прочитан, то бит 7 вообще никогда не установится, поэтому нужно делать так:

tst @#177662 ;один раз в начале достаточно
10$:
tstb @#177660
bpl 10$
mov @#0177662, R0 ;пофиг, байтовая операция или словная, код всё равно 7-битный

[Oleg N. Cher]

Пока что добиться работы опроса клавиш не удалось. Код:

MODULE TestKeys; (*$MAIN*)
IMPORT b := Basic;
BEGIN
  b.Init;
  REPEAT UNTIL b.INKEY() # 0X;
END TestKeys.

;# GNU C17 (GCC) version 11.2.1 20211109 (pdp11-aout)
;#	compiled by GNU C version 9.3-win32 20200320, GMP version 6.1.0, MPFR version 3.1.4, MPC version 1.0.3, isl version none
;# GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
;# options passed: -mbm1 -msoft-float -O2 -Os -fomit-frame-pointer
	.text
	.even
	.globl	_main
_main:
;# TestKeys.c:14: {
	jsr	pc,___main	;#
;# TestKeys.c:19:   Basic_Init();
	jsr	pc,_Basic_Init	;# Basic_Init
L_2:
;# TestKeys.c:21:   } while (!(Basic_INKEY() != 0x00));
	jsr	pc,_Basic_INKEY	;# Basic_INKEY
;# TestKeys.c:21:   } while (!(Basic_INKEY() != 0x00));
	tstb	r0		;# tmp29
	beq	L_2		;#
;# TestKeys.c:23: }
	clr	r0		;#
	rts	pc

void Basic_Init (void)
{
  asm("\
        CMPB  @$0177717, $0200    \n\
        BEQ   10$                 \n\
        MTPS  $0340               \n\
        MOV   $016000, @$0177716  \n\
10$:    TSTB  @$0177662  // A key \n\         <-- делаем "один раз в начале достаточно"
        MOV   $041000, _Basic_scradr"
  );
} // Basic_Init

signed char Basic_INKEY (void) {
  asm("\
        CLR  R0                 \n\
        TSTB @$0177660          \n\
        BPL  NOKEY$             \n\
        MOVB @$0177662, R0      \n\
 NOKEY$:                        \n"
  );
} // Basic_INKEY

TestKeys.zip

[Hunta]

А может стоит для начала почитать про систему команд? Как говорится, RTFM, там всё есть. И желательно почитать DEC-овские оригиналы.

[Oleg N. Cher]

Это как понимать? RTFM? Читал уже в нужном для меня объёме. Но читать мало - мастерство приходит с опытом.
Или Вы намекаете на то, что я использовал неверные команды?

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

А DEC-овские оригиналы вообще никак не помогут для БК и УКНЦ. Не, если Вам надо делать PDP-11 на ПЛИС, то тут да. А я ставлю более простую цель.

[Hunta]

А DEC-овские оригиналы вообще никак не помогут для БК и УКНЦ

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

[Oleg N. Cher]

В данном случае проблема не в командах. Кстати, я вообще не очень жаждал вникать в низкий уровень. Просто приходится делать то, чего не сделало ваше сообщество - разбираться в низком уровне. Где библиотеки подпрограмм для БК и УКНЦ? Есть что-то такое?

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

Hunta, понимаю желание меня потроллить - де-я ламер, а Вы крутой перец, но нет. Это контрпродуктивно и ведёт только к срачикам. Оно нам надо?

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

Я просто пытаюсь сделать подсистему, чтобы можно было написать прогу для БК/УКНЦ на простом паскалеподобном языке и собрать её одной кнопкой. Но количество проблем, которое для этого пришлось и приходится решать - оно вообще подымает барьер вхождения до небес.