c map io page and compute csr addresses subroutine setout(csr) integer csr,csr1,csr2,csr3,csr4 logical tsxenv common /csrcom/ csr1,csr2,csr3,csr4 if(.not.(tsxenv()))goto 23000 call mapiop c Set up I/O register addresses for terminal. 23000 continue csr1=csr csr2=csr1 + 2 csr3=csr2 + 2 csr4=csr3 + 2 return end