Subversion Repositories NedoOS

;startup
FCB1=0x4800 ;aligned ;len=0x0200*files
DOSBUF=0xff00 ;aligned
        org 0x6000
        pop hl
        push hl
        ld a,h
        cp 0x3d
        jr nz,start.
        ld hl,start.
        ld (23834),hl ;рфЁхё чряєёър
        ld hl,467 ;т√їюф (шэрўх тючтЁрЄ т схщёшъ яюёых RUN "..." CODE эхтючьюцхэ)
        push hl
        jp 0x3d2f ;call in DOS
start.
        ld hl,(23645) ;CH_ADD
        ld b,1;bc,256
        ld a,234 ;REM
        ;cpir
        db 0xed,0xb1
        ld de,fn.
        ld (main.fn),de
        call copyfn.

        call main
        ld hl,10072
        exx
        ret

copyfn.
l0.
        ld a,(hl)
        inc hl
        ld (de),a
        inc de
        cp ' '+1
        jr nc,l0. ;read until space or CR
        xor a
        dec de
        ld (de),a ;'\0'
        ret

;from io.c:
findlastslash
findlastslash.A.=$+1
        ld hl,0
;hl = poi to filename in string
findlastslashok.
        ld d,h
        ld e,l ;de = after last slash
;find last slash
findlastslash0.
        ld a,[hl]
        inc hl
        or a
        jr z,findlastslashq.
        cp '/'
        jr nz,findlastslash0.
        jr findlastslashok.
findlastslashq.
        ex de,hl
;hl = after last slash
        ret 

        include "del.ast"
        include "../_sdk/lib.i"
        include "../_sdk/str.i"
        include "../_sdk/iofast.i"
        ;include "../_sdk/io.ast"

fn.
        db "nedoasm"
        db 0
        ds 50 ;for long filenames

        ;include "../_sdk/io.var"
        include "del.var"