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

         pop hl
         exx
         ret
 cmd_gfx
-        call getexpr
+        call getexpr_dehl
         exx
         push hl
         exx
-        ld a,e
+        ld a,l
         and 7
         ld e,a
          ld (curgfx),a
          cp 6
          jr nz,$+4
         exx
         ret
 getexprcolor
 ;out: a=color = %33210210
-        call getexpr
+        call getexpr_dehl
-        ld a,e
+        ld a,l
         and 7
         ld d,a
-        ld a,e
+        ld a,l
         and 15
         add a,a
         add a,a
         add a,a
         or d ;%.3210210
         ret
 cmd_line
 ;hl'=курсор
 ;line x2,y2,color
-        call getexpr
+        call getexpr_dehl
-        ld (cmd_line_x2),de
+        ld (cmd_line_x2),hl
         call eatcomma
-        call getexpr
+        call getexpr_dehl
-        ld (cmd_line_y2),de
+        ld (cmd_line_y2),hl
         call eatcomma
         call getexprcolor ;a=color = %33210210
         push af ;color
         call setpgs_scr
         jp restorebasicpages
 cmd_plot
 ;hl'=курсор
 ;plot x,y,color
-        call getexpr
+        call getexpr_dehl
-        ld (cmd_plot_x),de
+        ld (cmd_plot_x),hl
         call eatcomma
-        call getexpr
+        call getexpr_dehl
-        ld (cmd_plot_y),de
+        ld (cmd_plot_y),hl
         call eatcomma
         call getexprcolor
         ;ld lx,a ;lx=color = %33210210
         ld (prpixel_color_l),a
         ld (prpixel_color_r),a
         jr nc,$+4
         set 6,h
         rra
         jr nc,$+4
         set 5,h
-        and %00111111
+        and 0b00111111
         add a,l
         ld l,a
         adc a,h
         sub l
         ld h,a
 prpixel_color_l=$+1
         ld a,0;lx
         xor (hl)
-        and %01000111 ;keep left pixel
+        and 0b01000111 ;keep left pixel
         xor (hl) ;right pixel from screen
         ld (hl),a
         ret
 prpixel_r
         rra
         jr nc,$+4
         set 6,h
         rra
         jr nc,$+4
         set 5,h
-        and %00111111
+        and 0b00111111
         add a,l
         ld l,a
         adc a,h
         sub l
         ld h,a
 prpixel_color_r=$+1
         ld a,0;lx
         xor (hl)
-        and %10111000 ;keep right pixel
+        and 0b10111000 ;keep right pixel
         xor (hl) ;left pixel from screen
         ld (hl),a
         ret
 cmd_system
 ;hl'=курсор
 ;system "command params"
-        call getexpr
+        call getexpr_dehl
         bit 7,c
         jp z,fail_syntax
         exx
         push hl
         exx
 ;hl = wordbuf = string
         ld de,curdir ;DE = Pointer to 64 byte (MAXPATH_sz!) buffer
         OS_GETPATH
         OS_SETSYSDRV ;TODO каталог cmd
         ld de,tcmd
         jp nz,close_restoredir_fail
 ;dehl=номера страниц в 0000,4000,8000,c000 нового приложения, b=id, a=error
         push bc ;b=id
         ld a,d
-        SETPG32KHIGH
+        SETPGC000
         push de
         push hl
         ld hl,syscmdbuf
-        ld de,#c000+COMMANDLINE
+        ld de,0xc000+COMMANDLINE
         ld bc,COMMANDLINE_sz
         ldir ;command line
         xor a
-        ld (#c000+COMMANDLINE+COMMANDLINE_sz-1),a ;на случай, если "cmd "+wordbuf больше 128 байт
+        ld (0xc000+COMMANDLINE+COMMANDLINE_sz-1),a ;на случай, если "cmd "+wordbuf больше 128 байт
         pop hl
         pop de
 cmd_system_handle=$+1
         ld b,0
         call readfile_pages_dehl
         pop af
         ret
 readfile_pages_dehl
         ld a,d
         push bc
-        SETPG32KHIGH
+        SETPGC000
         pop bc
          ld a,e
          push af
         ld a,+(#c000+PROGSTART)/256
         call cmd_loadpage
         call cmd_setpgloadpage
         ret nz
         ld a,l
 cmd_setpgloadpage
         push bc
-        SETPG32KHIGH
+        SETPGC000
         pop bc
-        ld a,#c000/256
+        ld a,0xc000/256
 cmd_loadpage
 ;a=loadaddr/256
 ;b=handle
 ;out: de=bytes read, NZ=end of file
 ;keeps hl,bc
 cmd_loadcode
 ;hl'=курсор
 ;load "name.bas"
-        call getexpr
+        call getexpr_dehl
         bit 7,c
         jp z,fail_syntax
         call cmd_load_hl
 ;нельзя выходить по ret, потому что старая программа уничтожена
         jp endofprog
         ret
 cmd_load
 ;hl'=курсор
 ;load "name.bas"
-        call getexpr
+        call getexpr_dehl
         bit 7,c
         jp z,fail_syntax
         call cmd_load_text
 ;нельзя выходить по ret, потому что старая программа уничтожена
         jp endofprog
         jp cmd_clear
 cmd_savecode ; оригинальная процедура быстрой выгрузки программы в файл
 ;hl'=курсор
 ;save "name.bas"
-        call getexpr
+        call getexpr_dehl
         bit 7,c
         jp z,fail_syntax
         ;exx
         ;ld a,(hl)
         ;exx
         ret
 cmd_save
 ;hl'=курсор
 ;save "name.bas"
-        call getexpr
+        call getexpr_dehl
         bit 7,c
         jp z,fail_syntax
         ex de,hl
 ;de=drive/path/file
         OS_CREATEHANDLE
         ld (hl),d
 cmd_for_nocreate
         call eateq
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
         ld a,c
         call setvar_int
         call eatword ;to
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         ld a,c
         call findvar_index
         ld de,4+4
         add hl,de
         pop de ;LSW
         ld (hl),d
         call eatword ;step
         push bc
-        call getexpr ;hlde=step
+        call getexpr_dehl ;dehl=step
         pop bc
         ld a,h
         or l
         or d
         or e
         jp z,fail_syntax
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         ld a,c
         call findvar_index
         ld de,4
         add hl,de
         pop de ;LSW
         ld a,c
         call findvar_index
         jp z,fail_syntax
         push hl
-        ld e,(hl)
-        inc hl
-        ld d,(hl)
-        inc hl
         ld c,(hl)
         inc hl
         ld b,(hl)
+        inc hl
+        ld e,(hl)
+        inc hl
+        ld d,(hl)
-        inc hl ;bcde = i
+        inc hl ;debc = i
         ld a,(hl)
-        add a,e
+        add a,c
-        ld e,a
+        ld c,a
         inc hl
         ld a,(hl)
-        adc a,d
+        adc a,b
-        ld d,a
+        ld b,a
         inc hl
         ld a,(hl)
-        adc a,c
+        adc a,e
-        ld c,a
+        ld e,a
         inc hl
         ld a,(hl)
-        adc a,b
+        adc a,d
-        ld b,a ;bcde = i = i+step
+        ld d,a ;debc = i = i+step
         ex (sp),hl
-        ld (hl),e
-        inc hl
-        ld (hl),d
-        inc hl
         ld (hl),c
         inc hl
         ld (hl),b
         inc hl
+        ld (hl),e
+        inc hl
+        ld (hl),d
+        inc hl
         pop hl
         bit 7,(hl) ;step>=0?
         push af
         inc hl
 ;to>=i?
         ld a,(hl)
-        sub e
+        sub c
-        ld e,a
+        ld c,a
         inc hl
         ld a,(hl)
-        sbc a,d
+        sbc a,b
-        ld d,a
+        ld b,a
         inc hl
         ld a,(hl)
-        sbc a,c
+        sbc a,e
-        ld c,a
+        ld e,a
         inc hl
         ld a,(hl)
-        sbc a,b
+        sbc a,d
-        ld b,a
+        ld d,a
         inc hl
-;bcde = to-i
+;debc = to-i
 ;TODO знаковое переполнение
         pop af ;NZ = step<0
-        call nz,negbcde
+        call nz,negdebc
 ;i<=to (to-i >= 0) - continue loop
-        bit 7,b ;Z = to-i>=0
+        bit 7,d ;Z = to-i>=0
         ret nz ;end of loop
-        call getint ;de=адрес после for ;было hlde=номер строки
+        call getint ;hl=адрес после for ;было dehl=номер строки
-        ex de,hl
         exx
         ret
         ;jp cmd_goto_ok
 cmd_dim
         exx
         cp '('
         jp nz,fail_syntax
         call eat
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
         call eatclosebracket
-;hlde=de=size
+        ex de,hl ;de=size
 ;c=name (char)
         ld hl,(varend)
         push hl
         ld (hl),e
         ld (hl),d
         ret
 cmd_edit
 ;hl'=курсор
-        call getexpr
+        call getexpr_dehl
+        ex de,hl
-        call findline
+        call findline ;de номер
         ld a,(hl)
         cp d
         jp nz,fail_syntax
         inc hl
         ld a,(hl)
         push hl
         exx
         ld hl,cmdbuf
         exx
-        call prlinenum_tomem
+        call prlinenum_tomem ;de номер
         exx
         ld (hl),' '
         inc hl
         push hl
         exx
         jr nz,cmd_let_createq
         ld a,c
         call addvar_int
 cmd_let_createq
         push bc
-        call getexpr ;hlde=value
+        call getexpr_dehl ;dehl=value
         pop bc ;иначе выражение может запороть c
         ld a,c
         call setvar_int ;TODO не искать переменную второй раз
         ret
 cmd_let_array
         call eat ;skip '(' and spaces
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
         call eatclosebracket
         ld a,c
         call findvar_int
         jp z,fail_syntax
         call indexarray
         push hl ;адрес элемента
         call eateq
-        call getexpr ;hlde
+        call getexpr_dehl
         ld b,h
-        ld c,l ;bcde
+        ld c,l ;debc
         pop hl ;адрес элемента
-        ld (hl),e
-        inc hl
-        ld (hl),d
-        inc hl
         ld (hl),c
         inc hl
         ld (hl),b
+        inc hl
+        ld (hl),e
+        inc hl
+        ld (hl),d
         ret
 cmd_let_str
         call eat ;skip '$' and spaces
         exx
         ret
 cmd_let_strarray
         call eat ;skip '(' and spaces
         push bc
-        call getexpr ;hlde=index
+        call getexpr_dehl ;dehl=index
         pop bc
         call eatclosebracket
         call eateq
+       ex de,hl
         ld a,c
-        call findvar_str
+        call findvar_str ;hl=str
         jp z,fail_syntax
-        ld a,d
+        ld a,d ;de=index
         or a
         jp nz,fail_syntax ;range check
         add hl,de
         push hl ;addr in str
-        call getexpr ;hlde=char
+        call getexpr_dehl ;dehl=char
+        ld a,l
         pop hl ;addr in str
-        ld (hl),e
+        ld (hl),a
         ret
 cmd_cls
         exx
         push hl
         exx
         ret
 cmd_if
 ;hl'=курсор
-        call getexpr
+        call getexpr_dehl
         ld a,h
         or l
         or d
         or e
         ret nz ;true = continue this line
         exx
         ret
 cmd_goto
 ;hl'=курсор
-        call getexpr
+        call getexpr_dehl
+        ex de,hl
-cmd_goto_ok
+;cmd_goto_ok
-;hlde=номер строки
+;de=номер строки
-        call findline
+        call findline ;de номер
         call startline
         exx
         ld a,RUNMODE_PROG
         ld (runmode),a
         ret
         exx
         ld a,(hl)
         exx
         cp ';'
         jp z,cmd_print_semicolon
-        call getexpr
+        call getexpr_dehl
-        call prval
+        call prval_dehl
         jr cmd_print
 cmd_print_semicolon
         call eat
         call eatcolon
         jr nz,cmd_print ;TODO cmd_print0?
         ret
-getexpr
+getexpr_dehl
-;out: hlde=value, c=type
+;out: dehl=value, c=type
         call getaddexpr
 getexpr0
         exx
         ld a,(hl)
         exx
         jr getexpr0
 getexpr_more_subr
 ;old > new: new-old = CY
         push bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         call getaddexpr
         pop bc ;LSW
-        ex de,hl
         or a
         sbc hl,bc
-        ex de,hl
         pop bc ;HSW
+        ex de,hl
         sbc hl,bc
+        ex de,hl
         pop bc
         ld hl,0
         ld de,0
         ret nc
         dec hl
         ret
 getexpr_less_subr
 ;old < new: old-new = CY
         push bc
-        push hl ;old HSW
+        push de ;old HSW
-        push de ;old LSW
+        push hl ;old LSW
         call getaddexpr
         pop bc ;old LSW
         pop af ;old HSW
-        push hl ;new HSW
+        push de ;new HSW
-        push de ;new LSW
+        push hl ;new LSW
         push af ;old HSW
         push bc ;old LSW
-        pop de ;old LSW
+        pop hl ;old LSW
-        pop hl ;old HSW
+        pop de ;old HSW
         pop bc ;LSW
-        ex de,hl
         or a
         sbc hl,bc
-        ex de,hl
         pop bc ;HSW
+        ex de,hl
         sbc hl,bc
+        ex de,hl
         pop bc
         ld hl,0
         ld de,0
         ret nc
         dec hl
         dec de ;old < new
         ret
 getexpr_eq_subr
         push bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         call getaddexpr
         pop bc ;LSW
-        ex de,hl
         or a
         sbc hl,bc
-        ex de,hl
         pop bc ;HSW
+        ex de,hl
         sbc hl,bc
+        ex de,hl
         ld a,d
         or e
         or h
         or l
         pop bc
         ret
 getaddexpr_plus
         call eat
         push bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         call getmulexpr
         pop bc ;LSW
-        ex de,hl
         add hl,bc
-        ex de,hl
         pop bc ;HSW
+        ex de,hl
         adc hl,bc
+        ex de,hl
         pop bc
         jr getaddexpr0
 getaddexpr_minus
         call eat
         push bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
         call getmulexpr
         pop bc ;LSW
-        ex de,hl
         or a
         sbc hl,bc
-        ex de,hl
         pop bc ;HSW
+        ex de,hl
         sbc hl,bc
+        ex de,hl
-        call neghlde
+        call negdehl
         pop bc
         jr getaddexpr0
 getmulexpr
-        call getval_
+        call getval_dehl_
 getmulexpr0
         exx
         ld a,(hl)
         exx
         ;or a
         ret
 getmulexpr_div
         call eat
         push bc
-        push hl ;HSW old
+        push de ;HSW old
-        push de ;LSW old
+        push hl ;LSW old
-        call getval_
+        call getval_dehl_
-        push hl ;LSW new
         push de ;HSW new
+        push hl ;LSW new
         exx
         pop ix ;LSW new
         pop bc ;HSW new
         pop de ;LSW old
         ex (sp),hl ;pop hl ;HSW old
+        call _DIVLONG. ;hl, de / bc, ix ;out: hl(high), de(low)
-        call _DIVLONG.
+       ex de,hl ;dehl
         exx
         pop hl ;курсор
         exx
         pop bc
         jr getmulexpr0
 getmulexpr_mul
         call eat
         push bc
-        push hl ;HSW
+        push de ;HSW
-        push de ;LSW
+        push hl ;LSW
-        call getval_
+        call getval_dehl_
         pop ix ;LSW
         pop bc ;HSW
+       ex de,hl ;hl,de
         call _MULLONG.
+       ex de,hl ;dehl
         pop bc
         jr getmulexpr0
 ;hl, de / bc, ix
 ;out: hl(high), de(low)
         ;EXPORT _DIVLONG.
         ld a,h
         xor b
         push af
         xor b
-        call m,neghlde
+        call m,div_neghlde
         ld a,b
         rla
         jr nc,divlongnonegbcix
         xor a
         sub lx
         exx
         pop de ;de' = "bc_in"
         ld hl,0
         exx
         ld a,e
-        ex af,af' ;e_in
+        ex af,af' ;' ;e_in
         push de ;d_in
         ld c,l ;l_in
         ld a,h ;h_in
         ld hl,0
         push ix
         ex af,af' ;a="e_in", a'="d"
         ;a="e_in"
 ;hl'hla <= 0hlde_in
         call _DIVLONGP. ;"e"
         ld e,a ;"e"
-        ex af,af' ;"d"
+        ex af,af' ;' ;"d"
         ld d,a
         pop hl ;h="l"
         ld l,h
         ld h,c ;"h"
         pop af
         ret p
-        jp neghlde
+div_neghlde
+        xor a
+        sub e
+        ld e,a
+        ld a,0
+        sbc a,d
+        ld d,a
+        ld a,0
+        sbc a,l
+        ld l,a
+        ld a,0
+        sbc a,h
+        ld h,a
+        ret
 ;a = hl'hla/de'de
 ;c not used
 _DIVLONGP.
 ;do 8 bits
         ld b,8
 getval_unaryminus
         call eat
-        call getval_
+        call getval_dehl_
-        jp neghlde
+        jp negdehl
 getval_bracket
         call eat
-        call getexpr
+        call getexpr_dehl
         jp eatclosebracket
-getval_
+getval_dehl_
 ;hl'=курсор
-;out: hlde=value, c=type
+;out: dehl=value, c=type
         exx
         ld a,(hl)
         exx
         cp '$'
         jp z,getval_function
         cp '-'
         jr z,getval_unaryminus
         cp '('
         jr z,getval_bracket
         cp '"'
-        jr z,getval_str
+        jp z,getval_str
         sub '0'
         cp 10
-        jr c,getval_num
+        jr c,getval_num_dehl
         exx
         ld a,(hl)
         exx
         ld c,a ;name
         exx
         set 7,c ;ld c,128 ;str
         ret
 getval_varchararray
         call eat
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
         call eatclosebracket
+       ex de,hl ;de=index
         ld a,c
         call findvar_str
         jp z,fail_syntax
-        ld a,d
+        ld a,d ;de=index
         or a
         jp nz,fail_syntax ;range check
         add hl,de
-        ld e,(hl)
+        ld l,(hl)
-        ld hl,0
+        ld de,0
-        ld d,h ;hlde=char
+        ld h,d ;dehl=char
         res 7,c ;ld c,0 ;int
         ret
 getval_vararray
         call eat
         push bc
-        call getexpr
+        call getexpr_dehl
         pop bc
         call eatclosebracket
+       ex de,hl ;de=index
         ld a,c
         call findvar_array
         jp z,fail_syntax
         call indexarray
         call getint
         res 7,c ;ld c,0 ;int
         ret
-getval_num
+getval_num_dehl
-        call readnum ;hlde=num, hl'=after num and spaces, CY=error
+        call readnum_dehl ;dehl=num, hl'=after num and spaces, CY=error
         jp c,fail_syntax
         res 7,c ;ld c,0 ;int
         ret
 getval_str
         call readstr ;hl=str, hl'=after str and spaces, CY=error
         jp c,fail_syntax
         set 7,c ;ld c,0 ;str
         ret
-prval
+prval_dehl
-;hlde=value, c=type
+;dehl=value, c=type
         exx
         push hl
         exx
         bit 7,c
         jr nz,prval_str
-        call prdword_hlde
+        call prdword_dehl
         pop hl
         exx
         ret
 prval_str
         call prstr_withlen

Subversion Repositories NedoOS

?pathlinks? – Rev 672 → 1518