/programs/develop/SPForth/meforth.ASM |
---|
1,5 → 1,7 |
; KolSPForth v12 |
SYSTEM equ EMUL |
;Memory Map |
; |
;0 |
97,8 → 99,12 |
dd I_END ; size of image |
MEMS: dd EM ; memory for app |
dd SPP ; esp |
dd params |
dd cur_dir_path |
if SYSTEM eq MEOS |
dd FINFO.path |
else |
dd 0 |
end if |
dd 0x0 ; I_Param , I_Icon |
lang fix ru |
include 'MACROS.INC' |
466,10 → 472,7 |
include 'amain.asm' |
header db 'Kolibri Forth v12.1',0 |
params: rb 256 |
cur_dir_path: rb 4096 |
FINFO: |
.mode dd 0 |
dd 0 |
476,8 → 479,17 |
.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: |