kolibrios/programs/develop/SPForth/src/gspf0.f
Kirill Lipatov (Leency) 09488af869 KolSPForth12 uploaded to SVN
git-svn-id: svn://kolibrios.org@4867 a494cfbc-eb01-0410-851d-a64ba20cac60
2014-04-21 19:22:58 +00:00

112 lines
3.5 KiB
FortranFixed
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

\ TSET-OPT
0x10 TOMM_SIZE
HERE TO TSAVE_LIMIT
USER-HERE-SET TO RESERVE
USER-HERE-SET USER-OFFS !
\ DECIMAL
\ TRUE WARNING ! \ çâ®¡ë ¡ë«®
\ ==============================================================
\ <20> ç «® ®¡à §  ®àâ-á¨á⥬ë
\ S" src/USER.F" INCLUDED
\ S" src/spf_defkern.f" INCLUDED
CR .( S" src/spf_forthproc.f" INCLUDED)
S" src/spf_forthproc.f" INCLUDED
\ S" src/spf_floatkern.f" INCLUDED
S" src/spf_forthproc_hl.f" INCLUDED
S" src/kol/spf_kol_const.f" INCLUDED
\ ==============================================================
S" src/kol\spf_kol_sys.f" INCLUDED
\ ’à ­á«ïæ¨ï ¨á室­ëå ⥪á⮢.
\ Ž¡à ¡®âª  ®è¨¡®ª.
\ Ž¯à¥¤¥«ïî騥 á«®¢ .
\ —¨á«®¢ë¥ «¨â¥à «ë.
\ “¯à ¢«¥­¨¥ ª®¬¯¨«ï樥©.
\ Š®¬¯¨«ïæ¨ï ã¯à ¢«ïîé¨å áâàãªâãà.
S" src/compiler/spf_immed_lit.f" INCLUDED
S" src/compiler/spf_defwords.f" INCLUDED
S" src/compiler/spf_immed_loop.f" INCLUDED
S" src/compiler/spf_error.f" INCLUDED
TDIS-OPT
S" src/compiler/spf_translate.f" INCLUDED
S" src/compiler/spf_immed_transl.f" INCLUDED
S" src/compiler/spf_literal.f" INCLUDED
S" src/compiler/spf_immed_control.f" INCLUDED
\ ==============================================================
\ Š®¬¯¨«ïæ¨ï ç¨á¥« ¨ áâப ¢ á«®¢ àì.
\ ‘®§¤ ­¨¥ á«®¢ à­ëå áâ â¥©.
\ <20>®¨áª á«®¢ ¢ á«®¢ àïå.
\ <20>¥ç âì á«®¢ à¥©.
\ S" src/temps4_.f" INCLUDED
\ EOF
S" src/compiler/spf_wordlist.f" INCLUDED
S" src/compiler/spf_find.f" INCLUDED
S" src/compiler/spf_words.f" INCLUDED
S" src/compiler/spf_compile0.f" INCLUDED
S" ~mak/~af/lib/c/zstr.f" INCLUDED
' ALITERAL TO ALITERAL-CODE
\ ‘âàãªâãà¨à®¢ ­­ ï ®¡à ¡®âª  ¨áª«î祭¨© (á¬.â ª¦¥ init)
S" src/spf_except.f" INCLUDED
\ ==============================================================
\ <20>¥ç âì ç¨á¥«
S" src/spf_print.f" INCLUDED
S" src/kol\spf_kol_module.f" INCLUDED
\ ==============================================================
\ ” ©«®¢ë© ¨ ª®­á®«ì­ë© ¢¢®¤-¢ë¢®¤ (kol-§ ¢¨á¨¬ë¥)
S" src/kol/spf_kol_con_io.f" INCLUDED
S" src/spf_con_io.f" INCLUDED
S" src/kol/spf_kol_io.f" INCLUDED
\ ==============================================================
\ “¯à ¢«¥­¨¥ ¯ ¬ïâìî
S" src/kol/spf_kol_memory.f" INCLUDED
\ ==============================================================
\ Œ ªà®¯®¤áâ ­®¢é¨ª-®¯â¨¬¨§ â®à
TRUE TO INLINEVAR
CR .( S" src/macroopt.f" INCLUDED)
MM_SIZE DUP H.
0x10 TOMM_SIZE
S" src/macroopt.f" INCLUDED
DUP H. TOMM_SIZE
S" src/compiler/spf_compile.f" INCLUDED
\ ==============================================================
\ <20> àá¥à ¨á室­®£® ⥪áâ  ä®àâ-¯à®£à ¬¬
S" src/compiler/spf_parser.f" INCLUDED
S" src/compiler/spf_read_source.f" INCLUDED
\ ==============================================================
\ ˆ­¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥­­ëå, startup
CR .( S" src/spf_init.f" INCLUDED)
S" src/spf_init.f" INCLUDED
\ ==============================================================
S" src/compiler/spf_modules.f" INCLUDED
S" src/MEFORTH.F" INCLUDED
S" src/spf_last.f" INCLUDED
\ S" src/tst.f" INCLUDED \EOF
\ EOF
CR .( =============================================================)
CR .( Done.
CR .( =============================================================)
MM_SIZE H.