Parker ACR9000 - Page 166

Parker Hannifin
166 Programmer’s Guide
ExcMinutes = minutes MOD 60
REM extract the hour portion
REM remove excess minutes and convert to full hours
hours = (minutes - ExcMinutes) /60
REM remove any hours less than a full day
ExcHours = hours mod 24
REM only full days are left. Only works up to <25 days.
REM remove excess hours and convert what's left to days
days = (hours - ExcHours)/24
PRINT #1, "Approximate Time Running : ";days;" Days ";
PRINT #1, USING "##";ExcHours;" Hours ";
PRINT #1, USING "##";ExcMinutes;" Minutes ";
PRINT #1, USING "##";ExcSeconds;".";ms;" Seconds "
RETURN
ENDP