.TITLE	F2T - CONVERT FIXED TO TEXT FILES
	.IDENT	/12MAR/
 
	.PSECT	$VARS
$VARS::
TXTBF1:
TXTBF2:	.BLKW	384.
FIXBF1:
FIXBF2:	.BLKW	256.
 
	.PSECT	$PDATA
$PDATA::
.1001:
	.BYTE	014,014,004,206,023,032,052,010,232,026,040,120,123,104
	.BYTE	111,040,052,052,052,040,106,062,124,040,052,052,052,040
	.BYTE	126,061,056,060,040,004,206,023,032,052,010,014,012,000
.1002:
	.BYTE	232,051,040,103,157,156,166,145,162,164,163,040,146,151
	.BYTE	170,145,144,040,142,154,157,143,153,040,146,151,154,145
	.BYTE	163,040,164,157,040,164,145,170,164,040,146,157,162,155
	.BYTE	141,164,012,000
.1003:
	.BYTE	014,232,063,040,121,127,111,113,116,105,124,040,144,162
	.BYTE	141,167,151,156,147,040,146,151,154,145,163,054,040,156
	.BYTE	141,155,145,144,040,052,121,056,121,127,113,054,040,141
	.BYTE	162,145,040,141,163,163,165,155,145,144,040,164,157,014
	.BYTE	232,063,040,142,145,040,062,065,066,055,142,171,164,145
	.BYTE	040,142,154,157,143,153,163,056,040,117,164,150,145,162
	.BYTE	163,040,155,165,163,164,040,142,145,040,065,061,062,055
	.BYTE	142,171,164,145,040,142,154,157,143,153,163,056,014,012
.1500:
	.BYTE	232,055,040,105,116,124,105,122,040,106,125,114,114,040
	.BYTE	123,117,125,122,103,105,040,106,111,114,105,040,116,101
	.BYTE	115,105,040,050,074,122,105,124,076,040,124,117,040,105
	.BYTE	130,111,124,051,072,040,016,012
.1510:
	.BYTE	024,234,037,001,012,000
.1800:
	.BYTE	232,033,040,105,116,124,105,122,040,106,125,114,114,040
	.BYTE	124,105,130,124,040,106,111,114,105,040,116,101,115,105
	.BYTE	072,040,016,012
.1900:
	.BYTE	234,037,001,042,003,012
.3500:
	.BYTE	234,077,001,012
.5000:
	.BYTE	232,061,040,103,117,116,126,105,122,123,111,117,116,040
	.BYTE	106,111,116,111,123,110,105,104,056,040,104,117,040,131
	.BYTE	117,125,040,110,101,126,105,040,101,116,131,040,115,117
	.BYTE	122,105,040,050,131,057,116,051,077,040,016,012
.5100:
	.BYTE	232,051,040,131,105,123,040,117,122,040,116,117,054,040
	.BYTE	120,114,105,101,123,105,056,040,104,117,040,131,117,125
	.BYTE	040,110,101,126,105,040,101,116,131,040,115,117,122,105
	.BYTE	077,040,016,012
.9000:
	.BYTE	232,024,040,125,116,101,102,114,105,040,124,117,040,117
	.BYTE	120,105,116,040,106,111,114,105,040,234,037,001,232,011
	.BYTE	040,055,040,105,130,111,124,111,116,107,012,000
	.WORD	47,0
	.WORD	177777,177777
	.WORD	0,0
	.WORD	37,0
	.BYTE	052,052,052,052,040,106,062,124,040,106,111,116,111,123
	.BYTE	110,105,104,040,052,052,052,052,000,000
 
	.PSECT	$IDATA
$IDATA::
	.WORD	40
	.WORD	FIXFIL
	.WORD	FIXFIL-1
	.WORD	4401
	.WORD	40
	.WORD	TXTFIL
	.WORD	TXTFIL-1
	.WORD	4401
	.WORD	600
	.WORD	TXTBF1
	.WORD	TXTBF1-4
	.WORD	5001
	.WORD	1400
	.WORD	TXTBF2
	.WORD	TXTBF2-4
	.WORD	5001
	.WORD	400
	.WORD	FIXBF1
	.WORD	FIXBF1-2
	.WORD	20402
	.WORD	1000
	.WORD	FIXBF2
	.WORD	FIXBF2-2
	.WORD	20402
	.WORD	20
	.WORD	1001
	.WORD	LUNFIX
	.WORD	2416
	.WORD	FIXFIL
	.WORD	2004
	.WORD	1
	.WORD	10
	.WORD	0
	.WORD	1003
	.WORD	.90
	.WORD	2017
	.WORD	1
	.WORD	1006
	.WORD	0
	.WORD	1021
	.WORD	KFIX
 
	.PSECT	$PDATA
	.WORD	10
	.WORD	1001
	.WORD	LUNTXT
	.WORD	2416
	.WORD	TXTFIL
	.WORD	2017
	.WORD	2
	.WORD	2007
	.WORD	2
	.WORD	6
	.WORD	$PDATA+666
	.WORD	$PDATA+672
	.WORD	$PDATA+676
	.WORD	$PDATA+672
	.WORD	$PDATA+676
	.WORD	$PDATA+702
 
	.PSECT	$VARS
FIXFIL:
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
TXTFIL:
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
	.BYTE	000
QQWK:
	.BYTE	121
	.BYTE	056
	.BYTE	121
	.BYTE	127
	.BYTE	113
HY:
	.BYTE	131
HN:
	.BYTE	116
IYN:
	.BYTE	000
IWD:
	.WORD	0,0
ITRMI:
	.WORD	5
ITRMO:
	.WORD	6
LUNFIX:
	.WORD	7
LUNTXT:
	.WORD	10
I:
	.WORD	0
IBLK:
	.WORD	0
KFIX:
	.WORD	0
LBLK:
	.WORD	0
LFFIX:
	.WORD	0
LFTXT:
	.WORD	0
 
	.PSECT	$TEMPS
$TEMPS::
	.BLKW	2.
 
	.PSECT	$CODE1
$CODE1::
	JSR	PC,OTI$
	CLR	-(SP)
	MOV	#25224,R4
	JSR	R4,NAM$
					; 0008
	MOV	#-10,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.1001,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0010
	MOV	ITRMO,-(SP)
	MOV	#.1002,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0012
	MOV	ITRMO,-(SP)
	MOV	#.1003,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
.15:
					; 0014
	MOV	#-16,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.1500,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0016
	MOV	ITRMI,-(SP)
	MOV	#.1510,-(SP)
	JSR	PC,ISF$
	MOV	#LFFIX,-(SP)
	JSR	PC,IOAI$
	MOV	#$IDATA+2,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0018
	TST	LFFIX
	BGT	$CODE1+204
	JMP	.99
					; 0019
	MOV	LFFIX,R0
	CLRB	FIXFIL(R0)
					; 0020
	MOV	#1000,LBLK
					; 0021
	MOV	#1,I
L$DBKB:
					; 0022
	MOV	#-26,$SEQC
	MOV	I,R0
	ADD	LFFIX,R0
	MOV	I,R1
	CMPB	FIXFIL-6(R0),QQWK-1(R1)
	BNE	.17
					; 0023
	INC	I
	CMP	I,#5
	BLE	L$DBKB
					; 0024
	MOV	#400,LBLK
.17:
					; 0025
	MOV	#-31,$SEQC
	MOV	LBLK,R1
	SXT	R0
	DIV	#4,R0
	MOV	R0,-(SP)
	MOV	SP,$IDATA+114
	MOV	#$IDATA+60,R5
	JSR	PC,OPEN$
					; 0026
	MOV	ITRMO,@SP
	MOV	#.1800,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0028
	MOV	ITRMI,-(SP)
	MOV	#.1510,-(SP)
	JSR	PC,ISF$
	MOV	#LFTXT,-(SP)
	JSR	PC,IOAI$
	MOV	#$IDATA+12,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0029
	TST	LFTXT
	BLE	.15
					; 0030
	MOV	LFTXT,R0
	CLRB	TXTFIL(R0)
					; 0031
	MOV	#$PDATA+736,R5
	JSR	PC,OPEN$
					; 0032
	MOV	LUNTXT,-(SP)
	MOV	#.1900,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+2,-(SP)
	JSR	PC,IOAA$
	MOV	#LBLK,-(SP)
	JSR	PC,IOAI$
	JSR	PC,EOLST$
					; 0034
	MOV	#$PDATA+760,R5
	JSR	PC,ERRSET
					; 0035
	CLR	IBLK
.25:
					; 0036
	MOV	#-44,$SEQC
	INC	IBLK
					; 0037
	MOV	LBLK,R2
	CMP	R2,#400
	BNE	L$DBDG
	MOV	LUNFIX,-(SP)
	TST	IBLK
	SXT	-(SP)
	MOV	IBLK,-(SP)
	MOV	#.50,-(SP)
	MOV	#.50,-(SP)
	JSR	PC,IRUE$
	MOV	#$IDATA+42,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$DBDG:
					; 0038
	CMP	R2,#1000
	BNE	L$DBOG
	MOV	LUNFIX,-(SP)
	TST	IBLK
	SXT	-(SP)
	MOV	IBLK,-(SP)
	MOV	#.50,-(SP)
	MOV	#.50,-(SP)
	JSR	PC,IRUE$
	MOV	#$IDATA+52,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$DBOG:
					; 0039
	MOV	R2,R1
	SXT	R0
	DIV	#2,R0
	MOV	R0,$TEMPS
	MOV	#1,I
L$DBJH:
					; 0040
	MOV	#-50,$SEQC
	MOV	I,R0
	ASL	R0
	MOV	FIXBF2-2(R0),IWD
	SXT	IWD+2
					; 0041
	CLR	IWD+2
					; 0042
	MOV	I,R1
	MUL	#3,R1
	MOV	IWD,R2
	MOV	IWD+2,R3
	BIC	#177700,R2
	CLR	R3
	ADD	#40,R2
	ADC	R3
	MOVB	R2,TXTBF2-3(R1)
					; 0043
	MOV	R1,$TEMPS+2
	MOV	IWD+2,-(SP)
	MOV	IWD,-(SP)
	JSR	R4,DVJC$
	.WORD	$PDATA+776
	MOV	(SP)+,IWD
	MOV	(SP)+,IWD+2
					; 0044
	MOV	IWD,R0
	MOV	IWD+2,R1
	BIC	#177700,R0
	CLR	R1
	ADD	#40,R0
	ADC	R1
	MOV	$TEMPS+2,R2
	MOVB	R0,TXTBF2-2(R2)
					; 0045
	MOV	IWD+2,-(SP)
	MOV	IWD,-(SP)
	JSR	R4,DVJC$
	.WORD	$PDATA+776
	MOV	(SP)+,IWD
	MOV	(SP)+,IWD+2
					; 0046
	MOV	IWD,R0
	MOV	IWD+2,R1
	BIC	#177760,R0
	CLR	R1
	ADD	#40,R0
	ADC	R1
	MOV	$TEMPS+2,R2
	MOVB	R0,TXTBF2-1(R2)
					; 0047
	INC	I
	CMP	I,$TEMPS
	BLE	L$DBJH
					; 0049
	CMP	LBLK,#400
	BNE	L$DBLJ
	MOV	LUNTXT,-(SP)
	MOV	#.3500,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+22,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$DBLJ:
					; 0050
	CMP	LBLK,#1000
	BNE	L$DBGK
	MOV	LUNTXT,-(SP)
	MOV	#.3500,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+32,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$DBGK:
					; 0052
	JMP	.25
.50:
					; 0053
	MOV	#-65,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.5000,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
.51:
					; 0055
	MOV	#-67,$SEQC
	MOV	ITRMI,-(SP)
	MOV	#.3500,-(SP)
	JSR	PC,ISF$
	MOV	#IYN,-(SP)
	JSR	PC,IOAB$
	JSR	PC,EOLST$
					; 0056
	CMPB	IYN,HN
	BEQ	.99
					; 0057
	CMPB	IYN,HY
	BNE	$CODE1+1406
	JMP	.15
					; 0058
	MOV	ITRMO,-(SP)
	MOV	#.5100,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0060
	BR	.51
.90:
					; 0061
	MOV	#-75,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.9000,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+2,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
.99:
					; 0063
	MOV	#-77,$SEQC
	MOV	#$PDATA+706,-(SP)
	JSR	PC,STOP$
 
	.PSECT	$PDATA
	.WORD	100,0
	.GLOBL	$OTSVA
	.GLOBL	ICI$
	.GLOBL	ORGSQ$
	.END	$CODE1