.NLIST
R$$SX = 0	; Assemble for RSX-11M
L$$INC = 3.	; Nesting depth
E$$IS = 0	; EIS capability
.LIST