shithub: apl10

ref: 7b65afc1ad13f3859eca6eadaa2c45d864320304
dir: /test.aplbc/

diagonal:
	locals 1
	call iota
	mov $r, %0
	mov $r, $x
	mov $r, $y
	mov equals, $f
	return

equals:
	return

iota:
	locals 1
	getrank $y, %0
	cmpeq 0, %0
	jmpifnot .rankOK
	error 4
.rankOK:
	return

outerproduct:
	return

simpleTest:
	scalnum 10, $y
	call iota
	display $r

main:
	call simpleTest
	call diagonal
	exit