Code	Segment
	assume CS:Code, DS:Data, SS:Stack
	
Start:
	mov	ax, Code
	mov	DS, AX
	
	mov jobb, 0
	mov bal, 24
	mov lent, 79
	mov fent, 0
	
	mov sebesseg, 1
	mov sebesseg2, 3
	
	mov aktualis_ido, 0
	mov elozo_ido, 0	
	mov elozo_ido2, 0

	;kepernyo torles
	mov ax, 03h
	int 10h
	
Beallit: 
	;eltelt > deltaT?
	mov ax, eltelt_ido
	cmp ax, sebesseg	
	
	;nem
	jc Beallit2
	
	;igen
	mov ax, aktualis_ido
	mov elozo_ido, ax
	
	call fent_rajzol
	call lent_rajzol
	
Beallit2:
	;eltelt > deltaT?
	mov ax, eltelt_ido2
	cmp ax, sebesseg2
	
	;nem
	jc Kesleltet
	
	;igen
	mov ax, aktualis_ido
	mov elozo_ido2, ax
	
	call jobb_rajzol
	call bal_rajzol
	
Kesleltet: 
	xor ah, ah 
	int 1ah ;óra beolvasása CX:DX -be
	
	mov cx, dx
	mov aktualis_ido, dx
	sub dx, elozo_ido 
	mov eltelt_ido, dx
	
	sub cx, elozo_ido2
	mov eltelt_ido2, cx	

	cmp fent, 79
	jc Beallit

Program_Vege:
	mov	ax, 4c00h
	int	21h	
	
fent_rajzol:
	;kurzor poz
	mov ah, 02h
	xor bh, bh
	mov dh, 0
	mov dl, fent
	int 10h
	
	call csillag_kiir
	
	inc fent
	
ret

lent_rajzol:
	;kurzor poz
	mov ah, 02h
	xor bh, bh
	mov dh, 24
	mov dl, lent
	int 10h
	
	call csillag_kiir
	
	dec lent
	
ret

jobb_rajzol:
	;kurzor poz
	mov ah, 02h
	xor bh, bh
	mov dh, jobb
	mov dl, 79
	int 10h
	
	call csillag_kiir
	
	inc jobb
	
ret

bal_rajzol:
	;kurzor poz
	mov ah, 02h
	xor bh, bh
	mov dh, bal
	mov dl, 0
	int 10h
	
	call csillag_kiir
	
	dec bal
	
ret

csillag_kiir:
	mov ah, 0ah
	mov al, "*"
	xor bh, bh
	mov cx, 1
	int	10h
ret

Code	Ends

Data	Segment

fent db ?
jobb db ?
bal db ?
lent db ?
aktualis_ido dw ?
eltelt_ido dw ?
elozo_ido dw ?
sebesseg dw ?
eltelt_ido2 dw ?
elozo_ido2 dw ?
sebesseg2 dw ?

Data	Ends

Stack	Segment

Stack	Ends

End	Start