mirror of
https://github.com/Tolik-Trek/File-Manager.git
synced 2026-06-15 01:11:36 +03:00
65 lines
1.4 KiB
NASM
Executable File
65 lines
1.4 KiB
NASM
Executable File
; Ž¡ê¥ªâë, ¥ ¨¬¥î騥 䮪ãá
|
||
;
|
||
|
||
|
||
|
||
|
||
;=====================================================================
|
||
; <20>à®à¨á®¢ª ®¡ê¥ªâ
|
||
; Object ~Text Line~ (¥ ¬®¦¥â ¨¬¥âì 䮪ãá)
|
||
; Input: HL-®¯¨á â¥«ì ®¡ê¥ªâ
|
||
; Format table: ¥â
|
||
;---------------------------------------------------------------------
|
||
; ”®à¬ â ®¯¨á ⥫ï:
|
||
; db TextLine
|
||
; dw 0205h ; Yo,Xo
|
||
; db "Calculating free space...",0
|
||
;=====================================================================
|
||
PutTextLine:
|
||
ld c,(hl) ; X pos
|
||
inc hl
|
||
ld b,(hl) ; Y pos
|
||
inc hl
|
||
call GetPutA
|
||
ldi
|
||
inc de ; ¯à®©â¨ âਡãâ
|
||
ld a,(hl)
|
||
cp -1 ; ª®¥æ ®¯¨á â¥«ï ®ª
|
||
ret z
|
||
or a ; ª®¥æ ®¯¨á ⥫ï TextLine
|
||
jr nz,$-8
|
||
inc hl
|
||
ret
|
||
|
||
|
||
|
||
|
||
|
||
;=====================================================================
|
||
; <20>à®à¨á®¢ª ®¡ê¥ªâ
|
||
; Object ~Horizontal Line~ (¥ ¬®¦¥â ¨¬¥âì 䮪ãá)
|
||
; Input: HL-®¯¨á â¥«ì ®¡ê¥ªâ
|
||
; Format table: ¥â
|
||
;---------------------------------------------------------------------
|
||
; ”®à¬ â ®¯¨á ⥫ï:
|
||
; db HLine
|
||
; dw 0801h ; Yo,Xo
|
||
; db 40 ; ¤«¨ «¨¨¨
|
||
; db "Ä" ; ᨬ¢®« § ¯®«¥¨ï
|
||
;=====================================================================
|
||
PutHLine:
|
||
ld c,(hl) ; X pos
|
||
inc hl
|
||
ld b,(hl) ; Y pos
|
||
inc hl
|
||
call GetPutA
|
||
ld b,(hl) ; ¤«¨ «¨¨¨
|
||
inc hl
|
||
ld a,(hl) ; ᨬ¢®« § ¯®«¥¨ï
|
||
inc hl
|
||
ld (de),a
|
||
inc de
|
||
inc de ; ¯à®©â¨ âਡãâ
|
||
djnz $-3
|
||
ret
|