* HOMESIZE by Will Laughlin. Returns the byte size of the HOME directory.

CODE

aROMPARTS	EQU	#0A0B9
aUSEROB		EQU	#08DA6

	GOSBVL	=SAVPTR
	D0=(5)	=aUSEROB
	C=DAT0	A
	D0=C
	C=DAT0	A
	D0=(5)	=aROMPARTS
	A=DAT0	A
	D0=A
	A=DAT0	A
	A=A-C	A
	R0=A
	GOSBVL	=PUSH#
	GOSUB	srpl
	CON(5)	=DOCOL
	CON(5)	=UNCOERCE
	CON(5)	=%2
	CON(5)	=%/
	CON(5)	=SEMI
srpl
	C=RSTK
	A=C	A
	PC=(A)
ENDCODE