tebe

disable 'Align PMG pixels to char' p.s. Align pixels is nessesery for 'Fade Effects' (Random box, Box, Left/Right, Plasma)

1.5 h

used programs: 'g2f creator 1.4', g2f http://g2f.atari8.info/g2fcreator.7z Scarlet_C64_Carrion.g2f Scarlet_C64_Carrion.xex

sieve: 580 sieve.obx sieve.pas

Gollum_C64_Rensoup_Tebe.g2f Gollum_C64_Rensoup_Tebe.xex

https://github.com/tebe6502/Mad-Pascal/tree/master/samples/math

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

I'm not against that

HCM-0 (Prior = $00), HCM-2 (Prior = $24)

Thank you DMSC, I'm grateful for your contribution

source code BombJack.7z BombJack_Cartridge.7z

WHILE RTCLOK=CLOCK do begin end; WHILE RTCLOK=CLOCK do;

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

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

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