COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE SWAP
C00004 ENDMK
C⊗;
	TITLE SWAP
;Quick program to swap 8-bit bytes for file gotten from @#&$! VAXen.
IBUF:	BLOCK 3
OBUF:	BLOCK 3

START:	RESET
	INIT 0,10
	 SIXBIT/DSK/
	 IBUF
	 HALT .
	LOOKUP 0,[SIXBIT/PUPNET/ ↔ SIXBIT/BAD/ ↔ 0 ↔ 0]
	 HALT .
	INIT 1,10
	 SIXBIT/DSK/
	 OBUF,,0
	 HALT .
	ENTER 1,[SIXBIT/PUPNET/ ↔ SIXBIT/DIR/ ↔ 0 ↔ 0]
	 HALT .
	INBUF 0,=19
	OUTBUF 1,=19
	MOVEI 1,=8
	DPB 1,[POINT 6,IBUF+1,11]
	DPB 1,[POINT 6,OBUF+1,11]
LOOP:	SOSG IBUF+2
	IN 0,
	CAIA
	JRST DONE
	ILDB 1,IBUF+1
	SOSG IBUF+2
	IN 0,
	CAIA
	HALT .
	ILDB 2,IBUF+1
	SOSG OBUF+2
	OUT 1,
	CAIA
	HALT .
	IDPB 2,OBUF+1
	SOSG OBUF+2
	OUT 1,
	CAIA
	HALT .
	IDPB 1,OBUF+1
	JRST LOOP
DONE:	EXIT
	END START