diff --git a/src/sysen2/peek.629 b/src/sysen2/peek.630 similarity index 99% rename from src/sysen2/peek.629 rename to src/sysen2/peek.630 index d9ef6997..13ddd22e 100755 --- a/src/sysen2/peek.629 +++ b/src/sysen2/peek.630 @@ -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