REQUIRE CASE-INS lib\ext\caseins.f

: MREAD-FILE READ-FILE ;
: MC! C! ;
: MC@ C@ ;
: MW! W! ;
: MW@ W@ ;
: M! ! ;
: M@ @ ;
: M+ + ;
: MNEGATE NEGATE ;
: MOVER OVER ;
: MAND AND ;
: MCR CR ;
: MEXECUTE EXECUTE ;
: MVARIABLE VARIABLE ;

REQUIRE >NAME ~mak\LIB\fpc.f
REQUIRE NUMBER? ~mak\LIB\fpcnum.f


TRUE VALUE QUICK
: SL\ POSTPONE \ ; IMMEDIATE

[DEFINED] GUI-CONSOLE
[IF] : FJB GUI-CONSOLE::FlushJetBuf ;
[ELSE] : FJB ;
[THEN]


REQUIRE TC_?LIMIT ~mak\LIB\THERE\STAT.f


MODULE: TC_M
REQUIRE T_@ ~mak\LIB\THERE\mthere.f
;MODULE
REQUIRE TH_H- ~mak\LIB\THERE\RECOM.F

\ REQUIRE CS-! ~mak\ext.f

REQUIRE ASMINF_MOD ~mak\MSP430\SRC\ASMMSP.f

~mak\MSP430\SRC\LEX.F
~mak\MSP430\SRC\prefix.f



\ EOF
\ REQUIRE DISMSP ~mak\MSP430\SRC\DISMSP.f
: M\ POSTPONE \ ; IMMEDIATE
REQUIRE T-START ~mak\MSP430\SRC\tc.f

[IFNDEF] W>S
: W>S ( w -- n ) \ Расширение знакового 16 разрядонго числа до 32 разрядного
0xFFFF AND \ удаляем грязь из старших разрядов
0x8000 XOR 0x8000 - ;
[THEN]


: HH.+ DUP C@ 2 H.R 1+ ;
: INST.+
HH.+ ." " ;

: MINST ( ADDR1 ADDR2 -- ADDR1 ADDR1 )
\ F7_ED
DUP H. 9 EMIT 9 EMIT INST.+
BEGIN 2DUP U>
WHILE \ DUP 7 AND 0= IF CR DUP H. 9 EMIT THEN
INST.+
REPEAT ;


REQUIRE INCLUDED_AL ~mak\LIB\THERE\mlist.f
\ DIS-OPT

0 VALUE ROM-HERE

0 VALUE FID


CREATE FTST 0x2000 ALLOT


CASE-INS ON

0x4000 TO CODE-SIZE

0xFC00 TO T-ORG \ Начальный целевой адрес области кода

T-ORG VALUE MT-ORG
0x5000 TO D-ORG \ Начальный целевой адрес области данных
0x5000 CONSTANT SP0@ \ дно стека данных
0x7F00 CONSTANT RP0@ \ дно стека возвратов
\ CREATE CS-ORG 1 CS-CELLS ALLOT

T-ORG TO INCL-HH

' NOOP TO <PRE>
[DEFINED] DBG_STOP [IF] DBG_STOP [THEN]

CR .( T-ORG=) T-ORG H.

\ S" devel\~mak\MSP430\BLOAD.F" INCLUDED \EOF

T-START

S" devel\~mak\MSP430\ROM.f" INCLUDED
HERE TO ROM-HERE
MCR .( ROM=) HERE T-ORG - .
.( safasfs)
S" F.C" CSAVE
S" F.BIN" TSAVE
S" F.HEX" T-SAVE
\ T-ORG HERE OVER ALSO FORTH - PREVIOUS DISMSP

T-STOP

...
T-START

S" devel\~mak\MSP430\ROM.f" INCLUDED
...

HERE TO ROM-HERE
MCR .( ROM=) HERE T-ORG - .
.( safasfs)
S" F.C" CSAVE
S" F.BIN" TSAVE
S" F.HEX" T-SAVE
\ T-ORG HERE OVER ALSO FORTH - PREVIOUS DISMSP

T-STOP

( DEFER SOME WORDS FOR EASE IN PORTING TO A CROSS ASSEMBLER )
DEFER     CODE-C, '     C, IS     CODE-C, ( X -- )
DEFER     CODE-W, '     W, IS     CODE-W, ( X -- )
...

: save-input ( -- x1 .. xn n ) \ core-ext
    \G The @i{n} entries @i{xn - x1} describe the current state of the
    \G input source specification, in some platform-dependent way that can
    \G be used by @code{restore-input}.
    (save-input) current-input @ swap 1+;

: include  ( ... "file" -- ... ) \ gforth
    \G @code{include-file} the file @var{file}.
    name included;

: require  ( ... "file" -- ... ) \ gforth
    \G @code{include-file} @var{file} only if it is not included already.
    name required;

see code
: code
  header here 8 + cfa, 0 init-asm; ok
  ok
see :
: :
  header (:noname); ok
see 2DUP
Code 2dup
( $402FE3 )  mov     dword ptr 42A6F8 , ebx  \ $89 $1D $F8 $A6 $42 $0
( $402FE9 )  mov     eax , dword ptr 4 [esi]  \ $8B $46 $4
( $402FEC )  mov     edx , dword ptr [esi]  \ $8B $16
( $402FEE )  sub     esi , # 8  \ $83 $EE $8
( $402FF1 )  add     ebx , # 4  \ $83 $C3 $4
( $402FF4 )  mov     dword ptr 4 [esi] , eax  \ $89 $46 $4
( $402FF7 )  mov     dword ptr [esi] , edx  \ $89 $16
( $402FF9 )  mov     edi , dword ptr FC [ebx]  \ $8B $7B $FC
( $402FFC )  jmp     4014A4  \ $E9 $A3 $E4 $FF $FF
end-code
ok