mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 09:21:37 +03:00
52 lines
1.7 KiB
NASM
Executable File
52 lines
1.7 KiB
NASM
Executable File
;/////////////////////////////////////////////////
|
||
; ‹¥¢®¥ ¬¥î ¢ë¡®à ¤¨áª®¢
|
||
;/////////////////////////////////////////////////
|
||
select_left_drive:
|
||
call test_show_panels ; â¥áâ ०¨¬ ¢ª«. ¯ ¥«¥©
|
||
ret z
|
||
call make_struct_drives ; ᮧ¤ âì ®¯¨á â¥«ì ¬¥î ¢ë¡®à ¤¨áª®¢
|
||
ld hl,disk ; ¤¨áª ªâ. ¯ ¥«¨
|
||
ld de,format_mode ; ä®à¬ â ªâ. ¯ ¥«¨
|
||
ld a,(cur_panel) ; ⥪. ¯ ¥«ì
|
||
or a
|
||
jr z,$+8 ; ªâ. «¥¢ ï
|
||
ld hl,disk1 ; ¤¨áª ¯ áá. ¯ ¥«¨
|
||
ld de,format_mode1 ; ä®à¬ â ¯ áá. ¯ ¥«¨
|
||
ld (set_ldrive_dsk+1),hl
|
||
ld (set_ldrive_frm+1),de
|
||
ld a,(hl) ; ®¬¥à ¤¨áª (¯®«®¦. ¯ãªâ ¬¥î)
|
||
inc a
|
||
ld hl,table_left_drive ; â ¡«¨æ ¬¥î ¢ë¡®à
|
||
call put_menu_select ; ®âà¨á®¢ª ¬¥î
|
||
call get_fire ; § é¨â ®â "§ «¨¯ ¨ï" ¡ãâ®®¢
|
||
call event_menu_select ; ®¡à ¡®â稪 ᮡë⨩ ¬¥î
|
||
; ãáâ. ¤¨áª ¯ ¥«¨
|
||
jp set_left_drive ; seldrv.asm
|
||
|
||
|
||
|
||
;/////////////////////////////////////////////////
|
||
; <20>à ¢®¥ ¬¥î ¢ë¡®à ¤¨áª®¢
|
||
;/////////////////////////////////////////////////
|
||
select_right_drive:
|
||
call test_show_panels ; â¥áâ ०¨¬ ¢ª«. ¯ ¥«¥©
|
||
ret z
|
||
call make_struct_drives ; ᮧ¤ âì ®¯¨á â¥«ì ¬¥î ¢ë¡®à ¤¨áª®¢
|
||
ld hl,disk ; ¤¨áª ªâ. ¯ ¥«¨
|
||
ld de,format_mode ; ä®à¬ â ªâ. ¯ ¥«¨
|
||
ld a,(cur_panel) ; ⥪. ¯ ¥«ì
|
||
or a
|
||
jr nz,$+8 ; ªâ. ¯à ¢ ï
|
||
ld hl,disk1 ; ¤¨áª ¯ áá. ¯ ¥«¨
|
||
ld de,format_mode1 ; ä®à¬ â ¯ áá. ¯ ¥«¨
|
||
ld (set_rdrive_dsk+1),hl
|
||
ld (set_rdrive_frm+1),de
|
||
ld a,(hl) ; ®¬¥à ¤¨áª (¯®«®¦. ¯ãªâ ¬¥î)
|
||
inc a
|
||
ld hl,table_right_drive ; â ¡«¨æ ¬¥î ¢ë¡®à
|
||
call put_menu_select ; ®âà¨á®¢ª ¬¥î
|
||
call get_fire ; § é¨â ®â "§ «¨¯ ¨ï" ¡ãâ®®¢
|
||
call event_menu_select ; ®¡à ¡®â稪 ᮡë⨩ ¬¥î
|
||
; ãáâ. ¤¨áª ¯ ¥«¨
|
||
jp set_right_drive ; seldrv.asm
|