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

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



;loop
IN E
MOV F 1
CMP E F
JNZ 22
JZ 34



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



;type2

MOV RES 0 ;//t2end
OUT A
JZ 56



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