1			704 FORTRAN II / BDC / 12 JAN 59.
			2
			3			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=
			4			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION
			5			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.
			6			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF
			7			THIS LOGICAL BLOCK OR SUBROUTINE.
			8			C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.
			9			P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).
			10			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
			11
			12			CONTROL CARD FOR BDC.	BDC/C01
A		00000	13		ORG		BDC/C02
	00000	0 00001 0 00673	14		PZE	TAB+1,,1	BDC/C03
	00001	0 00000 0 77552	15		PZE	COMMON	BDC/C04
	00002	742224233460	16		BCD	1(BDC)␣	BDC/C05
	00003	0 00000 0 00001	17		PZE	(BDC)	BDC/C06
	00004	742631433460	18		BCD	1(FIL)␣	BDC/C07
	00005	−0 00000 0 00037	19		MZE	(FIL)	BDC/C08
			20			END OF BDC CONTROL CARD.	BDC/C13
			21			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
			22
		00000	23		ORG	0	BDC/001
			24			(BDC)/ CALLS=LINE,PRINT. CALLER=MAIN PROGRAM.	BDC/002
			25			(BDC) CONTROLS BINARY TO DECIMAL CONVERSION AND OUTPUT.	BDC/003
	00000	745163453460	26	(RTN)	BCD	1(RTN)␣	BDC/0035
	00001	0 02100 0 00002	27	(BDC)	TTR	NEW INSTRUCTION EXECUTED IN LOCATION 1.	BDC/004
			28			NEW = ENTRY POINT FROM MAIN PROGRAM (CIAC)= ADDRESS OF OUTPUT	BDC/005
			29			ROUTINE TO HANDLE CURRENT OUTPUT, AND C(0)= LOCATI0N OF THE	BDC/006
			30			CURRENT FORMAT STATEMENT).	BDC/007
	00002	−0 76000 0 00007	31	NEW	LTM	SET FILLW TO CALL THE INDICATED	BDC/008
	00003	0 62100 0 00541	32		STA	TYPE TYPE OF OUTPUT ROUTINE.	BDC/009
	00004	−0 50000 0 00000	33		CAL	0 SET OUTPUT FORMAT STATEMENT	BDC/010
	00005	0 62100 0 00010	34		STA	CALL LOCATI0N.	BDC/011
	00006	0 40000 0 00577	35		ADD	ONE SET EXIT	BDC/012
	00007	0 62100 0 00016	36		STA	FX4 TO MAIN PROGRAM.	BDC/013
	00010	−0 50000 0 00000	37	CALL	CAL	** OBTAIN FORMAT STATEMENT	BDC/014
	00011	−0 63400 4 00016	38		SXD	FX4,4 FOR SCAN.	BDC/015
	00012	0 07400 4 00056	39		TSX	LINE,4 * GO SCAN FORMAT.	BDC/016
	00013	−0 53400 4 00016	40		LXD	FX4,4 WHEN DONE, RESTORE C(XR4).	BDC/017
	00014	−0 50000 0 00017	41		CAL	TRAP SET LOCATION 1 FOR FUTURE	BDC/018
	00015	0 60200 0 00001	42		SLW	1 TRAP TRANSFER TO SEEK, AND	BDC/019
	00016	1 00000 0 00000	43	FX4	TXI	**,0,** * TRANSFER CONTROL TO MAIN PROGRAM.	BDC/020
			44			THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.	BDC/021
	00017	0 02100 0 00020	45	TRAP	TTR	SEEK INSTRUCTION EXECUTED IN LOCATION 1.	BDC/022
			46			SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATION OF	BDC/023
			47			THE ADDRESS OF THE NEXT OUTPUT NUMBERS).	BDC/024
	00020	−0 76000 0 00007	48	SEEK	LTM	PICKUP NTR INSTRUCTION, AND	BDC/025
	00021	−0 50000 0 00000	49		CAL	0 SET LOCATION	BDC/026
	00022	0 62100 0 00025	50		STA	SETL OF OUTPUT NUMBERS.	BDC/027
	00023	0 40000 0 00577	51		ADD	ONE SET LOCATION FOR	BDC/028
	00024	0 62100 0 00036	52		STA	OUT RETURN TO MAIN PROGRAM.	BDC/029
	00025	−0 50000 0 00000	53	SETL	CAL	** PICKUP LOCATION OF OUTPUT	BDC/030
	00026	0 60200 0 00031	54		SLW	GET AND SET ADDRESS AND TAG OF GET.	BDC/031
	00027	0 56000 0 00042	55		LDQ	CLA SET GET OP	BDC/032
	00030	−0 62000 0 00031	56		SLQ	GET TO CLA.	BDC/033
	00031	0 50000 0 00000	57	GET	CLA	**,** GET OUTPUT NUMBER.	BDC/034
	00032	−0 63400 4 00016	58		SXD	FX4,4 SAVE THE C(XR4), AND	BDC/035
	00033	0 07400 4 00315	59		TSX	PRINT,4 * GO CONVERT AND PRINT OUTPUT.	BDC/036
	00034	−0 53400 4 00016	60		LXD	FX4,4 RESTORE THE C(XR4).	BDC/037
	00035	0 76000 0 00007	61		ETM	REPEAT UNTIL LIST IS EXHAUSTED,	BDC/038
	00036	0 02100 0 00000	62	OUT	TTR	** * UNDER CONTROL OF THE MAIN PROGRAM.	BDC/039
			63			END OF PR0GRAM (BDC).	BDC/040
			64			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/041
			65				BDC/042
			66			(FIL)/ CALLS=FILLW. USES=(RTN). CALLER=MAIN PR0GRAM.	BDC/043
			67			(FIL) CONTROLS TRANSMISSION OF ANY REMAINING OUTPUT FROM REC.	BDC/044
	00037	0 40000 0 00600	68	(FIL)	ADD	TWO SET ADDRESS FOR	BDC/045
	00040	0 62100 0 00055	69		STA	RET RETURN TO MAIN PROGRAM.	BDC/046
	00041	−0 76000 0 00007	70		LTM	IF NO	BDC/047
	00042	0 50000 0 00476	71	CLA	CLA	PACK OUTPUT REMAINS	BDC/048
	00043	0 40200 0 00545	72		SUB	FILT IN REC BUFFER,	BDC/049
	00044	−0 10000 0 00050	73		TNZ	LAST OR IN	BDC/050
	00045	0 50000 0 77777	74		CLA	WORD WORD INDICATOR,	BDC/051
	00046	0 40200 0 00577	75		SUB	ONE THEN	BDC/052
	00047	0 10000 0 00053	76		TZE	EXIT * EXIT TO RESTORE ALL INDICATORS.	BDC/053
	00050	−0 63400 4 00016	77	LAST	SXD	FX4,4 OTHERWISE, SAVE THE C(XR4), AND	BDC/054
	00051	0 07400 4 00515	78		TSX	FILLW,4 * GO TRANSMIT REMAINING OUTPUT.	BDC/055
	00052	−0 53400 4 00016	79		LXD	FX4,4 RESTORE THE C(XR4), AND	BDC/056
	00053	−0 50000 0 00053	80	EXIT	CAL	EXIT PICKUP EXIT ADDRESS, AND	BDC/057
	00054	1 00000 0 00000	81	FILLX	TXI	(RTN),0,** * EXIT TO RESTORE ALL INDICATORS.	BDC/0575
	00055	0 02100 0 00000	82	RET	TTR	** THEN RETURN TO MAIN PROGRAM	BDC/0576
			83			END OF PROGRAM (FIL).	BDC/05B
			84			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/059
			85				BDC/060
			86			LINE,4/ CALLS=RESET,FIELD,FILLW. USES=PRINT. CALLER=(BDC).	BDC/156
			87			LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF OUTPUT.	BDC/157
	00056	−0 63400 4 00135	88	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/158
	00057	−0 63400 1 00133	89		SXD	AX1,1 SAVE THE ORIGINAL C(XR1), AND	BDC/159
	00060	−0 63400 2 00134	90		SXD	AX2,2 SAVE THE ORIGINAL C(XR2).	BDC/160
	00061	0 76000 0 00006	91		COM	COMPLEMENT THE C(AC), AND	BDC/161
	00062	0 73400 2 00007	92	SEVEN	PAX	7,2 SET XR2= -(CURRENT FORMAT LOC.),AND	BDC/162
	00063	0 62200 0 00105	93		STD	UNIT UNIT DECREMENT= -(CURRENT UNIT).	BDC/163
	00064	0 60000 0 77750	94		STZ	PEX SET PEX (SCALE FACTOR) = 0, AND	BDC/164
	00065	0 07400 4 00544	95		TSX	RESET,4 * SET REC=BLANKS, PACK=REC, WORD=1.	BDC/165
	00066	0 60100 0 77745	96		STO	INT SET INT = I.	BDC/166
	00067	0 53400 1 00062	97		LXA	SEVEN,1 SET XR1 = 7, AND PICKUP THE	BDC/167
	00070	0 56000 2 77777	98		LDQ	−1,2 1ST WORD OF CURRENT FORMAT.	BDC/168
			99			CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.	BDC/169
	00071	−0 63400 1 00137	100	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER C0UNT,	BDC/170
	00072	−0 63400 2 00140	101		SXD	BX2,2 SCAN POSITION, AND FORMAT WORD,	BDC/171
	00073	−0 60000 0 77752	102		STQ	MQR FOR POSSIBLE REPETITION OF GROUP.	BDC/172
	00074	0 53400 4 77745	103		LXA	INT,4 SET GROUP CONTROL COUNT FOR THE	BDC/173
	00075	−0 63400 4 00141	104		SXD	BX4,4 INDICATED NUMBER OF REPETITIONS,	BDC/174
	00076	−0 63400 4 00274	105		SXD	GROUPX,4 AND SAVE FOR POSSIBLE RESCAN.	BDC/175
			106			SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCIOUT,CCHOUT,RESCAN.	BDC/176
	00077	0 60000 0 77745	107	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	BDC/177
	00100	1 00006 0 00121	108	SIX	TXI	SCAN5,0,6 GO RESUME SCAN.	BDC/178
	00101	−0 53400 1 00100	109	SCAN1	LXD	SIX,1 RESET FORMAT CHARACTER COUNT, AND	BDC/179
	00102	0 56000 2 77777	110		LDQ	−1,2 PICKUP NEXT FORMAT WORD.	BDC/180
	00103	−0 76300 0 00006	111	SCAN2	LGL	6 EXAMINE NEXT CHARACTER,	BDC/181
	00104	0 34000 0 00570	112		CAS	BLANK AND IF BLANK,	BDC/182
	00105	1 00000 0 00107	113	UNIT	TXI	SCAN3,0,** THEN	BDC/183
D	00106	1 00000 0 00121	114		TXI	SCAN5,0 GO EXAMINE NEXT CHARACTER.	BDC/184
	00107	0 34000 0 00601	115	SCAN3	CAS	L(9) IF NOT BLANK, COMPARE WITH NINE,	BDC/185
D	00110	1 00000 0 00124	116		TXI	SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST.	BDC/186
	00111	0 76100 0 00000	117		NOP	IF NUMERIC, THEN	BDC/187
	00112	0 60100 0 77746	118		STO	DIG CONVERT	BDC/188
	00113	0 50000 0 77745	119		CLA	INT SUCCESSIVE	BDC/189
	00114	0 76700 0 00002	120		ALS	2 BCD	BDC/190
	00115	0 40000 0 77745	121		ADD	INT DIGITS	BDC/191
	00116	0 76700 0 00001	122		ALS	1 TO BINARY,	BDC/192
	00117	0 36100 0 77746	123		ACL	DIG TO SET INT= SCALE FACTOR,	BDC/193
			124			SCAN4 = ENTRY POINT USED BY CCSCFM.	BDC/194
	00120	0 60100 0 77745	125	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	BDC/195
			126			SCAN5 = ENTRY POINT USED BY CCDCPT.	BDC/196
	00121	−0 75400 0 00311	127	SCAN5	PXD	XPRINT,0 CLEAR THE AC, AND UPDATE COUNT.	BDC/197
	00122	2 00001 1 00103	128		TIX	SCAN2,1,1 WHEN NO CHARACTERS REMAIN,	BDC/198
	00123	1 77777 2 00101	129		TXI	SCAN1,2,−1 ADJUST SCAN POSITION, AND REPEAT.	BDC/199
			130			SCAN6 = ENTRY POINT USED BY CCDCPT.	BDC/200
	00124	−0 53400 4 00126	131	SCAN6	LXD	NCC,4 WHEN A NON-NUMERIC IS MET,	BDC/201
	00125	0 34000 4 00567	132	SCAN7	CAS	CCTEST,4 SCAN LIST OF CONTROL CHARACTERS,	BDC/202
	00126	1 00014 0 00130	133	NCC	TXI	SCAN8,0,12 AND IF EQUALITY IS FOUND,	BDC/203
	00127	0 02000 4 00146	134		TRA	FRMTR,4 * TAKE THE INDICATED TRANSFER.	BDC/204
	00130	2 00001 4 00125	135	SCAN8	TIX	SCAN7,4,1 IF NOT FOUND IN CONTROL LIST, THEN	BDC/205
	00131	0 42000 1 00005	136		HPR	5,1 STOP. PRESS START TO CONTINUE.	BDC/2055
			137			END OF PROGRAM LINE.	BDC/210
			138			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/211
			139				BDC/212
			140			FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =	BDC/213
D	00132	1 00000 0 00146	141		TXI	CCEDMK,0 END OF FORMAT STATEMENT.	BDC/2135
	00133	1 00000 0 00071	142	AX1	TXI	CCLPAR,0,** BEGIN FORMAT OR GROUP.	BDC/214
	00134	1 00000 0 00152	143	AX2	TXI	CCCMMA,0,** END FIELD.	BDC/215
	00135	1 00000 0 00157	144	AX4	TXI	CCSLSH,0,** END LINE OR RECORD.	BDC/216
D	00136	1 00000 0 00162	145		TXI	CCSCFP,0 SCALE FACTOR PLUS.	BDC/217
	00137	1 00000 0 00165	146	BX1	TXI	CCSCFM,0,** SCALE FACTOR MINUS.	BDC/218
	00140	1 00000 0 00167	147	BX2	TXI	CCRPAR,0,** END FORMAT OR GROUP.	BDC/219
	00141	1 00000 0 00173	148	BX4	TXI	CCDCPT,0,** ROUNDING OF OUTPUT NUMBER.	BDC/220
D	00142	1 00000 0 00212	149		TXI	CCIOUT,0 DECIMAL OUTPUT.	BDC/221
	00143	1 00000 0 00217	150	CX1	TXI	CCHOUT,0,** HOLLERITH FIELD OUTPUT.	BDC/222
	00144	1 00000 0 00243	151	CX2	TXI	CCFOUT,0,** FIXED POINT 0UTPUT.	BDC/223
	00145	1 00000 0 00254	152	CX4	TXI	CCEOUT,0,** FLOATING POINT OUTPUT.	BDC/224
		00146	153	FRMTR	BSS	0	BDC/225
			154			* * * * * * * * * * * * * *.* * * * * * * * * * * * * * * * *	BDC/226
			155				BDC/227
			156			CCEDMK/ CALLS=FIELD,MAIN PROGRAM.	BDC/2271
			157			CCEDMK = ENTRY POINT WHEN AN ENDMARK IS MET IN FORMAT SCAN.	BDC/2272
	00146	0 07400 4 00275	158	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/2273
	00147	0 50000 0 00121	159		CLA	SCAN5 WHEN DONE, SET	BDC/2274
	00150	0 62100 0 00317	160		STA	CNVSW CONVERSION SWITCH TO RESCAN, AND	BDC/2275
D	00151	1 00000 0 00513	161		TXI	LIST,0 * GO SEE IF LIST IS EXHAUSTED.	BDC/2276
			162			END OF PROGRAM CCEDMK.
			163			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/2277
			164				BDC/2278
			165			CCCMMA/ CALLS=FIELD. USES=LINEISCAN).	BDC/228
			166			CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.	BDC/229
	00152	0 07400 4 00275	167	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/230
			168			RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR.	BDC/231
	00153	−0 53400 1 00143	169	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER.COUNT,	BDC/232
	00154	−0 53400 2 00144	170		LXD	CX2,2 RESTORE SCAN P0SITI0N, AND	BDC/233
	00155	0 56000 0 77751	171		LDQ	MQ CURRENT FORMAT WORD. THEN	BDC/234
D	00156	1 00000 0 00077	172		TXI	SCAN,0 * GO RESUME SCAN.	BDC/235
			173			END OF PROGRAM CCCMMA.	BDC/236
			174			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/237
			175				BDC/238
			176			CCSLSH/ CALLS=FIELD,FILLW. USES=CCCMMA.	BDC/239
			177			CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.	BDC/240
	00157	0 07400 4 00275	178	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/241
	00160	0 07400 4 00515	179		TSX	FILLW,4 * WHEN DONE, OUTPUT RECORD, AND	BDC/242
D	00161	1 00000 0 00153	180		TXI	RESUME,0 * GO RESUME SCAN.	BDC/243
			181			END OF PROGRAM CCSLSH.	BDC/244
			182			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/245
			183				BDC/246
			184			CCSCFP/ USES=LINE(SCAN).	BDC/247
			185			CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.	BDC/248
	00162	0 50000 0 77745	186	CCSCFP	CLA	INT PICKUP AND	BDC/249
	00163	0 60100 0 77750	187		STO	PEX STORE SCALE FACTOR.	BDC/250
D	00164	1 00000 0 00077	188		TXI	SCAN,0 * GO RESUME SCAN.	BDC/25I
			189			END OF PROGRAM CCSCFP.	BDC/252
			190			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/253
			191				BDC/254
			192			CCSCFM/ USES=LINE(SCAN).	BDC/255
			193			CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.	BDC/256
	00165	0 50200 0 77745	194	CCSCFM	CLS	INT SET INT MINUS, AND	BDC/257
D	00166	1 00000 0 00120	195		TXI	SCAN4,0 * G0 GET SCALE FACTOR.	BDC/258
			196			END OF PROGRAM CCSCFM.	BDC/259
			197			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/260
			198				BDC/261
			199			CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).	BDC/262
			200			CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.	BDC/263
	00167	0 07400 4 00275	201	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	BDC/264
	00170	−0 53400 4 00141	202		LXD	BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND	BDC/265
	00171	−2 00001 4 00153	203		TNX	RESUME,4,1 * GO RESUME SCAN, UNLESS	BDC/266
D	00172	1 00000 0 00270	204		TXI	GROUP,0 * REPETITION OF GROUP IS INDICATED.	BDC/267
			205			END OF PROGRAM CCRPAR.	BDC/268
			206			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/269
			207				BDC/270
			208			CCDCPT/ USES=LINE(SCAN).	BDC/271
			209			CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.	BDC/272
	00173	0 50000 0 00211	210	CCDCPT	CLA	DTR MODIFY SCAN INSTRUCTION	BDC/273
	00174	0 60100 0 00107	211		STO	SCAN3 TO TRANSFER INTO DCPT1.	BDC/274
	00175	0 60000 0 77746	212		STZ	DIG CLEAR DIG, AND	BDC/2745
D	00176	1 00000 0 00121	213		TXI	SCAN5,0 * GO RESUME SCAN.	BDC/275
			214			DCPT1 = REENTRY POINT FROM LINE(SCAN).	BDC/276
	00177	0 34000 0 00601	215	DCPT1	CAS	L(9) DETERMINE THE	BDC/277
D	00200	1 00000 0 00204	216		TXI	DCPT3,0 NUMBER, MODULO TEN,	BDC/278
	00201	0 76100 0 00000	217		NOP	OF DIGITS	BDC/279
	00202	0 60100 0 77746	218		STO	DIG IN FRACTION.	BDC/280
D	00203	1 00000 0 00121	219		TXI	SCAN5,0 * WHEN A CONTROL CHARACTER IS MET,	BDC/281
	00204	−0 60000 0 77751	220	DCPT3	STQ	MQ RESTORE THE	BDC/282
	00205	0 56000 0 00177	221		LDQ	DCPT1 SCAN INSTRUCTION	BDC/283
	00206	−0 60000 0 00107	222		STQ	SCAN3 TO ITS ORIGINAL FORM, AND	BDC/284
	00207	0 56000 0 77751	223		LDQ	MQ GO COMPARE CHARACTER	BDC/285
D	00210	1 00000 0 00124	224		TXI	SCAN6,0 * WITH CCTEST LIST.	BDC/286
			225			END OF PROGRAM CCDCPT.	BDC/287
D	00211	1 00000 0 00177	226	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	BDC/28B
			227			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/289
			228				BDC/290
			229			CCIOUT/ USES=LINE(SCAN).	BDC/291
			230			CCIOUT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.	BDC/292
	00212	0 50000 0 00362	231	CCIOUT	CLA	IAD PICKUP INTG, AND	BDC/293
			232			SETAD = ENTRY POINT USED BY CCFOUT,CCEOUT.	BDC/294
	00213	0 62100 0 00317	233	SETAD	STA	CNVSW SET CONVERSION SWITCH.	BDC/295
	00214	0 53400 4 77745	234		LXA	INT,4 SET,COUNT FOR THE	BDC/296
	00215	−0 63400 4 00511	235		SXD	COUNT,4 REPETITION OF THIS FIELD, AND	BDC/297
D	00216	1 00000 0 00077	236		TXI	SCAN,0 * GO RESUME SCAN.	BDC/298
			237			END OF PROGRAM CCIOUT.	BDC/299
			238			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/300
			239				BDC/301
			240			CCHOUT/ USES=LINE(SCAN).	BDC/302
			241			CCHOUT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.	BDC/303
	00217	0 50000 0 00476	242	CCHOUT	CLA	PACK SET STORING ADDRESS	BDC/304
	00220	0 62100 0 00232	243		STA	HOUT4 TO CURRENT LOCATION IN REC BUFFER.	BDC/305
	00221	−0 50000 0 77777	244		CAL	WORD PICKUP WORD INDICATOR.	BDC/306
	00222	0 53400 4 77745	245		LXA	INT,4 SET XR4 = FIELD WIDTH.	BDC/307
	00223	−0 14000 0 00224	246		TNO	HOUT1 TURN OFF OVERFLOW INDICATOR.	BDC/308
	00224	2 00001 1 00230	247	HOUT1	TIX	HOUT3,1,1 UPDATE COUNT, AND IF NO CHARACTERS	BDC/309
	00225	−0 53400 1 00100	248		LXD	SIX,1 REMAIN, RESET CHARACTER C0UNT,	BDC/310
	00226	1 77777 2 00227	249		TXI	HOUT2,2,−1 RESET CURRENT FORMAT SCAN POSITION,	BDC/311
	00227	0 56000 2 77777	250	HOUT2	LDQ	−1,2 AND PICKUP NEXT FORMAT WORD.	BDC/312
	00230	−0 76300 0 00006	251	HOUT3	LGL	6 SHIFT SIX CHARACTERS	BDC/313
	00231	−0 14000 0 00240	252		TNO	HOUT5 INTO THE AC.	BDC/3I4
	00232	0 60200 0 00000	253	HOUT4	SLW	** STORE BCD WORD IN REC BUFFER, AND	BDC/315
	00233	−0 50000 0 00232	254		CAL	HOUT4 UPDATE	BDC/316
	00234	0 40000 0 00577	255		ADD	ONE STORING	BDC/317
	00235	0 62100 0 00232	256		STA	HOUT4 ADDRESS	BDC/318
	00236	0 62100 0 00476	257		STA	PACK AND PACK ADDRESS.	BDC/319
	00237	−0 50000 0 00577	258		CAL	ONE RESET WORD INDICATOR.	BDC/320
	00240	2 00001 4 00224	259	HOUT5	TIX	HOUT1,4,1 REPEAT UNTIL WHOLE GROUP IS MOVED.	BDC/321
	00241	0 60100 0 77777	260		STO	WORD SAVE INCOMPLETE WORD. AND	BDC/322
D	00242	1 00000 0 00077	261		TXI	SCAN,0 * GO RESUME SCAN.	BDC/323
			262			END OF PROGRAM CCHOUT.	BDC/324
			263			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/325
			264				BDC/326
			265			CCFOUT/ USES=CCIOUT.	BDC/327
			266			COFOUT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.	BDC/328
	00243	0 50000 0 00253	267	CCFOUT	CLA	FXDW SET CONVERSION ROUTINE	BDC/329
	00244	0 62100 0 00427	268		STA	CNV5 FOR FIXED POINT	BDC/330
	00245	0 62200 0 00441	269		STD	CNV6 OUTPUT	BDC/331
	00246	0 62200 0 00435	270		STD	CLR (WITHOUT EXPONENT).	BDC/332
	00247	0 50200 0 77750	271		CLS	PEX SET EXP TO THE	BDC/333
	00250	0 60100 0 77742	272		STO	EXP NEGATIVE OF SCALE FACTOR.	BDC/334
	00251	0 50000 0 00331	273		CLA	FAD PICKUP FXD, AND	BDC/335
D	00252	1 00000 0 00213	274		TXI	SETAD,0 * GO SET CONVERSI0N SWITCH.	BDC/336
			275			END OF PROGRAM CCFOUT.	BDC/337
	00253	0 00001 0 77742	276	FXDW	PZE	CHAR,0,1 CONSTANT USED BY CCFOUT.	BDC/338
			277			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/339
			278				BDC/340
			279			CCEOUT/ USES=CCIOUT.	BDC/341
			280			CCEOUT = ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.	BDC/342
	00254	0 50000 0 00262	281	CCEOUT	CLA	FLTW SET CONVERSION ROUTINE	BDC/343
	00255	0 62100 0 00427	282		STA	CNV5 FOR FLOATING POINT	BDC/344
	00256	0 62200 0 00441	283		STD	CNV6 OUTPUT	BDC/345
	00257	0 62200 0 00435	284		STD	CLR (WITH EXPONENT).	BDC/346
	00260	0 50000 0 00340	285		CLA	FLT1 PICKUP FLT, AND	BDC/347
D	00261	1 00000 0 00213	286		TXI	SETAD,0 * GO SET CONVERSION SWITCH.	BDC/348
			287			END OF PROGRAM CCEOUT.	BDC/349
	00262	0 00005 0 77736	288	FLTW	PZE	CHAR−4,0,5 CONSTANT USED BY CCEOUT.	BDC/350
			289			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/351
			290				BDC/352
			291			RESCAN/ CALLS=FILLW. USES=LINE(SCAN).	BDC/353
			292			RESCAN = ENTRY POINT USED BY PRINT.	BDC/354
	00263	−0 63400 4 00135	293	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	BDC/357
	00264	−0 63400 1 00133	294		SXD	AX1,1 SAVE THE ORIGINAL C(XR1),	BDC/358
	00265	−0 63400 2 00134	295		SXD	AX2,2 SAVE THE ORIGINAL C(XR2), AND	BDC/359
	00266	0 07400 4 00515	296		TSX	FILLW,4 * GO OUTPUT RECORD.	BDC/360
	00267	−0 53400 4 00274	297		LXD	GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TO	BDC/361
			298			GROUP = ENTRY POINT USED BY CCRPAR.	BDC/362
	00270	−0 63400 4 00141	299	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	BDC/363
	00271	−0 53400 1 00137	300		LXD	BX1,1 RESET CHARACTER COUNT,	BDC/364
	00272	−0 53400 2 00140	301		LXD	BX2,2 RESET SCAN POSITION, AND	BDC/365
	00273	0 56000 0 77752	302		LDQ	MQR PICKUP 1ST FORMAT WORD OF GROUP.	BDC/366
	00274	1 00000 0 00077	303	GROUPX	TXI	SCAN,0,** * GO RESCAN THIS GR0UP.	BDC/367
			304			END OF PROGRAM RESCAN.	BDC/368
			305			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/369
			306				BDC/370
			307			FIELD,4/ USES PRINT. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.	BDC/371
			308			FIELD OONTROLS THE REPEATED OUTPUT OF THE CURRENT FIELD.	BDC/372
	00275	−0 63400 4 00145	309	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	BDC/373
	00276	−0 63400 1 00143	310		SXD	CX1,1 SAVE THE CHARACTER COUNT,	BDC/374
	00277	−0 63400 2 00144	311		SXD	CX2,2 THE SCAN POSITION, AND	BDC/375
	00300	−0 60000 0 77751	312		STQ	MQ THE CURRENT FORMAT WORD.	BDC/376
	00301	−0 53400 1 00133	313		LXD	AX1,1 RESTORE THE ORIGINAL C(XR1),	BDC/377
	00302	−0 53400 2 00134	314		LXD	AX2,2 RESTORE THE ORIGINAL C(XR2), AND	BDC/378
	00303	0 53400 4 77745	315		LXA	INT,4 EXAMINE INT, AND	BDC/379
	00304	−3 00000 4 00307	316		TXL	DONE,4,0 IF NOT ZERO, THEN	BDC/380
	00305	−0 63400 4 00467	317		SXD	CLR2,4 SET COLUMN WIDTH OF EACH FIELD.	BDC/381
D	00306	1 00000 0 00513	318		TXI	LIST,0 * AND GO PROCESS FIELD.	BDC/382
			319			DONE = ENTRY POINT USED BY PRINT.	BDC/383
	00307	−0 53400 4 00145	320	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	BDC/384
	00310	0 02000 4 00001	321		TRA	1,4 * RETURN TO CALLER.	BDC/385
			322			END OF PROGRAM FIELD.	BDC/386
			323			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/387
			324				BDC/388
			325			PRINT,4/ USES=FIELD,LINE. CALLERS=(BDC),LINE(RESCAN).	BDC/389
			326			PRINT DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.	BDC/390
			327			XPRINT = EXIT FROM PRINT WHEN FORMAT IS EXHAUSTED.	BDC/391
	00311	−0 63400 4 00317	328	XPRINT	SXD	CNVSW,4 SAVE THE C(XR4), AND	BDC/392
	00312	0 07400 4 00263	329		TSX	RESCAN,4 * GO RESCAN FORMAT. THEN RETURN,	BDC/3921
	00313	−0 53400 4 00317	330		LXD	CNVSW,4 AFTER GETTING FORMAT.	BDC/3922
	00314	0 50000 0 77747	331		CLA	DATUM THEN PROCEED TO CONVERSION.	BDC/393
			332			PRINT = ENTRY POINT USED BY (BDC).	BDC/394
	00315	−0 63400 4 00135	333	PRINT	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	BDC/395
	00316	0 60100 0 77747	334		STO	DATUM STORE CURRENT FIELD FOR CONVERSION.	BDC/396
	00317	1 00000 0 00000	335	CNVSW	TXI	**,0,** * SWITCH TO FLT, FXD, INTG,OR RESCAN.	BDC/397
			336			FLT = ENTRY POINT FOR FLOATING POINT CONVERSION.	BDC/398
	00320	0 10000 0 00433	337	FLT	TZE	CNVN IF NON-ZERO, BEGIN E, F CONVERSION.	BDC/399
	00321	0 76500 0 00033	338		LRS	27 PLACE CHARACTERISTIC IN THE AC,	BDC/400
	00322	0 76000 0 00003	339		SSP	FRACTION IN THE MQ.	BDC/401
	00323	0 40200 0 00575	340		SUB	BASE	BDC/402
	00324	0 76500 0 00043	341		LRS	35 OBTAIN REQUIRED BASE IN THE MQ.	BDC/403
	00325	0 20000 0 00576	342		MPY	LOG2	BDC/404
	00326	0 60100 0 77742	343		STO	EXP	BDC/405
	00327	0 12000 0 00340	344		TPL	FLT1	BDC/406
	00330	0 40200 0 77750	345		SUB	PEX	BDC/407
	00331	0 73400 4 00370	346	FAD	PAX	FXD,4	BDC/408
	00332	0 56000 0 77747	347		LDQ	DATUM	BDC/409
	00333	0 26000 4 00671	348		FMP	TAB−1,4	BDC/410
	00334	0 76000 0 00003	349		SSP	TEST PROBABLE	BDC/411
	00335	0 53400 4 77750	350		LXA	PEX,4 EXPONENT.	BDC/412
	00336	0 40200 4 00672	351		SUB	TAB,4	BDC/413
D	00337	1 00000 0 00344	352		TXI	FLT4,0	BDC/414
	00340	0 73400 4 00320	353	FLT1	PAX	FLT,4	BDC/415
	00341	0 50000 4 00672	354		CLA	TAB,4	BDC/416
	00342	−0 40000 0 77747	355		SBM	DATUM	BDC/417
	00343	0 40000 0 00574	356		ADD	BIAS	BDC/4I8
	00344	0 12000 0 00350	357	FLT4	TPL	FLT2	BDC/419
	00345	−0 50000 0 77742	358		CAL	EXP ADJUST EXPONENT.	BDC/420
	00346	0 40000 0 00577	359		ADD	ONE	BDC/421
	00347	0 60200 0 77742	360		SLW	EXP	BDC/422
	00350	−0 50000 0 00566	361	FLT2	CAL	E OBTAIN E FOR	BDC/423
	00351	0 60200 0 77736	362		SLW	CHAR−4 EXPONENT.	BDC/424
	00352	0 50000 0 77742	363		CLA	EXP	BDC/425
	00353	0 40200 0 77750	364		SUB	PEX	BDC/426
	00354	0 60100 0 77742	365		STO	EXP	BDC/427
	00355	−0 50000 0 00570	366		CAL	BLANK	BDC/428
	00356	0 56000 0 77742	367		LDQ	EXP OBTAIN SIGN.	BDC/429
	00357	0 16200 0 00361	368		TQP	FLT3	BDC/430
	00360	−0 50000 0 00560	369		CAL	MINUS	BDC/431
	00361	0 60200 0 77737	370	FLT3	SLW	CHAR−3	BDC/432
	00362	−0 75400 0 00445	371	IAD	PXD	INTG,0	BDC/433
	00363	0 22100 0 00571	372		DVP	TEN OBTAIN DIGITS	BDC/434
	00364	−0 60000 0 77740	373		STQ	CHAR−2 OF EXPONENT.	BDC/435
	00365	0 60200 0 77741	374		SLW	CHAR−1	BDC/436
	00366	0 50000 0 77747	375		CLA	DATUM	BDC/437
D	00367	1 00000 0 00371	376		TXI	CNV,0	BDC/438
			377			FXD = ENTRY POINT FOR FIXED POINT CONVERSION.	BDC/439
	00370	0 10000 0 00433	378	FXD	TZE	CNVN TEST OUTPUT NUMBER FOR ZERO.	BDC/440
	00371	0 53400 4 77742	379	CNV	LXA	EXP,4 TEST FOR SCALING.	BDC/441
	00372	−3 00000 4 00400	380		TXL	CNV1,4,0	BDC/442
	00373	0 56000 0 77742	381		LDQ	EXP	BDC/443
	00374	0 16200 0 00402	382		TQP	CNV2	BDC/444
	00375	0 56000 0 77747	383		LDQ	DATUM	BDC/445
	00376	0 26000 4 00672	384		FMP	TAB,4	BDC/446
	00377	0 36100 0 00574	385		ACL	BIAS	BDC/447
	00400	−0 30000 0 00572	386	CNV1	UFA	FIXN FIX INTERNAL FLOATING BINARY NO.	BDC/448
D	00401	1 00000 0 00406	387		TXI	CNVN1,0	BDC/449
	00402	0 24100 4 00672	388	CNV2	FDP	TAB,4	BDC/450
	00403	−0 60000 0 77744	389		STQ	FD	BDC/451
	00404	0 50000 0 77744	390		CLA	FD	BDC/452
	00405	−0 30000 0 00573	391		UFA	FIXQ	BDC/453
	00406	0 76300 0 00010	392	CNVN1	LLS	8	BDC/454
	00407	0 76700 0 00002	393		ALS	2	BDC/455
	00410	0 77100 0 00012	394		ARS	10	BDC/456
	00411	0 60100 0 77743	395		STO	ND STORE INTEGRAL PART.	BDC/457
	00412	−0 60000 0 77744	396		STQ	FD STORE FRACTIONAL PART.	BDC/458
	00413	0 53400 4 77746	397		LXA	DIG,4	BDC/459
	00414	0 50000 0 77744	398		CLA	FD SKIP FRACTIONAL.	BDC/460
	00415	0 36100 4 00613	399		ACL	RND,4	BDC/461
	00416	0 76500 0 00043	400		LRS	35 ROUND NUMBER.	BDC/462
	00417	0 40000 0 77743	401		ADD	ND	BDC/463
	00420	0 60100 0 77743	402		STO	ND	BDC/464
	00421	−3 00000 4 00440	403		TXL	CNV3,4,0 TEST FOR FRACTION WANTED.	BDC/465
	00422	−0 60000 0 77744	404	CNV4	STQ	FD	BDC/466
	00423	0 76700 0 00004	405		ALS	4 CONVERT FRACTIONAL PART.	BDC/467
	00424	0 76300 0 00041	406		LLS	33	BDC/468
	00425	0 40000 0 77744	407		ADD	FD	BDC/469
	00426	0 76500 0 00040	408		LRS	32	BDC/470
	00427	0 60200 4 00000	409	CNV5	SLW	**,4 (FXD=CHAR, FLT=CHAR-4)	BDC/471
	00430	2 00001 4 00422	410		TIX	CNV4,4,1	BDC/472
	00431	0 50000 0 77743	411		CLA	ND OBTAIN INTEGRAL PART.	BDC/473
D	00432	1 00000 0 00440	412		TXI	CNV3,0	BDC/474
	00433	0 53400 4 77746	413	CNVN	LXA	DIG,4	BDC/475
	00434	0 56000 0 00570	414		LDQ	BLANK	BDC/476
	00435	1 00000 4 00436	415	CLR	TXI	CLR1,4,** (FXD=1, FLT=5)	BDC/477
	00436	−0 60000 4 77742	416	CLR1	STQ	CHAR,4	BDC/478
	00437	2 00001 4 00436	417		TIX	CLR1,4,1	BDC/479
	00440	0 53400 4 77746	418	CNV3	LXA	DIG,4	BDC/480
	00441	1 00000 4 00442	419	CNV6	TXI	CNV7,4,** (FXD=1, FLT=5)	BDC/481
	00442	0 56000 0 00562	420	CNV7	LDQ	POINT ESTABLISH POINT.	BDC/482
	00443	−0 60000 4 77742	421		STQ	CHAR,4	BDC/483
D	00444	1 00000 0 00447	422		TXI	CNV11,0	BDC/484
			423			INTG = ENTRY POINT FOR INTEGER CONVERSION.	BDC/485
	00445	−0 53400 4 00577	424	INTG	LXD	ONE,4	BDC/486
	00446	0 77100 0 00022	425		ARS	18	BDC/487
	00447	0 76500 0 00043	426	CNV11	LRS	35	BDC/488
	00450	0 22100 0 00571	427	CNV9	DVP	TEN CONVERT INTEGRAL PART.	BDC/489
	00451	0 60200 4 77741	428		SLW	CHAR−1,4	BDC/490
	00452	−0 60000 0 77743	429		STQ	ND	BDC/491
	00453	0 50000 0 77743	430		CLA	ND	BDC/492
	00454	0 10000 0 00457	431		TZE	CNV8	BDC/493
	00455	0 76000 0 00000	432		CLM		BDC/494
	00456	1 00001 4 00450	433		TXI	CNV9,4,1	BDC/495
	00457	−0 50000 0 00570	434	CNV8	CAL	BLANK PUT SIGN IN SPREAD BCD.	BDC/496
	00460	0 16200 0 00462	435		TQP	CNV12	BDC/497
	00461	−0 50000 0 00560	436		CAL	MINUS	BDC/498
	00462	0 60200 4 77740	437	CNV12	SLW	CHAR−2,4	BDC/499
	00463	−0 50000 0 00570	438		CAL	BLANK	BDC/500
	00464	1 00003 4 00467	439		TXI	CLR2,4,3	BDC/501
	00465	0 60200 4 77742	440	CLR3	SLW	CHAR,4	BDC/502
	00466	1 00001 4 00467	441		TXI	CLR2,4,1	BDC/503
	00467	−3 00000 4 00465	442	CLR2	TXL	CLR3,4,** (COLUMN WIDTH OF THIS FIELD)	BDC/504
	00470	−0 53400 4 00467	443		LXD	CLR2,4	BDC/505
	00471	−0 50000 0 77777	444		CAL	WORD PACK RECORD INTO	BDC/506
	00472	0 14000 0 00473	445		TOV	PACK2 FULL WORDS.	BDC/507
	00473	0 76700 0 00006	446	PACK2	ALS	6	BDC/508
	00474	0 40000 4 77742	447		ADD	CHAR,4	BDC/509
	00475	−0 14000 0 00503	448		TNO	PACK3	BDC/510
	00476	0 60200 0 00000	449	PACK	SLW	** (CURRENT ADDRESS IN REC BUFFER)	BDC/511
	00477	−0 50000 0 00476	450		CAL	PACK	BDC/512
	00500	0 40000 0 00577	451		ADD	ONE	BDC/513
	00501	0 62100 0 00476	452		STA	PACK	BDC/514
	00502	−0 50000 0 00577	453		CAL	ONE	BDC/515
	00503	2 00001 4 00473	454	PACK3	TIX	PACK2,4,1 WHEN THIS FIELD HAS BEEN PROCESSED,	BDC/516
	00504	0 60200 0 77777	455		SLW	WORD SAVE ANY REMAINDER, AND	BDC/517
	00505	−0 53400 4 00511	456		LXD	COUNT,4 COUNT NUMBER OF	BDC/518
	00506	2 00001 4 00512	457		TIX	MORE,4,1 WORDS CONVERTED.	BDC/519
	00507	−0 63400 1 00133	458		SXD	AX1,1 IF FIELD COUNT HAS BEEN EXHAUSTED,	BDC/520
	00510	−0 63400 2 00134	459		SXD	AX2,2 RESTORE THE C(XR1),C(XR2), AND	BDC/521
	00511	1 00000 0 00307	460	COUNT	TXI	DONE,0,** * (FIELD REPEAT COUNT) EXIT TO FIELD.	BDC/522
	00512	−0 63400 4 00511	461	MORE	SXD	COUNT,4 OTHERWISE, G0 GET MORE L1ST.	BDC/523
			462			LIST = ENTRY POINT USED BY LINE(SCAN),FIELD.	BDC/524
	00513	−0 53400 4 00135	463	LIST	LXD	AX4,4 RESTORE THE C(XR4I, AN0	BDC/525
	00514	0 02000 4 00001	464		TRA	1,4 * GO GET NEXT OUTPUT NUMBER.	BDC/526
			465			END OF PROGRAM PRINT.	BDC/527
			466			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/528
			467				BDC/529
			468			FILLW(RESET),4/ CALLERS=IFIL),LINE,CCSLSH,RESCAN.	BDC/530
			469			FILLW FILLS OUT LAST WORD,CONTROLS OUTPUT, AND RESETS.	BDC/531
	00515	−0 63400 4 00054	470	FILLW	SXD	FILLX,4 SAVE THE C(XR4) FOR RETURN.	BDC/532
	00516	0 53400 4 00476	471		LXA	PACK,4 SET XR4 = REC + NO. WORDS ENTERED.	BDC/533
	00517	−0 50000 0 77777	472		CAL	WORD EXAMINE	BDC/534
	00520	0 40200 0 00577	473		SUB	ONE WORD INDICATOR, AND	BDC/535
	00521	0 10000 0 00533	474		TZE	FILL1 IF NOT ZERO, THEN	BDC/536
	00522	−0 50000 0 00476	475		CAL	PACK SET ADDRESS	BDC/537
	00523	0 62100 0 00531	476		STA	FILL3 FOR LAST WORD.	BDC/538
	00524	−0 50000 0 77777	477		CAL	WORD PICKUP WORD,	BDC/539
	00525	0 14000 0 00526	478		TOV	FILL4 AND	BDC/540
	00526	0 76700 0 00006	479	FILL4	ALS	6 FILL OUT	BDC/541
	00527	0 40000 0 00570	480		ADD	BLANK WITH BLANKS.	BDC/542
	00530	−0 14000 0 00526	481		TNO	FILL4 WHEN DONE,	BDC/543
	00531	0 60200 0 00000	482	FILL3	SLW	** STORE LAST WORD.	BDC/544
	00532	1 00001 4 00533	483		TXI	FILL1,4,1 UPDATE, AND SET	BDC/545
	00533	2 77753 4 00535	484	FILL1	TIX	FILL2,4,REC XR4 AND THE DECREMENT OF FILL	BDC/546
	00534	0 53400 4 00577	485		LXA	ONE,4 TO THE NUMBER OF WORDS ENTERED	BDC/547
	00535	−0 63400 4 00542	486	FILL2	SXD	FILL,4 IN REC BUFFER. THEN	BDC/548
	00536	−0 53400 4 00105	487		LXD	UNIT,4 SELECT CURRENT OUTPUT UNIT.	BDC/549
	00537	3 77776 4 00541	488		TXH	TYPE,4,−2 PUNCH OR PRINT OUTPUT.	BDC/550
	00540	0 76600 4 00177	489		WRS	127,4 BCD TAPE OUTPUT.	BDC/551
	00541	0 07400 4 00000	490	TYPE	TSX	**,4 * GO TO INDICATED OUTPUT ROUTINE.	BDC/552
	00542	0 00000 0 77753	491	FILL	PZE	REC,,** (DECREMENT = NO. WORDS ENTERE0)	BDC/553
	00543	−0 53400 4 00054	492		LXD	FILLX,4 F REENTRY FROM OUTPUT R0UT1NE.	BDC/554
			493			RESET = ENTRY POINT USED BY LINE.	BDC/555
	00544	−0 50000 0 00567	494	RESET	CAL	BLANKS RESET REC	BDC/556
	00545	0 60200 0 77753	495	FILT	SLW	REC TO BLANKS,	BDC/557
	00546	−0 50000 0 00542	496		CAL	FILL PACK ADDRESS	BDC/558
	00547	0 62100 0 00476	497		STA	PACK TO REC, AN0	BDC/559
	00550	−0 50000 0 00577	498		CAL	ONE PICKUP 1 TO	BDC/560
	00551	0 60200 0 77777	499		SLW	WORD SET WORD INDICATOR.	BDC/561
	00552	0 02000 4 00001	500		TRA	1,4 * EXIT TO CALLER.	BDC/562
			501			END OF PROGRAM FILLW(RESET).	BDC/563
			502			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/564
			503				BDC/565
			504			CONSTANTS AND WORKING STORAGE USDO BY FIL/BDC.	BDC/566
	00553	+000000000077	505	ENDMK	OCT	77 CCTEST-12.	BDC/5665
	00554	000000000074	506	(	BCD	100000( CCTEST-11.	BDC/567
	00555	000000000073	507	COMMA	BCD	100000, CCTEST-10.	BDC/56B
	00556	000000000061	508	SLASH	BCD	100000/ CCTEST-9.	BDC/569
	00557	000000000047	509	P	BCD	100000P CCTEST-8.	BDC/570
	00560	000000000040	510	MINUS	BCD	100000- CCTEST-7.	BDC/571
	00561	000000000034	511	)	BCD	100000) CCTEST-6.	BDC/572
	00562	000000000033	512	POINT	BCD	100000. CCTEST-5.	BDC/573
	00563	000000000031	513	I	BCD	100000I CCTEST-4.	BDC/574
	00564	000000000030	514	H	BCD	100000H CCTEST-3.	BDC/575
	00565	000000000026	515	F	BCD	100000F CCTEST-2.	BDC/576
	00566	000000000025	516	E	BCD	100000E CCTEST-1.	BDC/577
		00567	517	CCTEST	BSS	0 INDEXING ADDRESS FOR ABOVE LIST.	BDC/578
	00567	606060606060	518	BLANKS	BCD	1␣␣␣␣␣␣ CONSTANT USED BY FIL/BDC.	BDC/579
	00570	000000000060	519	BLANK	BCD	100000␣ CONSTANT USED BY FIL/BDC.	BDC/580
	00571	+000000000012	520	TEN	DEC	10 CONSTANT USED BY FIL/BDC.	BDC/581
	00572	+233000000000	521	FIXN	DEC	155B8 CONSTANT USED BY FIL/BDC.	BDC/582
	00573	+266000000000	522	FIXQ	DEC	182B8 CONSTANT USED BY FIL/BDC.	BDC/583
	00574	+033000000000	523	BIAS	DEC	27B8 CONSTANT USED BY FIL/BDC.	BDC/584
	00575	+000000000200	524	BASE	DEC	128 CONSTANT USED BY FIL/BDC.	BDC/585
	00576	+115040462343	525	LOG2	DEC	.301029957B CONSTANT USED BY FIL/BDC.	BDC/586
	00577	+000000000001	526	ONE	DEC	1 CONSTANT USED BY FIL/BDC.	BDC/587
	00600	0 00000 0 00002	527	TWO	PZE	2 CONSTANT USED BY FIL/BDC.	BDC/5875
	00601	0 00000 0 00011	528	L(9)	PZE	9 CONSTANT USED BY FIL/BDC.	BDC/5876
	00602	+000000000021	529		DEC	.5BE−9 09-TABLE USED BY FIL/BDC.	BDC/588
	00603	+000000000253	530		DEC	.5BE−8 08-TABLE USED BY FIL/BDC.	BDC/589
	00604	+000000003265	531		DEC	.5BE−7 07-TABLE USED BY FIL/BDC.	BDC/590
	00605	+000000041433	532		DEC	.5BE−6 06-TABLE USED BY FIL/BDC.	BDC/591
	00606	+000000517426	533		DEC	.5BE−5 05-TABLE USED BY FIL/BDC.	BDC/592
	00607	+000006433342	534		DEC	.5BE−4 04-TABLE USED BY FIL/BDC.	BDC/593
	00610	+000101422335	535		DEC	.5BE−3 03-TABLE USED BY FIL/BDC.	BDC/594
	00611	+001217270243	536		DEC	.5BE−2 02-TABLE USED BY FIL/BDC.	BDC/595
	00612	+014631463146	537		DEC	.5BE−1 01-TABLE USED BY FIL/BDC.	BDC/596
	00613	+200000000000	538	RND	DEC	.5B 00-TABLE USED BY FIL/BDC.	BDC/597
	00614	+376700324573	539		OCT	376700324573 46-TABLE USED BY FIL/BDC.	BDC/598
	00615	+373546566774	540		OCT	373546566774 45-TABLE USED BY FIL/BDC.	BDC/599
	00616	+370436770626	541		OCT	370436770626 44-TABLE USED BY FIL/BDC.	BDC/600
	00617	+364713132675	542		OCT	364713132675 43-TABLE USED BY FIL/BDC.	BDC/601
	00620	+361557257061	543		OCT	361557257061 42-TABLE USED BY FIL/BDC.	BDC/602
	00621	+356445677215	544		OCT	356445677215 41-TABLE USED BY FIL/BDC.	BDC/603
	00622	+352726145174	545		OCT	352726145174 40-TABLE USED BY FIL/BDC.	BDC/604
	00623	+347570120775	546		OCT	347570120775 39-TABLE USED BY FIL/BDC.	BDC/605
	00624	+344454732312	547		OCT	344454732312 38-TABLE USED BY FIL/BDC.	BDC/606
	00625	+340741367020	548		OCT	340741367020 37-TABLE USED BY FIL/BDC.	BDC/607
	00626	+335601137163	549		OCT	335601137163 36-TABLE USED BY FIL/BOC.	BDC/608
	00627	+332464114134	550		OCT	332464114134 35-TABLE USED BY FIL/BDC.	BDC/609
	00630	+326755023372	551		OCT	326755023372 34-TABLE USED BY FIL/BDC.	BDC/610
	00631	+323612334310	552		OCT	323612334310 33-TABLE USED BY FIL/BDC.	BDC/611
	00632	+320473426555	553		OCT	320473426555 32-TABLE USED BY FIL/BOC.	BDC/612
	00633	+314770675742	554		OCT	314770675742 31-TABLE USED BY FIL/BDC.	BDC/613
	00634	+311623713116	555		OCT	311623713116 30-TABLE USED BY FIL/BDC.	BDC/614
	00635	+306503074076	556		OCT	306503074076 29-TABLE USED BY F1L/BDC.	BDC/615
	00636	+303402374713	557		OCT	303402374713 28-TABLE USED BY F1L/BDC.	BDC/616
	00637	+277635456171	558		OCT	277635456171 27-TABLE USED BY FIL/BDC.	BDC/617
	00640	+274512676456	559		OCT	274512676456 26-TABLE USED BY FIL/BOC.	BDC/618
	00641	+271410545213	560		OCT	271410545213 25-TABLE USED BY FIL/BDC.	BDC/619
	00642	+265647410337	561		OCT	265647410337 24-TABLE USED BY FIL/BDC.	BDC/620
	00643	+262522640262	562		OCT	262522640262 23-TABLE USED BY FIL/BDC.	BDC/621
	00644	+257417031702	563		OCT	257417031702 22-TABLE USED BY FIL/BDC.	BDC/622
	00645	+253661534466	564		OCT	253661534466 21-TABLE USED BY FIL/BDC.	BDC/623
	00646	+250532743536	565		OCT	250532743536 20-TABLE USED BY FIL/BDC.	BDC/624
	00647	+245425434430	566		OCT	245425434430 19-TABLE USED BY FIL/BDC.	BDC/625
	00650	+241674055530	567		OCT	241674055530 18-TABLE USED BY FIL/BDC.	BDC/626
	00651	+236543212741	568		OCT	236543212741 17-TABLE USEO BY FIL/BDC.	BDC/627
	00652	+233434157116	569		OCT	233434157116 16-TABLE USED BY FIL/BDC.	BDC/628
	00653	+227706576512	570		OCT	227706576512 15-TABLE USED BY FIL/BDC.	BDC/629
	00654	+224553630410	571		OCT	224553630410 14-TABLE USED BY FIL/BDC.	BDC/630
	00655	+221443023471	572		OCT	221443023471 13-TABLE USED BY FIL/BDC.	BDC/631
	00656	+215721522451	573		OCT	215721522451 12-TABLE USED BY FIL/BDC.	BDC/632
	00657	+212564416672	574		OCT	212564416672 11-TABLE USED BY FIL/BDC.	BDC/633
	00660	+207452013710	575		OCT	207452013710 10-TABLE USED BY FIL/BDC.	BDC/634
	00661	+203734654500	576		OCT	203734654500 09-TABLE USED BY FIL/BDC.	BDC/635
	00662	+200575360400	577		OCT	200575360400 08-TABLE USED BY FIL/BDC.	BDC/636
	00663	+175461132000	578		OCT	175461132000 07-TABLE USED BY FIL/BDC.	BDC/637
	00664	+171750220000	579		OCT	171750220000 06-TABLE USED BY FIL/BDC.	BDC/638
	00665	+166606500000	580		OCT	166606500000 05-TABLE USED BY FIL/BDC.	BDC/639
	00666	+163470400000	581		OCT	163470400000 04-TABLE USED BY FIL/BDC.	BDC/640
	00667	+157764000000	582		OCT	157764000000 03-TABLE USED BY FIL/BDC.	BDC/641
	00670	+154620000000	583		OCT	154620000000 02-TABLE USED BY FIL/BDC.	BDC/642
	00671	+151500000000	584		OCT	151500000000 01-TABLE USED BY FIL/BDC.	BDC/643
	00672	+146400000000	585	TAB	OCT	146400000000 00-TABLE USE0 BY FIL/BDC.	BDC/644
		77552	586	COMMON	ORG	−150 COMMON WORKING STORAGE=	BDC/645
		77742	587	CHAR	BES	120 VARIABLE USED BY FIL/BDC.	BDC/646
		77742	588	EXP	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/647
		77743	589	ND	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/648
		77744	590	FD	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/649
		77745	591	INT	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/650
		77746	592	DIG	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/651
		77747	593	DATUM	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/652
		77750	594	PEX	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/653
		77751	595	MQ	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/654
		77752	596	MQR	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/655
		77753	597	REC	BSS	20 VARIABLE USED BY FIL/BDC.	BDC/656
		77777	598	WORD	BSS	1 VARIABLE USED BY FIL/BDC.	BDC/657
			599			END OF CONSTANTS AND WORKING STORAGE USED BY FIL/BDC.	BDC/658
			600			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	BDC/659