Directory of image this file is from
This file as a plain text file

*20
	CLR
	LIF 0
	JMP START
	SEGMNT 0
	*20
LONG,	-30
	PMODE
A,	FLD-1
B,	DFLD-1
PTR,	0
GET,	0
CR,	215
NCR,	-215
LF,	212
NLF,	-212
RO,	377
NRO,	-377
BSL,	334
PER,	56
MASK,	0077
ILD,	LDFLD
TYPE,	0
	TSF
	JMP .-1
	TLS
	JMP I TYPE
TYPCL,	0
	TSF
	JMP .-1
	TLS
	CLA CLL
	JMP I TYPCL
LISN,	0
	KSF
	JMP .-1
	KRB
	JMP I LISN
RUB,	CLA CLL
	TAD A
	CMA
	TAD 14
	SNA
	JMP START-1
	CLA CLL
	TAD LONG
	CMA
	IAC
	TAD A
	CMA
	TAD 14
	SPA
	JMP IN
	CLA CMA
	TAD 14
	DCA 14
	CLA CMA
	TAD 17
	DCA 17
	CLA CMA
	DCA I 14
	CLA CMA
	TAD 14
	DCA 14
	JMP OUT
IN,	CLA CMA
	TAD 14
	DCA 14
	TAD PER
	DCA I 14
	CLA CMA
	TAD 14
	DCA 14
OUT,	TAD BSL
	JMS TYPCL
	JMP I ILD
CRLF,	TAD CR
	JMS TYPCL
	TAD LF
	JMS TYPCL
	JMP I ILD
LINE,	JMP START-1
	LMODE
INPUT,	CLR
	LDA
	14
	SAE
	17
	JMP .+5
	LDA I
	2017
	STC STR
	JMP .+4
	LDA I
	7000
	STC STR
	PDP
	PMODE
	JMS LISN
	TAD NCR
	SNA
	JMP CRLF
	TAD CR
	TAD NLF
	SNA
	JMP LINE
	TAD LF
	TAD NRO
	SNA
	JMP RUB
	TAD RO
	JMS TYPE
	AND MASK
	DCA I 14
STR,	NOP
	JMP I ILD
	*177
	LINC
	LMODE
START,	CLR
	LDA
	LONG
	COM
	ADA I
	FLD
	STC 17
	SET I 14
	FLD+4
	LDA I
	FLD
	STC PTR
	SAM 0
	STC AD
	LDA I
	300
	ESF
	CLR
	PDP
	PMODE
	TLS
	TAD CR
	JMS TYPCL
	TAD LF
	JMS TYPE
	JMS TYPCL
	TAD A		/FLD-1
	DCA 10
	TAD LONG
	IAC
	DCA 11
	TAD PER
	DCA I 10
	ISZ 11
	JMP .-3
	CLA CMA
	DCA I 10
	TAD 10
	SZA
	JMP .-4
	LINC
	LMODE
RSTRT,	LDA
	AD
	APO
	JMP .+6
	LDA I
	1
	STA I
DSTART,	0
	JMP .+4
	LDA I
	25
	STC DSTART
	PDP
	PMODE
LDFLD,	CLA CLL
	TAD PTR
	DCA GET
	TAD LONG
	IAC
	DCA 15
	TAD B
	DCA 16
AGAIN,	TAD I GET
	IAC
	SZA
	JMP LD
	TAD GET
	CIA
	TAD A
	SZA
	JMP .+4
	TAD 17
	DCA GET
	JMP LD
	CLA CLL
	TAD A
	IAC
	DCA GET
LD,	CLA CLL
	TAD I GET
	DCA I 16
	ISZ GET
	ISZ 15
	JMP AGAIN
	LINC
	LMODE
RDEL,	SAM 0
	STA
	AD
	APO
	COM
	COM
	ADA I
	1000
	COM
	STC 4
	LDA I
AD,	0
	APO
	JMP LEFT
	LDA I
	25
	STA I
LIM,	0
	LDA I
	1
	STA I
DIR,	0
	COM
	STA I
PTRI,	0
	JMP DISP
LEFT,	LDA I
	1
	STA
	LIM
	LDA I
	-1
	STA
	DIR
	COM
	STC PTRI
DISP,	CLR
	SET I 7
	DFLD-1
	SET 1
	DSTART
	SET 6
	LONG
	SAM 0
MORE,	LDA I 7
	ROL 1
	ADA I
	PATRN
	STC 5
	DSC 5
	DSC I 5
	LDA I
	4
	ADM
	1
	KST
	SKP
	JMP INPUT
	XSK I 6
	JMP MORE
	XSK I 4
	JMP DISP
	LDA
	DIR
	ADM
	DSTART
	SAE
	LIM
	JMP RDEL
	LDA
	PTRI
	ADM
	PTR
	STC .+2
	LDA
	0
	APO I
	JMP RSTRT
	LDA
	PTR
	SAE I
	FLD-1
	JMP .+5
	LDA
	17
	STC PTR
	JMP RSTRT
	LDA I
	FLD
	STC PTR
	JMP RSTRT
/PATTERN WORDS FOR CHAR DISPL.
PATRN,	4522		/AT SIGN
	NOLIST
       	1645
   	4477		/A
	7744
	5177		/B
	2651
	4136		/C
	2241
	4177		/D
	3641
	4577		/E
	4145
	4477		/F
	4044
	4136		/G
	2645
	1077		/H
	7710
	7741		/I
	0041
	4142		/J
	4076
	1077		/K
	4324
	177		/L
	301
	3077		/M
	7730
	3077		/N
	7706
	4177		/O
	7741
	4477		/P
	3044
	4276		/Q
	376
	4477		/R
	3146
	5121		/S
	4651
	4040		/T
	4077
	177		/U
	7701
	176		/V
	7402
	677		/W
	7701
	1463		/X
	6314
	770		/Y
	7007
	4543		/Z
	6151
	7700		/[
	0041
	1020		/\
	0204
	4100		/]
	0077
	2000		/^
	2077
	3410		/BACK ARROW
	1010
	0		/SPACE
	0
	7500		/!
	0
	6060		/"
	0
	3614		/NUMBER SIGN
	1436
	7721		/DOLLAR SIGN
	4677
	1446		/%
	6130
	5166		/&
	0526
	5000		/APOSTROPHY
	60
	0000		/(
	4136
	3641		/)
	0000
	2050		/*
	50
	404		/+
	437
	0500		/,
	0006
	404		/-
	404
	1		/.
	0
	601		//
	4030
	4136		/0
	3641
	2101		/1
	177
	4523		/2
	2151
	4122		/3
	2651
	2414		/4
	477
	5172		/5
	651
	1506		/6
	4225
	4443		/7
	6050
	5126		/8
	2651
	5120		/9
	3651
	4200		/:
	0
	4201		/;
	0
	2410		/<
	0042
	1212		/=
	1212
	4200		/>
	1024
	4020		/?
	LIST
PATEND,	2055
/END OF PATRNS TABLE
DFLD,	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	7777
	7777
FLD,	0