1			24
			2			704 FORTRAN II / DBC / 12 JAN 59.
			3
			4			THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING=
			5			** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION
			6			INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.
			7			* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F
			8			THIS LOGICAL BLOCK OR SUBROUTINE.
			9			C IN C0L/34 INDICATES THE INSTRUCTI0N WAS CORRECTED.
			10			P IN COL/32 INDICATES THE INSTRUCTI0N WAS INSERTED (PATCH).
			11			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
			12
			13			CONTROL CARD FOR DBC.	DBC/C01
		00000	14		ORG	0	DBC/C02
	00000	0 00000 0 00723	15		PZE	TAB+1	DBC/C03
	00001	0 00000 0 77731	16		PZE	COMMON	DBC/C04
	00002	742422233460	17		BCD	1(DBC)␣	DBC/C05
	00003	0 00000 0 00000	18		PZE	(DBC)	DBC/C06
			19			END OF DBC CONTROL CARD.	DBC/C07
			20			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/C08
			21				DBC/C09
		00000	22		ORG	0	DBC/O01
			23			(DBC)/ CALLS=LINE,READ. CALLER=MAIN PROGRAM.	DBC/002
			24			(DBC) CONTROLS DECIMAL TO BINARY CONVERSION AND INPUT.	DBC/003
	00000	0 02100 0 00001	25	(DBC)	TTR	NEW INSTRUCTI0N EXECUTED IN LOCATION 1.	DBC/004
			26			NEW = ENTRY POINT FROM MAIN PROGRAM (C(AC)= ADDRESS OF INPUT	DBC/005
			27			ROUTINE TO HANDLE CURRLNT INPUT, AND C(0)= LOCATION OF THE	DBC/006
			28			CURRENT FORMAT STATEMENT).	DBC/007
	00001	−0 76000 0 00007	29	NEW	LTM	SET RBCD TO CALL THE INDICATED	DBC/008
	00002	0 62100 0 00304	30		STA	TYPE TYPE OF INPUT ROUTINE.	DBC/009
	00003	−0 50000 0 00000	31		CAL	0 SET INPUT FORMAT STATEMENT	DBC/010
	00004	0 62100 0 00007	32		STA	CALL LOCATI0N.	DBC/011
	00005	0 40000 0 00626	33		ADD	ONE SET EXIT	DBC/012
	00006	0 62100 0 00015	34		STA	FX4 TO MAIN PROGRAM.	DBC/013
	00007	−0 50000 0 00000	35	CALL	CAL	** OBTAIN FORMAT STATEMENT	DBC/014
	00010	−0 63400 4 00015	36		SXD	FX4,4 FOR SCAN.	DBC/015
	00011	0 07400 4 00036	37		TSX	LINE,4 * GO SCAN FORMAT.	DBC/O16
	00012	−0 53400 4 00015	38		LXD	FX4,4 WHEN DONE, RESTORE C(XR4).	DBC/017
	00013	−0 50000 0 00016	39		CAL	TRAP SET LOCATION 1 FOR FUTURE	DBC/018
	00014	0 60200 0 00001	40		SLW	1 TRAP TRANSFER TO SEEK, AND	DBC/019
	00015	1 00000 0 00000	41	FX4	TXI	**,0,** * TRANSFER CONTROL TO MAIN PROGRAM.	DBC/020
			42			THE MAIN PROGRAM CONTROLS ALL INDEXING OF THE LIST.	DBC/021
	00016	0 02100 0 00017	43	TRAP	TTR	SEEK INSTRUCTION EXECUTED IN LOCATION 1.	DBC/022
			44			SEEK = REENTRY POINT FROM MAIN PROGRAM (C(0)= LOCATI0N OF	DBC/023
			45			THE ADDRESS OF THE NEXT INPUT NUMBERS).	DBC/024
	00017	−0 76000 0 00007	46	SEEK	LTM	PICKUP NTR INSTRUCTION, AND	DBC/025
	00020	−0 50000 0 00000	47		CAL	0 SET LOCATION	DBC/O26
	00021	0 62100 0 00024	48		STA	SETL 0F INPUT NUMBERS.	DBC/027
	00022	0 40000 0 00626	49		ADD	ONE SET LOCATION FOR	DBC/028
	00023	0 62100 0 00035	50		STA	OUT RETURN TO MAIN PROGRAM.	DBC/029
	00024	0 50000 0 00000	51	SETL	CLA	** PICKUP LOCATION OF INPUT	DBC/030
	00025	0 60100 0 00033	52	STO	STO	PUT AND SET ADDRESS AND TAG OF PUT.	DBC/031
	00026	0 56000 0 00025	53		LDQ	STO SET PUT OP	DBC/032
	00027	−0 62000 0 00033	54		SLQ	PUT TO STO.	DBC/033
	00030	−0 63400 4 00015	55		SXD	FX4,4 SAVE THE C(XR4), AND	DBC/034
	00031	0 07400 4 00316	56		TSX	READ,4 * GO READ AND CONVERT INPUT.	DBC/035
	00032	−0 53400 4 00015	57		LXD	FX4,4 RESTORE THE C(XR4).	DBC/036
	00033	0 60100 0 00000	58	PUT	STO	**,** STORE INPUT NUMBER.	DBC/037
	00034	0 76000 0 00007	59		ETM	REPEAT UNTIL LIST IS EXHAUSTED,	DBC/038
	00035	0 02100 0 00000	60	OUT	TTR	** * UNDER CONTROL OF THE MAIN PROGRAM.	DBC/039
			61			END OF PROGRAM (DBC).	DBC/040
			62			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/041
			63				DBC/042
			64			LINE,4/ CALLS=RBCD,FIELD. USES=READ. CALLER=(DBC).	DBC/043
			65			LINE SCANS THE FORMAT STATEMENT FOR EACH LINE OF INPUT.	DBC/044
	00036	−0 63400 4 00116	66	LINE	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/045
	00037	−0 63400 1 00114	67		SXD	AX1,1 SAVE THE ORIGINAL C(XR1), AND	DBC/046
	00040	−0 63400 2 00115	68		SXD	AX2,2 SAVE THE ORIGINAL C(XR2).	DBC/047
	00041	0 76000 0 00006	69		COM	COMPLEMENT THE C(AC), AND SET	DBC/048
	00042	0 62200 0 00066	70		STD	UNIT UNIT DECREMENT= -(CURRENT UNIT).	DBC/049
	00043	0 60000 0 77737	71		STZ	PEX SET PEX (SCALE FACTOR) = 0, AND	DBC/050
	00044	0 60000 0 77731	72		STZ	INT SET INT = 0.	DBC/051
	00045	0 62100 0 00102	73		STA	SCAN5 SAVE THE C(AC) ADDRESS, AND	DBC/052
	00046	0 07400 2 00303	74		TSX	RBCD,2 * GO READ INPUT UNIT RECORD. THEN	DBC/053
	00047	0 53400 2 00102	75		LXA	SCAN5,2 SET XR2= -(CURRENT FORMAT LOC.),AND	DBC/054
	00050	−0 53400 1 00067	76		LXD	SEVEN,1 SET XR1 = 7, AND PICKUP THE	DBC/055
	00051	0 56000 2 77777	77		LDQ	−1,2 1ST WORD OF CURRENT FORMAT.	DBC/056
			78			CCLPAR = ENTRY POINT WHEN A LPAREN IS MET IN FORMAT SCAN.	DBC/057
	00052	−0 63400 1 00120	79	CCLPAR	SXD	BX1,1 SAVE THE CURRENT CHARACTER COUNT,	DBC/058
	00053	−0 63400 2 00121	80		SXD	BX2,2 SCAN POSITION, AND FORMAT WORD,	DBC/059
	00054	−0 60000 0 77735	81		STQ	MQR FOR POSSIBLE REPETITION OF GROUP.	DBC/060
	00055	0 53400 4 77731	82		LXA	INT,4 SET GROUP CONTROL COUNT FOR THE	DBC/061
	00056	−0 63400 4 00122	83		SXD	BX4,4 INDICATED NUMBER OF REPETITIONS,	DBC/062
	00057	−0 63400 4 00265	84		SXD	GROUPX,4 AND SAVE FOR POSSIBLE RESCAN.	DBC/063
			85			SCAN = ENTRY POINT FOR CCCMMA,CCSCFP,CCINPT,RESCAN.	DBC/064
	00060	0 60000 0 77731	86	SCAN	STZ	INT CLEAR INT WORKING STORAGE, AND	DBC/065
	00061	1 00006 0 00102	87	SIX	TXI	SCAN5,0,6 GO RESUME SCAN.	DBC/066
	00062	−0 53400 1 00061	88	SCAN1	LXD	SIX,1 RESET FORMAT CHARACTER COUNT, AND	DBC/067
	00063	0 56000 2 77777	89		LDQ	−1,2 PICKUP NEXT FORMAT WORD.	DBC/068
	00064	−0 76300 0 00006	90	SCAN2	LGL	6 EXAMINE NEXT CHARACTER,	DBC/069
	00065	0 34000 0 00631	91		CAS	BLANK AND IF BLANK,	DBC/070
	00066	1 00000 0 00070	92	UNIT	TXI	SCAN3,0,** THEN	DBC/071
	00067	1 00007 0 00102	93	SEVEN	TXI	SCAN5,0,7 GO EXAMINE NEXT CHARACTER.	DBC/072
	00070	0 34000 0 00630	94	SCAN3	CAS	L(9) IF NOT BLANK, COMPARE WITH NINE,	DBC/073
D	00071	1 00000 0 00105	95		TXI	SCAN6,0 IF NON-NUMERIC, COMPARE CCTEST.	DBC/074
	00072	0 76100 0 00000	96		NOP	IF NUMERIC, THEN	DBC/075
	00073	0 60100 0 77732	97		STO	DIG CONVERT	DBC/076
	00074	0 50000 0 77731	98		CLA	INT SUCCESSIVE	DBC/077
	00075	0 76700 0 00002	99		ALS	2 BCD	DBC/078
	00076	0 40000 0 77731	100		ADD	INT 0IGITS	DBC/079
	00077	0 76700 0 00001	101		ALS	1 T0 BINARY,	DBC/080
	00100	0 36100 0 77732	102		ACL	DIG T0 SET INT= SCALE FACTOR,	DBC/081
			103			SCAN4 = ENTRY POINT USED BY CCSCFM.	DBC/082
	00101	0 60100 0 77731	104	SCAN4	STO	INT CURRENT FIELD OR GROUP CONTROL.	DBC/083
			105			SCAN5 = ENTRY POINT USED BY CCDCPT.	DBC/084
	00102	−0 75400 0 00000	106	SCAN5	PXD	**,0 CLEAR THE AC, AND UPDATE COUNT.	DBC/085
	00103	2 00001 1 00064	107		TIX	SCAN2,1,1 WHEN N0 CHARACTERS REMAIN,	DBC/086
	00104	1 77777 2 00062	108		TXI	SCAN1,2,−1 ADJUST SCAN POSITION, AND REPEAT.	DBC/087
			109			SCAN6 = ENTRY POINT USED BY CCDCPT.	DBC/088
	00105	−0 53400 4 00107	110	SCAN6	LXD	NCC,4 WHEN A NON-NUMERIC IS MET,	DBC/089
	00106	0 34000 4 00626	111	SCAN7	CAS	CCTEST,4 SCAN LIST OF CONTROL CHARACTERS,	DBC/090
	00107	1 00014 0 00111	112	NCC	TXI	SCAN8,0,12 AND IF EQUALITY IS FOUND,	DBC/091
	00110	0 02000 4 00127	113		TRA	FRMTR,4 * TAKE THE INDICATED TRANSFER.	DBC/092
	00111	2 00001 4 00106	114	SCAN8	TIX	SCAN7,4,1 IF NOT FOUNO IN CONTROL LIST, THEN	DBC/093
	00112	0 42000 1 00005	115		HPR	5,1 STOP. PRESS START TO CONTINUE.	DBC/0935
			116			END OF PROGRAM LINE.	DBC/097
			117			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/098
			118				DBC/099
			119			FRMTR / CONTROL TRANSFERS FOR FORMAT SCAN =	DBC/100
D	00113	1 00000 0 00127	120		TXI	CCEDMK,0 END OF FORMAT STATEMENT.	DBC/1005
	00114	1 00000 0 00052	121	AX1	TXI	CCLPAR,0,** BEGIN FORMAT OR GROUP.	DBC/101
	00115	1 00000 0 00132	122	AX2	TXI	CCCMMA,0,** END FIELD.	DBC/102
	00116	1 00000 0 00137	123	AX4	TXI	CCSLSH,0,** END LINE OR RECORD.	DBC/103
D	00117	1 00000 0 00142	124		TXI	CCSCFP,0 SCALE FACTOR PLUS.	DBC/104
	00120	1 00000 0 00145	125	BX1	TXI	CCSCFM,0,** SCALE FACTOR MINUS.	DBC/105
	00121	1 00000 0 00147	126	BX2	TXI	CCRPAR,0,** END FORMAT OR GROUP.	DBC/106
	00122	1 00000 0 00153	127	BX4	TXI	CCDCPT,0,** ROUNDING OF INPUT NUMBER.	DBC/107
D	00123	1 00000 0 00172	128		TXI	CCINPT,0 DECIMAL INPUT.	DBC/108
	00124	1 00000 0 00177	129	CX1	TXI	CCHNPT,0,** HOLLERITH FIELD INPUT.	DBC/109
	00125	1 00000 0 00250	130	CX2	TXI	CCFNPT,0,** FIXED POINT INPUT.	DBC/110
	00126	1 00000 0 00254	131	CX4	TXI	CCENPT,0,** FLOATING POINT INPUT.	DBC/111
		00127	132	FRMTR	BSS	0	DBC/112
			133			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/113
			134				DBC/114
			135			CCEDMK/ CALLS=FIELD. USES=MAIN PROGRAM.	DBC/1141
			136			CCEDMK = ENTRY POINT WHEN AN ENDMK IS MET IN FORMAT SCAN.	DBC/1142
	00127	0 07400 4 00266	137	CCEDMK	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/1143
	00130	−0 50000 0 00273	138		CAL	TXLOP THEN GO SET CNVSW TO RESCAN FORMAT	DBC/1144
D	00131	1 00000 0 00275	139		TXI	SETSW,0 * IF LIST IS NOT EXHAUSTED.	DBC/1145
			140			END OF PR0GRAM CCEDMK.	DBC/1146
			141			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/1147
			142				DBC/1148
			143			CCCMMA/ CALLS=FIELD. USES=LINE(SCAN).	DBC/115
			144			CCCMMA = ENTRY POINT WHEN A COMMA IS MET IN FORMAT SCAN.	DBC/116
	00132	0 07400 4 00266	145	CCCMMA	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/117
			146			RESUME = ENTRY POINT USED BY CCSLSH,CCRPAR,CCHNPT.	DBC/118
	00133	−0 53400 1 00124	147	RESUME	LXD	CX1,1 WHEN DONE, RESTORE CHARACTER COUNT,	DBC/119
	00134	−0 53400 2 00125	148		LXD	CX2,2 RESTORE SCAN POSITION, AND	DBC/120
	00135	0 56000 0 77734	149		LDQ	MQ CURRENT FORMAT WORD. THEN	DBC/121
D	00136	1 00000 0 00060	150		TXI	SCAN,0 * GO RESUME SCAN.	DBC/122
			151			END OF PROGRAM CCCMMA.	DBC/123
			152			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/124
			153				DBC/125
			154			CCSLSH/ CALLS=FIELD,RBCD. USES=CCCMMA.	DBC/126
			155			CCSLSH = ENTRY POINT WHEN A SLASH IS MET IN FORMAT SCAN.	DBC/127
	00137	0 07400 4 00266	156	CCSLSH	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/128
	00140	0 07400 2 00303	157		TSX	RBCD,2 * WHEN DONE, READ A RECORD, AND	DBC/129
D	00141	1 00000 0 00133	158		TXI	RESUME,0 * GO RESUME SCAN.	DBC/130
			159			END OF PR0GRAM CCSLSH.	DBC/131
			160			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/132
			161				DBC/133
			162			CCSCFP/ USES=LINE(SCAN).	DBC/I34
			163			CCSCFP = ENTRY POINT WHEN A P IS MET IN FORMAT SCAN.	DBC/135
	00142	0 50000 0 77731	164	CCSCFP	CLA	INT PICKUP AND	DBC/136
	00143	0 60100 0 77737	165		STO	PEX STORE SCALE FACTOR.	DBC/137
D	00144	1 00000 0 00060	166		TXI	SCAN,0 * GO RESUME SCAN.	DBC/138
			167			END OF PROGRAM CCSCFP.	DBC/139
			168			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/140
			169				DBC/141
			170			CCSCFM/ USES=LINE(SCAN).	DBC/142
			171			CCSCFM = ENTRY POINT WHEN A MINUS SIGN IS MET IN FORMAT SCAN.	DBC/143
	00145	0 50200 0 77731	172	CCSCFM	CLS	INT SET INT MINUS, ANO	DBC/144
D	00146	1 00000 0 00101	173		TXI	SCAN4,0 * GO GET SCALE FACTOR.	DBC/145
			174			END OF PROGRAM CCSCFM.	DBC/146
			175			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/147
			176				DBC/148
			177			CCRPAR/ CALLS=FIELD. USES=CCCMMA,RESCAN(GROUP).	DBC/149
			178			CCRPAR = ENTRY POINT WHEN A RPAREN IS MET IN FORMAT SCAN.	DBC/150
	00147	0 07400 4 00266	179	CCRPAR	TSX	FIELD,4 * GO PROCESS UNDER FIELD CONTROL.	DBC/151
	00150	−0 53400 4 00122	180		LXD	BX4,4 WHEN DONE, UPDATE GROUP COUNT, AND	DBC/152
	00151	−2 00001 4 00133	181		TNX	RESUME,4,1 * GO RESUME SCAN, UNLESS	DBC/153
D	00152	1 00000 0 00261	182		TXI	GROUP,0 * REPETITION OF GROUP IS INDICATED.	DBC/154
			183			END OF PROGRAM CCRPAR.	DBC/155
			184			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/156
			185				DBC/157
			186			CCDCPT/ USES=LINE(SCAN).	DBC/158
			187			CCDCPT = ENTRY POINT WHEN A POINT IS MET IN FORMAT SCAN.	DBC/159
	00153	0 50000 0 00171	188	CCDCPT	CLA	DTR MODIFY SCAN INSTRUCTION	DBC/160
	00154	0 60100 0 00070	189		STO	SCAN3 TO TRANSFER INTO DCPT1.	DBC/161
	00155	0 60000 0 77732	190		STZ	DIG CLEAR DIG, AND	DBC/1615
D	00156	1 00000 0 00102	191		TXI	SCAN5,0 * GO RESUME SCAN.	DBC/162
			192			DCPT1 = REENTRY POINT FROM LINE(SCAN).	DBC/163
	00157	0 34000 0 00630	193	DCPT1	CAS	L(9) DETERMINE THE	DBC/164
D	00160	1 00000 0 00164	194		TXI	DCPT3,0 NUMBER, MODULO TEN,	DBC/165
	00161	0 76100 0 00000	195		NOP	OF DIGITS	DBC/166
	00162	0 60100 0 77732	196		STO	DIG IN FRACTION.	DBC/167
D	00163	1 00000 0 00102	197		TXI	SCAN5,0 * WHEN A CONTROL CHARACTER IS MET,	DBC/168
	00164	−0 60000 0 77734	198	DCPT3	STQ	MQ RESTORE THE	DBC/169
	00165	0 56000 0 00157	199		LDQ	DCPT1 SCAN INSTRUCTION	DBC/170
	00166	−0 60000 0 00070	200		STQ	SCAN3 T0 ITS ORIGINAL FORM, AND	DBC/171
	00167	0 56000 0 77734	201		LDQ	MQ GO COMPARE CHARACTER	DBC/172
D	00170	1 00000 0 00105	202		TXI	SCAN6,0 * WITH CCTEST LIST.	DBC/173
			203			END OF PROGRAM CCDCPT.	DBC/174
D	00171	1 00000 0 00157	204	DTR	TXI	DCPT1,0 * INSTRUCTION CONSTANT.	DBC/175
			205			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/176
			206				DBC/177
			207			CCINPT/ USES=LINE(SCAN).	DBC/17B
			208			CCINPT = ENTRY POINT WHEN AN I IS MET IN FORMAT SCAN.	DBC/179
	00172	−0 50000 0 00273	209	CCINPT	CAL	TXLOP PICKUP TXLOP, AND	DBC/180
			210			SETFX = ENTRY POINT USED BY CCFNPT.	DBC/181
	00173	0 63000 0 00524	211	SETFX	STP	FIXSW FIXED POINT SWITCH.	DBC/182
	00174	0 53400 4 77731	212		LXA	INT,4 SET COUNT FOR THE	DBC/183
	00175	−0 63400 4 00604	213		SXD	COUNT,4 REPETITION OF THIS FIELD, AND	DBC/184
D	00176	1 00000 0 00060	214		TXI	SCAN,0 * GO RESUME SCAN.	DBC/185
			215			END OF PROGRAM CCINPT.	DBC/186
			216			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/187
			217				DBC/188
			218			CCHNPT/ USES=CCCMMA.	DBC/189
			219			CCHNPT = ENTRY POINT WHEN AN H IS MET IN FORMAT SCAN.	DBC/190
	00177	0 53400 4 77731	220	CCHNPT	LXA	INT,4 SET XR4 = HOLLERITH FIELD WIDTH.	DBC/191
	00200	0 56000 0 77736	221		LDQ	MQD PICKUP ANY REMAINING INPUT.	DBC/192
	00201	−0 63400 2 00125	222		SXD	CX2,2 SAVE FORMAT SCAN POSITION.	DBC/193
	00202	−0 50000 2 77777	223		CAL	−1,2 PICKUP CURRENT FORMAT WORD.	DBC/194
	00203	−0 53400 2 00347	224		LXD	DX1,2 SET XR2 = INPUT CHARACTER COUNT.	DBC/195
	00204	−2 00001 1 00222	225		TNX	HNPT5,1,1 IF ANY CHARACTERS REMAIN IN CURRENT	DBC/196
	00205	−0 63400 1 00124	226		SXD	CX1,1 FORMAT WORD, SAVE FOR-CHAR COUNT,	DBC/197
	00206	0 77100 0 00006	227	HNPT1	ARS	6 AND SHIFT REMAINDER INTO	DBC/198
	00207	2 00001 1 00206	228		TIX	HNPT1,1,1 THE MQ. WHEN DONE,	DBC/199
	00210	−0 53400 1 00124	229		LXD	CX1,1 RESTORE FOR-CHAR COUNT, AN0	DBC/200
	00211	2 00001 2 00217	230	HNPT2	TIX	HNPT4,2,1 IF INPUT-CHAR COUNT IS EXHAUSTED,	DBC/201
	00212	−0 53400 2 00350	231		LXD	DX2,2 SET XR2 = INPUT WORD COUNT,	DBC/202
	00213	1 77777 2 00214	232		TXI	HNPT3,2,−1 UPDATE IT, AND	DBC/203
	00214	0 56000 2 77751	233	HNPT3	LDQ	BCD,2 PICKUP NEXT INPUT WORD.	DBC/204
	00215	−0 63400 2 00350	234		SXD	DX2,2 THEN SAVE INPUT WORD COUNT,	DBC/205
	00216	−0 53400 2 00061	235		LXD	SIX,2 AND RESET INPUT-CHAR COUNT TO 6.	DBC/206
	00217	−0 76300 0 00006	236	HNPT4	LGL	6 FILL OUT THE PARTIAL WORD 1N THE AC	DBC/207
	00220	−2 00001 4 00230	237		TNX	HNPT7,4,1 WITH NEW INPUT, UPDATING FIELD	DBC/208
	00221	2 00001 1 00211	238		TIX	HNPT2,1,1 CONTROL, AND WHEN DONE,	DBC/209
	00222	−0 53400 1 00125	239	HNPT5	LXD	CX2,1 SET XR1 = CURRENT FOR-SCAN POSITION	DBC/210
	00223	0 60200 1 77777	240		SLW	−1,1 AND STORE INPUT WORD IN FORMAT,	DBC/211
	00224	1 77777 1 00225	241		TXI	HNPT6,1,−1 THEN UPDATE FORMAT SCAN	DBC/212
	00225	−0 63400 1 00125	242	HNPT6	SXD	CX2,1 POSITION, AND SAVE IT.	DBC/213
	00226	−0 53400 1 00061	243		LXD	SIX,1 RESET FORMAT CHARACTER COUNT TO 6,	DBC/214
D	00227	1 00000 0 00211	244		TXI	HNPT2,0 AND REPEAT UNDER FIELD CONTROL.	DBC/215
	00230	−0 63400 2 00347	245	HNPT7	SXD	DX1,2 WHEN FIELD CONTR0L IS EXHAUSTED,	DBC/216
	00231	−0 53400 2 00125	246		LXD	CX2,2 SAVE INPUT CHAR COUNT, AND SET XR2	DBC/217
	00232	−0 60000 0 77736	247		STQ	MQD T0 SCAN POSITION. SAVE REMA1NING	DBC/218
	00233	−0 63400 1 00124	248		SXD	CX1,1 INPUT, AND SAVE FOR-CHAR COUNT.	DBC/219
	00234	−3 00001 1 00246	249		TXL	HNPT11,1,1 IF ANY CHARACTERS REMAIN	DBC/220
	00235	0 56000 2 77777	250		LDQ	−1,2 IN CURRENT FORMAT WORD,	DBC/221
	00236	−0 77300 0 00006	251	HNPT8	RQL	6 SHIFT THEM INTO POSITION,	DBC/222
	00237	1 00001 1 00240	252		TXI	HNPT9,1,1 LEFT-ADJUSTED	DBC/223
	00240	−3 00006 1 00236	253	HNPT9	TXL	HNPT8,1,6 IN THE MQ,	DBC/224
	00241	−0 60000 0 77734	254		STQ	MQ AND SAVE THE C(MQ).	DBC/225
	00242	−0 53400 1 00124	255		LXD	CX1,1 RESTORE FORMAT CHARACTER COUNT.	DBC/226
	00243	−2 00001 1 00246	256		TNX	HNPT11,1,1 SHIFT REMAINDER INTO	DBC/227
	00244	−0 76300 0 00006	257	HNPT10	LGL	6 THE AC,	DBC/228
	00245	2 00001 1 00244	258		TIX	HNPT10,1,1 UPDATING CHARACTER COUNT. AND	DBC/229
	00246	0 60200 2 77777	259	HNPT11	SLW	−1,2 STORE LAST WORD OF FIELD. THEN	DBC/230
D	00247	1 00000 0 00133	260		TXI	RESUME,0 * GO RE9UME SCAN.	DBC/231
			261			END OF PROGRAM CCHNPT.	DBC/232
			262			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/233
			263				DBC/234
			264			CCFNPT/ USES=CCINPT.	DBC/235
			265			CCFNPT = ENTRY POINT WHEN AN F IS MET IN FORMAT SCAN.	DBC/236
	00250	0 50200 0 77737	266	CCFNPT	CLS	PEX PICKUP NEGATIVE OF SCALE FACTOR TO	DBC/237
			267			SETXP = ENTRY POINT USED BY CCENPT.	DBC/238
	00251	0 60100 0 77740	268	SETXP	STO	EXP SET EXPONENT.	DBC/239
	00252	0 50000 0 00273	269		CLA	TXLOP PICKUP TXHOP AND	DBC/240
D	00253	1 00000 0 00173	270		TXI	SETFX,0 * GO SET FIXSW TO NOP.	DBC/241
			271			END OF PROGRAM CCFNPT.	DBC/242
			272			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/243
			273				DBC/244
			274			EOENPT/ USES=CCFNPT.	DBC/245
			275			COENPT,= ENTRY POINT WHEN AN E IS MET IN FORMAT SCAN.	DBC/246
	00254	−0 75400 0 00000	276	CCENPT	PXD	,0 CLEAR THE AC, AND	DBC/247
D	00255	1 00000 0 00251	277		TXI	SETXP,0 * GO SET EXPONENT AND FIXSW.	DBC/248
			278			END OF PROGRAM CCENPT.	DBC/249
			279			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/250
			280				DBC/251
			281			RESCAN/ CALLS=RBCD. USES=LINE(SCAN).	DBC/252
			282			RESCAN = ENTRY POINT USED BY READ.	DBC/253
	00256	−0 63400 4 00116	283	RESCAN	SXD	AX4,4 FOR RETURN FROM FORMAT SCAN.	DBC/256
	00257	0 07400 2 00303	284		TSX	RBCD,2 * G0 READ A RECORD.	DBC/257
	00260	−0 53400 4 00265	285		LXD	GROUPX,4 THEN PICKUP ORIGINAL GROUP COUNT TO	DBC/258
			286			GROUP = ENTRY POINT USED BY CCRPAR.	DBC/259
	00261	−0 63400 4 00122	287	GROUP	SXD	BX4,4 UPDATE GROUP CONTROL.	DBC/260
	00262	−0 53400 1 00120	288		LXD	BX1,1 RESET CHARACTER COUNT,	DBC/261
	00263	−0 53400 2 00121	289		LXD	BX2,2 RESET SCAN POSITION, AND	DBC/262
	00264	0 56000 0 77735	290		LDQ	MQR PICKUP 1ST FORMAT WORD OF GROUP.	DBC/263
	00265	1 00000 0 00060	291	GROUPX	TXI	SCAN,0,** * GO RESCAN THIS GROUP.	DBC/264
			292			END OF PROGRAM RESCAN.	DBC/265
			293			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/266
			294				DBC/267
			295			FIELD,4/ USES READ. CALLERS=LINE(SCAN),CCCMMA,CCSLSH,CCRPAR.	DBC/268
			296			FIELD CONTROLS THE REPEATED INPUT OF THE CURRENT FIELD.	DBC/269
	00266	−0 63400 4 00126	297	FIELD	SXD	CX4,4 SAVE THE C(XR4) FOR RETURN.	DBC/270
	00267	−0 63400 1 00124	298		SXD	CX1,1 SAVE THE CHARACTER COUNT,	DBC/271
	00270	−0 63400 2 00125	299		SXD	CX2,2 THE SCAN POSITION, AND	DBC/272
	00271	−0 60000 0 77734	300		STQ	MQ THE CURRENT FORMAT WORD.	DBC/273
	00272	0 53400 4 77731	301		LXA	INT,4 EXAMINE INT, AND	DBC/274
	00273	−3 00000 4 00300	302	TXLOP	TXL	DONE,4,0 IF NOT ZERO, THEN	DBC/275
	00274	0 50000 0 00273	303		CLA	TXLOP PICKUP TXHOP TO	DBC/276
			304			SETSW = ENTRY POINT USED BY LINE(SCAN8).	DBC/277
	00275	0 63000 0 00321	305	SETSW	STP	CNVSW SET CONVERSION SWITCH.	DBC/278
	00276	0 50000 0 77733	306		CLA	DATUM THEN PICKUP DATUM,	DBC/279
D	00277	1 00000 0 00606	307		TXI	LIST,0 * GO STORE, AND EXAMINE LIST.	DBC/280
			308			DONE = ENTRY POINT USED BY READ.	DBC/281
	00300	−0 53400 4 00126	309	DONE	LXD	CX4,4 WHEN DONE, RESTORE THE C(XR4), AND	DBC/282
	00301	0 02000 4 00001	310		TRA	1,4 * RETURN TO CALLER.	DBC/283
			311			END OF PROGRAM FIELD.	DBC/284
			312			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/285
			313				DBC/286
			314			RBCD,2/ CALLS=(CSH),(TSH). CALLERS=LINE,CCSLSH,=ESCAN.	DBC/287
			315			RBCD READS CURRENT INPUT RECORD INTO BCD BUFFER.	DBC/288
	00302	0 42000 1 00000	316	EOF	HPR	0,1 EOF HALT / PRESS START TO REPEAT.	DBC/289
	00303	−0 53400 1 00066	317	RBCD	LXD	UNIT,1 SET XR1 FOR CURRENT UNIT, AND	DBC/290
	00304	0 07400 4 00000	318	TYPE	TSX	**,4 * GO TO INDICATED INPUT ROUTINE.	DBC/291
	00305	0 77777 0 77751	319		PZE	BCD,,−1 (INPUT BUFFER)	DBC/292
			320			DCR1 = END-OF-FILE RETURN FROM INPUT ROUTINE.	DBC/293
	00306	1 00001 0 00302	321	DCR1	TXI	EOF,0,1 GO TO END-OF-FILE STOP.	DBC/294
			322			N=R1+1 = NORMAL RETURN FROM INPUT ROUTINE.	DBC/295
	00307	−0 50000 0 00306	323		CAL	DCR1 FOR CURRENT INPUT, RESET	DBC/296
	00310	0 62200 0 00347	324		STD	DX1 INPUT CHARACTER COUNT AND	DBC/297
	00311	0 62200 0 00350	325		STD	DX2 INPUT WORD COUNT TO ONE. THEN	DBC/298
	00312	0 02000 2 00001	326		TRA	1,2 * EXIT TO CALLER.	DBC/299
			327			END OF PROGRAM RBCD.	DBC/300
			328			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/301
			329				DBC/302
			330			REA0,4/ USES=FIELD,LINE. CALLERS=IDBC),LINEIRESCAN).	DBC/303
			331			READ DOES INTEGER, FIXED, AND FLOATING POINT CONVERSION.	DBC/304
			332			XREAD = EXIT FROM READ WHEN FORMAT IS EXHAUSTED.	DBC/305
	00313	−0 63400 4 00321	333	XREAD	SXD	CNVSW,4 SAVE THE C(XR4), AND	DBC/306
	00314	0 07400 4 00256	334		TSX	RESCAN,4 * GO RESCAN FORMAT. THEN RETURN,	DBC/3061
	00315	−0 53400 4 00321	335		LXD	CNVSW,4 AFTER GETTING FORMAT.	DBC/3062
			336			READ = ENTRY POINT USED BY (DBC).	DBC/307
	00316	−0 63400 4 00116	337	READ	SXD	AX4,4 SAVE THE C(XR4) FOR RETURN TO LIST.	DBC/308
	00317	−0 63400 1 00114	338		SXD	AX1,1 SAVE THE ORIGINAL C(XR1),	DBC/309
	00320	−0 63400 2 00115	339		SXD	AX2,2 SAVE THE ORIGINAL C(XR2), AND	DBC/310
	00321	−3 00000 0 00313	340	CNVSW	TXL	XREAD,0,** SWITCH (TXL=TRA, TXH=NOP).	DBC/311
			341				DBC/312
	00322	0 50000 0 00634	342		CLA	MZE	DBC/313
	00323	0 60100 0 77743	343		STO	N	DBC/314
	00324	0 60200 0 77747	344		SLW	V	DBC/315
	00325	0 60200 0 77742	345		SLW	DG	DBC/316
	00326	0 50200 0 77732	346		CLS	DIG	DBC/317
	00327	0 60100 0 77750	347		STO	D	DBC/318
	00330	0 50000 0 77740	348		CLA	EXP	DBC/319
	00331	0 60100 0 77744	349		STO	E	DBC/320
	00332	0 53400 4 77731	350		LXA	INT,4	DBC/321
	00333	0 56000 0 77736	351		LDQ	MQD	DBC/322
	00334	−0 53400 1 00347	352		LXD	DX1,1	DBC/323
	00335	−0 53400 2 00350	353		LXD	DX2,2	DBC/324
	00336	−0 14000 0 00337	354		TNO	F6	DBC/325
	00337	2 00001 1 00343	355	F6	TIX	F1,1,1	DBC/326
	00340	1 77777 2 00341	356		TXI	F2,2,−1	DBC/327
	00341	−0 53400 1 00061	357	F2	LXD	SIX,1	DBC/328
	00342	0 56000 2 77751	358		LDQ	BCD,2	DBC/329
	00343	−0 75400 0 00000	359	F1	PXD	,0	DBC/330
	00344	−0 76300 0 00006	360		LGL	6	DBC/331
	00345	−3 00000 4 00520	361		TXL	D6,4,0	DBC/332
	00346	0 34000 0 00631	362		CAS	BLANK	DBC/333
	00347	1 00000 0 00363	363	DX1	TXI	STOP1,0,**	DBC/334
	00350	1 00000 0 00367	364	DX2	TXI	F3,0,**	DBC/335
	00351	0 34000 0 00617	365		CAS	MINUS	DBC/336
D	00352	1 00000 0 00363	366		TXI	STOP1,0	DBC/337
D	00353	1 00000 0 00361	367		TXI	F4,0	DBC/338
	00354	0 34000 0 00632	368		CAS	PLUS	DBC/339
D	00355	1 00000 0 00454	369		TXI	C5L,0	DBC/340
D	00356	1 00000 0 00364	370		TXI	F5,0	DBC/34I
	00357	0 34000 0 00633	371		CAS	NEGAT	DBC/342
D	00360	1 00000 0 00363	372		TXI	STOP1,0	DBC/343
	00361	0 50000 0 00634	373	F4	CLA	MZE	DBC/344
	00362	0 34000 0 00627	374		CAS	TEN	DBC/345
	00363	0 42000 1 00001	375	STOP1	HPR	1,1	DBC/346
	00364	−0 75400 0 00000	376	F5	PXD	,0	DBC/347
	00365	0 60100 0 77742	377		STO	DG	DBC/348
D	00366	1 00000 0 00516	378		TXI	D9,0	DBC/349
	00367	2 00001 4 00337	379	F3	TIX	F6,4,1	DBC/350
D	00370	1 00000 0 00520	380		TXI	D6,0	DBC/351
	00371	−2 00001 4 00417	381	E1	TNX	E5,4,1	DBC/352
	00372	2 00001 1 00376	382		TIX	E2,1,1	DBC/353
	00373	1 77777 2 00374	383		TXI	E3,2,−1	DBC/354
	00374	−0 53400 1 00061	384	E3	LXD	SIX,1	DBC/355
	00375	0 56000 2 77751	385		LDQ	BCD,2	DBC/356
	00376	−0 75400 0 00000	386	E2	PXD	,0	DBC/357
	00377	−0 76300 0 00006	387		LGL	6	DBC/358
	00400	0 34000 0 00631	388		CAS	BLANK	DBC/359
D	00401	1 00000 0 00416	389		TXI	STOP2,0	DBC/360
D	00402	1 00000 0 00371	390		TXI	E1,0	DBC/361
	00403	−0 63400 4 00424	391		SXD	ER,4	DBC/362
	00404	0 34000 0 00617	392	C2L	CAS	MINUS	DBC/363
D	00405	1 00000 0 00424	393		TXI	ER,0	DBC/364
D	00406	1 00000 0 00414	394		TXI	E4,0	DBC/365
	00407	0 34000 0 00632	395	C4L	CAS	PLUS	DBC/366
D	00410	1 00000 0 00424	396		TXI	ER,0	DBC/367
D	00411	1 00000 0 00417	397		TXI	E5,0	DBC/368
	00412	0 34000 0 00633	398		CAS	NEGAT	DBC/369
D	00413	1 00000 0 00424	399		TXI	ER,0	DBC/370
	00414	0 50000 0 00634	400	E4	CLA	MZE	DBC/371
	00415	0 34000 0 00627	401		CAS	TEN	DBC/372
	00416	0 42000 1 00002	402	STOP2	HPR	2,1	DBC/373
	00417	−0 75400 0 00000	403	E5	PXD	,0	DBC/374
	00420	0 60100 0 77744	404		STO	E	DBC/375
	00421	−2 00001 4 00520	405		TNX	D6,4,1	DBC/376
	00422	2 00001 1 00430	406	E9	TIX	E6,1,1	DBC/377
	00423	1 77777 2 00426	407		TXI	E7,2,−1	DBC/378
	00424	3 00000 4 00452	408	ER	TXH	STOP4,4,**	DBC/379
D	00425	1 00000 0 00416	409		TXI	STOP2,0	DBC/380
	00426	−0 53400 1 00061	410	E7	LXD	SIX,1	DBC/381
	00427	0 56000 2 77751	411		LDQ	BCD,2	DBC/382
	00430	−0 75400 0 00000	412	E6	PXD	,0	DBC/383
	00431	−0 76300 0 00006	413		LGL	6	DBC/384
	00432	0 34000 0 00631	414		CAS	BLANK	DBC/385
D	00433	1 00000 0 00436	415		TXI	STOP3,0	DBC/386
D	00434	1 00000 0 00437	416		TXI	E8,0	DBC/387
	00435	0 34000 0 00627	417		CAS	TEN	DBC/388
	00436	0 42000 1 00003	418	STOP3	HPR	3,1	DBC/389
	00437	−0 75400 0 00000	419	E8	PXD	,0	DBC/390
	00440	0 60100 0 77742	420		STO	DG	DBC/391
	00441	0 50000 0 77744	421		CLA	E	DBC/392
	00442	0 76700 0 00002	422		ALS	2	DBC/393
	00443	0 40000 0 77744	423		ADD	E	DBC/394
	00444	0 76700 0 00001	424		ALS	1	DBC/395
	00445	0 36100 0 77742	425		ACL	DG	DBC/396
	00446	0 60100 0 77744	426		STO	E	DBC/397
	00447	2 00001 4 00422	427		TIX	E9,4,1	DBC/398
D	00450	1 00000 0 00520	428		TXI	D6,0	DBC/399
	00451	0 34000 0 00631	429	C1L	CAS	BLANK	DBC/400
	00452	0 42000 1 00004	430	STOP4	HPR	4,1	DBC/401
D	00453	1 00000 0 00506	431		TXI	D7,0	DBC/402
	00454	−0 63400 4 77746	432	C5L	SXD	U,4	DBC/403
	00455	0 62200 0 00424	433		STD	ER	DBC/404
	00456	0 34000 0 00621	434		CAS	POINT	DBC/405
D	00457	1 00000 0 00404	435		TXI	C2L,0	DBC/406
	00460	1 77777 4 00465	436		TXI	C3L,4,−1	DBC/407
	00461	0 34000 0 00625	437		CAS	EXPON	DBC/408
D	00462	1 00000 0 00452	438		TXI	STOP4,0	DBC/409
D	00463	1 00000 0 00371	439		TXI	E1,0	DBC/410
D	00464	1 00000 0 00407	440		TXI	C4L,0	DBC/411
	00465	−0 75400 4 00000	441	C3L	PXD	,4	DBC/412
	00466	0 77100 0 00022	442		ARS	18	DBC/413
	00467	0 60100 0 77746	443		STO	U	DBC/414
	00470	0 60100 0 77750	444		STO	D	DBC/415
	00471	1 00001 4 00517	445		TXI	D8,4,1	DBC/416
	00472	0 50000 0 77747	446	D4	CLA	V	DBC/417
	00473	0 40000 0 00626	447		ADD	ONE	DBC/418
	00474	0 60100 0 77747	448		STO	V	DBC/419
	00475	−2 00001 4 00520	449		TNX	D6,4,1	DBC/420
	00476	2 00001 1 00502	450	D5	TIX	D1,1,1	DBC/421
	00477	1 77777 2 00500	451		TXI	D2,2,−1	DBC/422
	00500	0 53400 1 00503	452	D2	LXA	D3,1	DBC/423
	00501	0 56000 2 77751	453		LDQ	BCD,2	DBC/424
	00502	−0 75400 0 00000	454	D1	PXD	,0	DBC/425
	00503	−0 76300 0 00006	455	D3	LGL	6	DBC/426
	00504	0 34000 0 00627	456		CAS	TEN	DBC/427
D	00505	1 00000 0 00451	457		TXI	C1L,0	DBC/428
	00506	−0 75400 0 00000	458	D7	PXD	,0	DBC/429
	00507	0 62100 0 77742	459		STA	DG	DBC/430
	00510	0 50000 0 77743	460		CLA	N	DBC/431
	00511	0 76700 0 00002	461		ALS	2	DBC/432
	00512	0 40000 0 77743	462		ADD	N	DBC/433
	00513	0 76700 0 00001	463		ALS	1	DBC/434
	00514	0 40000 0 77742	464		ADD	DG	DBC/435
	00515	0 14000 0 00472	465		TOV	D4	DBC/436
	00516	0 60100 0 77743	466	D9	STO	N	DBC/437
	00517	2 00001 4 00476	467	D8	TIX	D5,4,1	DBC/438
	00520	0 50000 0 77743	468	D6	CLA	N	DBC/439
	00521	−0 60000 0 77736	469		STQ	MQD	DBC/440
	00522	−0 63400 1 00347	470		SXD	DX1,1	DBC/441
	00523	−0 63400 2 00350	471		SXD	DX2,2	DBC/442
D	00524	−3 00000 0 00600	472	FIXSW	TXL	T1,0	DBC/443
	00525	0 10000 0 00601	473		TZE	T2	DBC/444
	00526	0 50000 0 77750	474		CLA	D	DBC/445
	00527	−0 12000 0 00533	475		TMI	ADE	DBC/446
	00530	0 50000 0 77746	476		CLA	U	DBC/447
	00531	0 77100 0 00022	477		ARS	18	DBC/448
	00532	0 40200 0 77750	478		SUB	D	DBC/449
	00533	0 40000 0 77744	479	ADE	ADD	E	DBC/450
	00534	0 40000 0 77747	480		ADD	V	DBC/451
	00535	0 60100 0 77750	481		STO	D	DBC/452
	00536	0 50000 0 77743	482		CLA	N	DBC/453
	00537	0 62100 0 00635	483		STA	K1	DBC/454
	00540	0 77100 0 00017	484		ARS	15	DBC/455
	00541	−0 50100 0 00636	485		ORA	K2	DBC/456
	00542	0 30000 0 00636	486		FAD	K2	DBC/457
	00543	0 60100 0 77745	487		STO	F	DBC/458
	00544	0 76000 0 00000	488		CLM		DBC/459
	00545	−0 50100 0 00635	489		ORA	K1	DBC/460
	00546	0 30000 0 77745	490		FAD	F	DBC/461
	00547	−0 77300 0 00010	491		RQL	8	DBC/462
	00550	0 76000 0 00010	492		RND		DBC/463
	00551	−0 50100 0 00637	493		ORA	K3	DBC/464
	00552	0 53400 4 77750	494		LXA	D,4	DBC/465
	00553	−3 00000 4 00601	495		TXL	T2,4,0	DBC/466
	00554	0 56000 0 77750	496		LDQ	D	DBC/467
	00555	0 16200 0 00566	497		TQP	T4	DBC/468
	00556	3 00061 4 00564	498		TXH	T5,4,49	DBC/469
	00557	0 24100 4 00722	499		FDP	TAB,4	DBC/470
	00560	−0 60000 0 77745	500		STQ	F	DBC/471
	00561	0 50000 0 77745	501		CLA	F	DBC/472
	00562	0 36100 0 00640	502		ACL	K4	DBC/473
	00563	−0 76000 0 00001	503		PBT		DBC/474
	00564	0 76000 0 00000	504	T5	CLM		DBC/475
D	00565	1 00000 0 00601	505		TXI	T2,0	DBC/476
	00566	0 60100 0 77745	506	T4	STO	F	DBC/477
	00567	3 00061 4 00575	507		TXH	T3,4,49	DBC/478
	00570	0 56000 0 77745	508		LDQ	F	DBC/479
	00571	0 26000 4 00722	509		FMP	TAB,4	DBC/480
	00572	0 36100 0 00641	510		ACL	K5	DBC/481
	00573	−0 76000 0 00001	511		PBT		DBC/482
D	00574	1 00000 0 00601	512		TXI	T2,0	DBC/483
	00575	0 76000 0 00000	513	T3	CLM		DBC/484
	00576	0 76000 0 00006	514		COM		DBC/485
D	00577	1 00000 0 00601	515		TXI	T2,0	DBC/486
	00600	0 76700 0 00022	516	T1	ALS	18	DBC/487
	00601	−0 53400 4 00604	517	T2	LXD	COUNT,4 UPDATE FIELD COUNT, AND	DBC/488
	00602	2 00001 4 00605	518		TIX	MORE,4,1 IF EXHAUSTED, THEN	DBC/489
	00603	0 60100 0 77733	519		STO	DATUM SAVE THE CONVERTED FIELD, AND	DBC/490
	00604	1 00000 0 00300	520	COUNT	TXI	DONE,0,** * (FIELD REPEAT COUNT)EXAMINE FORMAT.	DBC/491
	00605	−0 63400 4 00604	521	MORE	SXD	COUNT,4 OTHERWISE, GO EXAMINE LIST.	DBC/492
			522			LIST = ENTRY POINT USED BY FIELD.	DBC/493
	00606	−0 53400 4 00116	523	LIST	LXD	AX4,4 SET XR4 FOR INDICATED RETURN,	DBC/494
	00607	−0 53400 1 00114	524		LXD	AX1,1 RESTORE THE ORIGINAL C(XR1),	DBC/495
	00610	−0 53400 2 00115	525		LXD	AX2,2 RESTORE THE ORIGINAL C(XR2I, AND	DBC/496
	00611	0 02000 4 00001	526		TRA	1,4 * GO STORE (OR CONVERT) INPUT.	DBC/497
			527			END OF PROGRAM READ.	DBC/498
			528			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/499
			529				DBC/500
			530			CONSTANTS AND WORKING STORAGE USED BY DBC.	DBC/501
	00612	+000000000077	531	ENDMK	OCT	77 CCTEST-12.	DBC/5015
	00613	000000000074	532	(	BCD	100000( CCTEST-11.	DBC/502
	00614	000000000073	533	COMMA	BCD	100000, CCTEST-10.	DBC/503
	00615	000000000061	534	SLASH	BCD	100000/ CCTEST-9.	DBC/504
	00616	000000000047	535	P	BCD	100000P CCTEST-8.	DBC/505
	00617	000000000040	536	MINUS	BCD	100000- CCTEST-7.	DBC/506
	00620	000000000034	537	)	BCD	100000) CCTEST-6.	DBC/507
	00621	000000000033	538	POINT	BCD	100000. CCTEST-5.	DBC/508
	00622	000000000031	539	I	BCD	100000I CCTEST-4.	DBC/509
	00623	000000000030	540	H	BCD	100000H CCTEST-3.	DBC/510
	00624	000000000026	541	FCC	BCD	100000F CCTEST-2.	DBC/511
	00625	000000000025	542	EXPON	BCD	100000E CCTEST-1.	DBC/512
		00626	543	CCTEST	BSS	0 INDEXING ADDRESS FOR ABOVE LIST.	DBC/513
	00626	+000000000001	544	ONE	DEC	1 CONSTANT USED BY DBC.	DBC/514
	00627	+000000000012	545	TEN	DEC	10 CONSTANT USED BY DBC.	DBC/515
	00630	0 00000 0 00011	546	L(9)	PZE	9 CONSTANT USED BY DBC.	DBC/5155
	00631	000000000060	547	BLANK	BCD	100000␣ CONSTANT USED BY DBC.	DBC/516
	00632	000000000020	548	PLUS	BCD	100000+ CONSTANT USED BY DBC.	DBC/517
	00633	000000000014	549	NEGAT	BCD	100000' CONSTANT USED BY DBC.	DBC/518
	00634	−0 00000 0 00000	550	MZE	MZE	CONSTANT USED BY DBC.	DBC/519
	00635	+233000000000	551	K1	DEC	155B8 CONSTANT USED BY DBC.	DBC/520
	00636	+252000000000	552	K2	DEC	170B8 CONSTANT USED BY DBC.	DBC/521
	00637	+000400000000	553	K3	DEC	1B9 CONSTANT USED BY DBC.	DBC/522
	00640	+335000000000	554	K4	DEC	221B8 CONSTANT USED BY DBC.	DBC/523
	00641	+043000000000	555	K5	DEC	35B8 CONSTANT USED BY DBC.	DBC/524
	00642	+375536246150	556		OCT	375536246150 48-TABLE USED BY DBC.	DBC/525
	00643	+372430204755	557		OCT	372430204755 47-TABLE USED BY DBC.	DBC/526
	00644	+366700324573	558		OCT	366700324573 46-TABLE USED BY DBC.	DBC/527
	00645	+363546566774	559		OCT	363546566774 45-TABLE USED BY DBC.	DBC/528
	00646	+360436770626	560		OCT	360436770626 44-TABLE USED BY DBC.	DBC/529
	00647	+354713132675	561		OCT	354713132675 43-TABLE USED BY DBC.	DBC/530
	00650	+351557257061	562		OCT	351557257061 42-TABLE USED BY DBC.	DBC/531
	00651	+346445677215	563		OCT	346445677215 41-TABLE USED BY DBC.	DBC/532
	00652	+342726145174	564		OCT	342726145174 40-TABLE USED BY DBC.	DBC/533
	00653	+337570120775	565		OCT	337570120775 39-TABLE USED BY DBC.	DBC/534
	00654	+334454732312	566		OCT	334454732312 38-TABLE USED BY DBC.	DBC/535
	00655	+330741367020	567		OCT	330741367020 37-TABLE USED BY DBC.	DBC/536
	00656	+325601137163	568		OCT	325601137163 36-TABLE USED BY DBC.	DBC/537
	00657	+322464114134	569		OCT	322464114134 35-TABLE USED BY DBC.	DBC/538
	00660	+316755023372	570		OCT	316755023372 34-TABLE USED BY DBC.	DBC/539
	00661	+313612334310	571		OCT	313612334310 33-TABLE USED BY DBC.	DBC/540
	00662	+310473426555	572		OCT	310473426555 32-TABLE USED BY DBC.	DBC/541
	00663	+304770675742	573		OCT	304770675742 31-TABLE USED BY DBC.	DBC/542
	00664	+301623713116	574		OCT	301623713116 30-TABLE USED BY DBC.	DBC/543
	00665	+276503074076	575		OCT	276503074076 29-TABLE USED BY DBC.	DBC/544
	00666	+273402374713	576		OCT	273402374713 28-TABLE USED BY DBC.	DBC/545
	00667	+267635456171	577		OCT	267635456171 27-TABLE USED BY DBC.	DBC/546
	00670	+264512676456	578		OCT	264512676456 26-TABLE USED BY DBC.	DBC/547
	00671	+261410545213	579		OCT	261410545213 25-TABLE USED BY DBC.	DBC/548
	00672	+255647410337	580		OCT	255647410337 24-TABLE USED BY DBC.	DBC/549
	00673	+252522640262	581		OCT	252522640262 23-TABLE USED BY DBC.	DBC/550
	00674	+247417031702	582		OCT	247417031702 22-TABLE USED BY DBC.	DBC/551
	00675	+243661534466	583		OCT	243661534466 21-TABLE USED BY DBC.	DBC/552
	00676	+240532743536	584		OCT	240532743536 20-TABLE USED BY DBC.	DBC/553
	00677	+235425434430	585		OCT	235425434430 19-TABLE USED BY DBC.	DBC/554
	00700	+231674055530	586		OCT	231674055530 18-TABLE USED BY DBC.	DBC/555
	00701	+226543212741	587		OCT	226543212741 17-TABLE USED BY DBC.	DBC/556
	00702	+223434157116	588		OCT	223434157116 16-TABLE USED BY DBC.	DBC/557
	00703	+217706576512	589		OCT	217706576512 15-TABLE USED BY DBC.	DBC/558
	00704	+214553630410	590		OCT	214553630410 14-TABLE USED BY DBC.	DBC/559
	00705	+211443023471	591		OCT	211443023471 13-TABLE USED BY DBC.	DBC/560
	00706	+205721522451	592		OCT	205721522451 12-TABLE USED BY DBC.	DBC/561
	00707	+202564416672	593		OCT	202564416672 11-TABLE USED BY DBC.	DBC/562
	00710	+177452013710	594		OCT	177452013710 10-TABLE USED BY DBC.	DBC/563
	00711	+173734654500	595		OCT	173734654500 09-TABLE USED BY DBC.	DBC/564
	00712	+170575360400	596		OCT	170575360400 08-TABLE USED BY DBC.	DBC/565
	00713	+165461132000	597		OCT	165461132000 07-TABLE USED BY DBC.	DBC/566
	00714	+161750220000	598		OCT	161750220000 06-TABLE USED BY DBC.	DBC/567
	00715	+156606500000	599		OCT	156606500000 05-TABLE USED BY DBC.	DBC/568
	00716	+153470400000	600		OCT	153470400000 04-TABLE USED BY DBC.	DBC/569
	00717	+147764000000	601		OCT	147764000000 03-TABLE USED BY DBC.	DBC/570
	00720	+144620000000	602		OCT	144620000000 02-TABLE USED BX DBC.	DBC/571
	00721	+141500000000	603		OCT	141500000000 01-TABLE USED BY DBC.	DBC/572
	00722	+136400000000	604	TAB	OCT	136400000000 00-TABLE USED BY DBC.	DBC/573
		77731	605	COMMON	ORG	−39	DBC/574
		77731	606	INT	BSS	1 VARIABLE USED BY DBC.	DBC/575
		77732	607	DIG	BSS	1 VARIABLE USED BY DBC.	DBC/576
		77733	608	DATUM	BSS	1 VARIABLE USED BY DBC.	DBC/577
		77734	609	MQ	BSS	1 VARIABLE USED BY DBC.	DBC/578
		77735	610	MQR	BSS	1 VARIABLE USED BY DBC.	DBC/579
		77736	611	MQD	BSS	1 VARIABLE USED BY DBC.	DBC/580
		77737	612	PEX	BSS	1 VARIABLE USED BY DBC.	DBC/581
		77740	613	EXP	BSS	1 VARIABLE USED BY DBC.	DBC/582
		77741	614	ND	BSS	1 VARIABLE USED BY DBC.	DBC/563
		77742	615	DG	BSS	1 VARIABLE USED BY DBC.	DBC/584
		77743	616	N	BSS	1 VARIABLE USED BY DBC.	DBC/585
		77744	617	E	BSS	1 VARIABLE USED BY DBC.	DBC/586
		77745	618	F	BSS	1 VARIABLE USED BY DBC.	DBC/587
		77746	619	U	BSS	1 IARIABLE USED BY DBC.	DBC/588
		77747	620	V	BSS	1 VARIABLE USED BY DBC.	DBC/589
		77750	621	D	BSS	1 VARIABLE USED BY DBC.	DBC/590
		77751	622	BCD	BSS	14 VARIABLE USED BY DBC.	DBC/591
			623			END OF CONSTANTS AND WORKING STORAGE USED BY DBC.	DBC/592
			624			* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *	DBC/593