;Ако някой от комисията чете това, искам само да кажа, че здрасти

;init
MOV A 0
IN G
IN H
MOV F 1
MOV RES 0
JZ ;loop



;loop
IN E
MOV F 1
CMP E F
JNZ ;type1
JZ ;type2



;type1
IN B
IN C
IN B
LOAD C D
ADD D B
STORE C D
MOV RES 0
JZ ;dash



;type2
MOV F 1
MOV A 0
IN B
IN C
MOV D B

CMP D C ;//t2loop
JNZ ;t2payload
JZ ;t2end

LOAD D E ;//t2payload
ADD A E
ADD D F
JNZ ;t2loop

MOV RES 0 ;//t2end
OUT A
JZ ;dash



;dash
MOV F 1
SUB H F
MOF F 0
CMP H F
JZ ;loop
RETURN