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

         inc hl
         add hl,bc
         inc hl ;пропускаем терминатор
         jr findline_lines0
-readnum_
+readnum_dehl_
-;out: hlde=num, hl'=text, CY=error
+;out: dehl=num, hl'=text, CY=error
         exx
         ld a,(hl)
         exx
         sub '0'
         cp 10 ;NC = не число
         ccf ;CY = не число
         ret c ;error
-readnum
+readnum_dehl
-;out: hlde=num, hl'=text, CY=error
+;out: dehl=num, hl'=text, CY=error
         ld hl,0
         ld de,0 ;накопитель
 readnum0
         exx
         ld a,(hl)
         cp 10 ;NC = конец числа
         jr nc,readnumq
         exx
         inc hl
         exx
-         push hl ;HSW
+         push de ;HSW
-         push de ;LSW
+         push hl ;LSW
-        sla e
+        add hl,hl
-        rl d
+        rl e
-        adc hl,hl ;*2
+        rl d ;*2
-        sla e
+        add hl,hl
-        rl d
+        rl e
-        adc hl,hl ;*4
+        rl d ;*4
          pop bc ;LSW
-         ex de,hl
          add hl,bc
-         ex de,hl
          pop bc ;HSW
+         ex de,hl
          adc hl,bc ;*5
-        sla e
+         ex de,hl
+        add hl,hl
-        rl d
+        rl e
-        adc hl,hl ;*10
+        rl d ;*10
-        add a,e
+        add a,l
-        ld e,a
+        ld l,a
-        ld a,d
+        ld a,h
         adc a,0
-        ld d,a
+        ld h,a
         jr nc,$+3
-        inc hl
+        inc de
         jr readnum0
 readnumq
         call eatspaces
         or a ;NC=OK
         ret
 add_or_run_line
 ;добавляет в программу строку в cmdbuf
         ld hl,cmdbuf
         exx
         call eatspaces
-        call readnum_ ;hlde=linenum, hl'=text, CY=error
+        call readnum_dehl_ ;dehl=linenum, hl'=text, CY=error
+        ex de,hl ;de номер
         jp c,cmd_run0;runline
         exx
         ld a,(hl)
         exx
         or a
         ret
 delline
 ;de=linenum
-        call findline ;hl=адрес строки или (progend)
+        call findline ;de номер ;hl=адрес строки или (progend)
         ld bc,(progend)
         or a
         sbc hl,bc
         add hl,bc
         ret z
         ld a,h
         cpl
         ld h,a
         ret
-neghlde
+negdebc
         xor a
-        sub e
+        sub c
+        ld c,a
+        ld a,0
+        sbc a,b
+        ld b,a
+        ld a,0
+        sbc a,e
         ld e,a
         ld a,0
         sbc a,d
         ld d,a
+        ret
+negdehl
-        ld a,0
+        xor a
-        sbc a,l
+        sub l
         ld l,a
         ld a,0
         sbc a,h
         ld h,a
-        ret
-negbcde
-        xor a
+        ld a,0
-        sub e
+        sbc a,e
         ld e,a
         ld a,0
         sbc a,d
         ld d,a
-        ld a,0
-        sbc a,c
-        ld c,a
-        ld a,0
-        sbc a,b
-        ld b,a
         ret
 prlinenum_tomem
+;de=num
         ld bc,prdword_digit_tomem
         ld (prdword_digit_prchar_jp),bc
         ld hl,0
+        ex de,hl
-        jr prdword_subr
+        jr _prdword_subr ;dehl=num
 prword_de
 ;de=num
         ld hl,0
+        ex de,hl
-prdword_hlde
+prdword_dehl
-;hlde=num
+;dehl=num
         ld bc,prdword_digit_toscr
         ld (prdword_digit_prchar_jp),bc
-        bit 7,h
+        bit 7,d
-        jr z,prdword_hlde_positive
+        jr z,prdword_positive
         ld a,'-'
         call prdword_digit_prchar
-        call neghlde
+        call negdehl
-prdword_hlde_positive
+prdword_positive
-prdword_subr
+_prdword_subr
         ld a,' '
         ld (prnumdwordcmd_zero),a
         ld lx,0
         ld bc,1000000000/65536
         ld a,1000000000/256&#ff
         call prdword_digit
         ld bc,100000000/65536
         ld a,100000000/256&#ff
         call prdword_digit
-        ld a,h
-        ld lx,a
+        ld lx,d
-        ld h,l
-        ld l,d
         ld d,e
+        ld e,h
+        ld h,l
         ld bc,10000000/256
         ld a,10000000&#ff ;0x989680
         call prdword_digit
         ld bc,1000000/256
         ld a,1000000&#ff
         ld a,100&#ff
         call prdword_digit
         ld bc,10/256
         ld a,10&#ff
         call prdword_digit
-        ld a,d
+        ld a,h
         add a,'0'
 prdword_digit_prchar
 prdword_digit_prchar_jp=$+1
         jp prdword_digit_tomem
 prdword_digit_toscr
         ld (hl),a
         inc hl
         exx
         ret
 prdword_digit
-;hlde=num
+;deh[l]=num
 ;bca0=divisor
-        push de
+        push hl
+        ex de,hl
         ld e,a
         ld a,d
         ld d,'0'-1
 ;hla0=num
 ;bce0=divisor
         add a,e
         adc hl,bc
         jr nc,$+4
         inc lx
          ld c,d ;digit
+        ex de,hl
-        pop de
+        pop hl
-        ld d,a ;hlde=num
+        ld h,a ;dehl=num
          ld a,c ;digit
         cp '0'
         jr nz,prnumdwordcmd_nozero
 prnumdwordcmd_zero=$+1
         ld a,' '
         ret
         endif
 ;getvar_int
 ;a=name (char)
-;out: hlde
+;out: dehl
         ;call findvar_int ;hl=addr
 getint
         ld e,(hl)
         inc hl
         ld d,(hl)
         inc hl
         ld a,(hl)
         inc hl
         ld h,(hl)
         ld l,a
+        ex de,hl
         ret
 ;getvar_str
 ;a=name (char)
 ;out: hl=straddr (first byte = len (0..255))
         ;call findvar_str ;hl=addr
         ;ret
 setvar_int
-;a=name (char), hlde=value
+;a=name (char), dehl=value
+        ex de,hl
         push hl
         call findvar_int ;hl=addr
         ld (hl),e
         inc hl
         ld (hl),d

Subversion Repositories NedoOS

?pathlinks? – Rev 1509 → 1518