DISPAT.MAC;4/au/-bf=[13,10]DISPAT.MAC;1
-11,11,/;DLE001/
	$VERSION	x0254
-68,80,/;DLE001/
;	.WORD	.RMVNM		; 13=REMOVE FILE FROM DIRECTORY
	.word	illcod
;	.WORD	.ENTNM		; 14=ENTER FILE IN DIRECTORY
	.word	illcod
	.WORD	.ACCES		; 15=ACCESS FOR READ
;	.WORD	.ACCES		; 16=ACCESS FOR READ, WRITE
	.word	illcod
;	.WORD	.ACCES		; 17=ACCESS FOR READ, WRITE, EXT.
	.word	illcod
	.WORD	.DEACC		; 20=DEACCESS FILE
	.WORD	.RWVB		; 21=READ, VIRTUAL BLOCK
;	.WORD	.RWVB		; 22=WRITE VIRTUAL BLOCK
	.word	illcod
;	.WORD	.EXTEN		; 23=EXTEND FILE
	.word	illcod
;	.WORD	.CRFIL		; 24=CREATE FILE
	.word	illcod
;	.WORD	.DLMRK		; 25=MARK FILE FOR DELETE
	.word	illcod
	.WORD	.RDATT		; 26=READ ATTRIBUTES
;	.WORD	.WRATT		; 27=WRITE ATTRIBUTES
	.word	illcod
-90,109,/;DLE001/
.EXTN1::.WORD	what..		;ERS EXTEND EXTRY FOR ALLOCATION ON CREA
	.ENDC
.EXCM1::.WORD	what..		; EXTEND FILE OVERLAY
.IXEX1::.WORD	what..		; INDEX FILE EXTEND
.CLEX1::.WORD	what..		; CLEAN UP EXTEND OPERATION
	.IF	DF,M$$HDR
.CLEX2::.WORD	what..		; CLEAN UP EXTEND AND EXTEND INDEX FILE
	.IFTF
.EXTH1::.WORD	what..		; CREATE AN EXTENSION FILE HEADER
.EXCM2::.WORD	what..		; COMPLETE EXTEND OPERATION
	.IFT
.EXCM3::.WORD	what..		; RETURN TO EXCOM WITH NEW HEADER
	.ENDC
.DLFL1::.WORD	what..		; DELETE A FILE
.CLFC1::.WORD	.CLFCB		; CLEAN UP FCB FROM WRITE ERROR
.DREX1::.WORD	what..		; DIRECTORY EXTEND ROUTINE
.DREF1::.WORD	what..		; RESET DIRECTORY END OF FE
.DRAC1::.WORD	.DRACC		; ACCESS A DIRECTORY FILE
.RWVB1::.WORD	.RWVBL		; READ/WRITE VIRTUAL LONG
.TRNC1::.WORD	what..		;BOC TRUNCATE FILE
-118,118,/;DLE001/
what..:
	errx	ie.ice,<We should never get to this place>
-142,,/;DLE001/
;	11d and ias
-159,159,/;DLE001/
	.ENDC	; r$$11m
/