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
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
|
|
hex
|
|
|
|
ifnot: lib:win
|
|
: lib:win ;
|
|
|
|
\ kommandoformate
|
|
|
|
ifnot: bel:char \ ( b -- )
|
|
: bel:char b[ [b!] ]b ;
|
|
ifnot: bel:fkt! \ ( fkt -- )
|
|
: bel:fkt! b[ 0 [b!] [b!] ]b ;
|
|
ifnot: bel:fkt!b! \ ( b fkt -- )
|
|
: bel:fkt!b! b[ 0 [b!] [b!] [b!] ]b ;
|
|
ifnot: bel:fkt!b@ \ ( fkt -- b )
|
|
: bel:fkt!b@ b[ 0 [b!] [b!] [b@] ]b ;
|
|
ifnot: bel:fkt!b!b! \ ( b b fkt -- )
|
|
: bel:fkt!b!b! b[ 0 [b!] [b!] [b!] [b!] ]b ;
|
|
ifnot: bel:fkt!5b! \ ( b b b b b fkt -- )
|
|
: bel:fkt!5b! b[ 0 [b!] [b!] [b!] [b!] [b!] [b!] [b!] ]b ;
|
|
ifnot: bel:ctrl! \ ( ctrl -- )
|
|
: bel:ctrl! b[ 0 [b!] 3 [b!] [b!] ]b ;
|
|
ifnot: bel:ctrl!b! \ ( b ctrl -- )
|
|
: bel:ctrl!b! b[ 0 [b!] 3 [b!] [b!] [b!] ]b ;
|
|
ifnot: bel:ctrl!b@ \ ( ctrl -- b@ )
|
|
: bel:ctrl!b@ b[ 0 [b!] 3 [b!] [b!] [b@] ]b ;
|
|
ifnot: bel:ctrl!b!b! \ ( b b ctrl -- )
|
|
: bel:ctrl!b!b! b[ 0 [b!] 3 [b!] [b!] [b!] [b!] [b!] ]b ;
|
|
|
|
|
|
\ fensterfunktionen
|
|
|
|
ifnot: win:define \ ( yn xn y0 x0 w ) - fenster definieren
|
|
: win:define
|
|
50 bel:fkt!5b! ;
|
|
|
|
ifnot: win:set \ ( w -- ) - fenster auswählen
|
|
: win:set 52 bel:fkt!b! ;
|
|
|
|
ifnot: win:getcols \ ( -- cols ) - anzahl spalten im fenster abfragen
|
|
: win:getcols 54 bel:fkt!b@ ;
|
|
|
|
ifnot: win:getrows \ ( -- rows ) - anzahl zeilen im fenster abfragen
|
|
: win:getrows 55 bel:fkt!b@ ;
|
|
|
|
ifnot: win:oframe \ ( -- ) - rahmen um fenster zeichnen
|
|
: win:oframe 56 bel:fkt! ;
|
|
|
|
|