CMDRV.401;2=CMDRV.401;1
-10,,/;DBC002/
	.IDENT	/V4.2/	;20-MAY-78
-47
; D.B.CURTIS MODIFIED THE PROGRAMED DATA READ OPERATION PER REQUEST
; OF S.BRAKER. WILL NOW ACCEPT ONLY 16 BITS OF A 24 BIT READ IF THE BYTE
; COUNT IS 2. EDITS ARE DBC002

-564,566
	BHIS	EONP		;LEGALITY. IF NOT LEGAL EONP WILL SHOW IT.

	ASL	R3		;IF LEGAL, A WORD INDEX IS GENERATED            ;DBC4.0
-603,612
	SUB	#4,SP		;SAVE SPACE ON THE STACK
	MOV	DATA(R2),(SP)	;READ 16 BITS OF DATA
	MOV	DATA(R2),2(SP)	;READ TOP 8 BITS IF ANY
	BIT	#MD24,I.PRM+10(R1) ;CHECK IF IN 24 BIT MODE
	BNE	2$		;IF NE YES
	CLR	2(SP)		;IF 16 BIT MODE SET HIGH PART TO ZERO
2$:	CALL	$PTWRD		;SAVE LOW 16 BITS
	SUB	#2,U.CNT(R5)	;ADJUST WORD COUNT
	BEQ	3$		;IF EQ ALL DONE SO CLEAN UP

	CALL	$PTWRD		;ELSE SEND NEXT WORD
	BR	A		;AND GOTO A

3$:	ADD	#2,SP		;ADJUST STACK AND
	BR	A		;GOTO A
/