//C6
//Wypisz dzielniki
SDP Read
ŁAD number
loop: POB number
ODE divisor
SOZ end
POB divisor
DNS
POB number
DNS
SDP Remainder
PZS
SOZ foundDivisor
POB divisor
DOD one
ŁAD divisor
SOB loop
foundDivisor: POB divisor
SDP Write
POB space
WYP 2
POB divisor
DOD one
ŁAD divisor
SOB loop
end: POB divisor
SDP Write
STP
divisor: RST 1
number: RST 7
one: RST 1
space: RST 32
// reszta z dzielenia (zwraca 0 gdy liczba b jest dzielnikiem a)
Remainder: PZS
ŁAD mark
PZS
ŁAD a
PZS
ŁAD b
POB a
remainderLoop: SOM remainderEnd
ODE b
SOB remainderLoop
remainderEnd: DOD b
DNS
POB mark
DNS
PWR
a: RPA
b: RPA
mark: RPA
//Czytaj liczby z wejścia
Read: POB Zero
Wróć: ŁAD Liczba
WPR 1
ODE Znak0
SOM Gotowe
ODE St10
SOM Dalej
Gotowe: POB Liczba
PWR
Dalej: DOD St10
ŁAD Cyfra
POB Liczba
MNO St10
DOD Cyfra
SOB Wróć
Cyfra: RPA
Liczba: RPA
St10: RST 10
Zero: RST 0
Znak0: RST 48
//Wypisz liczby na wyjście
Write: ŁAD liczba
POB Zero
DNS
POB liczba
SOM Abs
Posit: DZI St10
MNO St10
ŁAD tmp
POB liczba
ODE tmp
DOD Znak0
DNS
POB tmp
DZI St10
SOZ Kończ
ŁAD liczba
SOB Posit
Abs: POB Minus
WYP 2
POB Zero
ODE liczba
ŁAD liczba
SOB Posit
Kończ: PZS
SOZ Wracaj
WYP 2
SOB Kończ
Wracaj: PWR
tmp: RPA
Minus: RST 45
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}