• Odpowiedz

@cramer, post #1

• Odpowiedz

@cramer, post #1

Statement zmiendane{adres.l}
For i.b =0 To 6
   Poke.b adres+i , Peek.b(adres+i) +1
Next
End Statement

zmiendane{?Zmienna}

End

Zmienna:
DC.b 0,6,5,44,7,6,55

Statement zmiendane{adres.l}
MOVE.l D0,A0
MOVEQ #6,D7
Loop:
ADD.b #1,(A0)+
DBF D7,Loop
End Statement

• Odpowiedz

@tukinem, post #3

• Odpowiedz

@c64portal, post #4

.MainLOOP

; kod
BRA MainLOOP

• Odpowiedz

@c64portal, post #2

• Odpowiedz

@c64portal, post #4

Kurde jakoś tak byłoby mi głupio bez procedur. GOTO i GOSUB to było w Basicu na C64 i jak tylko dorwałem się do AMOSA to na zawsze zrezygnowałem z tych dwóch komend... a teraz mam wrócić?

• Odpowiedz

@cramer, post #7

• Odpowiedz

@cramer, post #7

• Odpowiedz

@c64portal, post #9

Tak w sumie to mało bawiłem się w deasemblację kodów, ale takie GOTO/GOSUB to identyczne jest z JMP i JSR, więc tu w zasadzie nie powinno dokładać niewiadomo jakiego kodu. Te basicowe komendy powinny działać szybciutko.

Chyba że kompilator jest na tyle inteligentny i dodatkowo kombinuje z BRA i BSR, ale wiem że kompilator z BB nie jest zbyt inteligentny

Wiele poradników i książek o AMOSIE uczy, żeby unikać Gosubów i Goto, ale to tylko dla wygody programisty, aby się nie pogubił chyba.

Ostatnia aktualizacja: 10.09.2024 21:29:01 przez tukinem

• Odpowiedz

@tukinem, post #8

W sumie racja. Pamiętam JSR i RTS z C64 jak bawiłem się asemblerem

• Odpowiedz

@c64portal, post #9

• Odpowiedz

@c64portal, post #9

• Odpowiedz

@cramer, post #13

#SPEED=2

.MainLoop
X=0
Y=0
If joyy(1)=1
   param1=Y
   JSR RuchWDol
   Y=param1
EndIf

If RawStatus($45) : BRA KONIEC : EndIf
BRA MainLoop

.KONIEC
END



.RuchWDol
param1 + #SPEED
RTS

• Odpowiedz