mirror of
https://github.com/romychs/DemoN.git
synced 2025-04-09 22:06:42 +03:00
36 lines
1.4 KiB
NASM
36 lines
1.4 KiB
NASM
;[]=========================================================================[]
|
||
;[] Вывод часов []
|
||
;[] v0.03 - последние изменения 01.02.2006 []
|
||
;[]=========================================================================[]
|
||
Clock
|
||
ld a,(ClockOn) ; флаг вывода часов
|
||
inc a
|
||
ret nz
|
||
ld c,Dss.SysTime
|
||
rst DssRst ; прочитать данные о времени
|
||
ld de,.String
|
||
push de
|
||
push bc
|
||
push hl
|
||
ld l,h ; часы
|
||
ld h,0
|
||
call ConvDecStr8_1
|
||
inc de
|
||
pop hl ; минуты
|
||
ld h,0
|
||
call ConvDecStr8_1
|
||
inc de
|
||
pop hl
|
||
ld l,h ; секунды
|
||
ld h,0
|
||
call ConvDecStr8_1
|
||
ld de,71
|
||
ld c,Bios.Lp_Set_Place ; установка позиции печати
|
||
rst BiosRst : di
|
||
pop hl
|
||
ld bc,8*256+Bios.Lp_Print_Ln2 ; в рег.B длина строки
|
||
rst BiosRst : di
|
||
ret
|
||
|
||
.String DB "00:00:00"
|