_fcbtbl	EQU	0
_ch	EQU	32
_fch	EQU	33
_1
	LDD	#0
	STD	33,Y
	LBRA	_2
_main
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	LBSR	initheap
	LDD	#65535
	LDD	#65534
	LDD	#65533
	LDD	#3
_4
	LDD	-2,U
	SUBD	#16
	LBGE	_3
	LDD	-2,U
	ASLB
	ROLA
	LEAX	0,Y
	LEAX	D,X
	CLRA
	CLRB
	STD	0,X
_5
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_4
_3
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	main
	LEAS	4,S
	PULS	D,U,PC
ungetc
	PSHS	U
	LEAU	,S
	LDD	6,U
	SUBD	#65535
	LBNE	_6
	LDD	#1
	LDB	5,U
	SEX
	PULS	U,PC
_6
	LDD	#1
	LDX	6,U
	STB	62,X
	LDB	5,U
	SEX
	LDX	6,U
	STB	61,X
	PULS	U,PC
getc
	PSHS	U
	LEAU	,S
	LDD	4,U
	CMPD	#65535
	LBNE	_9
_8
	LDD	33,Y
	LBEQ	_10
	CLRA
	CLRB
	LDB	32,Y
	SEX
	PULS	U,PC
_10
	LBSR	GETCH
	PULS	U,PC
_9
	CMPD	#65533
	BEQ	_11
	CMPD	#65534
	LBNE	_12
_11
	LDD	#-1
	PULS	U,PC
_13
	LDX	4,U
	LDB	2,X
	SEX
	SUBD	#1
	LBEQ	_14
	LDD	#-1
	PULS	U,PC
_14
	LDX	4,U
	LDB	62,X
	SEX
	LBEQ	_15
	CLRA
	CLRB
	LDX	4,U
	STB	62,X
	LDX	4,U
	LDB	61,X
	SEX
	PULS	U,PC
_15
	CLRA
	CLRB
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	PULS	U,PC
_12	EQU	_13
_7
	PULS	U,PC
putc
	PSHS	U
	LEAU	,S
	LDD	6,U
	CMPD	#65535
	LBNE	_18
_17
	LDD	#-1
	PULS	U,PC
_18
	CMPD	#65534
	LBNE	_20
_19
	LDB	5,U
	SEX
	PSHS	D
	LBSR	PUTCH
	LEAS	2,S
	PULS	U,PC
_20
	CMPD	#65533
	LBNE	_22
_21
	LDB	5,U
	SEX
	PSHS	D
	LBSR	PUTCH2
	LEAS	2,S
	PULS	U,PC
_23
	LDX	6,U
	LDB	2,X
	SEX
	SUBD	#2
	LBEQ	_24
	LDD	#-1
	PULS	U,PC
_24
	LDB	5,U
	SEX
	PSHS	D
	CLRA
	CLRB
	PSHS	D
	LDD	6,U
	PSHS	D
	LBSR	FMS
	LEAS	6,S
	SUBD	#0
	LBGE	_25
	LDD	#-1
	PULS	U,PC
_25
	LDB	5,U
	SEX
	PULS	U,PC
_22	EQU	_23
_16
	PULS	U,PC
ugetch
	PSHS	U
	LEAU	,S
	LDD	0,Y
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	ungetc
	LEAS	4,S
	PULS	U,PC
getchar
	PSHS	U
	LEAU	,S
	LDD	0,Y
	PSHS	D
	LBSR	getc
	LEAS	2,S
	PULS	U,PC
putchar
	PSHS	U
	LEAU	,S
	LDD	2,Y
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	putc
	LEAS	4,S
	PULS	U,PC
printf
	PSHS	U
	LEAU	,S
	LEAX	6,U
	PSHS	X
	LDD	4,U
	PSHS	D
	LDD	2,Y
	PSHS	D
	LBSR	_fprintf
	LEAS	6,S
	PULS	U,PC
fprintf
	PSHS	U
	LEAU	,S
	LEAX	8,U
	PSHS	X
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_fprintf
	LEAS	6,S
	PULS	U,PC
_fprintf
	PSHS	U
	LEAU	,S
	LEAS	-15,S
_27
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	SUBD	#0
	LBEQ	_26
	LDB	-7,U
	SEX
	SUBD	#37
	LBEQ	_28
	LDD	4,U
	PSHS	D
	LDB	-7,U
	SEX
	PSHS	D
	LBSR	putc
	LEAS	4,S
	LBRA	_29
_28
	LDB	[6,U]
	SEX
	SUBD	#45
	LBEQ	_31
	CLRA
	CLRB
	BRA	*+5
_31
	LDD	#1
	SUBD	#0
	LBEQ	_30
	LDD	6,U
	ADDD	#1
	STD	6,U
_30
	LDB	[6,U]
	SEX
	PSHS	D
	LBSR	isdigit
	LEAS	2,S
	SUBD	#0
	LBEQ	_32
	LDD	6,U
	PSHS	D
	LEAX	-4,U
	PSHS	X
	LBSR	_getint
	LEAS	4,S
	PSHS	D
	ADDD	,S++
	LBRA	_33
_32
	CLRA
	CLRB
_33
	LDB	[6,U]
	SEX
	SUBD	#46
	LBNE	_34
	LDD	6,U
	ADDD	#1
	STD	6,U
_34
	LDB	[6,U]
	SEX
	PSHS	D
	LBSR	isdigit
	LEAS	2,S
	SUBD	#0
	LBEQ	_35
	LDD	6,U
	PSHS	D
	LEAX	-6,U
	PSHS	X
	LBSR	_getint
	LEAS	4,S
	PSHS	D
	ADDD	,S++
	LBRA	_36
_35
	LDD	#32767
_36
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	CMPD	#100
	LBNE	_39
_38
	LEAX	-15,U
	PSHS	X
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LBSR	itoa
	LEAS	4,S
	LBRA	_37
_39
	CMPD	#111
	LBNE	_41
_40
	LEAX	-15,U
	PSHS	X
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LBSR	itooa
	LEAS	4,S
	LBRA	_37
_41
	CMPD	#120
	LBNE	_43
_42
	LEAX	-15,U
	PSHS	X
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LBSR	itoxa
	LEAS	4,S
	LBRA	_37
_43
	CMPD	#117
	LBNE	_45
_44
	LEAX	-15,U
	PSHS	X
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LBSR	itoua
	LEAS	4,S
	LBRA	_37
_45
	CMPD	#99
	LBNE	_47
_46
	LEAX	-15,U
	PSHS	X
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LBSR	ctos
	LEAS	4,S
	LBRA	_37
_47
	CMPD	#115
	LBNE	_49
_48
	LDD	-6,U
	PSHS	D
	LDD	-4,U
	PSHS	D
	LDD	-2,U
	PSHS	D
	LDX	8,U
	LDD	,X++
	STX	8,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_putstr
	LEAS	10,S
	LBRA	_27
_49
	CMPD	#0
	LBNE	_51
_50
	LEAS	,U
	PULS	U,PC
_52
	LEAX	-15,U
	PSHS	X
	LDB	-7,U
	SEX
	PSHS	D
	LBSR	ctos
	LEAS	4,S
	LBRA	_37
_51	EQU	_52
_37
	LDD	-6,U
	PSHS	D
	LDD	-4,U
	PSHS	D
	LDD	-2,U
	PSHS	D
	LEAX	-15,U
	PSHS	X
	LDD	4,U
	PSHS	D
	LBSR	_putstr
	LEAS	10,S
_29
	LBRA	_27
_26
	LEAS	,U
	PULS	U,PC
_getint
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	CLRA
	CLRB
	STD	[4,U]
_54
	LDB	[6,U]
	SEX
	PSHS	D
	LBSR	isdigit
	LEAS	2,S
	SUBD	#0
	LBEQ	_53
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	PSHS	D
	LDD	[4,U]
	ASLB
	ROLA
	PSHS	D
	ASLB
	ROLA
	ASLB
	ROLA
	ADDD	,S++
	ADDD	,S++
	SUBD	#48
	STD	[4,U]
_55
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_54
_53
	LDD	-2,U
	PULS	X,U,PC
_putstr
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	LDD	6,U
	PSHS	D
	LBSR	strlen
	LEAS	2,S
	SUBD	12,U
	LBGE	_56
	LDD	6,U
	PSHS	D
	LBSR	strlen
	LEAS	2,S
	LBRA	_57
_56
	LDD	12,U
_57
	LDD	-2,U
	SUBD	10,U
	LBGE	_58
	LDD	10,U
	SUBD	-2,U
	LBRA	_59
_58
	CLRA
	CLRB
_59
	LDD	8,U
	LBEQ	_60
	LDD	12,U
	PSHS	D
	LDD	6,U
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	_putsn
	LEAS	6,S
	LDD	10,U
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	_putspc
	LEAS	4,S
	LBRA	_61
_60
	LDD	10,U
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	_putspc
	LEAS	4,S
	LDD	12,U
	PSHS	D
	LDD	6,U
	PSHS	D
	LDB	5,U
	SEX
	PSHS	D
	LBSR	_putsn
	LEAS	6,S
_61
	PULS	D,U,PC
_putsn
	PSHS	U
	LEAU	,S
_63
	LDB	[6,U]
	SEX
	LBEQ	_62
	LDD	8,U
	ADDD	#-1
	STD	8,U
	SUBD	#0
	LBLT	_64
	LDB	5,U
	SEX
	PSHS	D
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	PSHS	D
	LBSR	putc
	LEAS	4,S
	LBRA	_65
_64
	LBRA	_62
_65
	LBRA	_63
_62
	PULS	U,PC
_putspc
	PSHS	U
	LEAU	,S
_67
	LDD	6,U
	ADDD	#-1
	STD	6,U
	SUBD	#0
	LBLT	_66
	LDD	4,U
	PSHS	D
	LDD	#32
	PSHS	D
	LBSR	putc
	LEAS	4,S
	LBRA	_67
_66
	PULS	U,PC
itoa
	PSHS	U
	LEAU	,S
	LDD	4,U
	SUBD	#0
	LBGE	_68
	LDD	#45
	LDX	6,U
	STB	,X+
	STX	6,U
	LDD	6,U
	PSHS	D
	LDD	4,U
	NEGA
	NEGB
	SBCA	#0
	PSHS	D
	LBSR	itoua
	LEAS	4,S
	ADDD	#1
	PULS	U,PC
_68
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	itoua
	LEAS	4,S
	PULS	U,PC
itoua
	PSHS	U
	LEAU	,S
	LDD	#10
	PSHS	D
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_itoda
	LEAS	6,S
	PULS	U,PC
ctos
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	LDX	6,U
	STB	0,X
	CLRA
	CLRB
	LDX	6,U
	STB	1,X
	LDD	6,U
	PULS	U,PC
itooa
	PSHS	U
	LEAU	,S
	LDD	#8
	PSHS	D
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_itoda
	LEAS	6,S
	PULS	U,PC
itoxa
	PSHS	U
	LEAU	,S
	LDD	#16
	PSHS	D
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_itoda
	LEAS	6,S
	PULS	U,PC
_itoac
	PSHS	U
	LEAU	,S
	LDD	4,U
	SUBD	#10
	LBGE	_69
	LDD	#48
	LBRA	_70
_69
	LDD	#55
_70
	ADDD	4,U
	PULS	U,PC
_itoda
	PSHS	U
	LEAU	,S
	LEAS	-12,S
	LEAX	-10,U
	TFR	X,D
	CLRA
	CLRB
	LDX	-12,U
	STB	,X+
	STX	-12,U
_73
	LDD	8,U
	PSHS	D
	LDD	4,U
	PULS	X
	LBSR	_00005
	PSHS	D
	LBSR	_itoac
	LEAS	2,S
	LDX	-12,U
	STB	,X+
	STX	-12,U
_72
	LDD	8,U
	PSHS	D
	PULS	X
	LBSR	_00003
	SUBD	#0
	LBNE	_73
_71
	CLRA
	CLRB
_75
	LDX	-12,U
	LDB	,-X
	STX	-12,U
	SEX
	LDX	6,U
	STB	,X+
	STX	6,U
	SUBD	#0
	LBEQ	_74
_76
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_75
_74
	LDD	-2,U
	LEAS	,U
	PULS	U,PC
isdigit
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LDD	#48
	SUBD	,S++
	LBGT	_78
	LDB	5,U
	SEX
	SUBD	#57
	LBLE	_77
_78
	CLRA
	CLRB
	BRA	*+5
_77
	LDD	#1
	PULS	U,PC
isspace
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	SUBD	#32
	LBEQ	_79
	LDB	5,U
	SEX
	SUBD	#9
	LBEQ	_79
	LDB	5,U
	SEX
	SUBD	#10
	LBEQ	_79
	CLRA
	CLRB
	BRA	*+5
_79
	LDD	#1
	PULS	U,PC
isalpha
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LBSR	isupper
	LEAS	2,S
	SUBD	#0
	LBNE	_80
	LDB	5,U
	SEX
	PSHS	D
	LBSR	islower
	LEAS	2,S
	SUBD	#0
	LBNE	_80
	LDB	5,U
	SEX
	SUBD	#95
	LBEQ	_80
	CLRA
	CLRB
	BRA	*+5
_80
	LDD	#1
	PULS	U,PC
isupper
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LDD	#65
	SUBD	,S++
	LBGT	_82
	LDB	5,U
	SEX
	SUBD	#90
	LBLE	_81
_82
	CLRA
	CLRB
	BRA	*+5
_81
	LDD	#1
	PULS	U,PC
islower
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LDD	#97
	SUBD	,S++
	LBGT	_84
	LDB	5,U
	SEX
	SUBD	#122
	LBLE	_83
_84
	CLRA
	CLRB
	BRA	*+5
_83
	LDD	#1
	PULS	U,PC
toupper
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LBSR	islower
	LEAS	2,S
	SUBD	#0
	LBEQ	_85
	LDB	5,U
	SEX
	ADDD	#-32
	LBRA	_86
_85
	LDB	5,U
	SEX
_86
	PULS	U,PC
tolower
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LBSR	isupper
	LEAS	2,S
	SUBD	#0
	LBEQ	_87
	LDB	5,U
	SEX
	ADDD	#32
	LBRA	_88
_87
	LDB	5,U
	SEX
_88
	PULS	U,PC
atoi
	PSHS	U
	LEAU	,S
	LEAS	-4,S
_90
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	isspace
	LEAS	2,S
	SUBD	#0
	LBEQ	_89
	LDD	4,U
	ADDD	#1
	STD	4,U
	LBRA	_90
_89
	LDB	[4,U]
	SEX
	SUBD	#45
	LBEQ	_92
	CLRA
	CLRB
	BRA	*+5
_92
	LDD	#1
	SUBD	#0
	LBEQ	_91
	LDD	4,U
	ADDD	#1
	STD	4,U
_91
	CLRA
	CLRB
_94
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	isdigit
	LEAS	2,S
	SUBD	#0
	LBEQ	_93
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	PSHS	D
	LDD	-2,U
	ASLB
	ROLA
	PSHS	D
	ASLB
	ROLA
	ASLB
	ROLA
	ADDD	,S++
	ADDD	,S++
	SUBD	#48
	LBRA	_94
_93
	LDD	-4,U
	LBEQ	_95
	LDD	-2,U
	NEGA
	NEGB
	SBCA	#0
	LBRA	_96
_95
	LDD	-2,U
_96
	LEAS	,U
	PULS	U,PC
strlen
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	CLRA
	CLRB
_98
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	LBEQ	_97
_99
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_98
_97
	LDD	-2,U
	PULS	X,U,PC
strcat
	PSHS	U
	LEAU	,S
_101
	LDB	[4,U]
	SEX
	LBEQ	_100
	LDD	4,U
	ADDD	#1
	STD	4,U
	LBRA	_101
_100
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	strcpy
	LEAS	4,S
	PULS	U,PC
strcmp
	PSHS	U
	LEAU	,S
_103
	LDB	[6,U]
	SEX
	PSHS	D
	LDB	[4,U]
	SEX
	SUBD	,S++
	LBNE	_102
	LDB	[4,U]
	SEX
	LBNE	_105
	LBRA	_102
_105
_104
	LDD	4,U
	ADDD	#1
	STD	4,U
	LDD	6,U
	ADDD	#1
	STD	6,U
	LBRA	_103
_102
	LDB	[6,U]
	SEX
	PSHS	D
	LDB	[4,U]
	SEX
	SUBD	,S++
	PULS	U,PC
strcpy
	PSHS	U
	LEAU	,S
_107
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	LDX	4,U
	STB	,X+
	STX	4,U
	SUBD	#0
	LBNE	_107
_106
	PULS	U,PC
gets
	PSHS	U
	LEAU	,S
	LDD	0,Y
	PSHS	D
	LDD	6,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	fgets
	LEAS	6,S
	PULS	U,PC
puts
	PSHS	U
	LEAU	,S
	LDD	2,Y
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	fputs
	LEAS	4,S
	PULS	U,PC
fgets
	PSHS	U
	LEAU	,S
	LEAS	-3,S
	LDD	4,U
_109
	LDD	6,U
	ADDD	#-1
	STD	6,U
	SUBD	#0
	LBLE	_108
	LDD	8,U
	PSHS	D
	LBSR	getc
	LEAS	2,S
	SUBD	#-1
	LBNE	_110
	LBRA	_108
_110
	LDB	-1,U
	SEX
	LDX	4,U
	STB	,X+
	STX	4,U
	SUBD	#10
	LBNE	_111
	LBRA	_108
_111
	LBRA	_109
_108
	CLRA
	CLRB
	STB	[4,U]
	LDB	-1,U
	SEX
	SUBD	#-1
	LBNE	_112
	LDD	4,U
	SUBD	-3,U
	LBNE	_112
	CLRA
	CLRB
	LBRA	_113
_112
	LDD	4,U
_113
	LEAS	,U
	PULS	U,PC
fputs
	PSHS	U
	LEAU	,S
_115
	LDB	[4,U]
	SEX
	LBEQ	_114
	LDD	6,U
	PSHS	D
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	PSHS	D
	LBSR	putc
	LEAS	4,S
	LBRA	_115
_114
	PULS	U,PC
match
	PSHS	U
	LEAU	,S
	LDB	[4,U]
	SEX
	CMPD	#42
	LBNE	_118
_117
	LDX	4,U
	LDB	1,X
	SEX
	LBNE	_119
	LDD	#1
	PULS	U,PC
_119
_121
	LDD	6,U
	PSHS	D
	LDD	4,U
	ADDD	#1
	PSHS	D
	LBSR	match
	LEAS	4,S
	SUBD	#0
	LBNE	_120
	LDX	6,U
	LDB	,X+
	STX	6,U
	SEX
	LBNE	_122
	CLRA
	CLRB
	PULS	U,PC
_122
	LBRA	_121
_120
	LDD	#1
	PULS	U,PC
_118
	CMPD	#63
	LBNE	_124
_123
	LDB	[6,U]
	SEX
	LBEQ	_125
	LDD	6,U
	ADDD	#1
	PSHS	D
	LDD	4,U
	ADDD	#1
	PSHS	D
	LBSR	match
	LEAS	4,S
	LBRA	_126
_125
	CLRA
	CLRB
_126
	PULS	U,PC
_124
	CMPD	#0
	LBNE	_128
_127
	LDB	[6,U]
	SEX
	LBEQ	_129
	CLRA
	CLRB
	BRA	*+5
_129
	LDD	#1
	PULS	U,PC
_130
	LDB	[6,U]
	SEX
	PSHS	D
	LDB	[4,U]
	SEX
	SUBD	,S++
	LBNE	_131
	LDD	6,U
	ADDD	#1
	PSHS	D
	LDD	4,U
	ADDD	#1
	PSHS	D
	LBSR	match
	LEAS	4,S
	PULS	U,PC
_131
	CLRA
	CLRB
	PULS	U,PC
_128	EQU	_130
_116
	PULS	U,PC
fopen
	PSHS	U
	LEAU	,S
	LEAS	-10,S
	CLRA
	CLRB
	LDD	6,U
_133
	LDB	[-4,U]
	SEX
	LBEQ	_132
	LDB	[-4,U]
	SEX
	CMPD	#114
	LBNE	_137
_136
	LDD	#1
	LBRA	_135
_137
	CMPD	#119
	LBNE	_139
_138
	LDD	#1
	LBRA	_135
_139
	CMPD	#99
	LBNE	_141
_140
	LDD	#1
	LBRA	_135
_142
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_141	EQU	_142
_135
_134
	LDD	-4,U
	ADDD	#1
	STD	-4,U
	SUBD	#1
	LBRA	_133
_132
	LDD	-8,U
	EORA	-6,U
	EORB	-6+1,U
	SUBD	#0
	LBNE	_143
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_143
	LDD	-6,U
	LBEQ	_144
	LDD	-10,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_open
	LEAS	4,S
	LEAS	,U
	PULS	U,PC
_144
	LDD	-10,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_create
	LEAS	4,S
	LEAS	,U
	PULS	U,PC
_open
	PSHS	U
	LEAU	,S
	LEAS	-4,S
	CLRA
	CLRB
_146
	LDD	-4,U
	SUBD	#16
	LBGE	_145
	LDD	-4,U
	ASLB
	ROLA
	LEAX	0,Y
	LDD	D,X
	SUBD	#0
	LBNE	_148
	LBRA	_145
_148
_147
	LDD	-4,U
	ADDD	#1
	STD	-4,U
	SUBD	#1
	LBRA	_146
_145
	LDD	-4,U
	SUBD	#16
	LBLT	_149
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_149
	LDD	#320
	PSHS	D
	LBSR	malloc
	LEAS	2,S
	SUBD	#0
	LBNE	_150
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_150
	LDD	-2,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	SUBD	#0
	LBNE	_151
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_151
	LDD	#1
	PSHS	D
	LDD	-2,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_152
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_152
	LDD	6,U
	LBEQ	_153
	CLRA
	CLRB
	LBRA	_154
_153
	LDD	#255
_154
	LDX	-2,U
	STB	59,X
	CLRA
	CLRB
	LDX	-2,U
	STB	60,X
	LDD	-4,U
	ASLB
	ROLA
	LEAX	0,Y
	LEAX	D,X
	LDD	-2,U
	STD	0,X
	LEAS	,U
	PULS	U,PC
_create
	PSHS	U
	LEAU	,S
	LEAS	-4,S
	CLRA
	CLRB
_156
	LDD	-4,U
	SUBD	#16
	LBGE	_155
	LDD	-4,U
	ASLB
	ROLA
	LEAX	0,Y
	LDD	D,X
	SUBD	#0
	LBNE	_158
	LBRA	_155
_158
_157
	LDD	-4,U
	ADDD	#1
	STD	-4,U
	SUBD	#1
	LBRA	_156
_155
	LDD	-4,U
	SUBD	#16
	LBLT	_159
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_159
	LDD	#320
	PSHS	D
	LBSR	malloc
	LEAS	2,S
	SUBD	#0
	LBNE	_160
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_160
	LDD	-2,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	SUBD	#0
	LBNE	_161
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_161
	LDD	#2
	PSHS	D
	LDD	-2,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_162
	LDX	-2,U
	LDB	1,X
	SEX
	SUBD	#3
	LBNE	_164
	LDD	#12
	PSHS	D
	LDD	-2,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_163
_164
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_163
	LDD	-2,U
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	LDD	#2
	PSHS	D
	LDD	-2,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_165
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_165
_162
	CLRA
	CLRB
	LDX	-2,U
	STB	15,X
	LDD	6,U
	LBEQ	_166
	CLRA
	CLRB
	LBRA	_167
_166
	LDD	#255
_167
	LDX	-2,U
	STB	59,X
	CLRA
	CLRB
	LDX	-2,U
	STB	60,X
	LDD	-4,U
	ASLB
	ROLA
	LEAX	0,Y
	LEAX	D,X
	LDD	-2,U
	STD	0,X
	LEAS	,U
	PULS	U,PC
fclose
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	CLRA
	CLRB
_169
	LDD	-2,U
	SUBD	#16
	LBGE	_168
	LDD	-2,U
	ASLB
	ROLA
	LEAX	0,Y
	LDD	D,X
	PSHS	D
	LDD	4,U
	SUBD	,S++
	LBNE	_171
	LBRA	_168
_171
_170
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	SUBD	#1
	LBRA	_169
_168
	LDD	-2,U
	SUBD	#16
	LBLT	_172
	LDD	#-1
	PULS	X,U,PC
_172
	LDD	-2,U
	ASLB
	ROLA
	LEAX	0,Y
	LEAX	D,X
	CLRA
	CLRB
	STD	0,X
	LDD	4,U
	SUBD	#65535
	LBEQ	_174
	LDD	4,U
	SUBD	#65534
	LBEQ	_174
	LDD	4,U
	SUBD	#65533
	LBNE	_173
_174
	CLRA
	CLRB
	PULS	X,U,PC
_173
	LDD	#4
	PSHS	D
	LDD	4,U
	PSHS	D
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_175
	LDD	#-1
	PULS	X,U,PC
_175
	LDD	4,U
	PSHS	D
	LBSR	mfree
	LEAS	2,S
	CLRA
	CLRB
	PULS	X,U,PC
_setname
	PSHS	U
	LEAU	,S
	LEAS	-2,S
_177
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	isspace
	LEAS	2,S
	SUBD	#0
	LBEQ	_176
	LDD	4,U
	ADDD	#1
	STD	4,U
	LBRA	_177
_176
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	isdigit
	LEAS	2,S
	SUBD	#0
	LBEQ	_178
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	SUBD	#48
	LDX	6,U
	STB	3,X
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	SUBD	#46
	LBEQ	_179
	CLRA
	CLRB
	PULS	X,U,PC
_179
	LBRA	_180
_178
	LDD	#255
	LDX	6,U
	STB	3,X
_180
	LDD	#4
_182
	LDD	-2,U
	SUBD	#15
	LBGE	_181
	LDD	-2,U
	LDX	6,U
	LEAX	D,X
	CLRA
	CLRB
	STB	0,X
_183
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_182
_181
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	isalpha
	LEAS	2,S
	SUBD	#0
	LBNE	_184
	LDD	#-1
	PULS	X,U,PC
_184
	LDD	#4
_186
	LDD	-2,U
	SUBD	#12
	LBGE	_185
	LDB	[4,U]
	SEX
	LBEQ	_189
	LDB	[4,U]
	SEX
	SUBD	#46
	LBNE	_188
_189
	LBRA	_185
_188
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	PSHS	D
	LDD	-2,U
	LDX	6,U
	LEAX	D,X
	PULS	D
	STB	0,X
_187
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_186
_185
_191
	LDB	[4,U]
	SEX
	LBEQ	_190
	LDB	[4,U]
	SEX
	SUBD	#46
	LBEQ	_190
	LDD	4,U
	ADDD	#1
	STD	4,U
	LBRA	_191
_190
	LDB	[4,U]
	SEX
	SUBD	#46
	LBNE	_192
	LDD	4,U
	ADDD	#1
	STD	4,U
	LDD	#12
_194
	LDD	-2,U
	SUBD	#15
	LBGE	_193
	LDB	[4,U]
	SEX
	LBNE	_196
	LBRA	_193
_196
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	PSHS	D
	LDD	-2,U
	LDX	6,U
	LEAX	D,X
	PULS	D
	STB	0,X
_195
	LDD	-2,U
	ADDD	#1
	STD	-2,U
	LBRA	_194
_193
_192
	LDD	#1
	PULS	X,U,PC
fflush
	PSHS	U
	LEAU	,S
	CLRA
	CLRB
	PULS	U,PC
unlink
	PSHS	U
	LEAU	,S
	LEAS	-320,S
	LEAX	-320,U
	PSHS	X
	LDD	4,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	SUBD	#0
	LBNE	_198
	LDD	#12
	PSHS	D
	LEAX	-320,U
	PSHS	X
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_197
_198
	LDD	#-1
	LBRA	_199
_197
	CLRA
	CLRB
_199
	LEAS	,U
	PULS	U,PC
rename
	PSHS	U
	LEAU	,S
	LEAS	-320,S
	LEAX	-320,U
	PSHS	X
	LDD	4,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	SUBD	#0
	LBNE	_201
	LEAX	-271,U
	PSHS	X
	LDD	6,U
	PSHS	D
	LBSR	_setname
	LEAS	4,S
	SUBD	#0
	LBNE	_201
	LDD	#13
	PSHS	D
	LEAX	-320,U
	PSHS	X
	LBSR	FMS
	LEAS	4,S
	SUBD	#0
	LBGE	_200
_201
	LDD	#-1
	LBRA	_202
_200
	CLRA
	CLRB
_202
	LEAS	,U
	PULS	U,PC
base	EQU	35
allocp	EQU	39
heap	EQU	41
malloc
	PSHS	U
	LEAU	,S
	LEAS	-6,S
	LDD	#4
	PSHS	D
	LDD	4,U
	ADDD	#4
	SUBD	#1
	PULS	X
	LBSR	_00003
	ADDD	#1
	LDD	39,Y
	SUBD	#0
	LBNE	_203
	LEAX	35,Y
	TFR	X,D
	CLRA
	CLRB
_203
	LDD	[-4,U]
_205
	LDX	-2,U
	LDD	2,X
	SUBD	-6,U
	LBLO	_207
	LDX	-2,U
	LDD	2,X
	SUBD	-6,U
	LBNE	_208
	LDD	[-2,U]
	STD	[-4,U]
	LBRA	_209
_208
	LDD	-2,U
	ADDD	#2
	TFR	D,X
	LDD	0,X
	SUBD	-6,U
	STD	0,X
	LDX	-2,U
	LDD	2,X
	ASLB
	ROLA
	ASLB
	ROLA
	PSHS	D
	ADDD	,S++
	LDD	-6,U
	LDX	-2,U
	STD	2,X
_209
	LDD	-4,U
	LDD	-2,U
	PSHS	D
	LBSR	clearblo
	LEAS	2,S
	LDD	-2,U
	ADDD	#4
	LEAS	,U
	PULS	U,PC
_207
	LDD	-2,U
	SUBD	39,Y
	LBNE	_210
	LDD	-6,U
	PSHS	D
	LBSR	morecore
	LEAS	2,S
	SUBD	#0
	LBNE	_211
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_211
_210
_206
	LDD	-2,U
	LDD	[-2,U]
	LBRA	_205
_204
	LEAS	,U
	PULS	U,PC
clearblo
	PSHS	U
	LEAU	,S
	LEAS	-4,S
	LDD	4,U
	ADDD	#4
	LDX	4,U
	LDD	2,X
	ASLB
	ROLA
	ASLB
	ROLA
	ADDD	4,U
_213
	LDD	-2,U
	SUBD	-4,U
	LBHS	_212
	CLRA
	CLRB
	LDX	-2,U
	STB	,X+
	STX	-2,U
	LBRA	_213
_212
	PULS	D,X,U,PC
morecore
	PSHS	U
	LEAU	,S
	LEAS	-6,S
	LDD	#128
	PSHS	D
	LDD	#128
	PSHS	D
	LDD	4,U
	ADDD	#128
	SUBD	#1
	PULS	X
	LBSR	_00003
	PULS	X
	LBSR	_00001
	LDD	-6,U
	ASLB
	ROLA
	ASLB
	ROLA
	PSHS	D
	LBSR	sbrk
	LEAS	2,S
	LDD	-2,U
	SUBD	#-1
	LBNE	_214
	CLRA
	CLRB
	LEAS	,U
	PULS	U,PC
_214
	LDD	-2,U
	LDD	-6,U
	LDX	-4,U
	STD	2,X
	LDD	-4,U
	ADDD	#4
	PSHS	D
	LBSR	mfree
	LEAS	2,S
	LDD	39,Y
	LEAS	,U
	PULS	U,PC
sbrk	PSHS	U
	LEAU	,S
	
	LDD	heap,Y
	BNE	_mc0
	BSR	initheap
_mc0	PSHS	D
	TFR	S,D
	SUBD	,S++
	CMPD	4,U
	BCC	_mc1
	LDD	#-1
	LEAS	,U
	PULS	U,PC
	
_mc1	LDD	4,U
	LDX	heap,Y
	LEAX	D,X
	LDD	heap,Y
	STX	heap,Y
	LEAS	,U
	PULS	U,PC

initheap
	PSHS	U
	LEAU	,S
	TFR	Y,D
	ADDD	#_GLOBALS
	STD	heap,Y
	LEAS	,U
	PULS	U,PC
mfree
	PSHS	U
	LEAU	,S
	LEAS	-4,S
	LDD	4,U
	SUBD	#4
	LDD	39,Y
_216
	LDD	-2,U
	SUBD	-4,U
	LBLS	_217
	LDD	[-4,U]
	PSHS	D
	LDD	-2,U
	SUBD	,S++
	LBLO	_215
_217
	LDD	[-4,U]
	PSHS	D
	LDD	-4,U
	SUBD	,S++
	LBLO	_219
	LDD	-2,U
	SUBD	-4,U
	LBHI	_220
	LDD	[-4,U]
	PSHS	D
	LDD	-2,U
	SUBD	,S++
	LBHS	_219
_220
	LBRA	_215
_219
_218
	LDD	[-4,U]
	LBRA	_216
_215
	LDD	[-4,U]
	PSHS	D
	LDX	-2,U
	LDD	2,X
	ASLB
	ROLA
	ASLB
	ROLA
	ADDD	-2,U
	SUBD	,S++
	LBNE	_221
	LDD	[-4,U]
	PSHS	D
	LDD	#2
	PULS	X
	LDD	D,X
	PSHS	D
	LDD	-2,U
	ADDD	#2
	TFR	D,X
	LDD	0,X
	ADDD	,S++
	STD	0,X
	LDD	[-4,U]
	TFR	D,X
	LDD	0,X
	STD	[-2,U]
	LBRA	_222
_221
	LDD	[-4,U]
	STD	[-2,U]
_222
	LDX	-4,U
	LDD	2,X
	ASLB
	ROLA
	ASLB
	ROLA
	ADDD	-4,U
	SUBD	-2,U
	LBNE	_223
	LDX	-2,U
	LDD	2,X
	PSHS	D
	LDD	-4,U
	ADDD	#2
	TFR	D,X
	LDD	0,X
	ADDD	,S++
	STD	0,X
	LDD	[-2,U]
	STD	[-4,U]
	LBRA	_224
_223
	LDD	-2,U
	STD	[-4,U]
_224
	LDD	-4,U
	PULS	D,X,U,PC
freesize
	PSHS	U
	LEAU	,S
	LEAS	-2,S
	LDD	41,Y
	LBNE	_225
	LBSR	initheap
_225
	LEAX	-2,U
	TFR	X,D
	SUBD	41,Y
	PULS	X,U,PC
main
	PSHS	U
	LEAU	,S
	LEAX	2,PC
	BRA	_226
	FCB	84,101,114,109,105,110,97,108
	FCB	32,101,109,117,108,97,116,111
	FCB	114,10,0
_226
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LBSR	reminit
_228
	LEAX	2,PC
	BRA	_229
	FCB	10,84,40,101,114,109,32,44
	FCB	32,70,40,105,108,101,32,44
	FCB	32,69,40,120,105,116,32,58
	FCB	32,0
_229
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LBSR	getchar
	PSHS	D
	LBSR	toupper
	LEAS	2,S
	CMPD	#84
	LBNE	_232
_231
	LBSR	term
	LBRA	_230
_232
	CMPD	#70
	LBNE	_234
_233
	LBSR	filer
	LBRA	_230
_234
	CMPD	#69
	LBNE	_236
_235
	LBSR	exit
_236
_230
	LBRA	_228
_227
	PULS	U,PC
term
	PSHS	U
	LEAU	,S
	LEAS	-1,S
	LEAX	2,PC
	BRA	_237
	FCB	10,62,62,62,32,101,110,116
	FCB	101,114,32,116,101,114,109,105
	FCB	110,97,108,32,109,111,100,101
	FCB	32,60,99,116,108,45,64,32
	FCB	116,111,32,101,120,105,116,62
	FCB	10,0
_237
	PSHS	X
	LBSR	printf
	LEAS	2,S
        ORCC    #$50    disable interrupt
_239
	LBSR	remstat
	SUBD	#0
	LBEQ	_240
	LBSR	remread
	PSHS	D
	LBSR	conwrite
	LEAS	2,S
_240
	LBSR	constat
	SUBD	#0
	LBEQ	_241
	LBSR	conread
	SUBD	#0
	LBNE	_242
	LBRA	_238
_242
	LDB	-1,U
	SEX
	PSHS	D
	LBSR	remwrite
	LEAS	2,S
_241
	LBRA	_239
_238
        ANDCC   #$AF    restore interrupt mask
	PULS	A,U,PC
filer
	PSHS	U
	LEAU	,S
	LEAX	2,PC
	BRA	_243
	FCB	10,62,62,62,32,101,110,116
	FCB	101,114,32,102,105,108,101,32
	FCB	116,114,97,110,115,102,101,114
	FCB	32,109,111,100,101,10,0
_243
	PSHS	X
	LBSR	printf
	LEAS	2,S
_245
	LEAX	2,PC
	BRA	_246
	FCB	10,68,105,114,101,99,116,105
	FCB	111,110,32,70,40,108,101,120
	FCB	45,62,117,110,105,120,32,44
	FCB	32,85,40,110,105,120,45,62
	FCB	102,108,101,120,32,44,32,69
	FCB	40,120,105,116,32,58,32,0
_246
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LBSR	getchar
	PSHS	D
	LBSR	toupper
	LEAS	2,S
	CMPD	#70
	LBNE	_249
_248
	LBSR	flex_uni
	LBRA	_247
_249
	CMPD	#85
	LBNE	_251
_250
	LBSR	unix_fle
	LBRA	_247
_251
	CMPD	#69
	LBNE	_253
_252
	PULS	U,PC
_253
_247
	LBRA	_245
_244
	PULS	U,PC
flex_uni
	PSHS	U
	LEAU	,S
	LEAS	-163,S
	LEAX	2,PC
	BRA	_254
	FCB	10,70,76,69,88,32,116,111
	FCB	32,85,78,73,88,32,102,105
	FCB	108,101,32,116,114,97,110,115
	FCB	102,101,114,10,0
_254
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LEAX	2,PC
	BRA	_255
	FCB	70,76,69,88,32,102,105,108
	FCB	101,32,110,97,109,101,32,58
	FCB	32,0
_255
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LDD	#80
	PSHS	D
	LEAX	-80,U
	PSHS	X
	LBSR	gets
	LEAS	4,S
	LEAX	2,PC
	BRA	_256
	FCB	10,0
_256
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LEAX	-80,U
	PSHS	X
	LBSR	toupstr
	LEAS	2,S
	LEAX	2,PC
	BRA	_258
	FCB	114,99,0
_258
	PSHS	X
	LEAX	-80,U
	PSHS	X
	LBSR	fopen
	LEAS	4,S
	SUBD	#0
	LBHS	_257
	LEAX	-80,U
	PSHS	X
	LEAX	2,PC
	BRA	_259
	FCB	67,97,110,39,116,32,111,112
	FCB	101,110,32,37,115,10,0
_259
	PSHS	X
	LBSR	printf
	LEAS	4,S
	LEAS	,U
	PULS	U,PC
_257
	LEAX	2,PC
	BRA	_260
	FCB	85,78,73,88,32,102,105,108
	FCB	101,32,110,97,109,101,32,58
	FCB	32,0
_260
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LDD	#80
	PSHS	D
	LEAX	-160,U
	PSHS	X
	LBSR	gets
	LEAS	4,S
	LEAX	2,PC
	BRA	_261
	FCB	10,0
_261
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LEAX	2,PC
	BRA	_262
	FCB	99,97,116,32,47,100,101,118
	FCB	47,116,116,121,32,62,0
_262
	PSHS	X
	LBSR	tx_str
	LEAS	2,S
	LEAX	-160,U
	PSHS	X
	LBSR	tx_str
	LEAS	2,S
	LDD	#10
	PSHS	D
	LBSR	tx_char
	LEAS	2,S
_264
	LDD	-163,U
	PSHS	D
	LBSR	getc
	LEAS	2,S
	SUBD	#-1
	LBEQ	_263
	LDB	-161,U
	SEX
	PSHS	D
	LBSR	tx_char
	LEAS	2,S
	LBRA	_264
_263
	LDD	#4
	PSHS	D
	LBSR	remwrite
	LEAS	2,S
	LDD	-163,U
	PSHS	D
	LBSR	fclose
	LEAS	2,S
	LEAS	,U
	PULS	U,PC
unix_fle
	PSHS	U
	LEAU	,S
	LEAS	-421,S
	LEAX	2,PC
	BRA	_265
	FCB	10,85,78,73,88,32,116,111
	FCB	32,70,76,69,88,32,102,105
	FCB	108,101,32,116,114,97,110,115
	FCB	102,101,114,10,0
_265
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LEAX	2,PC
	BRA	_266
	FCB	85,78,73,88,32,102,105,108
	FCB	101,32,110,97,109,101,32,58
	FCB	32,0
_266
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LDD	#80
	PSHS	D
	LEAX	-80,U
	PSHS	X
	LBSR	gets
	LEAS	4,S
	LEAX	2,PC
	BRA	_267
	FCB	10,70,76,69,88,32,102,105
	FCB	108,101,32,110,97,109,101,32
	FCB	58,32,0
_267
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LDD	#80
	PSHS	D
	LEAX	-160,U
	PSHS	X
	LBSR	gets
	LEAS	4,S
	LEAX	2,PC
	BRA	_268
	FCB	10,0
_268
	PSHS	X
	LBSR	printf
	LEAS	2,S
	LEAX	-160,U
	PSHS	X
	LBSR	toupstr
	LEAS	2,S
	LEAX	2,PC
	BRA	_270
	FCB	119,99,0
_270
	PSHS	X
	LEAX	-160,U
	PSHS	X
	LBSR	fopen
	LEAS	4,S
	SUBD	#0
	LBHS	_269
	LEAX	-160,U
	PSHS	X
	LEAX	2,PC
	BRA	_271
	FCB	67,97,110,39,116,32,99,114
	FCB	101,97,116,101,32,37,115,10
	FCB	0
_271
	PSHS	X
	LBSR	printf
	LEAS	4,S
	LEAS	,U
	PULS	U,PC
_269
	LEAX	2,PC
	BRA	_272
	FCB	47,109,110,116,47,115,121,115
	FCB	47,116,101,122,117,107,97,47
	FCB	117,110,105,120,95,102,108,101
	FCB	120,47,117,110,105,120,95,102
	FCB	108,101,120,32,0
_272
	PSHS	X
	LBSR	tx_str
	LEAS	2,S
	LEAX	-80,U
	PSHS	X
	LBSR	tx_str
	LEAS	2,S
	LDD	#10
	PSHS	D
	LBSR	tx_char
	LEAS	2,S
_274
	CLRA
	CLRB
_276
	LBSR	remread
	SUBD	#10
	LBEQ	_275
	LDB	-161,U
	SEX
	SUBD	#27
	LBNE	_277
	LDD	-163,U
	PSHS	D
	LBSR	fclose
	LEAS	2,S
	LEAS	,U
	PULS	U,PC
_277
	LDD	-165,U
	ADDD	#1
	STD	-165,U
	SUBD	#1
	LEAX	-421,U
	LEAX	D,X
	LDB	-161,U
	SEX
	STB	0,X
	LBRA	_276
_275
	LDD	-165,U
	ADDD	#1
	STD	-165,U
	SUBD	#1
	LEAX	-421,U
	LEAX	D,X
	LDD	#10
	STB	0,X
	LDD	-165,U
	LEAX	-421,U
	LEAX	D,X
	CLRA
	CLRB
	STB	0,X
	CLRA
	CLRB
_279
	LDD	-165,U
	LEAX	-421,U
	LDB	D,X
	SEX
	LBEQ	_278
	LDD	-163,U
	PSHS	D
	LDD	-165,U
	LEAX	-421,U
	LDB	D,X
	SEX
	PSHS	D
	LBSR	putc
	LEAS	4,S
_280
	LDD	-165,U
	ADDD	#1
	STD	-165,U
	SUBD	#1
	LBRA	_279
_278
	LDD	#27
	PSHS	D
	LBSR	remwrite
	LEAS	2,S
	LDD	#46
	PSHS	D
	LBSR	putchar
	LEAS	2,S
	LBRA	_274
_273
	LEAS	,U
	PULS	U,PC
toupstr
	PSHS	U
	LEAU	,S
_282
	LDB	[4,U]
	SEX
	LBEQ	_281
	LDB	[4,U]
	SEX
	PSHS	D
	LBSR	toupper
	LEAS	2,S
	STB	[4,U]
	LDD	4,U
	ADDD	#1
	STD	4,U
	LBRA	_282
_281
	PULS	U,PC
tx_str
	PSHS	U
	LEAU	,S
_284
	LDB	[4,U]
	SEX
	LBEQ	_283
	LDX	4,U
	LDB	,X+
	STX	4,U
	SEX
	PSHS	D
	LBSR	tx_char
	LEAS	2,S
	LBRA	_284
_283
	PULS	U,PC
tx_char
	PSHS	U
	LEAU	,S
	LDB	5,U
	SEX
	PSHS	D
	LBSR	remwrite
	LEAS	2,S
_286
	LBSR	remread
	PSHS	D
	LDB	5,U
	SEX
	SUBD	,S++
	LBNE	_286
_285
	LDB	5,U
	SEX
	PSHS	D
	LBSR	putchar
	LEAS	2,S
	PULS	U,PC
constat
	PSHS	U
	LEAU	,S
	LDD	#65408
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#1
	PULS	U,PC
conread
	PSHS	U
	LEAU	,S
_288
	LBSR	constat
	SUBD	#0
	LBEQ	_288
_287
	LDD	#65409
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#127
	PULS	U,PC
conwrite
	PSHS	U
	LEAU	,S
_290
	LDD	#65408
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#2
	SUBD	#0
	LBEQ	_290
_289
	LDD	#65409
	TFR	D,X
	LDB	5,U
	SEX
	STB	0,X
	PULS	U,PC
reminit
	PSHS	U
	LEAU	,S
	LDD	#65424
	TFR	D,X
	LDD	#67
	STB	0,X
	LDD	#65424
	TFR	D,X
	LDD	#21
	STB	0,X
	PULS	U,PC
remstat
	PSHS	U
	LEAU	,S
	LDD	#65424
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#1
	PULS	U,PC
remread
	PSHS	U
	LEAU	,S
_292
	LBSR	remstat
	SUBD	#0
	LBEQ	_292
_291
	LDD	#65425
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#127
	PULS	U,PC
remwrite
	PSHS	U
	LEAU	,S
_294
	LDD	#65424
	TFR	D,X
	LDB	0,X
	SEX
	ANDA	#0
	ANDB	#2
	SUBD	#0
	LBEQ	_294
_293
	LDD	#65425
	TFR	D,X
	LDB	5,U
	SEX
	STB	0,X
	PULS	U,PC
_2	RTS
_INITIALIZE	EQU	_1
_GLOBALS	EQU	43
	END