Subversion Repositories NedoOS

Rev

Rev 55 | 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 
 
9 
	org PROGSTART
10 
cmd_begin
177 demige 11 
        ld hl,0xe800 ;FCB1
12 
        ld de,0xe801
13 
        ld bc,0x17ff
14 
        ld [hl],0
15 
        ldir
16 
 
8 dimkam 17 
	call tokinit
18 
 
19 
	ld hl,fnbuf.
20 
	ld (tokenize.fn),hl
21 
	ld hl,COMMANDLINE
22 
        ld a,' '
23 
        ld bc,COMMANDLINE_sz
24 
        cpir
25 
        jr nz,cmdquit ;хёыш ярЁрьхЄЁют тююс∙х эхЄ
26 
loop.
27 
	dec hl
28 
	ld de,fnbuf.-1
29 
l0.
30 
	inc hl
31 
	inc de
32 
	ld a,(hl)
33 
	ld (de),a
34 
	cp ' '+1
35 
	jr nc,l0. ;read until space or CR
36 
	xor a
37 
	ld (de),a ;'\0'
38 
 
39 
	push hl
40 
	call tokenize
41 
	pop hl
42 
 
43 
	ld a,(hl)
44 
	or a ;cp 0x0d ;CR
45 
	inc hl
46 
	jr nz,loop.
47 
 
48 
	call tokenize_end
49 
cmdquit
50 
	rst 0 ;QUIT
51 
 
20 dimkam 52 
	include "../_sdk/read.ast"
53 
	include "token.ast"
54 
	include "tokenz80.ast"
8 dimkam 55 
	include "../_sdk/lib.i"
56 
	include "../_sdk/io_os.i"
57 
	include "../_sdk/str.i"
58 
 
59 
fnbuf.
60 
	db "12345678.123 "
61 
	ds COMMANDLINE_sz-11;50 ;for long filenames
62 
 
63 
	include "../_sdk/read.var"
64 
	include "../_sdk/fmttg.var"
65 
	include "token.var"
66 
	include "tokenz80.var"
67 
 
68 
cmd_end
69 
 
70 
	;display "tok size ",/d,cmd_end-cmd_begin," bytes"
71 
 
72 
	;savebin "tok.com",cmd_begin,cmd_end-cmd_begin