| /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: |