*20
	PMODE
	*200
PARAM,	CLA CLL
	TLS
	TAD K324
	JMS TYPE
	TAD K306
	JMS TYPE
	JMS GET
	JMS CRLF
	TAD NUM
	CIA
	DCA I TFAD
	TAD K324
	JMS TYPE
	TAD K304
	JMS TYPE
	JMS GET
	JMS CRLF
	TAD NUM
	CIA
	DCA I TDAD
	TAD K324
	JMS TYPE
	TAD K315
	JMS TYPE
	JMS GET
	JMS CRLF
	TAD NUM
	CIA
	DCA I TMAD
	TAD K324
	JMS TYPE
	TAD K311
	JMS TYPE
	JMS GET
	JMS CRLF
	TAD NUM
	CIA
	DCA I TIAD
	TAD ICHTAB
	DCA CHPT
GET1,	JMS LISNR
	TAD K377
	TAD M207
	SNA
	JMP CONT
	TAD K207
	DCA NXT
GET2,	JMS LISNR
	SZA CLA
	JMP .+5
	JMS LISNR
	TAD K377
	DCA NXT
	JMP GET2
	TAD NXT
	TAD M215
	SNA
	JMP CR
	TAD K215
	DCA I CHPT
	TAD TEMP
	DCA NXT
	JMP GET2
CR,	JMS CRLF
	TAD K252
	DCA I CHPT
	JMP GET1
	HLT
GET,	0
	TAD M4
	DCA TALLY4
	DCA NUM
LOOP,	TAD NUM
	CLL RAL
	RTL
	DCA NUM
	JMS LISN
	TAD M260
	TAD NUM
	DCA NUM
	ISZ TALLY4
	JMP LOOP
	JMP I GET
TDAD,	576
TIAD,	577
TFAD,	574
TMAD,	575
K377,	377
TEMP,	0
K324,	324
K304,	304
K311,	311
K306,	306
K315,	315
M260,	-260
NUM,	0
TALLY4,	0
M4,	-4
K207,	207
M207,	-207
K252,	252
K215,	215
M215,	-215
ICHTAB,	777
NXT,	0
CONT,	TAD ICHTAB
	DCA CHPT
	JMP 377
	*377
	HLT
READY,	CLSA
	CLA
	CLLR
	CLAB
	TAD K4100
	CLLR
DSFX,	LINC
	LMODE
	SET I 1
	364
	SET I 7
	762
	DSC 7
	DSC I 7
	PDP
	PMODE
	CLCA
	TAD TF
	SPA CLA
	JMP DSFX
	CLLR
	TAD K4100
	CLLR
	CLCA
	TAD TI
	SPA CLA
	JMP .-3
	CLLR
	TAD ICHBF
	DCA BFPT
	JMS FETCH
	TAD IMBF
	DCA BFPT
	JMS FETCH
	CLA
	CLAB
	TAD K4100
	CLLR
READY1,	CLA
	TAD ICHBF
	DCA BFPT
	LINC
	LMODE
	JMP DSPLA
	PDP
	PMODE
	CLCA
	TAD TD
	SPA
	JMP READY1
	CLA
	CLLR
	CLAB
	TAD K4100
	CLLR
READY2,	CLA
	TAD IMBF
	DCA BFPT
	LINC
	LMODE
	JMP DSPLA
	PDP
	PMODE
	CLCA
	TAD TM
	SPA
	JMP READY2
	CLA
	CLLR
	OSR
	SNA
	JMP WAIT
TEST,	CLA
	6304
	6301
	JMP .-1
	6306
	SNA CLA
	JMP .-2
	JMP READY
WAIT,	HLT
	JMP READY
K4100,	4100
ICHBF,	667
IMBF,	767
FETCH,	0
REPT,	TAD I CHPT
	TAD M252
	SNA
	JMP I FETCH
	TAD KK252
	AND M1
	CLL
	RAL
	TAD K600
	DCA I BFPT
	JMP REPT
K600,	600
M1,	77
M252,	-252
	LMODE
DSPLA,	CLR
	ADD 0
	STC RETRN
	SET I TALLYD
	1767
	SET I 1
	364
LOAD,	LDA I BFPT
	STC PATT
	SET 7
	PATT
	DSC 7
	DSC I 7
	LDA I
	4
	ADM
	1
	CLR
	XSK I TALLYD
	JMP LOAD
RETRN,	0
KK252,	252
PATT,	0
	*13
TALLYD,	0
CHPT,	0
BFPT,	0
	*574
TF,	0
TM,	0
TD,	0
TI,	0
	*602
	4477
	7744
	5177
	2651
	4136
	2241
	4177
	3641
	4577
	4145
	4477
	4044
	4136
	2645
	1077
	7710
	7741
	0041
	4142
	4076
	1077
	4324
	0177
	0301
	3077
	7730
	3077
	7706
	4177
	7741
	4477
	3044
	4276
	0376
	4477
	3146
	5121
	4651
	4040
	4077
	0177
	7701
	0176
	7402
	0677
	7701
	1463
	6314
	0770
	7007
	4543
	6151
	0000
	0000
	*700
	0000
	0000
	*740
	4136
	3641
	2101
	0177
	4523
	2151
	4122
	2651
	5172
	0651
	1506
	4225
	4443
	6050
	5126
	2651
	5120
	3651
	1400
	0014
	2551
	4546
	7777
	7777
	*31
	PDP
	PMODE
LISN,	0
	CLA
	KSF
	JMP .-1
	KRB
	TLS
	JMP I LISN
	JMS TYPE
	JMP I CRLF
TYPE,	0
	TSF
	JMP .-1
	TLS
	CLA
	JMP I TYPE
CRLF,	0
	TAD KK215
	JMS TYPE
	TAD K212
	JMS TYPE
	JMP I CRLF
K212,	212
KK215,	215
LISNR,	0
CL,	CLA
	KSF
	JMP .-1
	KRB
	DCA I TEMPAD
	TAD I TEMPAD
	TAD M200
	SNA CLA
	JMP CL
	TAD I TEMPAD
	TLS
	TAD M377
	JMP I LISNR
TEMPAD,	TEMP
M200,	-200
M377,	-377