Egor00f/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

Forth 12.2: small preparing

Browse Source 
git-svn-id: svn://kolibrios.org@4869 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2014-04-21 20:32:30 +00:00
parent 154d1426af
commit 3b7c0f7388
1 changed files with 27 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
programs/develop/SPForth/meforth.ASM
View File

@ -1,7 +1,5 @@
; KolSPForth v12
SYSTEM equ EMUL
;Memory Map
;
;0
@ -99,12 +97,8 @@ cfa_#F_CFA:
dd I_END ; size of image
MEMS: dd EM ; memory for app
dd SPP ; esp
if SYSTEM eq MEOS
dd FINFO.path
else
dd 0
end if
dd 0x0 ; I_Param , I_Icon
dd params
dd cur_dir_path
lang fix ru
include 'MACROS.INC'
@ -472,6 +466,9 @@ cfa_AHEADER 0,'READ_GIF',READ_GIF ;( gif_ptr, out_ptr -- result )
include 'amain.asm'
header db 'Kolibri Forth v12.1',0
params: rb 256
cur_dir_path: rb 4096
FINFO:
.mode dd 0
@ -479,15 +476,6 @@ cfa_AHEADER 0,'READ_GIF',READ_GIF ;( gif_ptr, out_ptr -- result )
.blk dd 1
.buf dd 0
.work dd os_work
.path:
db '/RD/1/AUTOLOAD.F'
; db '/RD/1/EXAMPLE.F'
; db '/RD/1/PICTURE.F'
db 0
.end_path:
rb 256-($-.path)
lastcur dd 0,0