Subversion Repositories Kolibri OS

Rev

Rev 4868 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4868 Rev 4869
Line 1... Line 1...
1 
; KolSPForth v12
 1 
; KolSPForth v12
Line 2... Line -...
2 
 
 - 
 
3 
SYSTEM equ EMUL
 - 
 
4 
 
 2 
 
5 
;Memory Map
 3 
;Memory Map
6 
;
 4 
;
7 
;0
 5 
;0
8 
;0x02C7D	;I_END
 6 
;0x02C7D	;I_END
Line 97... Line 95...
97 
 	dd     0x01
 95 
 	dd     0x01
98 
 	dd     ORIG         ; start of code
 96 
 	dd     ORIG         ; start of code
99 
 	dd     I_END        ; size of image
 97 
 	dd     I_END        ; size of image
100 
MEMS: 	dd     EM       ; memory for app
 98 
MEMS: 	dd     EM       ; memory for app
101 
 	dd     SPP          ; esp
 99 
 	dd     SPP          ; esp
102 
if SYSTEM eq MEOS
 - 
 
103 
 	dd     FINFO.path
 - 
 
104 
else
 - 
 
105 
	dd     0
 100 
	dd     params
106 
end if
 - 
 
107 
 	dd     0x0	; I_Param , I_Icon
 101 
	dd     cur_dir_path
Line 108... Line 102...
108 
 
 102 
 
109 
 lang fix ru
 103 
 lang fix ru
110 
 include 'MACROS.INC'
 104 
 include 'MACROS.INC'
Line 470... Line 464...
470 
 last_ebp dd 0
 464 
 last_ebp dd 0
Line 471... Line 465...
471 
 
 465 
 
Line 472... Line 466...
472 
 include 'amain.asm'
 466 
 include 'amain.asm'
- 
 
 467
- 
 
 468 
 header db   'Kolibri Forth v12.1',0
- 
 
 469 
 params: rb 256
Line 473... Line 470...
473
470 
 cur_dir_path: rb 4096
474 
 header db   'Kolibri Forth v12.1',0
 471 
 
475 
 
 472 
 
476 
 FINFO:
 473 
 FINFO:
477 
 	.mode dd 0
 474 
 	.mode dd 0
478 
 			  dd 0
 475 
		  dd 0
479 
 	.blk  dd 1
 - 
 
480 
 	.buf  dd 0
 - 
 
481 
 	.work dd os_work
 - 
 
482 
 	.path:
 - 
 
483 
 	 db '/RD/1/AUTOLOAD.F'
 - 
 
484 
; 	 db '/RD/1/EXAMPLE.F'
 - 
 
485 
;	 db '/RD/1/PICTURE.F'
 - 
 
486 
 	db 0
 - 
 
487 
 	.end_path:
 - 
 
Line 488... Line 476...
488 
 
 476 
 	.blk  dd 1
Line 489... Line 477...
489 
 
 477 
 	.buf  dd 0