* 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