Subversion Repositories NedoOS

Rev

Rev 55 | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
8 dimkam 1 
;startup
2 
TRUE=0xff
3 
FALSE=0x00
55 Alone 4 
	include "../../_sdk/sysdefs.asm"
20 dimkam 5 
;COMMANDLINE=0x0080
6 
;COMMANDLINE_sz=0x0080
7 
;PROGSTART=0x0100
8 dimkam 8 
	org PROGSTART
177 demige 9 
	jp startup. ;3 срщЄр!
8 dimkam 10 
_=$
11 
	include "compc_os.dcl"
12 
	incbin "compc_os.bin"
13 
startup.
177 demige 14 
        ld hl,0xe800 ;FCB1
15 
        ld de,0xe801
16 
        ld bc,0x17ff
17 
        ld [hl],0
18 
        ldir
19 
 
8 dimkam 20 
	LD HL,fnerr.
21 
	LD [openwrite.A.],HL
22 
	CALL openwrite
23 
	LD [_ferr],HL
24 
	LD A,TRUE
25 
	LD [_errs],A
26 
 
27 
	ld hl,fnbuf.
28 
	ld (compile.fn),hl
29 
 
30 
	ld hl,COMMANDLINE
31 
        ld a,' '
32 
        ld bc,COMMANDLINE_sz
33 
        cpir
34 
        jr nz,cmdquit ;хёыш ярЁрьхЄЁют тююс∙х эхЄ
35 
loop.
36 
	dec hl
37 
	ld de,fnbuf.-1
38 
l0.
39 
	inc hl
40 
	inc de
41 
	ld a,(hl)
42 
	ld (de),a
43 
	cp ' '+1
44 
	jr nc,l0. ;read until space or CR
45 
	xor a
46 
	ld (de),a ;'\0'
47 
 
48 
	push hl
49 
	call compile
50 
	pop hl
51 
 
52 
	ld a,(hl)
53 
	or a ;cp 0x0d ;CR
54 
	inc hl
55 
	jr nz,loop.
56 
 
57 
	LD HL,[_ferr]
58 
	LD [fclose.A.],HL
59 
	CALL fclose
60 
cmdquit
61 
	;QUIT
62 
	rst 0x00
63 
 
20 dimkam 64 
	include "../_sdk/read.ast"
65 
	include "compile.ast"
8 dimkam 66 
 
67 
fnbuf.
68 
	ds COMMANDLINE_sz;db "12345678.123"
69 
	;db 0
70 
fnerr.
71 
	db "err.f"
72 
	db 0
73 
 
74 
	include "../_sdk/read.var"
75 
	include "compile.var"