mirror of
https://github.com/Tolik-Trek/FFORMAT.git
synced 2026-06-15 01:11:44 +03:00
68 lines
1.1 KiB
NASM
Executable File
68 lines
1.1 KiB
NASM
Executable File
; ”ãªæ¨ï ¢ë室 ¢ „Ž‘
|
||
;
|
||
|
||
|
||
|
||
|
||
Exit: ; ¢ª«. ०¨¬ 1.44Mb
|
||
call set_1440
|
||
; ¢®ááâ. cga-¯ «¨âàã
|
||
ld bc,03A6h
|
||
ld a,0
|
||
RST ToBIOS
|
||
; ¢®ááâ. íªà
|
||
call RestScreen
|
||
; ¢®ááâ. ¯®«®¦. ªãàá®à á¨áâ. íªà
|
||
sys_cursor_coords+1:
|
||
ld de,0
|
||
LD C,BIOS.LP_SET_PLACE
|
||
RST ToBIOS
|
||
; ¢®ááâ. á¨áâ. ¤¨áª ¨ ¯ãâì
|
||
;call RestPath ;!FIXIT
|
||
ld hl,#6200 ;!HARDCODE
|
||
ld c,Dss.ChDir
|
||
RST ToDSS
|
||
; ®ç¨áâ¨âì ¡ãä¥à ª« ¢ë
|
||
ld bc,3135h
|
||
rst 0x10
|
||
; ®á¢®¡. ¢ë¤¥«¥ë© ¡«®ª ¯ ¬ïâ¨
|
||
; ld a,(hBlock)
|
||
; ld c,3Eh
|
||
; rst 0x10
|
||
; jr nc,quit
|
||
; ld hl,NoFree
|
||
; call Print
|
||
; ld b,-1 ; ª®¤ ®è¨¡ª¨
|
||
; jr quit1
|
||
quit: ld b,0
|
||
quit1: ld c,41h ; ¢ë©â¨ ¢ Estex
|
||
rst 0x10
|
||
ret
|
||
|
||
|
||
|
||
; ‚뢮¤ áâப¨ íªà
|
||
Print: ld c,5Ch
|
||
rst 0x10
|
||
ret
|
||
|
||
|
||
|
||
|
||
; ‚®ááâ. íªà
|
||
RestScreen: ld c,0B3h
|
||
jr _skrn
|
||
; ‘®åà ¨âì íªà
|
||
SaveScreen: ld c,BIOS.WIN_COPY ; ª®¯¨à. ¨§ ¡ãä¥à ¢ ®ª®
|
||
_skrn: di
|
||
ld ix,WinBoxBuff ; Address Box buffers
|
||
ld hl,2050h ; Y/X à §¬¥à ®ª
|
||
ld de,0000h ; Y/X ¯®«®¦. ®ª
|
||
ld a,(hPages.Win1) ; Page buffer
|
||
ld b,a
|
||
xor a
|
||
RST ToBIOS
|
||
ei
|
||
ret
|
||
|