SBC6809 - Program - Mandelbrot set. Part-17

By Administrator at January 30, 2026 09:13
Filed Under: SBC8085-NCB85

SBC6809

 

Pre SBC počítače tých programov akosi nikdy nie je dosť. Tu je výpočet Mandelbrotovej množiny ktorý som upravil pre SBC6809 a taktiež pre SBC6502 (tam je dôležité aby bol aktívny aj riadok 166).

P.S.: ešte som doma našiel niečo čo som urobil pred vyše 2 rokmi - ale o tom niekedy nabudúce.

 

Listing:

  100 REM A BASIC, ASCII MANDELBROT
  110 REM
  120 REM This implementation copyright (c) 2019, Gordon Henderson
  130 REM
  140 REM Permission to use/abuse anywhere for any purpose granted, but
  150 REM it comes with no warranty whatsoever. Good luck!
  160 REM
  165 REM Adopted for SBC6502 and SBC6809 /32kB RAM by Igi (2026)
  166 REM POKE 15,80:REM Special line for SBC6502/new line
  170 C$ = ".,'~=+:;[/<&?oxOX# " : REM 'Pallet' Lightest to darkest...
  180 SO = 1 : REM Set to 0 if your MID$() indexes from 0.
  190 MI = LEN(C$)
  200 MX = 4
  210 LS = -2.0
  220 TP = 1.25
  230 XS = 2.5
  240 YS = -2.5
  250 REM W = 46:REM original line
  255 W = 78:REM new line for SBC6502_6809
  260 REM H=48:REM original line
  265 H = 24:REM new line for SBC6502_6809
  270 SX = XS / W
  280 SY = YS / H
  290 REM Q = TIME:REM no active line for SBC6502_6809
  300 FOR Y = 0 TO H
  310   CY = Y * SY + TP
  320   FOR X = 0 TO W
  330     CX = X * SX + LS
  340     ZX = 0
  350     ZY = 0
  360     CC = SO
  370     X2 = ZX * ZX
  380     Y2 = ZY * ZY
  390 REM: IF CC > MI THEN GOTO 460
:REM original line
  395      IF CC > MI THEN 460:REM line for SBC6502_6809
  400 REM: IF (X2 + Y2) > MX THEN GOTO 460
:REM original line
  405      IF (X2 + Y2) > MX THEN 460:REM line for SBC6502_6809
  410     T = X2 - Y2 + CX
  420     ZY = 2 * ZX * ZY + CY
  430     ZX = T
  440     CC = CC + 1
  450     GOTO 370
  460     PRINT MID$(C$, CC - SO, 1);
  470   NEXT
  480   PRINT
  490 NEXT
  500 REM PRINT:REM no active line for SBC6502_6809
  510 REM PRINT (TIME - Q) / 100:REM no active line for SBC6502_6809
  520 REM END:REM no active line for SBC6502_6809


New Mandelbrot SBC6502_6809.txt (1,66 kb)

 

Pri hodnotách H=24 A W=78 to vyzerá takto:

 

Pri hodnotách H=48 A W=78 to je už naozaj podrobnejšie (čas výpočtu pri väčšom rozlíšení utešene narastá ...):

..............,,,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''',,,,,,,,,,,,,,,,
.............,,,,,,,,,,,,,,'''''''''''''''''''''''''''''''''''''''',,,,,,,,,,,,
............,,,,,,,,,,,,'''''''''''''''''''''''''''=====+++=====''''''',,,,,,,,
...........,,,,,,,,,,''''''''''''''''''''''''''=======+:[&;+++======'''''',,,,,
..........,,,,,,,,''''''''''''''''''''''''''========+++:;x&;:::+======'''''',,,
.........,,,,,,,'''''''''''''''''''''''''==========++++:;/x&< /:+======='''''''
........,,,,,,'''''''''''''''''''''''''==========+++++:;[/& ?/;::++======='''''
.......,,,,,'''''''''''''''''''''''''===========++++::[?<x   &[[:++++======''''
......,,,,,''''''''''''''''''''''''===========++++::;/x       O?;:+++++====='''
.....,,,,''''''''''''''''''''''''===========+++::::;;[?        &[;::+++++====''
.....,,,'''''''''''''''''''''''==========+++::::;;;;[/&        &[[;::::::++==='
....,,,''''''''''''''''''''''=========++++:x<o <//x#&?oO      O?o<&&[;;;;[o:+==
....,,'''''''''''''''''''''=======++++++::;<     ?X                 &/<?<?o/:+=
...,,''''''''''''''''''''=====++++++++:::;;/?                        x    O<:+=
...,''''''''''''''''''====+++++++++++:::;[[<&X                            x;:++
..,''''''''''''''''====+++++++++++:::::;/X                              X&/;:++
..,''''''''''''=====+:;?;:::::::::;;;;;[/?                                <[[:+
..''''''''=======+++::[x<[[;[[x<[;;;;[[/x                                    [+
.,'''''========+++++::[<  Xo&&x ??x////<O                                   &;:
.'''==========++++++:;;/<o          ?&&?                                   ?/:+
.''=========+++++++:;;[<&O            xX                                     :+
.'=========+++++::#[//<o                                                   x;:+
.========+:::::;;[< ? o#                                                   [:++
.+++::;[;;;::;[[</#x                                                      [;:++
                                                                        &/;::++
.+++::;[;;;::;[[</#x                                                      [;:++
.========+:::::;;[< ? o#                                                   [:++
.'=========+++++::#[//<o                                                   x;:+
.''=========+++++++:;;[<&O            xX                                     :+
.'''==========++++++:;;/<o          ?&&?                                   ?/:+
.,'''''========+++++::[<  Xo&&x ??x////<O                                   &;:
..''''''''=======+++::[x<[[;[[x<[;;;;[[/x                                    [+
..,''''''''''''=====+:;?;:::::::::;;;;;[/?                                <[[:+
..,''''''''''''''''====+++++++++++:::::;/X                              X&/;:++
...,''''''''''''''''''====+++++++++++:::;[[<&X                            x;:++
...,,''''''''''''''''''''=====++++++++:::;;/?                        x    O<:+=
....,,'''''''''''''''''''''=======++++++::;<     ?X                 &/<?<?o/:+=
....,,,''''''''''''''''''''''=========++++:x<o <//x#&?oO      O?o<&&[;;;;[o:+==
.....,,,'''''''''''''''''''''''==========+++::::;;;;[/&        &[[;::::::++==='
.....,,,,''''''''''''''''''''''''===========+++::::;;[?        &[;::+++++====''
......,,,,,''''''''''''''''''''''''===========++++::;/x       O?;:+++++====='''
.......,,,,,'''''''''''''''''''''''''===========++++::[?<x   &[[:++++======''''
........,,,,,,'''''''''''''''''''''''''==========+++++:;[/& ?/;::++======='''''
.........,,,,,,,'''''''''''''''''''''''''==========++++:;/x&< /:+======='''''''
..........,,,,,,,,''''''''''''''''''''''''''========+++:;x&;:::+======'''''',,,
...........,,,,,,,,,,''''''''''''''''''''''''''=======+:[&;+++======'''''',,,,,
............,,,,,,,,,,,,'''''''''''''''''''''''''''=====+++=====''''''',,,,,,,,
.............,,,,,,,,,,,,,,'''''''''''''''''''''''''''''''''''''''',,,,,,,,,,,,
..............,,,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''',,,,,,,,,,,,,,,,


hodnoty H=128 A W=78:

..............,,,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''',,,,,,,,,,,,,,,,
..............,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''''''',,,,,,,,,,,,,,
.............,,,,,,,,,,,,,,,'''''''''''''''''''''''''''''''''''''',,,,,,,,,,,,,
.............,,,,,,,,,,,,,,''''''''''''''''''''''''''''''''''''''''',,,,,,,,,,,
............,,,,,,,,,,,,,'''''''''''''''''''''''''''''======='''''''',,,,,,,,,,
............,,,,,,,,,,,,'''''''''''''''''''''''''''============'''''''',,,,,,,,
...........,,,,,,,,,,,,''''''''''''''''''''''''''======+::++=====''''''',,,,,,,
...........,,,,,,,,,,,''''''''''''''''''''''''''======+:<;+++=====''''''',,,,,,
...........,,,,,,,,,,''''''''''''''''''''''''''=======+:[&;+++======'''''',,,,,
..........,,,,,,,,,,'''''''''''''''''''''''''========++:[O;::++======'''''',,,,
..........,,,,,,,,,'''''''''''''''''''''''''========+++:;X&:::+======''''''',,,
..........,,,,,,,,'''''''''''''''''''''''''=========+++:;O&[;;<+======''''''',,
.........,,,,,,,,'''''''''''''''''''''''''=========++++:;& /[[<:=======''''''',
.........,,,,,,,'''''''''''''''''''''''''==========++++:;/x<< <:+======='''''',
........,,,,,,,''''''''''''''''''''''''''=========++++::;/#xXO[:+======='''''''
........,,,,,,,'''''''''''''''''''''''''==========++++:;[[&#o/;:++=======''''''
........,,,,,,'''''''''''''''''''''''''==========+++++:;[/& ?/;::++======='''''
.......,,,,,,'''''''''''''''''''''''''===========++++:;;[<o ?/[;:++======='''''
.......,,,,,,''''''''''''''''''''''''===========+++++:;//   O<[;:+++=======''''
.......,,,,,'''''''''''''''''''''''''===========++++:;[o<o   &/[:++++======''''
.......,,,,'''''''''''''''''''''''''===========++++::[? oX   ?&o;+++++=====''''
......,,,,,''''''''''''''''''''''''===========++++::;&  X     x?;:+++++====='''
......,,,,'''''''''''''''''''''''''===========+++:::;/&       # [:++++++===='''
......,,,,''''''''''''''''''''''''===========+++:::;;[&        ?[;:+++++=====''
.....,,,,''''''''''''''''''''''''===========+++::::;;[?        &[;::+++++====''
.....,,,,'''''''''''''''''''''''===========++:::::;;[[O         [;;::+++++===''
.....,,,''''''''''''''''''''''''==========++:::::;;;[/?        ?[[;::::++++==='
.....,,,'''''''''''''''''''''''==========++::;;;;;;[//&        &/[;;::::::+==='
....,,,'''''''''''''''''''''''=========++++;;[#[[[[//<&X      X&//[;;::::;;+=='
....,,,'''''''''''''''''''''''========++++:?<< /[/o?&&?O      x?&/<<[;;;;[<:+==
....,,,''''''''''''''''''''''========++++:;?   <//o o O#      XO &  [[;;;/o:+==
....,,''''''''''''''''''''''=======+++++::;/O Oo&&  #            O  <[[[/oo;+==
....,,'''''''''''''''''''''=======++++++::;<     ?X                 &/<?<?o/:+=
...,,,''''''''''''''''''''======+++++++:::;&x    X                  x<? ooO :+=
...,,'''''''''''''''''''''=====++++++++:::;/?                        o     /:+=
...,,''''''''''''''''''''====+++++++++:::;[/?                        X    oO:++
...,,'''''''''''''''''''====+++++++++::::;[/?                             &[:++
...,'''''''''''''''''''===+++++++++++::::;[<&#                            x;:++
...,''''''''''''''''''===+++++++++++::::;[<&?X                            <;:++
..,,'''''''''''''''''===+++++++++++:::::[< o                             ?/;:++
..,''''''''''''''''====+++++++++++:::::;/X                              X&/;:++
..,'''''''''''''''===+::::::+++++:::::;;/                                ?/;;:+
..,'''''''''''''====++[[::::::::::::;;;[/O                                <[;:+
..,'''''''''''=====++:;#[;::::::;;;;;;;[/?                                &//;+
..,'''''''''=======++:;?[;;;;;/[;;;;;;[[<o                                o<&/+
..''''''''========+++:[x/[;;;[&<[;;;;[[/?                                   #[+
.,'''''''========+++::<X<//[[/ </[[[[[[<                                     X+
.,''''''========++++::[&??&</< x<//[[//<x                                    [:
.,'''''========+++++::[<  Xo&&x ??x////<O                                   &;:
.,''''=========+++++:;;/&  #ooX  Xo<//<&                                   ?[;:
.''''=========++++++:;;/<o         x&<&?                                   &[:+
.'''=========++++++::;;/<O          o&&o                                   ?<:+
.'''=========++++++:;;;/&           #o?x                                     :+
.''=========+++++++:;;[<&O           OoO                                    X:+
.''=========++++++:;;;<?              O#                                    <:+
.'=========+++++++;[[[<               #                                    &[:+
.'=========+++++::#[//<o                                                   x;:+
.=========+++::::;<<//&x                                                    ;:+
.========++:::::;[<x&#?                                                   #/:++
.========+:::::;;[<xx#x                                                    [:++
.=++++=+::::::;;;//X                                                      <;:++
.++++::[;;:::;;;[/&o                                                      [;:++
.++:::;/;;[[[[[/ &x#                                                     &[;:++
.++;:[[&o/[/&/<<xxX                                                     o/;;:++
                                                                        &/;::++
.++;:[[&o/[/&/<<xxX                                                     o/;;:++
.++:::;/;;[[[[[/ &x#                                                     &[;:++
.++++::[;;:::;;;[/&o                                                      [;:++
.=++++=+::::::;;;//X                                                      <;:++
.========+:::::;;[<xx#x                                                    [:++
.========++:::::;[<x&#?                                                   #/:++
.=========+++::::;<<//&x                                                    ;:+
.'=========+++++::#[//<o                                                   x;:+
.'=========+++++++;[[[<               #                                    &[:+
.''=========++++++:;;;<?              O#                                    <:+
.''=========+++++++:;;[<&O           OoO                                    X:+
.'''=========++++++:;;;/&           #o?x                                     :+
.'''=========++++++::;;/<O          o&&o                                   ?<:+
.''''=========++++++:;;/<o         x&<&?                                   &[:+
.,''''=========+++++:;;/&  #ooX  Xo<//<&                                   ?[;:
.,'''''========+++++::[<  Xo&&x ??x////<O                                   &;:
.,''''''========++++::[&??&</< x<//[[//<x                                    [:
.,'''''''========+++::<X<//[[/ </[[[[[[<                                     X+
..''''''''========+++:[x/[;;;[&<[;;;;[[/?                                   #[+
..,'''''''''=======++:;?[;;;;;/[;;;;;;[[<o                                o<&/+
..,'''''''''''=====++:;#[;::::::;;;;;;;[/?                                &//;+
..,'''''''''''''====++[[::::::::::::;;;[/O                                <[;:+
..,'''''''''''''''===+::::::+++++:::::;;/                                ?/;;:+
..,''''''''''''''''====+++++++++++:::::;/X                              X&/;:++
..,,'''''''''''''''''===+++++++++++:::::[< o                             ?/;:++
...,''''''''''''''''''===+++++++++++::::;[<&?X                            <;:++
...,'''''''''''''''''''===+++++++++++::::;[<&#                            x;:++
...,,'''''''''''''''''''====+++++++++::::;[/?                             &[:++
...,,''''''''''''''''''''====+++++++++:::;[/?                        X    oO:++
...,,'''''''''''''''''''''=====++++++++:::;/?                        o     /:+=
...,,,''''''''''''''''''''======+++++++:::;&x    X                  x<? ooO :+=
....,,'''''''''''''''''''''=======++++++::;<     ?X                 &/<?<?o/:+=
....,,''''''''''''''''''''''=======+++++::;/O Oo&&  #            O  <[[[/oo;+==
....,,,''''''''''''''''''''''========++++:;?   <//o o O#      XO &  [[;;;/o:+==
....,,,'''''''''''''''''''''''========++++:?<< /[/o?&&?O      x?&/<<[;;;;[<:+==
....,,,'''''''''''''''''''''''=========++++;;[#[[[[//<&X      X&//[;;::::;;+=='
.....,,,'''''''''''''''''''''''==========++::;;;;;;[//&        &/[;;::::::+==='
.....,,,''''''''''''''''''''''''==========++:::::;;;[/?        ?[[;::::++++==='
.....,,,,'''''''''''''''''''''''===========++:::::;;[[O         [;;::+++++===''
.....,,,,''''''''''''''''''''''''===========+++::::;;[?        &[;::+++++====''
......,,,,''''''''''''''''''''''''===========+++:::;;[&        ?[;:+++++=====''
......,,,,'''''''''''''''''''''''''===========+++:::;/&       # [:++++++===='''
......,,,,,''''''''''''''''''''''''===========++++::;&  X     x?;:+++++====='''
.......,,,,'''''''''''''''''''''''''===========++++::[? oX   ?&o;+++++=====''''
.......,,,,,'''''''''''''''''''''''''===========++++:;[o<o   &/[:++++======''''
.......,,,,,,''''''''''''''''''''''''===========+++++:;//   O<[;:+++=======''''
.......,,,,,,'''''''''''''''''''''''''===========++++:;;[<o ?/[;:++======='''''
........,,,,,,'''''''''''''''''''''''''==========+++++:;[/& ?/;::++======='''''
........,,,,,,,'''''''''''''''''''''''''==========++++:;[[&#o/;:++=======''''''
........,,,,,,,''''''''''''''''''''''''''=========++++::;/#xXO[:+======='''''''
.........,,,,,,,'''''''''''''''''''''''''==========++++:;/x<< <:+======='''''',
.........,,,,,,,,'''''''''''''''''''''''''=========++++:;& /[[<:=======''''''',
..........,,,,,,,,'''''''''''''''''''''''''=========+++:;O&[;;<+======''''''',,
..........,,,,,,,,,'''''''''''''''''''''''''========+++:;X&:::+======''''''',,,
..........,,,,,,,,,,'''''''''''''''''''''''''========++:[O;::++======'''''',,,,
...........,,,,,,,,,,''''''''''''''''''''''''''=======+:[&;+++======'''''',,,,,
...........,,,,,,,,,,,''''''''''''''''''''''''''======+:<;+++=====''''''',,,,,,
...........,,,,,,,,,,,,''''''''''''''''''''''''''======+::++=====''''''',,,,,,,
............,,,,,,,,,,,,'''''''''''''''''''''''''''============'''''''',,,,,,,,
............,,,,,,,,,,,,,'''''''''''''''''''''''''''''======='''''''',,,,,,,,,,
.............,,,,,,,,,,,,,,''''''''''''''''''''''''''''''''''''''''',,,,,,,,,,,
.............,,,,,,,,,,,,,,,'''''''''''''''''''''''''''''''''''''',,,,,,,,,,,,,
..............,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''''''',,,,,,,,,,,,,,
..............,,,,,,,,,,,,,,,,,,''''''''''''''''''''''''''''''',,,,,,,,,,,,,,,,

__________________________________________________

Vaše hodnotenie, Rate post:

Info o autorovi

Volám sa Igor Gramblička, bydlisko: Bratislava, Slovakia. Môj nick: Igi.

Blog je o mojich záujmoch, predtým som pracoval ako IT špecialista na počítačové siete a redakčné systémy pre viaceré denníky - až som pred rokmi nakoniec v jednom z nich zakotvil a kde som to potiahol až do konca mojej profesnej kariéry.

Rok, mesiac, počet článkov: