PROG	START	BEGIN
BEGIN	LEA	GR1,A
	LD	GR3,C5
	CALL	MINIM
	ST	GR0,MINA
	LEA	GR1,B
	LD	GR3,C5
	CALL	MINIM
	ST	GR0,MINB
	EXIT
A	DC	17
	DC	21
	DC	15
	DC	28
	DC	6
B	DC	4
	DC	8
	DC	21
	DC	13
	DC	12
MINA	DS	1
MINB	DS	1
C5	DC	5
	END
MINIM	START
	ST	GR3,GOSU
	LD	GR0,0,GR1
	ST	GR0,MIN
	LEA	GR2,1
S1	CPA	GR2,GOSU
	JPZ	LRET
	LEA	GR1,1,GR1
	LD	GR0,0,GR1
	CPA	GR0,MIN
	JPZ	S2
	ST	GR0,MIN
S2	LEA	GR2,1,GR2
	JMP	S1
LRET	LD	GR0,MIN
	RET
GOSU	DS	1
MIN	DS	1
	END