[Info-vax] Does anyone know if the unsupported TBO (time boost utility that "drifts" time forward or backward by adjusting ticklength) was every ported to the Itanium?

Jon Pinkley jon.pinkley at gmail.com
Sun Dec 27 18:51:18 EST 2020


On Wednesday, November 4, 2020 at 5:48:40 AM UTC-5, Volker Halle wrote:
> Jon, 
> 
> TBO 2.0 (as pointed to by your first entry), compiles and links without error on OpenVMS I64 V8.2. Chances are good, that it will also function correctly, but I didn't try ... 
> 
> Volker.

This is just a follow-up.

This works on IA64 VSI OpenVMS V8.4-2L1 with VMS842L1I_UPDATE-V0100

$ sho sys/nopro
OpenVMS V8.4-2L1  on node TORUS   27-DEC-2020 18:43:34.66   Uptime  2 23:22:35
$ write sys$output f$getsyi("hw_name")
HP rx2800 i6  (2.66GHz/32.0MB)
$

Compiled and linked with these commands:
$ macro tbo
$ link/selective_search/notrace tbo

The following is what I did in a mixed architecture Cluster (Alpha,IA64)

Old Alpha just had SYS_UTILITY defined as SYS$SYSDEVICE:[USERLIB.SYSUTL]

To allow common TBO.CLD with image defined as SYS_UTILITY:TBO

I created a subdirectory [.EXE_IA64] and defined SYS_UTILTIY on the IA64 node as follows

$ define/sys/exec sys_utility clu_sysdevice:[userlib.sysutl.exe_ia64],clu_sysdevice:[userlib.sysutl]

Here is more complete log.

-------------------------------------------------
$ show symbol dw
  DW == "DIRECTORY/SIZ=ALL/DATE/WID=(FILE:40,SIZ:7)"
$ sho def
  CLU_SYSDEVICE:[USERLIB.SYSUTL.00SRC]
$ set def [-]
$ cre/dir [.exe_ia64]
$ cre/dir [.exe_alpha]
$ dw [.00src]tbo.mar

Directory DSA1407:[USERLIB.SYSUTL.00SRC]

TBO.MAR;2                                      20/24       27-OCT-1996 06:53:30.92

Total of 1 file, 20/24 blocks.
$ set def [.00src]
$ macro tbo/obj=tbo.obj_ia64
$ LINK/SYSEXE=SELECTIVE/exe=[-.exe_ia64]tbo.exe tbo.obj_ia64
$ sho log sys_utility
   "SYS_UTILITY" = "CLU_SYSDEVICE:[USERLIB.SYSUTL]" (LNM$SYSTEM_TABLE)
$ define/sys/exec sys_utility clu_sysdevice:[userlib.sysutl.exe_ia64],clu_sysdevice:[userlib.sysutl]
$ dw sys_utility:tbo.exe

Directory DSA1407:[USERLIB.SYSUTL.EXE_IA64]

TBO.EXE;1                                      50/56       27-DEC-2020 17:30:37.39

Total of 1 file, 50/56 blocks.

Directory DSA1407:[USERLIB.SYSUTL]

TBO.EXE;4                                      16/16        5-JAN-2010 18:20:31.99
TBO.EXE;3                                      16/16        1-APR-1999 22:48:29.33
TBO.EXE;2                                      16/16       27-OCT-1996 06:57:52.82

Total of 3 files, 48/48 blocks.

Grand total of 2 directories, 4 files, 98/104 blocks.
$ LINK/SYSEXE=SELECTIVE/notrace/exe=[-.exe_ia64]tbo.exe tbo.obj_ia64
$ sho def
  CLU_SYSDEVICE:[USERLIB.SYSUTL.00SRC]
$ dw sys_utility:tbo.exe

Directory DSA1407:[USERLIB.SYSUTL.EXE_IA64]

TBO.EXE;2                                      49/56       27-DEC-2020 17:41:34.67
TBO.EXE;1                                      50/56       27-DEC-2020 17:30:37.39

Total of 2 files, 99/112 blocks.

Directory DSA1407:[USERLIB.SYSUTL]

TBO.EXE;4                                      16/16        5-JAN-2010 18:20:31.99
TBO.EXE;3                                      16/16        1-APR-1999 22:48:29.33
TBO.EXE;2                                      16/16       27-OCT-1996 06:57:52.82

Total of 3 files, 48/48 blocks.

Grand total of 2 directories, 5 files, 147/160 blocks.
$ set command sys_utility:tbo
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:42:51.85
        Timeadjust: 0
        Ticklength: 10000
$ ! No Crash !
$ tbo /dir=for /range=10 /delta=1 /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:45:56.67
        Timeadjust: 10000
        Ticklength: 11000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:14.36
        Timeadjust: 0
        Ticklength: 10000

$ tbo /dir=bac /range=10 /delta=1 /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:25.52
        Timeadjust: 10000
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:28.75
        Timeadjust: 6412
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:30.12
        Timeadjust: 4887
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:31.52
        Timeadjust: 3341
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:32.42
        Timeadjust: 2333
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:33.41
        Timeadjust: 1240
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:34.37
        Timeadjust: 171
        Ticklength: 9000
$ tbo /info
%TBO-I-IDENT, OpenVMS Time Booster Rev 2.0
%TBO-I-INFO,  Systemtime: 27-DEC-2020 17:46:35.41
        Timeadjust: 0
        Ticklength: 10000
$ mc sysman set env/clu
%SYSMAN-I-ENV, current command environment:
        Clusterwide on local cluster
        Username SYSTEM       will be used on nonlocal nodes

SYSMAN> do sho time
%SYSMAN-I-OUTPUT, command execution on node TORUS
  27-DEC-2020 17:47:23
%SYSMAN-I-OUTPUT, command execution on node SIGMA
  27-DEC-2020 17:47:23
SYSMAN>  Exit
$



More information about the Info-vax mailing list