*ident ctss
*/ --------------------------------------------------------
*/ machine-dependent changes for transx
*/ for the ctss operating system at los alamos
*/ this is a 64-bit system.  do not use "set sw".
*/ --------------------------------------------------------
*d transx.2
      program transx(input,output,tty,
     x  tape5=input,tape6=output,tape59=tty)
*d transx.209
      call filerep
      nshort=59
*d transx.3984
      call second(secs)
*d transx.3994
      call dateh(idate)
      write(hdate,'(a8)') idate
*d transx.4004
      call clock1(itime)
      write(htime,'(a8)') itime