Subversion Repositories NedoOS

Rev

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

Rev 1509 Rev 1518
Line 108... Line 108...
108 
        ret nz ;no memory
 108 
        ret nz ;no memory
109 
;nvview_load0nonewpg        
 109 
;nvview_load0nonewpg        
110 
        ld a,0xc000/256
 110 
        ld a,0xc000/256
111 
        call cmd_loadpage
 111 
        call cmd_loadpage
112 
        jr nz,nvview_load0q
 112 
        jr nz,nvview_load0q
113 
        ex de,hl
 - 
 
114 
        add hl,bc
 113 
        add hl,bc
115 
        ex de,hl
 - 
 
116 
        jr nc,$+3
 114 
        jr nc,$+3
117 
        inc hl
 115 
        inc de
118 
         ;TODO nvview_load0nonewpg with new pointer if no new page
 116 
         ;TODO nvview_load0nonewpg with new pointer if no new page
119 
        ld a,b
 117 
        ld a,b
120 
        or c
 118 
        or c
121 
        jr nz,nvview_load0
 119 
        jr nz,nvview_load0
122 
nvview_load0q
 120 
nvview_load0q
123 
;hlde=true file size (for TRDOSFS)
 121 
;dehl=true file size (for TRDOSFS)
124 
        ld (filesize),de
 122 
        ld (filesize),hl
125 
        ld (filesizeHSW),hl
 123 
        ld (filesizeHSW),de
126 
 
 124 
 
127 
        ld a,(curhandle)
 125 
        ld a,(curhandle)
128 
        ld b,a
 126 
        ld b,a
129 
        OS_CLOSEHANDLE
 127 
        OS_CLOSEHANDLE
130 
 
 128 
 
Line 194... Line 192...
194 
        jp z,nvview_home
 192 
        jp z,nvview_home
195 
        cp key_end
 193 
        cp key_end
196 
        jp z,nvview_end
 194 
        jp z,nvview_end
197 
        cp key_sspgdown;ext4
 195 
        cp key_sspgdown;ext4
198 
        jp z,nvview_end
 196 
        jp z,nvview_end
199 
        cp key_left
 197 
        ;cp key_left
200 
        jp z,nvview_left
 198 
        ;jp z,nvview_left
201 
        cp key_right
 199 
        ;cp key_right
202 
        jp z,nvview_right
 200 
        ;jp z,nvview_right
203 
        ;cp 'w'
 201 
        ;cp 'w'
204 
        ;jp z,nvview_wrap
 202 
        ;jp z,nvview_wrap
205 
        ret
 203 
        ret
206 
 
 204 
 
207 
nvview_wrap
 205 
nvview_wrap
Line 216... Line 214...
216 
        call nvview_calclines
 214 
        call nvview_calclines
217 
        ld hl,(curtoptextaddr)
 215 
        ld hl,(curtoptextaddr)
218 
        ld a,(curtoptextHSB)
 216 
        ld a,(curtoptextHSB)
219 
        jp nvview_calccurline
 217 
        jp nvview_calccurline
220 
 
 218 
 
221 
       
 219 
       if 0
222 
nvview_right
 220 
nvview_right
223 
        ld a,(nvview_prline_shift)
 221 
        ld a,(nvview_prline_shift)
224 
        add a,8
 222 
        add a,8
225 
        ret c
 223 
        ret c
226 
        ld (nvview_prline_shift),a
 224 
        ld (nvview_prline_shift),a
Line 232... Line 230...
232 
        sub 8
 230 
        sub 8
233 
        ret c
 231 
        ret c
234 
        ld (nvview_prline_shift),a
 232 
        ld (nvview_prline_shift),a
235 
        call nvview_prcurpage
 233 
        call nvview_prcurpage
236 
        jp clear_keyboardbuffer
 234 
        jp clear_keyboardbuffer
- 
 
 235 
       endif
237 
       
 236 
       
238 
nvview_prcurpage
 237 
nvview_prcurpage
239 
        ld hl,(curtoptextaddr)
 238 
        ld hl,(curtoptextaddr)
240 
        ld a,(curtoptextHSB)
 239 
        ld a,(curtoptextHSB)
241 
        jp nvview_prpage
 240 
        jp nvview_prpage
Line 502... Line 501...
502 
 
 501 
 
503 
        ld a,' '
 502 
        ld a,' '
504 
        MYPRCHAR
 503 
        MYPRCHAR
505 
nvview_ncurline=$+1
 504 
nvview_ncurline=$+1
506 
        ld hl,0
 505 
        ld hl,0
507 
        exx
 - 
 
508 
        ld hl,0
 506 
        ld de,0
509 
        exx
 - 
 
510 
        call prdword
 507 
        call prdword_dehl
511 
        ;ix
 - 
 
512 
        ld a,'/'
 508 
        ld a,'/'
513 
        MYPRCHAR
 509 
        MYPRCHAR
514 
        ld hl,(nlines)
 510 
        ld hl,(nlines)
515 
        exx
 - 
 
516 
        ld hl,0
 511 
        ld de,0
517 
        exx
 - 
 
518 
        call prdword
 512 
        call prdword_dehl
519 
        ld a,' '
 513 
        ld a,' '
520 
        MYPRCHAR
 514 
        MYPRCHAR
521 
        ld hl,(filesizeHSW)
 - 
 
522 
        exx
 - 
 
523 
        ld hl,(filesize)
 515 
        ld hl,(filesize)
- 
 
 516 
        ld de,(filesizeHSW)
524 
        call prdword
 517 
        call prdword_dehl
525 
        ld de,tspaces_filename
 518 
        ld de,tspaces_filename
526 
        ld hl,TSPACES_FILENAME_SZ
 519 
        ld hl,TSPACES_FILENAME_SZ
527 
        call sendchars
 520 
        call sendchars
528 
 
 521 
 
529 
 
 - 
 
530 
 
 - 
 
531 
 
 - 
 
532 
        ;ld e,NVVIEW_PANELCOLOR;#38
 522 
        ;ld e,NVVIEW_PANELCOLOR;#38
533 
        ;OS_PRATTR
 523 
        ;OS_PRATTR
534 
        ld de,_COLOR;#38
 524 
        ld de,_COLOR;#38
535 
       if PRSTDIO
 525 
       if PRSTDIO
536 
        SETCOLOR_
 526 
        SETCOLOR_