; teraz jest wersja przyspieszona
; aby poprawnie liczyć sekundy należy zrobić refactor kodu
; zamieniając HTHSEC na SEC a SEC na MIN

$MOD841

ORG 0000h
jmp main

main:
	mov HTHSEC, #0
	mov SEC, #0
	mov TIMECON, #01h
	mov P2, #1

petl:
	call display
	jmp petl

delay:
	MOV R5, #0000001b
    DLY2: MOV R7, #031h
    DLY1: MOV R6, #031h
	DJNZ R6,$
	DJNZ R7, DLY1
	DJNZ R5, DLY2
	RET

display:
	mov A, HTHSEC
	mov B, #10
	div AB

	mov P2, B
	call delay
	orl A, #10h
	mov P2, A
	call delay

	mov A, SEC
	mov B, #10
	div AB

	orl B, #20h
	orl B, #01000000b
	mov P2, B
	call delay
	orl A, #30h
	mov P2, A
	call delay

	ret
end