Subversion Repositories NedoOS

Rev

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

Rev Author Line No. Line
8 dimkam 1 
;startup
2 
FCB1=0xe800 ;aligned ;len=0x0200*files
3 
DOSBUF=0xfe00 ;aligned
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 
        ld hl,0xe800 ;FCB1
10 
        ld de,0xe801
11 
        ld bc,0x17ff
12 
        ld [hl],0
13 
        ldir
14 
 
11 dimkam 15 
	ld de,fnbuf.
16 
	ld (asmcompile.fn),de
17 
	ld hl,COMMANDLINE
18 
skipword0
19 
        ld a,(hl)
20 
        inc hl
21 
        or a
22 
        jr z,cmdquit ;хёыш ярЁрьхЄЁют тююс∙х эхЄ
23 
        cp ' '
24 
        jr nz,skipword0
25 
skipwordq
26 
        push hl
27 
        push de
28 
 
8 dimkam 29 
	LD HL,fnerr.
30 
	LD [openwrite.A.],HL
31 
	CALL openwrite
32 
	LD [_ferr],HL
33 
	LD A,TRUE
34 
	LD [_errs],A
35 
 
11 dimkam 36 
        pop de
37 
        pop hl
38 
 
8 dimkam 39 
l0.
40 
	ld a,(hl)
41 
	inc hl
42 
	ld (de),a
43 
	inc de
44 
	cp ' '+1
45 
	jr nc,l0. ;read until space or CR
46 
	dec de
47 
	xor a
48 
	ld (de),a ;'\0'
49 
 
50 
	call asmcompile
11 dimkam 51 
;cmdquit
8 dimkam 52 
	LD HL,[_ferr]
53 
	LD [fclose.A.],HL
54 
	call fclose
11 dimkam 55 
cmdquit
8 dimkam 56 
        rst 0x00 ;QUIT
57 
 
20 dimkam 58 
	include "../_sdk/emit.ast"
59 
	include "asm.ast"
60 
	include "asmloop.ast"
1410 alone 61 
	include "findlbl.i"
8 dimkam 62 
	include "../_sdk/lib.i"
63 
	include "../_sdk/str.i"
64 
	include "../_sdk/io_os.i"
65 
 
66 
fnbuf.
67 
	;db "12345678.123"
68 
	;db 0
69 
fnerr.
70 
	db "asmerr.f"
71 
	db 0
72 
	ds 4 ;for full name 8+3
73 
	ds COMMANDLINE_sz-11;12 ;for ../direname/
74 
 
75 
	include "../_sdk/emit.var"
76 
	include "../_sdk/fmttg.var"
77 
	include "asm.var"
78 
	include "asmloop.var"