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