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 ;><>16+y><16+y>><> |