Вид для печати
Не, нам палитра БК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
CLR R0
10$:
TSTB @#177660
BPL 10$
BISB @#0177662, R0
Если, конечно, на БК CSR и буфер клавиатуры - это 177660 и 177662
Чуть поправлю; из-за особенностей микрокода ВМ1 при обработке именно немаскируемого прерывания туда попадёт PC+2, поэтому правильно так:Цитата:
Сообщение от grf
Код:stop: sub #2, @sp
rti
Интересное решение. А что - разве надо проверять все биты регистра 177660 ? Вроде было бы сказано только про бит 7.
А почему здесь не MOVB, а BISB @#0177662, R0 ?
Да, INKEY не ждёт нажатия, если все кнопки отпущены, то она должна вернуть 0.
- - - Добавлено - - -
Отлично. А такой перехват сработает и на 10, и на 11(M)?Цитата:
Сообщение от Sandro
- - - Добавлено - - -
Про CSR я не понял, но в режиме БК-0010-01 на эмуле GID'а этот код тоже не работает.Цитата:
Сообщение от Hunta
Хорошо. При каких условиях регистры 177660 и 177662 могут не работать?
Ещё более правильно так (но только для 1801ВМ1):Цитата:
Сообщение от Sandro
и обычно этот код размещают по адресам 2 и 4, т.е. команда RTI одновременно является адресом вектора прерыванияКод:stop: sub (PC),(SP)
rti
Вообще-то это классический код, и он просто обязан работать. Но есть одна особенность, если старый код клавиши из 177662 не прочитан, то бит 7 вообще никогда не установится, поэтому нужно делать так:Цитата:
Сообщение от Oleg N. Cher
Код:tst @#177662 ;один раз в начале достаточно
10$:
tstb @#177660
bpl 10$
mov @#0177662, R0 ;пофиг, байтовая операция или словная, код всё равно 7-битный
Пока что добиться работы опроса клавиш не удалось. Код:
Код: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
Вложение 76560Код:signed char Basic_INKEY (void) {
asm("\
CLR R0 \n\
TSTB @$0177660 \n\
BPL NOKEY$ \n\
MOVB @$0177662, R0 \n\
NOKEY$: \n"
);
} // Basic_INKEY
А может стоит для начала почитать про систему команд? Как говорится, RTFM, там всё есть. И желательно почитать DEC-овские оригиналы.
Это как понимать? RTFM? Читал уже в нужном для меня объёме. Но читать мало - мастерство приходит с опытом.
Или Вы намекаете на то, что я использовал неверные команды?
- - - Добавлено - - -
А DEC-овские оригиналы вообще никак не помогут для БК и УКНЦ. Не, если Вам надо делать PDP-11 на ПЛИС, то тут да. А я ставлю более простую цель.
С учётом того, что плаванье в том, что делают команды, да, безусловно, не помогут никак.Цитата:
Сообщение от Oleg N. Cher
В данном случае проблема не в командах. Кстати, я вообще не очень жаждал вникать в низкий уровень. Просто приходится делать то, чего не сделало ваше сообщество - разбираться в низком уровне. Где библиотеки подпрограмм для БК и УКНЦ? Есть что-то такое?
- - - Добавлено - - -
Hunta, понимаю желание меня потроллить - де-я ламер, а Вы крутой перец, но нет. Это контрпродуктивно и ведёт только к срачикам. Оно нам надо?
- - - Добавлено - - -
Я просто пытаюсь сделать подсистему, чтобы можно было написать прогу для БК/УКНЦ на простом паскалеподобном языке и собрать её одной кнопкой. Но количество проблем, которое для этого пришлось и приходится решать - оно вообще подымает барьер вхождения до небес.