Niezalogowany (Zaloguj się)

Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.

C64 one-liner

Od 1 do 25 z 25

- 1: CommentAuthormono
- CommentTime14 Apr 2021 18:04
Ktoś ma pomysł jak zrobić to:
tak prosto, jak na C=?
- 2: CommentAuthormrroman
- CommentTime14 Apr 2021 18:04 zmieniony
Tylko coś takiego mi przychodzi do głowy :). Znaków nie mamy :).

10 GR.0:POKE 82,0:POKE 756,128:FOR I=0 TO 7:POKE 32784+I+I*8,255:NEXT I:FOR P=0 TO 9999:? ")('&%$#$%&'()";:NEXT P

Ale wolniej działa interpreter w Atari. Albo procedury wyświetlania tekstu.
- 3: CommentAuthormono
- CommentTime14 Apr 2021 18:04
Pięknie. Przesuwa się skokowo, bo obraz w Atari skroluje się o jedną linię logiczną, czyli co 3 linie fizyczne.
- 4: CommentAuthormono
- CommentTime14 Apr 2021 19:04 zmieniony
Trzeba ustalać mapę linii logicznych zapisując rejestr LOGMAP edytora. Poniżej trywialna modyfikacja
10 GR.0:POKE 82,0:POKE 756,128:FOR I=0 TO 7:POKE 32784+I+I*8,255:NEXT I
20 POKE 690,255:? ")('&%$#$%&'()";:G.20
i wszystko działa jak należy :)

Edit: Aaaaa, zrobiłem two-liner. Ale one-liner też będzie działał:
10GR.0:POKE 82,0:POKE 756,128:F.I=0TO6:POKE 32792+I+I*8,255:POKE 32793+I+I*8,255:N.I:F.I=0TO1:POKE 690,255:? ")('&%$#$%&'()";:I=0:N.I
- WAVEANIM.LST
- 5: CommentAuthorrobert
- CommentTime14 Apr 2021 20:04 zmieniony
Jeszcze kursor wyłączyć
10GR.0:POKE752,1:POKE82,0:POKE756,128:F.I=0TO7:POKE32784+I+I*8,255:N.I:F.I=0TO1:POKE690,255:?")('&%$#$%&'()";:I=0:N.I

Wersja do skopiowania i wklejenia do Altirra (przed wklejeniem wpisać POKE 82,0)
- 6: CommentAuthormrroman
- CommentTime14 Apr 2021 21:04
@mono: Racja. Tak jakoś mi się zdawało że scroll jest co 3 linie. No i fakt wystarczy 7 znaków :). Jeszcze się zastanawiałem jak zrobić nieskończoną pętlę. Trik z I=0 bardzo fajny :).
- 7: CommentAuthormono
- CommentTime14 Apr 2021 21:04 zmieniony
@robert: Racja! Oto
10GR.0:POK.82,0:POK.752,1:POK.756,128:F.I=0TO6:POK.32792+I+I*8,255:POK.32793+I+I*8,255:N.I:F.I=0TO1:POK.690,255:?")('&%$#$%&'()";:I=0:N.I
Zastanawiałem się zawsze co daje skrót "POK." do "POKE" no i teraz wiem :)

Edit: Co prawda nasadziliśmy POKE'ów i zdefiniowaliśmy generator znaków, ale Atari dało radę :)
- WAVEANIM2.LST
- 8:
  
  CommentAuthorcrrn
- CommentTime14 Apr 2021 21:04
[...]
Ale wolniej działa interpreter w Atari. Albo procedury wyświetlania tekstu
[...]

no popatrz a w inny wątku TDC pisze że Atari 4 razy szybciej sprajty obsługuje...
coś musicie źle robić :D

sorry nie mogłem się powstrzymać :)

peace!
- 9: CommentAuthormono
- CommentTime14 Apr 2021 22:04
Hehe. Ale my tu nie mamy sprajtów :) A fala ma działać wolno.
Zrób lepiej ten program na C+4 :P
- 10:
  
  CommentAuthorcrrn
- CommentTime15 Apr 2021 11:04
Program na C+4 wygląda identycznie jak ten na C64. I działa tak samo :P :)
- 11: CommentAuthormono
- CommentTime15 Apr 2021 11:04
Wiem, wiem. To taka podpucha. Ale kolorki byłyby inne :)
- 12:
  
  CommentAuthortdc
- CommentTime15 Apr 2021 16:04
crrn:
no popatrz a w inny wątku TDC pisze że Atari 4 razy szybciej sprajty obsługuje...
coś musicie źle robić :D

sorry nie mogłem się powstrzymać :)

he he he;)

Ale ogólnie ten wątek pokazuje, że tak łatwo się tego w Atari BASIC zrobić nie da jak na C=64.
No nawaliliśmy (my atarowcy) tutaj kompletnie:P

13:

CommentAuthorpirx
CommentTime15 Apr 2021 16:04 zmieniony

jeszcze można dodać POKE 622,1 przed gr.0 dla ładniejszego skrola. z poke 710,0 robi się jeszcze psijemniej :]

10 POKE 622,1:GRAPHICS 0:POKE 710,0:POKE 82,0:POKE 752,1:POKE 756,128:FOR I=0 TO 6:POKE 32792+I+I*8,255
20   POKE 32792+I+I*8,255:POKE 32793+I+I*8,255:NEXT I:FOR I=0 TO 1:POKE 690,255:? ")('&%$#$%&'()";:I=0:NEXT I

- 14: CommentAuthormono
- CommentTime15 Apr 2021 19:04 zmieniony
@pirx: Ale to nie o to chodzi. Zgrubny scroll powoduje, że ten ekran naprawdę faluje. A fala idzie z prawa na lewo.

Edit: Z prawa na lewo oczywiście.
- 15:
  
  CommentAuthormgr_inz_rafal
- CommentTime15 Apr 2021 21:04
Moszna prościej :-)
- 16:
  
  CommentAuthortdc
- CommentTime15 Apr 2021 22:04
@mgr_inz_rafal - faktycznie piszesz to z podobną prędkością co ten na C= więc faktycznie udało się to Tobie zrobić na tym samym poziomie;)))
- 17: CommentAuthormono
- CommentTime15 Apr 2021 22:04
Oszustwo! Oszustwo! :) Co to za generator znaków Panie Kolego Magistrze Inżynierze? Hę?
- 18:
  
  CommentAuthormgr_inz_rafal
- CommentTime16 Apr 2021 10:04 zmieniony
@tdc
Przy tworzeniu portów najważniejsze jest przecież, żeby zachować klimat :)

@mono
Przepraszam, ja tylko wziąłem kilka POKE z kodu mrroman-a, nie miałem świadomości, że to jakiś generator :D
- 19: CommentAuthortebe
- CommentTime16 Apr 2021 14:04
wersja dla MP z dopalaczem E:
->link<-

ps.
można zaremować EFAST w USES i będzie standardowo
- 20: CommentAuthormono
- CommentTime16 Apr 2021 14:04
@tebe: Twoja fala jest bardziej regularna - oryginalna ma ostry szczyt a bardziej wypłaszczoną dolinę :)

21: CommentAuthormono
CommentTime16 Apr 2021 15:04 zmieniony

Wersja w aśmie:

font:
:14	.byte %00000000
.rept 7
:2	.byte %11111111
:5	.byte %00000000
.endr
	.byte %00000000

wave:
:6	.byte $21+#
	.byte $27
:6	.byte $26-#
?len = *-wave

progr:
	lda #>font	;$20
	sta CHBAS
	sta ICBUFA+1
	asl		;$40
	sta ICBUFA
	lda #PUTBT
	sta ICCMD
	lda #wave.?len
	sta ICBUFL

?loop	ldx #%11111111
	stx LOGMAP
	stx CRSINH
	inx		;$00
	stx ICBUFL+1
	stx LMARGN
	jsr JCIOMAIN
	bpl ?loop

- 22:
  
  CommentAuthormiker
- CommentTime17 Apr 2021 13:04
Przypomina mi się np. intro Recycle. Tam była bardzo fajna fala i to na plotach. :)
- 23: CommentAuthorgorgh
- CommentTime17 Apr 2021 13:04
mono: skoro powiedziałeś A w sizecodingu, to może powiesz i B i wystawisz intro na SV? :)
- 24: CommentAuthormono
- CommentTime19 Dec 2021 05:12
No to teraz taki kawałek (ogólnie znany chyba, bo pamiętam, że ktoś to kiedyś pokazywał):
10 PUT #16,6+(PEEK(53770)<128):GOTO 10
- atari0002.png
- 25:
  
  CommentAuthorKaz
- CommentTime28 Dec 2021 15:12
Post 39 to filmik z tym efektem w wielu językach: ->link<-

Od 1 do 25 z 25