Софт для ДВК/PDP11

[form]

Патч требует небольшой доделки:

;+
;S$FDAT
;Routine to set file date. Uses USR escape to execute a routine to change
;the date of a file in its directory entry.
;-

	.ENABL	LSB

S$FDAT:	ADDR	FIXDAT,R5	;Set up return routine for fifth argument
	MOV	@R1,R2		;Get date specification
	BNE	1$		;If not equal use user specified date
	MOV	$DATE,R2		;Use system date
1$:	BIC	#140000,R2	;Make sure bit 14 and 15 are stripped
	BR	2$

Строчка BIC #140000,R2 явно лишняя.

Там еще много чего надо доделать. Я только рмон и кмон смотрел и то поверхностно.