*10
	LDS K 0
	JSR X ADDIT
	NOP
ADDIT,	0
	LDA A K 30
	LDA B K 20
	ABA
	STA A D ERG1
	RTS

SUBTR,	0
	LDA A D TEM1
	LDA B D TEM2
	SBA
	STA A D ERG2
	RTS


BOOL,	0
	LDA A K 377
	STA A D TEM3
	LDA A K 1
	AND A D TEM3
	STA A D ERG3
	ORA A D TEM4
	STA A D ERG4
	RTS

MULT,	0
	LDA A K 12
	STA A X TEM
	LDA A K 10
	STA A X CTR
	LDA B K 3
LOOP,	ROLB
	BCC SHIFT
	ADD A E TEM
SHIFT,	DEC E CTR
	BEQ END
	CLC
	ASLA
	BRA LOOP
END,	STA A X ERG5
	RTS


ERG1,	0
ERG2,	0
ERG3,	0
ERG4,	0
ERG5,	0
TEM1,	30
TEM2,	10
TEM3,	0
TEM4,	0
TEM,	0
CTR,	0
$$$$$$$$$