/DHMCA PATCH FOR 8/A W/O FRONT PANEL

LLAS=JMS I SWCHCK

*160
SR,	0		/CONTENT OF SWITCH REGISTER
SWCHCK,	SCHECK

*176
BEGIN1,	JMP I .+1
	KEYSW		/POINTER TO KEYBOARD SWITCH REGISTER
BEGIN,	LLAS		/READ SOFTWARE SWITCH REGISTER

*1561
	LLAS

*1600
	LLAS

*2203
	LLAS

*2213
	LLAS

*2436
	LLAS

*2745
ZBLOCK 5

*2757
ZBLOCK 4

*2767
	CLA
ZBLOCK 4

*3246
	NOP

*3571
	LLAS

*3634
	LLAS

*4200
SCHECK,	0		/ROUTINE TO DO A SOFTWARE LAS
	CLA
	TAD SR		/LOAD AC WITH SOFTWARE SR
	JMP I SCHECK

KEYSW,	TAD (LSTBEG
	DCA COUNT
NEXTCH,	TAD I COUNT
	SNA
	JMP INPUT
	JMS PRINT
	ISZ COUNT
	JMP NEXTCH

COUNT,	0

PRINT,	0
	TLS
	TSF
	JMP .-1
	CLL CLA
	JMP I PRINT

INPUT,	KSF
	JMP .-1
	KRB
	AND (177
	DCA COUNT	/STORE FOR PROCESSING
	TAD COUNT
	TAD (-61
	SPA
	JMP INPUT
	TAD (7771
	SMA
	JMP INPUT
	TAD (10
	DCA SR
	TAD COUNT
	JMS PRINT
	TAD (15
	JMS PRINT
	TAD (12
	JMS PRINT
	CAF
	JMP I (200

LSTBEG=.
BEGLST,	15;12;"A;"M;"O;"U;"N;"T;240;"O;"F;240;"E;"X;"T;"E;"N;"D;"E;"D
	240;"M;"E;"M;"O;"R;"Y;240;"(;"1;"-;"7;");"?;0