*1400
/
/NON-RESIDENT CONSOLE HANDLER MODULE.	HANDLES ALL
/FUNCTIONS PERFORMED BY LINC CONSOLE SWITCHES.
/
	-CONM		/INDICATOS THAT THIS IS CONS MOD
	RTL		/ENTER WITH INTERRUPT STATUS IN AC
	RTL
	SPA CLA		/AUTO RESTART BIT NOW BIT 0
	JMP	ARSTI	/AUTO RESTART INTERRUPT
	SZL		/ADDRESS MATCH BIT IS IN LINK
	JMP	ADRMI	/ADDRESS MATCH INTERRUPT
/
/MUST HAVE BEEN CONSOLE INTERRUPT - EXAMINE ICS1
/
	TAD	(JMP I CNJ	/SET UP FOR DECODE
	DCA	CNJ
	TAD	SW2	/GET SWITCH REG 2 SETTING
	AND	(200	/LOOK AT CLEAR SWITCH
	SNA CLA		/IS IT SET
	JMP	.+4	/NO
	JMS	FF	/YES, RESET CLEAR FLOP
	6777
	0
	TAD	SW1	/GET SWITCH ONE SETTINGS
CN1,	RAL CLL		/HIGH ORDER BIT INTO LINC
	ISZ	CNJ	/INCREMENT JUMP ADDRESS
	SZL		/WAS THAT BIT SET
	JMP	CN1	/YES, FIND ANOTHER
	CLA CLL		/FOUND IT
CNJ,	0		/GO THERE
	ADRMI
	FILL
	FSTEP
	EXAM
	XSTEP
	IBI
	STEP
	RESUME
	DOTOG
	SRS
	S20
	S400
	CN2		/CHECK SWITCH REGISTER TWO
	MARK
	ARST
	FSTOP
	ESTOP
	CLEAR
	ADRMI		/NOT FOUND
/
/CHECK SECOND SWITCH REGISTER
/
CN2,	TAD	SW2	/MOVE ON TO 2ND WORD
	AND	(7600
	JMP	CN1
/
/AUTO RESTART INTERRUPT OCCURRED
/
ARSTI,	TAD	SW1	/GET SWITCH REGISTER ONE
	AND	(200	/LOOK AT EXAM SWITCH 
	SNA CLA		/IT PRESSED
	JMP	XSTEP	/YES
	TAD	SW1	/GET REGISTER ONE AGAIN
	AND	(1000	/FILL STEP SWITCH PRESSED
	SNA CLA
	JMP	FSTEP	/YES, GO THERE
	TAD	FFIM	/GET FLOP IMAGE
	AND	(700	/INST X INST, ESTOP OR FSTOP SET
	SZA CLA
	JMP	CRST	/YES, HONOR
	JMP	RET	/NO, IGNORE INTERRUPT
/
/FILL SWITCH INTERRUPT
/
FILL,	LAS		/GET RIGHT SWITCH REGISTER
	IACS		/PLACE IN LINC S REGISTER
	DCA	MEM	/ALSO SET UP TO STORE
	ILES		/GET LEFT SWITCH REGISTER
	STORE		/LSW SETTINGS IN RSW ADDRESS
/
/EXAM SWITCH INTERRUPT
/
EXAM,	JMS	FF	/CLEAR AUTO FLIP FLOP
	7737
	0
	LAS		/GET RIGHT SWITCH REGISTER
	JMP	XAM1	/CONTINUE
/
/FILL STEP INTERRUPT
/
FSTEP,	ILES
	IACB
	STORE
	TAD	FFIM
	AND	(40
	SZA CLA
	JMP	XSTEP+1
	ICS1
	RTL
	SMA CLA
	JMP	.-3
	SKP
/
/EXAM STEP INTERRUPT
/
XSTEP,	ISZ	MEM	/INCREMENT CURRENT ADDRESS
	TAD	MEM	/GET ADDRESS
XAM1,	IACS		/PUT IN S REGISTER
	FETCH		/GET CONTENTS OF ADDRESS
	IACB		/PUT IN B REGISTER
	JMP	AD1	/CONTINUE
ADRMI,	TAD	DOSWT
	SMA CLA
	JMP	DRESET
AD1,	JMS	AFF	/FIRE AUTO RESTART FLOP
	JMP	HALT	/WAIT FOR INTERRUPT
/
/START RIGHT SWITCHES INTERRUPT
/
SRS,	LAS		/READ RIGHT SWITCHES
	JMP	.+3
/
/START 20 INTERRUPT
/
S20,	TAD	(20-400
/
/START 400 INTERRUPT
/
S400,	TAD	(400
	DCA	LNCP	/SET UP LINC P COUNTER
	DCA	TIFLG	/CLEAR TAPE INTERRUPT FLAG
	JMS	FF	/RESET INSTR X INSTR, CLEAR
	6363		/AND MARK FLIP FLOPS
	0
	JMP	CRST	/CONTINUE
/
/RESUME SWITCH INTERRUPT
/
RESUME, JMS	FF	/CLEAR INS X INS & AUTO FLOPS
	7337
	0
CRST,	DCA	JOBS	/PUT ZERO IN JOBS
	TAD	INTSAV	/GET INTERRUPT STATUS
	AND	(7767
	TAD	C10	/SET LINC RUN FLIP FLOP
	DCA	INTSAV
	JMP	GO	/START LINC AND GO
/
/STEP SWITCH INTERRUPT
/
STEP,	JMS	FF	/SET INST X INST FLOP
	7377
	400
	JMP	CRST	/CONTINUE
/
/END OF PAGE SIX OF NON-RESIDENT CONSOLE MODULE
/
	*1600
/
/FIRE DELAY FLIP FLOP
/
AFF,	0
	CLA
	TAD	FFIM
	AND	C40
	SNA
	JMP I	AFF
	ICA
	13
	JMP I	AFF
ARST,	JMS	FF
	7737
C40,	40
	ICA
	13
	JMP	RET
IBI,	JMS	FF
	7037
	400
	JMP	RET
FSTOP,	JMS	FF
	7077
	200
	JMP	RET
ESTOP,	JMS	FF
	7077
	100
	JMP	RET
CLEAR,	SM2
	DCA	TST
	TAD	MEMB
	RTR
	RAR
	AND	(6000
	TAD	(-1
	DCA	10
	TAD	(-2000
	DCA	11
	TAD	MEMB
	RAL
	AND	C70
	TAD	CCDF
	DCA	.+1
	JMP	.
	DCA I	10
	ISZ	11
	JMP	.-2
	CDF
	TAD	MEMB
	RTR
	RTR
	RAR
	DCA	MEMB
	ISZ	TST
	JMP	CLEAR+2
	JMS	FF
	6777
	1000
	JMP	RET
TST,	0
FF,	0
	CLA
	TAD	FFIM
	AND I	FF
	ISZ	FF
	TAD I	FF
	IACF
	DCA	FFIM
	ISZ	FF
	JMP I	FF
/
/DO SWITCH INTERRUPT
/
DOTOG,	DCA	DOSWT
	TAD	LNCP
	DCA	SLNCP
	ILES
	RAL
	SPA CLA
	SNL
	JMP	.+3
	CLC
	DCA	SLNCP	/FLAG TO NOT RESTORE LINC P
	TAD	C20
	FETCH
	DCA	SV20
	TAD	MEMT
	DCA	RS20F
	TAD	STF1
	DCA	RS20I
	ILES
	STORE
	TAD	MEM
	FETCH
	DCA	SV21
	LAS
	STORE
	TAD	C20
	DCA	LNCP
	DCA	TIFLG
	JMP	STEP
DRESET, JMS	RS20
DRS1,	CLC
	DCA	DOSWT
	TAD	SLNCP
	SMA	
	DCA	LNCP	/SET UP NEW P BECAUSE JMP EXECUTED
	CLA
	TAD	LNCP
	ISSP
	CLA
	TAD	LNCA
	IACA
	CLA
	TAD	LINS
	IACB
	JMS	FF
	7377
	0
	JMP	HALT+2
MARK,	JMS	FF
	7773
	4
	JMP	RET
/
/END OF NON-RESIDENT CONSOLE MODULE.
/