PROGRAM GETRG C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the contents of R0 through R3. C INTEGER*2 IRET(3) C DO 100 I = 1,4 IREG = I - 1 CALL GETREG (IREG,IRET) TYPE *,'Register number',IREG TYPE *,' Word, Hi-byte, Lo-byte',IRET(1),IRET(3),IRET(2) 100 CONTINUE TYPE * C CALL EXIT END