fc 126 317 601 m2 PRINT IDENT AND FUNCT    MORSE 
(24,6)
OCTAL

t=40

500|m6,	m1-1	m2	m3-1	m4	m5
	+7	+5	+6	+9	+1
m1,	c4	c5	c6	c7	c10	c11	c12
	-7	-7	-7	-6	-6	-6	-6
m2,	c14	c15	c16	c17	c20
	-4	-4	-4	-7	-6
m3,	c21	c22	c23	c24	c25	c26
	-2	-2	-2	-2	-3	-2
m4,	d1	d2	d3	d4	d5	d6	d7	d10	d12
	-3	-3	-2	-1	-1	-1	-1	-1	-1
m5,	c13	-5
m10,	+0	+0	+0

c4,	1.22051	1.22071	1.60014	1.10022	0.20006
	0.30044	0.04024
c5,	1.22051	1.22071	1.60060	0.44010	0.14014
	1.10002	0.50000
c6,	1.22051	1.22071	0.24002	1.70010	0.14014
	1.10002	0.50000
c7,	1.22051	1.22071	1.60060	0.44010	0.04044	0.04074
c10,	1.22051	1.22071	1.60014	1.10022	0.20024	0.34022
c11,	1.22051	1.22071	1.60060	0.44010	0.50016	0.44000
c12,	1.22051	1.22071	0.24002	1.70010	0.50016	0.44000

c13,	1.22051	1.72074	0.14024	0.30006	1.44044	0.04011

c14,	1.12024	0.04034	1.00045	1.72050	0.22015
c15,	1.12040	0.50006	1.30045	1.72050	0.22015
c16,	1.12054	0.14024	0.14045	1.72050	0.22015
c17,	1.12036	0.34040	1.00006	0.20064	0.30044
	1.10045	1.72050	0.22015
c20,	1.12070	1.40022	0.20064	0.34024	0.74045
	1.72050	0.22015

c21,	0.42000	0.52051	1.62000
c22,	0.42000	1.74013	1.22071
c23,	0.42000	1.74017	1.22071
c24,	0.42000	1.74025	1.22071
c25,	0.42000	1.74076	0.46051	1.62000
c26,	0.42000	1.74033	1.22071

d1,	1.62006	1.10054	1.20006	1.72051
d2,	1.62062	0.04040	0.14075	1.22000
d3,	1.62054	1.20014	1.72051
d4,	1.62002	1.72051
d5,	1.62050	1.72051
d6,	1.72054	1.22000
d7,	1.72056	1.22000
d10,	1.72024	1.22000
d11,	1.60006	1.64011	0.30030
d12,	1.72016	1.22000

62|s1,	+0.	+0.	+0.
40|	si700	rd	ca44	cf701	sp35

1010|r10,	si225
	spp1
	iTOA+1.2345t
	spp12+1
	iTOA+1.2345cc
	OUT
r11,	si176
	spp1
	iMOA+1.2345t
	spp12+1
	iMOA+1.2345ccc
	spg5
	si134
	IN
	icas1+4
	itss1
	itss1+2
	sp0
	+0
	+0
	+0
	+0
	+0
p1,	tap12	ca5	srh14	adm6	tdk1+1	adm6+5	tdk1+3	spk1
p2,	ca5	slh14	srh14	adm6+1	tdk1+1	adm6+6	tdk1+3	spk1
p3,	ca5	slh6	srh14	adm6+2	tdk1+1	adm6+7	tdk1+3	spk1
p4,	ca7	slh14	srh14	adm6+1	tdk1+1	adm6+6	tdk1+3	spk1
p5,	ca7	slh6	srh14	adm6+2	tdk1+1	adm6+7	tdk1+3	spk1
p6,	cam6+4				tdk1+1	adm6+11	tdk1+3	spk1
p7,	ca24			adm6+3	tdk1+1	adm6+10	tdk1+3	spk1

p10,	cad11	rc
	clh12	rc
	cad11+1	rc
	clh12	rc
	IN	icas1
p12,	sp
	tap13
	cad11	rc
	cad11+2	rc
	clh12	rc
	cad11+1	clh12	rc
	IN	icas1+2
p13,	sp
	ca0	cf701

k1,	tak3
	ca
	tdk2
	ca
	tsm10
k2,	ca
	rc
	clh12
	rc
	aok2
	aom10
	cpk2
k3,	sp

g5,
LSR OD 12 CS(30-j,j)Block Print (preset para.  MORSE MOD)
pa1=64	pa2=g6	pa3=100	pa4=2	pa5=5	
0r,ta22r	ca46r	td10r	cs47r	ad1	ts6t	cs48r	ad1	ts5t	IN
10r,ica	sppa2	ao10r	ao10r	ao6t	cp23r	ca45r	rc	rc	rc
20r,rc	rc	sp	ao5t	cp28r	ca45r	rc	sp6r	cs49r	ad42r
30r,cp39r	sa42r	ts4t	ao4t	cp36r	sp9r	ca44r	rc	sp33r	ca43r
40r,rc	sp9r	+5	1.13000	0.21000	1.23000	pa1	pa3	pa4	pa5
END OF SUBROUTINE


g6,
LSR OD10 (30-j,j) DECIMAL CS PRINT
pa1=4
0r,ta92r	ca2043	ts99r	cp6r	ca117r	5r,sp7r	ca118r	rc0	clc8	rc0
10r,ca0	ts90r	ca98r	ts28r	ca2042	15r,ts43r	cp19r	ao28r	ao28r	ca2044
20r,ts88r	sa106r	cp101r	cs2042	su95r	25r,cp30r	ao90r	IN	+0	sp23r
30r,ad94r	cp26r	ad100r	ex43r	ts2042	35r,cp38r	cs90r	ts90r	ca93r	ex88r
40r,ex2044	srh15	ad2043	+0	ts43r	45r,slh15	ex99r	ts2043	ca96r	sp52r
50r,ao90r	ca97r	ts66r	cm99r	mh122r	55r,ts28r	slr15	ts99r	cm43r	mh122r
60r,ts69r	slr15	sa28r	ts43r	ca69r	65r,su0	+0	ad123r	ts69r	+0
70r,rc0	ao88r	cp51r	cm90r	mh121r	75r,ad123r	ex88r	slr15	mh122r	ad123r
||||||||||
80r,ex90r	cp84r	ca120r	sp85r	ca119r	85r,rc0	clc8	rc0	+0	rc0
90r,+0	rc0	sp0	-7+pa1	+4	95r,+3	cp50r	sp67r	imr103r	+0
100r,srr511	ao2044	sp23r	+10.	105r,+.10	1.75226	0.53246	0.37042
110r,0.17042	0.27042	0.47042	0.67042	0.57042	115r,0.07042	1.55042	0.33106	0.73106	0.13066
120r,0.13166	0.06315	+10	ca107r
|EXIT



START AT 32

{61}{61}