kolibrios/programs/develop/SPForth/meforth_samples/menuet.f

28 lines
611 B
FortranFixed
Raw Normal View History

\ 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 ;