5776c82152
- grundlegende com-funktionen eingefügt lib\reg-ios.spin - com-funktionen - ios.screeninit: kein logo im v-modus system\administra\admay\admay.spin - sd_dmput eingefügt - sd_eof eingefügt system\regnatix\admtest.spin - korrektur bei fehlerhaftem screeninit system\regnatix\beltest.spin - menü eingefügt um einzelnen tests auszuführen - anpassung an tv-modus - neuer test für fensterfunktionen system\regnatix - tool man eingefügt - umstrukturierung aller tool-hilfen an man - anpassung der meisten tools an tv-modus system\sonstiges - man-hilfetexte 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
|
|
;
|