Subversion Repositories Kolibri OS

Rev

Rev 4867 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
9587 vitalkrilo 1
\ S" /sys/1st.4th" INCLUDED
2
 S" /sys/locals.f" INCLUDED
4867 leency 3
 
4
\ : sys_wnd ( border, header, workarea, y, x -- )
5
\   1 12 sys2 DROP 0 sys6 2 12 sys2 2DROP ;
6
 
7
\ : thread ( stack, entry -- )
8
\  1 51 sys4 DROP ;
9
 
10
: >regs
11
	reg_struc ! ;
12
 
13
: new_reg
14
	CREATE 6 CELLS ALLOT LAST @ NAME> 9 + >regs ;
15
 
16
: ax reg_struc @ ! ;
17
: bx reg_struc @ 1 CELLS + ! ;
18
: cx reg_struc @ 2 CELLS + ! ;
19
: dx reg_struc @ 3 CELLS + ! ;
20
: si reg_struc @ 4 CELLS + ! ;
21
: di reg_struc @ 5 CELLS + ! ;
22
 
23
: << ( x,y -- x<<16+y )
24
	SWAP 16 LSHIFT + ;
25
 
26
: sys_print ( color, stra, u, x, y -- )
27
  << >R SWAP ROT R> 4 sys5 DROP ;