;listAntwoorden*{1,-1,-1} =A
;if sum(A*matA
;
;matA min de rij 1en
;matB *= -1
;matE= augment matA,matB
;foreach row in matC
; if sum(row*list1) != 0
;  ERROR


;matA min de rij 1en
;matB *= -1
;matE= Transpose augment matA,matB 
;for i=0;i<matErows;i++
; if sum(mat2list(matE,i,l1)*list1) != 0
;  ERROR


;matA min de rij 1en
;matB *= -1
;matC = list2matr(list1,matc)
;matE= augment matA,matB * matC
;if not all rows == 0
; ERROR

min1:
 .db	$80, $80, $10, $00, $00, $00, $00, $00, $00 

checkValidSolution:



;matA min de rij 1en
 ld	a, (rij1en)
 or	a
 jr	z, geenrij1enOmTeDeleten
 ld	hl, mata
 b_call	(_mov9toop1)
 ld	a, (listlength)
 dec	a
 ld	l, a
 ld	a, (matDim)
 ld	h, a
 b_call	(_redimmat)
geenrij1enOmTeDeleten:

;matB *= -1
 
 

 ld	hl, min1
 b_call	(_mov9toop1)
 b_call	(_pushop1)
 ld	hl, matb
 b_call	(_mov9toop1)
 
 ld	a, (lastColLading)
 jr	nolastColLading
 ld	h, 0
 ld	l, a
 dec	l
 call	hlx9
 push	hl
 b_call	(_findsym)
 
 pop	hl
 push	hl
 add	hl, de
 inc	hl
 inc	hl
 ld	de, var2
 ld	bc, 9
 ldir
 
nolastColLading:
 ld	a, opmult
 b_call	(_binopexec)
 
 ld	a, (lastColLading)
 jr	nolastColLading2
 
 b_call	(_findsym)
 inc	de
 inc	de
 pop	hl
 add	hl, de
 ld	de, var2
 ex	de, hl
 ld	bc, 9
 ldir
 
nolastColLading2:
 
 ;ld	a, (lastColLading)
 ;call	debuga
 ;call	debugbc
 ;call	debugb
 ;call	debugc
 ;call	debugde
 ;;call	debugd
 ;call	debuge
 ;call	debughl
 ;;call	debugh
 ;;call	debugl
 
 
 ;b_call	(_findsym)
 ;inc	de
 ;inc	de
 ;ex	de, hl
 ;ld	de, 9
 ;add	hl, de
 ;b_call	(_mov9toop1)
 ;ld	a, 8
 ;b_call	(_dispop1a)
 ;b_call	(_getkey)
 
 ld	hl, mata
 b_call	(_mov9toop2)
 b_call	(_op2toop3)
 b_call	(_pushop3)
 
 ld	a, opaug
 b_call	(_binopexec)
 ;op1 =  augment matA,matB
 
 ;b_call	(_findsym)
 ;inc	de
 ;ld	a, (de)
 ;ld	(matErows), a
 
 ;ld	a, opTranspose
 ;b_call	(_unopexec)
 b_call	(_pushop1);  augment matA,matB
 
 ld	hl, matE
 b_call	(_mov9toop1)
 b_call	(_findsym)
 inc	de
 inc	de
 push	de

 
 ld	hl, list1
 b_call	(_mov9toop1)
 b_call	(_findsym)
 inc	de
 inc	de
 

 ld	a, (listlength)
 ld	h, 0
 ld	l, a
 call	hlx9
 ld	b, h
 ld	c, l
 
 pop	hl
 ex	de, hl
 ;jr	$
 ;call	debugbc
 ldir;mat met antwoorden
 
 ;jp	_end
 
 ld	hl, matE
 b_call	(_mov9toop1)
 ;b_call	(_findsym)
 
 ld	a, opMult
 b_call	(_binopexec)
 
 b_call	(_findsym)
 inc	de
 inc	de
 ld	a, (listLength)
 inc	a
 push	af
 push	de
 
loop:
 pop	hl
 push	hl
 ;call	debughl
 b_call	(_mov9toop1)
 pop	hl
 pop	af
 dec	a
 jr	z, loop_
 push	af
 ld	de, 9
 add	hl, de
 push	hl
 errhandon(notValid)
 b_call	(_convop1)
 errhandoff()
 
 ;ld	a, e
 ;add	a, d
 ;call	debuga
 
 ld	hl, 0
 cphlde
 jr	z, loop
notValid:
 ;call	debuga
; jp	_end 
 ld	hl, $3000
 ld	(penCol), hl
 ld	hl, errWrong
 call	dspStringSmall
 b_call	(_getkey)
 jp	menu2
loop_:
 ret