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

main	LDAA	#$01	; geymum gildin í x, y og z
	STAA	x1
	LDAA	#$01
	STAA	z1
	LDAA	#$2B	; plús
	STAA	y1
	JSR	reikna	; reikna
mainm	LDX	result	; geyma result í x
end	SWI		; hætta



	ORG	$C300
reikna	LDAB	y1
	CMPB	#$2A	; margföldun
	BEQ	mul
	CMPB	#$2B	; plús
	BEQ	add
	CMPB	#$2D	; mínus
	BEQ	sub
	JMP	mainm

mul	LDAA	x1
	LDAB	z1
	MUL		; margfalda saman A og B
	STD	result	; geyma í result
	JMP	mainm
add	ldaa	#$5A
	JSR	$FFB8
	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