1			************* FORTRAN II SECTION SIX ************************	F6L00010
			2			FORTRAN 2 RECORD 111 - WRITE PROGRAM CARD.	F6L00011
			3				F6L00012
			4			WRITE PROGRAM CARD ON TAPE 3	F6L00020
		00030	5	PC1	SYN	24	F6L00030
		00031	6	PC2	SYN	25	F6L00040
		00032	7	PC3	SYN	26	F6L00050
		00033	8	PC4	SYN	27	F6L00060
		00034	9	PC5	SYN	28	F6L00070
		00035	10	PC6	SYN	29	F6L00080
		00210	11		ORG	136	F6L00090
	00210	0 77200 0 00203	12		REW	3 REWIND TAPE 3	F6L00100
	00211	0 50200 0 00244	13		CLS	FR4	F6L00110
	00212	0 60100 0 00030	14		STO	PC1 STORE PUNCH IN COL 1,4 IN DECREMENT OF PC1	F6L00120
	00213	0 50000 0 00032	15		CLA	PC3 DECREMENT CONTAINS LENGTH OF TRANSFER VECTOR.	F6L00130
	00214	0 40000 0 00176	16		ADD	PGBK ADD LENGTH OF LOWER STORAGE IN ADDRESS.	F6L00140
	00215	0 60100 0 00032	17		STO	PC3	F6L00150
	00216	0 50000 0 00175	18		CLA	L3 TWOS COMPLEMENT OF LENGTH OF UPPER	F6L00160
	00217	0 60100 0 00033	19		STO	PC4 STORAGE IN ADDRESS.	F6L00170
T	00220	−0 75400 0 00000	20		PXD		F6L00180
	00221	0 36100 0 00030	21		ACL	PC1 C0MPUTE CHECK SUM,	F6L00190
	00222	0 36100 0 00032	22		ACL	PC3	F6L00200
	00223	0 36100 0 00033	23		ACL	PC4	F6L00210
	00224	0 36100 0 00034	24		ACL	PC5	F6L00220
	00225	0 36100 0 00035	25		ACL	PC6	F6L00230
	00226	0 60200 0 00031	26		SLW	PC2 AND STORE IT IN PC 2.	F6L00240
	00227	0 76600 0 00223	27		WTB	3 WRITE PROGRAM CARD ONTO TAPE 3.	F6L00250
	00230	0 70000 0 00030	28		CPY	PC1 PUNCH IN COL. ONE, WD. COUNT IN DECR. 9L.	F6L00260
	00231	0 70000 0 00031	29		CPY	PC2 CHECK SUM. 9R.	F6L00270
	00232	0 70000 0 00032	30		CPY	PC3 LENGTH OF TRANS. VECS LENGTH. OF LOWER STORAGE,	F6L00280
	00233	0 70000 0 00033	31		CPY	PC4 2S COMP. OF UPPER STORAGE. 8R.	F6L00290
	00234	0 70000 0 00034	32		CPY	PC5 NAME OF SUBROUTINE (ZEROS IF MAIN PR0GRAM). 7L.	F6L00300
	00235	0 70000 0 00035	33		CPY	PC6 ENTRY POINT. 7R	F6L00310
	00236	0 53400 1 00243	34		LXA	L18,1 FILL REST OF CARD WITH ZEROS.	F6L00320
	00237	0 70000 0 00161	35	B4	CPY	ZERO	F6L00330
	00240	2 00001 1 00237	36		TIX	B4,1,1	F6L00340
	00241	0 76600 0 00333	37		IOD		F6L00350
	00242	0 02000 0 00004	38		TRA	4 GO TO L0ADER,	F6L00360
	00243	0 00000 0 00022	39	L18	HTR	18	F6L00370
	00244	+000004000000	40	FR4	OCT	000004000000	F6L00380