x	EQU	$C100
x1	EQU	$C101
y	EQU	$C102
y1	EQU	$C103
z	EQU	$C104
z1	EQU	$c105
result	EQU	$C106
* tvö minnishólf hér fyrir niðurstöðu


	ORG	$C200

	LDX	#$0
	LDY	#$0
	LDAA	#$0
	LDAB	#$0
	STAA	x
	STAA	x1
	STAA	y
	STAA	y1
	STAA	z
	STAA	z1

	JSR	$FFCD
	SUBA	#30
	STAA	x
	JSR	$FFCD
	SUBA	#30
	STAA	x1
	LDAB	#10
	LDAA	x
	MUL
	ADDB	x1
	STAB	x1
	LDAA	#0
	STAA	x
	
	JSR	$FFCD
	STAA	y

	JSR	$FFCD
	SUBA	#30
	STAA	z
	JSR	$FFCD
	SUBA	#30
	STAA	z1
	LDAB	#10
	LDAA	z
	MUL
	ADDB	z1
	STAB	z1
	LDAA	#0
	STAA	z

	LDAB	y
	CMPB	#$2A	; margföldun
	BEQ	mul
	CMPB	#$2B	; plús
	BEQ	add
	CMPB	#$2D	; mínus
	BEQ	sub

mainm	LDAA	; nú þarf að breyta @#$%& draslinu yfir í ascii og prenta út


	SWI


mul	LDAA	x1
	LDAB	z1
	MUL		; margfalda saman A og B
	STD	result	; geyma í result
	JMP	mainm
add	LDX	x

	LDAB	z1
	ABX		; leggja saman B og X
	STX 	result	; geyma X í result
	JMP	mainm
sub	LDAA	x1
	LDAB	z1
	SBA		; draga B frá A
	STAA	result	;
	JMP	mainm