C DUMP XQDRV MESSAGES(XQDMP.FTN) C C C PAUL ELKINS C C LOS ALAMOS NATIONAL LAB. C PO BOX 1663 MS-J957 C LOS ALAMOS NM 87545 C 505 667 3502 C PARAMETER LX=128/2 !MAXIMUM PACKET SIZE(WORDS) C IMPLICIT INTEGER(A-Z) INTEGER BUF(LX),PRM1(6),IOSB1(2) DATA L1/1/RLB/"1000/REF/1/ C CALL GETADR(PRM1,BUF(1)) PRM1(2)=LX*2 TYPE *,'ENTER NUMBER OF WORDS TO DUMP' ACCEPT *,NWORD 10 CALL QIO(RLB,L1,REF,,IOSB1,PRM1,IDS) IF(IDS.NE.1)TYPE *,'XQDMP REC IDS=',IDS CALL WAITFR(REF) IF(IOSB1(1).NE.1) TYPE 100,IOSB1,(BUF(I),I=1,24) TYPE 102,(BUF(I),I=1,NWORD) GOTO 10 100 FORMAT(' XQDMP REC IOSB,BUFFER=',2O7,3(/,8O7)) 101 FORMAT(' XQDMP XMIT IOSB=',2O7) 102 FORMAT(' PACKET DATA(O7)=',16(/,8O7)) END