atarionline.pl C64 one-liner - Forum Atarum

    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.

      • 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
      • 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ę :)
      • 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.
    1.  
      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ę?
    2.  
      @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
      • 25:
         
        CommentAuthorKaz
      • CommentTime28 Dec 2021 15:12
       
      Post 39 to filmik z tym efektem w wielu językach: ->link<-