/programs/develop/SPForth/meforth.ASM |
---|
1,7 → 1,5 |
; KolSPForth v12 |
SYSTEM equ EMUL |
;Memory Map |
; |
;0 |
99,12 → 97,8 |
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,7 → 466,10 |
include 'amain.asm' |
header db 'Kolibri Forth v12.1',0 |
params: rb 256 |
cur_dir_path: rb 4096 |
FINFO: |
.mode dd 0 |
dd 0 |
479,17 → 476,8 |
.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 |
I_END: |