struct {
    UWORD potgo;		// 0 0xdff016
    UWORD joy0dat;		// 2
    UBYTE pra;			// 4 0xbfe001
    UBYTE pad;			// 5
    ULONG sigbit;		// 6
    struct Task *task;		// 10
    APTR potgoResource;		// 14
} mousedata;

• Odpowiedz

@sq7bti, post #1

• Odpowiedz

@asman, post #2

@@ -266,7 +276,13 @@ int AllocResources()
                                                InputBase = (struct InputBase *)InputIO->io_Device;
                                                if (mousedata.potgoResource = OpenResource("potgo.resource"))
                                                {
-                                                       return 1;
+                                                       potbits = AllocPotBits(OUTLX | DATLX);
+                                                       if(potbits == OUTLX | DATLX)
+                                                       {
+                                                               return 1;
+                                                       }
+                                                       else
+                                                               PutStr("Error: Could not allocate potgo output MMB");
                                                }
                                                else
                                                        PutStr("Error: Could not open potgo.resource\n");
@@ -290,6 +306,7 @@ int AllocResources()
 
 void FreeResources()
 {
+       FreePotBits(OUTLX | DATLX);
        if (InputIO)
        {
                CloseDevice((struct IORequest *)InputIO);

potgo.resource failed to load

$ make
/opt/m68k-amigaos/bin/m68k-amigaos-gcc -c -o mousedriver.o mousedriver.c -O2 -noixemul
vasmm68k_mot -quiet -Fhunk -phxass -I /opt/gnu-6.5.0b/m68k-amigaos/ndk-include/ -o vbrserver.o vbrserver.s
/opt/m68k-amigaos/bin/m68k-amigaos-gcc -O2 -noixemul -o Blabber.driver mousedriver.o vbrserver.o
/opt/m68k-amigaos/m68k-amigaos/lib/libamiga.a(allocpotbits.o)(.text+0x4): undefined reference to `PotgoBase'
/opt/m68k-amigaos/m68k-amigaos/lib/libamiga.a(freepotbits.o)(.text+0x4): undefined reference to `PotgoBase'
collect2: ld returned 1 exit status
make: *** [Makefile:20: Blabber.driver] Error 1

mousedriver.c:297:18: warning: implicit declaration of function 'AllocPotBits' [-Wimplicit-function-declaration]
        potbits = AllocPotBits(OUTLX | DATLX);

• Odpowiedz

@sq7bti, post #3

• Odpowiedz

@forge, post #4

FUNCTION
    This function can query or modify the state of the current task's
    received signal mask.  Setting the state of signals is considered
    dangerous.  Reading the state of signals is safe.

• Odpowiedz

@sq7bti, post #3

• Odpowiedz

@sq7bti, post #1

• Odpowiedz

@docent, post #7

Delay:
	; cocolino 36,
	; ez-mouse 25
	MOVEQ	#18,D1					; Needs testing on a slower Amiga!
.wait1
	MOVE.B	vhposr+1(A0),D0				; Bits 7-0     H8-H1 (horizontal position)
.wait2
	CMP.B	vhposr+1(A0),D0
	BEQ.B	.wait2
	DBF	D1,	.wait1

• Odpowiedz

@asman, post #8

• Odpowiedz

@docent, post #7

• Odpowiedz

@Don_Adan, post #10

• Odpowiedz

@docent, post #11

• Odpowiedz

@Don_Adan, post #10

• Odpowiedz

@Don_Adan, post #12

• Odpowiedz

@docent, post #7

• Odpowiedz

@Don_Adan, post #9

• Odpowiedz

@asman, post #16

• Odpowiedz

@asman, post #8

• Odpowiedz

@docent, post #18

SYNOPSIS
	oldSignals = SetSignal(newSignals, signalMask)
	D0		       D0	   D1
EXAMPLES
	Get the current state of all signals:
	    SetSignal(0L,0L);

;
; Check if the main task already processed previous code
; if not wait for another round
;
MOVE.L A1,-(SP)                                ; preserve A1 on stack
MOVE.L 4.W,A6
MOVE.L #$0,D0                                  ; newSignals
MOVE.L #$0,D1                                  ; signalsMask
MOVE.L 10(A1),A1                               ; Task
JSR _LVOSetSignal(A6)
MOVE.L (SP)+,A1                                ; restore A1 from stack

CMP.L 6(A1),D0                                 ; check if the signal is still there
BEQ.s    abort

• Odpowiedz

@docent, post #18

• Odpowiedz

@docent, post #7

Dzieje sie tak dlatego, ze struktura jest wspoldzielona miedzy przerwaniem a programem.

Żeby tego uniknąć wprowadziłem zmiany które opisałem w poprzednim(-ich) postach. Zmieniłem też sposób "przechowania" zawartości rejestru A1 podczas skoku do _LVOSignal: zamiast przez stos (odwołanie do pamięci), przez rejestr A5 który w tym czasie jest nieużywany. Takie zagranie jest chyba szybsze(?). Poza uniknięciem wywołania kodu .c przy zerowym kodzie z myszy, robię to też dla kodów które specjalnie nie używam bo mają największe prawdopodobieństwo pojawienia się przez przypadek (nie przy myszy która reaguje na MMB, ale np. myszy klasyczna, albo inna która może wystawić dowolny stan w dowolnym momencie na liniach XY).

Mam nadal pewną wątpliwość czy nie lepiej byłoby po prostu wstrzymać generowanie przerwania, do czasu gdy kod .c obsłuży odebrany kod. Tylko jak sprawdzić czy sygnał jest wyzerowany z wnętrza kodu przerwania .s? Wprowadziłem warunkowe wyjście na samym początku przerwania, ale nie widzę żeby się wykonywał kiedy przewijam okno IBrowse (wtedy miałem "bang!" - czyli nadpisywanie zawartości mousedata.joy0data przez przerwanie).

;
        ; Check if the main task already processed previous code
        ; if not wait for another round
        ;
        MOVE.L  A1,A5                                   ; preserve A1 in A5
        MOVE.L 4.W,A6
        MOVE.L #$0,D0                                   ; newSignals
        MOVE.L #$0,D1                                   ; signalsMask
        MOVE.L 10(A1),A1                                ; Task
        JSR _LVOSetSignal(A6)
        MOVE.L  A5,A1                                   ; restore A1 from A5

        CMP.L 6(A1),D1                                  ; check if the signal is still there
        BEQ.s   abort

Czyżby kod był na tyle szybki że zdążył się wykonać podczas jednej ramki?

Mam pomysł, ale nie wiem czy da się go łatwo zaimplementować. Chciałbym zmienić kolor wyświetlanej linii na czas wykonywanie kodu .c (czyli zmienić paletę COLOR# na początku, i odtworzyć na końcu procedury .c). W taki sposób powinno być widać na ekranie pasek który miałby szerokość proporcjonalną do czasu spędzonego na wykonaniu kodu .c. Jak to zrobić?

Co do częstotliwości odczytu stanu myszy, to jest to już chyba standard w myszach Amigowych że odbywa się to co ramkę:

Przy szybkim ruchu rolką do przewijania, myszy potrzebuje kilku ramek by przesłać wszystkie sygnały odpowiadające za pojedynczy sygnał z rolki. Wystarczy policzyć zbocza na liniach QRA i QRB i odpowiadające im impulsy na liniach XY, które zsynchronizowane z MMB służą za przekaz kodów dla rolki.

Od częstotliwości odczytu stanu myszy ważniejsze jest utrzymanie stałych czasowych między zboczami na MMB - od ich stabilności zależy pomyślność współpracy z kontrolerem myszy. Jeśli timer.device dałby dokładność na poziomie części us to mogę go zastosować. Tylko jak we wnętrzu kodu przerwania wywołać timer.device i powrócić po np. 80us by dokończyć obsługę przerwania?

• Odpowiedz

@sq7bti, post #21

• Odpowiedz

@Don_Adan, post #22

• Odpowiedz

@sq7bti, post #23

• Odpowiedz

@sq7bti, post #19

• Odpowiedz

@sq7bti, post #21

• Odpowiedz

@docent, post #25

Zacznę może od tego że mój kontroler myszy przesyła każdą informację: o wciśniętym, zwolnionym klawiszu, albo obrocie myszy, która jest różna od stanu zarejestrowanego do tej pory po stronie komputera. Przesłanie każdego kodu jest potwierdzona, dlatego może być traktowana jako "doręczona", i wtedy i tylko wtedy zaprzestaje jej przesłania. Może nastąpić taka sytuacja że podczas krótkotrwałej przerwy w komunikacji został na krótko wciśnięty któryś z klawiszy. Taka sytuacja nie zostanie wtedy zarejestrowana przez komputer. Nie wydaje mi się że jest to jakiś rażący problem. To samo tyczy się licznika pozycji rolki - jeśli obracana jest szybko w obu kierunkach, następuje próba przesłania nie wszystkich impulsów, ale tylko delta.
Takie krótkie przerwy w komunikacji są przewidywalne (widoczne, i pewnie też słyszalne) i świadomy użytkownik zdawałby sobie sprawę, że jeśli na ekranie widzi wolno (klatkująco) przewijaną zawartość ekranu, to "coś jest na rzeczy":

Wracają do proponowanych zmian, pozwoliłem sobie trochę zmodyfikować i wyjście z przerwania przeprowadzać jeszcze zanim wysterowana jest linia MMB (dlatego na wykresie powyżej występują przerwy - najdłuższa jest na ok 200ms - podczas gdy powinny odbywać się co ok 18ms).
Mam w planach dodać licznik wiadomości (zwiększane niezależnie w .s i w .c) którego modulo(4) wskazywałoby w którym miejscu mousedata.joydat umieszczony jest kod:

• 0 - 0x0303

• 1 - 0x0C0C

• 2 - 0x3030

• 3 - 0xC0C0

Takie bardzo proste FIFO o głębokości 4.

Co do szybkości wykonania kodu, na forum EAB zostało pokazane ciekawe narzędzie które analizuje kod 68k i pozwala na ocenę wydajności (długość wykonywanego kodu oraz ilość zapisów i odczytów (z pamięci)). Poniżej widać różnicę w długości o którą się pytałem w jednym z poprzednich postów:


Brakuje mi tylko jak bardzo kosztowne jest wywołanie jakichś funkcji kernela - jak np. na powyższym przykładzie SetSignal()

• Odpowiedz

@sq7bti, post #27

FC1E48  lea       $1A(A1),A0        Get the set of received signals.
FC1E4C  move.w    #$4000,DFF09A     Disable()
FC1E54  addq.b    #1,$0126(A6)
FC1E58  move.l    (A0),-(SP)        Store the signals.
FC1E5A  or.l      D0,(A0)           Or the new signals into the old ones.

        ; The code from here down is common to SetExcept, SetSignal, and
        ; Signal.  It checks if the task whose signals are being modified
        ; should be awakened.

FC1E5C  move.l    $1E(A1),D1        Check the exception signals,
FC1E60  and.l     D0,D1             and see if any of them have become set.
FC1E62  bne.s     FC1EAE            If so, go process them.
FC1E64  cmp.b     #4,$0F(A1)        See if the task is in the TS_WAIT state.
FC1E6A  bne.s     FC1EBE            If not, we're done.
FC1E6C  and.l     $16(A1),D0        See if a signal being waited for has been
FC1E70  beq.s     FC1EBE            set.  If not, we are done.

.....

        ; Exit here if the current task was allowed to keep running (i.e.
        ; the other task did not preempt it).

FC1EBE  subq.b    #1,$0126(A6)      Enable()
FC1EC2  bge.s     FC1ECC
FC1EC4  move.w    #$C000,DFF09A
FC1ECC  move.l    (SP)+,D0          Return old signals.
FC1ECE  rts

• Odpowiedz

@docent, post #28

Takie proste fifo to dobry pomysl.

FIFO dało trochę "ulgi" przy odbiorze sygnałów o obrotach rolki z myszki podczas przewijania dużego okna. Na wykresie poniżej widać już najdłuższe przerwy tylko około 90us. Problem nie występuje np. przy przewijaniu prostych list (np. MUI).

Zajętość procesora jest pewnie też do zoptymalizowania. Podczas próby udało mi się osiągnąć 0.5% czasu procesora (060/90MHz), a podczas spoczynku ledwo mierzalna.
Do optymalizacji np. jest kod który jest wykonywany za każdym razem, czyli wykrycie czy FIFO jest pełne:
Pierwotnie napisałem kod który sprawdza bity jeden po drugim (index FIFO jest dwubitowy) i przesuwa o 0, 2, 4 albo o 6 pozycji zawartość rejestru który ma być przekazany do .c:

Skoro przesunięcie jest w najgorszym przypadku o 6 pozycji kod poniższy okazał się nieco szybszy:

Jeśli macie jakieś uwagi do aktualnego kodu, byłbym wdzięczny za wszelkie uwagi i podpowiedzi.

• Odpowiedz

@sq7bti, post #29

• Odpowiedz