; Iranyitas : kurzorokkal. Falat szet kell loni es eljutni a vörös "kapuig" K betű kilép

[BITS 16]
[ORG 0x0100]
[SEGMENT .text]

MOV AX,13H
INT 10H
MOV AX,0A000H
MOV ES,AX

;keret

MOV DI,0
MOV CX,320
keret1:
MOV [ES:DI], BYTE 11
ADD DI,1
LOOP keret1
MOV DI,320*199
MOV CX,320
keret2:
MOV [ES:DI], BYTE 11
ADD DI,1
LOOP keret2
MOV DI,0
MOV CX,200
keret3:
MOV [ES:DI], BYTE 11
ADD DI,320
LOOP keret3
MOV DI,319
MOV CX,200
keret4:
MOV [ES:DI], BYTE 11
ADD DI,320
LOOP keret4


;fal

MOV DI,290
MOV CX,200
SZIN:
PUSH CX
MOV CX,30
kokas1:
MOV [ES:DI], BYTE 11
ADD DI,1
LOOP kokas1
POP CX
ADD DI,290
LOOP SZIN

;akadaly
mov cx,198
mov di,320 + 300
akad:
MOV [ES:DI], BYTE 20
mov [es:di+1], byte 20
ADD DI,320
LOOP akad


;akadaly2

mov cx,198
mov di,320 + 290
akad2:
MOV [ES:DI], BYTE 12
mov [es:di+1], byte 12
ADD DI,320
LOOP akad2

;finish
mov cx,40
mov di,100*320 + 319
FINISH:
MOV [ES:DI], BYTE 04
ADD DI,320
LOOP FINISH

;finish2

mov cx,40
mov di,320 + 319
FINISH1:
MOV [ES:DI], BYTE 04
ADD DI,320
LOOP FINISH1

;finish3

mov cx,40
mov di,159*320 + 319
FINISH2:
MOV [ES:DI], BYTE 04
ADD DI,320
LOOP FINISH2



;pont
MOV DI,100*320 + 50

mozog:
MOV AH,1
INT 16H
JZ near CIKL
MOV AH,0
INT 16H
CMP AH,72
JE UP
CMP AH,80
JE DOWN
CMP AH,77
JE RIGHT
CMP AH,75
JE LEFT
CMP AH,20
CALL KILEP
JMP mozog

;mozgatasi iranyok
RIGHT:
INC DI

MOV [ES:DI-1], BYTE 0
JMP mozog

LEFT:
DEC DI
MOV [ES:DI+1], BYTE 0
JMP mozog

UP:
SUB DI,320
MOV [ES:DI+320], BYTE 0
JMP mozog

DOWN:
ADD DI,320
MOV [ES:DI-320], BYTE 0
JMP mozog

;win szoveg
WIN:
MOV DH,10
MOV DL,90
MOV AH,2
INT 10H
MOV AH,9
MOV DX,VEGE
INT 21H
MOV DX,5
CALL IDOZITES
JMP KILEP

;pixel timerciklus
x:
INC DI
CIKL:
CMP [ES:DI+1], BYTE 04
JE WIN
MOV [ES:DI], BYTE 0
MOV [ES:DI+1], BYTE 15
INC DI
MOV BX,1

cmp [es:di+1], byte 12
JE faltores3

cmp [es:di+1], byte 20
JE faltores2

cmp [es:di+1], byte 11
JE faltores

CALL IDOZITES
CALL mozog

JMP CIKL
;faltores ciklus
faltores:
mov [es:di+1], byte 00
mov [es:di], byte 00
MOV DI,100*320 + 50
JMP x

;faltores2 ciklus
faltores2:
mov [es:di+1], byte 11
mov [es:di], byte 00
MOV DI,100*320 + 50
JMP x

;faltores3 ciklus
faltores3:
mov [es:di+1], byte 20
mov [es:di], byte 00
MOV DI,100*320 + 50
JMP x

;timer
IDOZITES:
PUSHA
MOV AH,0
INT 1AH
ADD BX,DX
UJIDO:
MOV AH,0
INT 1AH
CMP DX,BX
JP UJIDO
IDOVEGE:
POPA
RET

KILEP:
MOV AH,0
INT 16H
MOV AX,3
INT 10H
RETN



[SEGMENT .data]
VEGE DB 'Congratulation$'