All pastes #773398 Raw Edit

Gnja

public text v1 · immutable
·published 2007-11-14 14:44 UTC
rendered paste body
N=1
NIZ=2
RAZ=3
MIN=4
PRVI=5
DRUGI=6
POM=7
adrA=100
ORG 8
SUB RAZ,RAZ,RAZ
MOV MIN,200
MOV NIZ,#adrA
IN N
IN (NIZ),N
JSR PP
OUT MIN
STOP

PP:MOV PRVI,(NIZ)
ADD NIZ,NIZ,1
MOV DRUGI,(NIZ)
SUB RAZ,DRUGI,PRVI
BGT RAZ,MIN,OVDE
BEQ RAZ,MIN,OVDE
MOV MIN,RAZ
OVDE: SUB POM,NIZ,99
BGT N,POM, PP
BEQ N,POM, NAZAD
NAZAD: RTS