
CONCATENIZATION RUN
BEGIN,	TLS+10
	LAC (215
	JMS TYPE
	LAC (777774
	DAC COL
	LAC (212
	JMS TYPE
READ,	KSF
	JMP .-1
	KRB
	SAD (375		/ALT MODE
	JMP TAB
	SAD (215
	JMP BEGIN+3
	SAD (212
	JMP READ
	SAD (214		/FORM FEED
	JMP STOP
	DAC HOLD
	LAW TABLE
	AND (17777
	DAC X1
	DAC X2
LOOP,	ISZ X2
	LAC I X1
	SAD HOLD
	JMP TAKE
	SAD END
	JMP READ
	ISZ X1
	ISZ X1
	ISZ X2
	JMP LOOP
TAKE,	LAC I X2
	DAC HOLD
	ISZ COUNT
	LAC ACCUM
	RCL
	RTL
	DAC PARK
	RTL
	TAD PARK
	TAD HOLD
	DAC ACCUM
	ISZ TRIO
	JMP READ
TAB,	LAC (777775
	DAC TRIO
	LAC (240
	JMS TYPE
	ISZ COUNT
	JMP .-2

	LAC ACCUM
OCT,	RTL
	RTL
	DAC PARK
	RAR
	DAC HOLD
	LAC PARK
	AND (7
	SNA
	JMP .+3
	DZM SUP
	SKP
	SAD SUP
	JMP PREP
	LAS
	RAL		/TEST ACS 0
	CLA
	SZL
	SKP
	LAC (20
PREP,	XOR (260
	JMS TYPE
	LAC HOLD
	ISZ SIX
	JMP OCT
	LAC (777772
	DAC SIX
	DZM ACCUM
	LAC (777773
	DAC COUNT
	ISZ SUP
	LAS
	RAR		/TEST ACS 17
	SZL
	JMP BEGIN+1
	ISZ COL
	SKP
	JMP BEGIN+1
	LAC (240
	JMS TYPE
	ISZ FIVE
	JMP .-2
	LAC (777773
	DAC FIVE
	JMP READ
STOP,	CLA!CMA!HLT
	JMP .-1
TYPE,	0
	TSF
	JMP .-1
	TLS
	JMP I TYPE
HOLD,	0
PARK,	0
ACCUM,	0
X1,	0
X2,	0
COUNT,	777773
SIX,	777772
TRIO,	777775
COL,	777774
FIVE,	777773
SUP,	1
TABLE,	240	0
	301	1
	302	2
	303	3
	304	4
	305	5
	306	6
	307	7
	310	10
	311	11
	312	12
	313	13
	314	14
	315	15
	316	16
	317	17
	320	20
	321	21
	322	22
	323	23
	324	24
	325	25
	326	26
	327	27
	330	30
	331	31
	332	32
	245	33
	256	34
	260	35
	261	36
	262	37
	263	40
	264	41
	265	42
	266	43
	267	44
	270	45
	271	46
	243	47
END,	777777

START BEGIN
