File CONM

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

	*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. /



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search