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
60 lines
1.0 KiB
Plaintext
60 lines
1.0 KiB
Plaintext
\ require ari.lib
|
|
|
|
ifnot: lib:g0
|
|
: lib:g0 ;
|
|
|
|
hex
|
|
|
|
10 constant g0:xtiles
|
|
0C constant g0:ytiles
|
|
5000 constant g0:disp_base
|
|
|
|
decimal
|
|
|
|
ifnot: g0:load
|
|
: g0:load
|
|
c" g0key.bel" bel:load ;
|
|
|
|
ifnot: g0:reboot
|
|
: g0:reboot 99 b[ [b!] ]b ;
|
|
|
|
hex
|
|
|
|
ifnot: g0:setcolortab
|
|
: g0:setcolortab \ ( addr -- )
|
|
5D b[ [b!]
|
|
40 0 do dup L@ [b.l!] 4 + loop
|
|
]b drop ;
|
|
|
|
ifnot: g0:settilescreen
|
|
: g0:settilescreen \ ( addr -- )
|
|
5E b[ [b!]
|
|
g0:ytiles 0 do
|
|
g0:xtiles 0 do dup W@ [b.w!] 2 + loop
|
|
loop ]b drop ;
|
|
|
|
decimal
|
|
|
|
\ ifnot: g0:setscreen
|
|
: g0:setscreen \ ( addr addr -- )
|
|
g0:setcolortab g0:settilescreen ;
|
|
|
|
ifnot: g0:static
|
|
: g0:static 98 b[ [b!] ]b ;
|
|
|
|
ifnot: g0:dynamic
|
|
: g0:dynamic 97 b[ [b!] ]b ;
|
|
|
|
ifnot: g0:clear \ ( -- ) - bildschirm loeschen
|
|
: g0:clear 10 b[ [b!] ]b ;
|
|
|
|
ifnot: g0:color \ ( color -- ) - zeichenfarbe setzen
|
|
: g0:color 12 b[ [b!] [b!] ]b ;
|
|
|
|
ifnot: g0:width \ ( x -- ) - punktgroesse setzen
|
|
: g0:width 13 b[ [b!] [b!] ]b ;
|
|
|
|
ifnot: g0:plot \ ( y x -- ) - punkt setzen
|
|
: g0:plot 15 b[ [b!] [b!] [b!] ]b ] ;
|
|
|