Jump to content

tebe

Members
  • Content Count

    868
  • Joined

  • Last visited

Community Reputation

671 Excellent

2 Followers

About tebe

  • Rank
    Dragonstomper

Contact / Social Media

Profile Information

  • Gender
    Male
  • Location
    Poland
  • Interests
    http://atariage.com/forums/topic/34916-graph2fnt/

Recent Profile Visitors

13,864 profile views
  1. disable 'Align PMG pixels to char' p.s. Align pixels is nessesery for 'Fade Effects' (Random box, Box, Left/Right, Plasma)
  2. used programs: 'g2f creator 1.4', g2f http://g2f.atari8.info/g2fcreator.7z Scarlet_C64_Carrion.g2f Scarlet_C64_Carrion.xex
  3. sieve: 580 sieve.obx sieve.pas
  4. Gollum_C64_Rensoup_Tebe.g2f Gollum_C64_Rensoup_Tebe.xex
  5. https://github.com/tebe6502/Mad-Pascal/tree/master/samples/math
  6. for a:=1 downto 0 do for b:=9 downto 0 do for c:=9 downto 0 do for d:=9 downto 0 do for e:=9 downto 0 do for f:=9 downto 0 do for g:=9 downto 0 do ; without a redundant "begin" / "end" in this case
  7. I'm not against that
  8. HCM-0 (Prior = $00), HCM-2 (Prior = $24)
  9. Thank you DMSC, I'm grateful for your contribution
  10. source code BombJack.7z BombJack_Cartridge.7z
  11. WHILE RTCLOK=CLOCK do begin end; WHILE RTCLOK=CLOCK do;
  12. other tips, BOOLEAN = TRUE if SKIP = true then writeln('ok'); lda SKIP cmp #$01 jne l_0077 @printSTRING #CODEORIGIN+$0007 @printEOL l_0077 SHORTER if SKIP then writeln('ok'); lda SKIP jeq l_0071 @printSTRING #CODEORIGIN+$0007 @printEOL l_0071
  13. other tips, STRINGS writeln('john has a cat'); writeln('john has a dog'); these strings are stored in the memory as $0e,'john has a cat',$00 $0e,'john has a dog',$00 SHORTER writeln('john ','has ','a ','cat'); writeln('john ','has ','a ','dog'); these strings are stored in the memory as $05,'john ',$00, $04,'has ',$00, $02'a ',$00,$03,'cat',$00 $03,'dog',$00
  14. spiral2 (additional optimization) three possible ways to optimise (slow, medium, fast) SLOW perlin_l : array [0..0] of byte; perlin_h : array [0..0] of byte; vram: PByte; zp: PByte; ; p := perlin_h[zp[k] + time]; lda ZP add K tay lda ZP+1 adc #$00 sta :bp+1 lda (:bp),y add TIME sta :STACKORIGIN+9 lda #$00 adc #$00 sta :STACKORIGIN+STACKWIDTH+9 lda PERLIN_H add :STACKORIGIN+9 tay lda PERLIN_H+1 adc :STACKORIGIN+STACKWIDTH+9 sta :bp+1 lda (:bp),y sta P ; vram[0] := perlin_l[zp[k] + time] or p; lda ZP add K tay lda ZP+1 adc #$00 sta :bp+1 lda (:bp),y add TIME sta :STACKORIGIN+10 lda #$00 adc #$00 sta :STACKORIGIN+STACKWIDTH+10 lda PERLIN_L add :STACKORIGIN+10 tay lda PERLIN_L+1 adc :STACKORIGIN+STACKWIDTH+10 sta :bp+1 lda (:bp),y ora P mvy VRAM+1 :bp+1 ldy VRAM sta (:bp),y MEDIUM perlin_l : array [0..255] of byte; perlin_h : array [0..255] of byte; vram: PByte; zp: PByte; ; p := perlin_h[zp[k] + time]; lda ZP add K tay lda ZP+1 adc #$00 sta :bp+1 lda (:bp),y add TIME tay lda adr.PERLIN_H,y sta P ; vram[0] := perlin_l[zp[k] + time] or p; lda ZP add K tay lda ZP+1 adc #$00 sta :bp+1 lda (:bp),y add TIME tay lda adr.PERLIN_L,y ora P mvy VRAM+1 :bp+1 ldy VRAM sta (:bp),y FAST perlin_l : array [0..255] of byte; perlin_h : array [0..255] of byte; vram: PByte absolute $e0; zp: PByte absolute $e2; ; p := perlin_h[zp[k] + time]; ldy K lda (ZP),y add TIME tay lda adr.PERLIN_H,y sta P ; vram[0] := perlin_l[zp[k] + time] or p; ldy K lda (ZP),y add TIME tay lda adr.PERLIN_L,y ora P ldy #$00 sta (VRAM),y spiral2.obx spiral2.pas
×
×
  • Create New...