Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. \ S" /rd/1/1st.4th" INCLUDED
  2.  S" /rd/1/locals.f" INCLUDED
  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 ;
  28.