github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-16 16:28:40 +00:00
Code Issues Releases Wiki Activity

Fix PEEK uptime display when greater than nine days.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-03-05 09:44:16 +01:00 committed by Eric Swenson
parent f810234666
commit f310791634
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/sysen2/peek.629 → src/sysen2/peek.630
View File

@ -4645,15 +4645,16 @@ TMP3: IDIV A,TMT1(D) ;DIVIDE OFF DIGIT
JRST TMP4 ;RIGHT JUSTIFY FIRST DIGIT
TMP5: CTYPE "0(A) ;OUTPUT DIGIT
MOVE A,B ;REMAINDER NEW BECOMES NUM OF UNCONVERTED SECS
TRNN D,1 ;SKIP IF 2ND DIGIT OF PAIR WAS JUST OUTPUT
TRNE D,1 ;SKIP IF 2ND DIGIT OF PAIR WAS JUST OUTPUT
AOJA D,TMP3 ;INCREMENT COUNT AND GO DO 2ND DIGIT
CAIL D,7 ;SKIPE IF NOT DONE
CAIL D,8 ;SKIPE IF NOT DONE
CPOPJ: POPJ P, ;DONE, EXIT
CTYPE ": ;OUTPUT COLON
CAIE D,0 ;NO COLON IN DAYS
CTYPE ": ;OUTPUT COLON
AOJA D,TMP3 ;INCREMENT COUNT AND START NEXT PAIR
;NOT DIVISIBLE- ACCUMULATE SPACES FOR EVENTUAL OUTPUT AT START
TMP1: TRNE D,1 ;SKIP IF EVEN NUM OF DIGITS OUTPUT (START OF PAIR)
TMP1: TRNN D,1 ;SKIP IF ODD NUM OF DIGITS OUTPUT (START OF PAIR)
AOS SPNDD ;2ND DIGIT, EXTRA SPACE FOR COLON
AOS SPNDD ;SPACE FOR DIGIT
AOJA D,TMP2 ;INCREMENT COUNT AND TRANSFER
@ -4669,7 +4670,8 @@ TMP4: MOVE U3,SPNDD ;NUMBER OF SPACES NEEDED
JRST TMP5
;TABLE OF SECONDS
TMT1: 36000.*24. ;10 DAYS
TMT1: 360000.*24. ;100 DAYS
36000.*24. ;10 DAYS
3600.*24. ;DAYS
36000. ;10 HOURS
3600. ;HOURS