GPU	set 1
	path "e:\js\"
	include "macro\help.mac"


	run $f03000
	dc.l 31129,31129

A	reg 0
B	reg 1

hilfe1	reg 8
hilfe2	reg 9
save_op1	reg 10
C	reg 11
D	reg 12
SIGN	reg 13
ERG	reg 14

	MACRO IMULT
	move \0,save_op1
	move \0,hilfe1
	xor \1,hilfe1
	abs \0
	abs \1
	move \0,C
	move \1,D
	shrq #16,\0
	shrq #16,\1
	shlq #16,C
	shlq #16,D
	shrq #16,C
	shrq #16,D
	move D,hilfe2
	imult C,hilfe2
	imultn C,\1
	imacn \0,D
	resmac D
	shlq #16,D
	add D,hilfe2
	btst #31,hilfe1
	jr z,.\imcont
	nop
	neg hilfe2
.\imcont	move save_op1,\0
	move hilfe2,\1
	ENDM


	movei #$f03000,r14
	load (r14),A
	load (r14+4),B

	IMULT A,A
	nop
	
	STOP_GPU	
	
