                                                        /	CONVERSION ROUTINE FOR BIN TO CBL
/C.A. KAPPS
*1000

BEG,	KCC
	TAD LNGT	/PUNCH LEADER
	DCA CONT
	TAD LDR
LPN,	TSF
	JMP .-1
	TLS
	ISZ CONT
	JMP LPN
	DCA ADR	/200
	TAD BUFA	/BUF
	DCA CONL
	TAD MAX	/-200
	DCA LCNT
BEGN,	KCC
	DCA CKSM
	JMS BEGG
	JMP .-1
GO,	KRB
	DCA CHA
GOP,	TAD CHA
	DCA CKT
	TAD CHA
	RTL CLL
	RTL
	RTL
	KSF
	JMP .-1
	KRS
	DCA WORD
	KRB
	TAD CKT
	DCA CKT
	JMS BEGG
	JMP I EEND1
END3,	SNL	/CHECK CHANNEL 7
	JMP DATA
ORIG,	KRB
	DCA CHA
	TAD CONT	/CHECK ANY INFO YET
	SNA
	JMP NOPH
	DCA I BUF1
	TAD ADR
	DCA I BUFB
	JMS I PNH	/PUNC
                                                             /PAGE 2

NOPH,	TAD WORD
	DCA ADR	/NEW ORIG
	DCA CONT
	TAD MAX
	DCA LCNT
	TAD BUFA
	DCA CONL
	JMP CHEX

DATA,	KRB
	DCA CHA
	TAD WORD
	DCA I CONL
	ISZ CONL
	ISZ CONT
	ISZ LCNT
	JMP CHEX
	TAD CONT
	DCA I BUF1
	TAD ADR
	DCA I BUFB
	JMS I PNH
	TAD ADR
	TAD CONT
	DCA ADR	/MOVE ADDRESS UP
	DCA CONT
	TAD MAX
	DCA LCNT
	TAD BUFA
	DCA CONL
CHEX,	TAD CKT	/UPDATE CHECKSUM
	TAD CKSM
	DCA CKSM
	JMP GOP

END2,	TAD CONT
	SNA
	JMP NFP
	DCA I BUF1
	TAD ADR
	DCA I BUFB
	JMS I PNH
NFP,	TAD LNGT	/PUNCH TRAILER
	DCA CONT
FLP,	JMS I PP
	ISZ CONT
	JMP FLP
	TAD CKSM
	CIA
	TAD WORD
	HLT	/AC=0, CKSM OK
	JMP BEG
                                                             /PAGE 3

BEGG,	0
	KSF
	JMP .-1
	KRB
	AND CON
	SNA CLA
	ISZ BEGG
	JMP I BEGG

PNH,	PUNC
LNGT,	-100	/LEADER LENGTH
CONT,	0	/OLD COUNT
LDR,	200
CON=LDR
ADR,	0	/OLD ORIG
BUFA,	BUF
CONL,	0
MAX,	-200
LCNT,	0
CKSM,	0	/TOTAL CHECKSUM
CKT,	0	/SUM OF 2 LINES
WORD,	0
CHA,	0
BUF1,	BUF-1
BUFB,	BUF-2
PP,	P
EEND1,	END1
                                                             /PAGE 4

*1200
PUNC,	0
	CLA CLL
	TAD BUF-1
	CIA
	DCA BUF-1
	TAD M4	/PUNCH 4 LINES OF 200
	DCA CL
	TAD NL
	JMS P
	ISZ CL
	JMP .-3
	CLA	/ONE BLANK LINE
	JMS P
	CLA CLL
	TAD BUF-1
	TAD M2	/-2
	DCA C
	TAD BUFC	/BUF-3
	DCA Z 10
CLP,	TAD I Z 10	/COMPUTE CHECKSUM
	SNL
	STL IAC
	ISZ C
	JMP CLP
	DCA CB
	TAD BUF-1
	RAR
	TAD M2
	DCA C
	SNL
	DCA I Z 10
	TAD CB
	CMA
	DCA I Z 10
	DCA I Z 10
	TAD BUFC
	DCA Z 10
	TAD BUFC
	DCA Z 11
                                               /PAGE 5

KLP,	CLA CLL	/PUNCH 2 WORDS, 3 LINES
	TAD I Z 10
	AND MSK1
	RTR
	RTR
	JMS P
	TAD I Z 11
	AND MSK2
	DCA CB
	TAD I Z 10
	AND MSK3
	RTR
	RTR
	TAD CB
	JMS P
	TAD I Z 11
	JMS P
	ISZ C
	JMP KLP
	JMP I PUNC

END1,	KRB	/CHECK FOR PAL DIAGNOSTICS
	TAD CM377
	SZA CLA
	JMP I EEND2
	CML
PATCH1,	KSF
	JMP .-1
	KRB
	TAD CM377
	SZA CLA
	JMP PATCH1
	CML
	KSF
	JMP .-1
	JMP I EEND3

P,	0
	TSF
	JMP .-1
	TLS
	CLA CLL
	JMP I P
                                                             /PAGE 6

MSK1,	7760
MSK2,	0017
MSK3,	7400
C,	0
CB,	0
M2,	-2
BUFC,	BUF-3
M4,	-4
CL,	0
NL,	200
CM377,	-377
EEND2,	END2
EEND3,	END3

BUF=1400
$
                                                                                                                                                                         