• Odpowiedz

@marggines, post #1

• Odpowiedz

@selur, post #2

• Odpowiedz

@marggines, post #1

• Odpowiedz

@Stoopi, post #4

• Odpowiedz

@selur, post #5

Owszem.

• Odpowiedz

@marggines, post #1

• Odpowiedz

@asman, post #7

• Odpowiedz

@Norbert, post #8

• Odpowiedz

@Norbert, post #8

move.w #$ff00,$dff034

DOKE $dff0034,$ff00
secondButton = 0

btst #6,$dff016
bne .1
st secondButton
.1 
move.w #$c000,$dff034

' czekanie na ramke

 val = Peek($dff0016) and 64
 if (val = 0) then secondButton = 1
 Doke($dff034, $c000)

• Odpowiedz

@asman, post #10

• Odpowiedz

@tukinem, post #11

• Odpowiedz

@asman, post #10

• Odpowiedz

@asman, post #10

While Not Key State($45)

Wait Vbl 

Doke $DFF034,$FF00

Rem PIERWSZY PORT
If Deek($DFF016) and $400 : Rem 10 BIT 
   Rem 2 FIRE NIE WCISNIETY 
Else 
   Rem 2 FIRE WCISNIETY 
   Doke $DFF180,$F00
End If 



Rem DRUGI PORT 
If Deek($DFF016) and $4000 : Rem 14 BIT 
   Rem 2 FIRE NIE WCISNIETY 
Else 
   Rem 2 FIRE WCISNIETY 
   Doke $DFF180,$F00
End If 

Wend 

End

• Odpowiedz

@tukinem, post #14

• Odpowiedz

@asman, post #15

• Odpowiedz

@tukinem, post #16

• Odpowiedz

@asman, post #17

• Odpowiedz

@asman, post #17

Table 8-4: POTGO ($DFF034) and POTGOR ($DFF016) Registers

       Bit
       Number  Name    Function
       ------  ----    --------
       15      OUTRY   Output enable for bit 14 (1=output)
       14      DATRY   data for port 2, pin 9
       13      OUTRX   Output enable for bit 12
       12      DATRX   data for port 2, pin 5
       11      OUTLY   Output enable for bit 10
       10      DATLY   data for port 1, pin 9 (right  mouse button )
       09      OUTLX   Output enable for bit 8
       08      DATLX   data for port 1, pin 5 (middle  mouse button )
       07-01   X       chip revision identification number
       00      START   Start pots (dump capacitors, start counters)

• Odpowiedz

@tukinem, post #19

• Odpowiedz

@tukinem, post #14

sory, ze sie wcinam ale w Amosie, to nie dziala prawidlowo wg mnie.
If Deek($DFF016) and $400

nie kumam tego zapisu, przeciez wartosc true nigdy nie moze byc spelniona

• Odpowiedz

@selur, post #21

Działa bo sprawdziłem. To jest sprawdzenie bitu 14 pod adresem $DFF016. W Blitzu to byś miał: If Peek.w($dff016) BitTst 14.

Ustaw sobie joystick z drugim fire w emulatorze i sprawdź. Tylko bit 14 sprawdza port 2 a bit 10 port 1.

@Asman: sprawdziłem bez Doke $dff034,$ff00 i wtedy wystarczy raz wcisnąć fire a reaguje tak jakby był cały czas wciśnięty. Doke po WaitVBL powoduje ustawienie bitów 8-15 a one znowu się zerują po wciśnięciu. $cc00 ustawia jedynie bit 14 i 15, a $ff00 ustawia wszystkie 8, co jest prawidłowe. Sprawdziłem również pod Blitz Basic. Zarówno pod systemem jak i bez systemu jest identycznie, czyli kolejno: VWait, Move.w $ff00,$dff034 i sprawdzanie bitów spod $dff016. Pod systemem również bez wysłania $ff00 trzyma wyzerowany bit 14 po wciśnięciu drugiego fire i puszczeniu. Oczywiście BB ma własną funkcję od sprawdzania fire zarówno jednego jak i drugiego w obu portach, ale chciałem sprawdzić czy po odczycie z Pauli będzie też działać pod systemem. Piszę z Pauli, bo rejestry $dff016 oraz $dff034 to rejestry Pauli dla tych, co by nie wiedzieli, a to też ciekawostka, bo zazwyczaj ten układ kojarzy się mylnie tylko i wyłącznie z dźwiękiem

• Odpowiedz

@tukinem, post #22

• Odpowiedz

@selur, post #23

Możesz sobie napisać to inaczej żeby nie używać ELSE'a, np tak:

While Not Key State($45)
Wait Vbl 
Doke $DFF034,$FF00
Rem PIERWSZY PORT
If(Deek($DFF016) and $400)=0 : Rem 10 BIT 
   Rem 2 FIRE WCISNIETY 
   Doke $DFF180,$F00
End If 

Rem DRUGI PORT 
If(Deek($DFF016) and $4000)=0 : Rem 14 BIT 
   Rem 2 FIRE WCISNIETY 
   Doke $DFF180,$F00
End If 
Wend 
End

zadowolony?

a w BB to byłoby tak:

WBStartup
BLITZ

While NOT RawStatus($45)
   VWait
   
   If Joyb(0)=2    ; PORT 1
      MOVE.w #$f00,$dff180
   Endif

   If Joyb(1)=2    ; PORT 2
      MOVE.w #$f0,$dff180
   Endif

Wend

AMIGA
End

Ostatnia aktualizacja: 16.11.2024 15:25:36 przez tukinem

• Odpowiedz

@tukinem, post #24

• Odpowiedz

@djpiotrs, post #25

Jak nie działa jak działa? Trzeba sobie wyniki stablicować tylko.

Dim P0(1) : Dim P1(1)

While Not Key State($45)
Wait Vbl 
   P0(0)=0 : P0(1)=0 : P1(0)=0 : P1(1)=0

   Doke $DFF034,$FF00

Rem PIERWSZY PORT
   If Fire(0) Then P0(0)=1
   If(Deek($DFF016) and $400)=0 Then P0(1)=1

Rem DRUGI PORT 
   If Fire(1) Then P1(0)=1
   If(Deek($DFF016) and $4000)=0 Then P1(1)=1

   Locate 0,0
   Print "     PORT"
   Print " 0       1"
   Print P0(0),P0(1),P1(0),P1(1)

Wend 
End

Oto wynik wciśnięcia u mnie jednocześnie dwóch klawiszy myszy oraz NUM0 + NUM_DEL:

• Odpowiedz

@tukinem, post #24

• Odpowiedz

@selur, post #27

Poczytaj o wychyleniu joysticków to osiwiejesz bo tam dopiero jest dziwnie zrobione zresztą ci pisałem kiedyś. Tam robisz już EOR na dwóch różnych bitach. Odczyt klawiatury też jest ciekawy. Wszystko jest zaprojektowane jakby na złość koderom, ale idzie przywyknąć

• Odpowiedz

@selur, post #27

• Odpowiedz

@asman, post #29

• Odpowiedz