08da8abf1e
- scr-funktionen ausgefügt flash\belflash.spin: - fehler im loader behoben (cog0 wurde nicht in allen fällen beendet) dank dafür geht an pic :) - farbtabellen auf 16 farben ergänzt, normalfarbe ist jetz mal retro-green :) flash\regflash.spin: - pause für slaves zur initialisierung eingefügt, damit diese bei installation ohne forth sauber starten forth\bel.lib: - korrektur wort bel:load forth\sd0.lib: - div. fehlerhafte stackkommentare korrigiert forth\tools.lib: - korrektur wort bel:load forth\g0.lib: zugefügt forth\tpix.f: zugefügt forth\win.lib: zugefügt lib\reg-ios.spin: - fehler in g0 printdec behoben - neue sidcog-funktion: sid_dmpreg system\administra\admsid\admsid.spin: - funktion sid_dmpreg eingefügt (für triborg-player) - funktion sd_dmput aus maincode übernommen - funktion sd_eof aus maincode übernommen system\regnatix\g0test.spin: - neue test's & effekte eingefügt system\regnatix\sysconf.spin: - "sysconf /ci" zeigt nun alle 16 farben an system\sonstiges\green.col: - grüne retro-farbtabelle eingefügt
49 lines
869 B
Forth
49 lines
869 B
Forth
\ requires bel.lib
|
|
\ requires g0.lib
|
|
\ requires ari.lib
|
|
|
|
hex
|
|
|
|
: it ; \ fuer forget
|
|
|
|
variable colortab 40 4* 4 - allot
|
|
variable tiletab g0:xtiles g0:ytiles * 2* 4 - allot
|
|
|
|
: fillcolortab
|
|
colortab
|
|
40 0 do
|
|
i dup + 4 + 0F and 00001010 * 0D060D02 +
|
|
over L! 4+
|
|
loop drop
|
|
;
|
|
|
|
: filltilescreen
|
|
tiletab g0:disp_base 6 rshift
|
|
g0:ytiles 0 do
|
|
g0:xtiles 0 do
|
|
swap 2dup W! 2+ swap g0:ytiles +
|
|
loop 341 +
|
|
loop 2drop ;
|
|
|
|
decimal
|
|
|
|
: setscreen
|
|
fillcolortab filltilescreen
|
|
tiletab colortab g0:setscreen
|
|
;
|
|
|
|
: tpix
|
|
g0:load setscreen g0:static
|
|
g0:clear 14 g0:width 1 g0:color
|
|
g0:xtiles 0 do i 16 * 8 +
|
|
g0:ytiles 0 do i 16 * 8 + over g0:plot loop drop
|
|
loop
|
|
key g0:clear
|
|
2000 0 do
|
|
rnd 31 and g0:width rnd 3 and g0:color
|
|
rnd rnd g0:plot
|
|
loop
|
|
key g0:reboot
|
|
cr ." erledigt" cr
|
|
;
|