PROGRAM GETADR C C N. A. Bourgeois, Jr. 23-Feb-88/. C C Get and display the physical address of a variable. C INTEGER*2 IPADR(2) C IVADR = IADDR (IPADR) CALL CNVAPA (IVADR,IPADR) TYPE 10,IVADR,IPADR(2),IPADR(1) 10 FORMAT (' The virtual and physical addresses are:',3O8,/) C CALL EXIT END