File DISKY8E

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

*20
///SUBROUTINE DISKY8E
/DRIVES RK8E IN READ AND WRITE BLOCK 
	 
/CALLS:  DRDE         DWRI (AS FOR TAPE)
/        QN\BN        QN\BN
	 
/WRITE ROUTINE.
	DWRI=JMP .
	LDA
	3		/SAVE BETA 3
	STC SAVE3
	SET 3
	0
	LDA I
	4001
	JMP DSKGO
/READ ROUTINE.
	DRDE=JMP .
	LDA
	3		/SAVE BETA 3
	STC SAVE3
	SET 3
	0
	LDA I
	0001
/
DSKGO,	STC DSKCOM	/COMMAND REG
	ADD 3
	BCL I
	6000
	STC 3
/
RETRY,	LDA 3
	BCL I
	4777
	ROR 1
	STC CA		/QUARTERS
	LDA 3
	APO
	JMP .+5
/USE INSTRUCTION FIELD
	CLR
	IOB
	6224		/RIF
	JMP .+4
/USE DATA FIELD
	CLR
	IOB
	6214		/RDF
	SCR 3		/SAVE CA PART
	ROL 3
	BCL I
	7707		/EXT MEM
	BSE I
DSKCOM,	0
	IOB
	6746		/COMMAND REG
	QAC
	ROL 1		/HIGH ORDER CA
	BCL I
	1777
	BSE I
CA,	0
	IOB
	6744		/CA
	LDA 3
	BCL I
	7600		/DISK BLOCK
	IOB
	6743		/GO
/
/WAIT FOR COMPLETION
DWAIT,	IOB
	6741
	JMP DWAIT
	IOB
	6745		/STATUS
	AZE
	JMP DERR	/ERROR
/RETURN TO CALLER
	ADD 3
	ADA I
	6001
	STC LV
	SET I 3
SAVE3,	0
LV,	JMP
/
/
DERR,	LDA I
	2
	IOB
	6742		/RECAL
	JMP RETRY
//END SUBROUTINE DISKY8E



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