70 lines
2.4 KiB
Plaintext
70 lines
2.4 KiB
Plaintext
|
|
hex
|
|
|
|
ifnot: lib:scr
|
|
: lib:scr ;
|
|
|
|
\ kommandoformate
|
|
ifnot: bel:char \ ( b -- )
|
|
: bel:char b[ [b!] ]b ;
|
|
ifnot: bel:fkt!b! \ ( b fkt -- )
|
|
: 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: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 ;
|
|
|
|
\ einfache steuerzeichen
|
|
ifnot: scr:cls \ ( -- ) - screen löschen
|
|
: scr:cls 01 bel:char ;
|
|
ifnot: scr:home \ ( -- ) - cursor oben links
|
|
: scr:home 02 bel:char ;
|
|
ifnot: scr:pos1 \ ( -- ) - cursor an zeilenanfang
|
|
: scr:pos1 03 bel:char ;
|
|
ifnot: scr:curon \ ( -- ) - cursor anschalten
|
|
: scr:curon 04 bel:char ;
|
|
ifnot: scr:curoff \ ( -- ) - cursor abschalten
|
|
: scr:curoff 05 bel:char ;
|
|
ifnot: scr:scrlu \ ( -- ) - screen nach oben scrollen
|
|
: scr:scrlu 06 bel:char ;
|
|
ifnot: scr:scrld \ ( -- ) - screen nach unten scrollen
|
|
: scr:scrld 07 bel:char ;
|
|
ifnot: scr:bs \ ( -- ) - backspace
|
|
: scr:bs 08 bel:char ;
|
|
ifnot: scr:tab \ ( -- ) - tabulator
|
|
: scr:tab 09 bel:char ;
|
|
|
|
\ screen-funktionen
|
|
ifnot: scr:logo \ ( y x -- ) - hive logo
|
|
: scr:logo 5 bel:fkt!b!b! ;
|
|
ifnot: scr:char \ ( char -- ) - zeichensatz direkt ausgeben
|
|
: scr:char 6 bel:fkt!b! ;
|
|
|
|
\ parametrisierte steuerzeichen
|
|
ifnot: scr:setcur \ ( cur -- ) - cursorzeichen setzen
|
|
: scr:setcur 01 bel:ctrl!b! ;
|
|
ifnot: scr:setx \ ( x -- ) - cursor position x setzen
|
|
: scr:setx 02 bel:ctrl!b! ;
|
|
ifnot: scr:sety \ ( y -- ) - cursor position y setzen
|
|
: scr:sety 03 bel:ctrl!b! ;
|
|
ifnot: scr:getx \ ( -- x ) - cursor position x abfragen
|
|
: scr:getx 04 bel:ctrl!b@ ;
|
|
ifnot: scr:gety \ ( -- y ) - cursor position y abfragen
|
|
: scr:gety 05 bel:ctrl!b@ ;
|
|
ifnot: scr:setcol \ ( colnr -- ) - farbe wählen 0..15
|
|
: scr:setcol 06 bel:ctrl!b! ;
|
|
ifnot: scr:sline \ ( row -- ) - anfangszeile scrollbereich
|
|
: scr:sline 07 bel:ctrl!b! ;
|
|
ifnot: scr:eline \ ( row -- ) - endzeile scrollbereich
|
|
: scr:eline 08 bel:ctrl!b! ;
|
|
ifnot: scr:sinit \ ( -- ) -
|
|
: scr:sinit 09 bel:ctrl! ;
|
|
ifnot: scr:tabset \ ( pos nr -- ) - tabulatorposition setzen 0..7
|
|
: scr:tabset 0A bel:ctrl!b!b! ;
|