CTAPE	MH-ICD. 02/12/75.
C
C PUNCH OS/8 PROCEDURE FILE FROM DATA FILE "DSK:TAPE.DA".
C THE CHARACTER "^" PRODUCES A NULL PUNCH.
C THE CHARACTER "_" PRODUCES 10 NULL PUNCHES.
C
C .FORT
C *TAPE/L/I
C *IOH$		ON MH#1.
C
	COMMON IN
	DIMENSION IN(80)
	DIMENSION IBL(1),IRO(1),IBC(1),ICR(1),ITX(6)
	CALL IOPEN('DSK','TAPE')
S	JMS TENZ
500	READ(4,100) IN
100	FORMAT(80R1)
S	CPAGE 4
S	CALL 0,EOF
S	JMP \508	/EOF
S	NOP
	DO 501 I=1,80
	IF(IN(81-I)-IBL)509,501,509
501	CONTINUE
	I=1
509	I=81-I
	DO 507 J=1,I
	IT=IN(J)
	IF(IT-IRO)502,506,502
502	IF(IT-IBC)510,504,503
S\510,	TAD (100
S\503,	TAD \IT
S	JMS OUT
	GOTO 507
S\504,	JMS TENZ
S\506,	JMS OUT
507	CONTINUE
S	TAD \ICR	/END OF LINE SEQUENCE
S	JMS OUT
S	JMS OUT
S	JMS OUT
	GOTO 500
S\508,	JMS TENZ
	STOP
C
SOUT,	0		/PUNCH CHR.
S	TAD (200
S	CPAGE 2
SOU,	6041
S	JMP OU
S	6046
S	CLA CLL
S	JMP I OUT
C
STENZ,	0	/PUNCH 10 NULLS
	DO 505 K=1,10
S	JMS OUT
505	CONTINUE
S	JMP I TENZ
C
S	REORG 200
S	0040/BLANK
S	0036/^  ZERO CHR
S	0037/_  10 ^
S	0015/ *CR*
	END