Bsr main
	HALT
main:
	LINK 1
	LDC 2
	LDS 0
	LDLA 1
	STA 0
	AJS -1
	UNLINK
	RET
square:
	LINK 2
	LDL 1
	LDL 1
	MUL
	LDS 0
	LDLA 2
	STA 0
	AJS -1
	LDL 2
	STR R3
	UNLINK
	RET
	UNLINK
	RET
abs:
	LINK 1
	LDL 1
	LDC 0
	LT
	BRF 15
	LDC 0
	LDL 1
	SUB
	LDS 0
	LDLA 1
	STA 0
	AJS -1
	BRA 0
	LDL 1
	STR R3
	UNLINK
	RET
	UNLINK
	RET
fac:
	LINK 3
	LDC 1
	LDS 0
	LDLA 3
	STA 0
	AJS -1
	LDC 1
	LDS 0
	LDLA 2
	STA 0
	AJS -1
	BRA 39
	LDC 12
	LDC 13
	SUB
	LDS 0
	LDLA 4
	STA 0
	AJS -1
	LDL 2
	LDL 3
	MUL
	LDS 0
	LDLA 2
	STA 0
	AJS -1
	LDL 3
	LDC 1
	ADD
	LDS 0
	LDLA 3
	STA 0
	AJS -1
	LDL 3
	LDL 1
	LE
	BRT -46
	LDL 2
	STR R3
	UNLINK
	RET
	UNLINK
	RET