Subversion Repositories NedoOS

Rev

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

Rev 1509 Rev 1518
Line 71... Line 71...
71
        pop af ;CY=error
71
        pop af ;CY=error
72
       
72
       
73
        pop hl
73
        pop hl
74
        pop de
74
        pop de
75
        push af ;CY=error
75
        push af ;CY=error
76
        ex de,hl
-
 
77
        add hl,bc
76
        add hl,bc
78
        ex de,hl
-
 
79
        jr nc,$+3
77
        jr nc,$+3
80
        inc hl
78
        inc de
81
        pop af ;CY=error
79
        pop af ;CY=error
82
        jr nc,nvview_load0
80
        jr nc,nvview_load0
83
;hlde=true file size (for TRDOSFS)
81
;dehl=true file size (for TRDOSFS)
84
        ld (filesize),de
82
        ld (filesize),hl
85
        ld (filesizeHSW),hl
83
        ld (filesizeHSW),de
86
 
84
 
87
;закрываем файл сами, иначе cmd когда будет закрывать?
85
;закрываем файл сами, иначе cmd когда будет закрывать?
88
        ld a,(stdinhandle)
86
        ld a,(stdinhandle)
89
        ld b,a
87
        ld b,a
90
        OS_CLOSEHANDLE ;hl=size actually received
88
        OS_CLOSEHANDLE ;hl=size actually received
Line 403... Line 401...
403
       
401
       
404
        ld a,' '
402
        ld a,' '
405
        PRCHAR
403
        PRCHAR
406
nvview_ncurline=$+1
404
nvview_ncurline=$+1
407
        ld hl,0
405
        ld hl,0
408
        exx
-
 
409
        ld hl,0
406
        ld de,0
410
        exx
-
 
411
        call prdword
407
        call prdword_dehl
412
        ;ix
-
 
413
        ld a,'/'
408
        ld a,'/'
414
        PRCHAR
409
        PRCHAR
415
        ld hl,(nlines)
410
        ld hl,(nlines)
416
        exx
-
 
417
        ld hl,0
411
        ld de,0
418
        exx
-
 
419
        call prdword
412
        call prdword_dehl
420
        ld a,' '
413
        ld a,' '
421
        PRCHAR
414
        PRCHAR
422
        ld hl,(filesizeHSW)
-
 
423
        exx
-
 
424
        ld hl,(filesize)
415
        ld hl,(filesize)
-
 
416
        ld de,(filesizeHSW)
425
        call prdword
417
        call prdword_dehl
426
        ld b,43
418
        ld b,43
427
nvview_panel0
419
nvview_panel0
428
        ld a,' '
420
        ld a,' '
429
        push bc
421
        push bc
430
        PRCHAR
422
        PRCHAR