
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
