Subversion Repositories NedoOS

Rev

Rev 889 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 889 Rev 1410
Line 203... Line 203...
203 
        call cmdcalcpromptsz ;a=promptsz
 203 
        call cmdcalcpromptsz ;a=promptsz
204 
        ld hl,curcmdx ;не на экране, а внутри команды
 204 
        ld hl,curcmdx ;не на экране, а внутри команды
205 
        add a,(hl)
 205 
        add a,(hl)
206 
        ld hl,curcmdscroll ;сдвиг команды относительно экрана
 206 
        ld hl,curcmdscroll ;сдвиг команды относительно экрана
207 
        sub (hl)
 207 
        sub (hl)
208 
        ld e,a
 - 
 
209 
        ;ld d,txtscrhgt-1
 208 
        ;ld d,txtscrhgt-1
210 
        ld d,CMDLINEY
 209 
        ;ld d,CMDLINEY
- 
 
 210 
        ld de,(scrhgt-1) ;d
- 
 
 211 
        dec d
- 
 
 212 
        dec d
- 
 
 213 
        ld e,a
211 
        ret
 214 
        ret
212 
 
 215 
 
213 
strlen
 216 
strlen
214 
;hl=str
 217 
;hl=str
215 
;out: hl=length
 218 
;out: hl=length
Line 249... Line 252...
249 
        SETCOLOR_
 252 
        SETCOLOR_
250 
       else
 253 
       else
251 
        call nv_setcolor
 254 
        call nv_setcolor
252 
       endif
 255 
       endif
253 
        ;ld de,+(txtscrhgt-1)*256+0
 256 
        ;ld de,+(txtscrhgt-1)*256+0
254 
        ld de,CMDLINEY*256+0
 257 
        ;ld de,CMDLINEY*256+0
- 
 
 258 
        ld de,(scrhgt-1) ;d
- 
 
 259 
        dec d
- 
 
 260 
        dec d
- 
 
 261 
        ld e,0
255 
        call nv_setxy ;keeps de,hl,ix
 262 
        call nv_setxy ;keeps de,hl,ix
256 
        call cmdcalcpromptsz
 263 
        call cmdcalcpromptsz
257 
        dec a
 264 
        dec a
258 
        ld e,a ;!=0, т.к. буква дисковода
 265 
        ld e,a ;!=0, т.к. буква дисковода
259 
        ld d,0
 266 
        ld d,0
Line 274... Line 281...
274 
;добьём остаток строки пробелами
 281 
;добьём остаток строки пробелами
275 
        ;ld hl,tspaces
 282 
        ;ld hl,tspaces
276 
        ;jp prtext
 283 
        ;jp prtext
277 
        jp clearrestofline
 284 
        jp clearrestofline
278 
 
 285 
 
279 
tspaces
 286 
tspaces ;for drawfilecursor_sizeb_colorhl
280 
        ds txtscrwid-1,' '
 287 
        ds txtscrwid-1,' '
281 
        db 0
 288 
        db 0
282 
 
 289 
 
283 
cmdprNchars
 290 
cmdprNchars
284 
;hl=buffer
 291 
;hl=buffer