; Multiply two numbers
; The numbers are the first two on the stack

4 5

"a" store
"b" store

"a" lookup "count" store ; Initialize the loop counter
0 "product" store ; Initialize the result

_test:
	"count" lookup "loop" jnz
	"end" jmp
_loop:
	"b" lookup
	"product" lookup
	add
	"product" store ; product=product+b

	"count" lookup
	1
	sub
	"count" store ; count=count-1

	"test" jmp
_end:
	"product" lookup