mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 01:11:36 +03:00
152 lines
2.7 KiB
NASM
Executable File
152 lines
2.7 KiB
NASM
Executable File
; normal: 80 - ¤«¨ áâப¨
|
||
; 30 - ç¨á«® áâப
|
||
; qview: 38 - ¤«¨ áâப¨
|
||
; 28 - ç¨á«® áâப
|
||
;
|
||
|
||
|
||
len_string equ 80 ; ¤«¨ áâப¨
|
||
num_strings equ 30 ; ç¨á«® áâப
|
||
|
||
|
||
; <20>®«®¦. ªãàá®à
|
||
coord: dw 0100h ; Y/X
|
||
|
||
; <20>®«®¦. ®ª
|
||
winpos: dw 0 ; Y/X
|
||
|
||
; <20> §¬¥àë ®ª
|
||
winsize:dw 0 ; Y/X 1C26h=28/38, 1E50h=30/80
|
||
|
||
cur_mode_dump:
|
||
db 0 ; 0/1 ä« £ ⥪. ®ª (ascii/hex)
|
||
|
||
|
||
|
||
|
||
; <20> áâநâì ª®áâ âë ¢ìî¥à
|
||
setup_fview:
|
||
ld de,0100h ; Y/X
|
||
ld a,(viewer_mode) ; 0/1 ०¨¬ ¢ìî¥à (®à¬./¯ ¥«ìë©)
|
||
ld c,a
|
||
or a
|
||
jr z,setp__ ; ®¡®©â¨ ¯à¨ ®à¬. ०¨¬¥
|
||
ld hl,panel_right ; ª®®à¤¨ âë ¯ áá. ¯ ¥«¨
|
||
ld d,(hl) ; Y ¯®«®¦. ¯ ¥«¨
|
||
inc hl
|
||
ld e,(hl) ; X ¯®«®¦. ¯ ¥«¨
|
||
inc d
|
||
inc e
|
||
setp__: ld (coord),de ; ¯®«®¦. ªãàá®à
|
||
ld (winpos),de ; ¯®«®¦. ®ª
|
||
;xor true
|
||
;ld (UnWrap),a ; 0/1 ०¨¬ ¯¥à¥®á áâப
|
||
;
|
||
ld hl,1E50h ; 30/80 ®à¬. ०¨¬
|
||
dec c
|
||
inc c
|
||
jr z,$+5
|
||
ld hl,1C26h ; 28/38 ¯ ¥«ìë© à¥¦¨¬
|
||
ld (winsize),hl ; à §¬¥àë ®ª
|
||
;
|
||
; Š®áâ â 1
|
||
ld hl,82*30 ; ®à¬. ०¨¬ (len_string * num_strings)
|
||
dec c
|
||
inc c
|
||
jr z,$+5
|
||
ld hl,40*28 ; ¯ ¥«ìë© à¥¦¨¬
|
||
ld (const01+1),hl
|
||
ld (const02+1),hl
|
||
ld (const03+1),hl
|
||
ld (const04+1),hl
|
||
; Š®áâ â 2
|
||
ld hl,16*30 ; ®à¬. ०¨¬ (16 * num_strings)
|
||
dec c
|
||
inc c
|
||
jr z,$+5
|
||
ld hl,16*28 ; ¯ ¥«ìë©
|
||
ld (const20+1),hl
|
||
ld (const21+1),hl
|
||
ld (const22+1),hl
|
||
ld (const23+1),hl
|
||
ld (ABD79+1),hl
|
||
ld (const25+1),hl
|
||
ld (const26+1),hl
|
||
; —¨á«® áâப
|
||
; -1
|
||
ld a,29 ; ®à¬. ०¨¬
|
||
dec c
|
||
inc c
|
||
jr z,$+4
|
||
ld a,27 ; ¯ ¥«ìë©
|
||
ld (mt01+1),a
|
||
inc a ; +0
|
||
ld (met03+1),a
|
||
ld (met07+1),a
|
||
ld (met09+1),a
|
||
ld (met12+1),a
|
||
ld (AB6C7+1),a
|
||
ld (AB75C+1),a
|
||
ld (AB7E5+1),a
|
||
inc a ; +1
|
||
ld (metk04+1),a
|
||
ld (metk05+1),a
|
||
ld (metk06+1),a
|
||
ld (metk07+1),a
|
||
ld (metk08+1),a
|
||
ld (metk09+1),a
|
||
ld (metk10+1),a
|
||
ld (metk11+1),a
|
||
ld (metk12+1),a
|
||
ld (metk13+1),a
|
||
; „«¨ áâப¨
|
||
; -2
|
||
ld hl,78 ; ®à¬. ०¨¬
|
||
dec c
|
||
inc c
|
||
jr z,$+5
|
||
ld hl,36 ; ¯ ¥«ìë©
|
||
ld a,l
|
||
ld (loc20+1),a
|
||
ld (loc22+1),a
|
||
ld (loc21+1),hl
|
||
ld (loc23+1),hl
|
||
add a,2 ; +0
|
||
ld (loc04+1),a
|
||
ld (loc06+1),a
|
||
ld (loc07+1),a
|
||
ld (loc08+1),a
|
||
ld (loc09+1),a
|
||
ld (loc10+1),a
|
||
ld (loc11+1),a
|
||
ld (loc12+1),a
|
||
ld (loc13+1),a
|
||
ld (loc14+1),a
|
||
ld (loc15+1),a
|
||
ld (loc16+1),a
|
||
ld (loc17+1),a
|
||
ld (loc18+1),a
|
||
ld (loc19+1),a
|
||
ld (AB450+1),a
|
||
inc a ; +1
|
||
ld (loc30+1),a
|
||
inc a ; +2
|
||
ld l,a
|
||
ld h,0
|
||
ld (loc43+1),a
|
||
ld (loc40+1),hl
|
||
ld (loc41+1),hl
|
||
ld (loc42+1),hl
|
||
ld (loc44+1),hl
|
||
ld (loc45+1),hl
|
||
ld (AB8B5+1),hl
|
||
; Šà ©¥¥ X «¥¢®¥ ¯®«®¦. ®ª ¯à¨ áªà®««¨£¥ ¢¯à ¢®
|
||
ld a,255-80 ; 175 ®à¬. ०¨¬
|
||
dec c
|
||
inc c
|
||
jr z,$+4
|
||
ld a,255-38 ; ¯ ¥«ìë©
|
||
ld (AB618+1),a
|
||
ld (AB63A+1),a
|
||
ret
|