Немного с опозданием но закину свои 66 байт
Код:
device zxspectrum48
org #8000
start
ld hl,(tick)
ld de,(tick+2)
ld c, 10
call div41
ld c, 100
call div41
ld (hdr),a
ld c, 60
call div41
ld (sec),a
ld c, 60
call div41
ld (min),a
ld (hour),hl
jr $
tick db 0,10,0,0
hdr db 0
sec db 0
min db 0
hour dw 0
div41
;dehl/c=dehl(a)
xor a
ld b, #20
.l1
add hl,hl
rl e
rl d
rla
cp c
jr c,.l2
sub c
inc l
.l2
djnz .l1
ret
savesna "time.sna",start
Около 8к тактов, разделяет на сотые, секунды, минуты и часы. Буду рад если окажется полезным.