*DECK ASMDIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,ASMDIRS*I,
DIRSLFN"DIRECTIVES LFN"=(*F), 
SKELBIN"BINARY LOAD FILE"=(*F), 
SKELIST"ASSEMBLY LIST FILE"=(*F,*N=OUTPUT). 
RETURN,XXASMD1. 
REWIND,DIRSLFN. 
.IF,SYS.EQ.NOS,NOSOS. 
PACK,DIRSLFN,XXASMD1. 
.ELSE,NOSOS.
COMBINE,DIRSLFN,XXASMD1,999.
.ENDIF,NOSOS. 
REWIND,DIRSLFN,XXASMD1. 
COMPASS,I=XXASMD1,L=SKELIST,B=SKELBIN,S=SYSTEXT,A.
RETURN,XXASMD1. 
REVERT.  ASMDIRS COMPLETE.
*WIDTH
