mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 09:21:37 +03:00
105 lines
1.3 KiB
NASM
Executable File
105 lines
1.3 KiB
NASM
Executable File
; rst 00h
|
||
jp $+3
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
; RST 08h. ‚맮¢ <20>¨®á
|
||
push af
|
||
ld a,0 ; ¢ª«. <20>‡“ <20>¨®á ¢ 0-¥ ®ª®
|
||
out (7Ch),a
|
||
pop af
|
||
ret
|
||
db -1
|
||
; RST 10h. ‚맮¢ „Ž‘-
|
||
jp int10 ; fm.asm
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
; RST 18h. ‚맮¢ ¢¥ªâ®à®¢ ¤¥¢ ©á®¢
|
||
jp int18
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
; RST 20h. „à ©¢¥à ª« ¢ë ”Œ
|
||
jp KeybDrv
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
; RST 28h. ‚맮¢ ᯥª-ª®¤
|
||
push af
|
||
ld a,0 ; á®åà. page_spec
|
||
out (82h),a
|
||
pop af
|
||
ret
|
||
db -1
|
||
; RST 30h. „à ©¢¥à ¬ë誨 ”Œ
|
||
jp MouseDrv
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
db -1
|
||
;
|
||
; RST 38h. Main Interrupt
|
||
jp $+3
|
||
di
|
||
push iy
|
||
push ix
|
||
push hl
|
||
push de
|
||
push bc
|
||
push af
|
||
ex af,af'
|
||
exx
|
||
push hl
|
||
push de
|
||
push bc
|
||
push af
|
||
call main_interrupt
|
||
pop af
|
||
pop bc
|
||
pop de
|
||
pop hl
|
||
exx
|
||
ex af,af'
|
||
pop af
|
||
pop bc
|
||
pop de
|
||
pop hl
|
||
pop ix
|
||
pop iy
|
||
ei
|
||
reti
|
||
|
||
|
||
db -1,-1,-1,-1,-1,-1 ; £à ¨æã 0064h
|
||
|
||
;0064h
|
||
retn
|
||
db 0 ; 0066h (®â ¥¬ áª. ¯à¥àë¢ ¨ï ¢ IM0)
|
||
db 0
|
||
db 0
|
||
jp $-5
|
||
|
||
|
||
main_interrupt:
|
||
ld a,(CurILFl)
|
||
or a
|
||
call nz,PrnILCr ; á®äâ®¢ë© ªãàá®à
|
||
call show_clock ; ®â®¡à ¦¥¨¥ ç ᮢ ¯ ¥«¥©
|
||
di
|
||
ld a,(MouseFlg)
|
||
or a
|
||
call nz,Refresh ; ®¯à®á ¤à ©¢¥à ¬ë誨
|
||
jp keyb_scan ; ®¯à®á ¤à ©¢¥à ª« ¢ë
|
||
|
||
;================ Š®¥æ ¡«®ª ‚¥ªâ®à®¢ à¥áâ à⮢ =====================
|