.TITLE ALUN
	.IDENT /250883/

; Version 3.0
; File:[22,310]ALUN.MAC
; Author: Jim Bostwick 25-Aug-83 (cloned from v2.0)
; History: JMB 4-Nov-83 
;
.REM |

PROCEDURE ALUN( LUN:Integer; 
                Device:CH2; 
                Unit:Integer
  );External;

{*USER* 
  Pascal-3 procedure to associate a device with a LUN. Be sure
you understand this directive before using it. It can bite you.
NOTE: Pascal OTS is NOT aware of this routine's activities!
 Directive status is available in $DSW upon return.
 Implements ALUN$ directive (see Exec Reference Manual).
} 

|

;
; Assemble with PASMAC.MAC as prefix file.
;

	.MCALL ALUN$S
	
	PROC ALUN
	PARAM LUN,Integer	
	PARAM DEV,2*CHAR
	PARAM UNIT,INTEGER
	SAVE <R0>
	BEGIN
	MOV SP,R0	;LOCAL COPY OF STACK
	ALUN$S LUN(0),DEV(0),UNIT(0)
	ENDPR
	.END