INPUT
STORE X
STORE X1
SUBT J
STORE Y
CLEAR
STORE WYNIK
STORE LICZNIKI
JNS LP
LOAD X1
SUBT DWA
STORE X
SUBT LICZNIKI
STORE LICZNIKI
SKIPCOND 400
JNS NIE
JNS TAK
J, DEC 1
LICZNIKI, HEX 0
X, HEX 0
Y, HEX 0
WYNIK, HEX 0
X1, HEX 0
DWA, DEC 2
ZERO, DEC 0
TAK, HEX 0
LOAD J
OUTPUT
HALT
NIE, HEX 0
LOAD ZERO
OUTPUT
HALT
JUMPI NIE
LP, HEX 0
PETLA2, JNS MODULO
LOAD WYNIK
SKIPCOND 400
JNS DODAJ
LOAD Y
SUBT J
STORE Y
SKIPCOND 400
JUMP PETLA2
LOAD LICZNIKI
JUMPI LP
MODULO, HEX 0
LOAD X1
STORE X
PETLA, LOAD X
SUBT Y
STORE X
SKIPCOND 000
JUMP PETLA
LOAD X
ADD Y
STORE WYNIK
JUMPI MODULO
DODAJ, HEX 0
LOAD LICZNIKI
ADD J
STORE LICZNIKI
JUMPI DODAJ