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

;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 F 1
MOV A 0
IN B
IN C
MOV D B

CMP D C ;//t2loop
JNZ 45
JZ 50

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

MOV RES 0 ;//t2end
OUT A
JZ 56



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