SVN операционной системы NedoOS для ZX-Evo

 loadapp
 ;out: nz=error, cy=end of .bat, or else e=id
         ld hl,cmdbuf
         ld de,wordbuf
+        push de
         call getword
 ;учесть путь в имени (TODO использовать OS_OPENHANDLE)
-        ld hl,wordbuf
+        pop hl ;ld hl,wordbuf
         push hl
         call findlastslash. ;de=after last slash or beginning of path
         pop hl
         ;push hl
         cp 'b'
 ; TODO где проверка на остальные буквы?
         jp z,strcpexec_tryrun_bat
 ;считаем, что написано .com (в принципе расширение безразлично - просто запускаем)
         jr loadapp_finddotok1
 loadapp_nodot
+;TODO или сначала проверять bat, потом com?
 ;a=0
         ld (hl),'.'
         inc hl
         ld (exthlpointer),hl
         ld (hl),'c'
        endif
         pop af
         ret
 exthlpointer
         dw 0000
-        dw 0000
+        ;dw 0000
 readapp
         ld a,b
         ld (curhandle),a
 ;open .bat
 ;filename in wordbuf
         ld de,wordbuf ;pop de
         OS_OPENHANDLE
         or a
+        ret nz ;jp nz,execcmd_error ;NC!
         ld a,b
         ld (curbathandle),a
-        ret nz ;jp nz,execcmd_error ;NC!
          ld a,0x3c ;"inc a"
          ld (readbyte_readbuf_last),a
         ld iy,file_buf_end
 strcpexec_tryrun_bat0
         ld b,0
         ld de,file_buf
         push de
         ld hl,128
         OS_READHANDLE
+        ;jr $
         pop iy
 ;HL = Number of bytes actually read, A=error
         ;sub 1
         ;sbc a,a ;error=0 => a=255, else a=0 (Z)
         ;jr z,readbyte_readbufq ;error (=>EOF)
         ld hl,filinfo+FILINFO_LNAME
         ld a,(hl)
         or a
         jr nz,$+5
         ld hl,filinfo+FILINFO_FNAME
-        ;ld c,0 ;c=x
+        ;ld c,0 ;c=x???
         call prtext
-;c=x
+;c=x???
         call prcrlf
        pop bc ;nfiles
         inc bc ;nfiles
         or a
         jr cmd_dir2_0
         ld hl,(execcmd_pars)
         ld a,(hl)
         or a
         jp z,cmd_error_nopars
         ld de,wordbuf
+        push de
         call getword ;hl=terminator/space addr
-       if DEBUG
-        ld hl,wordbuf
-        ld c,0
-        call prtext
-        call prcrlf
-       endif
-        ld de,wordbuf ;de=drive/path/file
+        pop de ;ld de,wordbuf ;de=drive/path/file
         OS_OPENHANDLE
         or a
         jp nz,cmd_error_wrongfile
         ld a,b
         ld (close_file1_handle),a
         ld hl,close_file1
         push hl
 cmd_type0
 ;B = file handle, DE = Buffer address, HL = Number of bytes to read
         push bc
         ld de,cmd_type_buf
         ld hl,1
         ld hl,(execcmd_pars)
         ld a,(hl)
         or a
         jp z,cmd_error_nopars
         ld de,wordbuf
+        push de
         call getword ;hl=terminator/space addr
-        ld de,wordbuf ;de=drive/path/file
+        pop de ;ld de,wordbuf ;de=drive/path/file
         OS_CREATEHANDLE
         or a
         jp nz,cmd_error_wrongfile
         ld a,b
         ld (close_file1_handle),a
         ld hl,close_file1
         push hl
 cmd_tee0
         push bc
         GETKEY_
         ld (cmd_type_buf),a
         pop bc
         ld hl,1 ;TODO набивать буфер, потом писать много
         OS_WRITEHANDLE
 ;HL = Number of bytes actually written, A=error?
         pop bc
         jr cmd_tee0
 cmd_uname
-                ld hl,nedostr
+        ld hl,nedostr
         call prtext
-                OS_GETCONFIG
+        OS_GETCONFIG
-                push ix
+        push ix
-                pop de
+        pop de
-                ld h,b
+        ld h,b
-                ld l,c
+        ld l,c
-                call prdword_dehl
+        call prdword_dehl
-        call prcrlf
+        jp prcrlf
-                ret
 nedostr defb "NedoOS Kernel revision ",0
 cmd_echo
         ld hl,(execcmd_pars)
         call prtext
 cmd_pause
         call getkey
         ld hl,(execcmd_pars)
-                ld a,(hl)
+        ld a,(hl)
         or a
-        jp z,cmd_pause_infin
+        jr z,cmd_pause_infin
-                ld de,copybuf
+        ld de,copybuf
-                call strtobyte_hltode
+        call strtobyte_hltode
-                ld hl,(copybuf) ;умножаем на 48 интов в секунде
+        ld hl,(copybuf) ;умножаем на 50 интов в секунде
+        ld d,h
-                add hl,hl
+        ld e,l
-                add hl,hl
+        add hl,hl
+        add hl,de
-                add hl,hl
+        add hl,hl
-                add hl,hl
+        add hl,hl
-                ld d,h
-                ld e,l
-                add hl,hl
+        add hl,hl
-                add hl,de
+        add hl,de
+        add hl,hl
-                display "cmd_pause ",cmd_pause
+        ;display "cmd_pause ",cmd_pause
 cmd_pause_loop  ;ждем окончания счетчика, либо кнопку
-                ld a,h
+        ld a,h
-                or l
+        or l
-                ret z
+        ret z
-                push hl
+        push hl
         ld hl,wordbuf
         call prtext
         ld a,'>'
         PRCHAR_
         ld hl,wordbuf2
+        push hl
         call prtext
         call prcrlf
-        ld de,wordbuf2
+        pop de ;ld de,wordbuf2
         OS_MKDIR
         ld bc,0 ;номер файла в директории
 cmd_copydir0
         push bc
 printcurdir
         ld de,curdir__
         push de
         OS_GETPATH
         pop hl
-        ld c,0
+        ;ld c,0
         call prtext
-        call prcrlf
+        jp prcrlf
-        ret
 curdir__
         ds 256
         endif

Subversion Repositories NedoOS

?pathlinks? – Rev 1863 → 2039