C C C----------------------------------------------------------------------------- C C SUBROUTINE: I B M S W P C C AUTHOR: Jan H. Belgraver C C DATE: 7-JAN-83 C C VERSION: V1.0 C C MODIFIED BY: C C PURPOSE: Swapping of bytes in conversion of EBCDIC -> ASCII C process. C C BATCH: MODE BAT PRC LUN ASSIGNMENTS C FLG FLG 5 6 LUNBAT C C No F T TI: TI: NL: C Fill F F TI: TI: BATCHTT0x.CTL C Use T T BATCHTT0x.CTL TI:/NL: TI:/NL: *) C C *) Carriagecontrol = NONE C C LUNS: None C C ARGUMENTS: C I/O BUF Array containing EBCDIC coded data on input C and ASCII ordered data on output. C I BUFL Length of array BUF. C C CALLS TO: STRSWP C C----------------------------------------------------------------------------- C C C C SUBROUTINE I B M S W P (BUF, BUFL) C C LOGICAL*1 BUF(1) INTEGER*2 BUFL D WRITE (6,11) (BUF(I),I=1,BUFL) L = 0 DO 10 I= 1, BUFL/2 L = L + 2 CALL STRSWP (BUF(L-1), 1, BUF(L) ) 10 CONTINUE D WRITE (6,11) (BUF(I),I=1,BUFL) 11 FORMAT (' ',(10O6,/' ')) RETURN END