All pastes #773371 Raw Edit

pCas

public text v1 · immutable
·published 2007-11-14 14:19 UTC
rendered paste body
N=1
NIZ=2
RAZ=3
MIN=4
PRVI=5
DRUGI=6
POM=7
adrA=100
ORG 8
IN N
SUB RAZ,RAZ,RAZ
MOV MIN,200
MOV NIZ,#adrA
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,100
BGT N,POM, PP
BEQ N,POM, NAZAD
NAZAD: RTS