forked from KolibriOS/kolibrios
28 lines
611 B
FortranFixed
28 lines
611 B
FortranFixed
|
\ S" /rd/1/1st.4th" INCLUDED
|
||
|
|
S" /rd/1/locals.f" INCLUDED
|
||
|
|
|
||
|
|
\ : sys_wnd ( border, header, workarea, y, x -- )
|
||
|
|
\ 1 12 sys2 DROP 0 sys6 2 12 sys2 2DROP ;
|
||
|
|
|
||
|
|
\ : thread ( stack, entry -- )
|
||
|
|
\ 1 51 sys4 DROP ;
|
||
|
|
|
||
|
|
: >regs
|
||
|
|
reg_struc ! ;
|
||
|
|
|
||
|
|
: new_reg
|
||
|
|
CREATE 6 CELLS ALLOT LAST @ NAME> 9 + >regs ;
|
||
|
|
|
||
|
|
: ax reg_struc @ ! ;
|
||
|
|
: bx reg_struc @ 1 CELLS + ! ;
|
||
|
|
: cx reg_struc @ 2 CELLS + ! ;
|
||
|
|
: dx reg_struc @ 3 CELLS + ! ;
|
||
|
|
: si reg_struc @ 4 CELLS + ! ;
|
||
|
|
: di reg_struc @ 5 CELLS + ! ;
|
||
|
|
|
||
|
|
: << ( x,y -- x<<16+y )
|
||
|
|
SWAP 16 LSHIFT + ;
|
||
|
|
|
||
|
|
: sys_print ( color, stra, u, x, y -- )
|
||
|
|
<< >R SWAP ROT R> 4 sys5 DROP ;
|