.TITLE	T2F - CONVERT TEXT TO FIXED FILE
	.IDENT	/12MAR/
 
	.PSECT	$VARS
$VARS::
FIXBF1:
FIXBF2:	.BLKW	256.
TXTBUF:
TXT768:
TXT1:	.BLKW	32.
TXT2:	.BLKW	32.
TXT3:	.BLKW	32.
TXT4:	.BLKW	32.
TXT5:	.BLKW	32.
TXT6:	.BLKW	32.
TXT7:	.BLKW	32.
TXT8:	.BLKW	32.
TXT9:	.BLKW	32.
TXTA:	.BLKW	32.
TXTB:	.BLKW	32.
TXTC:	.BLKW	32.
K2:
K4:	.BLKW	2.
 
	.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,124,062,106,040,052,052,052,040
	.BYTE	126,061,056,060,040,004,206,023,032,052,010,014,012,000
.1002:
	.BYTE	232,061,040,103,157,156,166,145,162,164,163,040,164,145
	.BYTE	170,164,040,146,151,154,145,163,040,146,162,157,155,040
	.BYTE	106,062,124,040,164,157,040,146,151,170,145,144,040,142
	.BYTE	154,157,143,153,040,146,151,154,145,163,014,012
.1600:
	.BYTE	234,077,001,012
.1700:
	.BYTE	232,053,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	040,050,074,122,105,124,076,040,124,117,040,105,130,111
	.BYTE	124,051,072,040,016,012
.1710:
	.BYTE	024,234,037,001,012,000
.2000:
	.BYTE	234,037,001,042,003,012
.2010:
	.BYTE	232,024,040,117,122,111,107,111,116,101,114,040,106,111
	.BYTE	114,105,040,116,101,115,105,072,040,234,037,001,232,013
	.BYTE	040,102,114,117,103,113,040,123,111,132,105,072,042,004
	.BYTE	012,000
.2100:
	.BYTE	232,035,040,105,116,124,105,122,040,106,125,114,114,040
	.BYTE	116,101,115,105,040,117,106,040,116,105,127,040,106,111
	.BYTE	114,105,072,040,016,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,050,040,131,105,123,040,117,122,040,116,117,040,120
	.BYTE	114,105,101,123,105,056,040,104,117,040,131,117,125,040
	.BYTE	110,101,126,105,040,101,116,131,040,115,117,122,105,077
	.BYTE	040,016,012,000
.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
	.BYTE	052,052,052,052,040,124,062,106,040,106,111,116,111,123
	.BYTE	110,105,104,040,052,052,052,052,000,000
 
	.PSECT	$IDATA
$IDATA::
	.WORD	40
	.WORD	TXTFIL
	.WORD	TXTFIL-1
	.WORD	4401
	.WORD	40
	.WORD	FIXFIL
	.WORD	FIXFIL-1
	.WORD	4401
	.WORD	100
	.WORD	TXT1
	.WORD	TXT1-1
	.WORD	4401
	.WORD	100
	.WORD	TXT2
	.WORD	TXT2-1
	.WORD	4401
	.WORD	100
	.WORD	TXT3
	.WORD	TXT3-1
	.WORD	4401
	.WORD	100
	.WORD	TXT4
	.WORD	TXT4-1
	.WORD	4401
	.WORD	100
	.WORD	TXT5
	.WORD	TXT5-1
	.WORD	4401
	.WORD	100
	.WORD	TXT6
	.WORD	TXT6-1
	.WORD	4401
	.WORD	100
	.WORD	TXT7
	.WORD	TXT7-1
	.WORD	4401
	.WORD	100
	.WORD	TXT8
	.WORD	TXT8-1
	.WORD	4401
	.WORD	100
	.WORD	TXT9
	.WORD	TXT9-1
	.WORD	4401
	.WORD	100
	.WORD	TXTA
	.WORD	TXTA-1
	.WORD	4401
	.WORD	100
	.WORD	TXTB
	.WORD	TXTB-1
	.WORD	4401
	.WORD	100
	.WORD	TXTC
	.WORD	TXTC-1
	.WORD	4401
	.WORD	400
	.WORD	FIXBF1
	.WORD	FIXBF1-2
	.WORD	20402
	.WORD	1000
	.WORD	FIXBF2
	.WORD	FIXBF2-2
	.WORD	20402
 
	.PSECT	$PDATA
	.WORD	12
	.WORD	1001
	.WORD	LUNTXT
	.WORD	2416
	.WORD	TXTFIL
	.WORD	2017
	.WORD	1
	.WORD	3
	.WORD	.90
	.WORD	10
	.WORD	0
 
	.PSECT	$IDATA
	.WORD	14
	.WORD	1001
	.WORD	LUNFIX
	.WORD	2416
	.WORD	FIXFIL
	.WORD	2004
	.WORD	1
	.WORD	2017
	.WORD	2
	.WORD	1006
	.WORD	0
	.WORD	1021
	.WORD	KFIX
 
	.PSECT	$VARS
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
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
HY:
	.BYTE	131
HN:
	.BYTE	116
IYN:
	.BYTE	000
	.EVEN
I64:
	.WORD	100,0
I4096:
	.WORD	10000,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	3.
 
	.PSECT	$CODE1
$CODE1::
	JSR	PC,OTI$
	CLR	-(SP)
	MOV	#-76772,R4
	JSR	R4,NAM$
					; 0010
	MOV	#-12,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.1001,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0012
	MOV	ITRMO,-(SP)
	MOV	#.1002,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
.17:
					; 0015
	MOV	#-17,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.1700,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0017
	MOV	ITRMI,-(SP)
	MOV	#.1710,-(SP)
	JSR	PC,ISF$
	MOV	#LFTXT,-(SP)
	JSR	PC,IOAI$
	MOV	#$IDATA+2,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0019
	TST	LFTXT
	BGT	$CODE1+164
	JMP	.99
					; 0020
	MOV	LFTXT,R0
	CLRB	TXTFIL(R0)
					; 0021
	MOV	#$PDATA+622,R5
	JSR	PC,OPEN$
					; 0022
	MOV	LUNTXT,-(SP)
	MOV	#.2000,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+12,-(SP)
	JSR	PC,IOAA$
	MOV	#LBLK,-(SP)
	JSR	PC,IOAI$
	JSR	PC,EOLST$
					; 0024
	MOV	ITRMO,-(SP)
	MOV	#.2010,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+12,-(SP)
	JSR	PC,IOAA$
	MOV	#LBLK,-(SP)
	JSR	PC,IOAI$
	JSR	PC,EOLST$
					; 0026
	MOV	ITRMO,-(SP)
	MOV	#.2100,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0028
	MOV	ITRMI,-(SP)
	MOV	#.1710,-(SP)
	JSR	PC,ISF$
	MOV	#LFFIX,-(SP)
	JSR	PC,IOAI$
	MOV	#$IDATA+12,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0029
	TST	LFFIX
	BLE	.17
					; 0030
	MOV	LFFIX,R0
	CLRB	FIXFIL(R0)
					; 0031
	MOV	LBLK,R1
	SXT	R0
	DIV	#4,R0
	MOV	R0,-(SP)
	MOV	SP,$IDATA+224
	MOV	#$IDATA+200,R5
	JSR	PC,OPEN$
	TST	(SP)+
					; 0032
	CLR	IBLK
.25:
					; 0033
	MOV	#-41,$SEQC
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	MOV	#.50,-(SP)
	CLR	-(SP)
	JSR	PC,ISFE$
	MOV	#$IDATA+22,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0034
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+32,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0035
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+42,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0036
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+52,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0037
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+62,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0038
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+72,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0039
	CMP	LBLK,#400
	BEQ	.28
					; 0040
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+102,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0041
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+112,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0042
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+122,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0043
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+132,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0044
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+142,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
					; 0045
	MOV	LUNTXT,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#$IDATA+152,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
.28:
					; 0046
	MOV	#-56,$SEQC
	MOV	LBLK,R1
	SXT	R0
	DIV	#2,R0
	MOV	R0,$TEMPS
	MOV	#1,I
L$EBPC:
					; 0047
	MOV	#-57,$SEQC
	MOV	I,R1
	MUL	#3,R1
	MOVB	TXTBUF-2(R1),R0
	SUB	#40,R0
	MOVB	R0,R0
	SXT	-(SP)
	MOV	R0,-(SP)
	MOV	R1,$TEMPS+2
	JSR	R4,MLJC$
	.WORD	I64
	MOV	$TEMPS+2,R0
	MOVB	TXTBUF-3(R0),R1
	SUB	#40,R1
	MOVB	R1,R2
	SXT	R3
	ADD	(SP)+,R2
	ADC	R3
	ADD	(SP)+,R3
	MOVB	TXTBUF-1(R0),R1
	SUB	#40,R1
	MOVB	R1,R1
	SXT	-(SP)
	MOV	R1,-(SP)
	MOV	R2,$TEMPS+2
	MOV	R3,$TEMPS+4
	JSR	R4,MLJC$
	.WORD	I4096
	MOV	$TEMPS+2,R0
	MOV	$TEMPS+4,R1
	ADD	(SP)+,R0
	ADC	R1
	ADD	(SP)+,R1
	MOV	R0,K4
	MOV	R1,K4+2
					; 0048
	MOV	I,R0
	ASL	R0
	MOV	K2,FIXBF2-2(R0)
					; 0049
	INC	I
	CMP	I,$TEMPS
	BLE	L$EBPC
					; 0050
	INC	IBLK
					; 0051
	CMP	LBLK,#400
	BNE	L$EBME
	MOV	LUNFIX,-(SP)
	TST	IBLK
	SXT	-(SP)
	MOV	IBLK,-(SP)
	JSR	PC,ORU$
	MOV	#$IDATA+162,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$EBME:
					; 0052
	CMP	LBLK,#1000
	BNE	L$EBCF
	MOV	LUNFIX,-(SP)
	TST	IBLK
	SXT	-(SP)
	MOV	IBLK,-(SP)
	JSR	PC,ORU$
	MOV	#$IDATA+172,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
L$EBCF:
					; 0053
	JMP	.25
.50:
					; 0054
	MOV	#-66,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.5000,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
.51:
					; 0056
	MOV	#-70,$SEQC
	MOV	ITRMI,-(SP)
	MOV	#.1600,-(SP)
	JSR	PC,ISF$
	MOV	#IYN,-(SP)
	JSR	PC,IOAB$
	JSR	PC,EOLST$
					; 0057
	CMPB	IYN,HN
	BEQ	.99
					; 0058
	CMPB	IYN,HY
	BNE	$CODE1+1620
	JMP	.17
					; 0059
	MOV	ITRMO,-(SP)
	MOV	#.5100,-(SP)
	JSR	PC,OSF$
	JSR	PC,EOLST$
					; 0061
	BR	.51
.90:
					; 0062
	MOV	#-76,$SEQC
	MOV	ITRMO,-(SP)
	MOV	#.9000,-(SP)
	JSR	PC,OSF$
	MOV	#$IDATA+2,-(SP)
	JSR	PC,IOAA$
	JSR	PC,EOLST$
.99:
					; 0064
	MOV	#-100,$SEQC
	MOV	#$PDATA+572,-(SP)
	JSR	PC,STOP$
	.GLOBL	$OTSVA
	.GLOBL	ICI$
	.GLOBL	ORGSQ$
	.END	$CODE1