mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 01:11:36 +03:00
63 lines
1.2 KiB
NASM
Executable File
63 lines
1.2 KiB
NASM
Executable File
CursorPos:
|
||
dw 1E00h ; Y/X ¯®§¨æ¨ï ªãàá®à (íªà . ª®®à¤.)
|
||
|
||
|
||
;-----------------------------------------------------------
|
||
; Šãàá®à ®¡ê¥ªâ "Input Line" ¨ äãªæ¨¨ "Command Line"
|
||
;-----------------------------------------------------------
|
||
PrnILCr:db 3Eh ; ld a,..
|
||
Timer: db 1 ; ¯ 㧠¬¨£ ¨ï
|
||
dec a
|
||
call z,PutILCr
|
||
ld (Timer),a
|
||
ret
|
||
|
||
|
||
PutILCr:db 3Eh ; ld a,..
|
||
Flag: db 0 ; ä« £ ªãàá®à 00-¥â/01-¥áâì
|
||
cpl
|
||
ld (Flag),a
|
||
PILCurs:ld de,(CursorPos) ; Y/X ¯®§¨æ¨ï ªãàá®à
|
||
ld (CursPos1+1),de
|
||
xor a
|
||
ld c,0B4h ; ¯®«ãç¨âì ᨬ¢®«
|
||
rst 08h
|
||
ld bc,1BB5h ; b=§ ª®£¥., á=ᨬ¢®« íªà
|
||
ld a,(Flag)
|
||
or a
|
||
jr z,curs__
|
||
ld b,1Ah ; ç¥àâ
|
||
ld a,(D0642) ; ä« £¨ ª« ¢ë
|
||
bit 1,a ; ¡¨â Ins
|
||
jr nz,$+4
|
||
ld b,19h ; ¡«®ª
|
||
curs__: xor a ; ®¬¥à ®ª
|
||
rst 08h
|
||
ld a,1
|
||
ld (CurILFl),a ; a=1
|
||
ld a,11
|
||
ret
|
||
|
||
; ‚몫îç¨âì ªãàá®à
|
||
ResILCr:db 3Eh ; ld a,..
|
||
CurILFl:db 0 ; ä« £ ªãàá®à 00-¢ëª«/01-¢ª«
|
||
or a
|
||
ret z
|
||
ld a,-1
|
||
ld (Flag),a
|
||
inc a
|
||
ld (CurILFl),a
|
||
ld a,11
|
||
ld (Timer),a
|
||
CursPos1:
|
||
ld de,0 ; Y/X ¯®«®¦.
|
||
bit 7,e
|
||
ret nz
|
||
ld c,0B4h ; ¯®«ãç¨âì ᨬ¢®«
|
||
xor a
|
||
rst 08h
|
||
xor a
|
||
ld bc,1BB5h ; ᨬ¢®« íªà
|
||
rst 08h
|
||
ret
|